(Resolvido) Como Faz Para Só Digitar O Codigo Do Cliente E Já Bus

[robinhocne]

Gostaria de saber como faz para por exemplo:

No edit do codigo só digitar o codigo do cliente e assim que der tab, para ir no campo do nome aparecer o nome dele?

Estou utilizando isso mas não deu certo, achei na net e implementei do meu jeito.

If ((Length(trim(txtCod.Text))=0) or (not ConsultaRegistros('Alunos','Nome','Codigo=' + txtCod.Text))) then
   txtAlu.Text := LeDados('Nome');

Resolvido, fiz desse jeito:

procedure Tfrmcadlan.txtcodExit(Sender: TObject);
begin
  ConsultaRegistros ('Alunos', 'Nome', 'Codigo =' + Copy (TxtCod.Text, 1, 6));
   TxtAlu.Text := LeDados ('Nome');
end;

Editado Outubro 17, 2007 por robinhocne

[newfenix]

Faz o seguinte...

Declare o db no uses do teu forme.

If tabela.locate('codigo',edit1.text,[Lopartialkey,locaseinsensitivve])=false then

begin

showMessage('Cliente inválido');

exit;

end

else

Edit2.text:=Tabela.FieldByName('Nome').AsString;

Edit3.text:=Tabela.FieldByName('Fone').AsString;

e assim por diante...

Gostaria de saber como faz para por exemplo:

No edit do codigo só digitar o codigo do cliente e assim que der tab, para ir no campo do nome aparecer o nome dele?

Estou utilizando isso mas não deu certo, achei na net e implementei do meu jeito.

If ((Length(trim(txtCod.Text))=0) or (not ConsultaRegistros('Alunos','Nome','Codigo=' + txtCod.Text))) then
   txtAlu.Text := LeDados('Nome');

Resolvido, fiz desse jeito:

procedure Tfrmcadlan.txtcodExit(Sender: TObject);
begin
  ConsultaRegistros ('Alunos', 'Nome', 'Codigo =' + Copy (TxtCod.Text, 1, 6));
   TxtAlu.Text := LeDados ('Nome');
end;