Código
ou seja a busca pode ser feita por vários tipos de campo }
procedure TF_Principal.BitBtn7Click(Sender: TObject);
begin
inherited;
//esta linha permite que as linhas compreendidas por estes 2 comandos
// utilizem sempre a TB_AEscola
with TB_AEscola do
begin
// o comando locate permite que o conteudo do Edit_descrição seja localizado
// por um dado digitado parcialmente
Locate ('Alu_Cidade', Edit6.Text, [lopartialkey]);
// o If testa se a condição é falsa ou verdadeira se for falsa ela permite uma mensagem de erro
// e limpa o Edit_Codigo e o Edit_descrição se verdadeira ela preenche os campos de acordo
// com o registro selecionado no DBGrid
if Locate ('Alu_Cidade', Edit6.Text, [lopartialkey]) =False then
Begin
MessageDLG('Cidade Inexistente', mtError, [mbOk], 0);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
end
else
Begin
Edit1.Text := TB_AEscola.FieldByName('Alu_Cod').AsString;
Edit2.Text := TB_AEscola.FieldByName('Alu_Nome').AsString;
Edit3.Text := TB_AEscola.FieldByName('Alu_Tel').AsString;
Edit4.Text := TB_AEscola.FieldByName('Alu_Cel').AsString;
Edit5.Text := TB_AEscola.FieldByName('Alu_Idade').AsString;
Edit6.Text := TB_AEscola.FieldByName('Alu_Cidade').AsString;
end
end
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009