基于無線通信的點(diǎn)菜系統(tǒng)軟件設(shè)計(jì)【畢業(yè)設(shè)計(jì)+開題報(bào)告+文獻(xiàn)綜述】

1、<p>　　本科畢業(yè)設(shè)計(jì)(論文)</p><p><b>　?。ǘ?屆）</b></p><p>　　基于無線通信的點(diǎn)菜系統(tǒng)軟件設(shè)計(jì)</p><p>　　所在學(xué)院 </p><p>　　專業(yè)班級 電子信息工程 </p

2、><p>　　學(xué)生姓名 學(xué)號 </p><p>　　指導(dǎo)教師 職稱 </p><p>　　完成日期 年 月 </p><p><b>　　摘 要</b></p><p>

3、　　近些年來，隨著人民生活水平的提高以及生活方式的轉(zhuǎn)變，餐飲業(yè)具有巨大的投資市場，被稱為中國的黃金產(chǎn)業(yè)之一。餐飲信息服務(wù)系統(tǒng)正是在這樣一個(gè)背景下產(chǎn)生的，這種系統(tǒng)使用計(jì)算機(jī)來管理餐飲業(yè)中的點(diǎn)菜、收銀、成本核算等諸多業(yè)務(wù)，實(shí)現(xiàn)了現(xiàn)代化的餐飲信息服務(wù)機(jī)制。</p><p>　　本文以一個(gè)無線點(diǎn)菜系統(tǒng)的開發(fā)為例，從餐飲信息服務(wù)系統(tǒng)的發(fā)展現(xiàn)狀談起，結(jié)合用戶實(shí)際需求提出本系統(tǒng)的總體結(jié)構(gòu)和功能模塊，然后通過系統(tǒng)結(jié)構(gòu)設(shè)計(jì)及前端開

4、發(fā)，構(gòu)建了一個(gè)以Microsoft Visual Basic 6.0技術(shù)和Access數(shù)據(jù)庫為基礎(chǔ)的、具備相關(guān)(賬單打印、點(diǎn)菜收銀、信息查詢、統(tǒng)計(jì)分析)功能的點(diǎn)菜系統(tǒng)。</p><p>　　在實(shí)現(xiàn)方法上，采用了Microsoft Visual Basic 6.0實(shí)現(xiàn)了點(diǎn)菜系統(tǒng)與數(shù)據(jù)庫之間的連接，采用了加解密機(jī)制實(shí)現(xiàn)了用戶登錄和管理員登錄功能，通過VB6.0語句實(shí)現(xiàn)了餐飲業(yè)中的開臺、點(diǎn)菜、結(jié)算以及各種查詢功能等等。

5、</p><p>　　關(guān)鍵詞：無線通信，點(diǎn)菜，軟件設(shè)計(jì)，VB6.0，Access數(shù)據(jù)庫</p><p>　　Order Dishes System Software Design Based On Wireless Communication</p><p><b>　　Abstract</b></p><p>　　In

6、 recent years, with the improvement of people’s living standards and lifestyle changes, the restaurant industry which was known as one of China’s gold industry has a huge market. Catering information service system creat

7、ed in such a background, this system used a computer to manage the restaurant industry in the order dishes, cash registers, cost accounting, and realized the mechanism of modern dining information service.</p><

8、;p>　　In this article, using an example such as a development of order dishes system, started from development of catering information service system, proposed the system structure and function module based on the actu

9、al need of users. Then through the system design and front-end development, built an order dishes system with the relevant features (bill printing, order dishes, cash register, information query, statistical analysis) ba

10、sed on Microsoft Visual Basic 6.0 and Access database technology.</p><p>　　In the realization method, using the Microsoft Visual Basic 6.0 realized the connection between system and database, realized the us

11、er login and administrator login feature by encryption and decryption mechanism, realizing the founding, order, settlement, and variety of search functions in the catering industry through Microsoft Visual Basic 6.0.<

12、/p><p>　　Keywords: Wireless Communication, Order Dishes, Software Design, VB6.0, Access Database.</p><p><b>　　目錄</b></p><p><b>　　摘 要I</b></p><p>

13、;　　AbstractII</p><p><b>　　1 緒論1</b></p><p>　　1.1課題的來源1</p><p>　　1.2課題的意義1</p><p>　　1.3課題研究的主要內(nèi)容2</p><p>　　2需求分析與功能描述3</p><p>

14、;　　2.1可行性分析3</p><p>　　2.2總體設(shè)計(jì)框圖4</p><p>　　2.3系統(tǒng)功能描述4</p><p><b>　　3開發(fā)環(huán)境簡介6</b></p><p>　　3.1 VB6.0簡介6</p><p>　　3.2 ACCSEE數(shù)據(jù)庫簡介6</p>

15、<p>　　3.3 串口通信6</p><p><b>　　4數(shù)據(jù)描述8</b></p><p>　　4.1 數(shù)據(jù)流圖8</p><p>　　4.2 數(shù)據(jù)詞典9</p><p><b>　　5詳細(xì)設(shè)計(jì)11</b></p><p>　　5.1數(shù)據(jù)庫設(shè)計(jì)11

16、</p><p>　　5.2主要界面設(shè)計(jì)13</p><p><b>　　6系統(tǒng)測試34</b></p><p>　　6.1 測試環(huán)境34</p><p>　　6.2 測試過程34</p><p>　　6.3 測試結(jié)果34</p><p><b>　　結(jié)

17、論35</b></p><p><b>　　參考文獻(xiàn)36</b></p><p><b>　　致謝37</b></p><p><b>　　1 緒論</b></p><p><b>　　1.1課題的來源</b></p>&l

