vb點(diǎn)菜系統(tǒng)課程設(shè)計(jì)

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

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

已閱讀1頁(yè)，還剩28頁(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點(diǎn)菜系統(tǒng)報(bào)告書　　摘要：　　本系統(tǒng)是顧客與飯店溝通的橋梁，顧客可以通過(guò)它實(shí)現(xiàn)對(duì)菜品酒水的瀏覽，集點(diǎn)菜、退菜、留言、抽獎(jiǎng)于一體的vb多窗體應(yīng)用程序。本系統(tǒng)較多考慮人性化設(shè)計(jì)，操作簡(jiǎn)單方便，語(yǔ)言風(fēng)趣，適時(shí)提醒，使商家用得放心，顧客使得舒心。

2、;　　關(guān)鍵詞：　　Vb 飯店點(diǎn)菜系統(tǒng) 窗體留言板　　啟動(dòng)封頁(yè) 抽獎(jiǎng)功能管理功能　　目錄　　封面…………………………………………

3、…………………………………1　　摘要……………………………………………………………………………2　　1.選題的意義……………………………………………………………4　　1.1選擇該題目的原因……………………………………………………4　　2.1完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識(shí)點(diǎn)

4、………………………………4　　2.系統(tǒng)功能需求分析………………………………………………4　　2.1系統(tǒng)概述………………………………………………………………4　　2.2系統(tǒng)的組成及各模塊的功能…………………………………………4　　2.3系統(tǒng)的運(yùn)行環(huán)境………………………………

5、………………………7　　3.系統(tǒng)設(shè)計(jì)………………………………………………………………7　　3.1總體結(jié)構(gòu)設(shè)計(jì)…………………………………………………………7　　4. 系統(tǒng)設(shè)計(jì)：（要包括設(shè)計(jì)界面、核心代碼及說(shuō)明）………………8　　4.1點(diǎn)菜、留言與抽獎(jiǎng)板塊的設(shè)計(jì)與實(shí)現(xiàn)…………

6、…………………8　　4.2點(diǎn)菜、留言與抽獎(jiǎng)板塊的事件與代碼 ……………………8　　5．總結(jié)與存在的問(wèn)題………………………………………………10　　5.1總結(jié)……………………………………………………………………10　　5.2存在的主要問(wèn)題……………………………………………

7、…………11　　6.參考文獻(xiàn)…………………………………………………………………11　　7.附錄…………………………………………………………………………11　　一．選題的意義　　1.1選該題目的原因<p&g

8、t;　　通過(guò)該題目的設(shè)計(jì)，使我們掌握軟件開(kāi)發(fā)過(guò)程的問(wèn)題分析、系統(tǒng)設(shè)計(jì)、程序編碼、測(cè)試等基本方法和技能。主顧可以分類瀏覽飯館的所有菜肴、采集樣品及價(jià)格并舉行點(diǎn)菜，操作后能預(yù)覽點(diǎn)菜成果，并可對(duì)于其進(jìn)一步修改；留言板可以、興許記載主顧的評(píng)價(jià)和意見(jiàn)，并具備瀏覽功效。　　1.2完成該此題用到數(shù)據(jù)結(jié)構(gòu)和知識(shí)點(diǎn)　　用了文件的一些基本操作，如打開(kāi)、訪問(wèn)、讀寫等操作以及E

9、OF函數(shù)等，還有到了timer控件，利用timer控件完成滾動(dòng)字幕，也用到了用到了picturebox以及用picturebox加載圖片，用到還有加載圖片時(shí)用到的相對(duì)路徑app.path等。　　二．系統(tǒng)功能需求分析　　2.1系統(tǒng)概述　　系統(tǒng)可以分類瀏覽飯店的所有菜式、酒水圖

10、片及價(jià)格；進(jìn)行點(diǎn)菜操作后能預(yù)覽點(diǎn)菜結(jié)果，并可對(duì)其進(jìn)一步修改如退菜等。當(dāng)顧客的消費(fèi)達(dá)到指定金額時(shí)，可以參與抽獎(jiǎng)活動(dòng)，顧客可以直接留言，系統(tǒng)具有記錄顧客的意見(jiàn)和建議并具有瀏覽功能。由于飯店現(xiàn)代管理的加強(qiáng)與流行，人們對(duì)工作效率的重視，將會(huì)使《飯店點(diǎn)菜系統(tǒng)》具有更廣泛應(yīng)用前景。 　　2.2系統(tǒng)的組成以及各模塊的功能　?。?）啟動(dòng)封面（過(guò)5秒鐘后會(huì)自動(dòng)彈出下一個(gè)窗

11、體）　　圖1　　（2）主界面　　圖2　?。?）管理系統(tǒng)的界面（主要是對(duì)酒店的介紹）　　圖3<

12、/b>　?。?）系統(tǒng)總界面（可以進(jìn)行點(diǎn)菜，也可進(jìn)行留言）　　圖4　?。?）點(diǎn)菜系統(tǒng)的界面（可以進(jìn)行點(diǎn)菜，觀察菜樣）　　圖5　?。?）留言系統(tǒng)的界面（

13、把你想說(shuō)的寫下，只有管理員能看到）　　圖6　　（7）抽獎(jiǎng)界面（凡是一次消費(fèi)滿300，都可或抽獎(jiǎng)機(jī)會(huì)一次）　　圖7　　（8）管理界面（管理員登錄，可以查看留言）<p&g

14、t;　　圖8　　2.3系統(tǒng)運(yùn)行的環(huán)境　　2.3.1系統(tǒng)使用環(huán)境　　操作系統(tǒng)：windows2000/XP　　系統(tǒng)支持：visual basic 6.0及以上版本支持庫(kù)　　硬件

15、環(huán)境：　　·處理器：intel pentium 166MX及更高。　　·硬盤：剩余使用空間1GB以上。　　·內(nèi)存：32MB以上。　　·顯卡：SVGA顯示適配器、　　2.3

16、.2系統(tǒng)開(kāi)發(fā)環(huán)境　　·操作系統(tǒng)：windows2000/XP　　·系統(tǒng)支持：visual basic 6.0　　三．系統(tǒng)設(shè)計(jì)　　3.1總體結(jié)構(gòu)設(shè)計(jì)：　　四

17、．系統(tǒng)設(shè)計(jì)　　4.1點(diǎn)菜、留言與抽獎(jiǎng)板塊的設(shè)計(jì)與實(shí)現(xiàn)　　點(diǎn)菜模版是通過(guò)可以自動(dòng)分辨熱菜，涼菜，酒水，主食。方便對(duì)其點(diǎn)菜。而且通過(guò)可以菜樣的圖片，可以讓我們提前看看美味的樣式，讓我們有數(shù)，更會(huì)激起食客的胃口。看到好的菜樣可以直接點(diǎn)，而且如果感覺(jué)點(diǎn)的飯菜有點(diǎn)多，我們還設(shè)計(jì)了可以刪掉你選過(guò)的菜。這樣食客就可以放心大膽的看，希望我的設(shè)計(jì)會(huì)受歡

18、迎。　　留言板塊是通過(guò)食客對(duì)酒店的認(rèn)可程度的一種體現(xiàn)，設(shè)計(jì)該板塊可以保護(hù)消費(fèi)者的權(quán)益，讓食客吃的難忘，對(duì)酒店也要很滿意。如果有什么不好的地方，盡管在留言板塊上寫下來(lái)。每天都會(huì)有管理員進(jìn)行查看的，之后我們還會(huì)進(jìn)行反思和改正。　　抽獎(jiǎng)板塊是對(duì)消費(fèi)者本次光臨的一種感謝，當(dāng)每位消費(fèi)者一次性消費(fèi)滿300元的時(shí)候，就會(huì)有一次的抽獎(jiǎng)機(jī)會(huì)。中獎(jiǎng)率是100%。這樣消費(fèi)者就

19、會(huì)感到很快樂(lè)，雖然小獎(jiǎng)品不怎么值錢?？墒窍M(fèi)者還是會(huì)很高興的，會(huì)感到自己得到好處。從我們角度來(lái)看，雖然在獎(jiǎng)品上花點(diǎn)小錢，可是得到消費(fèi)者的再次光顧，我們還是得到很不錯(cuò)的收益的。　　4.2點(diǎn)菜事件的代碼　　Private Sub Command1_Click()　　List1.Visible = True

20、該命令按鈕是對(duì)“熱菜”進(jìn)行的點(diǎn)　　List2.Visible = False 擊該命令按鈕的時(shí)候出現(xiàn)熱菜的frame　　List3.Visible = False 　　List4.Visible = False</p&g

21、t;　　Frame4.Caption = "熱菜"　　End Sub　　Private Sub Command2_Click()　　List2.Visible = True　　該命令按鈕是對(duì)“

22、冷菜”進(jìn)行的List1.Visible = False 擊該命令按鈕的時(shí)候出現(xiàn)冷菜的frame　　List3.Visible = False　　List4.Visible = False　　Frame4.Caption = "冷菜"

23、　　End Sub　　Private Sub Command3_Click()　　List3.Visible = True　　List2.Visible = False 該命令按鈕是對(duì)“酒水“進(jìn)行的

24、　　擊該命令按鈕的時(shí)候出現(xiàn)酒水的frame 　　List1.Visible = False　　List4.Visible = False　　Frame4.Caption = "酒水"　　End

25、 Sub　　Private Sub Command4_Click()　　List4.Visible = True　　改名林按鈕是對(duì)“主食”進(jìn)行的　　List2.Visible = False點(diǎn)擊該命令按鈕的時(shí)候出現(xiàn)主食的frame

26、　　List1.Visible = False　　List3.Visible = False　　Frame4.Caption = "主食"　　End Sub　　Private Sub Comm

27、and5_Click()　　Dim k As Integer該按鈕是對(duì)“確認(rèn)點(diǎn)菜”　　If List5.ListCount = 0 Then的按鈕，當(dāng)你點(diǎn)完菜的時(shí)候　　MsgBox "您還沒(méi)有選菜呢！", , "請(qǐng)選菜！"會(huì)出現(xiàn)總計(jì)多少錢，如果你

28、　　End If感覺(jué)價(jià)錢還是合理的話，你　　If Val(Label3.Caption) >= 300 Then就可以確認(rèn)點(diǎn)菜。當(dāng)你沒(méi)有　　Form7.Hide點(diǎn)菜的時(shí)候，會(huì)自動(dòng)彈出消　　“你還沒(méi)有點(diǎn)菜”的消息　　Form11.Show

29、提醒。　　End If　　If Val(Label3.Caption) < 300 Then　　Form7.Hide　　Form12.Show　　End If</

30、b>　　End Sub　　Private Sub Command6_Click()　　If List5.ListIndex <> -1 Then　　y = List5.ListIndex<

31、;p>　　List5.RemoveItem y　　End If　　End Sub　　Private Sub Command7_Click()該命令按鈕是“總計(jì)”　　Dim sum As I

32、nteger的按鈕，用來(lái)對(duì)食客點(diǎn)完　　sum = 0菜后，方便看看自己所點(diǎn)菜　　For i = 0 To List5.ListCount - 1總價(jià)價(jià)格，決定是否繼續(xù)點(diǎn)　　a = Val(Right(List5.List(i), 4))菜。　　sum = sum

33、+ a　　Next i　　Label3.Caption = sum　　End Sub　　Private Sub Command8_Click()　　Sel

34、ect Case Frame4.Caption　　Case "熱菜"　　Select Case List1.ListIndex　　Case 0　　List5.AddItem (

35、"奉化芋艿頭 28元") 在定義每到菜的價(jià)格的時(shí)　　Case 1 侯，要與下面的frame菜　　List5.AddItem ("宮暴河蝦 50 元")順序相同，這樣才會(huì)讓　　Case 2picture，出現(xiàn)正

36、確的圖片。　　List5.AddItem ("杭椒牛柳 80 元")和正確的菜價(jià)格　　Case 3　　List5.AddItem ("杭州卷雞 80 元")　　C

37、ase 4　　List5.AddItem ("猴頭四寶 150 元")　　Case 5　　List5.AddItem ("煎豆腐魚烙 85 元")

38、　Case 6　　List5.AddItem ("孔雀迎賓 80 元")　　Case 7　　List5.AddItem ("雪菜大湯黃魚 70 元")

39、;　　Case 8　　List5.AddItem ("楊梅肉丸 65 元")　　Case 9　　List5.AddItem ("魚鲞烤肉 80 元")

40、　Case 10　　List5.AddItem ("咸蛋黃炒南瓜 45 元")　　Case 11　　List5.AddItem ("蟹鑲橙 125 元")

41、;　　Case 12　　List5.AddItem ("紹興雞 99 元")　　Case 13　　List5.AddItem ("宋嫂魚羹 50 元")

42、　　Case 14　　List5.AddItem ("苔條黃魚 79 元")　　Case 15　　List5.AddItem ("西湖牛肉羹 80 元")

43、;　　Case 16　　List5.AddItem ("米粉蒸肉 70 元")　　Case 17　　List5.AddItem ("麒麟桂魚 85 元")

44、;　　Case 18　　List5.AddItem ("千張包子蒸帶魚 65 元")　　Case 19　　List5.AddItem ("熗油菜 30 元")<b&

45、gt;　　Case 20　　List5.AddItem ("兩吃大蝦 75 元")　　Case 21　　List5.AddItem ("龍井蝦仁 88 元")<b&

46、gt;　　Case 22　　List5.AddItem ("海參炆花膠 100 元")　　Case 23　　List5.AddItem ("雙味青蟹 123 元")<

47、;b>　　Case 24　　List5.AddItem ("黃金燴豆花 35 元")　　Case 25　　List5.AddItem ("蒸鯧魚 98 元")<

48、b>　　Case 26　　List5.AddItem ("八寶豆腐 32 元")　　Case 27　　List5.AddItem ("糖醋熘素鱔 85 元")<

49、;b>　　Case 28　　List5.AddItem ("糖醋鮮藕 40 元")　　Case 29　　List5.AddItem ("蘇式醬汁肉 75 元")&l

50、t;b>　　Case 30　　List5.AddItem ("干貝白菜心 33 元")　　End Select　　Case "冷菜"　　Select Case List

51、2.ListIndex　　Case 0　　List5.AddItem ("春卷 30元")　　Case 1　　List5.AddItem ("拌海蜇皮 35 元

52、")　　Case 2　　List5.AddItem ("爽口瓜皮丁 25 元")　　Case 3　　List5.AddItem ("拌羊肚絲 45

53、元")　　Case 4　　List5.AddItem ("涼拌蕎面涼粉 25元")　　Case 5　　List5.AddItem ("紅薯涼粉 3

54、0 元")　　Case 6　　List5.AddItem ("涼拌筍絲 28 元")　　Case 7　　List5.AddItem ("干豆腐粉絲拌黃瓜

55、 26 元")　　Case 8　　List5.AddItem ("涼拌萵筍絲 30 元")　　Case 9　　List5.AddItem ("黃瓜拌粉皮

56、 20 元")　　Case 10　　List5.AddItem ("熗拌文筍 31 元")　　Case 11　　List5.AddItem ("皮蛋豆腐

57、 15 元")　　Case 12　　List5.AddItem ("韭菜拌兔肝 45 元")　　Case 13　　List5.AddItem ("糟鹵雞爪

58、 29 元")　　Case 14　　List5.AddItem ("手撕茄子 32 元")　　Case 15　　List5.AddItem ("海蜇拌黃

59、瓜 24 元")　　Case 16　　List5.AddItem ("尖椒皮蛋 30 元")　　Case 17　　List5.AddItem ("泰式?jīng)?/p>

60、拌黃瓜卷 32 元")　　Case 18　　List5.AddItem ("涼拌豆芽菜 21 元")　　Case 19　　List5.AddItem ("

61、;蔬豆卷 35 元")　　Case 20　　List5.AddItem ("蠔油山藥 35 元")　　Case 21　　List5.AddItem ("

62、爽口雞胗 50 元")　　Case 22　　List5.AddItem ("雞肉咸蛋卷 48 元")　　Case 23　　List5.AddItem ("

63、;五彩素什錦 30 元")　　Case 24　　List5.AddItem ("奶汁雞蛋菠菜 35 元")　　Case 25　　List5.AddItem (&q

64、uot;糖醋瓜皮卷 28 元")　　Case 26　　List5.AddItem ("水晶西蘭花火腿卷 43 元")　　End Select　　Case "酒水"&

65、lt;/b>　　Select Case List3.ListIndex　　Case 0　　List5.AddItem ("白蘭地 180元")　　Case 1<

66、/p>　　List5.AddItem ("橙汁 10元")　　Case 2　　List5.AddItem ("伏特加 20元")　　Case 3

67、;　　List5.AddItem ("紅酒 120元")　　Case 4　　List5.AddItem ("可樂(lè) 10元")　　Case 5<

68、;p>　　List5.AddItem ("王老吉 10元")　　Case 6　　List5.AddItem ("雪碧 10元")　　End Select　　Cas

69、e "主食"　　Select Case List4.ListIndex　　Case 0　　List5.AddItem ("炒飯 10元")　　Case 1

70、　　List5.AddItem ("炒粉 10 元")　　Case 2　　List5.AddItem ("蛋炒飯 15 元")　　Case 3&l

71、t;/b>　　List5.AddItem ("點(diǎn)心拼盤 20 元")　　Case 4　　List5.AddItem ("鍋貼 10元")　　Case 5<

72、/b>　　List5.AddItem ("黃金糕 15 元")　　Case 6　　List5.AddItem ("醬鴨菜泡飯 20 元")　　Case 7</

73、b>　　List5.AddItem ("餃子 15 元")　　Case 8　　List5.AddItem ("米飯 5 元")　　Case 9&l

74、t;/p>　　List5.AddItem ("五谷豐登 15 元")　　Case 10　　List5.AddItem ("油潑面 15 元")　　Case 11<

75、;/p>　　List5.AddItem ("玉米煲仔飯 15 元")　　Case 12　　List5.AddItem ("雜糧包 15 元")　　End Select<p&g

76、t;　　End Select　　End Sub　　Private Sub Command9_Click()　　Form7.Hide該按鈕是對(duì)進(jìn)入該點(diǎn)　　Form3.Show菜界面后不想進(jìn)行點(diǎn)菜后退<p

77、>　　End Sub出該界面的操作　　Private Sub Form_Load()　　Label1.Left = (ScaleWidth - Label1.Width) / 2　　List1.Visible = False　　List2.Visible = Fa

78、lse　　List3.Visible = False　　List4.Visible = False　　End Sub　　Private Sub Form_Resize()

79、Form_Load　　End Sub　　Private Sub Image1_Click()　　End Sub　　Public Sub List3_Click()</p&

80、gt;　　Dim c(0 To 6) As Integer　　Select Case List3.ListIndex　　Case 0　　Image1.Picture = LoadPicture(App.Path + "\白蘭地.jpg"

81、;)　　c(0) = 180　　Label4.Caption = c(0)　　Case 1　　Image1.Picture = LoadPicture(App.Path + "\橙汁.jpg")

82、　　c(1) = 10　　Label4.Caption = c(1)　　Case 2　　Image1.Picture = LoadPicture(App.Path + "\伏特加.jpg")<

83、;/p>　　c(2) = 20　　Label4.Caption = c(2)　　Case 3　　Image1.Picture = LoadPicture(App.Path + "\紅酒.jpg&quo

84、t;)　　c(3) = 120　　Label4.Caption = c(3)　　Case 4　　Image1.Picture = LoadPicture(App.Path + "\可樂(lè).jpg")

85、;　　c(4) = 10　　Label4.Caption = c(4)　　Case 5　　Image1.Picture = LoadPicture(App.Path + "\王老吉.jpg")&l

86、t;/p>　　c(5) = 10　　Label4.Caption = c(5)　　Case 6　　Image1.Picture = LoadPicture(App.Path + "\雪碧.jpg&qu

87、ot;)　　c(6) = 10　　Label4.Caption = c(6)　　End Select　　End Sub　　Public Sub List1

88、_Click()　　Dim a(0 To 30) As Integer　　Select Case List1.ListIndex　　Case 0　　Image1.Picture = LoadPicture(App.Path + &qu

89、ot;\奉化芋艿頭.jpg")　　a(0) = 28　　Label4.Caption = a(0)　　Case 1　　Image1.Picture = LoadPicture(App.P

90、ath + "\宮爆河蝦.jpg")　　a(1) = 50　　Label4.Caption = a(1)　　Case 2　　Image1.Picture = LoadPictu

91、re(App.Path + "\杭椒牛柳.jpg")　　a(2) = 80　　Label4.Caption = a(2)　　Case 3　　Image1.Picture = L

92、oadPicture(App.Path + "\杭州卷雞.jpg")　　a(3) = 80　　Label4.Caption = a(3)　　Case 4　　Image1.Pic

93、ture = LoadPicture(App.Path + "\猴頭四寶.jpg")　　a(4) = 150　　Label4.Caption = a(4)　　Case 5　　Image1.Picture = Loa

94、dPicture(App.Path + "\煎豆腐魚烙.jpg")　　a(5) = 85　　Label4.Caption = a(5)　　Case 6　　Image1.Pict

95、ure = LoadPicture(App.Path + "\孔雀迎賓.jpg")　　a(6) = 80　　Label4.Caption = a(6)　　Case 7　　Ima

96、ge1.Picture = LoadPicture(App.Path + "\雪菜大湯黃魚.jpg")　　a(7) = 70　　Label4.Caption = a(7)　　Case 8<

97、p>　　Image1.Picture = LoadPicture(App.Path + "\楊梅肉丸.jpg")　　a(8) = 65　　Label4.Caption = a(8)　　Case 9</p&g

98、t;　　Image1.Picture = LoadPicture(App.Path + "\魚鲞烤肉.jpg")　　a(9) = 80　　Label4.Caption = a(9)　　Case 10

99、;　　Image1.Picture = LoadPicture(App.Path + "\咸蛋黃炒南瓜.jpg")　　a(10) = 45　　Label4.Caption = a(10)　　Case 11</

100、p>　　Image1.Picture = LoadPicture(App.Path + "\蟹鑲橙.jpg")　　a(11) = 125　　Label4.Caption = a(11)　　Case 12&

101、lt;p>　　Image1.Picture = LoadPicture(App.Path + "\紹興雞.jpg")　　a(12) = 99　　Label4.Caption = a(12)　　Case 13

102、　Image1.Picture = LoadPicture(App.Path + "\宋嫂魚羹.jpg")　　a(13) = 50　　Label4.Caption = a(13)　　Case 14　　Image1.

103、Picture = LoadPicture(App.Path + "\苔條黃魚.jpg")　　a(14) = 79　　Label4.Caption = a(14)　　Case 15　　Image1.Picture

104、= LoadPicture(App.Path + "\西湖牛肉羹.jpg")　　a(15) = 80　　Label4.Caption = a(15)　　Case 16　　Image1.Picture = LoadP

105、icture(App.Path + "\米粉蒸肉.jpg")　　a(16) = 70　　Label4.Caption = a(16)　　Case 17　　Image1.Picture = LoadPicture(A

106、pp.Path + "\麒麟桂魚.jpg")　　a(17) = 85　　Label4.Caption = a(17)　　Case 18　　Image1.Picture = LoadPicture(App.Path

107、+ "\千張包子蒸帶魚.jpg")　　a(18) = 65　　Label4.Caption = a(18)　　Case 19　　Image1.Picture = LoadPicture(App.Path + &qu

108、ot;\熗油菜.jpg")　　a(19) = 30　　Label4.Caption = a(19)　　Case 20　　Image1.Picture = LoadPicture(App.Path + "\兩吃大蝦.

109、jpg")　　a(20) = 75　　Label4.Caption = a(20)　　Case 21　　Image1.Picture = LoadPicture(App.Path + "\龍井蝦仁.jpg"

110、;)　　a(21) = 88　　Label4.Caption = a(21)　　Case 22　　Image1.Picture = LoadPicture(App.Path + "\海參炆花膠.jpg")</

111、p>　　a(22) = 100　　Label4.Caption = a(22)　　Case 23　　Image1.Picture = LoadPicture(App.Path + "\雙味青蟹.jpg")

112、　　a(23) = 123　　Label4.Caption = a(23)　　Case 24　　Image1.Picture = LoadPicture(App.Path + "\黃金燴豆花.jpg")<p&

113、gt;　　a(24) = 35　　Label4.Caption = a(24)　　Case 25　　Image1.Picture = LoadPicture(App.Path + "\蒸鯧魚.jpg")　　a(25

114、) = 98　　Label4.Caption = a(25)　　Case 26　　Image1.Picture = LoadPicture(App.Path + "\八寶豆腐.jpg")　　a(26) = 32&l

115、t;/p>　　Label4.Caption = a(26)　　Case 27　　Image1.Picture = LoadPicture(App.Path + "\糖醋熘素鱔.jpg")　　a(27) = 85

116、;　　Label4.Caption = a(27)　　Case 28　　Image1.Picture = LoadPicture(App.Path + "\糖醋鮮藕.jpg")　　a(28) = 40<p

117、>　　Label4.Caption = a(28)　　Case 29　　Image1.Picture = LoadPicture(App.Path + "\蘇式醬汁肉.jpg")　　a(29) = 75　　L

118、abel4.Caption = a(29)　　Case 30　　Image1.Picture = LoadPicture(App.Path + "\干貝白菜心.jpg")　　a(30) = 33　　Label4.C

119、aption = a(30)　　End Select　　End Sub　　Private Sub List2_Click()　　Dim b(0 To 26) As Integer　　Selec

120、t Case List2.ListIndex　　Case 0　　Image1.Picture = LoadPicture(App.Path + "\春卷.jpg")　　b(0) = 30<

121、p>　　Label4.Caption = b(0)　　Case 1　　Image1.Picture = LoadPicture(App.Path + "\拌海蜇皮.jpg")　　b(1) = 35</p&g

122、t;　　Label4.Caption = b(1)　　Case 2　　Image1.Picture = LoadPicture(App.Path + "\爽口瓜皮丁.jpg")　　b(2) = 25

123、;　　Label4.Caption = b(2)　　Case 3　　Image1.Picture = LoadPicture(App.Path + "\拌羊肚絲.jpg")　　b(3) = 45&

124、lt;/b>　　Label4.Caption = b(3)　　Case 4　　Image1.Picture = LoadPicture(App.Path + "\涼拌蕎面涼粉.jpg")

125、b(4) = 25　　Label4.Caption = b(4)　　Case 5　　Image1.Picture = LoadPicture(App.Path + "\紅薯涼粉.jpg")<

126、;b>　　b(5) = 30　　Label4.Caption = b(5)　　Case 6　　Image1.Picture = LoadPicture(App.Path + "\涼拌筍絲.jpg")<

127、p>　　b(6) = 28　　Label4.Caption = b(6)　　Case 7　　Image1.Picture = LoadPicture(App.Path + "\干豆腐粉絲拌黃瓜.jpg")<

128、/p>　　b(7) = 26　　Label4.Caption = b(7)　　Case 8　　Image1.Picture = LoadPicture(App.Path + "\涼拌萵筍絲.jpg&q

129、uot;)　　b(8) = 30　　Label4.Caption = b(8)　　Case 9　　Image1.Picture = LoadPicture(App.Path + "\黃瓜

130、拌粉皮.jpg")　　b(9) = 20　　Label4.Caption = b(9)　　Case 10　　Image1.Picture = LoadPicture(App.Path +

131、 "\熗拌文筍.jpg")　　b(10) = 31　　Label4.Caption = b(10)　　Case 11　　Image1.Picture = LoadPicture(App.Path + "\

132、皮蛋豆腐.jpg")　　b(11) = 15　　Label4.Caption = b(11)　　Case 12　　Image1.Picture = LoadPicture(App.Path + "\韭菜拌兔肝.jp

133、g")　　b(12) = 45　　Label4.Caption = b(12)　　Case 13　　Image1.Picture = LoadPicture(App.Path + "\糟鹵雞爪.jpg")

134、　　b(13) = 29　　Label4.Caption = b(13)　　Case 14　　Image1.Picture = LoadPicture(App.Path + "\手撕茄子.jpg")</p&g

135、t;　　b(14) = 32　　Label4.Caption = b(14)　　Case 15　　Image1.Picture = LoadPicture(App.Path + "\海蜇拌黃瓜.jpg")<

136、;p>　　b(15) = 24　　Label4.Caption = b(15)　　Case 16　　Image1.Picture = LoadPicture(App.Path + "\尖椒皮蛋.jpg")

137、b(16) = 30　　Label4.Caption = b(16)　　Case 17　　Image1.Picture = LoadPicture(App.Path + "\泰式?jīng)霭椟S瓜卷.jpg")　　b(17)

138、 = 32　　Label4.Caption = b(17)　　Case 18　　Image1.Picture = LoadPicture(App.Path + "\涼拌豆芽菜.jpg")　　b(18) = 21&l

139、t;/p>　　Label4.Caption = b(18)　　Case 19　　Image1.Picture = LoadPicture(App.Path + "\蔬豆卷.jpg")　　b(19) = 35

140、　　Label4.Caption = b(19)　　Case 20　　Image1.Picture = LoadPicture(App.Path + "\蠔油山藥.jpg")　　b(20) = 35<p&g

141、t;　　Label4.Caption = b(20)　　Case 21　　Image1.Picture = LoadPicture(App.Path + "\爽口雞胗.jpg")　　b(21) = 50　　Labe

142、l4.Caption = b(21)　　Case 22　　Image1.Picture = LoadPicture(App.Path + "\雞肉咸蛋卷.jpg")　　b(22) = 48　　Label4.Capt

眾賞文庫(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點(diǎn)菜系統(tǒng)課程設(shè)計(jì)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

vb點(diǎn)菜系統(tǒng)課程設(shè)計(jì)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載