Ir para conteúdo
Fórum Script Brasil
  • 0

Banco de dados com login e senha


Inffernus

Pergunta

Alguém poderia me passar um procedimento de como criar no meu banco de dados login e senha para cada usuário e difenciar vários niveis de acesso, exemplo.

usuário: maria

senha: ****

- E o nivel de acesso dela ser somente leitura ou modificação e etc...

Gostaria de fazer isso no próprio sistema e não usar as opções de compartilhamento e segurançã do windows, uma vez que meu programa recebe vários acessos simultaneos...

Grato.

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Cara, você pode usar o seguinte....

crie uma tabela com os campos, senha, usuario, tipo de usuário e dapte o seguinte código da forma que achares melhor:

Private Sub LOGIN_Click()

    If IsNull(Me.Combinação13) Or Me.Combinação13 = "" Then
      MsgBox "DIGITE O NOME DO USUÁRIO", vbOKOnly, _
      "Dados Necessários"
        Me.Combinação13.SetFocus
        Exit Sub
    End If
   
    If IsNull(Me.Texto16) Or Me.Texto16 = "" Then
      MsgBox "DIGITE A SENHA", vbOKOnly, _
      "Dados Necessários"
        Me.Texto16.SetFocus
        Exit Sub
    End If
  
    If Me.Texto16.Value = DLookup("LOGIN", "LOGIN", "[IDUSER]=" & Me.Combinação13.Value) Then
            
        IDUSER = Me.Combinação13.Value
  

        Dim WTIPO As String
        WTIPO = DLookup("TIPOUSUARIO", "LOGIN", "[IDUSER]=" & Me.Combinação13.Value)

        If WTIPO = "ADMIN" Then
        DoCmd.Close acForm, "LOGIN", acSaveNo
        DoCmd.OpenForm "MENUADMIN"
        ElseIf WTIPO = "USUARIO" Then
        DoCmd.Close acForm, "LOGIN", acSaveNo
        DoCmd.OpenForm "MENUSER"
        End If


    Else
      MsgBox "SENHA INVÁLIDA! TENTE NOVAMENTE", vbOKOnly, _
            "Entrada Inválida!"
        Me.Texto16.SetFocus
    End If

    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
      MsgBox "VOCÊ NÃO TEM ACESSO A ESTE BANCO DE DADOS. POR FAVOR CONTATE O ADMINISTRADOR.", _
               vbCritical, "Acesso Restrito!"
        Application.Quit
    End If

End Sub

detalhe: na tela de login tenho uma combobox com o nome do user, o campo pra digitar a senha e o boão de login.

veja....http://www.4shared.com/file/115817146/9d250208/Login.html

Link para o comentário
Compartilhar em outros sites

  • 0

Como disse use a busca do forum fiz um exemplo que utiliza um codigo semelhante ao exposto pelo Raphael e que logo depois trata alguns objetos no caso de que logar for administrador ou usuario.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...