vb程序設(shè)計(jì)與數(shù)據(jù)庫(kù)應(yīng)用課程設(shè)計(jì)---飯店菜式管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁(yè)數(shù)：20 大?。?82.50KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題（含答案詳解+作文范文）_第1頁(yè)

已閱讀1頁(yè)，還剩19頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　VB程序設(shè)計(jì)及數(shù)據(jù)庫(kù)應(yīng)用課程設(shè)計(jì)　　題目飯店菜式管理系統(tǒng) 　　課程名稱 VB程序設(shè)計(jì)及數(shù)據(jù)庫(kù)應(yīng)用課程設(shè)計(jì) 　　目錄　　1.選題的意義1</

2、p>　　1.1 選該題目的原因1　　1.2 完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識(shí)點(diǎn)1　　2.系統(tǒng)功能簡(jiǎn)介2　　2.1登錄2　　2.2菜式管理系統(tǒng)2　　2.3 菜

3、式瀏覽2　　2.4點(diǎn)菜系統(tǒng)2　　3. 概要設(shè)計(jì)2　　3.1 各模塊之間關(guān)系3　　3.2 各模塊流程圖3　　4.系統(tǒng)實(shí)現(xiàn)4&l

4、t;/b>　　4.1 主界面4　　4.2 登錄、注冊(cè)、修改密碼5　　4.3 菜式管理界面8　　4.4 菜式瀏覽界面11　　4.5 點(diǎn)菜界面16<p

5、>　　5.總結(jié)17　　5.1 疑難點(diǎn)17　　5.2 體會(huì)18　　參考文獻(xiàn)：18　　1.選題的意義</

6、p>　　1.1 選該題目的原因　　通過(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ū)Σ耸教砑?、刪除、修改功能。　　1.2 完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識(shí)點(diǎn)&

7、lt;p>　　數(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ǔ)

8、和檢索。數(shù)據(jù)庫(kù)(Database)是由一些有意義和有關(guān)系的數(shù)據(jù)(data)所組合而成。一個(gè)數(shù)據(jù)庫(kù)中，包含了許多條記錄(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ù)管

9、理系統(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ù)中的信息。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ā)具備了許多

10、優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利　　結(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ù)

11、據(jù)綁定控件編寫(xiě)數(shù)據(jù)庫(kù)應(yīng)用程序的方法。　　2.系統(tǒng)功能簡(jiǎn)介　　2.1登錄　　打開(kāi)飯店菜式管理系統(tǒng)程序，進(jìn)入主界面。通過(guò)輸入用戶名和密碼登錄到菜式管理界面　　2.2菜式管理系統(tǒng)<

12、;/b>　　通過(guò)輸入用戶名和密碼進(jìn)入到了菜式管理界面，對(duì)菜式進(jìn)行添加、刪除和修改，以及瀏覽全部菜式，并可返回主界面。　　2.3 菜式瀏覽　　進(jìn)入菜式瀏覽界面，可根據(jù)菜名、菜價(jià)、菜系瀏覽菜式，并可返回主界面　　2

13、.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)菜完成后進(jìn)行落單，點(diǎn)擊返回按鈕返回主界面。

14、　　概要設(shè)計(jì)　　3.1 各模塊之間關(guān)系　　.

15、　　登　　錄 　　失　　敗 　　3.2 各模塊流程圖</p&g

16、t;　　a 菜式管理系統(tǒng)　　b 菜式瀏覽系統(tǒng)　　c 點(diǎn)菜系統(tǒng)　　4.系統(tǒng)實(shí)現(xiàn)

17、4.1 主界面 　　包含菜式管理（登錄）、菜式瀏覽、點(diǎn)菜，如圖　　核心代碼：　　Private Sub Command1_Click() '單擊菜式瀏覽按鈕　　Unload Form4

18、　　Form5.Show　　End Sub　　Private Sub Command2_Click() '單擊點(diǎn)菜按鈕　　Unload Form4　　Form3.Show<p&

