Dicas

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
tblog

Data Module

Adicione um Data Module:

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

data-module

Altere a propriedade NAME do DataModule para DM

dm-name

Abra o DataModule com ( SHIFT + F12 ) e adicione os componentes das Paletas: dbGo e Data Access:

ComponenteInstruções
ADOTableRenomeie para (tbLog) ; Conecte ao ADOConnection e na propriedade TableName escolha a tabela tbLog
DataSourceRenomeie para (dsLog); Conecte em Database para ADOTable

dm.tblogAtive 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

dm-log

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;

Botão Voltar ao topo

Adblock detectado

Por favor, considere apoiar-nos, desativando o seu bloqueador de anúncios