1、VB程序設計及數據庫應用課程設計題目 飯店菜式管理系統 課 程 名 稱 VB程序設計及數據庫應用課程設計 專 業 工業工程 學 號 姓 名 指 導 教 師 目錄1.選題的意義11.1 選該題目的原因11.2 完成此題目用到的數據結構和知識點12.系統功能簡介22.1登錄22.2菜式管理系統22.3 菜式瀏覽22.4點菜系統23. 概要設計23.1 各模塊之間關系33.2 各模塊流程圖34.系統實現44.1 主界面44.2 登錄、注冊、修改密碼54.3 菜式管理界面84.4 菜式瀏覽界面114.5 點菜界面165.總結175.1 疑難點175.2 體會18參考文獻：181.選題的意義1.1 選該

2、題目的原因 通過對飯店菜式管理系統的程序設計，了解軟件開發基本步驟，諸如問題分析、系統設計、程序編碼、測試等基本方法和技能。本程序可實現顧客點菜，按菜名、價格、菜系瀏覽菜式功能，同時飯店內部人員可以通過該程序對菜式添加、刪除、修改功能。1.2 完成此題目用到的數據結構和知識點 數據結構：通過可視化數據管理器可以進行數據庫操作。建立數據庫：啟動可視化數據管理器，創建數據庫，創建數據庫表，然后編輯數據庫。 知識點：Access技術：可以開發關系數據庫，數據庫能匯集各種信息以供查詢、存儲和檢索。數據庫(Database)是由一些有意義和有關系的數據(data)所組合而成。一個數據庫中，包含了許多條記

3、錄(Record),而每條記錄是由多個字段(Field)所組成,不同的字段存放這不同的數據。所以數據庫的嚴格定義是一組相關記錄的集合，而字段則是最基本的數據項，也是數據庫中最小的單位。在計算機中用來幫我們管理數據庫的系統，我們稱之為數據庫管理管理系統（Database Management System DBMS）。數據庫管理系統是架構在一個或多個數據庫之上，并針對數據庫中的數據進行管理運用。Access 的優點在于它能使用數據表示圖或自定義窗體收集信息，數據表示圖提供了一種類似于 Excel 的電子表格，可以使數據庫一目了然。另外，Access 允許創建自定義報表用于打印或輸出數據庫中的信息

4、。Access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他網絡用戶共享數據庫。如上所述，Access 作為關系數據庫開發具備了許多優點，可以在一個數據包中同時擁有桌面數據庫的便利和關系數據庫的強大功能。 結構化查詢語言SQL: 結構化查詢語言(Structrued Query Lauguage,SQL)是訪問數據庫的標準語言，使用SQL語言可以從數據庫中獲取數據，建立數據庫和數據庫對象，增加，修改數據和實現復雜的查詢功能。它是本系統實現的基礎。使用data控件訪問數據庫：主要使用的是data控件和數據綁定控件編寫數據庫應用程序的方法。2.系統功能簡介2.1登

5、錄 打開飯店菜式管理系統程序，進入主界面。通過輸入用戶名和密碼登錄到菜式管理界面2.2菜式管理系統 通過輸入用戶名和密碼進入到了菜式管理界面，對菜式進行添加、刪除和修改，以及瀏覽全部菜式，并可返回主界面。2.3 菜式瀏覽 進入菜式瀏覽界面，可根據菜名、菜價、菜系瀏覽菜式，并可返回主界面2.4點菜系統 通過點擊菜式管理系統的點菜按鈕進入到點菜系統。此界面有一個List和一個MSFlexGrid，MSFlexGrid用來顯示所有菜式，List用來顯示已點的菜。通過點菜按鈕將MSFlexGrid中選擇的菜添加到List中，通過退菜按鈕將List中已選菜退掉，在點菜和退菜的同時還對顧客消費進行計算，點

6、菜完成后進行落單，點擊返回按鈕返回主界面。3. 概要設計3.1 各模塊之間關系 .飯店菜式管理系統 登 錄 登錄認證 失 敗 菜式瀏覽系統點菜系統菜式管理系統 3.2 各模塊流程圖修改顯示全部添加返回刪除菜式管理系統 a 菜式管理系統 b 菜式瀏覽系統菜式瀏覽系統 按價格瀏覽按菜系瀏覽按菜名瀏覽川菜徽菜魯菜粵菜c 點菜系統點菜系統落單返回退菜點菜4.系統實現 4.1 主界面 包含菜式管理（登錄）、菜式瀏覽、點菜，如圖 核心代碼：Private Sub Command1_Click() '單擊菜式瀏覽按鈕 Unload Form4 Form5.ShowEnd SubPrivate Sub

7、 Command2_Click() '單擊點菜按鈕 Unload Form4 Form3.ShowEnd SubPrivate Sub enter_Click() '單擊登錄 Unload Form4 Form6.ShowEnd Sub4.2 登錄、注冊、修改密碼 a 工作人員登錄界面 核心代碼：Private Sub Command1_Click() '單擊確定按鈕 Adodc1.RecordSource = "select * from 登錄信息 where 用戶名=" + "'" + Trim(Text1.Text)

8、 + "'" + " and 密碼=" + "'" + Trim(Text2.Text) + "'" Adodc1.Refresh If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then '判斷用戶名與密碼是否相符 MsgBox "用戶名或密碼錯誤" Else Unload Form6 form1.Show End IfEnd SubPrivate Sub Command2_Click(

9、) '單擊注冊按鈕 Unload Form6 Form7.Show '進入注冊界面End SubPrivate Sub Command3_Click() '單擊取消按鈕 Unload Form6 Form4.Show '返回主界面End Sub b注冊界面 核心代碼：Private Sub Command1_Click() '單擊注冊按鈕Adodc1.RecordSource = "select * from 登錄信息 where 用戶名=" + "'" + Trim(Text1.Text) + "

