vb點菜系統(tǒng)課程設(shè)計方案報告文件書

基于ＶＢ６。０飯店點菜系統(tǒng)設(shè)計基于ＶＢ６。０飯店點菜系統(tǒng)設(shè)計單位分院（系)專業(yè)學號學生姓名指導教師完成日期2011年8月31日

摘要進行點菜是飯店為顧客服務(wù)的重要環(huán)節(jié)之一。傳統(tǒng)的點菜環(huán)節(jié)由于是手工操作，工作量大且容易出錯。隨著計算機和網(wǎng)絡(luò)技術(shù)的迅速發(fā)展,越來越多的飯店、酒店都擁有自己的點菜系統(tǒng)，制作一個方便、快捷的點菜系統(tǒng)能使點菜環(huán)節(jié)顯得更加美觀且便于操作。飯店點菜系統(tǒng)技術(shù)基礎(chǔ)是VB6。0，它有許多優(yōu)點，例如：“編寫一次、隨處運行”的特性、方便存取數(shù)據(jù)的數(shù)據(jù)庫，使用者只需在窗體上進行操作而不用關(guān)心程序代碼等等。飯店點菜系統(tǒng)提供給顧客一個用來滿足高可用性、高可靠性以及可擴展性的應(yīng)用需求的軟件，給飯店點菜提供了良好的機制、使飯店的工作流程更加順利。本文基于VB6。0，采用多窗體結(jié)構(gòu),設(shè)計并實現(xiàn)了顧客在飯店消費時的點菜、結(jié)賬、抽獎、留言及工作人員管理等多項功能。本文首先介紹了軟件設(shè)計涉及的相關(guān)技術(shù)，圍繞VB6。0的相關(guān)技術(shù)進行軟件的解釋。其次，介紹了飯店點菜系統(tǒng)的總體分析與設(shè)計,包括需求分析、功能模塊分析和數(shù)據(jù)庫設(shè)計。最后，對于主要功能進行了實現(xiàn)，并作了詳細描述，主要采用圖片與代碼結(jié)合的方式詳細地敘述了系統(tǒng)功能的實現(xiàn)。關(guān)鍵詞：文件、數(shù)據(jù)庫、控件使用、圖片載入

目錄TOC\o”1—3”\h\z\u2.2系統(tǒng)的組成及各模塊的功能 2。3系統(tǒng)運行環(huán)境。.。。..。。。.。。。。。。。.。。。.。.。。。。。。。。。。。。。。..。。。..。..。。..。.。。。。.。.HYPERLINK\l”_Toc200770097"3．系統(tǒng)設(shè)計 _Toc200770099"3。2數(shù)據(jù)庫設(shè)計 HYPERLINK\l”_Toc200770103”4．系統(tǒng)實現(xiàn) HYPERLINK\l”_Toc200770104”4.1點菜系統(tǒng)的設(shè)計與實現(xiàn) 4.2管理系統(tǒng)模塊的設(shè)計與實現(xiàn) HYPERLINK\l”_Toc200770103”5．總結(jié) HYPERLINK\l”_Toc200770104"5.1總結(jié) 5。2致謝詞 HYPERLINK\l”_Toc200770105”5。3存在的主要問題 HYPERLINK\l”_Toc200770106”參考文獻

