飯店點菜管理系統(tǒng)課程設計報告書(共16頁)

1、精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè)單單 位位 學院學院( (系系) )專專 業(yè)業(yè) 學學 號號 學生姓名學生姓名 指導教師指導教師 完成日期完成日期 20102010 年年 9 9 月月 1515 日日大學課程設計飯店點菜管理系統(tǒng)精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè)目錄 1.1 編寫目的.31.2 定義.3 3.1 登陸界面設計.53.2 內部菜類管理系統(tǒng)界面設計.63.3 內部人員管理系統(tǒng)界面設計.74.1 登陸界面代碼.94.2 內部菜類管理代碼.104.3 內部人員管理代碼.123 3 4 55 5精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè)一一 摘摘 要要 1.11.1 編寫

2、目的編寫目的 飯菜點菜管理系統(tǒng)是用 VB6.0 編寫的一款軟件。飯店點菜管理系統(tǒng)是實用性很強的系統(tǒng)，本系統(tǒng)實現(xiàn)了照片上傳，信息的增刪改查、統(tǒng)計、報表等功能，對實際理解和掌握 VB 語言以及進行實際的項目開發(fā)有很好的范例作用。本系統(tǒng)將通過編寫一個飯菜點菜管理系統(tǒng)程序，綜合介紹 VB 的一些特征，講解如何使用 VB 設計和實現(xiàn)本應用程序。同時，也借此了解編寫此類程序的基本過程。在本系統(tǒng)的實際應用中，顧客可以分類瀏覽飯店的各種菜式、采樣及價格并進行點菜，操作后能預覽點菜結果，并可對其進一步修改；留言板能夠記錄顧客對飯店菜色以及服務等各方面的建議和評價，并具有瀏覽功能；當顧客消費達到一定金額時，可抽取

3、一些小獎品。該系統(tǒng)中除了顧客應用系統(tǒng)外，還有飯店管理內部人員使用系統(tǒng)。飯店管理者可以通過登陸界面進入飯店內部管理系統(tǒng)，由此可以對菜類，菜價等進行修改，增刪等操作以及對顧客留言和消費金額的查看。另外還有飯店工作人員的檔案管理，可以對人員驚醒增刪，修改等操作，和該系統(tǒng)的用戶使用管理，同樣可以進行增添修改等操作。此軟件主要用于飯店管理系統(tǒng)，有利于飯店工作效率的增加。關鍵詞： 飯店點菜管理系統(tǒng)，VB6.0， 組件1.21.2 定義定義1、系統(tǒng)名稱：飯店點菜管理系統(tǒng)2、系統(tǒng)應用軟件：VB6.03、系統(tǒng)設計人員：楊杰、陳毅、王巍浩精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè) 二二 需求分析需求分析2.12.

4、1 功能分析功能分析1、服務員信息的管理：查詢、增、刪、改2、菜單信息的管理：查詢、增、刪、改3、廚師信息的管理：查詢、增、刪、改4、房間信息的管理：查詢、增、刪、改5、餐桌信息的管理：查詢、增、刪、改6、前臺定桌：顧客可以根據(jù)自己的需求，選擇不同型號的房間或大廳7、房間/大廳點菜：服務員按照用戶需求為其點菜并提交菜單給廚房8、廚師和菜的分組：廚師和菜分別分組，每組廚師和一組菜一一對應，該組每位廚師會做該組所有的菜。 （本條目位置）9、廚師做菜管理：廚師可以獲得自己的待做菜單，并對已做的菜進行標記。10、上菜管理：服務員對已上菜和待上菜進行管理。11、結帳服務：審核菜單，協(xié)助顧客結帳。精選優(yōu)質

5、文檔-傾情為你奉上專心-專注-專業(yè)2.22.2 業(yè)務活動業(yè)務活動 1、點菜 2、呼叫人工服務系統(tǒng) 三三 界面設計界面設計3.13.1 登陸界面設計登陸界面設計 登陸界面設計需要滿足顧客和管理人員雙方面的要求，此界面既可以使顧客快速進入點菜界面，又需要使內部人員可以通過賬號、密碼進入內部管理系統(tǒng)，例如 登陸界面登陸界面 通過此界面可以進入點菜和內部人員進入的界面，如精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè)點菜界面內部人員進入的用戶界面 3.23.2 內部菜類管理系統(tǒng)界面設計內部菜類管理系統(tǒng)界面設計內部才來管理系統(tǒng)需要包含菜類管理（如菜類的增刪修改等）和菜價的調整兩個大的方面。其中要有菜類的詳細

6、信息，菜名、菜價、精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè)照片、簡介和新舊菜價等，除此還遨游查詢系統(tǒng)，可以快速從數(shù)據(jù)庫里找到需要修改的菜類。例如菜價調整界面菜價調整界面菜類管理界面菜類管理界面3.33.3 內部人員管理系統(tǒng)界面設計內部人員管理系統(tǒng)界面設計精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè)內部人員管理系統(tǒng)需要包括飯店的所有工作人員的記錄以及能夠進入人員管理系統(tǒng)的人員。通過此系統(tǒng)可以對所有工作人員的資料進行刪除、修改，還有對管理用戶的修改，并通過數(shù)據(jù)庫同意管理。如用戶管理界面用戶管理界面工作人員記錄界面工作人員記錄界面精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè)四四 代碼設計代碼設計4.1

7、4.1 登陸界面代碼設計登陸界面代碼設計 此界面代碼的設計只是通過此界面進入其他管理界面-點菜界面和內部人員進入界面，如Private Sub Command1_Click() formwb.ShowEnd SubPrivate Sub Command2_Click() Formnb.ShowEnd Sub另一界面也是屬于過渡界面，達到進入其他界面的目的，所以應包括進入菜價管理，菜類調整，用戶更改和人員系統(tǒng)等。按照以上界面設計，代碼可設計為Private Sub Command1_Click() Unload Formgl Formcj.ShowEnd SubPrivate Sub Comma

8、nd2_Click() Unload Formgl Formcl.ShowEnd SubPrivate Sub Command3_Click() Unload Formgl Formyh.ShowEnd Sub精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè)Private Sub Command4_Click() Unload Formgl Formry.ShowEnd Sub4.24.2 內部菜類管理代碼內部菜類管理代碼 內部菜類管理包括菜價管理和菜類調整兩方面。首先說菜價管理界面的代碼設計，其中必須有一個關于菜類所有資料的數(shù)據(jù)庫，通過查詢系統(tǒng)可以在界面上顯示出菜類的原價，價格更改后，點擊確認便可

9、在數(shù)據(jù)庫里從新建立關于那種菜的資料，如Private Sub Cmdcancel_Click() Data1.UpdateControls Text1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate Sub cmdsearch_Click() If Text4.Text Then Data1.RecordSource = select * from 菜單 where name= & Text4.Text & Else Data1.RecordSource = selet * from 菜單 End IfD

10、ata1.Refresh If Data1.Recordset.EOF Then MsgBox (輸入的菜名不存在，請重新輸入) Text4.Text = Text4.SetFocus End IfEnd SubPrivate Sub Cmdsuer_Click() If Text1.Text And Text2.Text And Text3.Text = Then MsgBox (請輸入新的菜價) Else mbookmark = Data1.Recordset.Bookmark Text1.SetFocus End If精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè)End Sub再說內部菜類調

11、整系統(tǒng)的代碼設計。同樣需要數(shù)據(jù)庫對菜類的所有資料有記錄，在原基礎上進行增刪修改，最后的資料通過確認取代原來的資料。如Private Sub Cmdadd_Click() Cmdedit.Enabled = Not Cmdedit.Enabled Cmddel.Enabled = Not Cmddel.Enabled Cmdcancel.Enabled = Not Cmdcancel.Enabled If Cmdadd.Caption = 確認 Then mbookmark = Data1.Recordset.Bookmark Data1.Recordset.AddNew Text1(1).Se

12、tFocus Else If Text1(1).Text = Or Text2.Text = Or Text3.Text = Then MsgBox 字段不能為空“ exit Sub End If Cmdadd.Caption = 添加 data1.Recordset.Update End IfEnd SubPrivate Sub Cmdcancel_Click() Cmdadd.Caption = 添加 Cmdedit.Caption = 修改 Cmdadd.Enabled = True Cmdedit.Enabled = True Cmddel.Enabled = True Cmdcanc

13、el.Enabled = False Data1.UpdateControls Data1.Recordset.Bookmark = mbookmarkEnd SubPrivate Sub Cmddel_Click() Dim message As Integer message = MsgBox(是否刪除當前記錄? , 4 + 32 + 256, 信息提示) If message = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.Mo

14、veLast End If精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè)End SubPrivate Sub Cmdedit_Click() Cmdadd.Enabled = Not Cmdadd.Enabled Cmddel.Enabled = Not Cmddel.Enabled Cmdcancel.Enabled = Not Cmdcancel.Enabled If Cmdedit.Caption = 修改 Then Cmdedit.Caption = 確認 mbookmark = Data1.Recordset.Bookmark Data1.Recordset.Edit Text1(1).

15、SetFocus Else Cmdedit.Caption = 修改 Data1.Recordset.Update End IfEnd SubPrivate Sub cmdsearch_Click() If Text4(0).Text Then Data1.RecordSource = select * from 菜單 where name= & Text4(0).Text & Else Data1.RecordSource = selet * from 菜單 End If Data1.Refresh If Data1.Recordset.EOF Then MsgBox (輸入

16、的菜名不存在，請重新輸入) Text4(0).Text = Text4(0).SetFocus End IfEnd Sub4.34.3 內部人員管理代碼內部人員管理代碼內部人員管理代碼也應包括用戶管理和工作人員管理兩個方面，其中都涉及了資料的更改以及數(shù)據(jù)庫的建立與保存。在用戶管理界面，需要有添加刪除用戶，以及用戶更改密碼等基本操作，代碼可設計為Private Sub Command1_Click() If Command1.Caption = 添加 Then Command1.Caption = 確認精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè) mbookmark = Data1.Records

17、et.Bookmark Data1.Recordset.AddNew 清空各個文本框 Text1.SetFocus Else Command1.Caption = 添加 Data1.Recordset.Update End IfEnd SubPrivate Sub Command2_Click() If Command2.Caption = 修改 Then Command2.Caption = 確認 mbookmark = Data1.Recordset.Bookmark Data1.Recordset.Edit Text1.SetFocus Else Command2.Caption = 修

18、改 Data1.Recordset.Update End If End Sub另一個關于所有工作人員的記錄同上面相差不大，可以設計為Private Sub Command1_Click()If Command1.Caption = 添加 Then Command2.Caption = 確認 mbookmark = Data2.Recordset.Bookmark Data1.Recordset.AddNew 清空各個文本框 Text3.SetFocus Else Command1.Caption = 添加 Data1.Recordset.Update End IfEnd SubPrivate

19、Sub Command2_Click() If Command2.Caption = 修改 Then Command1.Caption = 確認 mbookmark = Data2.Recordset.Bookmark Data1.Recordset.Edit Text3.SetFocus Else精選優(yōu)質文檔-傾情為你奉上專心-專注-專業(yè) Command2.Caption = 修改 Data1.Recordset.Update End IfEnd SubPrivate Sub Command3_Click() Data1.Recordset.Delete If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext End IfEnd Sub所有內部管理系統(tǒng)代碼結束五五 總結總結5.