課程設(shè)計(jì)報(bào)告書(shū)---vb點(diǎn)菜系統(tǒng)

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

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

已閱讀1頁(yè)，還剩31頁(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、　　單位分院(系)　　專業(yè) 　　學(xué) 號(hào) 　　學(xué)生姓名 　　指導(dǎo)教師 　　完成日期 2011年 8

2、月 31日　　摘要　　進(jìn)行點(diǎn)菜是飯店為顧客服務(wù)的重要環(huán)節(jié)之一。傳統(tǒng)的點(diǎn)菜環(huán)節(jié)由于是手工操作，工作量大且容易出錯(cuò)。隨著計(jì)算機(jī)和網(wǎng)絡(luò)技術(shù)的迅速發(fā)展，越來(lái)越多的飯店、酒店都擁有自己的點(diǎn)菜系統(tǒng)，制作一個(gè)方便、快捷的點(diǎn)菜系統(tǒng)能使點(diǎn)菜環(huán)節(jié)顯得更加美觀且便于操作。　　飯店點(diǎn)菜系統(tǒng)技術(shù)

3、基礎(chǔ)是VB6.0，它有許多優(yōu)點(diǎn)，例如：“編寫(xiě)一次、隨處運(yùn)行”的特性、方便存取數(shù)據(jù)的數(shù)據(jù)庫(kù), 使用者只需在窗體上進(jìn)行操作而不用關(guān)心程序代碼等等。飯店點(diǎn)菜系統(tǒng)提供給顧客一個(gè)用來(lái)滿足高可用性、高可靠性以及可擴(kuò)展性的應(yīng)用需求的軟件，給飯店點(diǎn)菜提供了良好的機(jī)制、使飯店的工作流程更加順利。　　本文基于VB6.0，采用多窗體結(jié)構(gòu), 設(shè)計(jì)并實(shí)現(xiàn)了顧客在飯店消費(fèi)時(shí)的點(diǎn)菜、結(jié)賬、抽獎(jiǎng)、留言及工作人員管理等多項(xiàng)功能。

4、　　本文首先介紹了軟件設(shè)計(jì)涉及的相關(guān)技術(shù)，圍繞VB6.0的相關(guān)技術(shù)進(jìn)行軟件的解釋。其次，介紹了飯店點(diǎn)菜系統(tǒng)的總體分析與設(shè)計(jì)，包括需求分析、功能模塊分析和數(shù)據(jù)庫(kù)設(shè)計(jì)。最后，對(duì)于主要功能進(jìn)行了實(shí)現(xiàn)，并作了詳細(xì)描述，主要采用圖片與代碼結(jié)合的方式詳細(xì)地?cái)⑹隽讼到y(tǒng)功能的實(shí)現(xiàn)。　　關(guān)鍵詞：文件、數(shù)據(jù)庫(kù) 、控件使用、圖片載入&

5、lt;b>　　目錄　　1.選題的意義　　2.系統(tǒng)功能分析。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。　　2.1系統(tǒng)概述。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

6、。。。。。。。。。。。。。。。。。。　　2.2 系統(tǒng)的組成及各模塊的功能　　2 .3系統(tǒng)運(yùn)行環(huán)境。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。　　3．系統(tǒng)設(shè)計(jì)<p&g

7、t;　　3.1 總體結(jié)構(gòu)設(shè)計(jì)　　3.2 數(shù)據(jù)庫(kù)設(shè)計(jì)　　4．系統(tǒng)實(shí)現(xiàn)　　4.1 點(diǎn)菜系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)　　4.2 管理系統(tǒng)模塊的設(shè)計(jì)與實(shí)現(xiàn)　　5．總結(jié)</b

8、>　　5.1總結(jié)　　5.2 致謝詞　　5.3存在的主要問(wèn)題　　參考文獻(xiàn)　　第1章選

9、題的意義　　能夠使飯店的點(diǎn)菜環(huán)節(jié)由傳統(tǒng)的純?nèi)斯げ僮髯優(yōu)榉奖恪⒖旖莸挠?jì)算機(jī)操作對(duì)于　　減少飯店的人力調(diào)配、減少操作流程、提高工作效率具有重要意義，將點(diǎn)菜環(huán)節(jié)依附于計(jì)算機(jī)的操作體現(xiàn)了高效、安全、快捷的高科技成果。　　擁有一個(gè)功能完善的點(diǎn)菜系統(tǒng)能夠顯示出飯店的綜合實(shí)力，使其相對(duì)于其他采用人工點(diǎn)菜的飯店更具競(jìng)爭(zhēng)力。顧客對(duì)系統(tǒng)操作的便捷性、高效