18、t;p>　　餐飲業(yè)是我國比較傳統(tǒng)、涉及面比較廣的行業(yè)之一，也是第三產(chǎn)業(yè)中的主體行業(yè)，在國民經(jīng)濟(jì)中占有重要位置?，F(xiàn)在，包括網(wǎng)絡(luò)技術(shù)在內(nèi)的信息技術(shù)在我國各行各業(yè)應(yīng)用已經(jīng)非常普遍，而在餐飲業(yè)的應(yīng)用卻得不到較好的推廣，突出表現(xiàn)在兩方面，一是餐飲業(yè)信息服務(wù)系統(tǒng)的設(shè)計(jì)水平偏低，另一個(gè)是餐飲業(yè)中信息服務(wù)系統(tǒng)的應(yīng)用和普及率較低，很大程度上限制了餐飲業(yè)的發(fā)展水平和速度。隨著經(jīng)濟(jì)全球化的不斷革新，我國餐飲業(yè)也在迅猛發(fā)展，超大規(guī)模、連鎖經(jīng)營的餐飲娛樂企

19、業(yè)集團(tuán)已遍布全國。傳統(tǒng)的餐飲娛樂管理模式已滿足不了現(xiàn)代餐飲娛樂企業(yè)的管理要求，迫切需要高效率的應(yīng)用解決方案，需要高技術(shù)產(chǎn)品來提升餐飲信息服務(wù)的各個(gè)層面。</p><p>　　隨著社會的發(fā)展以及人們生活節(jié)奏不斷加快，許多的餐飲機(jī)構(gòu)都需要通過信息化的管理來提高工作效率、降低營運(yùn)成本、吸引更多的客戶。餐飲企業(yè)的管理者對管理信息系統(tǒng)的重視程度在不斷的提高，餐飲管理信息系統(tǒng)的管理功能也在不斷的增強(qiáng)，發(fā)揮越來越大的作用[1-

20、2]。從開始的只能進(jìn)行數(shù)據(jù)的瀏覽、添加、修改等簡單的操作，到現(xiàn)在的能夠幫助管理者進(jìn)行經(jīng)營分析決策的管理系統(tǒng)，信息化的管理系統(tǒng)正在逐步的取代以前的人工管理模式，這樣就能幫助企業(yè)實(shí)現(xiàn)管理的信息化。</p><p><b>　　1.2課題的意義</b></p><p>　　本系統(tǒng)不僅能提高餐飲業(yè)的管理水平給管理者提供一個(gè)企業(yè)運(yùn)作的信息平臺，還能提升企業(yè)的形象及增強(qiáng)競爭力。使

21、用計(jì)算機(jī)對餐廳管理信息，具有人工管理所無法比擬的優(yōu)點(diǎn)，它檢索迅速、查找方便、成本低、可靠性高等，這些優(yōu)點(diǎn)能夠極大地提高信息管理的效率。餐廳從菜品管理方面到客人的消費(fèi)都是用計(jì)算機(jī)管理的，可以隨時(shí)掌握客人從點(diǎn)菜到結(jié)賬的情況，降低使用者的工作強(qiáng)度，用較低的成本獲得了較好的經(jīng)濟(jì)效益，此系統(tǒng)采用漢字圖形用戶界面，系統(tǒng)界面簡潔美觀，操作簡單易行，查詢方便，具有靈活性、通用性及安全性的特點(diǎn)。技術(shù)上的可行性給餐廳帶來的各種收益。同時(shí)簡單明了的流程使餐廳

22、的管理系統(tǒng)形成了一個(gè)較好的體系，讓顧客享受到流水線的服務(wù)，不會因?yàn)楣芾砩系牟划?dāng)而對顧客造成困擾[3]。在管理上，能更好的操作和執(zhí)行，避免了許多多余重復(fù)的步驟，給顧客帶來了最優(yōu)質(zhì)的服務(wù)，通過本人細(xì)致的系統(tǒng)調(diào)研后，依據(jù)原則生成了點(diǎn)菜系統(tǒng)的功能結(jié)構(gòu)，實(shí)現(xiàn)了顧客點(diǎn)菜的全面管理，相信通過使用本系統(tǒng)可以減少很多不必要的工作量，提高餐廳的管理水平。</p><p>　　1.3課題研究的主要內(nèi)容</p><p

23、>　　該系統(tǒng)的功能主要突出點(diǎn)單、結(jié)賬管理、查詢管理。點(diǎn)菜時(shí)可利用鍵盤輸入方式輸入數(shù)據(jù)，存入數(shù)據(jù)庫，簡單快捷準(zhǔn)確。結(jié)賬管理的方式靈活多樣。查詢管理可按照表內(nèi)所列例如，按菜品的編號、菜品名稱、賬單號、桌臺號等對菜品的點(diǎn)菜和結(jié)賬進(jìn)行查詢，為點(diǎn)菜和結(jié)賬奠定基礎(chǔ)。具體的工作流程為：</p><p>　　1．顧客可隨需要點(diǎn)菜或?qū)Σ似泛筒妥佬畔⒌牟樵?，以便知道菜品的具體信息和入座狀態(tài)。</p><p&

24、gt;　　2．結(jié)賬是管理員需要在系統(tǒng)中錄入賬單信息，例如，總計(jì)金額，菜品的信息還有是否已經(jīng)結(jié)賬，同時(shí)客戶如果對賬單有任何問題也可在查詢管理中對其查詢。</p><p>　　2需求分析與總體設(shè)計(jì)</p><p><b>　　2.1可行性分析</b></p><p><b>　　1.技術(shù)上的可行性</b></p>

