1、摘 要隨著我國市場經濟的快速發展，各行業都呈現出生機勃勃的發展景象，其中餐飲業的發展尤為突出。近兩年來已呈現出高速發展的態勢。但在快速發展的同時，餐飲業在日常經營管理中仍普遍采用手工管理方式，整體科技含量低。隨著餐飲企業規模和數量的不斷增長，手工管理模式無論是在工作效率、人員成本還是提供決策信息方面都已難以適應現代化經營管理的要求，因此制約了整個餐飲業的規?；l展和整體服務水平的提升。有效的管理成為了一個難題，為能有效的解決這些問題提高企業的經濟效益，在這些中小型飯店中采用工作流技術，結合飯店綠色管理內容，實施計算機管理信息系統不視為一條有效的解決途徑。本論文主要針對中小型飯店餐飲管理中的一些

2、問題，將其與計算機信息管理系統結合起來，實現中小型飯店管理信息計算機化、系統化，將中小型飯店管理中的工作流轉化成比較科學化、規范化的業務流程，使管理基礎數據更加準確化，管理人員擺脫了事務性工作，轉而從事管理專業工作，為經營決策提供了快捷和強大的數據支持。把計算機用于餐飲企業管理，可在很大程度上提高管理者分析和決策的科學性，提高經營管職水平，帶來更多的顧客，使企業取得更好的經濟效益。關鍵詞 餐飲管理；信息查詢；數據庫連接目錄1 系統功能概述11.1系統功能分析11.2 系統結構總圖12 數據庫設計22.1 需求分析22.2 E-R模型22.3 表結構設計43 各窗體設計53.1啟動封面窗體及登錄

3、對話框的設計53.2 主窗體73.3注冊新用戶窗體93.4分別設計各個信息窗體113.5客人就餐管理窗體143.6各種信息的查詢窗體16總結.20參考文獻.211 系統功能概述1.1系統功能分析 本系統屬于小型的餐飲管理系統，可以有效地對中小型餐廳消費進行管理，本系統應達到以下目標：系統采用人機交互的方式，界面美觀友好，信息查詢靈活、方便，數據存儲安全可靠。實現對餐廳顧客開臺、點菜/加菜、賬目查詢和結賬等操作。對用戶輸入的數據，進行嚴格的數據檢驗，盡可能的避免人為錯誤。實現對消費賬目自動結算。實現對消費的歷史記錄進行查詢。系統應最大限度地實現易維護性和易操作性1.2 系統結構總圖飯店就餐管理系

4、統的結構總圖，如圖1.1所示用戶管理菜譜管理飯店就餐管理系統注冊新用戶退出文件系統設置管理餐桌管理銷售金額統計菜肴消費排行榜數據查詢和統計現態查詢 圖1.1 飯店就餐管理系統的結構總圖2 數據庫設計2.1 需求分析本系統運用VB 6.0及Microsoft Office Access2007實現，擁有1個登錄窗體、1個主窗體、8個子窗體、2個數據環境設計器。登錄窗體可以登錄到主窗體，點擊主窗體的菜單按鈕，可以選擇具體功能。1. 系統設置管理：包括菜譜管理，餐桌管理，用戶管理2. 數據查詢：數據查詢包括：現態查詢 3. 查詢統計管理：包含銷售金額統計和菜肴銷售排行以上內容需要四個表分別

5、是：包含以下實體及屬性：1. 菜肴信息（菜肴編號，分類，菜名，規格，單價，有效日期）2. 餐桌信息（餐桌編號，餐桌位置，餐桌檔次，可容納人數，是否空閑）3. 賬單表（流水號，餐桌編號，就餐時間，就餐人數，應收金額，實收金額，折扣，經手人）4. 賬單明細表（流水號，菜肴編號，數量）5. 用戶表（用戶名，密碼）2.2 E-R模型1.菜譜管理E-R圖，如圖2.1所示有效日期單價菜譜信息菜肴編號菜名規格分類 圖2.1 菜譜管理2.餐桌管理E-R圖，如圖2.2所示餐桌信息餐桌位置餐桌檔次是否空閑餐桌編號可容納人數 圖2.2 餐桌管理3.用戶信息E-R圖，如圖2.3所示用戶信息密碼用戶名 圖2.3 用戶信

6、息4. 登錄E-R圖登錄用戶名密碼 圖2.4 登錄2.3 表結構設計下面為各個表的設計1.菜肴信息表圖2.5 菜肴信息表2.餐桌信息表圖2.6 餐桌信息表3.用戶信息表圖2.7 用戶信息表4.賬單表圖2.8 賬單表5.賬單明細表圖2.9 賬單明細表3 各窗體設計3.1啟動封面窗體及登錄對話框的設計要求：圖片背景、歡迎類文字、單擊顯示“進入系統”標題的標簽或按鈕，將打開“登錄”對話框，用戶輸入用戶名和密碼，若正確則打開下面的主窗體；否則提示密碼錯誤，請重新輸入。最多允許輸入3次。如圖3.1，3.2所示圖3.1 進入系統窗體進入系統后進入登陸主窗體的編碼為：Private Sub Command1

