玥．夢鄉

PopupMenu1->Items->Clear();   //將PopupMenu1內的items清空

TMenuItem* MI;

for(int m=0;m<10;m++)

{

     MI=new TMenuItem(Form1);   //這個不打會出錯0.0..

     MI->Caption=m;

     PopupMenu1->Items->Add(MI);

}

Form1->PopupMenu=PopupMenu1;

                caldays=ym+"/"+mon+"/"+i;

                ADOQuery1->SQL->Text="Select * From Calendar Where Calendar_StartDay='"+caldays+"'";

                ADOQuery1->Active=true;

                selcount=ADOQuery1->RecordCount;

                if(selcount>0)

                {

                        SPM[i-1]->Items->Clear();  //SPM為預先建在form上的PopupMenu

                        TMenuItem* MI;

                        TMenuItem* NI;

                        for(int m=0;m
                        {

                                MI=new TMenuItem(Form1);

                                MI->Caption=ADOQuery1->FieldByName("Calendar_Title")->AsString;  //讀取資料庫的內容

                                MI->onclick=Form1->ONewEven->onclick;

                                tmpn="PM"+ADOQuery1->FieldByName("Calendar_Id")->AsInteger;

                                MI->Name=tmpn;

                                SPM[i-1]->Items->Add(MI);

                                ADOQuery1->Next();

                        }

                        MI=new TMenuItem(Form1);

                        MI->Caption="-";    

                        SPM[i-1]->Items->Add(MI);    //此為分隔線的設立

                        MI=new TMenuItem(Form1);

                        MI->Caption="新增行事";

                        MI->onclick=Form1->ONewEven->onclick;

                        AnsiString pmn="NE"+i;

                        MI->Name=pmn;

                        SPM[i-1]->Items->Add(MI);

                        MI=new TMenuItem(Form1);

                        MI->Caption="刪除";

                        pmn="DE"+i;

                        MI->Name=pmn;

                        SPM[i-1]->Items->Add(MI);

                        ADOQuery1->First();    //將資料庫的搜尋指向第一筆

                        for(int n=0;n
                        {

                                NI=new TMenuItem(Form1);

                                NI->Caption=ADOQuery1->FieldByName("Calendar_Title")->AsString;

                                NI->onclick=Form1->ONewEven->onclick;

                                tmpn="DE"+ADOQuery1->FieldByName("Calendar_Id")->AsInteger;

                                NI->Name=tmpn;

                                MI->Insert(n,NI);            //在MI上新增SubMenu，如圖ㄉ刪除。

                                ADOQuery1->Next();    //n為index必需由0開始，不可大於SubMenu的總item數

                        }

                        ImDay[wd]->PopupMenu=SPM[i-1];

                }