如何利用資料庫設定動態的MainMenu下拉選項
http://delphi.ktop.com.tw/board.php?cid=30&fid=1498&tid=94063
因為以上問題已逾結案期限多日，故先行結案。但仍有些問題想請教，再煩請提供參考～QQQ
1.感謝goat提供了程式碼，可是出現錯誤不知如何修改
[Error] Unit1.pas(136): Undeclared identifier: 'forbidden
[Error] Unit1.pas(137): Undeclared identifier: 'miTree'
以及那個//根據Menu的Caption，再去抓對應的執行檔名稱去執行就可以了是不是像這樣??

[code delphi]
procedure TForm1.miTreeClick(Sender: TObject);
begin
qryPROGID.Close;
qryPROGID.SQL.TEXT:='SELECT 程式名稱 FROM IPPFMENU WHERE IMU_NAME =顯示名稱 ';
qryPROGID.Open;
ShellExecute(handle,nil,(pchar('執行檔路徑' qryPROGID.FieldByName('IMU_PROGID').Value '.exe\')),nil,nil,Sw_shownormal);
end;
[/code]


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 iBit : integer;
begin
iBit:=LENGTH((sender as tMenuItem).caption)-4; //因為顯示名稱會出現快速鍵
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('執行檔路徑' qryPROGID.FieldByName('IMU_PROGID').Value '.exe\')),nil,nil,Sw_shownormal);

[/code]

1. procedure TForm1.MenuItemClick(Sender: TObject);
2. VAR iBit : integer;
3. sfilename : string;
4. begin
5. iBit:=LENGTH((sender as tMenuItem).caption)-4; //因為顯示名稱會出現快速鍵
6. qryPROGID.Close;
7. qryPROGID.SQL.TEST:='SELECT IMU_PROGID FROM IPPFMENU WHERE IMU_NAME =''' COPY((sender as tMenuItem).caption,1,iBit) ''' ';
8. qryPROGID.Open;
9. showmessage('執行檔路徑' qryPROGID.FieldByName('IMU_PROGID').Value '.exe\')); //檢查全路徑檔名是否正確。
10. sfilename := '執行檔路徑' qryPROGID.FieldByName('IMU_PROGID').Value '.exe\';
11. ShellExecute(handle,nil,(pchar(sfilename),nil,nil,Sw_shownormal);

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

Dear pceyes,

真是謝謝你呦，已經解決囉
連續兩次拔刀相助，果然是全路徑出了問題唄!! :P
.......QQQ