none
ajuda para finalizar sistema de login RRS feed

  • Pergunta

  • estou fazendo um trabalho para o curso que estou fazendo de um "sistema de cadastro de equipamentos", o problema é que quero fazer um sistema de login com controle de acesso, eu já consegui fazer o sistema de login funcionar porem ele esta sem o controle de acesso ou seja qualquer usuario que se logar vai ter acesso ao sistema todo, abaixo eu vou descrever como queria que funcionase e o codigo completo do meu sitema de login.

    para começar tenho meu form login.vb com as seguintes configurações:

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
    Dim connection As New SqlClient.SqlConnection
    Dim command As New SqlClient.SqlCommand
    Dim adaptor As New SqlClient.SqlDataAdapter
    Dim dataset As New DataSet
    Dim vnivel As String
    
    connection.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\gerencia.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
    command.CommandText = "SELECT login, senha, acesso FROM acesso WHERE login='" & UsernameTextBox.Text & "' and senha='" & PasswordTextBox.Text & "' "
    connection.Open()
    
    command.Connection = connection
    
    adaptor.SelectCommand = command
    adaptor.Fill(dataset, "0")
    
    Dim count = dataset.Tables(0).Rows.Count
    
    If count > 0 Then
    Principal.Show()
    Me.Hide()
    Else
    MsgBox("Login invalido verifique seu login e senha", MsgBoxStyle.Critical)
    UsernameTextBox.Clear()
    PasswordTextBox.Clear()
    End If
    
    End Sub
    

     

    esse codigo esta funcionando porem sem o controle de acesso
    bem agora a parte de precisso tenho no meu banco de dados chamado "gerencia.mdf" a tabela "acesso" com os campos (id, nome, login. senha e acesso), gostaria que depois de passar pelo login e senha foce verificado o acesso e depois redirecionado para um form MDI com o nome principal.vb que contem os menus. Abaixo segue o exemplo da pesquisa

    se o usuario tiver o acesso como "A" abre o form Principal.vb com os seguintes menus abilitados

    AtivaçãoToolStripMenuItem = true
    CadastroToolStripMenuItem = true
    ConsultaToolStripMenuItem = true
    AgendaToolStripMenuItem = true


    " B" abre o form Principal.vb com os seguintes menus abilitados
    AtivaçãoToolStripMenuItem = true
    CadastroToolStripMenuItem = False
    ConsultaToolStripMenuItem = true
    AgendaToolStripMenuItem = true



    "C" abre o form Principal.vb com os seguintes menus abilitados
    AtivaçãoDeEquipamentoToolStripMenuItem = false
    AtivaçãoDePlacaToolStripMenuItem = false
    AuteraçãoDeNomeToolStripMenuItem = false
    ConsultaToolStripMenuItem = true
    AgendaToolStripMenuItem = false


    desculpem se fui muito extenso na minha pergunta mas tentei deixar o mais claro possivel

    desde já eu agradeço

     

     

    sexta-feira, 4 de fevereiro de 2011 20:03

Respostas

Todas as Respostas