Formul�rio de Pesquisa

Question

Ol� pessoal!Procurei pelo f�rum e n�o encontrei exatamente o que preciso...Resumidamente � o seguinte... em um form, tenho um dbgrid que lista todos os registros da minha tabela, e um bot�o �Pesquisar...

Paullsoftware · Answer

amigo o que vc pode fazer � tratar as informa��es escolhidas no ComboBox tratando o indice...

Case ComboBox1.ItemIndex of
 0://Indice que Representa o campo Codigo
   begin
    TbCadastro.Locate(�Nome�,StrToInt(Edit1.Text),[]);
   end;
 1://Indice que representa o campo nome
   begin
     TbCadastro.Locate(�Codigo�,Edit1.Text,[loPartialKey]);
   end;
....
end;/fo Case

espero ter ajudado :wink:

Titanius · Answer

Amigo,voce pode chamar a tela do Combo como Modal, assim voc� ela:[code:1:f97b513aaa]if FormCombo.ShowModal = 1 thenbegin// ele localizouend;[/code:1:f97b513aaa]na tela do combo, se localizou o registro voce coloca[code]ModalResult := mrOk;/code]Espero ter ajudado.[]s...

Paullsoftware · Answer

supondo que sua janela de pesquisa tenha: 1 ComboBox, 1 Edit, 1 But�o e 1 Grid...
Voc� coloca o codigo que te passei no bot�o pesquisar ou no onKeyPress do Edit...

Supondo que os itens do seu combobox seja: Codigo, Nome, etc...

Case ComboBox1.ItemIndex of 
 0://Indice que Representa o campo Codigo 
   begin 
    TbCadastro.Locate(�Nome�,StrToInt(Edit1.Text),[]); 
   end; 
 1://Indice que representa o campo nome 
   begin 
     TbCadastro.Locate(�Codigo�,Edit1.Text,[loPartialKey]); //precisa da Uses DB
   end; 
.... 
end;//do Case

espero ter ajudado