Postada em 03/02/2011 14:14 hs
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
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 é o codigo que ja esta funcionando so quero incluir nele um controle de acesso onde cada nivel abilita e desabilita um menu no meu mdiform conforme abaixo pois não estou conseguindo fazer isso
"A" = ativação = true
cadastro = true
consulta = true
agenda = true
" B" = ativação = true
cadastro = false
consulta = true
agenda = true
"C" = ativação = false
cadastro = false
consulta = true
agenda = false
|
