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;

¨