problemas con menu login
Publicado por djnilo (24 intervenciones) el 28/02/2016 21:44:18
buenas tardes
señores programadores si me pueden orientar por favor estoy trabajando en aplicacion en visual basic con mysql
mi estructura tabla
mi problema es que necesito bloquear los menus del MDI PRINCIPAL
-------------------------------------------
usuario : claudia
password : 123
Nivel : 1
Tipo usuario : Administrador
---------------------------------------------
usuario : juanito
pwd : 123 = password
Nivel : 2
Tipo usuario : Digitador
--------------------------------------------------------
mi procedimento almacenado
necesito por fa bloquear los menús según el usuario en el menuprincipal MD
señores programadores si me pueden orientar por favor estoy trabajando en aplicacion en visual basic con mysql
mi estructura tabla
mi problema es que necesito bloquear los menus del MDI PRINCIPAL
-------------------------------------------
usuario : claudia
password : 123
Nivel : 1
Tipo usuario : Administrador
---------------------------------------------
usuario : juanito
pwd : 123 = password
Nivel : 2
Tipo usuario : Digitador
--------------------------------------------------------
mi procedimento almacenado
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
CREATE DEFINER=`root`@`localhost` PROCEDURE `SP_Validar_Usuario`(in mi_usuario varchar (20),
in mi_password varchar (20))
BEGIN
select usuario, pwd from usuarios where usuariario = mi_usuario and pwd = mi_password;
END
Public Function validar2(ByVal datos As vusuarios) As DataTable
'instanciamos nuestra conexion de MYSQL de nuestra Clase "Conexiones"'
Dim cmd As New MySqlCommand
'Usuamos nuestra conexion'
cmd.Connection = conn
cmd.CommandType = CommandType.StoredProcedure
'indicamos el nombre del procedimiento de nuestra base de datos MYSQL'
cmd.CommandText = "SP_Validar_Usuario"
cmd.Parameters.Add("?mi_usuario", MySqlDbType.VarChar, 20).Value = datos._usuario
cmd.Parameters.Add("?mi_password", MySqlDbType.VarChar, 20).Value = datos._password
'Declaramos una variable para que ejecute nuestro procedimiento, con nuestra conexion'
Dim da As New MySqlDataAdapter(cmd)
Dim tabla As New DataTable()
da.Fill(tabla)
validar2 = tablaEnd Function
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub BtnAceptar_Click(sender As System.Object, e As System.EventArgs) Handles BtnAceptar.Click
Dim autenticar As New fusuario
Dim datos As New vusuarios
datos._usuario = TxtUsuario.Text.Trim
datos._password = TxtContrasena.Text.Trim
autenticar.validar2(datos)
MenuPrincipal.Show()
End Sub
¿ menuPrincipal
quiero bloquear los menus segun el tipo de nivel por ejemplo administrador o digitador ?Private Sub MenuPrincipal_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'Select Case
' Case 1
'Configuramos las opciones
' MaestrosToolStripMenuItem.Enabled = True
' MaestroEmpresaToolStripMenuItem.Enabled = True
'MaestroClientesToolStripMenuItem.Enabled = True
'GestionEstacionamientoToolStripMenuItem.Enabled = True
'RegistroEntradaVehiculoToolStripMenuItem.Enabled = True
'ReigstroSalidaVehiculosToolStripMenuItem.Enabled = True
'ReportesToolStripMenuItem.Enabled = True
'ReportesDiariosToolStripMenuItem.Enabled = True
'ReporteCompletoToolStripMenuItem.Enabled = True
' Case 2
' MaestrosToolStripMenuItem.Enabled = True
'MaestroEmpresaToolStripMenuItem.Enabled = True
'MaestroClientesToolStripMenuItem.Enabled = True
'GestionEstacionamientoToolStripMenuItem.Enabled = True
'RegistroEntradaVehiculoToolStripMenuItem.Enabled = True
'ReigstroSalidaVehiculosToolStripMenuItem.Enabled = True
'ReportesToolStripMenuItem.Enabled = False
'ReportesDiariosToolStripMenuItem.Enabled = False
'ReporteCompletoToolStripMenuItem.Enabled = False
'End Select
End Sub
I
necesito por fa bloquear los menús según el usuario en el menuprincipal MD
Valora esta pregunta
0
