F�rum Codigos para logar #405022

14/07/2011

Estou tentando colocar senha ao entrar em meu aplicativo, criei a tabela e o form para cadastro, porem nao consigo fazer ele abrir o formulario. O codigo que estou usando � este:

if (ADOQuery1.FieldByName('Usuario').Value = Edit1.Text) and (ADOQuery1.FieldByName('Senha').Value = Edit2.Text) then
  begin
    Label1.Visible := false;
    Form_Menu.showmodal;
  end
  else
  begin
    Edit1.Clear;
    Edit2.Clear;
    Label1.Visible := true;
    Edit1.SetFocus;
    Exit;
  end;

Porem ele nao aceita a afirma��o, ele pula direto para o else e apaga os valores das edit, mas nao mostra a label. Fiz uns testes mudando o AND da compara��o para OR e ele aceitou mas nao posso deixar assim.

Daniel

Curtir t�pico

+ 0

Responder

Posts

15/07/2011

Ricardo Resende

Daniel acredito que o erro esta no seu select, da forma que voc� esta o c�digo, aparentemente voc� esta comparando apenas o primeiro resultado do seu select com o edit1.text e com o edit2.text....
Voc� deve criar um select usando as informa��es dos edits para verificar se o usu�rio existe e se a senha esta correta.
espero ter ajudado.

Responder

Gostei + 0