Problemas no login com Delphi XE

Question

Estou tendo problemas com o acesso, quando clico no bot�o apos compilar aparece a seguinte mensagem:---------------------------Confere---------------------------ADOQuery1: Parameter usuario not fo...

Tiago Santos · Answer

Resolvi assim:procedure TAcesso.bntokClick(Sender: TObject);begin  dm.ADOQuery1.SQL.Clear;  dm.ADOQuery1.SQL.Text := select * from usuarios where usuario=:edusuario and senha=:edsenha;  dm.ADOQuery1.Parameters.ParamByName(edusuario).Value := edusuario.Text;  dm.ADOQuery1.Parameters.ParamByName(edSenha).Value := edsenha.Text;  dm.ADOQuery1.Open;  if not (dm.ADOQuery1.IsEmpty) then    ShowMessage(Acesso autorizado!)  else    ShowMessage(Sai pra l�, voc� n�o tem acesso.);A duvida � a seguinte o campo senha nao tem valores em texto, ele � criptografado , tem alguma coisa que eu possa fazer  facilmente ou � complicado. testei copiando o valor criptografado e colando e roda aqui perfeitamente, mas quero digitar o texto referente ao valor criptografado...

Bruno Leandro · Answer

Ola tiago, uma forma de resolver eh s� usar no where o usuario e voce conferir a senha passar da seguinte forma

procedure TAcesso.bntokClick(Sender: TObject);
begin
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Text := select * from usuarios where usuario=:edusuario;
dm.ADOQuery1.Parameters.ParamByName(edusuario).Value := edusuario.Text;
dm.ADOQuery1.Open;

if dm.ADOQuery1.fieldbyname(senha).asstring = MeuCriptografa(edsenha.Text) then
ShowMessage(Acesso autorizado!)
else
ShowMessage(Sai pra l�, voc� n�o tem acesso.);

F�rum Problemas no login com Delphi XE #418568