Como colocar o codigo e aparecer o nome do cliente
04/01/2020
0
Hola
Boa tarde
Estou com dificuldades em fazer uma parte do programa que estou desenvolvendo em delphi é uma tela de cadastro de veiculos onde eu cadastro o chassis modelo serie cor e vincula pelo nome do proprietario, já fiz a tela de cadastro de cliente e o codigo do cliente é o id, aminha duvida é a seguinte que pegar no formulario de cadastro de veiculo o codigo do cliente e ele me retornar em uma dbedit o nome do cliente e gravar na dbgrid do cadastro do veiculo sem botao de busca automaticamente ao dar tab ele preencher automaticamente
Boa tarde
Estou com dificuldades em fazer uma parte do programa que estou desenvolvendo em delphi é uma tela de cadastro de veiculos onde eu cadastro o chassis modelo serie cor e vincula pelo nome do proprietario, já fiz a tela de cadastro de cliente e o codigo do cliente é o id, aminha duvida é a seguinte que pegar no formulario de cadastro de veiculo o codigo do cliente e ele me retornar em uma dbedit o nome do cliente e gravar na dbgrid do cadastro do veiculo sem botao de busca automaticamente ao dar tab ele preencher automaticamente
Socrates Foschera
Curtir tópico
+ 0
Responder
Posts
15/01/2020
Anderson Gonçalves
Fala boy,
Seguinte...
Use um edit e não um dbedit
Use uma ADOQuery
No evento OnExit do Edit coloque esse código;
begin
With ADOQuery1 do
begin
close;
sql.clear;
sql.add('Select * from Tabela');
sql.add('where Campo = :Parametro');
parameters.parambyname('parametro').value := Edit1.Text;
open;
if ADOQuery1.Recordcount = 0 then
ShowMessage('Código não encontrado')
else
begin
Edit2.Text := ADOQuery1.FieldByName('Modelo').AsString;
Edit3.Text := ADOQuery1.FieldByName('Chassi').AsString;
// Aqui você preenche os edits correspondentes aos seus dados.
end;
End;
Boy se tiver muita dificuldade entra em contato comigo amanhã de manhã
Skype: anderson@case13.com.br
Seguinte...
Use um edit e não um dbedit
Use uma ADOQuery
No evento OnExit do Edit coloque esse código;
begin
With ADOQuery1 do
begin
close;
sql.clear;
sql.add('Select * from Tabela');
sql.add('where Campo = :Parametro');
parameters.parambyname('parametro').value := Edit1.Text;
open;
if ADOQuery1.Recordcount = 0 then
ShowMessage('Código não encontrado')
else
begin
Edit2.Text := ADOQuery1.FieldByName('Modelo').AsString;
Edit3.Text := ADOQuery1.FieldByName('Chassi').AsString;
// Aqui você preenche os edits correspondentes aos seus dados.
end;
End;
Boy se tiver muita dificuldade entra em contato comigo amanhã de manhã
Skype: anderson@case13.com.br
Responder
Clique aqui para fazer login e interagir na Comunidade :)