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 clicono 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
