【文章內(nèi)容簡介】 Professional中文版  　　　　Microsoft Windows xp Service Pack 4中文版 第4章 系統(tǒng)設(shè)計(jì) 系統(tǒng)層次框架飯店管理系統(tǒng)前 臺(tái) 管 理員 工 管 理財(cái) 務(wù) 管 理 基礎(chǔ)信息管 理餐具管理酒水信息菜譜信息商品基礎(chǔ)信息員工信息管理員工資料管理日結(jié)算管理公司資金管理 圖41 飯店管理系統(tǒng)系統(tǒng)層次圖 系統(tǒng)流程圖 根據(jù)餐飲業(yè)的特點(diǎn)和該飯店的實(shí)際情況，系統(tǒng)業(yè)務(wù)流程圖如圖所示。其他費(fèi)用點(diǎn) 菜結(jié) 帳點(diǎn) 菜 分 析酒 水 分 析掛 帳清 臺(tái)營業(yè)分析 圖42 飯店管理系統(tǒng)流程圖 數(shù)據(jù)庫設(shè)計(jì) 針對飯店的業(yè)務(wù)情況和業(yè)務(wù)范圍，系統(tǒng)采用了數(shù)據(jù)庫sql server,數(shù)據(jù)庫名為TLCYGLXT。數(shù)據(jù)庫包含一下幾個(gè)表：菜譜費(fèi)用信息表、酒水費(fèi)用信息表、掛單菜譜表員工信息表、日結(jié)算費(fèi)用信息表、工資管理信息表、房間臺(tái)號(hào)信息表、權(quán)限信息表。菜譜費(fèi)用信息表功能：菜譜費(fèi)用信息表用于保存菜譜費(fèi)用相關(guān)信息表４－１　菜譜費(fèi)用信息表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小編 號(hào)Int菜 名Char50單 位Char10價(jià) 格Money菜系類別Char20口味說明Char30酒水費(fèi)用信息表功能：酒水費(fèi)用信息表用于保存酒水費(fèi)用信息 　表４－２ 　酒水費(fèi)用信息表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小編號(hào)Int存貨編號(hào)int酒水名稱Char20單位Char10價(jià)格Money酒水類別Char20簡要說明char30掛單菜譜表功能：掛單菜譜表用于保存掛單相關(guān)信息 　 表４－３　 掛單菜譜表結(jié)構(gòu) 字段名稱數(shù)據(jù)類型字段大小idUniqueidentifier掛單編號(hào)Int房間臺(tái)號(hào)Int類別Char10編號(hào)Int名稱Char50類型char20單位Char10數(shù)量Int價(jià)格Money合計(jì)Money點(diǎn)單日期datetime結(jié)單日期Datetime服務(wù)員編號(hào)Int服務(wù)員姓名Char12狀態(tài)Char10結(jié)單編號(hào)Int是否結(jié)帳char10 日結(jié)算費(fèi)用信息表功能：日結(jié)算費(fèi)用表用于保存每日結(jié)算費(fèi)用信息表４－４　日結(jié)算費(fèi)用表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小iduniqueidentifier結(jié)帳編號(hào)Int房間臺(tái)號(hào)Int日期Datetime費(fèi)用Money結(jié)款人Char12結(jié)款方式Char20結(jié)款說明Char50員工信息表功能：員工信息表用于保存員工信息 表４－５ 員工信息表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小員工編號(hào)Int姓名Char12性別Char2出生日期Datetime聯(lián)系電話Char15聯(lián)系地址Char30聘用日期Datetime工作部門Char20員工類別Char20身份證號(hào)Char20備注Char60工資管理信息表功能：用于保存員工的工資信息。 表４－６　工資管理信息表結(jié)構(gòu) 字段名稱數(shù)據(jù)類型字段大小工資編號(hào)Int姓名Char12基本工資Money獎(jiǎng)金Money加班費(fèi)Money其他費(fèi)用Money扣除費(fèi)用說明char30扣除費(fèi)用Money合計(jì)Money是否發(fā)表Char10房間臺(tái)號(hào)信息表功能：房間臺(tái)號(hào)信息表用于保存房間的相關(guān)信息表４－７　房間臺(tái)號(hào)信息表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小編號(hào)Int房間名稱char30類型說明Char20餐飲部門Char20服務(wù)費(fèi)Money簡要說明Char30狀態(tài)char10權(quán)限信息表功能：權(quán)限信息表用于保存設(shè)置權(quán)限相關(guān)信息表４－８　權(quán)限信息表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小編號(hào)Char10姓名Char12員工類別Char20密碼Char10權(quán)限char20　　　　　　　　第5章 系統(tǒng)實(shí)現(xiàn) 主程序窗體設(shè)計(jì)(1) 實(shí)現(xiàn)目標(biāo)程序啟動(dòng)后，在“系統(tǒng)登陸”界面驗(yàn)證操作員密碼后，將進(jìn)入主界面主界面主要實(shí)現(xiàn)如下功能：(a)根據(jù)操作員操作權(quán)限，設(shè)置相應(yīng)權(quán)限的菜單和工具欄功能。(b)通過菜單或快捷鍵調(diào)用相應(yīng)子程序。(c)顯示當(dāng)前系統(tǒng)時(shí)間，當(dāng)前操作員和公司名稱等內(nèi)容。 系統(tǒng)主界面如圖51所示　　　　　　　　　圖５－１　系統(tǒng)主界面(2)實(shí)現(xiàn)過程(a)delphi，選擇“file”中的“New Application” 新建項(xiàng)目 main，選擇“file”中的“Save Project as”菜單項(xiàng)。(b)選擇新產(chǎn)生的窗口 form1，設(shè)置窗口 name 屬性為MainForm ，設(shè)置窗口 caption 屬性為“餐飲管理系統(tǒng)”，.(c)向窗體中添加 Imagelist、MainMenu、Image、TooButton、StatusBar、Panel、Time、label 等控件，并設(shè)置相應(yīng)屬性。(d)詳細(xì)程序代碼如附錄11： Function (key:String):Boolean。 //聲明操作權(quán)限函數(shù) EnabledKeybeginif Pos(39。A39。,key)0 then //具有A類權(quán)限begin:=True。 :=True。//打開開臺(tái)管理:=True。:=True。:=True。End(1)實(shí)現(xiàn)目標(biāo)程序啟動(dòng)后，首先進(jìn)入“系統(tǒng)登陸”界面驗(yàn)證操作員密碼。系統(tǒng)登陸窗口主要實(shí)現(xiàn)如下功能：(a)以形象的圖標(biāo)形式顯示操作員，并憑口令進(jìn)入主界面。(b)操作員錯(cuò)誤或密碼錯(cuò)誤提醒并返回錯(cuò)誤點(diǎn)，三次口令錯(cuò)誤，退出系統(tǒng)。(c)支持鍵盤操作，系統(tǒng)管理員擁有管理系統(tǒng)的一切權(quán)力。系統(tǒng)登陸界面如圖5－2所示?！　　　　　　　　　　　　　D５－２　系統(tǒng)登陸主界面(2)實(shí)現(xiàn)過程(a)添加新窗體,設(shè)置窗體name 屬性為 user ,設(shè)置窗體caption 屬性為”系統(tǒng)登陸窗口”.(b)向窗體中添加Datasource 、Query、Dbedit、Edit、listcview、Imagelist、Bevel、Image、Panel、Time、Label等控件，并設(shè)置相應(yīng)屬性。(c)詳細(xì)程序代碼如附錄12：窗體啟動(dòng)后，首先關(guān)閉鑰匙，然后將所有操作員添加到操作員列表。procedure (Sender: TObject)。var List:Array[0..1]of TListItem。begin:=True。User_Close:=0。 //打開關(guān)閉鑰匙。While not dobeginList[0]:=。List[0].Caption:=(39。姓名39。).AsString。if (39。編號(hào)39。).AsString=39。controller39。 thenbeginList[0].ImageIndex:=0。EndElse begin List[0].ImageIndex:=1。 end。 。 end。end。單擊“登陸”按鈕，將判斷操作員、操作員密碼是否正確，如果正確進(jìn)入主界面并根據(jù)操作員權(quán)限設(shè)置菜單和工具欄是否可用。如果操作員錯(cuò)誤或密碼錯(cuò)誤將提醒并返回錯(cuò)誤點(diǎn)，三次口令錯(cuò)誤，退出系統(tǒng)。 前臺(tái)管理模塊本模塊主要實(shí)現(xiàn)點(diǎn)菜,買單,結(jié)帳分析等功能.(1)實(shí)現(xiàn)目標(biāo)點(diǎn)菜管理模塊主要實(shí)現(xiàn)如下功能：(a)在編號(hào)欄輸入菜編號(hào)，將自動(dòng)錄入菜的信息，輸入點(diǎn)菜數(shù)量，將自動(dòng)計(jì)算合計(jì)金額。(b)自動(dòng)生成結(jié)帳編號(hào)，自動(dòng)計(jì)算總金額。(c)可實(shí)現(xiàn)掛單，放棄開臺(tái)，讀單等操作。點(diǎn)菜服務(wù)窗口如圖5－3所示。　　　　　　　　　　　圖5－3 點(diǎn)菜服務(wù)窗口(2)實(shí)現(xiàn)過程(a)添加新窗體，設(shè)置窗體 name 屬性為DCFY_LR ，設(shè)置窗體caption 屬性為“點(diǎn)菜服務(wù)窗口”。(b)向窗體中添加Query、Groupbox、Panel、Dbtext、Imagelist、Listbox、StringGrid、Bevel、Image、Label、Bitbtn等控件，并設(shè)置相應(yīng)屬性。(c)程序代碼如下：procedure TDCFY_LRFormCreate(Sender:TObiect)。begin。End。下面這段代碼主要設(shè)置表格控件的列題和行號(hào)：procedure (Sender:Tobject)。var a,b,c:integer。begin[1,0]:=‘編號(hào)’；[2,0]:=‘名稱’；[3,0]:=‘類型’；[4,0]:=‘單位’；[5,0]:=‘?dāng)?shù)量’；[6,0]:=‘價(jià)格’；[7,0]:=‘狀態(tài)’；[8,0]:=‘合計(jì)’；For a:=1 to do Begin [0,a]:=intToStr(a)。End。End。單擊“開始點(diǎn)菜”按鈕，程序要打開庫存水酒記錄、設(shè)置房臺(tái)狀態(tài)為“開臺(tái)”。Procedure (Sender:object)。Begin:.(‘狀態(tài)’).AsString:=’開臺(tái)’；。:=true。:=true。:=true。End。 客人買單窗口設(shè)計(jì)(1)實(shí)現(xiàn)目標(biāo)：(a)提供客人買單、掛帳等特權(quán)。(b)提供查看消費(fèi)金額窗口。(c)查看相應(yīng)房臺(tái)消費(fèi)?？腿速I單界面如圖5－4所示。　　　　　　　　　　　　　　　　圖5－4　客人買單(2)實(shí)現(xiàn)過程(a)添加新窗口，設(shè)置name為 KRMD,設(shè)置窗體caption 屬性為“買單”(b)向窗體中添加Query、CheckBox、DataSoure、Listview、Bitbtn、label、edit、imgagelist、bevel等控件，并設(shè)置相應(yīng)屬性。(c)程序代碼如下：Procedure (Sender:TObject)。BeginADDListView。End。 結(jié)帳數(shù)據(jù)分析窗口(1)實(shí)現(xiàn)目標(biāo)：(a)類如資源管理器，使用方便、快捷。(b)以列表形式顯示結(jié)帳后菜單信息。(c)自動(dòng)匯總總金額。結(jié)帳數(shù)據(jù)分析界面如圖5－5所示。(2)實(shí)現(xiàn)過程(a)添加新窗體，設(shè)置窗體name 屬性為JZSJFX ，設(shè)置窗體caption 屬性為“結(jié)帳數(shù)據(jù)分析”(b)向窗體中添加Query、Datasource、Groupbox、Dbgrid、imgagelist、treeview、lable等控件，并設(shè)置相應(yīng)屬性?！　　　　　　　　　　　D5－5　結(jié)帳數(shù)據(jù)分析 (c)代碼如下：rocedure (Sender: TObject)。 //啟動(dòng)時(shí)將焦點(diǎn)跳轉(zhuǎn)到不打折結(jié)賬按鈕begin 。end。procedure (Sender: TObject)。begin:=。end。procedure (Sender: TObject)。 //打印點(diǎn)菜信息begin :=。 :=。 。 。end。 財(cái)務(wù)管理 日結(jié)算窗口設(shè)計(jì) (1)實(shí)現(xiàn)目標(biāo) (a)實(shí)現(xiàn)日結(jié)算功能. (b)提供營業(yè)查詢分析窗口. 日結(jié)算管理界面如圖5－6所示。 　　　　　　 　圖5－6　日結(jié)算管理(2)實(shí)現(xiàn)過程:(a)添加新窗體,設(shè)置窗體name 屬性為 rjsg1,設(shè)置窗體caption 屬性為”日結(jié)算管理:”(b)向窗體中添加Qurey、datasource、label、panel、bitbtn、bevel等控件，并設(shè)置相應(yīng)屬性(c)代碼如下:procedure (Sender: TObject)。begin ANimateWindow(Handle,300,AW_SLIDE+AW_VER_POSITIVE)。 。 。 。 。end。procedure (Sender: TObject。 var CanClose: Boolean)。begin ANimateWindow(Handle,300,AW_SLIDE+AW_VER_NEGATIVE+AW_HIDE)。 。end。procedure (Sender: TObject)。begin :=。end。//打印當(dāng)天單據(jù)procedure (Sender: TObject)。begin 。 。end。procedure (Sender: TObject)。begin 。 If = 0 Then begin :=False。 :=False。 end。e