Rocio
25 de Febrero del 2004

Tengo una tabla de usuarios y quiero que cuando un usuario de tipo 1 acceda al programa se visualize todo el menú y cuando acceda un usuario de tipo 2 solo pueda ver una parte del menú. Alguien podría decir como hacerlo y sino algún manual donde poder mirarlo. Pq he visto muchos manuales pero no me queda nada claro. Gracias

dannymunuera
25 de Febrero del 2004

Primero elegir el modo de almacenamiento de los datos, fichero o registro (usuarios y niveles de acceso ¨ o lo que quiera ¨).

después de haber seleccionado el modo de almacenamiento se procede a algún procedimiento o método el cual de inicio a la aplicación Ej.(OnActivate, FromActivate) o según el lenguaje, después de seleccionado el procedimiento o método se procede a procesar el objeto menú, por cada una de sus opciones y activar o desactivar la propiedad (enabled o visible).

Para poder establecer cual debe ser desactivada o no puedes proceder de varias formas una es usar la propiedad ¨tag¨ que presentan todos los componentes como te explico a continuación:

Trabajo de mesa
Usuarios nivel acceso
Usuario1 Total
Usuario2 Parcial

Después de activar la aplicación usar según sea el gusto dos variables

VarNombre :Usuario1 // declaración de variable por su puesto Ej.
VarNivelAcceso :Total

Defines que los ¨tag¨ para ti
Tag : 1 // nivel de acceso total
Tag : 2 // nivel de acceso Parcial
…
luego de entrar al objeto ¨Menu¨
Seguir opción a opción preguntando por su ¨ tag

Variante 1 Propiedad ¨Enabled¨

var
I : Integer;
TempAcceso :Byte;
Begin
for I := 0 to MenuItem1.Count-1 do
MenuItem1.Items[I].Enabled := True // por si en tiempo de ejecución
//se desea ejecutar este
//procedimiento
If VarNivelAcceso = ´Parcial´ Then
for I := 0 to MenuItem1.Count-1 do
If MenuItem1.Items[I].tag = 2 Then
MenuItem1.Items[I].Enabled := False
End;

Variante 1 Propiedad ¨Visible¨

var
I : Integer;
TempAcceso :Byte;
Begin
for I := 0 to MenuItem1.Count-1 do
MenuItem1.Items[I].Enabled := True // por si en tiempo de ejecución
//se desea ejecutar este
//procedimiento
If VarNivelAcceso = ´Parcial´ Then
for I := 0 to MenuItem1.Count-1 do
If MenuItem1.Items[I].tag = 2 Then
MenuItem1.Items[I].Visible := False
End;

¨