Amigo a ajuda foi valiosa, agradeço!!
A dica funcionou bem assim que começo a escrever os resultados vão
aparecendo na seqüência.
Como estou fazendo uma consulta deste tipo o btnPesquisar, não seria
necessário, ou seja não precisaria ter o botão.
Neste caso, qual seria o evento do EditConsultar que poderia ser
utilizado se eu declarasse uma procedure especifica?
procedure TfrmPrincipal.ConsultaAutomatica;
begin
try
QConsultar.Close;
QConsultar.SQL.Clear;
QConsultar.SQL.Add('SELECT ');
QConsultar.SQL.Add('CONTROLE, ');
QConsultar.SQL.Add('NOME, ');
QConsultar.SQL.Add('COMPLEMENTO,');
QConsultar.SQL.Add('NUMMERO, ');
QConsultar.SQL.Add('NOVO ');
QConsultar.SQL.Add('FROM ');
QConsultar.SQL.Add('TABELA01 ');
QConsultar.SQL.Add('where NOME like ' + #39 + '%' +
EditConsultar.Text + '%' + #39);
Memo2.Lines.AddStrings(Query1.SQL);
QConsultar.Open;
except
on e:exception do
begin
// caso ocorra algum erro mostra esta informação
MessageDlg('Erro abrindo Banco de Dados - QConsultar.
Mensagem: '+e.Message, mtError, [mbOk],0);
exit;
end;
end;
//verifica se o número informado existe
if QConsultar.RecordCount = 0 then
begin
MessageDlg('Não existem registros referente na base de dados.
Por favor verifique e repita a operação.', mtInformation, [mbOk],0);
exit;
end;
end;
Obs: Na propriedade do EditConsulta como ficaria?
btnPesquisar.OnClick(Sender);
Agradeço a ajuda!!
Boas Festas
