Preencher todos Dbedits do form.
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
Curtidas 0
Respostas
Mvicente
02/04/2006
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
GOSTEI 0
Paullsoftware
02/04/2006
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;
GOSTEI 0