飯店餐飲管理系統(tǒng)2

1、X x 學(xué) 院面向?qū)ο蟪绦蛟O(shè)計(jì)課程設(shè)計(jì)說明書題目： 飯店餐飲管理系統(tǒng) 系(部)： 電子與通信工程系 專業(yè)(班級)： 07級電子信息工程專業(yè)1班 姓名： 萬xx 學(xué)號： 2007xxxxxx 指導(dǎo)教師： 馬xx、謝xx 起止日期： 2010.11.292010.12.4 16 課程任務(wù)書課題名稱飯店餐飲管理系統(tǒng)設(shè)計(jì)內(nèi)容及要求設(shè)計(jì)一個飯店餐飲管理系統(tǒng)，要求界面美觀，具有操作菜單及工具欄；系統(tǒng)應(yīng)包括下列功能模塊：用戶管理模塊：用戶登錄、用戶的添加、刪除、密碼修改功能。用戶根據(jù)口令進(jìn)入系統(tǒng)，不同的用戶擁有不同權(quán)限：可讀可寫、只讀、只讀部分信息。菜單瀏覽模塊：能瀏覽飯店的所有菜品、菜樣及價格，要求能顯示

2、菜樣圖片。點(diǎn)菜模塊：進(jìn)行點(diǎn)菜操作后能預(yù)覽點(diǎn)菜結(jié)果，并統(tǒng)計(jì)金額；買單模塊：進(jìn)行買單操作，可記錄菜單信息、時間信息及收款員等相關(guān)信息，并實(shí)現(xiàn)全款買單、打折買單及免單等功能；要求能按時間段查詢買單信息。留言模塊：記錄并瀏覽顧客的意見和建議；抽獎功能：當(dāng)顧客的消費(fèi)達(dá)到指定金額時，可分檔抽取小獎品。 長沙學(xué)院課程設(shè)計(jì)鑒定表姓名 萬xx學(xué)號2007xxxxxx專業(yè)電子信息工程班級1設(shè)計(jì)題目飯店餐飲管理系統(tǒng)指導(dǎo)教師馬xx、謝xx指導(dǎo)教師意見：評定等級： 教師簽名： 日期： 答辯小組意見：評定等級：答辯小組長簽名：日期：教研室意見：教研室主任簽名： 日期： 系（部）意見：系主任簽名：日期：說明課程設(shè)計(jì)成績分“

3、優(yōu)秀”、“良好”、“及格”、“不及格”四類；目 錄1 設(shè)計(jì)思路分析.51.1、Access數(shù)據(jù)庫51.2、餐廳系統(tǒng).52 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)及分析 6. 2.1、部分程序與窗體63 設(shè)計(jì)總結(jié)15參考文獻(xiàn). 16 摘 要  中國是舉世聞名的美食大國，擁有五千年的飲食文化和巨大的餐飲市場，滿足個人的溫飽問題已不是當(dāng)今的熱點(diǎn)，人們的生活方式逐漸在轉(zhuǎn)變著，飲食已經(jīng)成為了一種時尚，一種享受。民以食為天，隨著人民生活水平和生活方式的轉(zhuǎn)變，漸漸的人們發(fā)現(xiàn)餐飲業(yè)具有巨大的投資市場。隨著餐飲業(yè)投資者的不斷涌入，許多新一代的快餐店，披薩店，餐館在國內(nèi)開始風(fēng)靡，隨處可見。  如今，國外飲食企業(yè)進(jìn)入中國

