Hola foreros.

Una manera que a mi me resulto bastante efectiva para controlar el acceso de los usuarios a mis sistemas, es la de generar en la base de datos una tabla de registro de usuarios (llamada en este ejemplo Usuarios), que constara de los siguientes campos:

TABLA Usuarios

Usuario (string 16)
Contraseña (string 20, encriptada)
Nivel (numerico entero, conteniendo niveles de 0 a 99 por ejemplo)


En otra tabla (en mi caso la llamo "Menues") definimos dos campos, NombreMenu y NivelRequerido, donde:

NombreMenu : es el nombre que le damos a cada opcion del menu en tiempo de diseño (por ejemplo : mnuArchivo, mnuSalir, mnuAyuda, etc.)

NivelRequerido : es un numero que indica el nivel minimo que tiene que tener un usuario para que esa opcion del menu se habilite (enabled) o no.

Luego, al cargar el form Main (al que en tiempo de diseño le incluimos un control Adodc llamado adoMenues, y que cargamos con los registros de la tabla "Menues"), colocamos en el evento Load la llamada a la Sub ActivarMenues, que transcribo a continuacion:

Public Sub ActivarMenues()
Dim stCode As String, code As Long, i As Integer
Dim el_Control As Variant, el_Menu As String
' El recordset adoMenues contiene un registro por cada opcion
' de menu. Asociado a cada opcion esta el nivel de acceso
' requerido.
With Me.adoMenues.Recordset
.MoveFirst
For i = 1 To .RecordCount ' recorro el recordset
el_Menu = .Fields("NombreMenu").Value
For Each el_Control In Me.Controls
If TypeOf el_Control Is Menu Then
If el_Control.Name = el_Menu Then
' La variable nNivel contiene el nivel de usuario guardado
' en la misma al momento del login, obtenido de la
' tabla Usuarios
If .Fields("NivelRequerido").Value <= nNivel Then
el_Control.Enabled = True
Else
el_Control.Enabled = False
End If
Exit For
End If
End If
Next
.MoveNext
Next i
End With
End Sub

Lo que hace la funcion es recorrer la tabla Menues registro por registro, compara el nivel del usuario (que lo leemos de la tabla Usuarios y colocamos en una variable publica al momento del login), y si el nivel del usuario es mayor o igual que el nivel requerido para esa opcion, modificamos la propiedad Enabled de la misma en true, de lo contrario (si es menor el nivel del usuario que el requerido) le asignamos el valor false.

De esta manera, para realizar cualquier modificacion de permisos de usuario bastara con modificar la tabla Menues o el permiso en si de cada usuario desde fuera del sistema, sin tocar ni una sola linea de codigo del mismo.

Tambien podemos poner una opcion en el sistema que sea solo accesible para el administrador del mismo, donde en un grid manejamos la tabla Usuarios para dar de alta nuevos usuarios, definir permisos de los mismos, etc. desde dentro del sistema. Esto queda mucho mejor y mas profesional que hacerlo desde fuera (accediendo a la tabla desde Access).

Espero les sea de utilidad. Cualquier pregunta no duden en postearme un mensaje personal.

Salu2 a to2

Edited by: edwinmoses

