管理信息系統(tǒng)課程設(shè)計(jì)

1、 機(jī)電工程學(xué)院課程設(shè)計(jì) 題 目： 云南昆明市嘉年華肯德基管理系統(tǒng) 專 業(yè)： 工業(yè)工程 年 級(jí)： 2013級(jí) 姓 名： 楊思長(zhǎng) 學(xué) 號(hào)： 指導(dǎo)教師： 付宏財(cái) 日 期： 2016年05月 20日 目錄一、課程設(shè)計(jì)任務(wù)書31、課程設(shè)計(jì)項(xiàng)目32、要求33、設(shè)計(jì)計(jì)劃和考核內(nèi)容及方式3二、系統(tǒng)概述41.調(diào)研部門42.研究背景：43.系統(tǒng)分析43.6新系統(tǒng)規(guī)劃7三、系統(tǒng)設(shè)計(jì)83.1系統(tǒng)設(shè)計(jì)目標(biāo)83.2開發(fā)及運(yùn)行環(huán)境83.3數(shù)據(jù)庫(kù)設(shè)計(jì)83.4、主要功能設(shè)計(jì)9四、總結(jié)21附錄A 參考文獻(xiàn)22一、課程設(shè)計(jì)任務(wù)書1、課程設(shè)計(jì)項(xiàng)目針對(duì)你較熟悉的一個(gè)中小型單位/公司的實(shí)際情況，對(duì)其管理業(yè)務(wù)和現(xiàn)有信息管理方案進(jìn)行調(diào)研，對(duì)

2、其新的管理信息系統(tǒng)開發(fā)提出規(guī)劃，并進(jìn)行系統(tǒng)分析（繪制其組織結(jié)構(gòu)圖、業(yè)務(wù)功能圖、業(yè)務(wù)流程圖、數(shù)據(jù)流程圖等）、系統(tǒng)設(shè)計(jì)，在設(shè)計(jì)中請(qǐng)利用VB、VC、C、Excel或Access等程序語(yǔ)言對(duì)主要的信息管理子系統(tǒng)進(jìn)行窗口化設(shè)計(jì)，并編寫子程序代碼。2、要求通過(guò)本課程設(shè)計(jì)，綜合利用該門課程所學(xué)的理論和實(shí)驗(yàn)知識(shí)與技能，對(duì)一個(gè)小型企業(yè)的信息管理意識(shí)、綜合措施與計(jì)算機(jī)系統(tǒng)方案進(jìn)行實(shí)際分析，并作優(yōu)化與改進(jìn)（改造）設(shè)計(jì)，要求分析設(shè)計(jì)的內(nèi)容考慮周全、實(shí)用，并具有遠(yuǎn)見(jiàn)性；系統(tǒng)設(shè)計(jì)方案合理，部分環(huán)節(jié)的程序編寫正確。具體要求如下：（1）調(diào)研措施得當(dāng)，并能深入實(shí)際，獲取的信息較為全面、實(shí)用；（2）能查閱整理相關(guān)文獻(xiàn)資料，能按照

3、課程設(shè)計(jì)的要求獨(dú)立進(jìn)行，能按規(guī)定的格式撰寫；分析體現(xiàn)的基礎(chǔ)理論知識(shí)扎實(shí)；（3）設(shè)計(jì)的綜合方案合理，技術(shù)得當(dāng)，體現(xiàn)一定的技術(shù)水平和遠(yuǎn)見(jiàn)性；（4）系統(tǒng)實(shí)現(xiàn)的技術(shù)路線可行，局部的程序編寫正確。3、設(shè)計(jì)計(jì)劃和考核內(nèi)容及方式時(shí)間安排：課程結(jié)束之后的2周內(nèi)完成?？己藘?nèi)容和方式：從以下四個(gè)方面綜合權(quán)衡打分：（1）調(diào)研工作的深入程度；（2）分析與設(shè)計(jì)采用的理論知識(shí)水平；（3）技術(shù)路徑與方法是否得當(dāng)；（4）編寫的程序的適用程度以及各子程序代碼正確與否。二、系統(tǒng)概述1.調(diào)研部門云南省昆明市五華區(qū)霖雨路嘉年華購(gòu)物廣場(chǎng)肯德基餐廳2.研究背景：2.1肯德基簡(jiǎn)介肯德基是美國(guó)跨國(guó)連鎖餐廳，同時(shí)也是世界第二大速食及最大炸雞連