4、，同時也是中國企業(yè)進(jìn)入國際市場的重要開端，由此必將為國內(nèi)外飲食企業(yè)提供更加廣闊的市場機(jī)會。餐飲業(yè)不僅面臨著巨大的發(fā)展機(jī)遇，也面臨著前所未有的挑戰(zhàn)和考驗(yàn)。隨著中國對外的不斷開放，會有大量的企業(yè)或公司介入到餐飲領(lǐng)域。同時，隨著中國兌現(xiàn)承諾和中國社會信息化的深化，很多地區(qū)性企業(yè)的“環(huán)境優(yōu)勢”對國外企業(yè)的障礙和不利條件被不斷地消除，中國市場的競爭將更為激烈，而且隨著餐飲業(yè)的迅速擴(kuò)展，其中所暴露的問題也是不容忽視的。  首先，人才的專業(yè)化程度不夠?qū)е聝?nèi)供不足：因餐飲業(yè)門坎較低，中國的大多數(shù)餐飲企業(yè)的老板是從小店發(fā)展起來的，家族式管理的居多，還沒有發(fā)展到聘請職業(yè)經(jīng)理人，許多還是"人治&

5、quot;，并沒有一套現(xiàn)代企業(yè)制度和監(jiān)督管理體制，所以從觀念意識、經(jīng)營思想和管理水平還有待專業(yè)化。其次，應(yīng)變能力差，缺乏先進(jìn)的信息工具：現(xiàn)在的餐飲市場火爆，許多以前做電子、房地產(chǎn)等其他行業(yè)的老板都憑借雄厚的資金實(shí)力擠進(jìn)餐飲市場，爭先恐后的上規(guī)模、上檔次、比菜品、比服務(wù)、拼價格，使餐飲市場競爭激烈，但是許多餐飲企業(yè)缺乏對市場的應(yīng)變能力和靈敏的信息工具，在現(xiàn)今網(wǎng)絡(luò)經(jīng)濟(jì)的時代，許多餐飲企業(yè)還處在手工及半手工狀態(tài)，即使有計(jì)算機(jī)也只當(dāng)個點(diǎn)菜器和計(jì)算器用，并沒有真正通過計(jì)算機(jī)系統(tǒng)來實(shí)現(xiàn)改造流程、強(qiáng)化管理、降低成本、堵漏節(jié)流等作用。  最后缺乏科學(xué)和標(biāo)準(zhǔn)的管理體系：國外著名的快餐連鎖經(jīng)過上百年的探

6、索都形成了標(biāo)準(zhǔn)化的工作流程和方法。中餐因其菜品的多樣化和特色化的服務(wù)很難實(shí)現(xiàn)標(biāo)準(zhǔn)化管理，這使中餐企業(yè)的成本控制很難實(shí)現(xiàn)，但近兩年也出現(xiàn)了引進(jìn)快餐式經(jīng)營特點(diǎn)的中餐企業(yè)，從流程、服務(wù)、出品都開了中餐標(biāo)準(zhǔn)化的先河。信息系統(tǒng)的引進(jìn)，則會緩解和解決以上問題：首先，餐飲管理信息系統(tǒng)不是單純的用于結(jié)帳計(jì)算的工具，它有著科學(xué)的、標(biāo)準(zhǔn)的管理體系，它是通過對目前餐飲市場的具體情況科學(xué)的調(diào)研分析后設(shè)計(jì)而成的，它能夠針對中餐因其菜品的多樣化和特色化的服務(wù)很難實(shí)現(xiàn)標(biāo)準(zhǔn)化管理，使中餐企業(yè)的成本控制很難實(shí)現(xiàn)這些問題給與解決。其次，餐飲管理信息系統(tǒng)能夠給出具體的相應(yīng)的符合企業(yè)自身要求的較科學(xué)的標(biāo)準(zhǔn)化管理流程，這暫時緩解了專業(yè)

