Pesquisar na Comunidade
Mostrando resultados para as tags ''delphi xe7 com mysql''.
Encontrado 1 registro
-
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 .