25、<p>　　該系統(tǒng)對所需的硬件設(shè)備的性能要求不高，現(xiàn)有設(shè)備的性能完全能夠滿足系統(tǒng)功能的要求。</p><p>　　本系統(tǒng)的前臺開發(fā)工具采用 VB6.0，利用其可視化的開發(fā)環(huán)境、豐富的控件資源，能快速開發(fā)出應(yīng)用程序。后臺則采用Access數(shù)據(jù)庫進(jìn)行處理。這些軟件在中小型MIS開發(fā)中已被大量應(yīng)用[4]，技術(shù)上都比較的成熟，因此技術(shù)上是可行的。</p><p><b>　　

26、2.經(jīng)濟(jì)上的可行性</b></p><p>　　根據(jù)該餐飲業(yè)多年來良好的經(jīng)濟(jì)效益，經(jīng)濟(jì)實(shí)力比較雄厚，這就為系統(tǒng)的實(shí)施奠定了經(jīng)濟(jì)基礎(chǔ)足能提供購買硬件設(shè)備和開發(fā)軟件所需要的資金。實(shí)施該系統(tǒng)也能給公司帶來長期效益，它可幫助領(lǐng)導(dǎo)實(shí)現(xiàn)管理方法的現(xiàn)代化、科學(xué)化，極大地提高餐飲企業(yè)的工作質(zhì)量與工作效率，減少管理支出的費(fèi)用，從而保證該餐飲管理的可持續(xù)的良好發(fā)展。因此在經(jīng)濟(jì)上具有了開發(fā)系統(tǒng)的可行性。</p>

27、<p>　　3. 管理上的可行性</p><p>　　人們已經(jīng)逐漸認(rèn)識到時(shí)代的變化和當(dāng)今社會發(fā)展的趨勢，認(rèn)為利用計(jì)算機(jī)從事餐飲管理是公司當(dāng)前非常必要的舉措。同時(shí)也為了提高餐飲業(yè)的管理水平，適應(yīng)管理信息系統(tǒng)的要求，對餐飲管理系統(tǒng)的管理者進(jìn)行具體系統(tǒng)的應(yīng)用，提高了他們對餐飲管理信息系統(tǒng)的認(rèn)識。因此在管理上具有了開發(fā)系統(tǒng)的可行性。</p><p><b>　　2.2總體設(shè)

28、計(jì)框圖</b></p><p>　　1.點(diǎn)菜系統(tǒng)的管理框圖如圖2-1所示。</p><p><b>　　2-1管理框圖</b></p><p>　　2.顧客點(diǎn)菜的總體框圖如圖2-2，主要有開臺模塊，點(diǎn)菜模塊，查詢模塊，結(jié)賬模塊四塊。</p><p><b>　　圖2-2點(diǎn)菜框圖</b>&

29、lt;/p><p>　　2.4系統(tǒng)功能描述</p><p><b>　　1．系統(tǒng)管理模塊</b></p><p>　?。?）密碼修改：修改登陸密碼。</p><p>　?。?）關(guān)于系統(tǒng)：關(guān)于系統(tǒng)的簡介和說明。</p><p>　　2．基本信息設(shè)置模塊</p><p>　?。?

30、）菜品信息設(shè)置：對菜品進(jìn)行添加、修改、查詢、刪除等操作。</p><p>　?。?）餐桌信息設(shè)置：對餐桌的添加、刪除、入座狀態(tài)的修改操作。</p><p><b>　　3．客戶管理模塊</b></p><p>　?。?）客戶點(diǎn)菜：錄入點(diǎn)菜信息，如賬單號、餐桌號、日期，添加菜品信息。</p><p>　?。?）客戶結(jié)賬：自

31、動生成賬單號、餐桌號，然后通過賬單號對菜品進(jìn)行總計(jì)消費(fèi)額。</p><p><b>　　4．查詢管理模塊</b></p><p>　　（1）賬單信息查詢：通過賬單號或餐桌編號，對賬單進(jìn)行查詢。</p><p>　?。?）菜品信息查詢：通過菜品編號或菜品名稱，對菜品信息進(jìn)行查詢。</p><p>　?。?）餐桌信息查詢：通

32、過餐桌編號對入座狀態(tài)進(jìn)行查詢。</p><p><b>　　5．報(bào)表統(tǒng)計(jì)模塊</b></p><p>　?。?）賬單信息報(bào)表：通過計(jì)算機(jī)制作報(bào)表，打印賬單。</p><p><b>　　3開發(fā)環(huán)境簡介</b></p><p>　　3.1 VB6.0簡介</p><p>　　V

33、isual Basic6．0于1998年問世，微軟公司以其強(qiáng)大的實(shí)力，將Visual Basic發(fā)展成當(dāng)前基于Windows平臺上最方便快捷的軟件開發(fā)工具[5]。無論是網(wǎng)絡(luò)應(yīng)用、多媒體技術(shù)還是當(dāng)前流行的MIS系統(tǒng)的開發(fā)，Visual Basic都應(yīng)對得游刃有余。</p><p>　　VB是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計(jì)語言，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序。它簡單易學(xué)、效

34、率高，且功能強(qiáng)大可以與Windows專業(yè)開發(fā)工具SDK相媲美[6]。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的廣泛應(yīng)用程序接口（SPI）函數(shù)，以用動態(tài)鏈接庫（DLL）、對象連接與嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。</p><p>　　3.2 ACCESS數(shù)