10、性、實(shí)用性能夠比較容易接受和認(rèn)可，這對(duì)于飯店招攬回頭客、打造良好聲譽(yù)也十分有意義。　　第2章系統(tǒng)功能需求分析　　2.1系統(tǒng)概述　　本系統(tǒng)針對(duì)點(diǎn)菜的具體流程，其主要功能有：　　菜式瀏覽功能：能分類瀏覽飯店的所有菜式、采樣及價(jià)格；<

11、;/p>　　點(diǎn)菜功能：進(jìn)行點(diǎn)菜操作后能預(yù)覽點(diǎn)菜結(jié)果，并可對(duì)其進(jìn)一步修改；　　留言板功能：記錄顧客的意見(jiàn)和建議，并具有瀏覽功能；　　抽獎(jiǎng)功能：當(dāng)顧客的消費(fèi)達(dá)到指定金額時(shí)，可分檔抽取小獎(jiǎng)品　　增加菜式功能：飯店管理員可以增加菜單中的菜式將其存儲(chǔ)在數(shù)據(jù)庫(kù)中<p&

12、gt;　　2.2 系統(tǒng)的組成及各模塊的功能錯(cuò)誤！未定義書(shū)簽。　　本系統(tǒng)主要包括的界面有：運(yùn)行界面、點(diǎn)菜界面、抽獎(jiǎng)界面、留言界面及管理員登錄界面，各部分的主要功能有：運(yùn)行界面：包括進(jìn)入系統(tǒng)、管理員登錄和退出系統(tǒng)；點(diǎn)菜界面：能夠分門(mén)別類地點(diǎn)菜;抽獎(jiǎng)界面：當(dāng)用戶消費(fèi)達(dá)到一定金額時(shí)可以參與抽獎(jiǎng)；留言界面：將顧客的意見(jiàn)及建議寫(xiě)下來(lái)反饋給管理員；管理員登錄界面：輸入密碼后可以查看用戶的留言、對(duì)菜單進(jìn)行補(bǔ)充

13、即增加菜式到數(shù)據(jù)庫(kù)中。　　2.3 系統(tǒng)的運(yùn)行環(huán)境　　1．硬件要求　　在安裝VB 6.0時(shí)要注意硬盤(pán)的剩余空間，下面列出安裝VB 6.0時(shí)所需的硬件要求。　　90MHz或更高的微處理器。　　VG

14、A（640×480）以上的監(jiān)視器。　　鼠標(biāo)或其他定點(diǎn)設(shè)備（如指令桿、滾動(dòng)球等）。　　CD-ROM或DVD-ROM驅(qū)動(dòng)器。　　32MB以上內(nèi)存。　　磁盤(pán)空間要求如下。

15、　　學(xué)習(xí)版：典型安裝48MB，完全安裝80MB。　　專業(yè)版：典型安裝48MB，完全安裝80MB。　　企業(yè)版：典型安裝128MB，完全安裝147MB。　　2．軟件要求　　VB 6.0可以在多個(gè)操作系統(tǒng)下運(yùn)行，如Win

16、dows 98、Windows 2000、Windows 2003、Windows XP、Windows Vista等。　　VB 6.0需要在Windows 95（或更高版本的操作系統(tǒng)）、Windows NT 3.51（或更高版本的操作系統(tǒng)）上安裝。　　第3章系統(tǒng)設(shè)計(jì)　　3

17、.1 總體結(jié)構(gòu)設(shè)計(jì)　　考慮到軟件的可操作性和實(shí)用性，將系統(tǒng)的總體結(jié)構(gòu)設(shè)計(jì)如下：　　3.2 數(shù)據(jù)庫(kù)設(shè)計(jì)　　數(shù)據(jù)庫(kù)的設(shè)計(jì)主要分為需求分析和設(shè)計(jì)兩個(gè)步驟。　　首先對(duì)所需數(shù)據(jù)進(jìn)行分析，點(diǎn)菜系統(tǒng)里涉及到數(shù)據(jù)庫(kù)的是菜單，菜單數(shù)據(jù)需要的是分類的各種

