|
{Este es un ejemplo con un menú con prioridades, espero que te sirva}
User,Task,I,X:Integer;
begin
ing_clave.visible:=false;
ing_clave.Enabled:=false;{ing_clave es el formulario donde de loguea}
User:=ing_clave.dbedit1.Field.Value;
For X:=0 to principal.Menu.Items.Count -1 do
For I:=0 to principal.Menu.Items.Items[X].Count -1 do
begin
Task:=principal.Menu.Items[X].Items[i].Tag;
principal.Menu.Items[X].Items[i].Visible := true;
If datamodule1.tb_Habilitaciones.Locate('codigo de Usuario;codigo de Opciones', vararrayof ([User,Task]),[]) then
If datamodule1.Tb_Habilitacioneshabilitaciones.Value = 'N' then
principal.Menu.Items[X].Items[i].Visible := False ;
End;
{tenés que hacer una tabla con las habilitaciones correspondientes a cada usuario}
tabla habilitaciones
cod de usuario(numérico)
cod de opciones(numérico)
habilitaciones(alfanumérico)
|