Administració de Usuarios

[hcashmx]

Hola, alguien me podrá ayudar, ando buscando algun componente para administración de Usuarios,Roles y Permisos para una aplicación hecha en delphi2007, que sea free? he visto varios pero hay que pagar, ojalá alguien me pueda orientar.
Desde ya, gracias.

[[José Luis Garcí]]

Poer que no usas la propiedad tag de los componentes, con un login y una variable global, que determine el nivel de usuario, así si el usuario quiere acceder a un nivel superior que el que tiene no le dejaria acceder, creas una función, que te pida el valor del ususario, elvalortag que quieras comprobar y la clave de acceso si fuese necesario. Tambien puedes hacer un recorrido por el menu de tu aplicación y poner enable a false, las opciones en las que el tag sea menor que el ni vel de usuario. en mi caso uso los siguientes valores

0..5 niveles normales
6 nivel superior
7..8 serian igual a un nivel 6 pero ademas pedirán una clave de acceso
9 nivel administrador


La funcion sería mas o menos de esta manera, no la pongo, al no tenerla disponible en el trabajo pero la manera de funcionar sería mas o menos


mifuncion(Nivel_Usuario:integer;Tag:Integer;Contraseña:String):Boolean;

[darkerbyte]

Nunca había encontrado una utilidad para la variable Tag.

Gracias por el Tip Jose Luis, yo creo que nos va a servir a varios.

Saludos.