18、菜的名稱、價(jià)格、簡(jiǎn)介及其圖片。　　其次便是數(shù)據(jù)庫(kù)的具體設(shè)計(jì)了，搜索以上所需數(shù)據(jù)數(shù)據(jù)并存入數(shù)據(jù)庫(kù)中，利用data控件連接數(shù)據(jù)庫(kù)。　　4.1 登入模塊的設(shè)計(jì)與實(shí)現(xiàn)　　運(yùn)行環(huán)境　　此系統(tǒng)是在Visual Basic集成開(kāi)發(fā)環(huán)境中運(yùn)行的&

19、lt;/p>　　VB具有可視化集成開(kāi)發(fā)環(huán)境，以事件驅(qū)動(dòng)、圖形用戶界面等為特點(diǎn)，在設(shè)計(jì)時(shí)有著其獨(dú)特的優(yōu)越性。它采用了可視化的、面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，大大簡(jiǎn)化了應(yīng)用系統(tǒng)的開(kāi)發(fā)過(guò)程，并提高了系統(tǒng)的模塊性和緊湊性。VB中提供了大量的系統(tǒng)開(kāi)發(fā)工具和控件，利用ADO結(jié)合SQL技術(shù)開(kāi)發(fā)數(shù)據(jù)庫(kù)使得操作和管理非常方便，從而使以往費(fèi)時(shí)費(fèi)力的開(kāi)發(fā)工作變得輕松自如。　　Visual Bas

20、ic中的“Visual”一詞意為“可視化”的意思，它是指一種開(kāi)發(fā)圖形用戶界面(GUI)的方法。Visual Basic 是基于Basic的可視化的程序設(shè)計(jì)語(yǔ)言，是一種由微軟公司開(kāi)發(fā)的包含協(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)編程語(yǔ)言。從任何標(biāo)準(zhǔn)來(lái)說(shuō)，VB都是丠界上使用人數(shù)最多的語(yǔ)言——不僅是盠贊VB的開(kāi)發(fā)者還是抱怨VB的開(kāi)發(fā)者的數(shù)頏。VB擁有圖形用戶界面(GUI)和快速應(yīng)用程序開(kāi)發(fā)(RAD)系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或者輕

21、松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組仠快速建立一個(gè)應(yīng)用程序。　　Visual Basic之所以受到廣大編程愛(ài)好者及專業(yè)編程人員的青睞，是因?yàn)樗哂幸韵乱恍┨攸c(diǎn)：　　(1)面向?qū)ο?lt;/b>　　VB采用了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。它的基本思路是把復(fù)雜的程序設(shè)計(jì)問(wèn)題分

22、解為一個(gè)個(gè)能夠完成獨(dú)立功能的相對(duì)簡(jiǎn)單的對(duì)象集合，所謂“對(duì)象”就是一個(gè)可操作的實(shí)體，如窗體、窗體中的命令按鈕、標(biāo)簽、文本框等。面向?qū)ο蟮木幊叹秃孟翊罘e木一樣，程序員可根據(jù)程序和界面設(shè)計(jì)要求，直接在屏幕上“畫(huà)”出窗口、菜單、按鈕等不同類型的對(duì)象，并為每個(gè)對(duì)象設(shè)置屬性。 　　(2)事件驅(qū)動(dòng)　　在Windows環(huán)境下，程序

23、是以事件驅(qū)動(dòng)方式運(yùn)行的，每個(gè)對(duì)象都能響應(yīng)多個(gè)不同的事件，每個(gè)事件都能驅(qū)動(dòng)一段的代碼——事件過(guò)程，該代碼決定了對(duì)象的功能。通常稱這種機(jī)制為事件驅(qū)動(dòng)。事件可由用戶的操作觸發(fā)，也可以由系統(tǒng)或應(yīng)用程序觸發(fā)。例如，單擊一個(gè)命令按鈕，就觸發(fā)了按鈕的Click(單擊)事件，該事件中的代碼就會(huì)被執(zhí)行。若用戶未進(jìn)行任何操作(未觸發(fā)事件)，則程序就處于等待狀態(tài)。整個(gè)應(yīng)用程序就是由彼此獨(dú)立的事件過(guò)程構(gòu)成。 　　(3

24、)軟件的集成式開(kāi)發(fā)　　VB為編程提供了一個(gè)集成開(kāi)發(fā)環(huán)境。在這個(gè)環(huán)境中，編程者可設(shè)計(jì)界面、編寫(xiě)代碼、調(diào)試程序，直至把應(yīng)用程序編譯成可在Windows中運(yùn)行的可執(zhí)行文件，并為它生成安裝程序。VB的集成開(kāi)發(fā)環(huán)境為編程者提供了很大的方便。　　(4)結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言　　VB具有豐富的數(shù)據(jù)類型，是一種符合結(jié)構(gòu)化程序設(shè)計(jì)思

