請教高手~

Question

我現在遇到一個登錄的權限問題.菜單畫面:cxp_menu_fm 裡主菜單裡有:
OH01_N,OH02_N,OH03_N :Tmenuitem 我想動態的設置這幾個菜單項的visible屬性
例如：
我從數據庫讀取數據,得到程序名,比如'OH01'
就設置OH01_N這個菜單visible為true
再讀取數據得到程序名'OH02'
就設置OH02_N這個菜單項visible為true
...
要如何做？謝謝~

Answer 1

例子：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
     N2.Visible:=True
  else
     N2.Visible:=False;
end;procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  if CheckBox2.Checked then
     N3.Visible:=True
  else
     N3.Visible:=False;
end;procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  if CheckBox3.Checked then
     N4.Visible:=True
  else
     N4.Visible:=False;
end;procedure TForm1.CheckBox4Click(Sender: TObject);
begin
  if CheckBox4.Checked then
     N5.Visible:=True
  else
     N5.Visible:=False;
end;end.

Answer 2

倒，不是這麼簡單的
我要從數據庫讀取資料的，所以根本不知道具體是哪一個menuitem.
也即是說需要設一個變量,來指定哪一個menuitem的visible為true
高人哪，快來幫忙啊~~~~~~~