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;
__________________
Un saludo desde Canarias, "El abuelo Cebolleta"
|