25、想的語(yǔ)言，而且簡(jiǎn)單易學(xué)。此外作為一種程序設(shè)計(jì)語(yǔ)言，VB還有許多獨(dú)到之處。 　　(5)強(qiáng)大的數(shù)據(jù)庫(kù)訪問(wèn)功能　　VB利用數(shù)據(jù)控件可以訪問(wèn)多種數(shù)據(jù)庫(kù)，VB6.0提供的ADO控件，不但可以用最少的代碼實(shí)現(xiàn)數(shù)據(jù)庫(kù)操作和控制，也可以取代Data控件和RDO控件。 　　(6)支持對(duì)象的鏈接與嵌入技術(shù)

26、　　VB的核心是對(duì)對(duì)象的鏈接與嵌入(OLE)技術(shù)的支持，它是訪問(wèn)所有對(duì)象的一種方法。利用OLE技術(shù)，能夠開(kāi)發(fā)集聲音、圖像、動(dòng)畫(huà)、字處理、Web等于一體的對(duì)象的程序。 　　(7)網(wǎng)絡(luò)功能　　VB6.0提供了DltTML設(shè)計(jì)工具。利用這種技術(shù)可以動(dòng)態(tài)創(chuàng)建和編輯Web頁(yè)面，使用戶在VB中開(kāi)發(fā)多功能的網(wǎng)絡(luò)應(yīng)

27、用軟件。 　　(8)多個(gè)應(yīng)用程序向?qū)?lt;/p>　　VB提供了多種向?qū)В鐟?yīng)用程序向?qū)А惭b向?qū)?、?shù)據(jù)對(duì)象向?qū)Ш蛿?shù)據(jù)窗　　4.2 點(diǎn)菜系統(tǒng)模塊的設(shè)計(jì)與實(shí)現(xiàn)　　進(jìn)入系統(tǒng)（一起做）　　Private Su

28、b Command1_Click()　　Form1.Hide　　Form2.Show　　End Sub　　Private Sub Command2_Click()　　Form1.Hide<

29、;/p>　　Frmdl.Show　　End Sub　　Private Sub Command3_Click()　　End　　End Sub</b

30、>　　Private Sub Timer1_Timer()　　If Label1.Left + Label1.Width > 0 Then　　Label1.Move Label1.Left - 50　　Else</p

31、>　　Label1.Left = Form1.ScaleWidth　　End If　　End Sub　　顧客選擇留言還是點(diǎn)菜　　Private Sub Command1

32、_Click()　　Form2.Hide　　Frmdc.Show　　End Sub　　Private Sub Command2_Click()　　Form2.Hide&

33、lt;p>　　frmly.Show　　End Sub　　Private Sub Command3_Click()　　Form2.Hide　　frmly.Show　　En

34、d Sub　　Private Sub Command4_Click()　　Form2.Hide　　Form1.Show　　End Sub　　點(diǎn)擊點(diǎn)菜進(jìn)入點(diǎn)菜（本人做）<

35、;/p>　　代碼如下　　此功能需連接數(shù)據(jù)庫(kù)。　　Private Sub Command1_Click()　　Data1.RecordSource = "點(diǎn)心"　　Data1.Refres

36、h　　Data1.Recordset.MoveFirst　　Image2.Picture = LoadPicture(App.Path & Text1.Text)　　End Sub　　Private Sub Command10

37、_Click()　　Frmdc.Hide　　Form2.Show　　End Sub　　Private Sub Command11_Click()　　Image2.Picture = LoadP

38、icture(App.Path & Text1.Text)　　End Sub　　Private Sub Command2_Click()　　Data1.RecordSource = "涼菜"　　Data1.

