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

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

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

已閱讀1頁(yè)，還剩33頁(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ì)題目：酒店點(diǎn)菜系統(tǒng) 　　2012年6月　　信息工程學(xué)院　　目錄

2、;　　目錄1　　摘要2　　關(guān)鍵字：VB設(shè)計(jì)、酒店信息、酒店管理、點(diǎn)菜系統(tǒng)、VB主流產(chǎn)品2　　一. 題目分析3

3、　?。?）.登錄3　?。?）.菜式管理系統(tǒng)3　?。?）.點(diǎn)菜系統(tǒng)3　　二. 設(shè)計(jì)概述4　?。?）各模塊之間的關(guān)系4　　（2）各模塊流程圖4&l

4、t;/p>　　三.詳細(xì)設(shè)計(jì)6　　1.模塊窗體6　　2.酒店菜單登錄系統(tǒng)（form1）6　　3.菜式管理系統(tǒng)（form2）7　　4.點(diǎn)菜系統(tǒng)（form3）8&l

5、t;/p>　　5.菜式瀏覽系統(tǒng)9　　四效果及存在問(wèn)題：11　　1.效果：11　　2.存在問(wèn)題：18　　五.總結(jié)19

6、;　　六．參考文獻(xiàn)20　　七、對(duì)該題目和VB設(shè)計(jì)的意見和建議21　　1. 對(duì)該題目的意見和建議21　　2．對(duì)本次設(shè)計(jì)的意見和建議21　　附錄22

7、　　源代碼22　　摘要　　經(jīng)過(guò)一個(gè)學(xué)期對(duì)《VB程序設(shè)計(jì)》的學(xué)習(xí)，同學(xué)們都認(rèn)為真正的學(xué)到了有用知識(shí)，可能有一些人學(xué)的不夠理想，但無(wú)論如何，這些知識(shí)都為我們的下一步學(xué)習(xí)打下了堅(jiān)實(shí)的基礎(chǔ)。做這么一個(gè)課程設(shè)計(jì)，一方面是為了檢查我們一個(gè)學(xué)期來(lái)我們學(xué)習(xí)的成果，另一方面也是為了讓我們進(jìn)一步的

8、掌握和運(yùn)用它，同時(shí)也讓我們認(rèn)清自己的不足之處和薄弱環(huán)節(jié)，加以彌補(bǔ)和加強(qiáng)。　　本程序是酒店點(diǎn)菜系統(tǒng)程序，可以更方便酒店管理行業(yè)。　　關(guān)鍵字：VB設(shè)計(jì)、酒店信息、酒店管理、點(diǎn)菜系統(tǒng)、VB主流產(chǎn)品　　一. 題目分析　　（1

9、）.登錄　　打開飯店菜式管理系統(tǒng)程序，進(jìn)入主界面。通過(guò)輸入用戶名和密碼登錄到菜品式管理界面　　兩個(gè)按鈕可以分別進(jìn)入菜式管理系統(tǒng)和退出系統(tǒng)。　　（2）.菜式管理系統(tǒng)　　通過(guò)輸入用戶名和密碼進(jìn)入到了菜式管理界面，點(diǎn)擊菜式管理菜單，對(duì)菜式進(jìn)行添加和刪除，以及

10、退出程序。三個(gè)按鈕可以分別進(jìn)入到點(diǎn)菜系統(tǒng)、菜式瀏覽系統(tǒng)以及返回主界面。　?。?）.點(diǎn)菜系統(tǒng)　　通過(guò)點(diǎn)擊菜式管理系統(tǒng)的點(diǎn)菜按鈕進(jìn)入到點(diǎn)菜系統(tǒng)。此界面有兩個(gè)列表框，分別放飯店里所有菜式以及已點(diǎn)的菜，再通過(guò)點(diǎn)菜按鈕將飯店菜式列表框里的菜點(diǎn)到已點(diǎn)列表框里，通過(guò)退菜按鈕對(duì)已點(diǎn)列表框里的菜進(jìn)行刪除。在點(diǎn)菜和退菜的同時(shí)還對(duì)菜式價(jià)格

11、進(jìn)行計(jì)算。點(diǎn)菜完成后進(jìn)行落單，點(diǎn)擊返回管理界面按鈕返回管理系統(tǒng)界面。　　（4）.菜式管理系統(tǒng)　　通過(guò)點(diǎn)擊菜式管理系統(tǒng)的菜式瀏覽按鈕進(jìn)入到菜式瀏覽系統(tǒng)。通過(guò)點(diǎn)擊按菜名、價(jià)格和菜系瀏覽菜單，對(duì)菜式分別進(jìn)行瀏覽。點(diǎn)擊返回管理界面按鈕返回管理里系統(tǒng)。.　　二. 設(shè)計(jì)概述</p&