Yo hago algo muy similar, Con una pequeña diferencia. A cada fomulario en su metodo Load le cargo las siguientes lineas para comprobar si puede o no acceder a dicho recurso. (esto lo hago así ya que muchas de mis aplicaciones permiten navegar entre los formularios a partir de otro y es facil dejar un punto de entrada sin comprobar.

Private sub Form_Load()

if NivelUsuario < NiveldeEsteRecurso then
me.hide
MsgBox "Carece del nivel adecuado para acceder a este recurso", VBOKONLY, "NIVEL"
unload me
end if

end Sub

Muy buena esa.

me pueden regalar un sistemita del cual contenga todo esto de seguridad dios le bendigaa...que contenga permisos a menu de usuarios o de administrador

Hola, aca nadie te va a regalar nada...aparte es re-facil ya lo dijeron arriba..solo tenes que saber que tipo de usuario es y habilitar o deshabilitar los menues segun sea el tipo de usuario...

saludos.

a vos maje no te he pedido nada ok si desde luego es que pido un ejemplo era para mejorar esta pajina ok como la web del programagor asi que te vale verga si pido un ejemplo ya que esto lo quiero implementar en visual Basic 2005 con SQL y pero ya veo que ni el autor de esto opina ahora vos

Saludos amigos, muy buen aporte...
Si seria bueno poner un ejemplo completo, ya que no tengo claro algo:

Sobre el NIVEL en la tabla de usuarios, a que se refiere este entero de 0 a 99???? y para que lo asigno.

Y en la tabla MENUES, como la relaciono con USUARIOS, ya que en NIVELREQUERIDO que valores van.. o como se enlazas por ejemplo:

El usaurio1 tiene privilegios solo a dos menus asiganados
El usaurio2 tiene privilegios solo a cinco menus asiganados....
Y asi....


De antemano les agradeceria

se refiere a asignar un numero que va a identificar a los menus segun el nivel requerido por ejemplo:

en la tabla tenemos 5 de 10 registros con un numero... 1 digamos entonces digamos el usuario tiene nivel 1. Entonces solo habilitara esos 5 menus que tienen nivel 1

Si bien la opción de establecer jerarquía numérica es más fácil de implementar y más veloz, creo que la opción de generar una tabla 'menues' con los menúes existentes y el usuario es más flexible y fiable. Para normalizar las bases, recomiendo:
-hacer una tabla con los menúes, conteniendo los campos idmenu[int, autoincremental, pk] y nombre_menu [varchar]
-hacer una tabla con perfiles de usuarios, campos idperfil [int, autoincremental, pk] y nombre_perfil [varchar, obvio :P]
-hacer tabla de usuarios, pero asignándoles entre todos los datos que consideres necesarios, el dato de idperfil
-hacer una tabla de autorizaciones, con los campo idmenu[int, fk], idperfil[int, fk]
Abrazo!

Iniciado por delfor

Si bien la opción de establecer jerarquía numérica es más fácil de implementar y más veloz, creo que la opción de generar una tabla 'menues' con los menúes existentes y el usuario es más flexible y fiable. Para normalizar las bases, recomiendo:
-hacer una tabla con los menúes, conteniendo los campos idmenu[int, autoincremental, pk] y nombre_menu [varchar]
-hacer una tabla con perfiles de usuarios, campos idperfil [int, autoincremental, pk] y nombre_perfil [varchar, obvio :P]
-hacer tabla de usuarios, pero asignándoles entre todos los datos que consideres necesarios, el dato de idperfil
-hacer una tabla de autorizaciones, con los campo idmenu[int, fk], idperfil[int, fk]
Abrazo!

oye nada mas una pregunta...
Yo tengo una tabla con 2 registros usuario=aaaa y passwor =bbbb entonces como hago para que si al momento de introducir usuario y contraseña en el form1 de login me verifique estos datos con los de la base de datos y si es verdadero me abra otro form xxx

Iniciado por Devilskate64

se refiere a asignar un numero que va a identificar a los menus segun el nivel requerido por ejemplo:

en la tabla tenemos 5 de 10 registros con un numero... 1 digamos entonces digamos el usuario tiene nivel 1. Entonces solo habilitara esos 5 menus que tienen nivel 1

oye nada mas una pregunta...
Yo tengo una tabla con 2 registros usuario=aaaa y passwor =bbbb entonces como hago para que si al momento de introducir usuario y contraseña en el form1 de login me verifique estos datos con los de la base de datos y si es verdadero me abra otro form xxx

Iniciado por delfor

Si bien la opción de establecer jerarquía numérica es más fácil de implementar y más veloz, creo que la opción de generar una tabla 'menues' con los menúes existentes y el usuario es más flexible y fiable. Para normalizar las bases, recomiendo:
-hacer una tabla con los menúes, conteniendo los campos idmenu[int, autoincremental, pk] y nombre_menu [varchar]
-hacer una tabla con perfiles de usuarios, campos idperfil [int, autoincremental, pk] y nombre_perfil [varchar, obvio :P]
-hacer tabla de usuarios, pero asignándoles entre todos los datos que consideres necesarios, el dato de idperfil
-hacer una tabla de autorizaciones, con los campo idmenu[int, fk], idperfil[int, fk]
Abrazo!

Hola Delfor.

Podrías explicarme un poco más como debería hacer la codificación para utilizar estas cuatro trabajas.
Debería ser así: Busco el usuario, leo el perfil, luego accedo a autorizaciones para buscar el menú y registrar fecha y hs de acceso pero estoy seguro que sea así.
Gracias.