7、人才的需求，通過使用該系統(tǒng)就能完成專業(yè)人員所要做的事。最后，餐飲管理信息系統(tǒng)可以針對企業(yè)的經(jīng)營現(xiàn)狀而做出科學(xué)的分析，使得企業(yè)對市場的應(yīng)變能力得到了提高，從而通過餐飲管理信息系統(tǒng)來實(shí)現(xiàn)強(qiáng)化管理、降低成本、堵漏節(jié)流等作用。更好的完善企業(yè)的經(jīng)營管理，提高企業(yè)自身的競爭實(shí)力。一、設(shè)計(jì)思路1.1、 Access數(shù)據(jù)庫 Access2003 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。那么什么叫數(shù)據(jù)庫呢？數(shù)據(jù)庫(Database)是由一些有意義和有關(guān)系的數(shù)據(jù)(data)所組合而成。一個數(shù)據(jù)庫中，包含了許多條記錄(Record),而每條記錄是由多個字段(Field)所組成,不同的字段存

8、放這不同的數(shù)據(jù)。所以數(shù)據(jù)庫的嚴(yán)格定義是一組相關(guān)記錄的集合，而字段則是最基本的數(shù)據(jù)項(xiàng)，也是數(shù)據(jù)庫中最小的單位。在計(jì)算機(jī)中用來幫我們管理數(shù)據(jù)庫的系統(tǒng)，我們稱之為數(shù)據(jù)庫管理管理系統(tǒng)（Database Management System DBMS）。數(shù)據(jù)庫管理系統(tǒng)是架構(gòu)在一個或多個數(shù)據(jù)庫之上，并針對數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行管理運(yùn)用。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息，數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)

9、絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能1.2、餐廳系統(tǒng)餐廳系統(tǒng)是按國內(nèi)餐飲行業(yè)最新要求開發(fā)的全新概念信息管理系統(tǒng)。該系統(tǒng)將餐廳收銀、往來帳務(wù)結(jié)算管理及銷售情況統(tǒng)計(jì)工作在單微機(jī)或網(wǎng)絡(luò)系統(tǒng)中完成。主要特點(diǎn)包括：（1）代碼菜譜編制，方便統(tǒng)計(jì)，方便輸入；（2）開單、改單、結(jié)算、打印、用戶界面方便友好；（3）系統(tǒng)專設(shè)往來帳、內(nèi)部帳，結(jié)算方式靈活多樣，結(jié)算信息詳盡翔實(shí)；（4）帳務(wù)系統(tǒng)的可擴(kuò)充性。由于餐廳業(yè)務(wù)的擴(kuò)展，勢必要求帳務(wù)結(jié)算系統(tǒng)隨之?dāng)U展，在不修改程序的前提下，本系統(tǒng)可在相當(dāng)可觀

10、的范圍內(nèi)，由用戶擴(kuò)展其營業(yè)項(xiàng)目和結(jié)算手段。（5）帳務(wù)操作數(shù)據(jù)的可校驗(yàn)性。本系統(tǒng)提供了多種方便的查詢、校核和統(tǒng)計(jì)功能，供帳務(wù)操作人員和專職核數(shù)人員自核及校對帳務(wù)數(shù)據(jù)。例如，當(dāng)班收銀員下班時直接統(tǒng)計(jì)當(dāng)班期間的輸單、收銀情況。為餐飲企業(yè)管理人員提供及時準(zhǔn)確的經(jīng)營狀況和帳務(wù)信貸情況。餐廳系統(tǒng)需要完成的功能有以下幾點(diǎn)。（1）美食檔案：添加、修改、按菜系、原料、烹飪方法查詢（2）訂餐管理：訂餐、訂餐修改、訂餐取消、訂餐查詢。（3）收款管理：立帳、折扣設(shè)定。（4）銷售查詢：可按年、月、日檢查銷售情況，也可按銷售額查詢并畫出銷售額圖表。 二系統(tǒng)結(jié)構(gòu)設(shè)計(jì)及分析上面我們創(chuàng)建了飯店餐飲管理系統(tǒng)中餐飲管理部分的數(shù)據(jù)庫

11、結(jié)構(gòu)。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息，數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。2.1、部分程序與窗體-frmmain進(jìn)入主頁面Private Sub Form_Load()strExplain(0) = "由餐飲部門的工作人員輸入各種菜肴的原始資料，以供編輯菜單使用。"strExplain(1) = "編輯、制作出令客人滿

