Verificação de Usuario e Senha usando Delphi XE7 e BD Mysql

[Giovane Amorim]

Bom dia  Galera 

sou novo no DELPHI e uso o XE7 com banco de dados Mysql 

Preciso fazer a validação Login . 

Utilizei o seguinte codigo 

procedure TForm1.btenterClick(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('nome', edfuncionario.Text, [loCaseInsensitive,loPartialKey]) and
  dm.tb_login.Locate('senha', edSenha.Text, [loCaseInsensitive,loPartialKey]) then
  begin
    // fecha a tabela
  dm.tb_login.Close();
    // mostra outro form
  frmmenu.Show;
    // esconde o atual
  Self.Hide;
  end
  // se os campos forem vazios
 else if (edfuncionario.Text = '') and (edSenha.Text= '') then
       begin
         // mostra mensagem
         ShowMessage('Preencha os campos login e senha!');
       edfuncionario.SetFocus;
       end
       else  // campos nao conferem
       begin
         // campos nao conferem
         ShowMessage('Usuario ou senha inválidos!');
         edfuncionario.Clear;
         edSenha.Clear;
       end;
end;
 

Porem ele valida  se tiver qualquer usuário com a senha digitada.. ele não pega  o Usuário que digitei + a senha valida desse Usuário .. 

ja achei video mostrando ligar  o ADOCONNECTION, TATOTABLE e o Datasource .Mais isso que preciso  ninguém fez ainda .

[Jhonas]

veja se é esse o exemplo que voce seguiu ... se for voce pode trocar os componentes de acesso a tabela ( MYSQL )  o resto é igual

http://programadoronline.blogspot.com.br/2012/03/login-delphi-banco-de-dados.html

abraço