Luis Ricardo

Procure algum componente de shape! Senão me engano vem algum componente deste no delphi! Aí la dentro você define qual a figura você deseja. :lol:

Muito Obrigado!

Olá amigos amantes do Delphi, estou com uma dificuldade. Estou com um programa que utiliza um componente chamado TpFIBDatabase, TpFIBStoredProcedure e assim vai !!! Já busquei em tudo que é lugar este componente, alguém teria como me ajudar na disponibilização deste componente, eu ficaria muito grato. No aguardo da ajuda de vocês. Att, Ricardo

Olá amigos, estava passando aqui no fórum e resolvi postar minha dúvida sobre o que estou implementando. Só deixa eu tentar explicar, eu tenho um perfil dentro do meu sistema, este perfil possui uma lista de sistemas, e este sistema por sua vez possui uma lista de direitos. Logo, eu fiz o seguinte, o usuário responsável pelo seu setor pode escolher o perfil para determinado usuário. Ele seleciona um perfil ou vários perfis através de um Check. Perfil (GERENCIAL) ------------ | Sistemas <List> (SISCOMERCIAL) ------------------ | Direitos <List> (CADASTRAR INVOICES) Aí eu fiz o seguinte para mostrar isso na jsp : <rich:tree id="rchTreePerfisUsuario" switchType="client" style="width: 370px;"> <rich:treeNodesAdaptor nodes="#{solicitacao.listaPerfis}" var="perfil" > <rich:treeNode type="Perfil"> <h:selectBooleanCheckbox value="#{solicitacao.perfilSelecionado}" styleClass="listaTreeNode"/> <h:outputText value="#{perfil.nome}" styleClass="listaTreeNode"/> </rich:treeNode> <rich:treeNodesAdaptor nodes="#{perfil.sistemas}" var="sistema"> <rich:treeNode type="Perfil" > <h:outputText value="#{sistema.nome}" styleClass="listaTreeNode"/> </rich:treeNode> <rich:treeNodesAdaptor nodes="#{sistema.direitos}" var="direito"> <rich:treeNode type="Direito"> <h:outputText value="#{direito.nome}" styleClass="listaTreeNode"/> </rich:treeNode> </rich:treeNodesAdaptor> </rich:treeNodesAdaptor> </rich:treeNodesAdaptor> </rich:tree> Problema: Quando eu executo a página no servidor ele não me mostra o check, apenas os dados, o que estou fazendo de errado ? Precisarem de mais alguma informação estarei a disposição! rich:treeNodesAdaptor -> eu usei esta tag por que me mostra uma lista e dentro dele posso ter uma outra lista de classe diferentes! No aguardo da ajuda de vocês. Att, Luis Ricardo

Realmente é válido sua informação . Eu não tinha atentado ao erro #,##.00', isso pode ser uma das causas. E acredito que arrumando isso e utilizando o decimalseparator o problema será resolvido, no aguardo de comentários do flavio ;D...

Olah Flavio, bem estava vendo sua duvida. Eu trabalho com SQL Server 2005, me diga como está os seus campos(valores) no SQLServer ? E uma dica : utilize a variavel de ambiente decimalseparator, por exemplo antes de executar sua instrução salvar você coloca decimalseparator = '.'; - ele ira substituir em tempo de execução a "," por ".", e depois de salvar colocar decimalseparator = ','. Pois, se você deixar da forma que está irá influenciar na configuração da moeda de toda sua aplicação, pois altera o ambiente do windows. . Espero ajudar.

if SaveDialog1.Execute then // se ele apertou salvar então aqui fica true e entra nas instruções abaixo senao ele não faz nada. begin // as instruções de salvar o arquivo end;

Andei pesquisando sobre instalação de pacotes dentro do delphi 2007 ;D Como eu utilizo mais o delphi 7.0 (não sei muito utilizar o 2007, mas espero ajudar). Siga os passos abaixo : (parecido com o delphi 7.0, na verdade para mim é igual) # No menu Component > Install Packages… # Clique no botão Add… # Selecione <o arquivo bpl>, que se encontra na pasta package que você mencionou. # E pronto. Ou.... você pode apenas clicar em cima do <pacote.pkg> que está na pasta package e depois clicar em install que aparecerá logo depois de abrir o pacote. Para maior comodidade e para não ter problemas, pegue os arquivos <bpls> e coloque na pasta bpl do delphi... acredito que fica em : <raiz do delphi>\projects\bpl. Att, Luis Ricardo *** espero ajudar com esta informação.

DevExpress.ExpressNavBar.Suite.v1.24.for.Delphi.BCB.Full.Source-SSG esse componente é o que serve para você fazer o menu estilo windows xp ... NavBar.

Para formatar no caso os valores. Voce pode utilizar a função : FormatFloat ('#,##0.00', valor) isso irá retornar uma string FormatFloat (<mascara>, <valoremfloat>); Ou veja no Grid qual o campo você irá formatar e coloque a mascara desejável. Att. Luis Ricardo

Problema resolvido.

