login con niveles

[[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.