Haber creo que he conseguido, pero muy poco
Código PHP:
Imports System.Data
Imports System.Data.SqlClient
Module mdoCrearMenus
Public mnuBase As New System.Windows.Forms.MainMenu()
Public strMenu As String
Public strAux As String
Public myReader As SqlDataReader
Public miccommand As SqlCommand
Public intA As Integer = 1
Public Sub subCrearMenu()
'Creación del menu base
frmInicio.Menu = mnuBase
Try
With mnuBase.MenuItems.Add("mnuGestión") 'Crea menu superior
.Text = "Gestión"
.Visible = False
subPermisos("mnuGestion")
With .MenuItems.Add("mnuGestión", New EventHandler(AddressOf subMenuClick))
.Text = "Alta Empleado"
.Visible = False
subPermisos("mnuGestionAltaEmpleado")
End With
With .MenuItems.Add("mnuGestión", New EventHandler(AddressOf subMenuClick))
.Text = "Mod Empleado"
.Visible = False
subPermisos("mnuGestionModEmpleado")
End With
End With
With mnuBase.MenuItems.Add("mnuListinTelefonico") 'Crea menu superior
.Text = "Listin Telefonico"
.Visible = False
subPermisos("mnuListinTelefonico")
With .MenuItems.Add("mnuListinTelefonico", New EventHandler(AddressOf subMenuClick))
.Text = "Buscar"
.Visible = False
subPermisos("mnuListinTelefonicoBuscar")
With .MenuItems.Add("Buscar", New EventHandler(AddressOf subMenuClick))
.Text = "Empresa"
.Visible = False
subPermisos("mnuListinTelefonicoBuscarEmpresa")
End With
With .MenuItems.Add("Buscar", New EventHandler(AddressOf subMenuClick))
.Text = "Particular"
.Visible = False
subPermisos("mnuListinTelefonicoBuscarParticular")
End With
End With
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub subMenuClick(ByVal sender As Object, ByVal e As System.EventArgs)
Select Case CType(sender, MenuItem).Text
Case "Alta Empleado"
MsgBox(strMenu)
Case "Mod Empleado"
End Select
End Sub
Private Sub subPermisos(ByVal strNombre As String)
miccommand = New SqlCommand
miccommand.Connection = strConexion1
strConexion1.Open()
miccommand.CommandText = "SELECT tblUsuario.fldLogin, tblPermisos.fk_accion, tblPermisos.fldEstado, tblAcciones.fldNombre AS Menu, tblAcciones.fldPertenece AS Pertenece FROM tblUsuario INNER JOIN (tblPermisos INNER JOIN tblAcciones ON tblPermisos.fk_Accion=tblAcciones.idAccion) ON tblPermisos.fk_Usuario=tblUsuario.fkh_empleado WHERE tblusuario.fldlogin='" & strUser & "' AND tblAcciones.fldNombre='" & strNombre & " "
myReader = miccommand.ExecuteReader
Try
If myReader.Read Then
strAux = RTrim(myReader("Menu"))
If RTrim(strAux) = RTrim(strNombre) Then
mnuBase.MenuItems.Item(strNombre).Visible = True
intA = intA + 1
End If
End If
strConexion1.Close()
Catch ex As Exception
MsgBox("Mirando los permisos: " & ex.Message)
End Try
End Sub
End Module
Tengo todo este codigo, el cual crea el menu que yo quiero todo entero, y luego se supone que debe de ver para cada menu que crea si esta en la tabla (ultimo modulo) para ese usuario, en tal caso deberia de poner la propiedad visible de ese menu.
Pero me da el error "Refencia a objeto no establecida como instancia de un objeto".
¿Alguien podria ayudarme con esto????????
PD: No he conseguido crear el menu a partir de una tabla de SQL, que es lo que queria, ¿se os ocurre como lo puedo hacer????
Gracias