第1章選題的意義能夠使飯店的點菜環(huán)節(jié)由傳統(tǒng)的純?nèi)斯げ僮髯優(yōu)榉奖?、快捷的計算機操作對于減少飯店的人力調(diào)配、減少操作流程、提高工作效率具有重要意義，將點菜環(huán)節(jié)依附于計算機的操作體現(xiàn)了高效、安全、快捷的高科技成果。擁有一個功能完善的點菜系統(tǒng)能夠顯示出飯店的綜合實力，使其相對于其他采用人工點菜的飯店更具競爭力。顧客對系統(tǒng)操作的便捷性、高效性、實用性能夠比較容易接受和認可，這對于飯店招攬回頭客、打造良好聲譽也十分有意義.第2章系統(tǒng)功能需求分析2。1系統(tǒng)概述本系統(tǒng)針對點菜的具體流程,其主要功能有：菜式瀏覽功能：能分類瀏覽飯店的所有菜式、采樣及價格；點菜功能：進行點菜操作后能預覽點菜結(jié)果，并可對其進一步修改；留言板功能：記錄顧客的意見和建議，并具有瀏覽功能;抽獎功能:當顧客的消費達到指定金額時，可分檔抽取小獎品增加菜式功能:飯店管理員可以增加菜單中的菜式將其存儲在數(shù)據(jù)庫中就是一個可操作的實體，如窗體、窗體中的命令按鈕、標簽、文本框等.面向?qū)ο蟮木幊叹秃孟翊罘e木一樣,程序員可根據(jù)程序和界面設(shè)計要求，直接在屏幕上“畫”出窗口、菜單、按鈕等不同類型的對象，并為每個對象設(shè)置屬性。(2）事件驅(qū)動在Windows環(huán)境下，程序是以事件驅(qū)動方式運行的,每個對象都能響應(yīng)多個不同的事件，每個事件都能驅(qū)動一段的代碼——事件過程，該代碼決定了對象的功能。通常稱這種機制為事件驅(qū)動。事件可由用戶的操作觸發(fā)，也可以由系統(tǒng)或應(yīng)用程序觸發(fā)。例如，單擊一個命令按鈕，就觸發(fā)了按鈕的Click(單擊)事件，該事件中的代碼就會被執(zhí)行。若用戶未進行任何操作(未觸發(fā)事件)，則程序就處于等待狀態(tài)。整個應(yīng)用程序就是由彼此獨立的事件過程構(gòu)成.（3）軟件的集成式開發(fā)VB為編程提供了一個集成開發(fā)環(huán)境。在這個環(huán)境中，編程者可設(shè)計界面、編寫代碼、調(diào)試程序，直至把應(yīng)用程序編譯成可在Windows中運行的可執(zhí)行文件，并為它生成安裝程序。VB的集成開發(fā)環(huán)境為編程者提供了很大的方便。(4）結(jié)構(gòu)化的程序設(shè)計語言VB具有豐富的數(shù)據(jù)類型，是一種符合結(jié)構(gòu)化程序設(shè)計思想的語言，而且簡單易學。此外作為一種程序設(shè)計語言，VB還有許多獨到之處。(5)強大的數(shù)據(jù)庫訪問功能VB利用數(shù)據(jù)控件可以訪問多種數(shù)據(jù)庫，VB6。0提供的ADO控件,不但可以用最少的代碼實現(xiàn)數(shù)據(jù)庫操作和控制，也可以取代Data控件和RDO控件。（6)支持對象的鏈接與嵌入技術(shù)VB的核心是對對象的鏈接與嵌入（OLE)技術(shù)的支持，它是訪問所有對象的一種方法。利用OLE技術(shù),能夠開發(fā)集聲音、圖像、動畫、字處理、Web等于一體的對象的程序.（7)網(wǎng)絡(luò)功能VB6。0提供了DltTML設(shè)計工具.利用這種技術(shù)可以動態(tài)創(chuàng)建和編輯Web頁面，使用戶在VB中開發(fā)多功能的網(wǎng)絡(luò)應(yīng)用軟件。（8)多個應(yīng)用程序向?qū)B提供了多種向?qū)?，如?yīng)用程序向?qū)А惭b向?qū)?、?shù)據(jù)對象向?qū)Ш蛿?shù)據(jù)窗4.2點菜系統(tǒng)模塊的設(shè)計與實現(xiàn)進入系統(tǒng)(一起做）PrivateSubCommand1_Click()Form1。HideForm2。ShowEndSubPrivateSubCommand2_Click(）Form1。HideFrmdl。ShowEndSubPrivateSubCommand3_Click（)EndEndSubPrivateSubTimer1_Timer(）IfLabel1.Left+Label1.Width〉0ThenLabel1。MoveLabel1。Left-50ElseLabel1.Left=Form1。ScaleWidthEndIfEndSub顧客選擇留言還是點菜PrivateSubCommand1_Click（）Form2。HideFrmdc.ShowEndSubPrivateSubCommand2_Click()Form2.Hidefrmly.ShowEndSubPrivateSubCommand3_Click（)Form2.Hidefrmly.ShowEndSubPrivateSubCommand4_Click()Form2.HideForm1。ShowEndSub點擊點菜進入點菜（本人做）代碼如下此功能需連接數(shù)據(jù)庫。PrivateSubCommand1_Click（)Data1.RecordSource=”點心”Data1.RefreshData1.Recordset。MoveFirstImage2。Picture=LoadPicture（App。Path＆Text1。Text)EndSubPrivateSubCommand10_Click（）Frmdc。HideForm2.ShowEndSubPrivateSubCommand11_Click()Image2。Picture=LoadPicture(App。Path＆Text1。Text)EndSubPrivateSubCommand2_Click（）Data1.RecordSource=”涼菜”Data1.RefreshData1。Recordset.MoveFirstImage2。Picture=LoadPicture（App。Path&Text1。Text)(此為圖片載入方式，為相對路徑）EndSubPrivateSubCommand3_Click(）Data1.RecordSource=”湯"Data1.RefreshData1.Recordset。MoveFirstImage2.Picture=LoadPicture(App。Path＆Text1。Text)EndSubPrivateSubCommand4_Click()Data1.RecordSource=”熱菜"Data1.RefreshData1.Recordset。MoveFirstImage2.Picture=LoadPicture（App。Path＆Text1。Text）EndSubPrivateSubCommand5_Click()Data1。RecordSource=”主食"Data1。RefreshData1.Recordset.MoveFirstImage2。Picture=LoadPicture（App.Path&Text1.Text)EndSubPrivateSubCommand6_Click（)Data1.RecordSource="茶酒飲品”Data1.RefreshData1。Recordset.MoveFirstImage2.Picture=LoadPicture（App。Path&Text1。Text)EndSubPrivateSubCommand7_Click(）DimkAsIntegerIfList1。ListCount=0ThenMsgBox"您還沒有選菜呢!"，,”請選菜！”EndIfIfVal(Label8.Caption）>=100Then(當滿足此條件自動切換到抽獎系統(tǒng)）Frmdc.Hidefrmcj.ShowEndIfEndSubPrivateSubCommand8_Click（）DimsumAsIntegerList1。AddItemLabel4。CaptionList2.AddItemLabel5。Captionsum=0Fori=1ToList2。ListCountsum=sum+Val(List2。List（i-1))NextiLabel8。Caption=sumEndSubPrivateSubCommand9_Click()IfList1。ListIndex〈〉—1Theny=List1。ListIndexList1。RemoveItemyList2。RemoveItemyEndIfsum=0Fori=1ToList2。ListCountsum=sum+Val(List2。List（i—1）)NextiLabel8。Caption=sumEndSub抽獎系統(tǒng)代碼如下PrivateSubCommand1_Click（）DimsAsStringCommand1。Visible=TrueTimer1.Enabled=FalseLabel2.Visible=Falses=Val（Text1。Text)Ifs〈=5ThenLabel3。Caption="恭喜您！您獲得留念項鏈一條,請到總服務(wù)臺兌獎！歡迎您下次光臨！"Label3.ForeColor=RGB(50，50，50）ElseIfs〈=10ThenLabel3。Caption=”恭喜您！您將獲得留念戒指一條，請到總服務(wù)臺兌獎！歡迎您下次光臨！”Label3.ForeColor=RGB(255,50,255)ElseIfs〈=30ThenLabel3。Caption=”恭喜您!您將獲得應(yīng)援棒一枚，請到總服務(wù)臺兌獎！歡迎您下次光臨！"Label3。ForeColor=RGB(55，255，255）ElseIfs〈=90ThenLabel3.Caption=”恭喜您！您將獲得會服一件，請到總服務(wù)臺兌獎！歡迎您下次光臨！"Label3。ForeColor=RGB（205,55，50)ElseLabel3。Caption=”恭喜您！您將獲得手機掛件一個，請到總服務(wù)臺兌獎!歡迎您下次光臨！"Label3.ForeColor=RGB(25，25,25）EndIfEndSubPrivateSubCommand2_Click（)Form1。Showfrmcj.HideEndSubPrivateSubTimer1_Timer()Timer1。Interval=100Text1.Text=Int(Rnd＊100+1)EndSubPrivateSubText1_Change(）Image2.Picture=LoadPicture（App.Path&Text1.Text)EndSub登錄和管理系統(tǒng)PrivateSubCommand1_Click(）IfText1。Text<〉"2010”Theni=MsgBox（"密碼錯誤”,vbRetryCancel+vbExclamation，"輸入密碼"）Ifi〈〉4ThenEndElseText1.Text=””Text1.SetFocusEndIfElseFrmdl.HideFrmgl。ShowEndIfEndSubPrivateSubCommand2_Click()Frmdl。HideForm1。ShowEndSubPrivateSubForm_Load（）Text1。PasswordChar=”＊"EndSub窗體切換PrivateSubCommand1_Click（）Frmgl。HideFrmckly.ShowEndSubPrivateSubCommand2_Click（）Frmgl。HideFrmzj.ShowEndSubPrivateSubCommand3_Click(）Frmgl。HideForm1.ShowEndSub增減菜式和查看留言（本人做）PrivateSubCommand1_Click()Data1.RecordSource="點心”Data1。RefreshData1。Recordset。MoveFirstImage2.Picture=LoadPicture(App。Path&Text4。Text)EndSubPrivateSubCommand10_Click（)Command1.Enabled=False'使其他按鈕不可用Command2.Enabled=FalseCommand3。Enabled=FalseCommand4。Enabled=FalseCommand5。Enabled=FalseCommand6。Enabled=FalseCommand8.Caption=”修改”Command7。Caption="添加"Command10.Enabled=FalseData1.UpdateControlsData1.Recordset。Bookmark=mbookmarkEndSubPrivateSubCommand11_Click(）Frmzj.HideFrmgl.ShowEndSubPrivateSubCommand2_Click(）Data1。RecordSource=”主食”Data1.RefreshData1。Recordset.MoveFirstImage2。Picture=LoadPicture（App.Path&Text4。Text)EndSubPrivateSubCommand3_Click(）Data1。RecordSource=”涼菜”Data1.RefreshData1。Recordset。MoveFirstImage2.Picture=LoadPicture（App.Path&Text4.Text）EndSubPrivateSubCommand4_Click（)Data1。RecordSource="熱菜"Data1.RefreshData1.Recordset。MoveFirstImage2.Picture=LoadPicture(App。Path&Text4.Text）EndSubPrivateSubCommand5_Click（)Data1.RecordSource="湯"Data1.RefreshData1.Recordset。MoveFirstImage2。Picture=LoadPicture（App。Path&Text4.Text)EndSubPrivateSubCommand6_Click()Data1.RecordSource=”茶酒飲品"Data1.RefreshData1.Recordset.MoveFirstImage2.Picture=LoadPicture(App.Path&Text4。Text）EndSubPrivateSubCommand7_Click（）Command1。Enabled=False'使其他按鈕不可用Command2.Enabled=FalseCommand3.Enabled=FalseCommand4。Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseIfCommand7.Caption="添加”ThenCommand7.Caption="確認”mbookmark=Data1.Recordset.BookmarkData1.Recordset.AddNewText1。SetFocusElseIfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=”"ThenMsgBox"字段不能為空"ExitSubEndIfCommand7.Caption="添加"Data1。Recordset。UpdateEndIfEndSubPrivateSubCommand8_Click（）Command1。Enabled=False’使其他按鈕不可用Command2.Enabled=FalseCommand3.Enabled=FalseCommand4。Enabled=FalseCommand5。Enabled=FalseCommand6。Enabled=FalseIfCommand8.Caption=”修改”ThenCommand8。Caption="確認"mbookmark=Data1.Recordset。BookmarkData1。Recordset.EditText1.SetFocusElseCommand8.Caption=”修改”Data1。Recordset。UpdateEndIfEndSubPrivateSubCommand9_Click（）Command1。Enabled=False'使其他按鈕不可用Command2。Enabled=FalseCommand3。Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6。Enabled=FalseDimmAsIntegerm=MsgBox("是否刪除當前記錄？”,4+32+256,”信息提示”)Ifm=vbYesThenData1.Recordset。DeleteData1。Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset。MoveLastEndIfEndSub此用到了文件的使用Pri