39、Refresh　　Data1.Recordset.MoveFirst　　Image2.Picture = LoadPicture(App.Path & Text1.Text) （此為圖片載入方式，為相對(duì)路徑）　　End Sub

40、;　　Private Sub Command3_Click()　　Data1.RecordSource = "湯"　　Data1.Refresh　　Data1.Recordset.MoveFirst　　Image2.Picture = LoadPict

41、ure(App.Path & Text1.Text)　　End Sub　　Private Sub Command4_Click()　　Data1.RecordSource = "熱菜"　　Data1.Ref

42、resh　　Data1.Recordset.MoveFirst　　Image2.Picture = LoadPicture(App.Path & Text1.Text)　　End Sub　　Private Sub Comman

43、d5_Click()　　Data1.RecordSource = "主食"　　Data1.Refresh　　Data1.Recordset.MoveFirst　　Image2.Picture = LoadPicture(App.Path & T

44、ext1.Text)　　End Sub　　Private Sub Command6_Click()　　Data1.RecordSource = "茶酒飲品"　　Data1.Refresh&l

45、t;p>　　Data1.Recordset.MoveFirst　　Image2.Picture = LoadPicture(App.Path & Text1.Text)　　End Sub　　Private Sub Command7_Click()</p&g

46、t;　　Dim k As Integer　　If List1.ListCount = 0 Then　　MsgBox "您還沒(méi)有選菜呢！", , "請(qǐng)選菜！"　　End If

47、　　If Val(Label8.Caption) >= 100 Then （當(dāng)滿足此條件自動(dòng)切換到抽獎(jiǎng)系統(tǒng)）　　Frmdc.Hide　　frmcj.Show　　End If　　End Sub</b&

48、gt;　　Private Sub Command8_Click()　　Dim sum As Integer　　List1.AddItem Label4.Caption　　List2.AddItem Label5.Caption&l

49、t;b>　　sum = 0　　For i = 1 To List2.ListCount　　sum = sum + Val(List2.List(i - 1))　　Next i　　Label8.Caption

50、= sum　　End Sub　　Private Sub Command9_Click()　　If List1.ListIndex <> -1 Then　　y = List1.ListIndex<

51、;p>　　List1.RemoveItem y　　List2.RemoveItem y　　End If　　sum = 0　　For i = 1 To List2.ListCount</

52、p>　　sum = sum + Val(List2.List(i - 1))　　Next i　　Label8.Caption = sum　　End Sub<b&g

53、t;　　抽獎(jiǎng)系統(tǒng)　　代碼如下　　Private Sub Command1_Click()　　Dim s As String　　Command1.Visible = True

54、　　Timer1.Enabled = False　　Label2.Visible = False　　s = Val(Text1.Text)　　If s <= 5 Then　　Label3.Caption = "恭喜您！您獲得留念項(xiàng)鏈一條，請(qǐng)到總服務(wù)臺(tái)兌獎(jiǎng)！

55、歡迎您下次光臨！"　　Label3.ForeColor = RGB(50, 50, 50)　　ElseIf s <= 10 Then　　Label3.Caption = "恭喜您！您將獲得留念戒指一條，請(qǐng)到總服務(wù)臺(tái)兌獎(jiǎng)！歡迎您下次光臨！"

56、;　　Label3.ForeColor = RGB(255, 50, 255)　　ElseIf s <= 30 Then　　Label3.Caption = "恭喜您！您將獲得應(yīng)援棒一枚，請(qǐng)到總服務(wù)臺(tái)兌獎(jiǎng)！歡迎您下次光臨！"　　Label3.ForeColor = RGB(55, 255

57、, 255)　　ElseIf s <= 90 Then　　Label3.Caption = "恭喜您！您將獲得會(huì)服一件，請(qǐng)到總服務(wù)臺(tái)兌獎(jiǎng)！歡迎您下次光臨！"　　Label3.ForeColor = RGB(205, 55, 50)

58、;　　Else　　Label3.Caption = "恭喜您！您將獲得手機(jī)掛件一個(gè)，請(qǐng)到總服務(wù)臺(tái)兌獎(jiǎng)！歡迎您下次光臨！"　　Label3.ForeColor = RGB(25, 25, 25)　　End If&l

