Vivendo&Aprendendo

Olá Jhonas... Colocquei no oncreate do form: PnTopo.DoubleBuffered := True; //Painel onde está a Label que esta andando. ImgPrinc.DoubleBuffered := True; //Timage onde está uma imgem de plano de fundo que fica piscando, neste componente não aceitou esse comando FrmPrincipal.DoubleBuffered := True; //Form onde estão o TImage e o label que está andando. Não deu certo a imagem continua piscando. Abraços

Olá pessoal! Seguinte, preciso colocar uma label em um panel para que ela fique andando sempre mostrando o valor que a empresa tem a receber e a pagar, isso eu já fiz. O problema é o seguinte, tenho um timer para fazer a label andar e tenho uma imagem como plano de fundo do meu sistema que cada usuário tem a sua própria conforme o gosto, essa imagem eu salvo apenas o caminho no banco de dados, e ai vem o problema quando a label começa a andar no panel e imagem fica piscando a cada "passo" que a label dá. Porque isso acontece? Fiz um teste em um form sozinho com a label, o timer, image, e buscando a imagem de fundo do banco e deu certinho, só fica piscando na minha aplicação. Abraços Alexandre

Olá Alex Freitas... Suponho que você esteja usando os componentes da paleta ADO então segue abaixo os comandos: Inserir registro: Append; Salvar: Post; Deletar: Delete; Editar: Edit; Cancelar: Cancel. Todos os comandos devem ser antecedidos pelo nome do componente Ado que você estiver usando. Você pode colocar cada um em um botão diferente. Abraços

Verifica se o tipo do campo do banco de dados é o mesmo tipo de dados que você está tentando adicionar nele...

Olá Além do que o colega Denis Courcy informou, uma certa vez ocorreu isso comigo e era porque eu tinha campos em um tabela que recebia informções de outra tabela e o tamanho dos campos eram diferentes. Abraços

Olá faz a consulta da seguinte forma: query1.close; query1.sql.clear; query1.sql.add('select * from alunos'); query1.sql.add('Where Nome Like :pNome '); query1.Parameters[0].Value := EdtBusca.Text; query1..open; Espero ter ajudado Abraços

Resolvido... posso usar Double, Float e tratar como valor R$ no sistema... Vlw

Galera converti uma base de dados do access para o mysql, até ai beleza. O problema é o seguinte: - no access os campos R$ são denominados moeda (currency) e no mysql qual tipo de campo uso para valores monetários? Abraços