Verifique o componente DevExpress. Os componentes da DevExpress possui muitas desses layouts para se trabalhar. Grids, Views, Menus. Procure nas abas de componentes, caso não encontre me avise. Pois não sei ao certo se o Delphi 2007 vem com esse componente como nativa. Att Luis Ricardo

Crie um formulário para isso. Formulário simples com a informação que deseja mostrar no momento do load. Chame-o e aplique um refresh no momento da execução. Quando o processo que está executando em paralelo terminar, voçê mata o form. Nomedoformulario := nil; Isso no FormClose; Att. Luis Ricardo. ...

Utilizo o FireBird. Versao: 1.5, 2.0. Aconselho ;D E conexão utilizo o DBExpress ... ;D

Só para ajudar mais. Qualquer operação no Banco de Dados e seus campos sempre observe os eventos do TTable e do TQuery, pois sempre irá encontrar ações úteis. :D

Você tem mais alguma informação sobre o programa ? Isso ajuda... Att. Luis Ricardo

Abaixo segue um exemplo de backup, o usuário escolhe o arquivo que deseja realizar backup e depois ele escolhe o caminho onde ele deseja salvar este backup... Como eu não sabia qual ao certo de qual extensão se trabalhar eu generalizei para todos os arquivos. (Isso irá funcionar para os arquivos mdb do Access normalmente). Espero ajudar e esclarecer algo sobre sua duvida. Att. Luis Ricardo unit UFrmBkpRst; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons; type TFrm_BkpRst = class(TForm) SpeedButtonBackup: TSpeedButton; SpeedButtonClose: TSpeedButton; OpenDialog1: TOpenDialog; SpeedButtonProcurar: TSpeedButton; GroupBox1: TGroupBox; EditCaminhoOrigem: TEdit; EditCaminhoDestino: TEdit; Label1: TLabel; Label2: TLabel; SaveDialog1: TSaveDialog; procedure SpeedButtonProcurarClick(Sender: TObject); procedure SpeedButtonCloseClick(Sender: TObject); procedure SpeedButtonBackupClick(Sender: TObject); private { Private declarations } extensao: string; public { Public declarations } end; var Frm_BkpRst: TFrm_BkpRst; implementation {$R *.dfm} procedure TFrm_BkpRst.SpeedButtonProcurarClick(Sender: TObject); var tamanhodocaminho: integer; begin if OpenDialog1.Execute then Begin EditCaminhoOrigem.Text := OpenDialog1.FileName; tamanhodocaminho := Length(OpenDialog1.filename); extensao := Copy(OpenDialog1.FileName, tamanhodocaminho-3, 4); end; end; procedure TFrm_BkpRst.SpeedButtonCloseClick(Sender: TObject); begin if Application.MessageBox('Deseja realmente sair?', 'Backup', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1) = IDYES then Close; end; procedure TFrm_BkpRst.SpeedButtonBackupClick(Sender: TObject); begin { Realiza backup do arquivo } if Application.MessageBox('Deseja realmente realizar o backup deste arquivo?', 'Backup', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1) = IDYES then begin if SaveDialog1.Execute then begin EditCaminhoDestino.Text := SaveDialog1.FileName + extensao; CopyFile(PChar(EditCaminhoOrigem.Text),Pchar(EditCaminhoDestino.Text),True); ShowMessage('Backup Realizado com Sucesso!'); end; end; end; end.

Eu irei construir aqui um backup para você... mas só me responda uma coisa, a pessoa seleciona qual o banco deseja fazer backup, horario ? demais assuntos a serem vistos nisso tudo, afinalll backup é uma coisa bem vasta... irei colocar um codigo bem simples.

Fiz testes com o que o Erso passou e esta funcionando normalmente, está mostrando -1. Att. Luis Ricardo

Yahh tambem quero aprender hihi ... Eu estava dando uma olhada no Report Builder e vi na aba dados e depois no meu arquivo Configuração do Banco de Dados.... Mas ai me perdi só vi no campo Tipo de Sessão a opção BDESession.... queria fazer uma conexão de teste com o Access 2007. Att. Luis Ricardo

Isso mesmo. procure algo relacionado a uses JPEG, o delphi irá identificar automaticamente as imagens sem precisar convertê-las. Att. Luis Ricardo

As informações que você passou raphanasc são poucas. Tem como detalhar mais. Att. Ricardo

ADO é um componente utilizado em operações com acesso a Banco de Dados, ele faz conexão com o seu database, e faz consultas, inserções, exclusões e alterações na base. Nas Paletas de componente do Delphi tem a paleta chamada ADO. Em termos gerais é um Objeto de Conexão. P.S: Coloque seu projeto no Winrar e também seu banco de dados. E faça uploado no rapidshare ou turboupload e me passe o link por aqui. No aguardo. Atenciosamente, Luis Ricardo

Verifique se em algum local do código você não está limpando os valores dos outros. E antes de salvar ou da um POST (tanto faz) utilize ADOTable1.UpdateRecord; Coloque no ONCalcFields tambem -> ADOTable1.UpdateRecord; Espero que funcione hehe ^^"

Verifique este link. Tem algo muito bom sobre desabilitar o Gerenciador de Tarefas. http://www.forum-invaders.com.br/phpBB/vie...2&t=8542449 :P