基于無線通信的點菜系統(tǒng)軟件設計【畢業(yè)設計+開題報告+文獻綜述】

1、<p>　　本科畢業(yè)設計(論文)</p><p><b>　　（二零 屆）</b></p><p>　　基于無線通信的點菜系統(tǒng)軟件設計</p><p>　　所在學院 </p><p>　　專業(yè)班級 電子信息工程 </p

2、><p>　　學生姓名 學號 </p><p>　　指導教師 職稱 </p><p>　　完成日期 年 月 </p><p><b>　　摘 要</b></p><p>

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

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

5、</p><p>　　關鍵詞：無線通信，點菜，軟件設計，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課題研究的主要內容2</p><p>　　2需求分析與功能描述3</p><p>

14、;　　2.1可行性分析3</p><p>　　2.2總體設計框圖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詳細設計11</b></p><p>　　5.1數(shù)據(jù)庫設計11

16、</p><p>　　5.2主要界面設計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 測試結果34</p><p><b>　　結

17、論35</b></p><p><b>　　參考文獻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è)之一，也是第三產業(yè)中的主體行業(yè)，在國民經濟中占有重要位置。現(xiàn)在，包括網絡技術在內的信息技術在我國各行各業(yè)應用已經非常普遍，而在餐飲業(yè)的應用卻得不到較好的推廣，突出表現(xiàn)在兩方面，一是餐飲業(yè)信息服務系統(tǒng)的設計水平偏低，另一個是餐飲業(yè)中信息服務系統(tǒng)的應用和普及率較低，很大程度上限制了餐飲業(yè)的發(fā)展水平和速度。隨著經濟全球化的不斷革新，我國餐飲業(yè)也在迅猛發(fā)展，超大規(guī)模、連鎖經營的餐飲娛樂企

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

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

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

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

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

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

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

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

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

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

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

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

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

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

33、isual Basic6．0于1998年問世，微軟公司以其強大的實力，將Visual Basic發(fā)展成當前基于Windows平臺上最方便快捷的軟件開發(fā)工具[5]。無論是網絡應用、多媒體技術還是當前流行的MIS系統(tǒng)的開發(fā)，Visual Basic都應對得游刃有余。</p><p>　　VB是一種可視化的、面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開發(fā)Windows環(huán)境下的各類應用程序。它簡單易學、效

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

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

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

37、<p>　　(4)作為Office套件的一部分，可以與Office集成，實現(xiàn)無縫連接。 </p><p>　　(5)能夠利用Web檢索和發(fā)布數(shù)據(jù)，實現(xiàn)與Internet的連接。 Access主要適用于中小型應用系統(tǒng)，或作為客戶機/服務器系統(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ù)編寫串行通信程序較為復雜，需要掌握大量的通信知識，其優(yōu)點是可實現(xiàn)的功能更豐富、應用面更廣泛，適合于編寫較為復雜的低層次通信程序。而Visual Basic6．0的MSComm通信控件提供了標準的事件處理函數(shù)、事件、方法，并通過控件屬性對串口參數(shù)進行設置，比較

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

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

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

42、關鍵功能之后，可以通過檢查CommEvent屬性的值來查詢事件和錯誤。如果應用程序較小，并且是自動保存的，這種方法可能是更可取的。例如，如果寫一個簡單的電話撥號程序，則沒有必要對每接收一個字符都產生事件，因為惟一等待接收的字符是調制解調器的“確定”響應。</p><p>　　MSComm是Visual Basic6.0提供的ActiveX控件，需要通過VisualBasic6．0程菜單下的“部件"菜單項

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

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

45、</b></p><p>　　2.數(shù)據(jù)流圖一層子圖如圖4-2所示，分為點菜和收銀兩大塊。</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ù)庫中用到的５個表中, 以下是各數(shù)據(jù)文件的字典條目：</p><p>　　1.登陸信息表如圖4-4所示，記錄用戶名和密碼信息。</p><p>　　2.餐桌信息表如圖4-5所示，記錄餐桌編號和客戶入座狀態(tài)，滿座還是空座。</p><p>　　3.菜品信息表如圖4-6所示

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

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

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

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

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

52、　6. 點菜信息表如表5-6所示，記錄點菜后的信息。</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 點菜信息表(dc)</p><p><b>　　5.2主要界面設計</b></p><p><b>　　1.歡迎界面</b></p><p>　　歡迎界面主要給顧客一種清新的感覺，設計簡潔，加入了一張菜品圖片，增加顧客的食欲。實現(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．顧客點菜界面</b></p><p>　　用戶點菜需要進入此界面才能進行各項功能，是整個系統(tǒng)的重要組成部分。如圖5-2所示。

57、源程序見附錄。</p><p>　　圖5-2 顧客點菜界面</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)登錄模塊的主要功能是對用戶身份進行驗證,只有系統(tǒng)的合法用戶才能進入系統(tǒng)。</p><p>　　在進行系統(tǒng)登錄過程中，登錄模塊將調用數(shù)據(jù)庫里的用戶清單，并對賬號和密碼進行驗證，只有輸入了正確的賬號和密碼后，系統(tǒng)登錄才會成功,并在輸入了錯誤的或者是不存在的賬戶和密碼時，系統(tǒng)會給出出錯

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

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連接到對應的數(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 "用戶名或密碼錯誤,重新輸入"</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>　　管理員如果需要修改密碼時，可以進入以下頁面進行修改。如圖4-5所示。</p><p>　　該界面用Data數(shù)據(jù)庫連接，當你輸入信息點擊“確認”按鈕時，用戶名或原密碼輸入錯誤時將會提示“用戶名或密碼不正確”，當你錄入的信息其中一個為空時將提示

76、“輸入不能為空”，當你錄入正確時將提示“密碼修改成功！”。</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)管理界面是管理員可以對菜品進行添加、修改、查詢等功能。需要驗證登陸名和密碼才能進入。實現(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.餐桌設置界面</b></p><p>　　餐桌添加中，點擊“確認”按鈕后，如果輸入餐桌編號無重復的，即tt=ture,

97、則顯示“添加成功”，如果輸入餐桌編號有重復的，即tt=false,則顯示“餐桌編號已存在”。如果輸入為空時，即text1.text=“”,則提示“請輸入餐桌號”。在狀態(tài)修改中，如果text2和combo1不為空，點擊“修改”按鈕后，則顯示“修改成功”。在餐桌刪除中，先進行查詢，指針定位在第一條，如果沒有找到你要的記錄，則指針移到下一條[12-13]。找到后對該記錄進行刪除即Recordcount不為0。 餐桌設置界面如圖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.顧客點菜界面</b></p><p>　　通過點擊左網格內的菜品信息，添加到右邊的賬單信息當中，然后對賬號進行數(shù)量的更改、刪除等功能，如圖5-7所示，其中狀態(tài)欄為自動生成。源程序見附錄。</p><p><b&g

123、t;　　圖5-7 點菜界面</b></p><p>　　先將文本框連接到數(shù)據(jù)庫Data1中，通過餐桌號，自動生成餐桌狀態(tài)，即當輸入text9后，自動生成text7中的內容，然后指針移到下一條記錄。</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, "錯誤"</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;菜品價格") = 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