4、鎖企業(yè)，由哈蘭德桑德斯上校于1939年在肯塔基州路易斯維爾創(chuàng)建。其主要出售炸雞等快餐食品，經(jīng)營(yíng)理念是不斷推出新的產(chǎn)品，或?qū)⒁酝N售產(chǎn)品重新包裝，針對(duì)人們嘗鮮的心態(tài)，從而獲得利潤(rùn)。肯德基現(xiàn)隸屬于百勝餐飲集團(tuán)，并與百事可樂(lè)結(jié)成了戰(zhàn)略聯(lián)盟，固定銷售百事公司提供的碳酸飲料（部分國(guó)家例外，如韓國(guó)、日本銷售可口可樂(lè)）。在中國(guó)截至2016年共有約4500 家門店，在昆明經(jīng)過(guò)15年的發(fā)展，現(xiàn)在昆明肯德基餐廳數(shù)量45家。2.2選題背景及意義我在嘉年華肯德基兼職，至入職到現(xiàn)在已經(jīng)有2年半的時(shí)間。處于自身的職業(yè)優(yōu)勢(shì)，加上平時(shí)對(duì)肯德基餐廳運(yùn)營(yíng)情況的了解；加之在平時(shí)針對(duì)自己所學(xué)的專業(yè)課程在與平時(shí)的聊天過(guò)程中對(duì)運(yùn)營(yíng)過(guò)程有

5、深刻的了解。針對(duì)該學(xué)期所學(xué)的管理信息系統(tǒng)這一門專業(yè)課程的學(xué)習(xí)，結(jié)合在肯德基兼職的機(jī)會(huì)以及專門的管理信息系統(tǒng)調(diào)查。將課堂上學(xué)習(xí)的專業(yè)知識(shí)與生活中的事物進(jìn)行關(guān)聯(lián)，促進(jìn)專業(yè)知識(shí)在我們生活的應(yīng)用，同時(shí)鞏固專業(yè)知識(shí)的積累，做一個(gè)合格的工業(yè)工程學(xué)生。3.系統(tǒng)分析3.1系統(tǒng)簡(jiǎn)介經(jīng)過(guò)長(zhǎng)期的在職體驗(yàn)以及長(zhǎng)期的調(diào)查可以得出肯德基現(xiàn)在存在以下問(wèn)題：（1）作為快餐行業(yè)，講究高效快捷，又由于人流量確定的不確定，因此容易因估計(jì)的不足而導(dǎo)致服務(wù)脫節(jié)；（2）由于實(shí)行排班制及工時(shí)限制，因排班不足，容易導(dǎo)致人力資源的流失；（3）估計(jì)不足或者過(guò)大導(dǎo)致物料儲(chǔ)備不足或者過(guò)多，形成產(chǎn)品脫節(jié)的利潤(rùn)流失；（4）餐廳實(shí)行經(jīng)理負(fù)責(zé)制，導(dǎo)致值班經(jīng)

6、理如同消防員一般，不能充分發(fā)揮經(jīng)理人的領(lǐng)導(dǎo)作用，形成權(quán)責(zé)不清的局面；肯德基的主要運(yùn)營(yíng)系統(tǒng)如下：3.2組織機(jī)構(gòu)圖 3.3系統(tǒng)的業(yè)務(wù)流程圖該餐廳在長(zhǎng)期的運(yùn)營(yíng)過(guò)程中其業(yè)務(wù)流程為：顧客需求表公司發(fā)票服務(wù)組出納人員銷量情況物料消耗表餐廳計(jì)劃表利潤(rùn)表銷售表管理組提貨表訂貨表采購(gòu)部門管理組3.4數(shù)據(jù)流程圖顧客服務(wù)組預(yù)測(cè)系統(tǒng)統(tǒng)計(jì)系統(tǒng)顧客廚房顧客3.5現(xiàn)有系統(tǒng)分析根據(jù)長(zhǎng)期的兼職經(jīng)驗(yàn)，以及餐廳日常出現(xiàn)的部分狀況可以的出下列現(xiàn)行系統(tǒng)缺陷：（1）餐廳員工分工不夠明確，導(dǎo)致效率不能有效提高；（2）未能充分發(fā)揮計(jì)算機(jī)的作用，充分利用現(xiàn)代高科技術(shù)；（3）缺乏客戶的信息收集管理，缺乏與顧客的聯(lián)系；（4）隨著餐廳行業(yè)的發(fā)展以及

