Visual Basic.NET - problemas con menu login

   
Vista:

problemas con menu login

Publicado por djnilo (21 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
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 = tabla
    End 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Javier

problemas con menu login

Publicado por Javier (31 intervenciones) el 29/02/2016 00:13:21
Pero cual es el problema, la idea que plasmas es una opcion que se puede utilizar, no se si te da algun error o no te funciona o que pasa?, los menus o submenus que no quieras utilizar, dependiendo del usuario, solo ponle FALSE.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

problemas con menu login

Publicado por Djnilo (21 intervenciones) el 29/02/2016 12:20:02
Mi problema es que no se poner el tipo de nivel en el formulario principal mdi como traigo esa variable por fa gracias por responder
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Javier

problemas con menu login

Publicado por Javier (31 intervenciones) el 29/02/2016 21:01:14
Pues podria ser una opcion que tengas un label en tu FormMDI con el nivel y de ahi tomes el valor que requieras, el valor del label lo pasas desde tu Form Login al validar al usuario.

1
2
3
If usuario es true Then
    My.Forms.FormMDI.Label1.Text = Valor que quieras asignar
End If

En el LOAD de tu FormMDI

1
2
3
4
5
6
7
8
Select Case Label1.Text
           Case "Administrador"
                       MaestrosToolStripMenuItem.Enabled = True
                       MaestroEmpresaToolStripMenuItem.Enabled = True
            Case "Digitador"
                       MaestrosToolStripMenuItem.Enabled = True
                       MaestroEmpresaToolStripMenuItem.Enabled = False
End Select


O bien general una variable en tu Form de Login y tenerla para poder utilizarla en toda tu aplicacion.

1
2
3
4
5
6
7
8
9
10
Protected Friend Nivel As Integer
 
Select Case FormLogin.Nivel
           Case 1
                       MaestrosToolStripMenuItem.Enabled = True
                       MaestroEmpresaToolStripMenuItem.Enabled = True
            Case 2
                       MaestrosToolStripMenuItem.Enabled = True
                       MaestroEmpresaToolStripMenuItem.Enabled = False
End Select

Como ya te habia dicho, solo cambiar el valor Enable del menu o submenu.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

problemas con menu login

Publicado por djnilo (21 intervenciones) el 01/03/2016 16:50:51
6ye9h2
gracias por responder pero tengo este error javier
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar