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