7、_Click()Frmdenglu.ShowEnd Sub圖3.2 登錄窗體登錄編碼如下：Private Sub Command1_Click()Dim sqlstr As Stringsqlstr = "Select * From 用戶表 Where 用戶名= '" & Text1 & "'"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.EOF Then MsgBox "用戶名錯誤，重新輸入", vbExclamation,

8、 "警告" Text1.Text = " "Text1.SetFocusElse If Adodc1.Recordset.Fields("密碼") = Text2 Then MDIForm1.Show Unload Me Else MsgBox "密碼錯誤，重新輸入 ", vbExclamation, "警告"Text2.Text = " "Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount = 3 Then

9、Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub3.2 主窗體要求：設計為MDI窗體，含有主菜單：文件、系統設置管理、客人就餐管理、數據查詢和統計 文件菜單包含以下子菜單及其功能：注冊新用戶菜單：打開“注冊新用戶”窗體退出：結束程序運行 系統設置管理 包含以下子菜單：菜譜管理菜單：顯示菜譜信息窗體餐桌管理菜單：顯示餐桌信息窗體用戶管理菜單：顯示用戶信息窗體退出菜單：結束程序運行 客人就餐管理包含以下子菜單：開臺菜單：打開“開臺”窗體，登記客人的餐桌號，并啟動“點菜”窗體點菜菜單：打開“點菜”窗體，修改某餐桌上客人的點菜信

10、息結賬菜單：打開“結賬”窗體，選擇要結算的餐桌，進行結算，打印賬單。數據查詢和統計包含以下子菜單：現態查詢：顯示當前每個餐桌的占用/空閑情況，占用餐桌的用餐人數銷售金額統計：按時間段統計飯店的銷售總額，累計用餐人數菜肴消費排行榜：按順序顯示消費次數最多的菜肴名稱及其消費次數如圖3.3所示：圖3.3 主菜單其編碼如下：Option ExplicitPrivate Sub caipu_Click()Frmcaipu.ShowEnd SubPrivate Sub caiyao_Click()Frmcaiyaoxiaofei.ShowEnd SubPrivate Sub canzhuo_Click()

11、Frmcanzhuo.ShowEnd SubPrivate Sub denglu_Click()Frmdenglu.ShowEnd SubPrivate Sub Image1_Click()End SubPrivate Sub keren_Click()End SubPrivate Sub tc_Click()Unload MeEnd SubPrivate Sub xiantai_Click()Frmxiantai.ShowEnd SubPrivate Sub xiaoshou_Click()Frmxiaoshoutongji.ShowEnd SubPrivate Sub yonghu_Cli

12、ck()Frmyonghu.ShowEnd SubPrivate Sub zhuce_Click()Frmzhuce.ShowEnd Sub3.3注冊新用戶窗體用于添加新的用戶名和密碼。；單擊“注冊新用戶”菜單，打開對話框如圖2要求：若新用戶名與系統信息表原有用戶名相同，則提示“用戶名已存在，重新輸入”；判斷二次輸入密碼若不一致，則提示用戶“輸入密碼不一致，重新輸入密碼”；判斷若輸入密碼為空，則提示“密碼不能為空”；若輸入正確，則將輸入的用戶名保存到“系統信息”表，并提示“注冊用戶成功”，關閉本窗體。以下各窗體設為MDI主窗體的子窗體，如圖3.4 3.5所示：圖3.4注冊用戶窗體其編碼為：Pr

13、ivate Sub Command1_Click()Dim sqlstr As StringIf Text1 = "" Then MsgBox "請輸入用戶名！", vbExclamation, "確認用戶名" Text1.SetFocus Exit SubElse sqlstr = "Select * from 用戶表 where 用戶名='" & Text1 & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh I

14、f Adodc1.Recordset.EOF = False Then Text1 = "" Text1.SetFocus Exit Sub End IfEnd If'判斷二次輸入密碼是否一致：If Text2 <> Text3 Then MsgBox "二次輸入的密碼不一致，請重新輸入", vbExclamation, "檢驗密碼" Text2 = "": Text3 = "" Text2.SetFocus Exit SubElseIf Text2 = "&quo

15、t; Then MsgBox "密碼不能為空！", vbExclamation, "檢驗密碼" Text2.SetFocus Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用戶名") = Trim(Text1) Adodc1.Recordset.Fields("密碼") = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox "成功注冊新用戶！", vbInformation, &qu