35、據(jù)庫簡介</p><p>　　美國Microsoft公司于1994年推出的微機(jī)數(shù)據(jù)庫管理系統(tǒng)。它具有界面友好、易學(xué)易用、開發(fā)簡單、接口靈活等特點(diǎn)，是典型的新一代桌面數(shù)據(jù)庫管理系統(tǒng)。其主要特點(diǎn)如下： </p><p>　　(1)完善地管理各種數(shù)據(jù)庫對象，具有強(qiáng)大的數(shù)據(jù)組織、用戶管理、安全檢查等功能。 </p><p>　　(2)強(qiáng)大的數(shù)據(jù)處理功能，在一個(gè)工作組級別的網(wǎng)

36、絡(luò)環(huán)境中，使用Access開發(fā)的多用戶數(shù)據(jù)庫管理系統(tǒng)具有傳統(tǒng)的XBASE(DBASE、FoxBASE的統(tǒng)稱)數(shù)據(jù)庫系統(tǒng)所無法實(shí)現(xiàn)的客戶服務(wù)器(Client/Server)結(jié)構(gòu)和相應(yīng)的數(shù)據(jù)庫安全機(jī)制[7]，Access具備了許多先進(jìn)的大型數(shù)據(jù)庫管理系統(tǒng)所具備的特征，如事務(wù)處理/出錯(cuò)的返回能力等。</p><p>　　(3)可以方便地生成各種數(shù)據(jù)對象，利用存儲的數(shù)據(jù)建立窗體和報(bào)表，可視性好。 </p>

37、<p>　　(4)作為Office套件的一部分，可以與Office集成，實(shí)現(xiàn)無縫連接。 </p><p>　　(5)能夠利用Web檢索和發(fā)布數(shù)據(jù)，實(shí)現(xiàn)與Internet的連接。 Access主要適用于中小型應(yīng)用系統(tǒng)，或作為客戶機(jī)/服務(wù)器系統(tǒng)中的客戶端數(shù)據(jù)庫。 </p><p><b>　　3.3 串口通信</b></p><p>　　

38、用Visual Basic6．O開發(fā)串口通信程序有兩種法，一種是利用Windows的API函數(shù)；另一種是采用Visual Basic6．0的通信控件MSComm[8]。利用API函數(shù)編寫串行通信程序較為復(fù)雜，需要掌握大量的通信知識，其優(yōu)點(diǎn)是可實(shí)現(xiàn)的功能更豐富、應(yīng)用面更廣泛，適合于編寫較為復(fù)雜的低層次通信程序。而Visual Basic6．0的MSComm通信控件提供了標(biāo)準(zhǔn)的事件處理函數(shù)、事件、方法，并通過控件屬性對串口參數(shù)進(jìn)行設(shè)置，比較

39、容易地解決了串口通信問題。MSComm姍控件全稱為Microsoft Communication Control，是Microsoft公司提供的簡化Windows下串行通信編程的ActiveX控件，它為應(yīng)用程序提供了通過串行接口收發(fā)數(shù)據(jù)的簡便方法。</p><p>　　一、MSComm控件提供下列兩種處理通信的方式：</p><p><b>　　1．事件驅(qū)動方式：</b&g

40、t;</p><p>　　事件驅(qū)動通信是處理串行口交互作用的一種非常有效的方法。在許多情況下，在事件發(fā)生時(shí)需要得到通知，例如，在串口接收緩沖區(qū)中有字符，Carrier Detect(CD)或Request To Send(RTS)線上一個(gè)字符到達(dá)或一個(gè)變化發(fā)生時(shí)。在這些情況下，可以利用MSComm控件的OnComm事件捕獲并處理這些通信事件。OnComm事件還可以檢查和處理通信錯(cuò)誤，以及所有通信事件和通信錯(cuò)誤的列

41、表。在編程過程中，可以在OnComm事件處理函數(shù)中加入自己的處理代碼[9]。這種方法的優(yōu)點(diǎn)使程序響應(yīng)及時(shí)、可靠性高。每個(gè)MSComm控件對應(yīng)著一個(gè)串行端口，如果應(yīng)用程序需要訪問多個(gè)串行端口，必須使用多個(gè)MSComm控件。</p><p><b>　　2．查詢方式</b></p><p>　　查詢方式實(shí)質(zhì)上還是事件驅(qū)動，但在有些情況下，這種方式顯得更為便捷。在程序的每個(gè)

