(Resolvido) Validar login e senha (ADO)

[EMSO.EXE]

Olá, estou montando um sistema de academia e não estou conseguindo efetivar o login e senha, não consigo armazenar o resultado de uma consulta SQL na variável para usá-la na condição. Feito em Delphi 7. Agradeço a ajuda.

procedure TF_Logon.Button1Click(Sender: TObject);
   var var_login: string;
   var var_senha: string;
begin
  datamodule1.adoquery1.active:=false;
  datamodule1.adoquery1.sql.Clear;
begin
  var_login:=(DataModule1.ADOQuery1.SQL.Add('select * from tb_funcionario where login ="'+edit_login.text+'"'));
 var_senha:=(DataModule1.ADOQuery1.SQL.Add('select * from tb_funcionario where senha ="'+edit_passwd+'"'));
  if var_login=edit_login.text and var_senha=edit_passwd then
    begin
      F_Principal.ShowModal;
    end
  else
    begin
      ShowMessage('Login e senha incorretos!');
    end;
  datamodule1.adoquery1.active:=true;
end;
end;

[João Paulo Taraciuk]

Olá, tenta fazer algo mais ou menos dessa maneira:

procedure TForm1.Button1Click(Sender: TObject);
begin
with DataModule.ADOQuery1 do
  begin
    Active:=False;
    SQL.Clear;
    SQL.Add('Select * from tb_funcionario where login =:log and senha =:snh');
    Parameters.ParamByName('log').Value:=edit_login.Text;
    Parameters.ParamByName('snh').Value:=edit_passwd.Text;
    Active:=True;
    //================================================
    if RecordCount > 0 then
        F_Principal.ShowModal
      else
          ShowMessage('Login ou Senha incorretos, verifique');
  end;
end;

No caso, no IF Estamos verificando se a consulta foi maior que zero, ou seja, que o login e a senha digitados são iguais aos que tem no banco de dados, aí, abre o form principal, caso contrario apresenta a mensagem ao usuario.

Tenta aí, qualquer coisa, posta novamente.

[EMSO.EXE]

Olá, tenta fazer algo mais ou menos dessa maneira:

procedure TForm1.Button1Click(Sender: TObject);
begin
with DataModule.ADOQuery1 do
  begin
    Active:=False;
    SQL.Clear;
    SQL.Add('Select * from tb_funcionario where login =:log and senha =:snh');
    Parameters.ParamByName('log').Value:=edit_login.Text;
    Parameters.ParamByName('snh').Value:=edit_passwd.Text;
    Active:=True;
    //================================================
    if RecordCount > 0 then
        F_Principal.ShowModal
      else
          ShowMessage('Login ou Senha incorretos, verifique');
  end;
end;

No caso, no IF Estamos verificando se a consulta foi maior que zero, ou seja, que o login e a senha digitados são iguais aos que tem no banco de dados, aí, abre o form principal, caso contrario apresenta a mensagem ao usuario.

Tenta aí, qualquer coisa, posta novamente.

Opa! :lol:

Isso resolveu meu problema sim!!!!

Obrigado!!!!

[ADAMI fire]

Colega

copiei o q você passo, mais deu erro nisso daqui:

datamodule1.adoquery1.active:= false;

poderia me ajudar por gentileza

teria um com bit btn

Editado Dezembro 28, 2009 por ADAMI fire

[Jhonas]

copiei o q você passo, mais deu erro nisso daqui:

datamodule1.adoquery1.active:= false;

primeiro coloque qual o erro se não fica dificil advinhar

teria um com bit btn

o código pode ser transportado para um bitbtn sem problema

abraço