【正文】 ect。 end。合計(jì)39。狀態(tài)39。價(jià)格39。數(shù)量39。單位39。類型39。名稱39。編號(hào)39。var a,b,c:integer。end。 //保存編輯 ktKey:=2。).AsInteger+1。).AsInteger:=(39。 //編輯結(jié)賬編號(hào) (39。圖 2. 代碼如下：procedure (Sender: TObject)。end。 //保存編輯 ktkey:=3。).AsInteger1。).AsInteger:=(39。 //編輯結(jié)賬編號(hào) (39。 //將房臺(tái)改為空閑 。).AsString:=39。 //編輯房臺(tái) (39。圖 ：procedure (Sender: TObject)。end。 :=True。 :=True。開臺(tái)39。狀態(tài)39。 //打開庫存水酒記錄 。beginsum:=0。 。⑷自動(dòng)生成結(jié)賬編號(hào)，輸入菜數(shù)量自動(dòng)計(jì)算合計(jì)消費(fèi)金額。⑵點(diǎn)擊“開始點(diǎn)菜”按鈕臺(tái)號(hào)狀態(tài)自動(dòng)變?yōu)殚_臺(tái)，并聚焦到編號(hào)欄。end。+IntToStr()。 :=39。 。房臺(tái)名稱39。 :=True。39。39。+39。+39。39。39。 //39。空閑39。39。%S39。39。39。狀態(tài)39。 ?？臻e總數(shù)：39。 end。).asstring。 While not do begin :=(39。])。,[39。39。39。+39。+39。 :=Format(39。 //定義房臺(tái)列表顯示函數(shù)begin 。end。 end。39。39。).AsFloat)。 :=FloatToStr([0].AsFloat+ldByName(39。服務(wù)員姓名39。 If 0 Then begin 。否39。).AsInteger。 [0].AsInteger:=(39。Where 房間臺(tái)號(hào)=:A and 是否結(jié)單=:B39。)。 (39。 。否39。).AsInteger。 [0].AsInteger:=(39。where 房間臺(tái)號(hào)=:a and 是否結(jié)單=:b39。)。 (39。,ListString,[loPartialKey]) then begin 。 If Length(ListString) 0 Then if (39。begin List:=TlistView(Sender).Selected。 //選擇房臺(tái)var list:TListItem。 。 end。)。 End Else36 begin ShowMessage(39。 GB:=1。 。編號(hào)39。 。編號(hào)39。 If = 0 Then begin 。).AsSTring。 :=(39。,StrToInt(),[loCaseInsensitive]) then begin If not Assigned(DCFY_LR) Then begin DCFY_LR:=(Self)。 End Else if (39。)。35 If Length() = 0 Then begin ShowMessage(39。圖 ：procedure (Sender: TObject)。end。 end。)。對(duì)不起，沒有找到。//將焦點(diǎn)移到開臺(tái)設(shè)置按扭上 end。//將焦點(diǎn)移到點(diǎn)菜服務(wù)按扭上 End Else begin :=0。 then begin34 :=1。).AsString39。,[loPartialKey]) then begin if (39。 End Else begin if (39。)。對(duì)不起，沒有找到。//將焦點(diǎn)移到開臺(tái)設(shè)置按扭上 end。//將焦點(diǎn)移到點(diǎn)菜服務(wù)按扭上 End Else begin :=0。 then begin :=1。).AsString39。,StrTOInt(),[loCaseInsensitive]) then begin if (39。 If c = Length() Then begin if (39。 end。939。039。 for b:=1 to a do begin D:=COPY(,b,1)。 End Else begin a:=Length()。)。begin If Length() = 0 Then begin ShowMessage(39。 a,b,c:integer。 Lists:integer。32圖 開臺(tái)管理搜索臺(tái)號(hào)界面：procedure (Sender: TObject)。 （2）向窗體中添加datasource、query、groupbox、panel、pagecontrol、dbgrid、dbedit、edit、dbtext、bitbtn、dblookupbobox、image、label 等控件，主要控件屬性如表 431所示。⑶點(diǎn)擊空房自動(dòng)彈出與昂查詢窗口從而自動(dòng)開臺(tái)。系統(tǒng)開臺(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)信息。end。 :=False。 //“查詢“按鈕可用31 :=True。 //“刪除“按鈕可用 :=True。 :=True。 //“查詢“按鈕不可用 :=False。 //“刪除“按鈕不可用 :=False。5. 狀態(tài)編輯與瀏覽狀態(tài)函數(shù)function AEnabled(key:integer):Boolean 。 //刪除數(shù)據(jù) end。確認(rèn)刪除指定的菜譜信息嗎？39。)。對(duì)不起，這是最后一個(gè)菜，不能刪除。30begin 。 。 //取消保存信息 end。修改39。添加39。 End Else begin AENabled(2)。 //編輯 。取消39。保存39。 End Else //如果數(shù)據(jù)不為空 begin29 AEnabled(1)。39。 If = 0 Then //如果數(shù)據(jù)為空 begin ShowMessage(39。修改39。圖 ：procedure (Sender: TObject)。end。 //保存菜譜信息 end。修改39。添加39。 EndElse begin28 AEnabled(2)。)。請(qǐng)將[菜名、單位、價(jià)格]的數(shù)據(jù)添全。價(jià)格39。單位39。菜名39。 。菜系名稱39。菜系類別39。).AsInteger:=a+1。 (39。 Aenabled(1)。 :=39。 :=39。).AsInteger。 a:=(39。 then //添加菜譜信息 begin 。 if =39。 。vara:integer。 。 end。 end。)。對(duì)不起，沒有找到。 :=1。菜名39。 end。)。對(duì)不起，沒有找到。 :=0。編號(hào)39。 end。) then begin c:=c+1。) or (D=39。 if (D=39。 c:=0。25 。請(qǐng)輸入查詢的[編號(hào)或菜名]信息39。d:String。圖 ：procedure (Sender: TObject)。 （2）向窗體中添加query、panel、groupbox、dbgrid、dbedit、edit、dbtext、bitbtn、dblookupbobox、time、datasetfrist、actionlist、label 等控件，主要控件屬性如表 431所示。系統(tǒng)菜譜信息設(shè)置界面主要功能：實(shí)現(xiàn)對(duì)菜譜信息的添加、修改、刪除、查詢的功能。end。 。//打開菜譜費(fèi)用信息表 。procedure (Sender: TObject)。end。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。,key)0 then //具有B類權(quán)限 begin :=True。 End Else if Pos(39。 :=True。 :=True。 :=True。 :=True。 :=True。,key)0 then //具有A類權(quán)限 begin :=True。//聲明操作權(quán)限函數(shù) EnabledKeybegin if Pos(39。如圖 。end。// 打開餐飲部門表。beginIf Assigned(KTGL) Thenbegin。③調(diào)入開臺(tái)界面程序。 end。+IntToStr(day)+39。+IntToStr(Month)+39。+IntToStr(Year)+39。 //分解日期 [2].Text:=39。 :=wsNormal。 。var Year,Month,Day: Word。②先調(diào)用系統(tǒng)登陸窗口，再設(shè)置窗體狀態(tài)參數(shù)程序。begin:=DisPlayHint。 （2）向窗體中添加Imagelist、mainmenu、image、toolbutton、stausbar、panel、time、label 等控件主要屬性為：控件名 屬性 值 功能20Toolbar1 images Imagelist1 設(shè)置工具欄圖標(biāo)stausbar 1 Panel1 用戶登錄【管理員】 顯示程序狀態(tài)、參數(shù) （3）主要程序代碼如下：①使應(yīng)用項(xiàng)目的提示信息掛鉤程序。主程序界面如圖 。⑵可通過菜單或快捷鍵進(jìn)入相應(yīng)子界面。系統(tǒng)在“登陸界面”驗(yàn)證操作員密碼后，將進(jìn)入此界面。end。,List[0].Caption,[loCaseInsensitive])。19 if List[0]Nil then begin (39。var List:Array[0..1]of TListItem。③選擇操作員，點(diǎn)擊其中一個(gè)則將員工的姓名和類型添加到了相應(yīng)位置。 end。 end。 then begin List[0].ImageIndex:=0。).AsString=39。 if (39。姓名39。 While not do begin List[0]:=。 。 User_Close:=0。var List:Array[0..1]of TListItem。②窗體啟動(dòng)，關(guān)閉鑰匙，后將所有操作員添加到操作員列表。18 end。 Close。 User_Close:=3。).AsString+39。+(39。 //設(shè)置操作員權(quán)限 [1].Text:=39。).AsString。 End Else begin Name:=(39。)。).AsString+39。+(39。).AsString then begin ShowMessage(39。 if (39。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 End17 Else begin :=False。 Close。 User_Close:=3。姓名39。]39。姓名39。用戶[39。 //口令錯(cuò)誤 。]的口令錯(cuò)誤.39。姓名39。[39。密碼39。controller39。編號(hào)39。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。begin :=True。如果輸入密碼錯(cuò)誤將提醒并返回，三次錯(cuò)誤輸入則自動(dòng)退出系統(tǒng)。主要控件對(duì)象的屬性如表 421所示。圖 系統(tǒng)登錄界面 （1）添加窗體設(shè)置窗體 caption屬性為“登錄窗口” ，保存窗體為 。153)實(shí)現(xiàn)權(quán)限登錄：系統(tǒng)管理員擁有一切權(quán)利，其他操作員則被限制一些操作權(quán)限。主要實(shí)現(xiàn)的功能如下： 1)以圖標(biāo)形式顯示數(shù)據(jù)庫中操作員，并憑口令登入到主界面。臺(tái)號(hào)信息表的結(jié)構(gòu)如圖 324示。菜譜費(fèi)用信息表的結(jié)構(gòu)如圖 323所示。點(diǎn)菜表的結(jié)構(gòu)見表 322所示。開臺(tái)表的結(jié)構(gòu)見表 321所示。下面分別介紹數(shù)據(jù)表的結(jié)構(gòu)。本系統(tǒng)采用了 SQL Server數(shù)據(jù)庫，數(shù)據(jù)庫名稱為 060412079。10第三章