42、關(guān)鍵功能之后，可以通過檢查CommEvent屬性的值來查詢事件和錯(cuò)誤。如果應(yīng)用程序較小，并且是自動保存的，這種方法可能是更可取的。例如，如果寫一個(gè)簡單的電話撥號程序，則沒有必要對每接收一個(gè)字符都產(chǎn)生事件，因?yàn)槲┮坏却邮盏淖址钦{(diào)制解調(diào)器的“確定”響應(yīng)。</p><p>　　MSComm是Visual Basic6.0提供的ActiveX控件，需要通過VisualBasic6．0程菜單下的“部件"菜單項(xiàng)

43、，將其添加到工具箱中才能使用。單擊“部件”菜單項(xiàng)，此時(shí)將彈出一個(gè)對話框，在對話框中選擇“Microsoft Comm Control 6．0”列表項(xiàng)，然后單擊確定按鈕即可將其添加到工具箱中[10-11]。MSComm控件具有功能完善的串口數(shù)據(jù)發(fā)送和接受功能，有兩種處理通信的方式，即事件驅(qū)動方式和查詢方式，事件驅(qū)動方式是利用MSComm控件的OnComm事件捕獲并處理通信錯(cuò)誤事件，是處理串行端口交互作用的一種非常有效的方法；查詢方式是通過

44、檢查CommEvent屬性的值來判斷事件和錯(cuò)誤。</p><p><b>　　4數(shù)據(jù)描述</b></p><p><b>　　4.1數(shù)據(jù)流圖</b></p><p>　　1.點(diǎn)菜系統(tǒng)的頂層圖如圖4-1所示，客戶可通過該系統(tǒng)進(jìn)行點(diǎn)菜，結(jié)賬的功能。</p><p><b>　　圖4-1 頂層圖

45、</b></p><p>　　2.數(shù)據(jù)流圖一層子圖如圖4-2所示，分為點(diǎn)菜和收銀兩大塊。</p><p><b>　　圖4-2 一層子圖</b></p><p>　　3.數(shù)據(jù)流圖二層子圖如圖4-3所示為前臺登陸系統(tǒng)。</p><p>　　圖4-3 前臺登錄系統(tǒng)</p><p><

46、b>　　4.2 數(shù)據(jù)詞典</b></p><p>　　數(shù)據(jù)庫中用到的５個(gè)表中, 以下是各數(shù)據(jù)文件的字典條目：</p><p>　　1.登陸信息表如圖4-4所示，記錄用戶名和密碼信息。</p><p>　　2.餐桌信息表如圖4-5所示，記錄餐桌編號和客戶入座狀態(tài)，滿座還是空座。</p><p>　　3.菜品信息表如圖4-6所示

47、，記錄菜品的編號，菜品名稱，種類名稱，菜品價(jià)格，菜品數(shù)量，菜品單位。</p><p>　　4.種類信息表如圖4-7所示，記錄菜品的種類名稱。</p><p>　　5.賬單信息表如圖4-8所示，記錄客戶點(diǎn)菜后的日期、賬單號、餐桌編號、總計(jì)消費(fèi)等信息。</p><p>　　6.點(diǎn)菜信息表如圖4-9所示，記錄客戶點(diǎn)菜后的餐桌編號、賬單號、菜品名稱、菜品價(jià)格、菜品數(shù)量等。&

48、lt;/p><p><b>　　5詳細(xì)設(shè)計(jì)</b></p><p><b>　　5.1數(shù)據(jù)庫設(shè)計(jì)</b></p><p>　　用ACCESS構(gòu)建數(shù)據(jù)庫，具有良好的操作界面，用戶可以通過菜單和對話框?qū)崿F(xiàn)各種功能的操作，完成數(shù)據(jù)管理任務(wù)；ACCESS可以接受多種格式的數(shù)據(jù)，方便用戶在不同系統(tǒng)之間進(jìn)行數(shù)據(jù)轉(zhuǎn)換[12]；同時(shí)ACCES

49、S還可以作為個(gè)人計(jì)算機(jī)終端和主機(jī)系統(tǒng)之間的橋梁，提供靈活可靠、安全的客戶/服務(wù)器解決方案。</p><p>　　系統(tǒng)通過ACCESS連接數(shù)據(jù)庫，建數(shù)據(jù)庫名為“mydb”。</p><p>　　概念結(jié)構(gòu)是獨(dú)立于實(shí)際數(shù)據(jù)模型的信息結(jié)構(gòu)，必須將其轉(zhuǎn)化為邏輯結(jié)構(gòu)后才能進(jìn)行數(shù)據(jù)庫應(yīng)用設(shè)計(jì)。第一種轉(zhuǎn)化是將實(shí)體轉(zhuǎn)化為關(guān)系表；第二種轉(zhuǎn)化是聯(lián)系的轉(zhuǎn)化。在上面工作的基礎(chǔ)上歸納出數(shù)據(jù)庫表格的組成、列的屬性和表

50、格之間的聯(lián)系等等。</p><p>　　該數(shù)據(jù)庫系統(tǒng)要求具有以下方面的特點(diǎn)即：結(jié)構(gòu)合理；所建立的數(shù)據(jù)宏余度小，獨(dú)立性強(qiáng)[13]；建檔、修改、查詢快而準(zhǔn)確；保密性、可靠性好。</p><p>　　本設(shè)計(jì)中用到的數(shù)據(jù)庫有5個(gè)表，依次如下：</p><p>　　1. 菜品信息表如表5-1所示，記錄菜品的名稱，編號，種類，價(jià)格等信息。</p><p>

51、;　　2. 餐桌信息表如表5-2所示，記錄餐桌的編號和狀態(tài)以便查詢。</p><p>　　3. 登陸信息表如表5-3所示，記錄管理員進(jìn)入系統(tǒng)的用戶名和密碼。</p><p>　　4. 種類信息表如表5-4所示，主要記錄客戶點(diǎn)菜后的賬單信息，如總計(jì)金額等。</p><p>　　5. 賬單信息表如表5-5所示，記錄種類的名稱。</p><p>　

52、　6. 點(diǎn)菜信息表如表5-6所示，記錄點(diǎn)菜后的信息。</p><p>　　表5-1 菜品信息表(menu)</p><p>　　表5-2 餐桌信息表(desk)</p><p>　　表5-3 登陸信息表(login)</p><p>　　表5-4 種類信息表(cb)</p><p>　　表5-5 賬單信息表(zh

53、angdan)</p><p>　　表5-6 點(diǎn)菜信息表(dc)</p><p><b>　　5.2主要界面設(shè)計(jì)</b></p><p><b>　　1.歡迎界面</b></p><p>　　歡迎界面主要給顧客一種清新的感覺，設(shè)計(jì)簡潔，加入了一張菜品圖片，增加顧客的食欲。實(shí)現(xiàn)如圖5-1所示。<

54、/p><p><b>　　圖5-1 歡迎界面</b></p><p><b>　　源程序如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Unload login1</p><p><b>　　main.S

55、how</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Unload login1</p><p>　　login.Show</p><p><b>　　End Su