12、gt;　?。?）各模塊之間的關(guān)系　　登　　錄　　失　　敗

13、　　登錄成功　?。?）各模塊流程圖　　a：菜式管理系統(tǒng)　　b：點(diǎn)菜系統(tǒng)　　c：菜式瀏覽系統(tǒng)</b

14、>　　三.詳細(xì)設(shè)計(jì)　　1.模塊窗體　　Public i As Integer　　Public sum As Single　　Type caidan&

15、lt;/p>　　cm As String　　cx As String　　jg As Integer　　yl As String　　zk As Single　　End Type</

16、b>　　Public s() As caidan　　Function chazhao(ByVal n As String) As Integer　　Dim j As Integer　　For j = 1 To i　　If n

17、 = s(j).cm Then chazhao = j　　If n = s(j).cx Then chazhao = j　　If n = Str(s(j).jg) Then chazhao = j　　If n = s(j).yl Then chazhao = j　　If

18、n = Str(s(j).zk) Then chazhao = j　　Next j　　End Function　　2.酒店菜單登錄系統(tǒng)（form1）　　Private Sub Command1_Click()&

19、lt;p>　　Dim mes%　　If Text1.Text = "jane" And Text2.Text = "123456" Then　　Form1.Hide　　Form2.Show

20、　　Else　　mes = MsgBox("用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入！")　　Text1.Text = ""　　Text2.Text = ""　　End

21、 If　　End Sub　　Private Sub Command2_Click()　　End　　End Sub&

22、lt;p>　　Private Sub Form_Load()　　Text2.PasswordChar = "*"　　End Sub　　3.菜式管理系統(tǒng)（form2）　　Private Sub mnufilea

23、dd_Click()　　ReDim Preserve s(1 To (i + 1)) As caidan　　i = i + 1　　s(i).cm = InputBox("請(qǐng)輸入菜名", "新增")

24、;　　s(i).cx = InputBox("請(qǐng)輸入菜系", "新增")　　s(i).jg = InputBox("請(qǐng)輸入價(jià)格", "新增")　　s(i).yl = InputBox("請(qǐng)輸入原料", "新增")

25、　　s(i).zk = InputBox("請(qǐng)輸入折扣", "新增")　　End Sub　　Private Sub mnufiledel_Click()　　Dim j As Integer<

26、;p>　　Dim k As Integer　　Dim n As String　　n = InputBox("請(qǐng)輸入查找的關(guān)鍵字", "查找")　　j = chazhao(n)　　For k = j To i - 1</p

27、>　　s(k) = s(k + 1)　　Next k　　i = i - 1　　End Sub　　Private Sub mnufi

28、leqiute_Click()　　End　　End Sub　　Public Function chazhao(ByVal n As String) As Integer　　Dim j As Int

29、eger　　For j = 1 To i　　If n = s(j).cm Then chazhao = j　　If n = s(j).cx Then chazhao = j　　If n = Str(s(j).jg) Then chazhao = j

30、　　If n = s(j).yl Then chazhao = j　　If n = Str(s(j).zk) Then chazhao = j　　Next j　　End Function　　4.點(diǎn)菜系統(tǒng)（form3）

31、　　Private Sub Command1_Click()　　For j = 0 To List1.ListCount - 1　　If List1.Selected(j) Then　　List2.AddItem List1.List(j)<

32、p>　　sum = sum + s(j + 1).jg * s(j + 1).zk　　End If　　Next j　　Label1.Caption = sum　　End S

33、ub　　Private Sub Command2_Click()　　If List2.ListIndex >= 0 Then　　For j = 0 To List2.ListCount - 1　　If List2.Selected(j) Then

34、　　n = List2.List(j)　　End If　　Next j　　j = chazhao(n)　　sum = sum - s(j).jg * s(

35、j).zk　　List2.RemoveItem List2.ListIndex　　Label1.Caption = sum　　End If　　Label1.Caption = sum<b

36、>　　End Sub　　Private Sub Command3_Click()　　Label5 = "謝謝使用！"　　End Sub　　Private Sub Command4_Clic

37、k()　　Unload Form3　　Form2.Show　　End Sub　　Private Sub Form_Load()　　Dim j As Integer<

