USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Gerar um Log das atividades de usuário do sistema
Postada em 6/10/2002 por San.dro            
Em um determinado momento precisei registrar diversas atividades de meus usuários, como login/logout, insert, delete, update, acesso a determinado form... então desenvolvi esta função:

Sub RegLog(vUser As Integer, vGrupo As String, vMsg As String)
    Dim vSql As String, tb As New Recordset, nUser As String
    If Len(vGrupo) < 1 Then vGrupo = "Sistema"
    If Len(vMsg) < 1 Then vMsg = "Função RegLog"
    If vUser < 1 Then nUser = "Sys"
    vSql = "Insert into tbLog (DataLog, Módulo, UserLog, Grupo, Mensagem) values ("
    vSql = vSql & "Now, '" & MudaStr(App.EXEName, "'", "´") & " " & App.Major & "." & App.Minor & ".r" & App.Revision
    vSql = vSql & "', '" & nUser & "', '" & vGrupo & "', '" & Mid(vMsg, 1, 255) & "');"
    dba.Execute vSql
    Exit Sub
End Sub

O uso é bem simples:
    RegLog "Sandro", "CadFunc", "Alteração do cadastro de fulano"

Esta função precisa desta tabela (tbLog):
DataLog (data/hora)
Módulo (texto.20)
UserLog (texto.25)
Grupo (texto.50)
Mensagem (texto.255)

 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página