56、b</b></p><p>　　Private Sub Form_Load()</p><p><b>　　End Sub</b></p><p><b>　　2．顧客點(diǎn)菜界面</b></p><p>　　用戶點(diǎn)菜需要進(jìn)入此界面才能進(jìn)行各項(xiàng)功能，是整個(gè)系統(tǒng)的重要組成部分。如圖5-2所示。

57、源程序見附錄。</p><p>　　圖5-2 顧客點(diǎn)菜界面</p><p><b>　　源程序如下：</b></p><p>　　Private Sub cs_Click()</p><p><b>　　del.Show</b></p><p><b>　　End

58、Sub</b></p><p>　　Private Sub about_Click()</p><p><b>　　End Sub</b></p><p>　　Private Sub bb_Click()</p><p>　　DataReport1.Show</p><p><b

59、>　　End Sub</b></p><p>　　Private Sub cpsz_Click()</p><p>　　Form8.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub czcx_Click()</p><p>

60、　　Form7.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub czsz_Click()</p><p>　　Form10.Show</p><p><b>　　End Sub</b></p><p>　　Privat

61、e Sub dc_Click()</p><p>　　DataReport2.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub dlsz_Click()</p><p>　　Form2.Show</p><p><b>　　End

62、Sub</b></p><p>　　Private Sub dyzd_Click()</p><p>　　Form1.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　

63、End Sub</b></p><p>　　Private Sub khdc_Click()</p><p>　　Form9.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub khjz_Click()</p><p>　　Form

64、5.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub lzcx_Click()</p><p>　　Form6.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub t

65、j_Click()</p><p><b>　　Add.Show</b></p><p><b>　　End Sub</b></p><p>　　Private Sub xg_Click()</p><p>　　revise.Show</p><p><b>　　E

66、nd Sub</b></p><p>　　Private Sub MDIForm_Load()</p><p><b>　　End Sub</b></p><p>　　Private Sub tc_Click()</p><p>　　sure = MsgBox("確定要退出系統(tǒng)嗎？", v

67、bOKCancel, "提示信息")</p><p>　　If sure = vbOK Then</p><p><b>　　End</b></p><p><b>　　Else</b></p><p><b>　　End If</b></p>

68、<p><b>　　3.管理員登陸界面</b></p><p>　　功能：系統(tǒng)登錄模塊的主要功能是對用戶身份進(jìn)行驗(yàn)證,只有系統(tǒng)的合法用戶才能進(jìn)入系統(tǒng)。</p><p>　　在進(jìn)行系統(tǒng)登錄過程中，登錄模塊將調(diào)用數(shù)據(jù)庫里的用戶清單，并對賬號和密碼進(jìn)行驗(yàn)證，只有輸入了正確的賬號和密碼后，系統(tǒng)登錄才會成功,并在輸入了錯(cuò)誤的或者是不存在的賬戶和密碼時(shí)，系統(tǒng)會給出出錯(cuò)

69、信息提示，指明登錄過程中的錯(cuò)誤輸入或者錯(cuò)誤操作，以便用戶進(jìn)行正確的登錄如圖5-3所示。</p><p>　　圖5-3 管理系統(tǒng)登陸界面</p><p>　　此界面是用DATA數(shù)據(jù)庫連接,數(shù)據(jù)庫名為＂mydb＂,表名為＂login＂。在用戶名和密碼文本框中錄入用戶名和密碼,當(dāng)你輸入的用戶名或密碼為空時(shí)，將會提示“用戶名和密碼不能為空”，當(dāng)你用戶名或密碼輸入錯(cuò)誤時(shí)，將會提示“用戶名或密碼錯(cuò)誤碼

70、”。</p><p><b>　　源程序如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Data1.Recordset.MoveFirst</p><p>　　Do While Not Data1.Recordset.EOF

71、 </p><p>　　If Text1.Text = Data1.Recordset.Fields("psw") Then //將文本框text1連接到對應(yīng)的數(shù)據(jù)庫中</p><p>　　tt = Data1.Recordset.Fields(1)</p><p><b>　　End If</b></p&g

72、t;<p>　　Data1.Recordset.MoveNext //數(shù)據(jù)庫指針移到下一條</p><p><b>　　Loop</b></p><p>　　If Text1.Text = "" Or Text2.Text = "" Then</p><p>　　M

73、sgBox "用戶名或密碼不能為空,請輸入"</p><p><b>　　Else</b></p><p>　　If tt = Text2.Text Then</p><p>　　MDIForm1.Show</p><p><b>　　Me.Hide</b></p>

74、<p><b>　　Else</b></p><p>　　MsgBox "用戶名或密碼錯(cuò)誤,重新輸入"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　En

75、d Sub</b></p><p><b>　　4.密碼修改界面</b></p><p>　　管理員如果需要修改密碼時(shí)，可以進(jìn)入以下頁面進(jìn)行修改。如圖4-5所示。</p><p>　　該界面用Data數(shù)據(jù)庫連接，當(dāng)你輸入信息點(diǎn)擊“確認(rèn)”按鈕時(shí)，用戶名或原密碼輸入錯(cuò)誤時(shí)將會提示“用戶名或密碼不正確”，當(dāng)你錄入的信息其中一個(gè)為空時(shí)將提示

76、“輸入不能為空”，當(dāng)你錄入正確時(shí)將提示“密碼修改成功！”。</p><p>　　圖5-4 密碼修改界面</p><p><b>　　源程序如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Data1.Recordset.MoveFirst</p>

