Pesquisa na base de dados

Delphi

14/06/2003

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!


Denysk

Denysk

Curtidas 0

Respostas

Fer

Fer

14/06/2003

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:

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


GOSTEI 0
Marconi

Marconi

14/06/2003

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


GOSTEI 0
POSTAR