App Android | Significado dos NomesSignificado dos Nomes
Dicas

Criando Log de Entrada e Saída do Usuário | Delphi

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

tblog

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

dm-log

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

Gostou? Avalie:

0 / 5 0

Your page rank:

Botão Voltar ao topo

Adblock detectado

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