tela de login (delphi)

[igorfb]

fiz uma tela de login no delphi 2010 (xe7) interligada com o banco de dados acess atraves de um ADOconection e uma ADOtable , no banco de dados acess tenho uma tabela (login)com os campos usuario e senha ambos do tipo texto, como eu faço para comparar se o usuario e senha digitados pelo usuario  dentro dos edit sao iguais aos cadastrados no banco de dados????

[YeoshuaAl]

Olá amigo td,bem ?

Vizinho aqui de mim bacana.

Então achei esse codigo acredito que é o que você procura ( ou procurava né kkk ).

procedure TForm1.Button1Click(Sender: TObject);
begin
  // ativa a tabela
 dm.tb_login.Open;

  // verifica se os campos coincidem,
  // tanto na tabela, quanto nas edits
 if dm.tb_login.Locate('usuario', edtUsuario.Text, [loCaseInsensitive ]) and
  dm.tb_login.Locate('senha', edtSenha.Text, [loCaseInsensitive ]) then
  begin
    // fecha a tabela
  dm.tb_login.Close();
    // mostra outro form
  Form2.Show;
    // esconde o atual
  Self.Hide;
  end
  // se os campos forem vazios
 else if (edtUsuario.Text = '') and (edtSenha.Text= '') then
       begin
         // mostra mensagem
         ShowMessage('Preencha os campos login e senha!');
       edtUsuario.SetFocus;
       end
       else  // campos nao conferem
       begin
         // campos nao conferem
         ShowMessage('Usuario ou senha inválidos!');
         edtUsuario.Clear;
         edtSenha.Clear;
       end;
end;

Este codigo é do site : Login+Delphi+Bando de Dados

 É bom respondermos a tópicos antigos porque sempre aparecerá algum outro procurando e poderá encontrar a resposta.

 

Um abraço !

[igorfb]

@YeoshuaAl opa valeu amigo, eu tinha conseguido achar, mas sua resposta sera muito util para resolver a ajuda de alguem que certeza tera esta mesma duvida...agradeço pela sua resposta, abraços

adicionado 1 minuto depois

@YeoshuaAl agora que reparei que disse que somos vizinhos kkk, de onde voce e ?