38、;p>　　For j = 1 To i　　List1.AddItem s(j).cm　　Next j　　End Sub　　5.菜式瀏覽系統(tǒng)</p&

39、gt;　　Private Sub cm_Click()　　For j = 1 To i - 1　　For k = i To j + 1 Step -1　　If s(k).cm < s(k - 1).cm Then　　m = s(k).cm: s

40、(k).cm = s(k - 1).cm: s(k - 1).cm = m　　m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m　　m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m　　m = s(k).yl:

41、 s(k).yl = s(k - 1).yl: s(k - 1).yl = m　　m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m　　End If　　Next k

42、　　Next j　　Cls　　Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)　　For j = 1 To i　　Print

43、s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk　　Next j　　End Sub　　Private Sub Command1_Click()　　Unload

44、 Form4　　Form3.Show　　End Sub　　Private Sub cx_Click()　　For j = 1 To i - 1　　For k = i To j + 1 Step

45、 -1　　If s(k).cx < s(k - 1).cx Then　　m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m　　m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m&l

46、t;p>　　m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m　　m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m　　m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m

47、　　End If　　Next k　　Next j　　Cls　　Print Chr(13), Chr(1

48、3), Chr(13), Chr(13), Chr(13)　　For j = 1 To i　　Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk　　Next j　　En

49、d Sub　　Private Sub Form_Load()　　Show　　Print　　Print Chr(13), Chr(13), Chr(13), Chr(13), C

50、hr(13)　　For j = 1 To i　　Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk　　Next j　　End Sub</p&g

51、t;　　Private Sub jg_Click()　　For j = 1 To i - 1　　For k = i To j + 1 Step -1　　If s(k).jg < s(k - 1).jg Then　　m = s(k).cm: s(

52、k).cm = s(k - 1).cm: s(k - 1).cm = m　　m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m　　m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m　　m = s(k).yl:

53、s(k).yl = s(k - 1).yl: s(k - 1).yl = m　　m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m　　End If　　Next k

54、　　Next j　　Cls　　Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)　　For j = 1 To i　　Print s

55、(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk　　Next j　　End Sub　　四效果及存在問(wèn)題：　　1.效果：

56、　　程序開始運(yùn)行，進(jìn)入酒店菜單管理系統(tǒng)登錄主界面,輸入用戶名和密碼：　　點(diǎn)擊“登錄”按鈕進(jìn)入菜式管理系統(tǒng)：　　點(diǎn)擊“菜式管理”菜單里的“新增”，根據(jù)提示進(jìn)行菜式信息輸入：　　根據(jù)提示依次輸入新增的菜....　　菜式輸入完后，點(diǎn)擊“

57、菜式瀏覽”按鈕，進(jìn)入“菜式瀏覽界面”瀏覽菜的所有信息：　　點(diǎn)擊“按菜名瀏覽”菜單，所有菜的信息就按菜名重新排列：　　點(diǎn)擊“按菜價(jià)瀏覽”菜單，所有菜的信息就按菜價(jià)從低到高重新排列：　　點(diǎn)擊“按菜系瀏覽”菜單，所有菜的信息就按菜系重新排列：　　點(diǎn)擊“返回點(diǎn)菜界面”按鈕，進(jìn)入點(diǎn)

58、菜系統(tǒng)：　　選中“菜單”列表框了的某個(gè)菜，再點(diǎn)擊“點(diǎn)菜=>”按鈕，所選中的菜就到了“已點(diǎn)”列表框里了，并且對(duì)當(dāng)前已點(diǎn)菜的價(jià)格進(jìn)行計(jì)算：　　若不想要“已點(diǎn)”列表框里的某個(gè)菜，選中這個(gè)菜，再點(diǎn)擊“<=退菜”按鈕，這個(gè)菜就從“已點(diǎn)”列表框里刪除掉了，同時(shí)這個(gè)菜的價(jià)錢也減去了：　　點(diǎn)擊“落單”按鈕，生成賬單：

59、　　點(diǎn)擊“返回管理界面”按鈕，返回管理系統(tǒng)，若想刪除某個(gè)菜式，點(diǎn)擊“菜式管理”里的“刪除”按鈕，根據(jù)提示進(jìn)行刪除：　　查看菜單里面“雞蛋鴨卷”這個(gè)菜的所有信息是否刪除：　　瀏覽菜單里和點(diǎn)菜系統(tǒng)里菜單里,“雞蛋鴨卷”的信息都以刪除。　　所有功能完成后，最后退回登錄系統(tǒng)首頁(yè)，

60、點(diǎn)擊“退出”按鈕，退出整個(gè)系統(tǒng)。　　2.存在問(wèn)題：　　程序編寫時(shí)沒(méi)有用到文件，不帶保存功能，每次運(yùn)行程序時(shí)，都到重新輸入菜式信息，比較麻煩。應(yīng)該使用文件，這樣會(huì)更完善！　　五.總結(jié)　　一個(gè)星期的軟

61、件課程設(shè)計(jì)結(jié)束了，課程設(shè)計(jì)是培養(yǎng)學(xué)生綜合運(yùn)用所學(xué)知識(shí),發(fā)現(xiàn),提出,分析和解決實(shí)際問(wèn)題,鍛煉實(shí)踐能力的重要環(huán)節(jié),是對(duì)學(xué)生實(shí)際工作能力的具體訓(xùn)練和考察過(guò)程.　　經(jīng)過(guò)一周的VB課程設(shè)計(jì)，我解決實(shí)際問(wèn)題的能力提高了并學(xué)會(huì)了自主學(xué)習(xí)，自我提高和自我完善，用已學(xué)過(guò)VB知識(shí)及的自學(xué)數(shù)據(jù)庫(kù)技術(shù)編寫程序。　　課程設(shè)計(jì)讓我們學(xué)習(xí)與實(shí)踐相結(jié)合，加深了了我們對(duì)書本知識(shí)的理解能力

62、，學(xué)以致用。鍛煉了我的自主學(xué)習(xí)能力及創(chuàng)新能力。在今后的學(xué)習(xí)中，還要繼續(xù)加強(qiáng)自主學(xué)習(xí)與實(shí)踐的鍛煉。　　回想學(xué)習(xí)課程設(shè)計(jì)的過(guò)程中，既有煩惱又有快樂(lè)。從思考題目的時(shí)候開始，到程序的編寫，上機(jī)調(diào)試，這中間我們遇到很多困難。程序設(shè)計(jì)期間，遇到問(wèn)題自己思考并積極去解決，也向同學(xué)，老師和網(wǎng)絡(luò)尋求幫助，在編程過(guò)程中，我們就遇到了記錄數(shù)組，各模塊之間的調(diào)用。經(jīng)過(guò)集思廣益后，我收獲很大，不僅解決了問(wèn)題，還增進(jìn)了同學(xué)

63、之間的友誼。當(dāng)解決一個(gè)問(wèn)題時(shí)，我都很有成就感；當(dāng)問(wèn)題很難解決時(shí)，我會(huì)回到課本，復(fù)習(xí)以前學(xué)過(guò)的知識(shí)，再思考問(wèn)題，直至把問(wèn)題解決。在上機(jī)調(diào)試的過(guò)程中，我們還遇到許多類似的問(wèn)題，最后在我們的共同努力下，通過(guò)向老師、同學(xué)請(qǐng)教，查參考資料，我們把所有的困難都解決了！在程序沒(méi)有問(wèn)題，所有功能都能操作的情況下，最后我們還要對(duì)顯示的頁(yè)面進(jìn)行設(shè)計(jì)，要是輸出頁(yè)面清晰明了，這就要求我們對(duì)輸出的可是進(jìn)行正確的控制。

64、通過(guò)這次課程設(shè)計(jì)使我懂得了理論與實(shí)際相結(jié)合是很重要的，只有理論知識(shí)是遠(yuǎn)遠(yuǎn)不夠的，只有把所學(xué)的理論知識(shí)與實(shí)踐相結(jié)合起來(lái)，從理論中得出結(jié)論，才能真正為社會(huì)服務(wù)，從而提高自己的實(shí)際動(dòng)手能力和獨(dú)立思考的能力。通過(guò)這次課程設(shè)計(jì)，我基本掌握了VB設(shè)計(jì)的問(wèn)題分析、總體結(jié)構(gòu)設(shè)計(jì)、用戶界面設(shè)計(jì)、程序設(shè)計(jì)基本技能和技巧，并且加深理解課堂上學(xué)習(xí)的內(nèi)容。在設(shè)計(jì)過(guò)程中，我逐步提高了程序設(shè)計(jì)和調(diào)試能力，培養(yǎng)了我們解決問(wèn)題的能力，算法分析能力和，同時(shí)我也學(xué)到了以后解

65、決問(wèn)題的時(shí)候要認(rèn)真，仔細(xì)，考慮周全而且要有耐力，也看到了團(tuán)隊(duì)精神和互幫互助的重要性。這一點(diǎn)會(huì)讓我終生受益。　　這次課程設(shè)計(jì)終于順利完成了，在設(shè)計(jì)中遇到了很多編程問(wèn)題，最后在王老師的辛勤指導(dǎo)下，終于游逆而解。同時(shí)，在王老師的身上我學(xué)得到很多實(shí)用的知識(shí)，再次我表示感謝！同時(shí)，對(duì)給過(guò)我?guī)椭乃型瑢W(xué)和指導(dǎo)老師再次表示忠心的感謝！　　六．參考文

