以下問題請各位大大提供思考方向或參考，謝謝！

我要用MainMenu去呼叫其他程式，但是因為程式會陸續開發的緣故，為了不再因為每次新增程式時就得在MainMenu上新增一個Click，所以不知道有沒有方法可以利用關聯的Table維護，當新增一項時程式就會在MainMenu上依照類別自動下拉增加呢？

譬如：
1.MainMenu有三個類別為
>>N1：維護，N2：查詢，N3：轉檔

2.有個管控的Table有以下欄位
>>程式名稱 VARCHAR2(30) ---TEST.EXE
>>顯示名稱 VARCHAR2(50) ---測試
>>類別 VARCHAR2(3) ---N1
>>類別序號 VARCHAR2(2) ---1


當我在管控的Table上新增了一筆(TEST.EXE，測試，N1，1)時，MainMenu上的NI就會多一個下拉為"測試"的Click，可以讓USER 開啟TEST.EXE這支程式。

請問我該如何設定呢?在此先謝謝大家....

編輯記錄

===================引 用 rany 文 章===================
以下問題請各位大大提供思考方向或參考，謝謝！

我要用MainMenu去呼叫其他程式，但是因為程式會陸續開發的緣故，為了不再因為每次新增程式時就得在MainMenu上新增一個Click，所以不知道有沒有方法可以利用關聯的Table維護，當新增一項時程式就會在MainMenu上依照類別自動下拉增加呢？

譬如：
1.MainMenu有三個類別為
>>N1：維護，N2：查詢，N3：轉檔

2.有個管控的Table有以下欄位
>>程式名稱 VARCHAR2(30) ---TEST.EXE
>>顯示名稱 VARCHAR2(50) ---測試
>>類別 VARCHAR2(3) ---N1
>>類別序號 VARCHAR2(2) ---1


當我在管控的Table上新增了一筆(TEST.EXE，測試，N1，1)時，MainMenu上的NI就會多一個下拉為"測試"的Click，可以讓USER 開啟TEST.EXE這支程式。

請問我該如何設定呢?在此先謝謝大家....
如果每个模块是用EXE去执行的话,想要动态执行EXE
那么:A:需要知道执行EXE的路径,如果是主程序路经,则不需要别外说明.
B:执行的EXE的名字,你已经写入到TABLE里面 TEXT.EXE
C:设定一个函数来执行ＥＸＥ，把ＥＸＥ的名字写成动态，然后从ＴＡＢＬＥ读取相应的ＥＸＥ程式
D:在MENU中自动列表来自于TABLE的EXE字段.
E: 在MENU的CLICK事件中,读取函数,用于自动执行动态的EXE程序

大概是這樣..試試看...加油！

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
sCaption: string;
aMenuItem: TMenuItem;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'SELECT * FROM Table_Name';
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
sCaption := ADOQuery1.FieldByName('測試').AsString ' ' ADOQuery1.FieldByName('N1').AsString ' ' ADOQuery1.FieldByName('1').AsString;
aMenuItem := TMenuItem.Create(Self);
aMenuItem.Caption := sCaption;
aMenuItem.OnClick := miTreeClick;
miTree.Add(aMenuItem); //MainMenu上面你要加入的那個節點名稱
ADOQuery1.Next;
end;
end;
procedure TForm1.miTreeClick(Sender: TObject);
begin
//根據Menu的Caption，再去抓對應的執行檔名稱去執行就可以了。
end;
[/code]

請問MainMenu如何能動態產生下拉選單?
http://delphi.ktop.com.tw/board.php?cid=30&fid=71&tid=17944
寫了一範例程式,讀出Table設定MainMenu見下:
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=17955

------
努力會更接近成功

SORRY~ 我剛回國，未能於期限內答覆。
也因為對於各位大大詳細的解說還沒有測試，請版主再給我些時間結案喔!!...QQQ

因為已於結案期限多日，故先行結案。但仍有些問題想請教，再煩請提供參考～QQQ

1.感謝goat提供了程式碼,可是出現錯誤不知如何修改
[Error] Unit1.pas(136): Undeclared identifier: 'forbidden
[Error] Unit1.pas(137): Undeclared identifier: 'miTree'

以及那個//根據Menu的Caption，再去抓對應的執行檔名稱去執行就可以了是不是像這樣??
procedure TForm1.miTreeClick(Sender: TObject);
begin
qryPROGID.Close;
qryPROGID.SQL.TEXT:='SELECT 程式名稱 FROM IPPFMENU WHERE IMU_NAME =顯示名稱 ';
qryPROGID.Open;
ShellExecute(handle,nil,(pchar('執行檔路徑')),nil,nil,Sw_shownormal);
end;

2.感謝pceyes幫我找到了之前的紀錄，測試後Menu已經可以依照類別看到所有下拉的顯示名稱，但是當我Click時卻沒反應
請問我是哪裡設定有問題嗎？

[code delphi]
procedure TForm1.MenuItemAdd;
var
I:integer;
begin
qryIPPFMENU.Close;
qryIPPFMENU.SQL.TEXT:=' SELECT *FROM IPPFMENU ';
qryIPPFMENU.Open;
setlength(MyMenu,qryIppfMenu.recordcount);
qryIPPFMENU.first;
I:=StrToInt(Copy(qryIPPFMENU.fieldbyname('IMU_KIND').Value,2,1));
while not qryIPPFMENU.Eof do
begin
MyMenu[i]:=TMenuItem.create(Application);
MyMenu[i].Caption:=qryIPPFMENU.fieldbyname('IMU_NAME').Value;
MyMenu[i].Visible:=true;
MyMenu[i].OnClick:= MenuItemClick;

IF qryIPPFMENU.fieldbyname('IMU_KIND').Value='N1' THEN N1.add(MyMenu[i])
ELSE IF qryIPPFMENU.fieldbyname('IMU_KIND').Value='N2' THEN N2.add(MyMenu[i])
ELSE IF qryIPPFMENU.fieldbyname('IMU_KIND').Value='N3' THEN N3.add(MyMenu[i]);
qryIPPFMENU.next;
end;
end;
procedure TForm1.MenuItemClick(Sender: TObject);
VAR
sendexec,SQL:string;
psendexec:pchar;
err,iBit:integer;
begin
iBit:=LENGTH((sender as tMenuItem).caption)-4; //因為顯示名稱會出現快速鍵(P)
qryPROGID.Close;
qryPROGID.SQL.TEST:='SELECT IMU_PROGID FROM IPPFMENU WHERE IMU_NAME =''' COPY((sender as tMenuItem).caption,1,iBit) ''' ';
qryPROGID.Open;
ShellExecute(handle,nil,(pchar('執行檔路徑')),nil,nil,Sw_shownormal);
[/code]

因為已經結案的關係所以小妹又另行發表了一個新的問題
再麻請各位大大再給予協助～QQQ....

如以下連結：

動態的MainMenu的設定與開啟執行檔的關聯性
http://delphi.ktop.com.tw/board.php?cid=30&fid=1498&tid=94200