Como criar a Log de entrada e saída do usuário com Delphi:
Neste tutorial será criado o registro de entrada e saída do usuário no sistema. O banco utilizado é o Microsoft Access, mas serve para utilização de qualquer outro banco de dados.
Crie a tabela tbLog
Tabela Log
Abra o DataModule com ( SHIFT + F12 ) e adicione os componentes das Paletas: dbGo e Data Access:
| Componente | Instruções |
|---|---|
| ADOTable | Renomeie para (tbLog) ; Conecte ao ADOConnection e na propriedade TableName escolha a tabela tbLog |
| DataSource | Renomeie para (dsLog); Conecte em Database para ADOTable |
Ative o ADOTable (tbLog) para True.
De um duplo clique em ADOTable (tbLog):
Clique com o Botão Direito do Mouse dentro da janela que ira abrir » Add all Fields
Adicionando o Código no btnAcessar no Formulário de Login com registro de log de entrada:
No Button btnAcessar do frmPrincipal de um duplo clique e adicione o código abaixo para salvar a entrada do usuário no sistema:
DM.ADOQuery.Close;
DM.ADOQuery.SQL.Text := 'SELECT * FROM tbLogin WHERE Login = "'+edtLogin.Text+'" and Senha = "'+edtSenha.Text+'"';
DM.ADOQuery.Open;
if DM.ADOQuery.RecordCount > 0 then
begin
frmPrincipal.Show;
frmLogin.Visible := False;
end
else
begin
ShowMessage('Login ou Senha Errada!');
edtLogin.SetFocus;
end;
//*********** Inicio Log do Usuário Acesso ***********
DM.tbLog.Open;
DM.tbLog.Last;
DM.tbLog.Insert; // Modo de Inserção
DM.tbLogUsuario.Value := edtLogin.Text;
DM.tbLogDataHoraAcesso.Value := Date + Time; // Salva a log na entrada do usuário
DM.tbLog.Post;
//*********** Fim Log do Usuário Acesso ***********
end;
No evento OnClose do frmPrincipal adicione o código abaixo para salvar a saída do usuário do sistema:
//*********** Inicio Log do Usuário Saída *********** DM.tbLog.Open; DM.tbLog.Last; DM.tbLog.Edit; // Modo de Edição para altera o ultimo registro DM.tbLogDataHoraSaida.Value := Date + Time; // Salva a log na saída do usuário DM.tbLog.Post; //*********** Inicio Log do Usuário Saída *********** //* Encerra a Aplicação Application.Terminate;
Protegendo Banco:
Para proteger o banco recomenda-se utilizar uma criptografia da senha ou apenas definir uma senha no banco Access. Se já definiu uma senha no banco poderá abri-lo conforme procedimento abaixo:
Como Carregar um Banco Access com Senha
Sistema de Login com Nível de Acesso com Delphi:
Para criar um sistema de login e senha com nível de acesso com Delphi siga o tutorial abaixo:
Sistema de Login com Nível de Acesso com Delphi