Query em tempo de execução

[andreluis78 0]

Olá a todos.
Criei um procedimento para verificar se um usuário está cadastrado no banco de dados.
Utilizo Firebird como BD e componentes Zeos para acessar o banco.
Resolvi criar uma query em tempo de execução para fazer a verificação. Não dá nenhum erro, porém, quando digito o nome do usuário no Edit e clico
no botão que executa o procedimento, ele dá ''usuário inexistente'', mesmo se o nome do usuário estiver cadastrado no banco.

 

Segue o código:

 

procedure Tfrm_login.SpeedButton1Click(Sender: TObject);
var Qry : TZQuery;
begin
  Qry:=TZQuery.Create(nil);
  Qry.Connection := dm_dados.ZConnection1;  //componente de conexão
  Qry.SQL.Add('select codigo, nome, acessar, user, pass from clientes');
  Qry.Open;
  if Qry.Locate('USER',Edit1.Text,[]) then
  begin
    ShowMessage('usuário cadastrado');
  end
  else
  begin
    ShowMessage('usuário inexistente');
    Edit1.SetFocus;
  end;
  FreeAndNil(Qry);
end;

 

Se alguém puder ajudar agradeço desde já.

Obrigado

[Eisenheim 67]

Olá!

 

Refatorando seu código:

 

procedure Tfrm_login.SpeedButton1Click(Sender: TObject);
var Qry : TZQuery;
begin
  try
    Qry            := TZQuery.Create(nil);
    Qry.Connection := dm_dados.ZConnection1;  //componente de conexão
    Qry.Close;
    Qry.SQL.Clear;
    Qry.Params.Clear;
    Qry.SQL.Add('select codigo, nome, acessar, user, pass from clientes where Lower( user ) = :user');
    Qry.Params[0].AsString := LowerCase( Edit1.Text )
    Qry.Open;
    //
    if Qry.RecordCount > 0 then
    begin
      ShowMessage('usuário cadastrado');
    end
    else
    begin
      ShowMessage('usuário inexistente');
      Edit1.SetFocus;
    end;
  finally    
    FreeAndNil(Qry);
  end;  
end;

O método locate não seria o mais recomendado para essa finalidade.