77、<p>　　Do While Not Data1.Recordset.EOF</p><p>　　If Text4.Text = Data1.Recordset.Fields("psw") Then</p><p>　　tt = Data1.Recordset.Fields(1)</p><p><b>　　Exit Do

78、</b></p><p><b>　　End If</b></p><p>　　Data1.Recordset.MoveNext</p><p><b>　　Loop</b></p><p>　　If Text1.Text = "" Or Text2.Text = &

79、quot;" Or Text3.Text = "" Or Text4.Text = "" Then</p><p>　　MsgBox "輸入不能為空，重新輸入", vbOKOnly + vbExclamation, "提示"//文本框不能為空</p><p><b>　　Else</

80、b></p><p>　　If tt = Text1.Text Then</p><p>　　If Text2.Text <> Text3.Text Then</p><p>　　MsgBox "密碼不一致，請重新輸入", vbOKOnly = vbExclamation, "警告"</p>&

81、lt;p>　　Text2.SetFocus</p><p>　　Text2.Text = ""</p><p>　　If Text1.Text = "" Or Text2.Text = "" Then</p><p>　　MsgBox "用戶名或密碼不能為空，請輸入"</p&

82、gt;<p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　Data1.Recordset.Edit //對數(shù)據(jù)庫的編輯</p><p>　　Data1.Recordset.Fields(1) =

83、Text2.Text</p><p>　　Data1.Recordset.Update//刷新數(shù)據(jù)庫</p><p>　　MsgBox "密碼修改成功!", vbOKOnly = vbExclamation, "修改密碼"</p><p><b>　　End If</b></p><

84、p><b>　　Else</b></p><p>　　MsgBox "用戶名或密碼不正確,請重新輸入 "</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End

85、Sub</b></p><p><b>　　5.系統(tǒng)管理界面</b></p><p>　　系統(tǒng)管理界面是管理員可以對菜品進(jìn)行添加、修改、查詢等功能。需要驗(yàn)證登陸名和密碼才能進(jìn)入。實(shí)現(xiàn)如圖5-5所示。</p><p>　　圖5-5 系統(tǒng)管理界面</p><p><b>　　源程序如下：</b&g

86、t;</p><p>　　Private Sub about_Click()</p><p>　　Form4.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub cs_Click()</p><p><b>　　del.Show<

87、;/b></p><p><b>　　End Sub</b></p><p>　　Private Sub bb_Click()</p><p>　　DataReport1.Show</p><p><b>　　End Sub</b></p><p>　　Private

88、Sub cpsz_Click()</p><p>　　Form8.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub czcx_Click()</p><p>　　Form7.Show</p><p><b>　　End Sub<

89、;/b></p><p>　　Private Sub czsz_Click()</p><p>　　Form10.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub dc_Click()</p><p>　　DataReport2.Sho

90、w</p><p><b>　　End Sub</b></p><p>　　Private Sub dlsz_Click()</p><p>　　Form2.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub dyzd_C

91、lick()</p><p>　　Form1.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub khdc_Click()</p><p>　　Form9.Show</p><p><b>　　End Sub</b><

92、;/p><p>　　Private Sub khjz_Click()</p><p>　　Form5.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub lzcx_Click()</p><p>　　Form6.Show</p>&l

93、t;p><b>　　End Sub</b></p><p>　　Private Sub tj_Click()</p><p><b>　　Add.Show</b></p><p><b>　　End Sub</b></p><p>　　Private Sub xg_Cli

94、ck()</p><p>　　revise.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Load()</p><p><b>　　End Sub</b></p><p>　　Private Sub

95、tc_Click()</p><p>　　sure = MsgBox("確定要退出系統(tǒng)嗎？", vbOKCancel, "提示信息")</p><p>　　If sure = vbOK Then</p><p><b>　　End</b></p><p><b>　　El

96、se</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　6.餐桌設(shè)置界面</b></p><p>　　餐桌添加中，點(diǎn)擊“確認(rèn)”按鈕后，如果輸入餐桌編號無重復(fù)的，即tt=ture,

97、則顯示“添加成功”，如果輸入餐桌編號有重復(fù)的，即tt=false,則顯示“餐桌編號已存在”。如果輸入為空時(shí)，即text1.text=“”,則提示“請輸入餐桌號”。在狀態(tài)修改中，如果text2和combo1不為空，點(diǎn)擊“修改”按鈕后，則顯示“修改成功”。在餐桌刪除中，先進(jìn)行查詢，指針定位在第一條，如果沒有找到你要的記錄，則指針移到下一條[12-13]。找到后對該記錄進(jìn)行刪除即Recordcount不為0。 餐桌設(shè)置界面如圖5-6所示。&l

98、t;/p><p>　　圖5-6 餐桌信息界面</p><p><b>　　源程序如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim tt As Boolean</p><p><b>　　tt = True</b&g

99、t;</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Do While Not Adodc1.Recordset.EOF</p><p>　　If Text1.Text = Adodc1.Recordset.Fields("餐桌編號") Then</p><p>　　tt =

100、False</p><p><b>　　End If</b></p><p>　　Adodc1.Recordset.MoveNext</p><p><b>　　Loop</b></p><p>　　If tt = False Then</p><p>　　MsgBox &q

101、uot;餐桌編號已存在", vbOKOnly + vbExclamation, "提示"</p><p><b>　　Else</b></p><p>　　Adodc1.Recordset.AddNew</p><p>　　If Text1.Text = "" Then</p>&

102、lt;p>　　MsgBox "請輸入餐桌號：", vbOKOnly, "注意"</p><p><b>　　Else</b></p><p>　　Adodc1.Recordset.Fields("餐桌編號") = Text1.Text</p><p>　　Adodc1.Recor

