ActiveDelphi

[paulomaxter]

[Oseiasao]

procedure TFrmPesquisa.EdtNomeExit(Sender: TObject); // Cria uma função
var
SQL: TStringList ; // Cria uma variável do tipo TStringList
begin
SQL := TStringList.Create ; // CRIA UMA VARIÁVEL DO TIPO STRINGLIST
inherited;
try
if Tabela = 'CLIENTES' then
begin
SQL.Clear ; //LIMPA O QUE TIVER NA VARIÁVEL CASO ELA JA TENHA SIDO USADA
SQL.Add('SELECT ID, NOME_CLIENTE FROM CLIENTES WHERE NOME_CLIENTE STARTING' + QuotedStr(EdtNome.Text)) ;
//SELECIONA OS CAMPOS ID E NOME_CLIENTES NA TABELA CLIENTES ONDE O NOME_CLIENTE COMEÇA COM A LETRA DIGITADA NO EDIT EDTNOME
DmPrincipal.CDS_Pesquisa.CommandText := SQL.Text ; // Passa o valor pro CommandText
DmPrincipal.CDS_Pesquisa.Open ; EXECUTA
end;

end;
_________________
Melhor é o fim das coisas do que o principio delas .... (Salomão)