59、t;p>　　End Sub　　Private Sub Command2_Click()　　Form1.Show　　frmcj.Hide　　End Sub<p&g

60、t;　　Private Sub Timer1_Timer()　　Timer1.Interval = 100　　Text1.Text = Int(Rnd * 100 + 1)　　End Sub　　Private Sub Text1_Ch

61、ange()　　Image2.Picture = LoadPicture(App.Path & Text1.Text)　　End Sub　　登錄和管理系統(tǒng) 　　Private Sub C

62、ommand1_Click()　　If Text1.Text <> "2010" Then　　i = MsgBox("密碼錯(cuò)誤", vbRetryCancel + vbExclamation, "輸入密碼")　　If i <> 4

63、 Then　　End　　Else　　Text1.Text = ""　　Text1.SetFocus　　End If&

64、lt;/b>　　Else　　Frmdl.Hide　　Frmgl.Show　　End If　　End Sub&l

65、t;/p>　　Private Sub Command2_Click()　　Frmdl.Hide　　Form1.Show　　End Sub　　Private Sub Form_Load()

66、　　Text1.PasswordChar = "*"　　End Sub　　窗體切換　　Private Sub Command1_Click()　　Frmg

67、l.Hide　　Frmckly.Show　　End Sub　　Private Sub Command2_Click()　　Frmgl.Hide　　Frmzj.Show&

68、lt;p>　　End Sub　　Private Sub Command3_Click()　　Frmgl.Hide　　Form1.Show　　End Sub<p&

69、gt;　　增減菜式和查看留言（本人做）　　Private Sub Command1_Click()　　Data1.RecordSource = "點(diǎn)心"　　Data1.Refresh　　Data1.Recordset.MoveFirst</p&g

70、t;　　Image2.Picture = LoadPicture(App.Path & Text4.Text)　　End Sub　　Private Sub Command10_Click()　　Command1.Enabled = False

71、 '使其他按鈕不可用　　Command2.Enabled = False　　Command3.Enabled = False　　Command4.Enabled = False　　Command5.Enabled = False

72、;　　Command6.Enabled = False　　Command8.Caption = "修改"　　Command7.Caption = "添加"　　Command10.Enabled = False

73、　Data1.UpdateControls　　Data1.Recordset.Bookmark = mbookmark　　End Sub　　Private Sub Command11_Click()　　Frmzj.Hide</p

74、>　　Frmgl.Show　　End Sub　　Private Sub Command2_Click()　　Data1.RecordSource = "主食"　　Data1.Refres

75、h　　Data1.Recordset.MoveFirst　　Image2.Picture = LoadPicture(App.Path & Text4.Text)　　End Sub　　Private Sub Command3_

76、Click()　　Data1.RecordSource = "涼菜"　　Data1.Refresh　　Data1.Recordset.MoveFirst　　Image2.Picture = LoadPicture(App.Path & Text

77、4.Text)　　End Sub　　Private Sub Command4_Click()　　Data1.RecordSource = "熱菜"　　Data1.Refresh<p&g

78、t;　　Data1.Recordset.MoveFirst　　Image2.Picture = LoadPicture(App.Path & Text4.Text)　　End Sub　　Private Sub Command5_Click()&

79、lt;p>　　Data1.RecordSource = "湯"　　Data1.Refresh　　Data1.Recordset.MoveFirst　　Image2.Picture = LoadPicture(App.Path & Text4.Text)&l

80、t;p>　　End Sub　　Private Sub Command6_Click()　　Data1.RecordSource = "茶酒飲品"　　Data1.Refresh　　Data1.Recordset

81、.MoveFirst　　Image2.Picture = LoadPicture(App.Path & Text4.Text)　　End Sub　　Private Sub Command7_Click()　　Command1.

82、Enabled = False '使其他按鈕不可用　　Command2.Enabled = False　　Command3.Enabled = False　　Command4.Enabled = False　　Command5.Enabled

83、 = False　　Command6.Enabled = False　　If Command7.Caption = "添加" Then　　Command7.Caption = "確認(rèn)"　　mbookmark = Data1.Reco

84、rdset.Bookmark　　Data1.Recordset.AddNew　　Text1.SetFocus　　Else　　If Text1.Text = "" Or Text2.Text = "&quo

85、t; Or Text3.Text = "" Or Text4.Text = "" Then　　MsgBox "字段不能為空"　　Exit Sub　　End If