7、競(jìng)爭(zhēng)力的增強(qiáng)，現(xiàn)有的系統(tǒng)已經(jīng)不能滿足餐廳的發(fā)展；（5）餐廳管理信息系統(tǒng)的進(jìn)一步發(fā)展將有利于餐廳的發(fā)展，增強(qiáng)餐廳的競(jìng)爭(zhēng)優(yōu)勢(shì)，掌握市場(chǎng)的先機(jī)。3.6新系統(tǒng)規(guī)劃3.6.1經(jīng)濟(jì)可行性在肯德基食品的制作過(guò)程中，時(shí)間產(chǎn)國(guó)最佳賞味期就將相關(guān)產(chǎn)品廢棄，所以庫(kù)存量不應(yīng)太多，避免造成不必要的資源浪費(fèi)。同時(shí)由于客流量大，波動(dòng)性強(qiáng)，所以物流配送，保持材料充分補(bǔ)給的工作顯得尤為重要。因此需要對(duì)數(shù)據(jù)庫(kù)進(jìn)行更充分的研究和分析，預(yù)測(cè)短時(shí)間、短時(shí)段的銷量需求。將有效減少庫(kù)存誤差，提高服務(wù)效率，減少物品庫(kù)存管理費(fèi)用，降低相關(guān)產(chǎn)品的成本，有利于提高產(chǎn)品銷售利潤(rùn)。3.6.2管理可行性（1）我經(jīng)過(guò)詳細(xì)的調(diào)查和與有關(guān)人員交流以后，根據(jù)他

8、們的需求和我們對(duì)現(xiàn)有系統(tǒng)的分析來(lái)構(gòu)成我們現(xiàn)在的系統(tǒng)；所以比較能切合嘉年華肯德基餐廳工作人員的需求。（2）本系統(tǒng)構(gòu)建對(duì)于嘉年華肯德基餐廳管理方法和餐廳工作人員職能改進(jìn)也有比較重要的促進(jìn)作用。本系統(tǒng)可以進(jìn)一步減輕規(guī)范餐廳的物流管理、人員安排等工作，進(jìn)一步提高服務(wù)員的服務(wù)水平，提高工作效率。3.6.3環(huán)境可行性（1）隨著信息技術(shù)的不斷發(fā)展，管理信息系統(tǒng)在企業(yè)管理中的應(yīng)用已經(jīng)是不然現(xiàn)象。系統(tǒng)完善可以提高肯德基連鎖店的工作效率。大多數(shù)數(shù)據(jù)經(jīng)過(guò)計(jì)算機(jī)處理，數(shù)據(jù)的準(zhǔn)確性和正確性將能明顯改善。（2）肯德基作為世界500強(qiáng)企業(yè)，管理制度比較科學(xué)，組織機(jī)構(gòu)相對(duì)健全，信息技術(shù)的運(yùn)用相對(duì)廣泛，對(duì)市場(chǎng)的信息收集比較齊全

9、。就目前的技術(shù)環(huán)境完全有這個(gè)條件實(shí)現(xiàn)該系統(tǒng)的開發(fā)。新系統(tǒng)的實(shí)現(xiàn)將有利于管理工作的進(jìn)一步展開提供一定的依據(jù)，所以廣大的管理者對(duì)于新的市場(chǎng)預(yù)測(cè)信息系統(tǒng)相對(duì)比較支持認(rèn)同。3.6.4 可行性分析結(jié)論基于以上技術(shù)、經(jīng)濟(jì)、管理上的可行性分析，該信息系統(tǒng)的使用完全具備可行性環(huán)境，同時(shí)，新系統(tǒng)的使用將有利于肯德基以更低的成本、更及時(shí)的服務(wù)來(lái)硬的顧客的支持和贊同，增強(qiáng)企業(yè)競(jìng)爭(zhēng)力。三、系統(tǒng)設(shè)計(jì)3.1系統(tǒng)設(shè)計(jì)目標(biāo)本系統(tǒng)是根據(jù)網(wǎng)上訂餐系統(tǒng)的實(shí)際需要出發(fā)的，系統(tǒng)通過(guò)對(duì)顧客的點(diǎn)餐需求可以實(shí)現(xiàn)以下功能。系統(tǒng)運(yùn)行穩(wěn)定，安全可靠。界面設(shè)計(jì)美觀，人機(jī)交互界面友好。菜單查看靈活便捷，下單輕松。操作員可以隨時(shí)修改自己的口令。對(duì)用戶輸

10、入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。3.2開發(fā)及運(yùn)行環(huán)境系統(tǒng)開發(fā)平臺(tái)：Visual Basic 6.0運(yùn)行平臺(tái)：Windows xp/Windows 2000/Windows 983.3數(shù)據(jù)庫(kù)設(shè)計(jì)本系統(tǒng)采用Visual FoxPro 6.0設(shè)計(jì)數(shù)據(jù)庫(kù)，本系統(tǒng)中包括如下數(shù)據(jù)表。下面分別給出數(shù)據(jù)表的結(jié)構(gòu)。數(shù)據(jù)表結(jié)構(gòu)（1）password(密碼表)密碼表主要用于在管理員的登錄同時(shí)登陸后還可以對(duì)原有面貌進(jìn)行修改，如表B.1所示。表B.1 密碼表字段名數(shù)據(jù)類型長(zhǎng)度描述用戶名varchar20用戶名密碼varchar c20密碼3.4、主要功能設(shè)計(jì)3.4.1主窗口設(shè)計(jì)主窗體是顯示系統(tǒng)主

11、要操作功能的面板，在系統(tǒng)主窗體的狀態(tài)欄中，可以登錄信息，菜單信息，送貨地址信息，也可以實(shí)現(xiàn)同樣的功能。系統(tǒng)主窗體的運(yùn)行結(jié)果如圖3所示。圖2 系統(tǒng)主窗體的運(yùn)行結(jié)果3.4.2顧客訂單信息顧客訂餐信息是外賣系統(tǒng)重要的組成部分，是對(duì)訂餐管理的主要系統(tǒng)，在系統(tǒng)里可以顯示菜品名稱，圖片，已點(diǎn)餐單，結(jié)賬明細(xì)等信息，確保實(shí)時(shí)有效的對(duì)所有顧客需求進(jìn)行管理。在餐單瀏覽界面中，均為鼠標(biāo)操作，方便快捷。另外還有結(jié)賬計(jì)算，刪除菜單選項(xiàng)，來(lái)方便其他操作。 圖3 菜單信息瀏覽界面代碼設(shè)計(jì)在窗體加載時(shí)，各個(gè)食品都對(duì)應(yīng)的顯示出來(lái)，代碼如下：Private Sub Form_Load()Label17.Visible = Fal

12、seLabel18.Visible = FalseLabel19.Visible = FalseLabel20.Visible = FalseLabel21.Visible = FalseLabel22.Visible = FalseLabel23.Visible = FalseLabel24.Visible = FalseLabel25.Visible = FalseLabel26.Visible = FalseLabel27.Visible = FalseLabel28.Visible = FalseLabel8.Visible = FalseEnd SubPrivate Sub Labe

13、l31_Click()a = Val(Label5.Caption)If a = 200 ThenLabel8.Visible = True Label8.Caption = 請(qǐng)留下送餐地址！ 點(diǎn)擊返回主頁(yè)面 ElseLabel8.Visible = True Label8.Caption = 請(qǐng)留下送餐地址！ 點(diǎn)擊返回主頁(yè)面End IfEnd SubPrivate Sub Image1_Click()List1.AddItem Label1.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label17.Caption)a = Val(La

14、bel5.Caption)End SubPrivate Sub Image10_Click()List1.AddItem Label14.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label26.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image11_Click()List1.AddItem Label15.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label27.Caption)a = Val(Label5.Capti

15、on)End SubPrivate Sub Image12_Click()List1.AddItem Label16.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label28.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image2_Click()List1.AddItem Label2.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label18.Caption)a = Val(Label5.Caption)End SubPr

16、ivate Sub Image3_Click()List1.AddItem Label3.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label19.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image4_Click()List1.AddItem Label4.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label20.Caption)a = Val(Label5.Caption)End SubPrivate Sub Imag

17、e5_Click()List1.AddItem Label9.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label21.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image6_Click()List1.AddItem Label10.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label22.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image7_Click()Lis

18、t1.AddItem Label11.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label23.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image8_Click()List1.AddItem Label12.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label24.Caption)a = Val(Label5.Caption)End SubPrivate Sub Image9_Click()List1.AddItem L

19、abel13.CaptionLabel5.Caption = Val(Label5.Caption) + Val(Label25.Caption)a = Val(Label5.Caption)End Sub Private Sub Label7_Click()If List1.ListIndex = 0 Thenn = InStr(List1.Text, )l = Len(List1.Text)n = n + 1Label5.Caption = Val(Label5.Caption) - Val(Mid(List1.Text, n, l - n)List1.RemoveItem List1.L

20、istIndexEnd Ifa = Val(Label5.Caption)End SubPrivate Sub Label8_Click()Form1.ShowForm2.HideEnd SubPrivate Sub 早餐_Click()Label1.Caption = 牛肉蛋花粥油條餐 35元Image1.Picture = LoadPicture(App.Path & beijing早餐牛肉蛋花粥油條餐.jpg)Label17.Caption = 35Label2.Caption = 培根芝士蛋堡紅茶餐 30元Image2.Picture = LoadPicture(App.Path &

21、beijing早餐培根芝士蛋堡紅茶餐.jpg)Label18.Caption = 30Label3.Caption = 培根芝士蛋堡咖啡餐 30元Image3.Picture = LoadPicture(App.Path & beijing早餐培根芝士蛋堡咖啡餐.jpg)Label19.Caption = 30Label4.Caption = 培根芝士蛋堡熱豆?jié){餐 25元Image4.Picture = LoadPicture(App.Path & beijing早餐培根芝士蛋堡熱豆?jié){餐.jpg)Label20.Caption = 25Label9.Caption = 皮蛋瘦肉粥油條餐 25元

22、Image5.Picture = LoadPicture(App.Path & beijing早餐皮蛋瘦肉粥油條餐.jpg)Label21.Caption = 25Label10.Caption = 田園脆雞堡紅茶餐 20元Image6.Picture = LoadPicture(App.Path & beijing早餐田園脆雞堡紅茶餐.jpg)Label22.Caption = 20Label11.Caption = 田園脆雞堡咖啡餐 20元Image7.Picture = LoadPicture(App.Path & beijing早餐田園脆雞堡咖啡餐.jpg)Label23.Captio

23、n = 20Label12.Caption = 田園脆雞堡熱豆?jié){餐 20元Image8.Picture = LoadPicture(App.Path & beijing早餐田園脆雞堡熱豆?jié){餐.jpg)Label24.Caption = 20Label13.Caption = 田園脆雞蛋堡咖啡餐 15元Image9.Picture = LoadPicture(App.Path & beijing早餐田園脆雞蛋堡咖啡餐.jpg)Label25.Caption = 15Label14.Caption = 田園脆雞蛋堡熱漿餐 15元Image10.Picture = LoadPicture(App.P

24、ath & beijing早餐田園脆雞蛋堡熱漿餐.jpg)Label26.Caption = 15Label15.Caption = 香菇雞肉粥油條餐 15元Image11.Picture = LoadPicture(App.Path & beijing早餐香菇雞肉粥油條餐.jpg)Label27.Caption = 15Label16.Caption = 香糯薏米粥油條餐 15元Image12.Picture = LoadPicture(App.Path & beijing早餐香糯薏米粥油條餐.jpg)Label28.Caption = 15Image12.Visible = TrueIma

25、ge11.Visible = TrueImage10.Visible = TrueImage9.Visible = TrueImage8.Visible = TrueEnd Sub Private Sub 午餐_Click()Label1.Caption = 川辣嫩牛五方餐 45元Image1.Picture = LoadPicture(App.Path & beijing午餐川辣嫩牛五方餐.jpg)Label17.Caption = 45Label2.Caption = 勁脆雞腿堡餐 40元Image2.Picture = LoadPicture(App.Path & beijing午餐勁脆

26、雞腿堡餐.jpg)Label18.Caption = 40Label3.Caption = 快樂(lè)兒童餐A 38元Image3.Picture = LoadPicture(App.Path & beijing午餐快樂(lè)兒童餐A.jpg)Label19.Caption = 38Label4.Caption = 快樂(lè)兒童餐B 35元Image4.Picture = LoadPicture(App.Path & beijing午餐快樂(lè)兒童餐B.jpg)Label20.Caption = 35Label9.Caption = 快樂(lè)兒童餐C 35元Image5.Picture = LoadPicture(A

27、pp.Path & beijing午餐快樂(lè)兒童餐C.jpg)Label21.Caption = 35Label10.Caption = 快樂(lè)兒童餐D 33元Image6.Picture = LoadPicture(App.Path & beijing午餐快樂(lè)兒童餐D.jpg)Label22.Caption = 33Label11.Caption = 墨西哥雞肉卷餐 30元Image7.Picture = LoadPicture(App.Path & beijing午餐墨西哥雞肉卷餐.jpg)Label23.Caption = 30Label12.Caption = 老北京雞肉卷餐 28元Ima

28、ge8.Picture = LoadPicture(App.Path & beijing午餐老北京雞肉卷餐.jpg)Label24.Caption = 28Label13.Caption = 培根蘑菇雞肉飯?zhí)貎r(jià) 25元Image9.Picture = LoadPicture(App.Path & beijing午餐培根蘑菇雞肉飯?zhí)貎r(jià).jpg)Label25.Caption = 25Label14.Caption = 吮指原味雞二塊餐 20元Image10.Picture = LoadPicture(App.Path & beijing午餐吮指原味雞二塊餐.jpg)Label26.Caption

