飯店點(diǎn)菜系統(tǒng)

飯店點(diǎn)菜系統(tǒng)一、開發(fā)簡介（一）背景本學(xué)期系統(tǒng)學(xué)習(xí)了VB程序設(shè)計(jì)課程，按照慣例，在學(xué)期結(jié)束時(shí)進(jìn)行VB程序設(shè)計(jì)課程軟件的開發(fā)，也就是本次課程設(shè)計(jì)。（二）課題名稱這次課程設(shè)計(jì)的課題為飯店點(diǎn)菜系統(tǒng)（三）開發(fā)工具及開發(fā)環(huán)境開發(fā)工具：MicrosoftVisualBasic6.0開發(fā)環(huán)境：Windows20003Server二、開發(fā)流程本次數(shù)據(jù)庫課程設(shè)計(jì)采用一般數(shù)據(jù)庫開發(fā)的流程:三、需求分析.登錄打開飯店菜式管理系統(tǒng)程序，進(jìn)入主界面。通過輸入用戶名和密碼登錄到菜品式管理界面兩個(gè)按鈕可以分別進(jìn)入菜式管理系統(tǒng)和退出系統(tǒng)。.菜式管理系統(tǒng)通過輸入用戶名和密碼進(jìn)入到了菜式管理界面，點(diǎn)擊菜式管理菜單，對(duì)菜式進(jìn)行添加和刪除，以及退出程序。三個(gè)按鈕可以分別進(jìn)入到點(diǎn)菜系統(tǒng)、菜式瀏覽系統(tǒng)以及返回主界面。.點(diǎn)菜系統(tǒng)通過點(diǎn)擊菜式管理系統(tǒng)的點(diǎn)菜按鈕進(jìn)入到點(diǎn)菜系統(tǒng)。此界面有兩個(gè)列表框，分別放飯店里所有菜式以及已點(diǎn)的菜，再通過點(diǎn)菜按鈕將飯店菜式列表框里的菜點(diǎn)到已點(diǎn)列表框里，通過退菜按鈕對(duì)已點(diǎn)列表框里的菜進(jìn)行刪除。在點(diǎn)菜和退菜的同時(shí)還對(duì)菜式價(jià)格進(jìn)行計(jì)算。點(diǎn)菜完成后進(jìn)行落單，點(diǎn)擊返回管理界面按鈕返回管理系統(tǒng)界面。.菜式管理系統(tǒng)通過點(diǎn)擊菜式管理系統(tǒng)的菜式瀏覽按鈕進(jìn)入到菜式瀏覽系統(tǒng)。通過點(diǎn)擊按菜名、價(jià)格和菜系瀏覽菜單，對(duì)菜式分別進(jìn)行瀏覽。點(diǎn)擊返回管理界面按鈕返回管理里系統(tǒng)。（一）解決方案和軟件特色解決方案：由于本人才剛接觸VB，所學(xué)的知識(shí)還比較淺，所以就用比較簡單的語句來完整本次設(shè)計(jì)。軟件特色：本軟件具有操作簡單方便，能給服務(wù)員和顧客朋友們提供很大的便利，這是本系統(tǒng)的一大特色?。ǘ┚唧w設(shè)計(jì)下面我就從軟件的使用流程來具體介紹軟件的功能和實(shí)現(xiàn)原理：（1）各模塊之間的關(guān)系以及代碼和圖列：PubliciAsIntegerPublicsumAsSingleTypecaidancmAsStringcxAsStringjgAsIntegerylAsStringzkAsSingleEndTypePublics()AscaidanFunctionchazhao(ByValnAsString)AsIntegerDimjAsIntegerForj=1ToiIfn=s(j).cmThenchazhao=jIfn=s(j).cxThenchazhao=jIfn=Str(s(j).jg)Thenchazhao=jIfn=s(j).ylThenchazhao=jIfn=Str(s(j).zk)Thenchazhao=jNextjEndFunction.酒店菜單登陸系統(tǒng)：t**!?**用戶名登錄退出歡迎九鳴府八大酒店t**!?**用戶名登錄退出歡迎九鳴府八大酒店[[=11回附本窗體代碼：PrivateSubCommand1_Click()Dimmes%IfText1.Text="jane"AndText2.Text="123456"ThenForm1.HideForm2.ShowElsemes=MsgBox("用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入！")Text1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Text2.PasswordChar="*"EndSub.菜式管理系統(tǒng):PrivateSubmnufileadd_Click()ReDimPreserves(1To(i+1))Ascaidani=i+1s(i).cm=InputBox("請(qǐng)輸入菜名"，"新增")s(i).cx=InputBox("請(qǐng)輸入菜系"，"新增")s(i).jg=InputBox("請(qǐng)輸入價(jià)格“，“新增”)s(i).yl=InputBox("請(qǐng)輸入原料"，"新增")s(i).zk=InputBox("請(qǐng)輸入折扣"，"新增")EndSubPrivateSubmnufiledel_Click()DimjAsIntegerDimkAsIntegerDimnAsStringn=InputBox("請(qǐng)輸入查找的關(guān)鍵字“，“查找")j=chazhao(n)Fork=jToi-1s(k)=s(k+1)Nextki=i-1EndSubPrivateSubmnufileqiute_Click()EndEndSubPublicFunctionchazhao(ByValnAsString)AsIntegerDimjAsIntegerForj=1ToiIfn=s(j).cmThenchazhao=jIfn=s(j).cxThenchazhao=jIfn=Str(s(j).jg)Thenchazhao=jIfn=s(j).ylThenchazhao=jIfn=Str(s(j).zk)Thenchazhao=jNextjEndFunction3.點(diǎn)菜系統(tǒng)：主要由a菜品類別選擇b顯示所選菜品c顯示菜品的樣圖三部分實(shí)現(xiàn),用到了selectcase語句對(duì)項(xiàng)目進(jìn)行選擇a點(diǎn)comb1進(jìn)行選則菜品類別，包括熱菜，涼菜，點(diǎn)心，主食，飲品、Comb1中自動(dòng)加載菜品的幾大種類，代碼為：PrivateSubForm_Load()Combo1.AddItem"涼菜"Combo1.AddItem”熱菜”Combo1.AddItem”飲品”Combo1.AddItem"點(diǎn)心”Combo1.AddItem"主食”EndSubb單擊comb1中的不同的項(xiàng)，comb2加載相應(yīng)的菜品內(nèi)容單擊涼菜，comb2清除原有內(nèi)容，顯示涼菜種類及價(jià)格PrivateSubCombo1_Click()SelectCaseCombo1.TextCase"涼菜”‘單擊“涼菜”Combo2.ClearCombo2.AddItem”拌黑白木耳15”‘comb2添加”拌黑白木耳15Combo2.AddItem"醬汁牛肚20”,comb2添加項(xiàng)”醬汁牛肚20”Combo2.AddItem”涼拌海帶絲15”,comb2添加項(xiàng)”涼拌海帶絲15”Combo2.AddItem”涼拌海蜇皮10”,comb2添加項(xiàng)涼拌海蜇皮10Combo2.AddItem”涼拌胡蘿卜10”‘comb2添加項(xiàng)涼拌胡蘿卜10Combo2.AddItem”麻辣黃瓜10”‘comb2添加項(xiàng)麻辣黃瓜10Combo2.AddItem”什錦大拌菜20”,comb2添加項(xiàng)什錦大拌菜20Combo2.AddItem”香魯雞爪25”,comb2添加項(xiàng)香魯雞爪25單擊熱菜,comb2中加在相應(yīng)熱菜的名稱及價(jià)格Case”熱菜”Combo2.ClearCombo2.AddItem”炒茄絲15”Combo2.AddItem”海陸包15”Combo2.AddItem”荷葉蒸粉肉20”Combo2.AddItem”糖醋排骨30”Combo2.AddItem”蝦子面筋25”Combo2.AddItem”杏仁燉肉25”Combo2.AddItem”云蒸西芹炒肉片25”Combo2.AddItem”炸雞肉串20”Combo2.AddItem”鮑汁扣鵝掌30”Combo2.AddItem”叉燒25”Combo2.AddItem”二頭鮑魚30”Combo2.AddItem”佛手咸水魚35”Combo2.AddItem”海蝦咸水餃20”Combo2.AddItem”肉醬蒸河粉20”單擊“飲品"，comb2中加在相應(yīng)飲品的名稱及價(jià)格Case”飲品”Combo2.ClearCombo2.AddItem”山城啤酒3”Combo2.AddItem”瀘州老窖60”Combo2.AddItem"橙汁8”Combo2.AddItem”葡萄酒50”Combo2.AddItem”花生奶15”Combo2.AddItem”芒果飲料15"Combo2.AddItem"花樣飲乳20”單擊主食，comb2中加載主食的名稱及價(jià)格Case"主食"Combo2.ClearCombo2.AddItem"米飯5"Combo2.AddItem”香菜餃10”Combo2.AddItem”肉混沌15"單擊點(diǎn)心，comb2中加載主食及其價(jià)格Case"點(diǎn)心"Combo2.ClearCombo2.AddItem"草莓點(diǎn)心20"Combo2.AddItem”脆鍋餅15"Combo2.AddItem”涼粉卷15”Combo2.AddItem”糖果點(diǎn)心15"Combo2.AddItem"銀耳果羹20"Combo2.AddItem"早茶20"EndSelect,結(jié)束篩選EndSuc在image1中顯示所選菜品的圖片用ifendif語句，代碼及解釋PrivateSubCombo2_Click（）‘單擊comb2中的項(xiàng)DimstrAsStringstr=Combo2.List（Combo2.ListIndex）List1.AddItemCombo2.TextIfCombo2.Text="米飯5"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'主食'米飯.jpg"）‘在其同源文件夾中加載圖片名為米飯,屬性為jpg的圖片,到image1中EndIfIfCombo2.Text="香菜餃10"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'主食'香菜餃.jpg"）‘在其同源文件夾中加載圖片名為香菜餃，屬性為jpg的圖片,到image1中EndIfIfCombo2.Text="肉混沌15"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'主食'肉混沌.jpg"）‘在其同源文件夾中加載圖片名為肉混沌，屬性為jpg的圖片，到image1EndIfIfCombo2.Text="草莓點(diǎn)心20"ThenImage1.Picture=LoadPicture（App.Path&"'圖片\點(diǎn)心'草莓點(diǎn)心.jpg"）EndIfIfCombo2.Text="脆鍋餅15"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'點(diǎn)心\脆鍋餅.jpg"）EndIfIfCombo2.Text="涼粉卷15"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'點(diǎn)心\涼粉卷.jpg"）EndIfIfCombo2.Text="銀耳果羹20"ThenImagel.Picture=LoadPicture（App.Path&"'圖片\點(diǎn)心'銀耳果羹.jpg"）EndIfIfCombo2.Text="糖果點(diǎn)心15"ThenImage1.Picture=LoadPicture（App.Path&"'圖片\點(diǎn)心'糖果點(diǎn)心/pg"）EndIfIfCombo2.Text="早茶20"ThenImage1.Picture=LoadPicture（App.Path&"'圖片\點(diǎn)心'早茶.jpg"）EndIfIfCombo2.Text="拌黑白木耳15"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'涼菜'拌黑白木耳.jpg"）EndIfIfCombo2.Text="醬汁牛肚20”ThenImage1.Picture=LoadPicture（App.Path&"'圖片'涼菜'醬汁牛肚.jpg"）EndIfIfCombo2.Text="涼拌海帶絲15"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'涼菜'涼拌海帶絲.jpg"）EndIfIfCombo2.Text="涼拌海蜇皮10"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'涼菜'涼拌海蜇皮.jpg"）EndIfIfCombo2.Text="涼拌胡蘿卜10"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'涼菜'涼拌胡蘿k.jpg"）EndIfIfCombo2.Text="麻辣黃瓜10"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'涼菜'麻辣黃瓜.jpg"）EndIfIfCombo2.Text="什錦大拌菜20"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'涼菜'什錦大拌菜.jpg"）EndIfIfCombo2.Text="醬汁牛肚20"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'涼菜'醬汁牛肚.jpg"）EndIfIfCombo2.Text="香魯雞爪25"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'涼菜'香魯雞爪.jpg"）EndIfIfCombo2.Text="炒茄絲15"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'炒茄絲.jpg"）EndIfIfCombo2.Text="海陸包15"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'海陸包.jpg"）EndIfIfCombo2.Text="荷葉蒸粉肉20"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'荷葉蒸粉肉.jpg"）EndIfIfCombo2.Text="糖醋排骨30"ThenImagel.Picture=LoadPicture（App.Path&"'圖片'熱菜'糖醋排骨.jpg"）EndIfIfCombo2.Text="蝦子面筋25"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'蝦子面筋.jpg"）EndIfIfCombo2.Text="杏仁燉肉25"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'杏仁燉肉.jpg"）EndIfIfCombo2.Text="云蒸西芹炒肉片25"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'云蒸西芹炒肉片.jpg"）EndIfIfCombo2.Text="炸雞肉串20"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'炸雞肉串.jpg"）EndIfIfCombo2.Text="鮑汁扣鵝掌30"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'鮑汁扣鵝掌.jpg"）EndIfIfCombo2.Text="叉燒25"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'叉燒.jpg"）EndIfIfCombo2.Text="二頭鮑魚30"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜\二頭鮑魚.jpg"）EndIfIfCombo2.Text="佛手咸水魚35"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'佛手咸水魚.jpg"）EndIfIfCombo2.Text="海蝦咸水餃20"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'海蝦咸水餃.jpg"）EndIfIfCombo2.Text="肉醬蒸河粉20"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'熱菜'肉醬蒸河粉.jpg"）EndIfIfCombo2.Text="山城啤酒3"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'飲品'山城啤酒/pg"）EndIfIfCombo2.Text="瀘州老窖60"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'飲品'瀘州老窖.jpg"）EndIfIfCombo2.Text="橙汁8"ThenImage1.Picture=LoadPicture（App.Path&"'圖片'飲品'橙汁.jpg"）EndIfIfCombo2.Text="葡萄酒50"ThenImagel.Picture=LoadPicture(App.Path&"'圖片'飲品'葡萄酒.jpg")EndIfIfCombo2.Text="花樣飲乳20”ThenImage1.Picture=LoadPicture(App.Path&"'圖片'飲品\花樣飲乳.jpg")EndIfIfCombo2.Text="芒果飲料15"ThenImagel.Picture=LoadPicture(App.Path&"'圖片'飲品'芒果飲料.jpg")EndIfIfCombo2.Text="花生奶15”ThenImagel.Picture=LoadPicture(App.Path&"'圖片'飲品'花生奶.jpg")EndIfd計(jì)價(jià)模塊在label5中計(jì)算消費(fèi)金額其代碼為Sum=Sum+Val(Right(List1.Text,2))Label5="消費(fèi)金額:"&Sum&"元"EndSube刪除不需要的菜品單擊command1事件觸發(fā)代碼為rivateSubCommand1_Click()IfList1.ListIndex<>-1Then‘如果list1中選中的項(xiàng)目不為空X=List1.ListIndexList1.RemoveItemX‘刪除X項(xiàng)ElseEndIf.菜式瀏覽器：PrivateSubcm_Click()Forj=1Toi-1Fork=iToj+1Step-1Ifs(k).cm<s(k-1).cmThenm=s(k).cm:s(k).cm=s(k-1).cm:s(k-1).cm=mm=s(k).cx:s(k).cx=s(k-1).cx:s(k-1).cx=mm=s(k).jg:s(k).jg=s(k-1).jg:s(k-1).jg=mm=s(k).yl:s(k).yl=s(k-1).yl:s(k-1).yl=mm=s(k).zk:s(k).zk=s(k-1).zk:s(k-1).zk=mEndIfNextkNextjClsPrintChr(13),Chr(13),Chr(13),Chr(13),Chr(13)Forj=1ToiPrints(j).cm,s(j).cx,s(j).jg,s(j).yl,s(j).zkNextjEndSubPrivateSubCommand1_Click()UnloadForm4Form3.ShowEndSubPrivateSubcx_Click()Forj=1Toi-1Fork=iToj+1Step-1Ifs(k).cx<s(k-1).cxThenm=s(k).cm:s(k).cm=s(k-1).cm:s(k-1).cm=mm=s(k).cx:s(k).cx=s(k-1).cx:s(k-1).cx=mm=s(k).jg:s(k).jg=s(k-1).jg:s(k-1).jg=mm=s(k).yl:s(k).yl=s(k-1).yl:s(k-1).yl=mm=s(k).zk:s(k).zk=s(k-1).zk:s(k-1).zk=mEndIfNextkNextjClsPrintChr(13),Chr(13),Chr(13),Chr(13),Chr(13)Forj=1ToiPrints(j).cm,s(j).cx,s(j).jg,s(j).yl,s(j).zkNextjEndSubPrivateSubForm_Load()ShowPrintPrintChr(13),Chr(13),Chr(13),Chr(13),Chr(13)Forj=1ToiPrints(j).cm,s(j).cx,s(j).jg,s(j).yl,s(j).zkNextjEndSubPrivateSubjg_Click()Forj=1Toi-1Fork=iToj+1Step-1Ifs(k).jg<s(k-1).jgThenm=s(k).cm:s(k).cm=s(k-1).cm:s(k-1).cm=mm=s(k).cx:s(k).cx=s(k-1).cx:s(k-1).cx=mm=s(k).jg:s(k).jg=s(k-1).jg:s(k-1).jg=mm=s(k).yl:s(k).yl=s(k-1).yl:s(k-1).yl=mm=s(k).zk:s(k).zk=s(k-1).zk:s(k-1).zk=mEndIfNextkNextjClsPrintChr(13),Chr(13),Chr(13),Chr(13),Chr(13)Forj=1ToiPrints(j).cm,s(j).cx,s(j).jg,s(j).yl,s(j).zkNextjEndSub.留言板系統(tǒng)：PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"留言不能為空！",vbOKOnly+vbExclamation,"注意"'留言為空時(shí)，彈出對(duì)話框，提醒顧客留言Text1.SetFocusEndIfIfText2.Text=""ThenMsgBox"簽名不能為空！”,vbOKOnly+vbExclamation,"注意" ’簽名為空時(shí)，彈出對(duì)話框，提醒顧客簽名Text2.SetFocusEndIfIfText1.Text<>""AndText2.Text<>""ThenList1.AddItemText2.Text&'說："&Text1.Text&""&NowOpenApp.Path&"\data\留言.dat"ForAppendAs#1Write#1,Text2.Text&'說："&Text1.Text&""&Now'把留言內(nèi)容保存到文件夾內(nèi)Close#1Text1.Text=""清空留言和Text2.Text=""EndIfEndSubPrivateSubCommand2_Click()Form2.Show '關(guān)閉留言板界面加載主界面Form5.HideEndSubPrivateSubCommand3_Click()End'退出程序EndSubPrivateSubCommand4_Click()OpenApp.Path&"\~a1a\留言421"ForOutputAs#1 '點(diǎn)擊清楚時(shí)，保存在文件中的所有留言被清空Write#1,""Close#1DimaAsStringList1.ClearEndSubPrivateSubForm_Load()OpenApp.Path&"\data\留言.dat"ForInputAs#1 '當(dāng)留言板窗體被載入，系統(tǒng)讀取文件夾中所有留言，并將其顯示在留言板中WhileNotEOF(1)LineInput#1,aList1.AddItemaWendClose#1label1.Left=Form1.ScaleWidthEndSubPrivateSubTimer1_Timer()Iflabel1.Left+label1.Width>0Then'滾動(dòng)字幕label1.Movelabel1.Left-^0Elselabel1.Left=Form1.ScaleWidthEndIfEndSubPrivateSubTimer3_Timer()Label2.Caption="小老鼠報(bào)時(shí)："&Now '顯示當(dāng)前的日期和時(shí)間End6抽獎(jiǎng)系統(tǒng)：DimiAsInteger,jAsInteger,kAsInteger,mAsIntegerPrivateSubForm_Load()Timer1.Interval=100 '設(shè)置時(shí)間間隔為100毫秒Timer1.Enabled=False'timer1事件不允許執(zhí)行EndSubPrivateSubTimer1_Timer()Label5.Caption=Round(Rnd()*9,0)i=Label5.Caption 'i等于Label5上產(chǎn)生的0-9間的隨機(jī)數(shù)Label6.Caption=Round(Rnd()*9,0)

j=Label6.Caption數(shù)Label7.Caption=Round(Rnd()k=Label7.Caption數(shù)Label8.Caption=Round(Rnd()m=Label8.CaptionEndSubj=Label6.Caption數(shù)Label7.Caption=Round(Rnd()k=Label7.Caption數(shù)Label8.Caption=Round(Rnd()m=Label8.CaptionEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueCommand1.Enabled=FalsePrivateSubCommand2_Click()Timer1.Enabled=FalseIfi=jAndj=kAndk=mThen'k等于Label7上產(chǎn)生的0-9間的隨機(jī)*9,0)'command1單擊事件'm等于Label8上產(chǎn)生的0-9間的隨機(jī)數(shù)'command1單擊事件'timer1事件允許執(zhí)行'command1事件不允許執(zhí)行EndSub'command2單擊事件'timer1事件不允許執(zhí)行進(jìn)入ifthen循環(huán)Label10.Caption="恭喜您獲得特等獎(jiǎng)?。?Image1.Picture=LoadPicture(App.Path&"\菜譜\獎(jiǎng)品\特等獎(jiǎng).jpg") 'Image1加載特等獎(jiǎng)圖片ElseIfi=jAndj=kThen '當(dāng)前三個(gè)相同時(shí)Label10.Caption="恭喜您獲得一等獎(jiǎng)??！"Image1.Picture=LoadPicture(App.Path&"\菜譜\獎(jiǎng)品'一等獎(jiǎng).jpg")'Image1力口載一等獎(jiǎng)圖片ElseIfi<>jAndj=kAndk<>mThen '當(dāng)只有中間二個(gè)相同時(shí)Label10.Caption="恭喜您獲得二等獎(jiǎng)??！"Image1.Picture=LoadPicture(App.Path&"\菜譜\獎(jiǎng)品\二等獎(jiǎng).jpg")'Image1加載二等獎(jiǎng)圖片ElseIfi<>kAndj