Ir para conteúdo
Fórum Script Brasil
  • 0

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


Giovane Amorim

Pergunta

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 .

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...