【文章內(nèi)容簡(jiǎn)介】 ned(CPXXSZ) Then begin 。//打開(kāi)菜譜費(fèi)用信息表 。//打開(kāi)菜系類(lèi)別信息表23 CPXXSZ:=(Self)。 。 end。end。程序啟動(dòng)后，調(diào)用菜單“基礎(chǔ)信息設(shè)置”下的“菜譜信息設(shè)置”項(xiàng)，將打開(kāi)“菜譜信息設(shè)置界面” 。系統(tǒng)菜譜信息設(shè)置界面主要功能：實(shí)現(xiàn)對(duì)菜譜信息的添加、修改、刪除、查詢的功能。 （1）添加新窗體，設(shè)置窗體名為 cpxxsz，設(shè)置窗體 caption 為“菜譜信息設(shè)置” ，保存為 。 （2）向窗體中添加query、panel、groupbox、dbgrid、dbedit、edit、dbtext、bitbtn、dblookupbobox、time、datasetfrist、actionlist、label 等控件，主要控件屬性如表 431所示。表 431主要控件屬性對(duì)象 屬性 值 功能Query1 Databasenamesql060412079Slect MAX(編號(hào)) from 菜譜信息費(fèi)用表設(shè)置數(shù)據(jù)范圍DatasetFrist1 DatasourceCaptionHint首記錄移動(dòng)到第一條記錄移動(dòng)到首記錄DatasetLast1 DatasourceCaptionHint尾記錄移動(dòng)到最后一條記錄移動(dòng)到尾記錄DatasetNext1 DatasourceCaption下一條記錄移動(dòng)到下一條24Hint 移動(dòng)到下一條記錄 記錄DatasetPrior1 DatasourceCaptionHint上一條記錄移動(dòng)到上一條記錄移動(dòng)到上一條記錄DBLookupComBox1 ListsourceKeyfieldListfieldDatasourceDtafirld菜系名稱(chēng)菜系名稱(chēng)菜系類(lèi)別選擇菜系類(lèi)別 。圖 ：procedure (Sender: TObject)。var a,b,c:integer。d:String。begin If Length() = 0 Then //如果輸入查詢信息為空 begin ShowMessage(39。請(qǐng)輸入查詢的[編號(hào)或菜名]信息39。)。25 。 End Else begin a:=Length()。 c:=0。 for b:=1 to a do //for語(yǔ)句用于判斷查詢是按菜譜編號(hào)還是按菜名查詢 begin D:=COPY(,b,1)。 if (D=39。039。) or (D=39。939。) then begin c:=c+1。 end。 end。 If c = Length() Then //按菜譜編號(hào)查詢 begin if (39。編號(hào)39。,StrTOInt(),[loCaseInsensitive]) then begin 。 :=0。 End Else begin ShowMessage(39。對(duì)不起，沒(méi)有找到。39。)。 。 end。 End Else //按菜譜編號(hào)查詢 begin if (39。菜名39。,[loPartialKey]) then26 begin 。 :=1。 End Else begin ShowMessage(39。對(duì)不起，沒(méi)有找到。39。)。 。 end。 end。 end。end。 。圖 ：procedure (Sender: TObject)。vara:integer。begin 。 。27 if 0 then a:=[0].AsInteger else a:=1。 if =39。添加39。 then //添加菜譜信息 begin 。 If = 0 Then A:=79000 //添加菜譜信息 Else begin 。 a:=(39。編號(hào)39。).AsInteger。 end。 :=39。保存39。 :=39。取消39。 Aenabled(1)。 。 (39。編號(hào)39。).AsInteger:=a+1。 (39。菜系類(lèi)別39。).AsString:=(39。菜系名稱(chēng)39。).AsString。 。 End Else //保存菜譜信息 begin if (Length((39。菜名39。).AsString)=0) or (Length((39。單位39。).AsString)=0) or (Length((39。價(jià)格39。).AsString)=0) then begin ShowMessage(39。請(qǐng)將[菜名、單位、價(jià)格]的數(shù)據(jù)添全。39。)。 。 EndElse begin28 AEnabled(2)。 :=39。添加39。 :=39。修改39。 。 //保存菜譜信息 end。 end。end。 。圖 ：procedure (Sender: TObject)。begin if =39。修改39。 then begin 。 If = 0 Then //如果數(shù)據(jù)為空 begin ShowMessage(39。對(duì)不起，沒(méi)有數(shù)據(jù)可以修改。39。)。 End Else //如果數(shù)據(jù)不為空 begin29 AEnabled(1)。 :=39。保存39。 :=39。取消39。 。 //編輯 。 end。 End Else begin AENabled(2)。 :=39。添加39。 :=39。修改39。 。 //取消保存信息 end。end。 。圖 ：procedure (Sender: TObject)。30begin 。 If = 1 Then begin ShowMessage(39。對(duì)不起，這是最后一個(gè)菜，不能刪除。39。)。 End Else if MessageDLG(39。確認(rèn)刪除指定的菜譜信息嗎？39。,mtCustom,[mbYes,mbNO],0)=mrYes then begin 。 //刪除數(shù)據(jù) end。end。5. 狀態(tài)編輯與瀏覽狀態(tài)函數(shù)function AEnabled(key:integer):Boolean 。 //定義狀態(tài)編輯與瀏覽狀態(tài)函數(shù)begin If key = 1 Then //編輯狀態(tài) begin :=False。 //“刪除“按鈕不可用 :=False。 //“退出“按鈕不可用 :=False。 //“查詢“按鈕不可用 :=False。 //查詢輸入框不可用 :=False。 :=True。 End Else //瀏覽狀態(tài) begin :=True。 //“刪除“按鈕可用 :=True。 //“退出“按鈕可用 :=True。 //“查詢“按鈕可用31 :=True。 :=True。 :=False。 end。end。程序啟動(dòng)后，調(diào)用菜單“前臺(tái)管理”下的“開(kāi)臺(tái)管理”項(xiàng)，將打開(kāi)“開(kāi)臺(tái)管理”界面。系統(tǒng)開(kāi)臺(tái)管理界面主要功能：⑴以圖標(biāo)模式顯示空臺(tái)、營(yíng)業(yè)臺(tái)，點(diǎn)擊臺(tái)號(hào)圖標(biāo)則自動(dòng)顯示相應(yīng)臺(tái)號(hào)信息。⑵通過(guò)輸入臺(tái)號(hào)檢索符合條件的臺(tái)號(hào)。⑶點(diǎn)擊空房自動(dòng)彈出與昂查詢窗口從而自動(dòng)開(kāi)臺(tái)。 （1）添加新窗體，設(shè)置窗體名為 ktgl，設(shè)置窗體 caption 為“開(kāi)臺(tái)管理” ，保存為 。 （2）向窗體中添加datasource、query、groupbox、panel、pagecontrol、dbgrid、dbedit、edit、dbtext、bitbtn、dblookupbobox、image、label 等控件，主要控件屬性如表 431所示。表 431主要控件屬性控件名 屬性 值 功能打他搜如廁 Dataset Query 設(shè)置數(shù)據(jù)源DBLookupComBox1 ListsourceKeyfieldListfield部門(mén)名稱(chēng)部門(mén)名稱(chēng)選擇餐飲部門(mén)Dbgrid1 datasource 顯示臺(tái)號(hào)信息 。32圖 開(kāi)臺(tái)管理搜索臺(tái)號(hào)界面：procedure (Sender: TObject)。 //搜索房臺(tái)var List:TListItem。 Lists:integer。 ListText:String。 a,b,c:integer。 d:String。begin If Length() = 0 Then begin ShowMessage(39。請(qǐng)輸入查詢的[房臺(tái)編號(hào)或房臺(tái)名稱(chēng)]信息39。)。 。 End Else begin a:=Length()。 c:=0。 for b:=1 to a do begin D:=COPY(,b,1)。 if (D=39。039。) or (D=39。939。) then begin33 c:=c+1。 end。 end。 If c = Length() Then begin if (39。編號(hào)39。,StrTOInt(),[loCaseInsensitive]) then begin if (39。狀態(tài)39。).AsString39。空閑39。 then begin :=1。 //顯示第二頁(yè) 。//將焦點(diǎn)移到點(diǎn)菜服務(wù)按扭上 End Else begin :=0。 //顯示第一頁(yè) 。//將焦點(diǎn)移到開(kāi)臺(tái)設(shè)置按扭上 end。 End Else begin ShowMessage(39。對(duì)不起，沒(méi)有找到。39。)。 end。 End Else begin if (39。房臺(tái)名稱(chēng)39。,[loPartialKey]) then begin if (39。狀態(tài)39。).AsString39。空閑39。 then begin34 :=1。 //顯示第二頁(yè) 。//將焦點(diǎn)移到點(diǎn)菜服務(wù)按扭上 End Else begin :=0。 //顯示第一頁(yè) 。//將焦點(diǎn)移到開(kāi)臺(tái)設(shè)置按扭上 end。 End Else begin ShowMessage(39。對(duì)不起，沒(méi)有找到。39。)。 end。 end。 end。end。 。圖 ：procedure (Sender: TObject)。begin GB:=2。35 If Length() = 0 Then begin ShowMessage(39。請(qǐng)輸入員工編號(hào)39。)。 。 End Else if (39。員工編號(hào)39。,StrToInt(),[loCaseInsensitive]) then begin If not Assigned(DCFY_LR) Then begin DCFY_LR:=(Self)。 :=。 :=(39。姓名39。).AsSTring。 :=DateTimeToStr(Now)。 If = 0 Then begin 。 (39。編號(hào)39。).AsInteger:=1。 。 End Else :=IntToStr((39。編號(hào)39。).AsInteger+1)。 。 end。 GB:=1。 。 End Else36 begin ShowMessage(39。對(duì)不起,沒(méi)有找到此員工信息.39。)。 。 end。end。 。圖 ：procedure (Sender: TObject)。 //選擇房臺(tái)var list:TListItem。 ListString:String。begin List:=TlistView(Sender).Selected。 If List nil Then begin ListString: