Fórum Busca geral em banco de dados #170960

//para começar a pesquisa
procedure TF_Cliente.BotProcuraClick(Sender: TObject);
var
parte : string;
Todo : string;
begin
parte := EditProcura2.text;
DM_Agrofax.TabCliente.first;
while not DM_Agrofax.TabCliente.eof do
begin
todo := DM_Agrofax.TabCliente.fieldbyname(´NomeCliente´).asstring;
if pos (parte, todo) > 0 then
exit;
DM_Agrofax.TabCliente.next;
end;
showmessage(´Cliente não Encontrado´);
end;

// para continuar a pesquisa e a primira alternativa encontrada não
// satisfazer a sua necessidade
procedure TF_Cliente.BotContinuaClick(Sender: TObject);
var
parte : string;
Todo : string;
begin
parte := EditProcura2.text;
if not DM_Agrofax.TabCliente.eof then DM_Agrofax.TabCliente.next;
while not DM_Agrofax.TabCliente.eof do
begin
todo := DM_Agrofax.TabCliente.fieldbyname(´NomeCliente´).asstring;
if pos (parte, todo) > 0 then
exit;
DM_Agrofax.TabCliente.next;
end;
showmessage(´Final do Arquivo !!!´);
EditProcura2.clear;
BotContinua.Enabled := false;
BotProcura.enabled := false;
end;