基于無(wú)線(xiàn)通信的點(diǎn)菜系統(tǒng)軟件設(shè)計(jì)【畢業(yè)設(shè)計(jì)】

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

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

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

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

5、</p><p>　　關(guān)鍵詞：無(wú)線(xiàn)通信，點(diǎn)菜，軟件設(shè)計(jì)，VB6.0，Access數(shù)據(jù)庫(kù)</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課題的來(lái)源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開(kāi)發(fā)環(huán)境簡(jiǎn)介6</b></p><p>　　3.1 VB6.0簡(jiǎn)介6</p><p>　　3.2 ACCSEE數(shù)據(jù)庫(kù)簡(jiǎn)介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ù)庫(kù)設(shè)計(jì)11

16、</p><p>　　5.2主要界面設(shè)計(jì)13</p><p><b>　　6系統(tǒng)測(cè)試34</b></p><p>　　6.1 測(cè)試環(huán)境34</p><p>　　6.2 測(cè)試過(guò)程34</p><p>　　6.3 測(cè)試結(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課題的來(lái)源</b></p>&l

18、t;p>　　餐飲業(yè)是我國(guó)比較傳統(tǒng)、涉及面比較廣的行業(yè)之一，也是第三產(chǎn)業(yè)中的主體行業(yè)，在國(guó)民經(jīng)濟(jì)中占有重要位置?，F(xiàn)在，包括網(wǎng)絡(luò)技術(shù)在內(nèi)的信息技術(shù)在我國(guó)各行各業(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ì)全球化的不斷革新，我國(guó)餐飲業(yè)也在迅猛發(fā)展，超大規(guī)模、連鎖經(jīng)營(yíng)的餐飲娛樂(lè)企

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

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

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

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

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

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

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

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

27、<p>　　3. 管理上的可行性</p><p>　　人們已經(jīng)逐漸認(rèn)識(shí)到時(shí)代的變化和當(dāng)今社會(huì)發(fā)展的趨勢(shì)，認(rèn)為利用計(jì)算機(jī)從事餐飲管理是公司當(dāng)前非常必要的舉措。同時(shí)也為了提高餐飲業(yè)的管理水平，適應(yīng)管理信息系統(tǒng)的要求，對(duì)餐飲管理系統(tǒng)的管理者進(jìn)行具體系統(tǒng)的應(yīng)用，提高了他們對(duì)餐飲管理信息系統(tǒng)的認(rèn)識(shí)。因此在管理上具有了開(kāi)發(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，主要有開(kāi)臺(tái)模塊，點(diǎn)菜模塊，查詢(xú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>　　（1）密碼修改：修改登陸密碼。</p><p>　　（2）關(guān)于系統(tǒng)：關(guān)于系統(tǒng)的簡(jiǎn)介和說(shuō)明。</p><p>　　2．基本信息設(shè)置模塊</p><p>　　（1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

44、檢查CommEvent屬性的值來(lái)判斷事件和錯(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所示，客戶(hù)可通過(guò)該系統(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ái)登陸系統(tǒng)。</p><p>　　圖4-3 前臺(tái)登錄系統(tǒng)</p><p><

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

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

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

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

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

51、;　　2. 餐桌信息表如表5-2所示，記錄餐桌的編號(hào)和狀態(tài)以便查詢(xún)。</p><p>　　3. 登陸信息表如表5-3所示，記錄管理員進(jìn)入系統(tǒng)的用戶(hù)名和密碼。</p><p>　　4. 種類(lèi)信息表如表5-4所示，主要記錄客戶(hù)點(diǎn)菜后的賬單信息，如總計(jì)金額等。</p><p>　　5. 賬單信息表如表5-5所示，記錄種類(lèi)的名稱(chēng)。</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 種類(lèi)信息表(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>　　歡迎界面主要給顧客一種清新的感覺(jué)，設(shè)計(jì)簡(jiǎn)潔，加入了一張菜品圖片，增加顧客的食欲。實(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>　　用戶(hù)點(diǎn)菜需要進(jìn)入此界面才能進(jìn)行各項(xiàng)功能，是整個(gè)系統(tǒng)的重要組成部分。如圖5-2所示。

57、源程序見(jiàn)附錄。</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)登錄模塊的主要功能是對(duì)用戶(hù)身份進(jìn)行驗(yàn)證,只有系統(tǒng)的合法用戶(hù)才能進(jìn)入系統(tǒng)。</p><p>　　在進(jìn)行系統(tǒng)登錄過(guò)程中，登錄模塊將調(diào)用數(shù)據(jù)庫(kù)里的用戶(hù)清單，并對(duì)賬號(hào)和密碼進(jìn)行驗(yàn)證，只有輸入了正確的賬號(hào)和密碼后，系統(tǒng)登錄才會(huì)成功,并在輸入了錯(cuò)誤的或者是不存在的賬戶(hù)和密碼時(shí)，系統(tǒng)會(huì)給出出錯(cuò)

69、信息提示，指明登錄過(guò)程中的錯(cuò)誤輸入或者錯(cuò)誤操作，以便用戶(hù)進(jìn)行正確的登錄如圖5-3所示。</p><p>　　圖5-3 管理系統(tǒng)登陸界面</p><p>　　此界面是用DATA數(shù)據(jù)庫(kù)連接,數(shù)據(jù)庫(kù)名為＂mydb＂,表名為＂login＂。在用戶(hù)名和密碼文本框中錄入用戶(hù)名和密碼,當(dāng)你輸入的用戶(hù)名或密碼為空時(shí)，將會(huì)提示“用戶(hù)名和密碼不能為空”，當(dāng)你用戶(hù)名或密碼輸入錯(cuò)誤時(shí)，將會(huì)提示“用戶(hù)名或密碼錯(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連接到對(duì)應(yīng)的數(shù)據(jù)庫(kù)中</p><p>　　tt = Data1.Recordset.Fields(1)</p><p><b>　　End If</b></p&g

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

73、sgBox "用戶(hù)名或密碼不能為空,請(qǐng)輸入"</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 "用戶(hù)名或密碼錯(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)入以下頁(yè)面進(jìn)行修改。如圖4-5所示。</p><p>　　該界面用Data數(shù)據(jù)庫(kù)連接，當(dāng)你輸入信息點(diǎn)擊“確認(rèn)”按鈕時(shí)，用戶(hù)名或原密碼輸入錯(cuò)誤時(shí)將會(huì)提示“用戶(hù)名或密碼不正確”，當(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 "密碼不一致，請(qǐng)重新輸入", vbOKOnly = vbExclamation, "警告"</p>&

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

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

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

84、p><b>　　Else</b></p><p>　　MsgBox "用戶(hù)名或密碼不正確,請(qǐng)重新輸入 "</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)管理界面是管理員可以對(duì)菜品進(jìn)行添加、修改、查詢(xú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)”按鈕后，如果輸入餐桌編號(hào)無(wú)重復(fù)的，即tt=ture,

97、則顯示“添加成功”，如果輸入餐桌編號(hào)有重復(fù)的，即tt=false,則顯示“餐桌編號(hào)已存在”。如果輸入為空時(shí)，即text1.text=“”,則提示“請(qǐng)輸入餐桌號(hào)”。在狀態(tài)修改中，如果text2和combo1不為空，點(diǎn)擊“修改”按鈕后，則顯示“修改成功”。在餐桌刪除中，先進(jìn)行查詢(xún)，指針定位在第一條，如果沒(méi)有找到你要的記錄，則指針移到下一條[12-13]。找到后對(duì)該記錄進(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("餐桌編號(hào)") 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;餐桌編號(hào)已存在", vbOKOnly + vbExclamation, "提示"</p><p><b>　　Else</b></p><p>　　Adodc1.Recordset.AddNew</p><p>　　If Text1.Text = "" Then</p>&

102、lt;p>　　MsgBox "請(qǐng)輸入餐桌號(hào)：", vbOKOnly, "注意"</p><p><b>　　Else</b></p><p>　　Adodc1.Recordset.Fields("餐桌編號(hào)") = 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("輸入你要查詢(xún)的編號(hào)")</p><p>　　If gzcz = True And Adodc1.Recordset.RecordCount = 0 Then</p><p>　　MsgBox "沒(méi)有你要查詢(xún)的記錄!!"</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("餐桌編號(hào)")) <> 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("查詢(xún)的菜品編號(hào)不存在！", 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("輸入你要查詢(xún)的

118、編號(hào)")</p><p>　　If gzcz = True And Adodc1.Recordset.RecordCount = 0 Then</p><p>　　MsgBox "沒(méi)有你要查詢(xún)的記錄!!"</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("餐桌編號(hào)")) <> 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("查詢(xún)的菜品編號(hào)不存在！", 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>　　通過(guò)點(diǎn)擊左網(wǎng)格內(nèi)的菜品信息，添加到右邊的賬單信息當(dāng)中，然后對(duì)賬號(hào)進(jìn)行數(shù)量的更改、刪除等功能，如圖5-7所示，其中狀態(tài)欄為自動(dòng)生成。源程序見(jiàn)附錄。</p><p><b&g

123、t;　　圖5-7 點(diǎn)菜界面</b></p><p>　　先將文本框連接到數(shù)據(jù)庫(kù)Data1中，通過(guò)餐桌號(hào)，自動(dòng)生成餐桌狀態(tài)，即當(dāng)輸入text9后，自動(dòng)生成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("賬單號(hào)") 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 "賬單號(hào)只能唯一", 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("菜品名稱(chēng)") = 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("賬單號(hào)") = Text6.Text</p><p>　　Adodc2.Recordset.

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