12、意的菜單，并可預(yù)覽所點(diǎn)的各種美味佳肴，同時管理收費(fèi)。"strExplain(2) = "供餐飲部門經(jīng)理查看各種銷售記錄，統(tǒng)計(jì)分析各種數(shù)據(jù)。"strExplain(3) = "退出美食向?qū)С绦颉?quot;strExplain(4) = "本產(chǎn)品用于各級酒店餐飲部門的訂餐點(diǎn)菜及收費(fèi)管理。"。Private Sub lblDir_Click(Index As Integer)lblDir(Index).MousePointer = 11Select Case Index Case 0 If MsgBox("您是“" &

13、amp; strHotelName & "”餐飲部門工作人員嗎？", vbYesNo + vbQuestion, "美食檔案-輸入、編輯菜單原始資料") = vbNo Then Exit Sub End If frmInput.Show Me.Hide Case 1 Load frmGuest Case 2 If MsgBox("您是“" & strHotelName & "”餐飲部門管理人員嗎？", vbYesNo + vbQuestion, "美食檔案-銷量查詢")

14、= vbNo Then Exit Sub End If Load frmQuery Case 3 If MsgBox("要退出美食向?qū)幔?quot;, vbQuestion + vbYesNo, "退出提示") = vbNo Then Exit Sub End If Dim frm As Form For Each frm In Forms Unload frm Next EndEnd SelectEnd Sub-frmguest(code)可以訂餐、點(diǎn)餐、查看菜系等 Private Sub cmdAdd_Click()If lstCustomer.ListCo

15、unt = 0 Then If Trim(txtCustomerID) = "" Then MsgBox "請?zhí)顚懩臉?biāo)識！", vbInformation, "訂餐提示" txtCustomerID = "" txtCustomerID.SetFocus Exit Sub End If If Trim(txtSetCount) = "" Then MsgBox "請?zhí)顚懹啿吞讛?shù)！", vbInformation, "訂餐提示" txtSetCount =

16、 "" txtSetCount.SetFocus Exit Sub End If If Trim(txtOrderDate) = "" Then MsgBox "請?zhí)顚懹啿腿掌冢?quot;, vbInformation, "訂餐提示" txtOrderDate = "" txtOrderDate.SetFocus Exit Sub Else With txtOrderDate If IsDate(Trim(.Text) Then .Text = Format(Trim(.Text), "YYY

17、Y-MM-DD") Else MsgBox "訂餐日期無效！請按默認(rèn)的日期格式填寫。", vbInformation, "訂餐提示" .Text = Format(Date, "YYYY-MM-DD") .SetFocus .SelStart = 0 .SelLength = Len(txtOrderDate) Exit Sub End If End With End If If Trim(txtDinnerDate) = "" Then MsgBox "請?zhí)顚懹貌腿掌冢?quot;, vbIn

