課程設(shè)計(jì)報(bào)告-delphi餐飲管理系統(tǒng)(最新整理by阿拉蕾)(參考版)
2025-03-26 12:23本頁(yè)面
【正文】 ⑵點(diǎn)擊“開(kāi)始點(diǎn)菜。end。+IntToStr()。 :=39。 。房臺(tái)名稱39。 :=True。39。39。+39。+39。39。39。 //39?？臻e39。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)。 36:=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。 臺(tái)號(hào)信息查詢的設(shè)計(jì) 所示。 end。)。 End Else begin ShowMessage(39。 GB:=1。 。編號(hào)39。 。編號(hào)39。 If = 0 Then begin34 。).AsSTring。 :=(39。,StrToInt(),[loCaseInsensitive]) then begin If not Assigned(DCFY_LR) Then begin DCFY_LR:=(Self)。 End Else if (39。)。 If Length() = 0 Then begin ShowMessage(39。33圖 開(kāi)臺(tái)管理開(kāi)臺(tái)設(shè)置界面：procedure (Sender: TObject)。end。 end。)。對(duì)不起，沒(méi)有找到。//將焦點(diǎn)移到開(kāi)臺(tái)設(shè)置按扭上 end。//將焦點(diǎn)移到點(diǎn)菜服務(wù)按扭上 End Else begin :=0。 then begin :=1。).AsString39。,[loPartialKey]) then begin if (39。 End Else begin if (39。)。對(duì)不起，沒(méi)有找到。//將焦點(diǎn)移到開(kāi)臺(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 begin31 ShowMessage(39。 a,b,c:integer。 Lists:integer。圖 開(kāi)臺(tái)管理搜索臺(tái)號(hào)界面：procedure (Sender: TObject)。 （2）向窗體中添加datasource、query、groupbox、panel、pagecontrol、dbgrid、dbedit、edit、db30text、bitbtn、dblookupbobox、image、label 等控件，主要控件屬性如表 431 所示。⑶點(diǎn)擊空房自動(dòng)彈出與昂查詢窗口從而自動(dòng)開(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)信息。end。 :=False。 //“查詢“按鈕可用 :=True。 //“刪除“按鈕可用 :=True。 :=True。 //“查詢“按鈕不可用 :=False。 //“刪除“按鈕不可用 :=False。5. 狀態(tài)編輯與瀏覽狀態(tài)函數(shù)function AEnabled(key:integer):Boolean 。 //刪除數(shù)據(jù) end。確認(rèn)刪除指定的菜譜信息嗎？39。)。對(duì)不起，這是最后一個(gè)菜，不能刪除。begin 。 菜譜刪除設(shè)計(jì) 所示。 //取消保存信息 end。修改39。添加39。 End Else begin AENabled(2)。 //編輯 。取消39。保存39。 End Else //如果數(shù)據(jù)不為空 begin AEnabled(1)。39。 If = 0 Then //如果數(shù)據(jù)為空 begin ShowMessage(39。修改39。圖 菜譜信息設(shè)置修改界面：procedure (Sender: TObject)。end。 //保存菜譜信息 end。修改39。添加39。 EndElse begin 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。 菜譜添加設(shè)計(jì) 所示。 end。 end。)。對(duì)不起，沒(méi)有找到。 :=1。菜名39。 end。)。對(duì)不起，沒(méi)有找到。 :=0。編號(hào)39。 end。) then begin c:=c+1。) or (D=39。 if (D=39。 c:=0。 。請(qǐng)輸入查詢的[編號(hào)或菜名]信息39。d:String。圖 菜譜信息查詢?cè)O(shè)置界面23：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。 。//打開(kāi)菜譜費(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)限 begin20 :=True。//聲明操作權(quán)限函數(shù) EnabledKeybegin if Pos(39。如圖 所示。end。// 打開(kāi)餐飲部門表。beginIf Assigned(KTGL) Thenbegin。③調(diào)入開(kāi)臺(tái)界面程序。 end。+IntToStr(day)+39。+IntToStr(Month)+39。+IntToStr(Yea
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1