Daniel Sanches

fala Churc !!! blzz ?? olha !! infelizmente não tem como eu utilizar... no exemplo que eu dei, talvez até teria, porém, na verdade eu utilizo em outros tipos de campos como por exemplo: M - Masculino F - Feminino ou PR - Proprietário EP - Empregado eu até poderia utilizar sua idéia em código, porém, com muitos DBComboBoxes, fica mais difícil ... se houver uma maneira mais fácil, é sempre bem vinda, mas valeu mesmo a dica ... fica aberto o tópico para mais idéias !! abraço !!!

alguém sabe uma forma de utilizar o DBComboBox desta maneira: tenho um dbcombobox com os seguintes itens ... 1. Item um 2. Item dois 3. Item tres porém, gostaria que ele retornasse para o campo apenas os números por exemplo ...(1, 2 ou 3) ... resumindo .. preciso que ele exiba as informações com descrições, porém salve no campo apenas parte da informação .. abraços !!!

via código seria algo assim: QRLabel1.BringToFront; abraço !!

é uma simples instrução SQL: query.sql.text:= 'select CAMPO2 from TABELA where CAMPO1=:P1'; query.parambyname('P1').value:= Edit1.text; abraço !!

pra você exibir apenas a data atual, é só você filtrar com a instrução SQL: query.sql.text:= 'select * from TABELA where DATA=:P_DATA'; query.parambyname('P_DADA').value:= date; abraço !!

porque você não utiliza DBEdit's para tal conexão com a query ??? te pouparia muito trabalho .... para você visualizar o nome do fornecedor na query, você precisa seleciona-lo na instrução SQL ... tipo: select PAGAMENTOS.*, FORNEC.NOME from PAGAMENTOS, FORNEC where PAGAMENTOS.COD_FORNEC = FORNEC.COD onde PAGAMENTOS é uma tabela com FK COD_FORNEC FORNEC é o seu cadastro de fornecedores com CODIGO ligado a COD_FORNEC abraços !!

você teria que fazer uma rotina parecida com esta: function TForm1.SomaHora(HORA1, HORA2: tdatetime): string; var HOR, MIN, SEG: integer; HOR2, MIN2, SEG2: integer; begin HOR:= hourof(HORA1); MIN:= minuteof(HORA1); SEG:= secondof(HORA1); HOR2:= hourof(HORA2); MIN2:= minuteof(HORA2); SEG2:= secondof(HORA2); HOR:= HOR + HOR2; MIN:= MIN + MIN2; SEG:= SEG + SEG2; SEG:= SEG + (MIN * 60) + (HOR * 3600); HOR:= trunc(SEG/3600); MIN:= trunc((SEG - (HOR * 3600)) / 60); SEG:= SEG - (HOR * 3600) - (MIN * 60); Result:= inttostr(HOR)+':'+formatfloat('00',MIN)+':'+formatfloat('00',SEG); end; abraços !!

finalmente consegui: select * from TABELA where concat( ifnull(CAMPO1,'') , ifnull(CAMPO2,'') , ifnull(CAMPO3,'') ) like "%TEXTO%" obrigado a todos !! abraços !!!

consegui chegar próximo com o seguinte: 'select * from TABELA where concat(CAMPO1,CAMPO2,CAMPO3) like "%TEXTO%"' porém, se o CAMPO3 por exemplo for Null, ele me retorna Null, mesmo CAMPO1 e CAMPO2 contendo dados ... alguém tem alguma idéia ??

olha !! obrigado pela resposta, mas, não resolveu meu problema ... estou no aguardo de mais respostas ... abraço!!

Verdade Churc, não havia me atentado para este "pequeno" detalhe !! rsrsrsrs abraço !!

alguém sabe se tem como eu fazer uma consulta dessa forma: ao invés de: 'select * from TABELA where CAMPO1="TEXTO" or CAMPO2="TEXTO"' usar algo tipo: 'select * from TABELA where CAMPO1 or CAMPO2 = "TEXTO"' ou: 'select * from TABELA where CAMPO1+CAMPO2 = "TEXTO"' ou alguma idéia de concatenar os campos e fazer a checagem com apenas 1 parametro ... abraços !!

resolvi o problema .... button1.ClientOrigin obrigado a todos !!! abraço!!

