管理信息系統(tǒng)課程設計

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

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

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

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

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

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

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

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

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

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

11、要操作功能的面板，在系統(tǒng)主窗體的狀態(tài)欄中，可以登錄信息，菜單信息，送貨地址信息，也可以實現(xiàn)同樣的功能。系統(tǒng)主窗體的運行結(jié)果如圖3所示。圖2 系統(tǒng)主窗體的運行結(jié)果3.4.2顧客訂單信息顧客訂餐信息是外賣系統(tǒng)重要的組成部分，是對訂餐管理的主要系統(tǒng)，在系統(tǒng)里可以顯示菜品名稱，圖片，已點餐單，結(jié)賬明細等信息，確保實時有效的對所有顧客需求進行管理。在餐單瀏覽界面中，均為鼠標操作，方便快捷。另外還有結(jié)賬計算，刪除菜單選項，來方便其他操作。 圖3 菜單信息瀏覽界面代碼設計在窗體加載時，各個食品都對應的顯示出來，代碼如下：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 = 請留下送餐地址！ 點擊返回主頁面 ElseLabel8.Visible = True Label8.Caption = 請留下送餐地址！ 點擊返回主頁面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 = 快樂兒童餐A 38元Image3.Picture = LoadPicture(App.Path & beijing午餐快樂兒童餐A.jpg)Label19.Caption = 38Label4.Caption = 快樂兒童餐B 35元Image4.Picture = LoadPicture(App.Path & beijing午餐快樂兒童餐B.jpg)Label20.Caption = 35Label9.Caption = 快樂兒童餐C 35元Image5.Picture = LoadPicture(A

27、pp.Path & beijing午餐快樂兒童餐C.jpg)Label21.Caption = 35Label10.Caption = 快樂兒童餐D 33元Image6.Picture = LoadPicture(App.Path & beijing午餐快樂兒童餐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 25元Image9.Picture = LoadPicture(App.Path & beijing午餐培根蘑菇雞肉飯?zhí)貎r.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升裝百事可樂 5元Image1.Picture = LoadPicture(App.Path & beijing飲品1.25升裝百事可樂.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 = 檸樂 8元Image5.Picture = LoadPicture(App.Path & beijing飲品檸樂.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登錄界面在錄界面選擇登錄的用戶頭像，在輸入相應的正確密碼，就可以進入到系統(tǒng)主界面中。登錄窗體的運行結(jié)果如圖4所示。圖4 登錄窗體的運行結(jié)果代碼設計在登錄窗體加載的時候，由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 密碼不正確，請您確認后重新輸入, , 提示信息Text2.Text = Text2.SetFocusEnd IfElseMsgBox 對不起，沒有此用戶的信息, , 提示信息Text1.

41、Text = Text2.Text = End IfEnd Sub3.4.4、送餐地址界面圖5 送餐地址界面在送餐地址界面中，直接輸入文字即可記錄地址信息，代碼如下所示。代碼設計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