请高手指点指点！？！分嘛要多少有多少!!

Question

请问那位高手知道一个系统程序最好的权限设置该使用什么方案最好啊！怎样编写系统权限啊！源代码或实例最好！在下定有重分相送，分不够还可以再加！！！！！

Answer 1

再增加一点就有那位高手知道怎样获得TMainMenu所有的菜单项的Caption啊，包括子菜单项！

Answer 2

TMenuItem *headmenu[11]={HeadA,HeadB,HeadC,HeadD,HeadE,HeadF,HeadG,HeadH,HeadI,HeadJ,HeadS};
               for(int i=0;i<11;i++)
               {
                        for(int j=0;j<headmenu[i]->Count;j++)
                        {
                                headmenu[i]->Items[j]->Enabled=Q_HeadA->Fields->Fields[i*20+j+1]->AsBoolean;
                        }
               }

Answer 3

1、系统权限可以用数据库的权限，也可以自己定义到文件里。
2、
interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N111: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N112: TMenuItem;
    N1111: TMenuItem;
    N11111: TMenuItem;
    N221: TMenuItem;
    N2221: TMenuItem;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure GetItemCaption(item : TMenuItem) ;
var
  i : integer;
begin
  ShowMessage(Item.Caption);
  if item.Count > 0 then
  begin
    for i := 0 to item.Count - 1 do
      GetItemCaption(item.Items[i]);
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to MainMenu1.Items.Count - 1 do
    GetItemCaption(MainMenu1.Items[i]);
end;end.

Answer 4

用户、密码、权限写在表里觉得最好 ，一般的MIS管理都这样