66、獻(xiàn)　　[1] 郭仁華,霍東亞,陳印光. VB+Surfer實(shí)現(xiàn)地下水降落漏斗變化趨勢(shì)動(dòng)態(tài)顯示［J］.山東水利科技,2008(3).[2] 賈宏元,趙光平,孫銀川,等. 基于Surfer Automation對(duì)象技術(shù)的等值線自動(dòng)繪圖方法研究與應(yīng)用［J］. 計(jì)算機(jī)系統(tǒng)應(yīng)用,2006(7).[3] 任磊,陳華根.基于面積統(tǒng)計(jì)的Surfer軟件等值線等級(jí)文件自動(dòng)生成［J］.物

67、探與化探,2009, 33(5) 595-598.[4] 秦林江.Surfer與MapGIS圖件相互轉(zhuǎn)換的幾個(gè)問(wèn)題［J］.物探與化探,2010,34(5):677-680.[5] 陳善.重力勘探［M］.北京:地質(zhì)出版社,1986.[6] 曾華霖.重力場(chǎng)與重力勘探［M］.北京:地質(zhì)出版社,2005.　　七、對(duì)該題目和VB設(shè)計(jì)的意見和建議　　1.

68、對(duì)該題目的意見和建議　　打字程序入門簡(jiǎn)單，容易下手做，但要完善他還是有一定的難度，我們有很大的創(chuàng)新空間，能發(fā)揮每個(gè)同學(xué)的潛能，而且它是一個(gè)非常常見的程序，所以，容易使人理解，編寫目的明確。綜上所述，本題木是個(gè)很不錯(cuò)的課題　　2．對(duì)本次設(shè)計(jì)的意見和建議　　本次活動(dòng)培養(yǎng)我們綜合利用VB語(yǔ)言進(jìn)行程序設(shè)計(jì)的能力，培養(yǎng)

69、了我們利用系統(tǒng)提供的標(biāo)準(zhǔn)函數(shù)和標(biāo)準(zhǔn)控件進(jìn)行創(chuàng)新設(shè)計(jì)。　　現(xiàn)在雖然要求素質(zhì)教育，但我們實(shí)踐的機(jī)會(huì)還是很少，像這樣好的火動(dòng)更少，所以，搞這種實(shí)踐活動(dòng)是非常有必要的　　希望學(xué)校常搞這種活動(dòng)　　附錄　　源代碼</b&g

70、t;　　Public i As Integer　　Public sum As Single　　Type caidan　　cm As String　　cx As String　　jg As

71、Integer　　yl As String　　zk As Single　　End Type　　Public s() As caidan　　Function chazhao(ByVal n As

72、 String) As Integer　　Dim j As Integer　　For j = 1 To i　　If n = s(j).cm Then chazhao = j　　If n = s(j).cx Then chazhao = j<p

73、>　　If n = Str(s(j).jg) Then chazhao = j　　If n = s(j).yl Then chazhao = j　　If n = Str(s(j).zk) Then chazhao = j　　Next j<p

74、>　　End Function　　Private Sub Command1_Click()　　Dim mes%　　If Text1.Text = "jane" And Text2.Text = "123456" Then</

75、p>　　Form1.Hide　　Form2.Show　　Else　　mes = MsgBox("用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入！")　　Text1.Text = ""&

76、lt;/p>　　Text2.Text = ""　　End If　　End Sub　　Private Sub Command2_Click()<

77、b>　　End　　End Sub　　Private Sub Form_Load()　　Text2.PasswordChar = "*"　　End Sub

