login con niveles

[*Caro*]

Hola de nuevo, solo unas pequeñas observaciones sobre el codigo del amiguito coso. Si recorremos los componentes de Application, lo que obtenemos son los fomularios y no los componentes del formulario actual, y en esta parte "Application.Components[i].Enabled" falta un Cast.

El codigo quedaría así:

Código Delphi [-]
for i := 0 to ComponentCount - 1 do
 begin
  if (Components[i] is TMenuItem) then
   TMenuItem(Components[i]).Enabled := StrToInt(Edit1.Text) < 2;
 end;

Pero con la condición o te habilita todos o te deshabilita todos.

Lo que se me ocurre, sino es solo un MenuItem el que tienes que deshabilitar según el nivel de usurio, es que utilices la propiedad Tag de cada MenuItem, por ejemplo tenemos esto.

Opcion1(0)     Opcion2(1)     Opcion3(2)
  Opcion11(1)    Opcion21(1)    Opcion31(2)
  Opcion12(2)    Opcion22(1)
  Opcion13(2)

donde el numero entre corchetes sería el numero de Tag que le estarías dando a tu MenuItem, que pueden presentar 3 opciones, en la primera columna la Opcion11 pertenece al nivel 1 la Opcion21 y Opcion22 pertenecen al nivel 2, como se tiene tanto del nivel 1 como del nivel 2 entonces le ponemos al principal con Tag 0, y en las otras opciones como todo pertenece tanto al nivel 1 como al nivel 2 en el principal le ponemos su correspndiente nivel. Talvez no se entiende lo que trato de decir, conste que no soy buena para explicar.

El codigo quedaría así.

Código Delphi [-]
for i := 0 to ComponentCount - 1 do
 begin
  if (Components[i] is TMenuItem) then
   begin
    if (TMenuItem(Components[i]).Tag=StrToInt(nivel)) or (TMenuItem(Components[i]).Tag=0) then
     TMenuItem(Components[i]).Visible := True
    else
      TMenuItem(Components[i]).Visible := False;
   end;
ejemplo
 end;

Utilizo Visible, porque creo que sería mejor no mostrale la opción si no tiene acceso a la misma.

Saluditos

[[coso]]

ay caro tienes razon, lo escribi rapido y sin mirarlo mucho :

Código Delphi [-]
 
 
const
   menus_a_desactivar : string = 'general, menu1,menu2,...etc';
 
function  MirarSiEsMenuADesactivar(c : TMenuItem) : boolean;
begin
         result := Pos(Lowercase(Trim(stringreplace(c.Caption,'&','',[rfIgnoreCase,rfReplaceAll]))),menus_a_desactivar) <> 0;
end;
 
procedure Desactivar(c : TComponent);
var
        i : integer
begin
         for i := 0 to c.ComponentCount - 1  do
            Desactivar(c.Components[i]);
 
         if c is TMenuItem then 
         if MirarSiEsMenuADesactivar(c) then 
         try 
         (c as TMenuItem).Enabled := false;
         except end;
end;
 
...
         if nivel_usuario < 2 then Desactivar(Application);
...

seria algo asi. Otra manera tambien seria teniendo los nombres de los TMenuItems en una lista (los nombres tal cual: MenuItem1, MenuItem2,...en el otro ejemplo se buscaban por 'caption') y hacer algo como

Código Delphi [-]
 
var
   s : TStringList;
begin
  s := TStringList.Create(self);
  s.Add('MenuItem1');
  s.Add('General1');
  s.Add('VerForm1')
 
  for i := 0 to s.Count - 1 do 
  (Application.FindComponent(s[i]) as TMenuItem).Enabled := nivel_usuario < 2;
 
  s.Free;

Mas o menos son equivalentes. saludos.

[jandj]

Gracias a todos por sus ideas, en cuanto vuelva del trabajo y aplique sus ideas le escribo a ver como me va. De nuevo, gracias.

[[Lepe]]

Necesitarás una ventana de "gestión de usuarios", esa ventana es donde permites crear nuevos usuarios en el sistema e indicar si es un administrador o no (por ejemplo con un checkBox), puedes guardar ese "checkbox" en la tabla login (tu table1) en un campo llamado "esAdministrador" con valores:
- cero para un usuario normal.
- uno para un admin.

Si son pocas opciones, puedes dejar los botones o menúes del administrador con Visible = False en el Inspector de objetos, y después de hacer el login, justo antes de darle la bienvenida, llamas a tu rutina HazVisibleOpcionesDeAdmin si el campo esAdministrador es igual a 1.

Saludos

[jandj]

Gracias a todos por sus importantes aportes de verdad se lo agradesco mucho.