none
Como fazer níveis de acesso Visual Basic 2010 RRS feed

  • Pergunta

  • Galera estou fazendo um Projeto aonde tem Login e menu eu ja fiz a parte de cadastro de usuários e perfil do usuário aonde que no cadastro de usuário vc coloca qual vai ser seu perfil, ADMINISTRADOR, ALMOXARIFADO,  MARKETING ETC acabei de fazer o login tudo de boa ate ai na hora que aparece o formulário menu mostrando os dados do usuário que fez o login mostra tbm o perfil só que não estou conseguindo fazer a ligação do perfil com o acessos ao botoes que ele tem tenho duas tabelas no access uma perfil e outra de usuário gostaria que ao fazer o login nesse formulário ele pegasse o perfil e fizeste uma lida na tabela perfil bloqueando os botoes que ele não tem acesso através do checkbox. obs: o checkbox vai ficar invisível logo abaixo esta o código do login 

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If Trim(txtnome.Text) = "" Or Trim(txtsenha.Text) = "" Then
                MsgBox("Informe as suas credenciais para Login!", vbExclamation, "Dados Inválidos !")
            Else

                Dim connectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\SISTEMA\Acces banco de dados\Database11.accdb;")
                da = New OleDbDataAdapter("SELECT * FROM Cadastro_de_Usuarios WHERE Nome = '" & txtnome.Text & "' AND Senha = " & txtsenha.Text, connectionString)

                tabelausuario.Tables.Clear()
                da.Fill(tabelausuario, "Cadastro_de_Usuarios")
                If tabelausuario.Tables("Cadastro_de_Usuarios").Rows.Count = 0 Then
                    MsgBox("Usuario ou Senha errados",
                   MsgBoxStyle.Information, "Login")
                Else
                    MsgBox("Login efetuado com Sucesso!", MsgBoxStyle.Information, "Login")
                    Form4.Show()
                    Form4.TextBox2.Text = tabelausuario.Tables("Cadastro_de_Usuarios").Rows(0)("Nome")
                    Form4.TextBox1.Text = tabelausuario.Tables("Cadastro_de_Usuarios").Rows(0)("Perfil")

                    Me.Close()

                End If

                connectionString = Nothing

            End If


        End Sub

    Aqui está a imagem do formulario menu

    https://imgur.com/a/QOLHieD



    sexta-feira, 4 de maio de 2018 12:48

Respostas

  • Mikael Feitosa,

       Por favor, veja:

    ============================================

    Login (Níveis de Acesso)

    https://social.msdn.microsoft.com/Forums/pt-BR/9326302b-491e-451a-b6c9-b6390c3fd5a3/login-nveis-de-acesso?forum=vsvbasicpt

    ============================================

    Programando .NET
    Definindo os Níveis de Acesso: Controle de Acesso em Windows Forms – Parte 4

    https://programandodotnet.wordpress.com/2011/11/25/controle-de-acesso-windows-forms-parte-4/

    ============================================

    Login e nivel de acesso aula 01
    Gilmar Franca
    Publicado em 7 de out de 2013
    Construindo um login com nível de acesso
    Para controle de estoque

    https://www.youtube.com/watch?v=ut0_11thcRk

    ============================================

    []'s,
    Fabio I.
    • Marcado como Resposta Mikael Feitosa quinta-feira, 17 de maio de 2018 17:42
    domingo, 6 de maio de 2018 00:14