Como Criar a LOG de Entrada e Saída do Usuário | Delphi

Registrando LOG de entrada e saída do usuário com Delphi

Para registrar a entrada e saída de usuários em seu sistema feito com Delphi. O banco utilizado é em Access, porém o conceito é o mesmo para qualquer outro.

1. Crie a tabela tbLog

Data Module

Adicione um Data Module:

File » New » Other… » Delphi Files » Data Module

Altere a propriedade NAME do DataModule para DM

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 botão de acesso com registro de log de entrada:

No evento OnShow do formulário principal basta incluir

//*********** Inicio Log do Usuário Acesso ***********
  DM.tbLog.Open;
  DM.tbLog.Last;
  DM.tbLog.Insert; // Modo de Inserção
  DM.tbLogUsuario.Value := edtUsuario.Text;
  DM.tbLogDataHoraAcesso.Value := Date + Time; // Salva a log na entrada do usuário
  DM.tbLog.Post;
//*********** Fim Log do Usuário Acesso ***********

OBS: edtUsuário.Text é o Edit do login do usuário.

No evento OnClose do Formulário Principal 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;