18、formation, "訂餐提示" txtDinnerDate = "" txtDinnerDate.SetFocus Exit Sub Else With txtDinnerDate If IsDate(Trim(.Text) Then .Text = Format(Trim(.Text), "YYYY-MM-DD") Else MsgBox "用餐日期無效！請按默認(rèn)的日期格式填寫。", vbInformation, "訂餐提示" .Text = Format(Date, "YYYY

19、-MM-DD") .SetFocus .SelStart = 0 .SelLength = Len(txtOrderDate) Exit Sub End If End With End If Rec2.FindFirst "CustomerID = '" & Trim(txtCustomerID) & "' And DinnerDate = #" & CDate(txtDinnerDate) & "#" If Rec2.NoMatch = False Then MsgBox &

20、quot;在相同的用餐日期內(nèi)（" & txtDinnerDate & "），" & vbCrLf _ & "已有一位標(biāo)識為“" & txtCustomerID & "”的客人。" & vbCrLf _ & "請您換一個標(biāo)識吧！", vbInformation, "訂餐提示" txtCustomerID.SetFocus txtCustomerID.SelStart = 0 txtCustomerID.SelLength =

21、 Len(txtCustomerID) Exit Sub End If txtCustomerID.Locked = True txtSetCount.Locked = True txtOrderDate.Locked = True txtDinnerDate.Locked = True cmdCheck.Enabled = True cmdPreview.Enabled = True AddToCustomerMenu If txtFindDate = txtDinnerDate Then cmdFind_Click End If Else '如果lstCustomer中有內(nèi)容的話

22、Dim I As Integer For I = 0 To lstCustomer.ListCount - 1 If Trim(Mid(lstCustomer.List(I), 4) = lstShowMenu.Text Then lstCustomer.ListIndex = I MsgBox "您已經(jīng)選擇了這道菜。如果想再加一份的話，請單擊“增加一份”按鈕。", vbInformation, "請餐提示" cmdAddOne.SetFocus Exit Sub End If Next I AddToCustomerMenu-frmguest 窗體-f

23、rminput 可添加、修改、刪除菜單，可按菜色、烹飪方法、原料顯示，可修改訂餐電話等Private Sub File1_Click()If Len(File1.FileName) > 20 Then MsgBox "這個文件的名字太長，請把它的名字改為20個字以內(nèi)。", vbInformation, "輸入、編輯菜單原始資料" File1.Visible = False Exit SubEnd IfDim L As LongL = FileLen(AppDir & "Image" & File1.FileNam

24、e)If L > 350000 Then MsgBox "圖片太大，請把它縮為大約300×300象素，300k左右。", vbInformation, "輸入、編輯菜單原始資料" File1.Visible = False Exit SubPrivate Sub MnuFileSave_Click()If Trim(txtName) = "" Then MsgBox "菜名不能空白！", vbExclamation, "輸入、編輯菜單原始資料" txtName = "&

25、quot; txtName.SetFocus Exit SubEnd IfIf Trim(txtABC) = "" Then MsgBox "請?zhí)顚懖嗣钠匆糇诸^！", vbExclamation, "輸入、編輯菜單原始資料" txtABC = "" txtABC.SetFocus Exit SubEnd IfIf DBState = Add Then Rec.Close Set Rec = Nothing Set Rec = DB.OpenRecordset("Select * from Menu or

26、der by ABC,Name") Rec.FindFirst "Name='" & txtName & "'" If Rec.NoMatch = False Then MsgBox "“" & txtName & "”這道菜已經(jīng)存在！", vbInformation, "保存提示" txtName.SetFocus SendKeys "Home+End" Exit Sub End IfEnd IfOutputToDB

27、MnuShowWhole_ClickDBState = savedFrameState (DBState)End Sub-frmnutrition主要用于查看食物的營養(yǎng)組成。-frmpreview生成賬單并打印出來。Dim sngH As SingleDim I As IntegerW = 12.5cmdPrint.Visible = FalselblWait.Visible = TrueDoEventsWith Printer .ScaleMode = 7 .Font.Size = 12 sngH = .TextHeight(frmGuest.lblWelcome(0) + 0.1 .Wid

28、th = 576 * W .Height = 576 * (10 + lstCustomer.ListCount * sngH) .Font.Name = "隸書" .Font.Size = 20 .CurrentX = (W - .TextWidth(frmGuest.lblWelcome(0) / 2 .CurrentY = 1For I = 0 To lstCustomer.ListCount - 1 .CurrentX = 2 .CurrentY = 3 + sngH * (I + 6) Printer.Print lstCustomer.List(I) Next

29、I .CurrentX = 2 .CurrentY = 3 + sngH * (I + 8) Printer.Print lblTotal .CurrentX = 2 .CurrentY = 3 + sngH * (I + 9) Printer.Print lblPay .CurrentX = 2 .CurrentY = 3 + sngH * (I + 12) Printer.Print "-結(jié)束(打印日期:" & Format(Date, "YYYY-MM-DD") & ")-" .CurrentX = 2 .Cur

30、rentY = 3 + sngH * (I + 16) Printer.Print lblWait.Visible = FalseIf MsgBox("現(xiàn)在開始打印。請加紙。", vbInformation + vbOKCancel, "打印菜單") = vbOK Then .EndDocElse .KillDocEnd IfEnd WithcmdPrint.Visible = TrueExit SubEh: MsgBox "打印時發(fā)生錯誤：" & vbCrLf & Err.Description, vbInforma

31、tion, "打印出錯"End Sub-frmprice按消費(fèi)范圍進(jìn)行查詢等。Private Sub cmdOK_Click()With txtPrice1 If Trim(.Text) = "" Then .SetFocus Exit Sub End IfEnd WithWith txtPrice2 If Trim(.Text) = "" Then .SetFocus Exit Sub End IfEnd WithWith frmGuest .Rec1.Close Set .Rec1 = Nothing Set .Rec1 = .D

32、B.OpenRecordset("Select Name,Price From Menu Where Other3 = 0 And Price Between " & CCur(Trim(txtPrice1) & " And " & CCur(Trim(txtPrice2) & " Order By ABC,Name", dbOpenSnapshot) .ShowNamePrice .Rec1, .lstShowMenu, "請選擇（價格在" & txtPrice1 &

33、; "-" & txtPrice2 & "元之間）："End WithUnload MeEnd Sub-frmquery查銷售額，可以按年、月、日進(jìn)行查詢，也可生成銷售額的柱狀圖。-月銷售額查詢Private Sub cmdMonthFind_Click()Dim datFind As DateDim strFind As StringstrFind = Trim(InputBox("請輸入年、月：(格式：YYYY-MM 如：" & Format(Date, "YYYY-MM") &

34、 ")", "月銷售額查詢", Format(Date, "YYYY-MM")If strFind = "" Then Exit SubIf Not IsDate(Left(strFind, 7) Then MsgBox "“" & strFind & "”不是一個有效的年月！", vbInformation, "月銷售額查詢" Exit SubEnd IfdatFind = Format(strFind, "YYYY-MM&qu

35、ot;)If MsgBox("您要查詢的年月是" & Year(datFind) & "年" & Month(datFind) & "月嗎？", vbQuestion + vbYesNo, "月銷售額查詢") = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = DB.OpenRecordset("Select Sum(Pay) From Sale Where Year(Date)

36、= " & Year(datFind) & " And Month(Date) = " & Month(datFind)If Not IsNull(Rec.Fields(0) Then S = Rec.Fields(0)End IfMsgBox Year(datFind) & "年" & Month(datFind) & "月的銷售額是：" & Format(S, "#0.00") & "元。", vbInformatio

37、n, "月銷售額查詢"Rec.CloseSet Rec = NothingEnd Sub-年銷售額查詢Private Sub cmdYearFind_Click()Dim datFind As DateDim strFind As StringstrFind = Trim(InputBox("請輸入2位或4位年份：(如：" & Format(Date, "YYYY") & "或" & Format(Date, "YY") & "代表" &

38、; Format(Date, "YYYY") & "年)", "年銷售額查詢", Format(Date, "YYYY")If strFind = "" Then Exit SubDim strDate As StringstrDate = Left(strFind & "-01-01", 10)If Not IsDate(strDate) Then MsgBox "“" & strFind & "”不是一個有效的

39、年份！", vbInformation, "年銷售額查詢" Exit SubEnd IfdatFind = CDate(strDate)If MsgBox("您要查詢的年份是" & Year(datFind) & "年嗎？", vbQuestion + vbYesNo, "年銷售額查詢") = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = DB.OpenRecordset("Select Sum(Pay) From Sale Where Year(Date) = " & Year(datFind)If Not IsNull(Rec.Fields(0) Then S = Rec.Fields(0)End IfMsgBox Year(datFind) & "年的銷售額是：