Usuario
COMO PARAMETRIZAR UN MENU DE UN FORMULARIO MDI PRINCIPAL

Pregunta
-
Hola a todos como puedo parametrizar un menu de un formulario MDI principal lo que e hecho hasta ahora es crear una tabla menu en access y poner todas las pestañas del menu con sus respectivos sub menu pero como lo hago con el codigo vb6 lo que quiero hacer es que me salgan visibles algunas pestañas del menu del formulario principal deacuerdo como se loguee como administrador ,usuario,contador,gerente,vendedor. Por favor si tienen un ejemplo o me puedan ayudar de alguna manera se los agradecere.
Pedro.
Todas las respuestas
-
-
Tengo este codigo en un modulo que opinas.
Public cnxMDB As New ADODB.Connection
Public Sub main()
cnxMDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Administracion.mdb;Persist Security Info=False", "Admin"
End SubPublic Sub CargarMenu(Perfil As String, frm As Object)
Dim rs As New ADODB.Recordset
'ocultando los menus principales
rs.Open "SELECT * FROM tblMenus WHILE Nivel=1 AND Vendido='N'"
Do While Not rs.EOF
rs.MoveNext
Loop
rs.Close
'ocultando los sub menus
rs.Open "SELECT * FROM tblMenus WHILE Nivel=2 AND Vendido='S'"
Do While Not rs.EOF
rs.MoveNext
Loop
rs.Close
' If Perfil = 1 Then
' If rs!Vendido = "S" Then
'
' End If
' End If
End Sub -
-
Hola Pedro, te pregunto: ¿las opciones del menú principal son fijas? Por momentos se me ocurre el de hacer un menú dinámico tipo web, el cual llena un cuadro de lista dinámicamente (submenú), según la selección del usuario. Este cuadro de lista se desplazaría según la posición del puntero del mouse. No lo he probado en Microsoft Visual Basic pero no veo el por què no funcione...eso si, tienes que investigar, por aqui te echaremos una mano. Cordialmente, Carlos.
-
-
Hola si los menus principales y sub menu son fijos lo que quiero hacer es que cuando se logueen los usuarios ya sean administrador, contador, vendedor se activen los menus deacuerdo al perfil todo el menu lo he puesto en una tabla en una db para poder trabajar con codigo:
Public cnxMDB As New ADODB.Connection
Public Sub main()
cnxMDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Administracion.mdb;Persist Security Info=False", "Admin"
MDIPrincipal.Show
End SubPublic Sub CargarMenu(Perfil As String, frm As Object)
Dim rs As New ADODB.Recordset
'ocultando los menus principales
rs.Open "SELECT * FROM tblMenus WHERE Nivel=1 AND Vendido='N'", cnxMDB, adOpenStatic, adLockOptimistic
Do While Not rs.EOF
If rs!Nombre = "mnuContabilidad" Then
MDIPrincipal.mnuContabilidad.Item(10).Visible = False
ElseIf rs!Nombre = "mnuBanco" Then
MDIPrincipal.mnuBanco.Item(9).Visible = False
ElseIf rs!Nombre = "mnuGastos" Then
MDIPrincipal.mnuGastos.Item(7).Visible = False
ElseIf rs!Nombre = "mnuPedidosCliente" Then
MDIPrincipal.mnuPedidosCliente.Item(1).Visible = False
End If
rs.MoveNext
Loop
rs.Close
'ocultando los sub menus
' rs.Open "SELECT * FROM tblMenus WHERE Nivel=2 AND Vendido='S'", cnxMDB, adOpenStatic, adLockOptimistic
' Do While Not rs.EOF
'
'
'
' rs.MoveNext
' Loop
' rs.Close
' If Perfil = 1 Then
' If rs!Vendido = "S" Then
'
' End If
' End If
End Subeste es mi codigo
-