Mensaje enviado por "Nixon Morales" <namorales@intervida.org.gt> el 30/01/2003

Yo hago lo siguiente cada usuario tiene un nivel de acceso de 1 a 5 en donde 5 es el nivel mas alto como administrador y 1 es el nivel de invitado. en el load del formulario donde esta el menu pongo esto para especificar que niveles de acceso tienen derecho a que opciones.

Private Sub MDIForm_Load()
     mnuArchivo_Aprobar.Tag = 4
     mnuArchivo_Cambiar.Tag = 1
     mnuArchivo_Configurar.Tag = 1
     mnuArchivo_Nuevo.Tag = 5
     mnuArchivoCatGasto.Tag = 3
     mnuArchivoCatProductos.Tag = 3
     mnuArchivoCatPuestos.Tag = 4
     mnuArchivoCatTemporadas.Tag = 3
     mnuArchivoCatTipoObra.Tag = 3
     mnuPresupuestar_Direct.Tag = 2
     mnuPresupuestar_InDirect.Tag = 3
     mnuReportes_Consolidado.Tag = 4
     mnuReportes_Directo.Tag = 2
     mnuReportes_Indirecto.Tag = 4
     mnuReportes_Infra.Tag = 2
     mnuReportes_Personal.Tag = 4
     mnuSeguimiento_SolComprasDes.Tag = 3
     mnuSeguimiento_SolComprasGes.Tag = 4
     ConfNivel
End Sub
y mi funcion ConfNivel hace lo que necesito que es deshabilitar las opciones si el usuario no tiene acceso

Sub ConfNivel()
     Dim X As Integer

     For X = 0 To frmPresupuesto.Controls.Count - 1
          If TypeOf frmPresupuesto.Controls(X) Is Menu Then
               If Val(frmPresupuesto.Controls(X).Tag) > gblhLevel Then 'gblhLevel es el nivel que se le asigna a cada usuario
                    frmPresupuesto.Controls(X).Enabled = False
                    frmPresupuesto.Controls(X).Tag = ""
               End If
          End If
     Next X

End Sub
quizas de ayude.

Saludos

Nixon Antulio Morales
Programador
namorales@hotmail.com
Quetzaltenango, Guatemala
-----Mensaje original-----
De: Jorge Godoy [mailto:JGODOY@sbn.gob.pe]
Enviado el: Jueves, 30 de Enero de 2003 10:20 a.m.
Para: visualbasic-esp@yahoogroups.com
Asunto: (VB-ESP) control de accesos

Hola amigos hace un tiempo mande esta pregunta a la lista:

Saludos Listeros

La consulta es la siguiente:

Tengo un menu principal que posee opciones y sus respectivas subopciones, lo que debo hacer es definir los accesos a los mismos para los usuarios del sistema; esta demas decir que no todos los usuarios podran ingresar a las mismas opciones o mas aun a las mismas subopciones. La pregunta es... como

podria hecer para controlar estos accesos??

Utilizando tablas de acceso?? y si ese es el caso, como podria hacerlo??

A traves de script habilitando y deshabilitando opciones??

Que es lo mas recomendable?? Tienen algun ejemplo??

He avanzado algo del modulo

como yo tengo un menu principal (m_principal) trabajo en relacion a ese..

pero ahora se me presenta otro problema tengo submenus y a esos submenus deseo tambien darle accesos

pense en crear una tabla MENUS y ahi copiar los menus.

Pero no existe una funcion o API que te devuleva todos los noimbres de los menus.

yo resolveria poniendo los nombres en una tabla pero no existe otra forma



gracias