Fórum Pesquisa na base de dados #165533
14/06/2003
0
Quero fazer uma pesquisa na minha base de dados de modo que os resultados sejam vistos no DBGrid. A pesquisa pode ser por CPF ou nome. Depois que aparecer o resultado no DBGrid quero que clicando duas vezes em um dos itens apareça uma janela com o registro daquele cliente. É possivel fazer isso? Se for, gostaria de saber como.
Valeu galera!
Valeu galera!
Denysk
Curtir tópico
+ 0
Responder
Posts
18/06/2003
Fer
coloque um botão, um edit, uma query, um datasource, um dbgrid ... faça todas ligações e coloque no seu botão de pesquisa assim:
ou seja ele pesquisa todos valores aproximados de clientes na sua tabela de pedidos.
depois coloque no evento onDblClick do grid algo assim
ou seja ele pega o codigo da query pesquisada, guarda em uma variavel fecha o form, abre o form de cadastro e localiza o registro ....
Cabe a vc aperfeiçoar o código para sua necessidade ..
falow
with Query1 do begin Close; SQL.Clear; SQL.Add(´select * from tabPedido where Cliente like ´´´+Edit1.text+´¬´´´); Open; end;
ou seja ele pesquisa todos valores aproximados de clientes na sua tabela de pedidos.
depois coloque no evento onDblClick do grid algo assim
var varcod:integer; begin varcod:=Query1CodPedido.AsInteger; Close; application.CreateForm(Tfrmpedido,frmpedido); frmPedido.show; DM.TbPedido.locate(´CodPedido´,varcod,[]);
ou seja ele pega o codigo da query pesquisada, guarda em uma variavel fecha o form, abre o form de cadastro e localiza o registro ....
Cabe a vc aperfeiçoar o código para sua necessidade ..
falow
Responder
Gostei + 0
18/06/2003
Marconi
Para pesquisar voce filtra a tabela.
procedure.Tform1.Button1Click(sender);
begin
tabela.filtered:=true;
tabela.filter:=´cpf = ´´´+trim(edit1.text)+´*´´´;
tabela.refresh;
end;
Lembrando que todas as aspas são simples.
Quando clicar o botão1 a dbGrid só vai mostrar os registros cujo cpf iniciem pelos números que voce colocou na caixa de texto edit1.
Para mostrar os demais dados voce pode utilizar o evento OnDoubleClick da dbGrid e abre outro form com os demais campos do registro em questão.
Marconi
procedure.Tform1.Button1Click(sender);
begin
tabela.filtered:=true;
tabela.filter:=´cpf = ´´´+trim(edit1.text)+´*´´´;
tabela.refresh;
end;
Lembrando que todas as aspas são simples.
Quando clicar o botão1 a dbGrid só vai mostrar os registros cujo cpf iniciem pelos números que voce colocou na caixa de texto edit1.
Para mostrar os demais dados voce pode utilizar o evento OnDoubleClick da dbGrid e abre outro form com os demais campos do registro em questão.
Marconi
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)