|
|
|
|
|
|
|
|
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)
|
|
|
|
|
