Preencher todos Dbedits do form.
02/04/2006
0
Oi gente, gostaria de uma ajudinha. Tenho um form com vários Dbedits que mostram os dados da minha tabela (Cad_Cliente), o que quero éo seguinte:
Quando entro no form os Dbedits estão todos limpos e quero colocar o código do cliente no Dbedit (Codigo_cli) e se ele encontrar este código na tabela me preencher todos os outros Dbedits com os dados da tabela.
Sera que alguém pode me ajudar?
Quando entro no form os Dbedits estão todos limpos e quero colocar o código do cliente no Dbedit (Codigo_cli) e se ele encontrar este código na tabela me preencher todos os outros Dbedits com os dados da tabela.
Sera que alguém pode me ajudar?
Peninha
Curtir tópico
+ 0
Responder
Posts
03/04/2006
Mvicente
Olá amigo!
Faça o seguinte: Use um edit normal e no evento onkeypress coloque o código, tipo assim:
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if (key = #13) then
with query do
begin
close;
params[0].asInteger := StrToInt(edt1.text);
open;
end;
end;
Espero ter ajudado.
Abraço!
Marcelo
Faça o seguinte: Use um edit normal e no evento onkeypress coloque o código, tipo assim:
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if (key = #13) then
with query do
begin
close;
params[0].asInteger := StrToInt(edt1.text);
open;
end;
end;
Espero ter ajudado.
Abraço!
Marcelo
Responder
03/04/2006
Paullsoftware
Olá amigo!
Faça o seguinte: Use um edit normal e no evento onkeypress coloque o código, tipo assim:
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if (key = #13) then
with query do
begin
close;
params[0].asInteger := StrToInt(edt1.text);
open;
end;
end;
Espero ter ajudado.
Abraço!
Marcelo
melhorando um pouco a sua ideia
A query para pesquisa deve ter +/- essa instrução SQL:
Select * From Cad_Cliente Where Codigo_Cli=:Cod
daí vc faz a pesquisa com o [b:7e41e44b90]TEdit[/b:7e41e44b90] normal no evento OnKeyPress
if (key = 13) then with query do begin close; params[0].asInteger := StrToInt(edt1.text); open; end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)