1、VB程序設(shè)計及數(shù)據(jù)庫應(yīng)用課程設(shè)計題目 飯店菜式管理系統(tǒng) 課 程 名 稱 VB程序設(shè)計及數(shù)據(jù)庫應(yīng)用課程設(shè)計 專 業(yè) 工業(yè)工程 學(xué) 號 100103022 姓 名 孟文敏 指 導(dǎo) 教 師 舒啟林，魏永合 目錄1.選題的意義11.1 選該題目的原因11.2 完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識點12.系統(tǒng)功能簡介22.1登錄22.2菜式管理系統(tǒng)22.3 菜式瀏覽22.4點菜系統(tǒng)23. 概要設(shè)計23.1 各模塊之間關(guān)系33.2 各模塊流程圖34.系統(tǒng)實現(xiàn)44.1 主界面44.2 登錄、注冊、修改密碼54.3 菜式管理界面84.4 菜式瀏覽界面114.5 點菜界面165.總結(jié)175.1 疑難點175.2 體會

2、18參考文獻：181.選題的意義1.1 選該題目的原因 通過對飯店菜式管理系統(tǒng)的程序設(shè)計，了解軟件開發(fā)基本步驟，諸如問題分析、系統(tǒng)設(shè)計、程序編碼、測試等基本方法和技能。本程序可實現(xiàn)顧客點菜，按菜名、價格、菜系瀏覽菜式功能，同時飯店內(nèi)部人員可以通過該程序?qū)Σ耸教砑印h除、修改功能。1.2 完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識點 數(shù)據(jù)結(jié)構(gòu)：通過可視化數(shù)據(jù)管理器可以進行數(shù)據(jù)庫操作。建立數(shù)據(jù)庫：啟動可視化數(shù)據(jù)管理器，創(chuàng)建數(shù)據(jù)庫，創(chuàng)建數(shù)據(jù)庫表，然后編輯數(shù)據(jù)庫。 知識點：Access技術(shù)：可以開發(fā)關(guān)系數(shù)據(jù)庫，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。數(shù)據(jù)庫(Database)是由一些有意義和有關(guān)系的數(shù)據(jù)(dat

3、a)所組合而成。一個數(shù)據(jù)庫中，包含了許多條記錄(Record),而每條記錄是由多個字段(Field)所組成,不同的字段存放這不同的數(shù)據(jù)。所以數(shù)據(jù)庫的嚴格定義是一組相關(guān)記錄的集合，而字段則是最基本的數(shù)據(jù)項，也是數(shù)據(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ù)進行管理運用。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息，數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允

4、許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。 結(jié)構(gòu)化查詢語言SQL: 結(jié)構(gòu)化查詢語言(Structrued Query Lauguage,SQL)是訪問數(shù)據(jù)庫的標準語言，使用SQL語言可以從數(shù)據(jù)庫中獲取數(shù)據(jù)，建立數(shù)據(jù)庫和數(shù)據(jù)庫對象，增加，修改數(shù)據(jù)和實現(xiàn)復(fù)雜的查詢功能。它是本系統(tǒng)實現(xiàn)的基礎(chǔ)。使用data控件訪問數(shù)據(jù)庫：主要使用的是data控件和數(shù)據(jù)綁定控件編寫數(shù)

5、據(jù)庫應(yīng)用程序的方法。2.系統(tǒng)功能簡介2.1登錄 打開飯店菜式管理系統(tǒng)程序，進入主界面。通過輸入用戶名和密碼登錄到菜式管理界面2.2菜式管理系統(tǒng) 通過輸入用戶名和密碼進入到了菜式管理界面，對菜式進行添加、刪除和修改，以及瀏覽全部菜式，并可返回主界面。2.3 菜式瀏覽 進入菜式瀏覽界面，可根據(jù)菜名、菜價、菜系瀏覽菜式，并可返回主界面2.4點菜系統(tǒng) 通過點擊菜式管理系統(tǒng)的點菜按鈕進入到點菜系統(tǒng)。此界面有一個List和一個MSFlexGrid，MSFlexGrid用來顯示所有菜式，List用來顯示已點的菜。通過點菜按鈕將MSFlexGrid中選擇的菜添加到List中，通過退菜按鈕將List中已選菜退掉

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

7、ShowEnd SubPrivate Sub 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 用戶名=" + "'&qu

8、ot; + Trim(Text1.Text) + "'" + " 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 SubPriva

9、te Sub Command2_Click() '單擊注冊按鈕 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 用戶名=" + "'" + Tr

10、im(Text1.Text) + "'"Adodc1.RefreshIf Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then '判斷用戶名是否已經(jīng)存在 Adodc1.Recordset.Fields("用戶名") = Trim(Text1.Text) Adodc1.Recordset.Fields("密碼") = Trim(Text2.Text) '將用戶名密碼存入數(shù)據(jù)庫 Adodc1.Refresh If Text2.Text = T

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

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

13、ommand2_Click() '單擊取消按鈕 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 SubPr

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

15、lick() '單擊確定按鈕 Text1.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 = F

16、alse Text7.Locked = False '將所有文本框鎖定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() 

17、9;單擊返回按鈕 Unload Form2 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 A

18、s Stringhc = "select * 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() '單擊

19、川菜按鈕Dim hc As Stringcc = "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()

20、 '單擊粵菜按鈕Dim hc As 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() '選中l(wèi)ist表中已點菜品進行刪菜操作If List1.ListI

21、ndex <> -1 Thenx = List1.ListIndexList1.RemoveItem xEnd IfText4 = Val(Text4) - g '相應(yīng)總金額減少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) & T

22、ext2.Text & "*" & Text3.Text & Space(18 - b) & Val(Text2) * Val(Text3) '按照一定位置在list表中顯示所點菜品的名字，單價，數(shù)量及總價。Dim c As Singlec = Val(Text2.Text) * Val(Text3.Text) '當前所選菜的總價Text4.Text = c + Val(Text4.Text) '每點一道菜，總金額進行累加End SubPrivate Sub Command3_Click() Label6.Captio

23、n = "您一共點了 " & List1.ListCount & " 種菜"End SubPrivate Sub Command4_Click() '單擊返回按鈕 Unload Form3 Form4.Show '返回到主界面End SubPrivate Sub List1_Click() '單擊列表框里的某一行時，顯示相應(yīng)信息If List1.ListIndex <> -1 Then x = List1.ListIndexEnd IfDim e, f As Stringe = List1.List(x) '單擊時選中