29、 = 20Label15.Caption = 香辣雞翅餐 15元Image11.Picture = LoadPicture(App.Path & beijing午餐香辣雞翅餐.jpg)Label27.Caption = 15Label16.Caption = 新奧爾良烤翅餐 8元Image12.Picture = LoadPicture(App.Path & beijing午餐新奧爾良烤翅餐.jpg)Label28.Caption = 8Image12.Visible = TrueImage11.Visible = TrueImage10.Visible = TrueImage9.Visibl

30、e = TrueImage8.Visible = TrueEnd SubPrivate Sub 飲品_Click()Label1.Caption = 1.25升裝百事可樂(lè) 5元Image1.Picture = LoadPicture(App.Path & beijing飲品1.25升裝百事可樂(lè).jpg)Label17.Caption = 5Label2.Caption = 冰天瑪瑙石榴汁 5元Image2.Picture = LoadPicture(App.Path & beijing飲品冰天瑪瑙石榴汁.jpg)Label18.Caption = 5Label3.Caption = 醇豆?jié){甜(

31、冰) 5元Image3.Picture = LoadPicture(App.Path & beijing飲品醇豆?jié){甜(冰).jpg)Label19.Caption = 5Label4.Caption = 九珍 8元Image4.Picture = LoadPicture(App.Path & beijing飲品九珍.jpg)Label20.Caption = 8Label9.Caption = 檸樂(lè) 8元Image5.Picture = LoadPicture(App.Path & beijing飲品檸樂(lè).jpg)Label21.Caption = 8Label10.Caption = 雀巢冰

32、爽茶 8元Image6.Picture = LoadPicture(App.Path & beijing飲品雀巢冰爽茶.jpg)Label22.Caption = 8Label11.Caption = 炭烤珍珠奶茶(冰) 12元Image7.Picture = LoadPicture(App.Path & beijing飲品炭烤珍珠奶茶(冰).jpg)Label23.Caption = 12Label12.Caption = 香柚蜂蜜茶 15元Image8.Picture = LoadPicture(App.Path & beijing飲品香柚蜂蜜茶.jpg)Label24.Caption =

33、 15Label13.Caption = Image9.Picture = LoadPicture(App.Path & beijing飲品透明.jpg)Label25.Caption = Label14.Caption = Image10.Picture = LoadPicture(App.Path & beijing飲品透明.jpg)Label26.Caption = Label15.Caption = Image11.Picture = LoadPicture(App.Path & beijing飲品透明.jpg)Label27.Caption = Label16.Caption = I

34、mage12.Picture = LoadPicture(App.Path & beijing飲品透明.jpg)Label28.Caption = Image12.Visible = FalseImage11.Visible = FalseImage10.Visible = FalseImage9.Visible = FalseImage8.Visible = TrueEnd SubPrivate Sub 夜宵_Click()Label1.Caption = 安心油條 188元Image1.Picture = LoadPicture(App.Path & beijing夜宵安心油條.jpg)L

35、abel17.Caption = 188Label2.Caption = 芙蓉鮮蔬湯 158元Image2.Picture = LoadPicture(App.Path & beijing夜宵芙蓉鮮蔬湯.jpg)Label18.Caption = 158Label3.Caption = 勁脆雞腿堡 120元Image3.Picture = LoadPicture(App.Path & beijing夜宵勁脆雞腿堡.jpg)Label19.Caption = 120Label4.Caption = 牛肉粥田園堡烤翅餐 88元Image4.Picture = LoadPicture(App.Pat

36、h & beijing夜宵牛肉粥田園堡烤翅餐.jpg)Label20.Caption = 88Label9.Caption = 培根芝堡辣翅熱漿餐 88元Image5.Picture = LoadPicture(App.Path & beijing夜宵培根芝堡辣翅熱漿餐.jpg)Label21.Caption = 88Label10.Caption = 培根芝士蛋堡紅茶餐 88元Image6.Picture = LoadPicture(App.Path & beijing夜宵培根芝士蛋堡紅茶餐.jpg)Label22.Caption = 88Label11.Caption = 皮蛋粥田園堡烤翅

37、餐 78元Image7.Picture = LoadPicture(App.Path & beijing夜宵皮蛋粥田園堡烤翅餐.jpg)Label23.Caption = 78Label12.Caption = 葡式蛋撻六只裝 58元Image8.Picture = LoadPicture(App.Path & beijing夜宵葡式蛋撻六只裝.jpg)Label24.Caption = 58Label13.Caption = 香菇粥田園堡烤翅餐 58元Image9.Picture = LoadPicture(App.Path & beijing夜宵香菇粥田園堡烤翅餐.jpg)Label25.

38、Caption = 58Label14.Caption = 香辣雞腿堡 38元Image10.Picture = LoadPicture(App.Path & beijing夜宵香辣雞腿堡.jpg)Label26.Caption = 38Label15.Caption = 香辣雞腿堡餐 30元Image11.Picture = LoadPicture(App.Path & beijing夜宵香辣雞腿堡餐.jpg)Label27.Caption = 30Label16.Caption = 新奧堡餐 30元Image12.Picture = LoadPicture(App.Path & beiji

39、ng夜宵新奧堡餐.jpg)Label28.Caption = 30Image12.Visible = TrueImage11.Visible = TrueImage10.Visible = TrueImage9.Visible = TrueImage8.Visible = TrueEnd Sub3.4.3登錄界面在錄界面選擇登錄的用戶頭像，在輸入相應(yīng)的正確密碼，就可以進(jìn)入到系統(tǒng)主界面中。登錄窗體的運(yùn)行結(jié)果如圖4所示。圖4 登錄窗體的運(yùn)行結(jié)果代碼設(shè)計(jì)在登錄窗體加載的時(shí)候，由ADODC1連接到登錄用戶及密碼輸入框，代碼如下：Adodc1.RecordSource = select * from 密

40、碼表 where username= & Text1.Text & Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 Thenpassword = Adodc1.Recordset.Fields(password)If Text2.Text = password ThenName1 = Text1.TextForm3.ShowUnload MeElseMsgBox 密碼不正確，請(qǐng)您確認(rèn)后重新輸入, , 提示信息Text2.Text = Text2.SetFocusEnd IfElseMsgBox 對(duì)不起，沒(méi)有此用戶的信息, , 提示信息Text1.

41、Text = Text2.Text = End IfEnd Sub3.4.4、送餐地址界面圖5 送餐地址界面在送餐地址界面中，直接輸入文字即可記錄地址信息，代碼如下所示。代碼設(shè)計(jì)Dim q, w, ePrivate Sub Label1_Click()If Text1.Text = ThenMsgBox 送餐地址不能為空, 64, 歡迎再次光臨Elseq = Noww = Text1.Text & vbCrLf & q & vbCrLf & -Text3.Text = Text3.Text + vbCrLf + wOpen e For Append As #1Print #1, wClose #1End IfText1.Text = End SubPrivate Sub Form_Load()Text1.Text = e = App.Path & txt.txtIf Dir(e) = ThenElseOpen e For Input As #1While Not EOF(1)Line In