Consultar No Locate
19/08/2003
0
Tenho um Banco de Dados onde tenho um botão que faz pesquisa com o Locate usando o código abaixo, só que tem um problema: ao clicar no botão ele só localiza a primeira vez. Exemplo vou localizar José; ele só localiza o primeiro, gostaria de saber como modificar o código Abaixo para que o locate procure todos os José’s do banco de dados.
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
L0pt : TLocateoptions;
begin
if Checkbox1.Checked then
Include(L0pt, lopartialkey);
if Checkbox2.Checked then
Include(L0pt, locaseInsensitive);
if not table1.Locate(Combobox1.Text,Edit1.Text,L0pt) then
ShowMessage(´Cliente Não Encontrado.´);
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
L0pt : TLocateoptions;
begin
if Checkbox1.Checked then
Include(L0pt, lopartialkey);
if Checkbox2.Checked then
Include(L0pt, locaseInsensitive);
if not table1.Locate(Combobox1.Text,Edit1.Text,L0pt) then
ShowMessage(´Cliente Não Encontrado.´);
Xadriano
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)