MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Controle de Registro

    Compartilhe

    eissoaimesmo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 25/04/2013

    Controle de Registro

    Mensagem  eissoaimesmo em Seg 21 Out 2013, 20:33

    Boa tarde Senhores(as),


      Estou usando um modulo para fazer o controle de acesso, preciso de ajuda para pegar a informação do Usuário que esta logado no momento (strUsuarioAtual),e poder arquivar quem foi o usuário que criou ou atareou determinados registros .... Segue código:

    Option Compare Binary
    Option Explicit

    Private strUsuarioAtual As String
    Private Const SENHA_PADRAO = "123456"

    Function getSenhaPadrao() As String
     getSenhaPadrao = SENHA_PADRAO
    End Function

    Sub setUsuarioAtual(argLogin As String)
     strUsuarioAtual = argLogin
    End Sub

    Function getUsuarioAtual() As String
     getUsuarioAtual = strUsuarioAtual
    End Function

    Function getGrupoUsuarioAtual() As String
     
     getGrupoUsuarioAtual = Nz(DLookup("grupo", "Usuario", _
                       "login='" & strUsuarioAtual & "'"), "")
     
     Select Case getGrupoUsuarioAtual
       Case 0
         getGrupoUsuarioAtual = "Administradores"
       Case 1
         getGrupoUsuarioAtual = "Gerentes"
       Case 2
         getGrupoUsuarioAtual = "Usuários"
       Case 3
         getGrupoUsuarioAtual = "Visitantes"
       Case Else
         getGrupoUsuarioAtual = ""
     End Select
     
    End Function

    Function verificaLogin(argLogin As String, argSenha As String) As Boolean

       Dim criterio As String
       
       'Convertendo a senha clara
       'em código hash MD5 para
       'comparação e validação
       argSenha = getMD5(argSenha)
       
       criterio = "login='" & argLogin & "' And senha='" & argSenha & "'"
       
       If Nz(DCount("login", "Usuario", criterio), 0) > 0 Then
           verificaLogin = True
           setUsuarioAtual argLogin
       Else
           verificaLogin = False
       End If

    End Function

    Sub alterarSenha(argLogin As String, argSenha As String)

       Dim strSql As String
       
       'Convertendo a senha clara
       'em código hash MD5 para
       'armazenamento seguro
       argSenha = getMD5(argSenha)

       strSql = "Update Usuario Set senha='" & argSenha & "'" & _
               "Where login='" & argLogin & "'"
       DoCmd.SetWarnings False
       DoCmd.RunSQL strSql
       DoCmd.SetWarnings True
       
    End Sub


    Atenciosamente
    Eissoaimesmo

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: Controle de Registro

    Mensagem  JPaulo em Seg 21 Out 2013, 20:44

    Ola seja bem vindo ao forum,

    Veja se ajuda,

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 10 Dez 2016, 12:39