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.
- 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;