19、gt;　　End Sub　　Private Sub enter_Click() '單擊登錄　　Unload Form4　　Form6.Show　　End Sub&l

20、t;p>　　4.2 登錄、注冊(cè)、修改密碼　　a 工作人員登錄界面　　核心代碼：　　Private Sub Command1_Click() '單擊確定按鈕　　Adodc1.RecordSource = "sel

21、ect * from 登錄信息 where 用戶名=" + "'" + Trim(Text1.Text) + "'" + " and 密碼=" + "'" + Trim(Text2.Text) + "'"　　Adodc1.Refresh

22、　　If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then '判斷用戶名與密碼是否相符　　MsgBox "用戶名或密碼錯(cuò)誤"　　Else　　Unlo

23、ad Form6　　form1.Show　　End If　　End Sub　　Private Sub Command2_Click() '單擊注冊(cè)按鈕<p&

24、gt;　　Unload Form6　　Form7.Show '進(jìn)入注冊(cè)界面　　End Sub　　Private Sub Command3_Click() '單擊取消按鈕　　Unload Form6</p

25、>　　Form4.Show '返回主界面　　End Sub　　b注冊(cè)界面　　核心代碼：　　Private Sub C

26、ommand1_Click() '單擊注冊(cè)按鈕　　Adodc1.RecordSource = "select * from 登錄信息 where 用戶名=" + "'" + Trim(Text1.Text) + "'"　　Adodc1.Refresh

27、　　If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then '判斷用戶名是否已經(jīng)存在　　Adodc1.Recordset.AddNew　　Adodc1.Recordset.Fields("用戶名") = Trim(Text1.Te

28、xt)　　Adodc1.Recordset.Fields("密碼") = Trim(Text2.Text) '將用戶名密碼存入數(shù)據(jù)庫(kù)　　Adodc1.Recordset.Update　　Adodc1.Refresh　　If Text2.Te

29、xt = Text3.Text Then　　MsgBox ("注冊(cè)成功")　　End If　　Else　　MsgBox "用戶名已存在"

30、　　End If　　End Sub　　Private Sub Command2_Click() '單擊返回按鈕　　Unload Form7　　Form6.Show

31、 '返回登錄界面　　End Sub　　c 修改密碼界面　　核心代碼：　　Private Sub Command1_Click() '單

32、擊確認(rèn)按鈕　　Adodc1.RecordSource = "select * from 登錄信息 where 用戶名=" + "'" + Trim(Text1.Text) + "'"　　Adodc1.Refresh　　If Adodc1.

33、Recordset.EOF = False And Adodc1.Recordset.BOF = False Then　　Adodc1.Recordset.Fields("密碼") = Trim(Text2.Text) '將新密碼存入數(shù)據(jù)庫(kù)　　Adodc1.Recordset.Update<p&

34、gt;　　Adodc1.Refresh　　MsgBox "修改密碼成功"　　Else　　MsgBox "用戶名不存在"　　End If

35、　　End Sub　　Private Sub Command2_Click() '單擊取消按鈕　　Unload Form8　　form1.Show '返回菜式管理界面　　End

36、Sub　　4.3 菜式管理界面　　對(duì)菜式進(jìn)行添加、刪除和修改，以及瀏覽全部菜式　　核心代碼： 　　Private Sub Command1_Click() '單擊添加按鈕<

37、p>　　Data1.Recordset.AddNew　　Text1.Locked = False　　Text2.Locked = False　　Text3.Locked = False　　Text4.Locked = False<p&g

38、t;　　Text5.Locked = False　　Text7.Locked = False '將所有文本框鎖定　　End Sub　　Private Sub Command2_Click() '單擊刪除按鈕　　Dim

