MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 17
    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9255
    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.]


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [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 24 Jun 2017, 00:59