Olá Você pode desenvolver o seu sistema normalmente e depois adicionar um atalho dele no Iniciar do windows, que fará com que ele inicie junto ao sistema operacional. Ou você poderá utilizar o registro do windows para realizar esse procedimento. Os códigos abaixo são para adicionar e remover do registro: Adicionar procedure ExecutanaInicializacao(Titulo, Programa : String); var Registry : TRegistry; begin Registry := TRegistry.Create; try Registry.RootKey := HKEY_LOCAL_MACHINE; Registry.OpenKey('\Software\Microsoft\Windows\'+ 'CurrentVersion\Run', False); Registry.WriteString(Titulo,Programa); Registry.CloseKey; finally Registry.Free; end; end; Remover procedure RemovedaInicializacao(Titulo : String); var Registry : TRegistry; begin Registry := TRegistry.Create; try Registry.RootKey := HKEY_LOCAL_MACHINE; Registry.OpenKey('\Software\Microsoft\Windows\'+ 'CurrentVersion\Run', False); Registry.DeleteValue(Titulo); Registry.CloseKey; finally Registry.Free; end; end; Chame ela desta forma: ExecutaNaInicializacao('Meu Programa', Application.ExeName); Esse código acima você pode colocá-lo em um CheckBox para marcar caso queira iniciar junto com o windows. P.S.: Não testei. Abraços

Arrais para buscar todos os nomes relacionados com o que você digitar no edit, faça o seguinte: Coloque este código no evento OnChange do Edit de busca Nome_Da_Tabela.Close; Nome_Da_Tabela.SQL.Clear; Nome_Da_Tabela.SQL.Add('Select * From Nome_Da_Tabela); Nome_Da_Tabela.SQL.Add('Where Nome_Do_Campo Like :pNom '); Nome_Da_Tabela.SQL.Add('Order By Nome_Do_Campo); //aqui ele deixará em ordem alfabética Nome_Da_Tabela.Parameters[0].Value := '%' +Edit1.Text + '%'; Nome_Da_Tabela.Open; Os sinais de % indicam a forma de busca que será feita, tipo: '%'+Edit1.Text = ele buscará tudo o que terminar com o que estiver digitado no edit; '%'+Edit1.Text+'%' = ele buscará tudo que contenha o que estiver digitado no edit; Edit1.Text+'%' = ele buscará tudo o que começar com o que estiver digitado no edit. Abraços

Cara com o DbComboBox eu não sei como fazer isso... mas você não poderia utilizar um Edit ou DbEdit e fazer com que ao digitar ele fosse auto completando com os registros da tabela? Caso sim posta ai que eu te mando o código. Abraços

Olá Arrais Junior, Os códigos mostrados pelo companheiros devem ser colocados no OnClick do botão que você usará para calcular os valores dos dois edit's. Tipo: Como mencionado pelo Denis Courcy, para somar valores inteiros no Onclick do botão coloque: var x : integer; ... x := strtoint(edit1.text) + strtoint(edit2.text); edit1.text := inttostr(x); Se os valores não forem inteiros: var x : double; ... x := strtofloat(edit1.text) + strtofloat(edit2.text); edit1.text := floattostr(x); Não use "," (virgula) para ponto flutuante. use "." (ponto). Esse código irá somar o valor do Edit1 com o valor do Edit2 e depois irá mostrar a soma no Edit1. E como o amigo Eder Moraes mencionou se o resultado de conter virgulas então coloque assim: FormatFloat('###,##0.00',X); Logo o código para somar números inteiros do evento OnClick do botão ficará assim: procedure TForm1.Button1Click(Sender: TObject); Var X : Integer; begin x := strtoint(edit1.text) + strtoint(edit2.text); edit1.text := inttostr(x); end; Se caso for subtração apenas substitua o sinal para de + para -. Abraços

Olá Eder, Como está configurado a propriedade Style do componente DbComboBox? Fiz um teste aqui, mas com o access e funcionou certinho. A propriedade Style deve estar como default, ou seja, csDropDown. Abraços

Resolvido... Não sei o porque aconteceu isso, mas eu removi todos os relatórios do projeto e adicionei novamente sem mudar nada e funcionou... Obrigado ai ao Denis Courcy pela ajuda que Deus te abençoe...

Use o mesmo exemlo que o Churc te passou... Mas no edit você digita C ou D por exemplo e em outro edit ou variável ou label sei la você coloca o restante do caminho que é: :\Arquivos de programas..... o código ficará mais ou menos assim: ShellExecute(Handle, 'open', PChar(Edit1.Text+Edit2.Text), nil, nil, SW_SHOWNORMAL); Isso usando dois edits só para você entender... Lembresse que se você digitar um letra de disco local e neste não existir o caminho que você deseja acessar dará erro. Abraços

Já fiz isso, já fechei tudo, reiniciei o pc, desliguei e liguei novamente, instalei o pfd creator, e nada... simplesmente na aplicação não funciona. Fiz um teste em outras aplicações minhas que usam o mesmo procedimento e o QuickRepotr e está funcionando perfeitamente, somente nesta aplicação não funciona. É muito estranho.

Ok Denis, mas olha o que aconteceu, criei um outro relatório usando o mesmo Quick e funcionou certinho, mas na minha aplicação não funciona. Estranho demais não é?

Olá Denis É estranho fazer isso, mas eu configurei minha impressora padrão e reiniciei o pc e continua a mesma coisa. O erro ocorre quando eu solicito para dar o preview e nem solicito para imprimir. Eu configurei a impressora para aquela que já vem no windows a Microsoft Office Document Image Writer, e da o mesmo erro. O engraçado é que estavam todos funcionando corretamente. Onde eu encontro essa PDF creator? Abraços

Galera é o seguinte, os relatórios estavam funcionando certinho e ai do nada todos pararam de de funcionara e esta dando o seguinte erro ao serem gerados: Access violation at address 00541DA7 in module 'VirtuaVeiculos.exe'. Read of address 000002F8. Pessoal o que pode ser isso, não deve ser algo complicado, mas não estou conseguindo descobrir. Uso Access e Delphi 7 Abraços

Olá VDLR, Eu faço da seguinte maneira: - coloco no form um componente OpenPictureDialog; - coloque um componente TImagem; - Crio no banco na tabela usuários um campo tela do tipo texto, para salvar o caminho da imagem; - No evento OnActivate do form onde esta o componente TImage uso este código para verificar qual o caminho da imagem e abrir a imagem correta: Try OpenPictureDialog.FileName := TABELA.FieldByName('CAMPO').AsString; ImgPrinc.Picture.LoadFromFile(OpenPictureDialog.FileName); except Application.MessageBox('A Figura não foi encontrada!','Aviso',mb_IconInformation +mb_ok); end; - Crie um menu para dar ao usuáio a opção para alterar a imagem segundo o gosto dele e no evento OnClick utilize o seguinte código: TABELA.Active := True; TABELA.Edit; OpenPictureDialog.Execute; Tela := OpenPictureDialog.FileName; TABELA+CAMPO.Value := Tela; TABELA.Post; ImgPrinc.Picture.LoadFromFile(OpenPictureDialog.FileName); TABELA.Active := False; Onde Tela é uma variável que recebe do OpenPicture o local da imagem. Basicamente é isso, eu utilizo aqui e funciona redondinho savando apenas o caminho da imagem no banco de dados e cada usuário pode personalizar o sistema conforme seu gosto. Abraços

Olá Não consegui entender certo o que você deseja fazer, pois no primeiro post você citou que queria abrir um programa e agora deseja apenas abrir no disco local. Explica realmente o que você deseja fazer, pois pelo menos eu não captei a sua dúvida. Como o programa irá saber o que você deseja fazer apenas digitando a letra do disco local? Abraços

Olá Denis Courcy, me desculpe a demora para responder, é que não estava com internet. Sua resposta foi excelente, muito obrigado. Abraços

Galera como eu faço para deixar os arquivos do banco de dados na pasta da minha aplicação em vez de deixar no C:\Arquivos de Programas\MySQL\Data, gostaria que ficasse dentro de uma pasta no mesmo caminho de minha aplicação. Tem como fazer isso? Abraços

Qual é a sua dúvida? Este tópico é praticamente o mesmo do outro. Segue no outro tópico a resposta sobre a consulta. Se caso a sua dúvida deste tópico for igual a do outro solicite o fechamento deste tópico e segue apenas naquele, caso contrário esclareça a sua dúvida neste tópico para que os integrantes do forum possam lhe ajudar. Abraços

Olá Arrais Junior Para pesquisas com AdoTable, você deverá usar a função Locate em um botão ficará da seguinte form: Nome_Da_Tabela.Locate('Nome_Do_Campo_Do_Banco',Edit1.Text,[LoPartialKey,LoCaseInsensityve]); Isso fará com que as informações digitadas no edit seja buscadas na tabela do banco de dados. Ou se preferir usar algo com mais recursos, utilize o componente AdoQuery que ai voçê poderá usar sql's nas consultas, o que fará ter maior rendimento e melhor performance. Abraços Alexandre