39、 msg As Integer　　msg = MsgBox("你確定要?jiǎng)h除編號(hào)為" & Text1.Text & " , 菜名為" & Text2.Text & "的菜式的所有信息嗎?", vbYesNo, "刪除菜式")　　If msg =

40、vbYes Then　　Data1.Recordset.Delete '刪除所選信息　　Data1.Recordset.MoveFirst　　End If　　End Sub</p

41、>　　Private Sub Command3_Click() '單擊確定按鈕　　Text1.Locked = True　　Text2.Locked = True　　Text3.Locked = True　　Text4.Locked =

42、 True　　Text5.Locked = True　　Text7.Locked = True '將所有文本框解鎖　　End Sub　　Private Sub Command4_Click() '單擊修改按鈕<

43、;/p>　　Text1.Locked = False　　Text2.Locked = False　　Text3.Locked = False　　Text4.Locked = False　　Text5.Locked = False</p&g

44、t;　　Text7.Locked = False '將所有文本框鎖定　　End Sub　　Private Sub Command5_Click() '單擊退出按鈕　　Unload form1

45、　Form4.Show '返回到主界面　　End Sub　　Private Sub Command6_Click() '單擊取消按鈕　　Data1.Recordset.Delete　　Data1.Recordset.M

46、oveFirst　　End Sub　　Private Sub Command7_Click() '單擊全部顯示按鈕　　Load form1　　Form2.Show '進(jìn)入全部顯示界面<p

47、>　　End Sub　　核心代碼：　　Private Sub Command1_Click() '單擊返回按鈕　　Unload Form2　　form1.Data1.Refresh&

48、lt;/p>　　form1.Show '返回到菜式管理　　End Sub　　4.4 菜式瀏覽界面　　按菜名瀏覽　　按菜價(jià)降序?yàn)g覽</b

49、>　　按菜系“徽菜”瀏覽　　按菜系“川菜”瀏覽　　按菜系“魯菜”瀏覽　　按菜系“粵菜”瀏覽

50、　　核心代碼：　　Private Sub Command1_Click() '單擊按菜名瀏覽按鈕　　Dim sy As String　　sy = "select * from 菜式"　　D

51、ata1.RecordSource = sy　　Data1.Refresh　　End Sub　　Private Sub Command2_Click() '單擊徽菜按鈕　　Dim hc As String

52、　　hc = "select * from 菜式 where 菜系='徽菜'"　　Data1.RecordSource = hc　　Data1.Refresh　　End Sub

53、　　Private Sub Command3_Click() '單擊按菜價(jià)瀏覽按鈕　　Dim jg As String　　jg = "select * from 菜式 order by val(價(jià)格) desc "　　Data1.RecordSource = jg&

54、lt;/p>　　Data1.Refresh　　End Sub　　Private Sub Command4_Click() '單擊川菜按鈕　　Dim hc As String　　cc = "

55、select * from 菜式 where 菜系='川菜'"　　Data1.RecordSource = cc　　Data1.Refresh　　End Sub　　Private Sub Command5_C

56、lick() '單擊魯菜按鈕　　Dim hc As String　　lc = "select * from 菜式 where 菜系='魯菜'"　　Data1.RecordSource = lc　　Data1.Refresh<

57、;/p>　　End Sub　　Private Sub Command6_Click() '單擊粵菜按鈕　　Dim hc As String　　yc = "select * from 菜式 where 菜系='粵菜'

58、"　　Data1.RecordSource = yc　　Data1.Refresh　　End Sub　　Private Sub Command7_Click() '單擊返回按鈕

59、;　　Unload Form5　　Form4.Show '返回到主界面　　End Sub　　4.5 點(diǎn)菜界面　　Dim g As Single

60、　Private Sub Command1_Click() '選中l(wèi)ist表中已點(diǎn)菜品進(jìn)行刪菜操作　　If List1.ListIndex <> -1 Then　　x = List1.ListIndex　　List1.RemoveItem x<b