86、;　　Command7.Caption = "添加"　　Data1.Recordset.Update　　End If　　End Sub　　Private

87、Sub Command8_Click()　　Command1.Enabled = False '使其他按鈕不可用　　Command2.Enabled = False　　Command3.Enabled = False　　Command4.En

88、abled = False　　Command5.Enabled = False　　Command6.Enabled = False　　If Command8.Caption = "修改" Then　　Command8.Caption = "確

89、認(rèn)"　　mbookmark = Data1.Recordset.Bookmark　　Data1.Recordset.Edit　　Text1.SetFocus　　Else　　Comma

90、nd8.Caption = "修改"　　Data1.Recordset.Update　　End If　　End Sub　　Private Sub Command9_Click(

91、)　　Command1.Enabled = False '使其他按鈕不可用　　Command2.Enabled = False　　Command3.Enabled = False　　Command4.Enabled = False</p

92、>　　Command5.Enabled = False　　Command6.Enabled = False　　Dim m As Integer　　m = MsgBox("是否刪除當(dāng)前記錄？", 4 + 32 + 256, "信息提示")</

93、p>　　If m = vbYes Then　　Data1.Recordset.Delete　　Data1.Recordset.MoveNext　　If Data1.Recordset.EOF Then Data1.Recordset.MoveLast<p&

94、gt;　　End If　　End Sub　　此用到了文件的使用　　Private Sub Command1_Click()　　Frmckly.Hide<

95、/p>　　Frmgl.Show　　End Sub　　Private Sub Command2_Click()　　Dim a1 As String　　Open "D:\點(diǎn)菜系統(tǒng)\liuyan.txt

96、" For Input As #1 （讀取文件中的信息）　　While Not EOF(1)　　Line Input #1, a1　　List1.AddItem a1　　Wend

97、　　Close #1　　End Sub　　留言　　Private Sub Timer1_Timer()　　Label3.FontSize = 12</p

98、>　　Label3.FontName = "隸書(shū)"　　Label3.Caption = Time　　End Sub　　Private Sub Command1_Click()　　If T

99、ext1.Text = "" Then　　MsgBox "留言內(nèi)容不能為空", 64, "錯(cuò)誤"　　Else　　MsgBox "發(fā)言成功了!", 64, "哈哈"</p&

100、gt;　　End If　　Text2.Text = Text1.Text　　Text1.Text = ""　　Dim a1 As String　　Open "D:\點(diǎn)菜系統(tǒng)\liuy

101、an.txt" For Append As #1（將信息寫(xiě)入文件）　　a1 = Text2.Text　　Write #1, a1　　Close #1　　End Sub

102、　　Private Sub Command2_Click()　　Form1.Show　　frmly.Hide　　End Sub　　5.1存在問(wèn)題<

103、;p>　　我們?cè)鴩L試著利用數(shù)據(jù)庫(kù)實(shí)現(xiàn)能查出每天的營(yíng)業(yè)總額，每天的銷(xiāo)量，但我們經(jīng)過(guò)一次次的努力，沒(méi)有實(shí)現(xiàn)這一功能。畢竟能力有限，但我們會(huì)在以后的時(shí)間里努力提高自己的知識(shí)，完善這一課程設(shè)計(jì)。　　5.2心得體會(huì)　　在10天的軟件制作過(guò)程中，雖然遇到了重重困難，但經(jīng)過(guò)查閱資料和向同學(xué)詢問(wèn)都得到了解決?，F(xiàn)在完成了任務(wù)，雖

104、然付出了很多才得以完成，但感覺(jué)真的很不錯(cuò)，因?yàn)檫@勞動(dòng)成果是我用辛苦換來(lái)的，汗水中充滿了歡樂(lè)。能有這次經(jīng)歷，真的很值得！　　5.3參考文獻(xiàn)：　　1.《Visual Basic 6.0編程案例精解》，張路平，電子工業(yè)出版社　　2.《Visual Basic 程序設(shè)計(jì)》王學(xué)軍，

眾賞文庫(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ì)自己和他人造成任何形式的傷害或損失。

課程設(shè)計(jì)報(bào)告書(shū)---vb點(diǎn)菜系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

課程設(shè)計(jì)報(bào)告書(shū)---vb點(diǎn)菜系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載