VB飯店菜式管理系統(tǒng)課程設(shè)計(jì)

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

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

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

4、。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。如上所述，Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。 結(jié)構(gòu)化查詢語(yǔ)言SQL: 結(jié)構(gòu)化查詢語(yǔ)言(Structrued Query Lauguage,SQL)是訪問(wèn)數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)語(yǔ)言，使用SQL語(yǔ)言可以從數(shù)據(jù)庫(kù)中獲取數(shù)據(jù)，建立數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)對(duì)象，增加，修改數(shù)據(jù)和實(shí)現(xiàn)復(fù)雜的查詢功能。它是本系統(tǒng)實(shí)現(xiàn)的基礎(chǔ)。使用data控件訪問(wèn)數(shù)據(jù)庫(kù)：主要使用的是data控件和數(shù)據(jù)綁定控件編寫數(shù)據(jù)庫(kù)應(yīng)用程序的方法。2.系統(tǒng)功能簡(jiǎn)介2.1登

5、錄 打開(kāi)飯店菜式管理系統(tǒng)程序，進(jìn)入主界面。通過(guò)輸入用戶名和密碼登錄到菜式管理界面2.2菜式管理系統(tǒng) 通過(guò)輸入用戶名和密碼進(jìn)入到了菜式管理界面，對(duì)菜式進(jìn)行添加、刪除和修改，以及瀏覽全部菜式，并可返回主界面。2.3 菜式瀏覽 進(jìn)入菜式瀏覽界面，可根據(jù)菜名、菜價(jià)、菜系瀏覽菜式，并可返回主界面2.4點(diǎn)菜系統(tǒng) 通過(guò)點(diǎn)擊菜式管理系統(tǒng)的點(diǎn)菜按鈕進(jìn)入到點(diǎn)菜系統(tǒng)。此界面有一個(gè)List和一個(gè)MSFlexGrid，MSFlexGrid用來(lái)顯示所有菜式，List用來(lái)顯示已點(diǎn)的菜。通過(guò)點(diǎn)菜按鈕將MSFlexGrid中選擇的菜添加到List中，通過(guò)退菜按鈕將List中已選菜退掉，在點(diǎn)菜和退菜的同時(shí)還對(duì)顧客消費(fèi)進(jìn)行計(jì)算，點(diǎn)

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

7、 Command2_Click() '單擊點(diǎn)菜按鈕 Unload Form4 Form3.ShowEnd SubPrivate Sub enter_Click() '單擊登錄 Unload Form4 Form6.ShowEnd Sub4.2 登錄、注冊(cè)、修改密碼 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 "用戶名或密碼錯(cuò)誤" Else Unload Form6 form1.Show End IfEnd SubPrivate Sub Command2_Click(

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

10、;'"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ù)庫(kù) Adodc1.Refresh If Text2.Text = Text3.Text Then MsgBox

11、("注冊(cè)成功") End IfElseMsgBox "用戶名已存在"End IfEnd SubPrivate Sub Command2_Click() '單擊返回按鈕Unload Form7Form6.Show '返回登錄界面End Sub c 修改密碼界面 核心代碼：Private Sub Command1_Click() '單擊確認(rèn)按鈕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) '將新密碼存入數(shù)據(jù)庫(kù) Adodc1.Refresh MsgBox "修改密碼成功"ElseMsgBox "用戶名不存在"End IfEnd SubPrivate Sub Command2_Click() '單

13、擊取消按鈕 Unload Form8 form1.Show '返回菜式管理界面End Sub4.3 菜式管理界面對(duì)菜式進(jìn)行添加、刪除和修改，以及瀏覽全部菜式 核心代碼： 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("你確定要?jiǎng)h除編號(hào)為" & 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 '進(jìn)入全部顯示界面End Sub 核心代碼：Private Sub Command1_Click() '單擊返回按鈕 Unload Form2

17、form1.Show '返回到菜式管理End Sub 4.4 菜式瀏覽界面按菜名瀏覽按菜價(jià)降序?yàn)g覽按菜系“徽菜”瀏覽按菜系“川菜”瀏覽按菜系“魯菜”瀏覽按菜系“粵菜”瀏覽 核心代碼：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() '單擊按菜價(jià)瀏覽按鈕Dim jg As Stringjg = "select * from 菜式 order by val(價(jià)格) 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 點(diǎn)菜界面Dim g As Single Private Sub Command1_Click() '選中l(wèi)ist表中已點(diǎn)菜品進(jìn)行刪菜操作If List1.ListIndex <> -1 Thenx

21、 = List1.ListIndexList1.RemoveItem xEnd IfText4 = Val(Text4) - g '相應(yīng)總金額減少End SubPrivate Sub Command2_Click() '單擊事件時(shí)，把所選菜品添加到當(dāng)前點(diǎn)菜的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表中顯示所點(diǎn)菜品的名字，單價(jià)，數(shù)量及總價(jià)。Dim c As Singlec = Val(Text2.Text) * Val(Text3.Text) '當(dāng)前所選菜的總價(jià)Text4.Text = c + Val(Text4.Text) '每點(diǎn)一道菜，總金額進(jìn)行累加End SubPrivate Sub Command3_Click() Label6.Caption = "您一共點(diǎn)了 " & List1.ListCount & " 種菜"End SubPrivate Sub Command4_Click() '單擊返回按鈕 Unload Form3 Form4.Show '返回到主界面End SubPrivate Sub List1_Click() '單擊列表框里的某一行時(shí)，顯示相應(yīng)信息If List1.ListIndex <> -1 Then x = List1.ListIndexEnd IfDim e, f As Stringe = List1.List(x) '單擊時(shí)選中一道菜