61、>　　End If　　Text4 = Val(Text4) - g '相應(yīng)總金額減少　　End Sub　　Private Sub Command2_Click() '單擊事件時(shí)，把所選菜品添加到當(dāng)前點(diǎn)菜的list表中</p&g

62、t;　　Dim a, b As Integer　　a = Len(Text1.Text)　　b = Len(Text2.Text) + Len(Text3.Text) + 1　　List1.AddItem Text1.Text & Space(18 - a * 2) & Te

63、xt2.Text & "*" & Text3.Text & Space(18 - b) & Val(Text2) * Val(Text3) '按照一定位置在list表中顯示所點(diǎn)菜品的名字，單價(jià)，數(shù)量及總價(jià)。　　Dim c As Single　　c = Val(Text2.Text) * Val(

64、Text3.Text) '當(dāng)前所選菜的總價(jià)　　Text4.Text = c + Val(Text4.Text) '每點(diǎn)一道菜，總金額進(jìn)行累加　　End Sub　　Private Sub Command3_Click()

65、;　　Label6.Caption = "您一共點(diǎn)了 " & List1.ListCount & " 種菜"　　End Sub　　Private Sub Command4_Click() '單擊返回按鈕　　Unl

66、oad Form3　　Form4.Show '返回到主界面　　End Sub　　Private Sub List1_Click() '單擊列表框里的某一行時(shí)，顯示相應(yīng)信息　　If List1.ListIndex &l

67、t;> -1 Then　　x = List1.ListIndex　　End If　　Dim e, f As String　　e = List1.List(x) '單擊時(shí)選中一道菜

68、　　Text1.Text = Left(e, 8) '利用left函數(shù)提取所選中菜的菜名　　f = Right(e, 5) '利用right函數(shù)提取所選中菜品的總價(jià)　　g = Val(f)　　End Sub　　Priv

69、ate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) '鼠標(biāo)按下事件，顯示相應(yīng)菜品信息　　Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) '鼠標(biāo)點(diǎn)擊某一行時(shí)，利用TextMatrix屬

70、性把此行第二列的數(shù)據(jù)（菜名）提取出來(lái)并顯示在text1中　　Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) '鼠標(biāo)點(diǎn)擊某一行時(shí)，利用TextMatrix屬性把此行第四列的數(shù)據(jù)（單價(jià)）提取出來(lái)并顯示在text2中　　End Sub</p&g

71、t;　　5.總結(jié)　　5.1 疑難點(diǎn)　　數(shù)據(jù)庫(kù)建立以后無(wú)法與控件綁定，在系統(tǒng)運(yùn)行時(shí)，無(wú)法通過(guò)系統(tǒng)對(duì)數(shù)據(jù)庫(kù)的信息進(jìn)行編輯，修改，刪除；不知如何根據(jù)條件查詢符合條件的信息。通過(guò)查理論知識(shí)、相關(guān)類型的編程以及與同學(xué)討論解決&

72、lt;b>　　5.2 體會(huì)　　自學(xué)精神是我在這次編程中是我最大的體會(huì)，剛開(kāi)始時(shí)不知整體框架如何，就去查相關(guān)編程資料。遇到暫時(shí)無(wú)法解決問(wèn)題時(shí)，通過(guò)思考聯(lián)系以前知識(shí)，想一想通過(guò)什么控件可以實(shí)現(xiàn)，或是查看類的問(wèn)題，練習(xí)自己?jiǎn)栴}經(jīng)過(guò)改造來(lái)實(shí)現(xiàn)自己目的。　　參考文獻(xiàn)：<p

眾賞文庫(kù)> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

vb程序設(shè)計(jì)與數(shù)據(jù)庫(kù)應(yīng)用課程設(shè)計(jì)---飯店菜式管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

vb程序設(shè)計(jì)與數(shù)據(jù)庫(kù)應(yīng)用課程設(shè)計(jì)---飯店菜式管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載