como faço pra saber a posição de um botão na tela ??? por exemplo: tenho um botão em um form com as propriedades Left=10, Top=10... porém, preciso saber a posição dele na tela inteira e não no form ... espero que tenham entendido ... abraço !!

você pode utilizar o evendo OnKeyDown do form ... procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = 116 then //F5 begin showmessage('F5'); end; end; quando a você ativar as teclas dentro de um processo: dentro de um while por exemplo, você deve incluir a linha "Application.ProcessMessages" abraço!!

olá !! olha !! trabalhando com sql, você transfere por exemplo os dados de uma query para outra passando o código SQL de uma para outra e abrindo-a ... quanto ao seu problema com o DBGRID e os DBEdits é o seguinte: 1. você pode tirar o vínculo dos DBEdits com o DataSet e quando você der o click duplo no DBGRID, você refaz esses vinculos dos DBEdits... 2. você pode vincular os DBEdit em uma QUERY e quando você der um duplo click no DBGRID você filtra esse registro específico na QUERY vinculada com os DBEdits... abraços !!

só observando que: o .FREE é simplesmente pra destruir o form, só não se esqueça de destruir a instancia do form quando não utiliza-la mais... fico feliz por ter ajudado !! abraços !!

você teria que criar outra instancia do form, por exemplo: VFORM: TForm; begin VFORM:= Form1.Create(self); VFORM.showmodal; VFORM.Free; end;

é o seguinte... quando você abre a TQUERY, ela abre os registros filtrados do banco de dados... o DBGRID exibe esses dados filtrados... se você fizer qualquer tpo de alteração no banco de dados, a query deverá novamente ser executada, para que atualize os dados... o dbgrid, automaticamente exibirá os dados atualizados... resumindo: pra você atualizar os dados exibidos no DBGRID é só você fechar e abrir a TQUERY novamente... abraço !!

é exatamente essa que te falei ... ele pula o foco de controle... por exemplo: você tem os seguintes componentes no seu form (a propriedade TabOrder é a ordem de focus do componentes) edit1 (TabOrder=0) edit2 (TabOrder=1) edit3 (TabOrder=2) edit4 (TabOrder=3) button1 (TabOrder=4) button2 (TabOrder=5) se você está no Edit3 por exemplo e executar o comando "Perform(WM_NEXTDLGCTL,0,0)" ele pula para o Edit4... se você estiver no edit4 e executar o comando, ele pula para o button1 .... entendeu ?? abraços !!

a função dele é: quando você teclar <ENTER> ele pula para o próximo foco... já estava esquecendo... porém pra funcionar a função acima, a propriedade KeyPreview do form deve ser True... abraço!!

olha !! sempre utilizei desta forma e sempre funcionou .. vamos atentar para as possibilidades de erro ... você adicionou sua unit na cláusula uses ??? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ActnList, StdCtrls, AppEvnts, Unit2, Buttons; *tem que ser na cláusula uses logo após interface ... se você declarou corretamente, poste sua unit de funções e a unit que está utilizando-a para podermos estudar ... abraço

uma forma simples de se fazer isso: 1. Vá em File -> New -> Unit... (ela vai ficar tipo a unit abaixo) unit Unit2; interface uses QDialogs; procedure mens(texto: string);//aki você declara a procedure ou function.. implementation procedure MENS(texto: string);//aki você define as procedures ou functions begin showmessage(texto); end; end. 2. na cláusua uses da unit onde você vai utlizar suas funções, você declara a sua unit... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ActnList, StdCtrls, AppEvnts, [color="#FF0000"]Unit2[/color], Buttons; qualquer dúvida é só postar....

vou te dar um exemplo: var VITENS: string; begin VITENS:= AnsiReplaceStr(Edit1.Text,',',#13); listbox1.Items.Text:= VITENS; substituir Edit1.Text pelo campo desejado ... substituir listbox1 pelo compobox desejado... no exemplo acima, estou substituindo todas as vírgulas(,) do campo por um enter.... qualquer coisa é só postar novamente ... abraço!!

com o código abaixo você limpa todos os edits do form1 .... procedure TForm1.Button1Click(Sender: TObject); var I: word; begin for I:=0 to form1.ComponentCount-1 do if form1.Components[I].ClassType = TEdit then (form1.Components[I] as TEdit).Clear; end;