關於應用程序權限分配的問題！！！

Question

我的思路是：
　　建一個表T_qx，字段為，用戶名，菜單名、菜單名說明，執行（否）
　　然後每個用戶登錄的時候調用一個while not query1.eof　語句檢查某個用戶在
數據表T_qx中對應的菜單名是否有執行的權限沒有的話就enable:=false
問題出來了。
　　我如何和能把數據庫當中的（執行（否））這個字段附給菜單項enable的值呢。
　　比如
  while not query1.eof do
   begin
    for i:=0 to mainmenu1.（不會寫） do
      begin
       if mainmenu1.(不會寫)=query1.field[1].asstring then
        begin 
  　     mainmenu1.>>>(不會寫）:=query1.field[3].AsBoolean;
        end;
      end; 
     query1.next;
   end;
  這個循環當中的mainmenu1.>>>(不會寫）到底怎麼寫。。解答完這個問題！！請問
還有更好的方法嗎！！！！實現權限的分配嗎。

Answer 1

procedure TForm1.FormClick(Sender: TObject);
begin
  showmessage(MainMenu1.Items.Items[0].Name)
end;时间有个大下公布了一套菜单权限方案。你找一下

Answer 2

MainMenu1.Items.Items[i].name
MainMenu1.Items.Items[i].visible or enabled

Answer 3

http://expert.csdn.net/Expert/topic/1553/1553175.xml?temp=.4305231

Answer 4

esu(ESU) 你的方法的試了了，根本不行。MainMenu1.Items.Items[i].name他只能是主菜單項
下面的子菜單不包括在內。。
各位大哥
我的問題當中所有的（不會寫）都是不會寫的。

Answer 5

非常感謝esu(ESU) ( ) ，我的操作系統在csdn搜索老是“搜”不出來出錯。
太感謝了。