Pesquisa
Tenho um formulario de pesquisa com codigo SQL e preciso da seguinte orientação:
Ao digitar a primeira letra ele busca o cliente , preciso de quando for localizado o mesmo clicar em cima do nome e ele abrir a tela de cadastro para visualizar os dados do cliente.
Preciso somente do codigo para abrir a tela de cadastro com dois clicles em cima do nome.
Desde já agradeço.
Wesley Francisco
Wesleyfsf@hotmail.com
Ao digitar a primeira letra ele busca o cliente , preciso de quando for localizado o mesmo clicar em cima do nome e ele abrir a tela de cadastro para visualizar os dados do cliente.
Preciso somente do codigo para abrir a tela de cadastro com dois clicles em cima do nome.
Desde já agradeço.
Wesley Francisco
Wesleyfsf@hotmail.com
Wesleyfsf
Curtidas 0
Respostas
Datorre
15/07/2003
Olá Wesley
Bom, faço o seguinte, achu q é +- a mesma coisa q vc quer.
façu uma busca em uma determinada tabela, essa busca vai para um dbgrid, quando se clica 2x emcima de um nome, mostro os detalhes deste cliente.
vou dar apenas um exemplo de como pegar o nome do cliente, por exemplo do grid e jogar numa mensagem, isso é o básico de tudo, com isso vc vai mexendo e consegue fazer o q vc quiser.
No evento OnDblClick do dbGrid, coloca:
ShowMessage(Query1.Fields[0].AsString);
cada campo q vc fez a busca está na query, comeácando do 0 os campos estão na ordem q aparecem no dbgrid. Assim vc consegue pegar a informação q quer. depois com isso vc pode jogar o conteúdo em edit´s, por exemplo e dar um Update pra gravar. Mas ae é cum vc...
qq coisa, estamos ae...
Bom, faço o seguinte, achu q é +- a mesma coisa q vc quer.
façu uma busca em uma determinada tabela, essa busca vai para um dbgrid, quando se clica 2x emcima de um nome, mostro os detalhes deste cliente.
vou dar apenas um exemplo de como pegar o nome do cliente, por exemplo do grid e jogar numa mensagem, isso é o básico de tudo, com isso vc vai mexendo e consegue fazer o q vc quiser.
No evento OnDblClick do dbGrid, coloca:
ShowMessage(Query1.Fields[0].AsString);
cada campo q vc fez a busca está na query, comeácando do 0 os campos estão na ordem q aparecem no dbgrid. Assim vc consegue pegar a informação q quer. depois com isso vc pode jogar o conteúdo em edit´s, por exemplo e dar um Update pra gravar. Mas ae é cum vc...
qq coisa, estamos ae...
GOSTEI 0
Rjanuzzi
15/07/2003
Tenho um código pronto, que acabei de fazer, talvez te ajude:
procedure TForm9.DBGrid1DblClick(Sender: TObject);
var
aux: integer;
begin
aux := query1.Fields[0].Value; //-> no seu caso ´.Asstring´
with form2.Table1 do
begin
open;
Locate(´Matricula´,aux,[locaseinsensitive]);
form2.Show;
end;
form9.Hide;
end;
rjanuzzi
procedure TForm9.DBGrid1DblClick(Sender: TObject);
var
aux: integer;
begin
aux := query1.Fields[0].Value; //-> no seu caso ´.Asstring´
with form2.Table1 do
begin
open;
Locate(´Matricula´,aux,[locaseinsensitive]);
form2.Show;
end;
form9.Hide;
end;
rjanuzzi
GOSTEI 0