飯店就餐管理系統(tǒng)數(shù)據(jù)庫課設(shè)

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

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

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

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

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

6、息4. 登錄E-R圖登錄用戶名密碼 圖2.4 登錄2.3 表結(jié)構(gòu)設(shè)計(jì)下面為各個(gè)表的設(shè)計(jì)1.菜肴信息表圖2.5 菜肴信息表2.餐桌信息表圖2.6 餐桌信息表3.用戶信息表圖2.7 用戶信息表4.賬單表圖2.8 賬單表5.賬單明細(xì)表圖2.9 賬單明細(xì)表3 各窗體設(shè)計(jì)3.1啟動(dòng)封面窗體及登錄對(duì)話框的設(shè)計(jì)要求：圖片背景、歡迎類文字、單擊顯示“進(jìn)入系統(tǒng)”標(biāo)題的標(biāo)簽或按鈕，將打開“登錄”對(duì)話框，用戶輸入用戶名和密碼，若正確則打開下面的主窗體；否則提示密碼錯(cuò)誤，請(qǐng)重新輸入。最多允許輸入3次。如圖3.1，3.2所示圖3.1 進(jìn)入系統(tǒng)窗體進(jìn)入系統(tǒng)后進(jìn)入登陸主窗體的編碼為：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 "用戶名錯(cuò)誤，重新輸入", vbExclamation,

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

9、Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub3.2 主窗體要求：設(shè)計(jì)為MDI窗體，含有主菜單：文件、系統(tǒng)設(shè)置管理、客人就餐管理、數(shù)據(jù)查詢和統(tǒng)計(jì) 文件菜單包含以下子菜單及其功能：注冊(cè)新用戶菜單：打開“注冊(cè)新用戶”窗體退出：結(jié)束程序運(yùn)行 系統(tǒng)設(shè)置管理 包含以下子菜單：菜譜管理菜單：顯示菜譜信息窗體餐桌管理菜單：顯示餐桌信息窗體用戶管理菜單：顯示用戶信息窗體退出菜單：結(jié)束程序運(yùn)行 客人就餐管理包含以下子菜單：開臺(tái)菜單：打開“開臺(tái)”窗體，登記客人的餐桌號(hào)，并啟動(dòng)“點(diǎn)菜”窗體點(diǎn)菜菜單：打開“點(diǎn)菜”窗體，修改某餐桌上客人的點(diǎn)菜信

10、息結(jié)賬菜單：打開“結(jié)賬”窗體，選擇要結(jié)算的餐桌，進(jìn)行結(jié)算，打印賬單。數(shù)據(jù)查詢和統(tǒng)計(jì)包含以下子菜單：現(xiàn)態(tài)查詢：顯示當(dāng)前每個(gè)餐桌的占用/空閑情況，占用餐桌的用餐人數(shù)銷售金額統(tǒng)計(jì)：按時(shí)間段統(tǒng)計(jì)飯店的銷售總額，累計(jì)用餐人數(shù)菜肴消費(fèi)排行榜：按順序顯示消費(fèi)次數(shù)最多的菜肴名稱及其消費(fèi)次數(shù)如圖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()Frmxiaoshou#ShowEnd SubPrivate Sub yonghu_Cli

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

13、ivate Sub Command1_Click()Dim sqlstr As StringIf Text1 = "" Then MsgBox "請(qǐng)輸入用戶名！", vbExclamation, "確認(rèn)用戶名" 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 "二次輸入的密碼不一致，請(qǐng)重新輸入", vbExclamation, "檢驗(yàn)密碼" Text2 = "": Text3 = "" Text2.SetFocus Exit SubElseIf Text2 = "&quo

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

16、ot;添加用戶"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.4分別設(shè)計(jì)各個(gè)信息窗體功能：瀏覽和錄入各信息。該窗體以文本框顯示當(dāng)前記錄，用按鈕首記錄、末記錄、前一個(gè)、后一個(gè)，控制記錄指針的移動(dòng)；用一個(gè)標(biāo)簽Label顯示：當(dāng)前記錄號(hào)/記錄總數(shù)；單擊表格顯示按鈕，顯示DataGrid控件(Visible=True),以表格形式顯示商品信息表，單擊返回按鈕，可以關(guān)閉本窗體，返回主窗體?？梢詫?duì)記錄進(jìn)行新增、確認(rèn)、刪除、取消操作。如圖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("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")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 開臺(tái)窗體圖3.9 點(diǎn)菜窗體圖3.10 結(jié)賬窗體其編碼為：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中,供用戶選擇。在文本框中輸入要查詢的內(nèi)容，單擊查詢按鈕，查詢結(jié)果用網(wǎng)格控件顯示.。如圖3.13 3.14所示：圖3.11 現(xiàn)態(tài)查詢窗體其編碼為：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 "可容納人數(shù)"Combo1.AddItem "是否空閑"Combo1.Text = "可容納人數(shù)"Text1.Text = "End Sub 圖3.12 消費(fèi)金額統(tǒng)計(jì)窗體 其編碼為：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 "就餐人數(shù)"Combo1.AddItem "實(shí)收金額"Combo1.Text = "就餐人數(shù)"Text1.Text = ""End Sub 圖3.13 菜肴統(tǒng)計(jì)窗體其編碼為：Option ExplicitPrivate Sub Command1_Click()Dim str As Stringstr = " Select * From 賬單明細(xì)表"str = str & "

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