10、;'"Adodc1.RefreshIf Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then '判斷用戶名是否已經存在 Adodc1.Recordset.Fields("用戶名") = Trim(Text1.Text) Adodc1.Recordset.Fields("密碼") = Trim(Text2.Text) '將用戶名密碼存入數據庫 Adodc1.Refresh If Text2.Text = Text3.Text Then MsgBox

11、("注冊成功") End IfElseMsgBox "用戶名已存在"End IfEnd SubPrivate Sub Command2_Click() '單擊返回按鈕Unload Form7Form6.Show '返回登錄界面End Sub c 修改密碼界面 核心代碼：Private Sub Command1_Click() '單擊確認按鈕Adodc1.RecordSource = "select * from 登錄信息 where 用戶名=" + "'" + Trim(Text1.

12、Text) + "'"Adodc1.RefreshIf Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then Adodc1.Recordset.Fields("密碼") = Trim(Text2.Text) '將新密碼存入數據庫 Adodc1.Refresh MsgBox "修改密碼成功"ElseMsgBox "用戶名不存在"End IfEnd SubPrivate Sub Command2_Click() '單

13、擊取消按鈕 Unload Form8 form1.Show '返回菜式管理界面End Sub4.3 菜式管理界面對菜式進行添加、刪除和修改，以及瀏覽全部菜式 核心代碼： Private Sub Command1_Click() '單擊添加按鈕 Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text7.Locked = False '將所有文本框鎖定End SubPrivate Sub Command2_Cli

14、ck() '單擊刪除按鈕 Dim msg As Integer msg = MsgBox("你確定要刪除編號為" & Text1.Text & " , 菜名為" & Text2.Text & "的菜式的所有信息嗎?", vbYesNo, "刪除菜式") If msg = vbYes Then Data1.Recordset.Delete '刪除所選信息 End IfEnd Sub Private Sub Command3_Click() '單擊確定按鈕 Tex

15、t1.Locked = True Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text7.Locked = True '將所有文本框解鎖End SubPrivate Sub Command4_Click() '單擊修改按鈕 Text1.Locked = False Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text7.Locked = Fa

16、lse '將所有文本框鎖定End SubPrivate Sub Command5_Click() '單擊退出按鈕 Unload form1 Form4.Show '返回到主界面End Sub Private Sub Command6_Click() '單擊取消按鈕End SubPrivate Sub Command7_Click() '單擊全部顯示按鈕 Load form1 Form2.Show '進入全部顯示界面End Sub 核心代碼：Private Sub Command1_Click() '單擊返回按鈕 Unload Form2

17、form1.Show '返回到菜式管理End Sub 4.4 菜式瀏覽界面按菜名瀏覽按菜價降序瀏覽按菜系“徽菜”瀏覽按菜系“川菜”瀏覽按菜系“魯菜”瀏覽按菜系“粵菜”瀏覽 核心代碼：Private Sub Command1_Click() '單擊按菜名瀏覽按鈕Dim sy As Stringsy = "select * from 菜式"Data1.RecordSource = syData1.RefreshEnd SubPrivate Sub Command2_Click() '單擊徽菜按鈕Dim hc As Stringhc = "sel

18、ect * from 菜式 where 菜系='徽菜'"Data1.RecordSource = hcData1.RefreshEnd SubPrivate Sub Command3_Click() '單擊按菜價瀏覽按鈕Dim jg As Stringjg = "select * from 菜式 order by val(價格) desc "Data1.RecordSource = jgData1.RefreshEnd SubPrivate Sub Command4_Click() '單擊川菜按鈕Dim hc As Stringcc

19、 = "select * from 菜式 where 菜系='川菜'"Data1.RecordSource = ccData1.RefreshEnd SubPrivate Sub Command5_Click() '單擊魯菜按鈕Dim hc As Stringlc = "select * from 菜式 where 菜系='魯菜'"Data1.RecordSource = lcData1.RefreshEnd SubPrivate Sub Command6_Click() '單擊粵菜按鈕Dim hc As

20、Stringyc = "select * from 菜式 where 菜系='粵菜'"Data1.RecordSource = ycData1.RefreshEnd SubPrivate Sub Command7_Click() '單擊返回按鈕 Unload Form5 Form4.Show '返回到主界面End Sub 4.5 點菜界面Dim g As Single Private Sub Command1_Click() '選中list表中已點菜品進行刪菜操作If List1.ListIndex <> -1 Thenx

21、 = List1.ListIndexList1.RemoveItem xEnd IfText4 = Val(Text4) - g '相應總金額減少End SubPrivate Sub Command2_Click() '單擊事件時，把所選菜品添加到當前點菜的list表中Dim a, b As Integera = Len(Text1.Text)b = Len(Text2.Text) + Len(Text3.Text) + 1List1.AddItem Text1.Text & Space(18 - a * 2) & Text2.Text & "

22、*" & Text3.Text & Space(18 - b) & Val(Text2) * Val(Text3) '按照一定位置在list表中顯示所點菜品的名字，單價，數量及總價。Dim c As Singlec = Val(Text2.Text) * Val(Text3.Text) '當前所選菜的總價Text4.Text = c + Val(Text4.Text) '每點一道菜，總金額進行累加End SubPrivate Sub Command3_Click() Label6.Caption = "您一共點了 " & List1.ListCount & " 種菜"End SubPrivate Sub Command4_Click() '單擊返回按鈕 Unload Form3 Form4.Show '返回到主界面End SubPrivate Sub List1_Click() '單擊列表框里的某一行時，顯示相應信息If List1.ListIndex <> -1 Then x = List1.ListIndexEnd IfDim e, f As Stringe = List1.List(x) '單擊時選中一道菜