78、;　　Private Sub mnufileadd_Click()　　ReDim Preserve s(1 To (i + 1)) As caidan　　i = i + 1　　s(i).cm = InputBox("請(qǐng)輸入菜

79、名", "新增")　　s(i).cx = InputBox("請(qǐng)輸入菜系", "新增")　　s(i).jg = InputBox("請(qǐng)輸入價(jià)格", "新增")　　s(i).yl = InputBox(&q

80、uot;請(qǐng)輸入原料", "新增")　　s(i).zk = InputBox("請(qǐng)輸入折扣", "新增")　　End Sub　　Private Sub mnufiledel_Click()

81、　　Dim j As Integer　　Dim k As Integer　　Dim n As String　　n = InputBox("請(qǐng)輸入查找的關(guān)鍵字", "查找")　　j = chazhao(n)<

82、;/p>　　For k = j To i - 1　　s(k) = s(k + 1)　　Next k　　i = i - 1　　End Sub</b

83、>　　Private Sub mnufileqiute_Click()　　End　　End Sub　　Public Function chazhao(ByVal n As String) A

84、s Integer　　Dim j As Integer　　For j = 1 To i　　If n = s(j).cm Then chazhao = j　　If n = s(j).cx Then chazhao = j　　If n

85、 = Str(s(j).jg) Then chazhao = j　　If n = s(j).yl Then chazhao = j　　If n = Str(s(j).zk) Then chazhao = j　　Next j　　End

86、Function　　Private Sub Command1_Click()　　For j = 0 To List1.ListCount - 1　　If List1.Selected(j) Then　　List2.AddItem List1.List(j)</p&g

87、t;　　sum = sum + s(j + 1).jg * s(j + 1).zk　　End If　　Next j　　Label1.Caption = sum

88、;　　End Sub　　Private Sub Command2_Click()　　If List2.ListIndex >= 0 Then　　For j = 0 To List2.ListCount - 1　　If List2.Selected

89、(j) Then　　n = List2.List(j)　　End If　　Next j　　j = chazhao(n)　　sum = sum - s(j)

90、.jg * s(j).zk　　List2.RemoveItem List2.ListIndex　　Label1.Caption = sum　　End If　　Label1.Caption = sum<p&

91、gt;　　End Sub　　Private Sub Command3_Click()　　Label5 = "謝謝使用！"　　End Sub　　Private Sub Comma

92、nd4_Click()　　Unload Form3　　Form2.Show　　End Sub　　Private Sub Form_Load()　　Dim j As Integer</p&

93、gt;　　For j = 1 To i　　List1.AddItem s(j).cm　　Next j　　End Sub　　Private Sub cm_Click()<

94、/p>　　For j = 1 To i - 1　　For k = i To j + 1 Step -1　　If s(k).cm < s(k - 1).cm Then　　m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m</

95、p>　　m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m　　m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m　　m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m<

96、;/p>　　m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m　　End If　　Next k　　Next j</

97、p>　　Cls　　Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)　　For j = 1 To i　　Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).z

98、k　　Next j　　End Sub　　Private Sub Command1_Click()　　Unload Form4　　Form3.Show<

99、;/p>　　End Sub　　Private Sub cx_Click()　　For j = 1 To i - 1　　For k = i To j + 1 Step -1　　If s(k).cx <

100、s(k - 1).cx Then　　m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m　　m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m　　m = s(k).jg: s(k).jg = s(k - 1).j

101、g: s(k - 1).jg = m　　m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m　　m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m　　End If</p

102、>　　Next k　　Next j　　Cls　　Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)&

103、lt;p>　　For j = 1 To i　　Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk　　Next j　　End Sub　　Priv

104、ate Sub Form_Load()　　Show　　Print　　Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)　　For j = 1 To

105、i　　Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk　　Next j　　End Sub　　Private Sub jg_Click()</

106、p>　　For j = 1 To i - 1　　For k = i To j + 1 Step -1　　If s(k).jg < s(k - 1).jg Then　　m = s(k).cm: s(k).cm = s(k - 1).cm: s(k - 1).cm = m</p

107、>　　m = s(k).cx: s(k).cx = s(k - 1).cx: s(k - 1).cx = m　　m = s(k).jg: s(k).jg = s(k - 1).jg: s(k - 1).jg = m　　m = s(k).yl: s(k).yl = s(k - 1).yl: s(k - 1).yl = m<

108、/p>　　m = s(k).zk: s(k).zk = s(k - 1).zk: s(k - 1).zk = m　　End If　　Next k　　Next j</p

109、>　　Cls　　Print Chr(13), Chr(13), Chr(13), Chr(13), Chr(13)　　For j = 1 To i　　Print s(j).cm, s(j).cx, s(j).jg, s(j).yl, s(j).zk

眾賞文庫(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ì)--酒店點(diǎn)菜系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載