103、dset.Fields("入座狀態(tài)") = "空座"</p><p>　　MsgBox "添加成功", vbOKOnly + vbExclamation, "提示"</p><p>　　Adodc1.Recordset.Update</p><p>　　Text1.Text = &quo

104、t;"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><

105、p>　　gzcz = False</p><p>　　Find = InputBox("輸入你要查詢的編號")</p><p>　　If gzcz = True And Adodc1.Recordset.RecordCount = 0 Then</p><p>　　MsgBox "沒有你要查詢的記錄!!"</p&g

106、t;<p><b>　　Else</b></p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Do While Not Adodc1.Recordset.EOF And Trim(Adodc1.Recordset.Fields("餐桌編號")) <> Trim(Find)</

107、p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF Then Exit Do</p><p><b>　　Loop</b></p><p>　　If Adodc1.Recordset.EOF Then</p><p>

108、　　Find = MsgBox("查詢的菜品編號不存在！", 48)</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　' If

109、Text2.Text = "" And Combo1.Text = "" Then</p><p>　　'MsgBox " 修改不能為空"</p><p><b>　　'Else</b></p><p>　　'MsgBox "修改成功"<

110、;/p><p>　　' Text2.Text = ""</p><p>　　'Combo1.Text = "" </p><p><b>　　' End If</b></p><p><b>　　End Sub</b></p>

111、<p>　　Private Sub Command3_Click()</p><p>　　YesNo = MsgBox("是否真的刪除?", 36)</p><p>　　If YesNo = vbYes Then</p><p>　　With Adodc1.Recordset</p><p>　　If Not

112、.EOF Then '如果有記錄則刪除,跳到下一條記錄</p><p><b>　　.Delete</b></p><p><b>　　.MoveNext</b></p><p>　　If .EOF And .RecordCount <> 0 Then .MoveLast</p><

113、;p>　　If .EOF And .RecordCount = 0 Then .MoveFirst</p><p><b>　　End If</b></p><p><b>　　End With</b></p><p><b>　　End If</b></p><p>&

114、lt;b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　'Data1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()&

115、lt;/p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　If Text2.Text = "" And Combo1.Text =

116、"" Then</p><p>　　MsgBox " 修改不能為空"</p><p><b>　　Else</b></p><p>　　MsgBox "修改成功"</p><p>　　Adodc1.Recordset.Update </p><

117、;p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()</p><p>　　gzcz = False</p><p>　　Find = InputBox("輸入你要查詢的

118、編號")</p><p>　　If gzcz = True And Adodc1.Recordset.RecordCount = 0 Then</p><p>　　MsgBox "沒有你要查詢的記錄!!"</p><p><b>　　Else</b></p><p>　　Adodc1.Rec

119、ordset.MoveFirst</p><p>　　Do While Not Adodc1.Recordset.EOF And Trim(Adodc1.Recordset.Fields("餐桌編號")) <> Trim(Find)</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Ad

120、odc1.Recordset.EOF Then Exit Do</p><p><b>　　Loop</b></p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　Find = MsgBox("查詢的菜品編號不存在！", 48)</p><p>　　Adod

121、c1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub SSTab1_DblClick()&l

122、t;/p><p><b>　　End Sub</b></p><p><b>　　7.顧客點(diǎn)菜界面</b></p><p>　　通過點(diǎn)擊左網(wǎng)格內(nèi)的菜品信息，添加到右邊的賬單信息當(dāng)中，然后對賬號進(jìn)行數(shù)量的更改、刪除等功能，如圖5-7所示，其中狀態(tài)欄為自動生成。源程序見附錄。</p><p><b&g

123、t;　　圖5-7 點(diǎn)菜界面</b></p><p>　　先將文本框連接到數(shù)據(jù)庫Data1中，通過餐桌號，自動生成餐桌狀態(tài)，即當(dāng)輸入text9后，自動生成text7中的內(nèi)容，然后指針移到下一條記錄。</p><p><b>　　源程序如下：</b></p><p>　　Private Sub Command1_Click()</

124、p><p>　　Dim aa As Boolean</p><p><b>　　aa = True</b></p><p>　　'Adodc2.Recordset.MoveFirst</p><p>　　Do While Not Adodc2.Recordset.EOF</p><p>　　I

125、f Text6.Text = Adodc2.Recordset.Fields("賬單號") Then</p><p>　　aa = False</p><p><b>　　End If</b></p><p>　　Adodc2.Recordset.MoveNext</p><p><b>　

126、　Loop</b></p><p>　　'If aa = False Then</p><p>　　' MsgBox "賬單號只能唯一", vbOKOnly + vbExclamation, "錯(cuò)誤"</p><p>　　' Text6.Text = ""</p&g

127、t;<p><b>　　' Else</b></p><p>　　If Text6.Text = "" Or Text9.Text = "" Then</p><p>　　MsgBox "菜品信息不能為空", vbOKOnly + vbExclamation, "提示"

128、;</p><p><b>　　Else</b></p><p>　　Adodc2.Recordset.AddNew</p><p>　　Adodc2.Recordset.Fields("菜品名稱") = Text2.Text</p><p>　　Adodc2.Recordset.Fields(&qu

129、ot;菜品價(jià)格") = Text4.Text</p><p>　　Adodc2.Recordset.Fields("菜品數(shù)量") = Text5.Text</p><p>　　Adodc2.Recordset.Fields("賬單號") = Text6.Text</p><p>　　Adodc2.Recordset.

130、Fields("餐桌編號") = Text9.Text</p><p>　　Adodc2.Recordset.Update</p><p><b>　　'End If</b></p><p><b>　　End If</b></p><p><b>　　End