16、ot;添加用戶"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.4分別設計各個信息窗體功能：瀏覽和錄入各信息。該窗體以文本框顯示當前記錄，用按鈕首記錄、末記錄、前一個、后一個，控制記錄指針的移動；用一個標簽Label顯示：當前記錄號/記錄總數；單擊表格顯示按鈕，顯示DataGrid控件(Visible=True),以表格形式顯示商品信息表，單擊返回按鈕，可以關閉本窗體，返回主窗體?？梢詫τ涗涍M行新增、確認、刪除、取消操作。如圖3.7 3.8 3.9 所示：圖3.5 菜譜管理窗體 圖3.6 餐桌管理窗體 圖3.7 用

17、戶管理窗體其編碼為：Option ExplicitPrivate Sub Command1_Click()Adodc1.Recordset.AddNewCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = TrueEnd SubPrivate Sub Command10_Click()Adodc1.Recordset.MovePrevious '記錄指針移到前一條記錄Command9.Enabled = TrueCommand8.Enabled = TrueIf

18、 Adodc1.Recordset.BOF Then ' 如果記錄指針移到首記錄之前, Adodc1.Recordset.MoveFirst '則記錄指針移到首記錄上 Command5.Enabled = False Command10.Enabled = FalseEnd IfLabel3.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Comman

19、d2_Click()Dim xx = MsgBox("確實要刪除當前記錄嗎？", vbYesNo + vbQuestion, "確認")If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.Update

20、Command1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseEnd SubPrivate Sub Command4_Click()Adodc1.RefreshCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.MoveFirst &

21、#39; 記錄指針移到首記錄（顯示首記錄）Command5.Enabled = False ' 讓首記錄按鈕無效Command10.Enabled = False ' 讓前移按鈕無效Command9.Enabled = True ' 讓后移按鈕有效Command8.Enabled = True ' 讓末記錄按鈕有效Label3.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCoun

22、tEnd SubPrivate Sub Command7_Click()Dim n As Integern = Text3.TextAdodc1.Recordset.Move nLabel3.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command8_Click() Adodc1.Recordset.MoveLast ' 移到末記錄 Command5.E

23、nabled = True Command10.Enabled = True Command9.Enabled = False Command8.Enabled = FalseLabel3.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command9_Click()Adodc1.Recordset.MoveNext '記錄指針移到下一條記錄Command5

24、.Enabled = TrueCommand10.Enabled = TrueIf Adodc1.Recordset.EOF Then ' 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast '則記錄指針移到末記錄上 Command9.Enabled = False Command7.Enabled = FalseEnd IfLabel3.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Records

25、et.RecordCountEnd Sub3.5客人就餐管理窗體 如下圖： 圖3.8 開臺窗體圖3.9 點菜窗體圖3.10 結賬窗體其編碼為：Private Sub Command1_Click()'Adodc1.Recordset.AddNewAdodc1.Recordset.UpdateCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Adodc1.RefreshCommand1.Enabled = TrueCommand2.Enabled = FalseFrmdian

26、cai.ShowEnd SubPrivate Sub Command1_Click()'Adodc1.Recordset.AddNewAdodc1.Recordset.UpdateCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Adodc1.RefreshCommand1.Enabled = TrueCommand2.Enabled = FalseFrmjiezhang.ShowEnd SubPrivate Sub Command1_Click()Unload Frmji

27、ezhangMDIForm1.ShowEnd Sub3.6各種信息的查詢窗體可以按各種條件查找，這些條件放在組合列表框Combo中,供用戶選擇。在文本框中輸入要查詢的內容，單擊查詢按鈕，查詢結果用網格控件顯示.。如圖3.13 3.14所示：圖3.11 現態查詢窗體其編碼為：Dim str As Stringstr = " Select * From 餐桌信息" str = str & " Where 餐桌信息." & Combo1.Text & " Like '" & Text1 & &

28、quot;%' Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload FrmxiantaiMDIForm1.ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem "可容納人數"Combo1.AddItem "是否空閑"Combo1.Text = "可容納人數"Text1.Text = "End Sub 圖3.12 消費金額統計窗體 其編碼為：Private Sub

29、Command1_Click()Dim str As Stringstr = " Select * From 賬單表" str = str & " Where 賬單表." & Combo1.Text & " Like '" & Text1 & "%' " Adodc1.RecordSource = str Adodc1.Refresh End SubPrivate Sub Command2_Click()Unload FrmxiaoshoutongjiMDIF

30、orm1.ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem "就餐人數"Combo1.AddItem "實收金額"Combo1.Text = "就餐人數"Text1.Text = ""End Sub 圖3.13 菜肴統計窗體其編碼為：Option ExplicitPrivate Sub Command1_Click()Dim str As Stringstr = " Select * From 賬單明細表"str = str & "

31、; Where 賬單明細表." & Combo1.Text & " Like '" & Text1 & "%' " Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Unload FrmcaiyaoxiaofeiMDIForm1.ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem "菜肴編號"Combo1.AddItem "數量"Combo1.Text = "菜肴編號"Text1.Text = ""End Sub總結經過了接近一周的時間，我們組成員共