基于vb的洗浴中心管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)

1、<p>　　基于VB的洗浴中心管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　學(xué)士學(xué)位論文作者聲明</p><p>　　本人聲明：本人呈交的學(xué)位論文是本人在導(dǎo)師指導(dǎo)下取得的研究成果。對(duì)前人及其他人員對(duì)本文的啟發(fā)和貢獻(xiàn)已在論文中作出了明確的聲明，并表示了謝意。論文中除了特別加以標(biāo)注和致謝的地方外，不包含其他人和其它機(jī)構(gòu)已經(jīng)發(fā)表或者撰寫過的研究成果。</p><p>

2、　　本人同意學(xué)校根據(jù)《中華人民共和國學(xué)位條例暫行實(shí)施辦法》等有關(guān)規(guī)定保留本人學(xué)位論文并向國家有關(guān)部門或資料庫送交論文或者電子版，允許論文被查閱和借閱；本人授權(quán)棗莊學(xué)院可以將本人學(xué)位論文的全部或者部分內(nèi)容編入有關(guān)數(shù)據(jù)庫進(jìn)行檢索，可以采用影印、縮印或者其它復(fù)制手段和匯編學(xué)位論文（保密論文在解密后應(yīng)遵守此規(guī)定）。</p><p>　　作者簽名： 日期： 年 月 日</p

3、><p><b>　　摘 要</b></p><p>　　本文論述了洗浴管理信息系統(tǒng)開發(fā)的全過程。從分析洗浴流程的基本情況入手，進(jìn)行系統(tǒng)的可行性分析，通過分析日常業(yè)務(wù)，了解洗浴管理的特點(diǎn)和存在的問題，在此基礎(chǔ)上，進(jìn)行詳細(xì)的系統(tǒng)分析，得出系統(tǒng)功能結(jié)構(gòu)圖，再通過系統(tǒng)設(shè)計(jì)，系統(tǒng)實(shí)施等環(huán)節(jié)，最終開發(fā)出能夠滿足洗浴業(yè)務(wù)需要的洗浴管理信息系統(tǒng)。 經(jīng)過實(shí)際的需求分析，采用Vis

4、ualBasic6.0作為開發(fā)工具而開發(fā)出來的洗浴信息管理系統(tǒng)。整個(gè)系統(tǒng)從符合操作簡便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，該洗浴管理信息系統(tǒng)的功能主要突出服務(wù)項(xiàng)目、包房信息、箱包管理以及收銀結(jié)賬管理。經(jīng)過實(shí)際測試證明，本文所設(shè)計(jì)的洗浴中心信息管理系統(tǒng)可以用于洗浴信息管理方面的需要。 論文主要介紹了本課題的選題背景，課題來源，所要完成的功能和開發(fā)的全過程。重點(diǎn)的說明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、數(shù)據(jù)庫的設(shè)計(jì)和系統(tǒng)的解決方案。&l

5、t;/p><p>　　【關(guān)鍵詞】VisualBasic6.0;SQL Server2000; 洗浴管理系統(tǒng); 查詢; 結(jié)算</p><p><b>　　Abstract</b></p><p>　　This paper discusses the management information system bathing the entire pr

6、ocess. From the analysis of the basic bath, the authors conducted the feasibility analysis, analysis of day-to-day operations. Bath management to understand the characteristics and the problems on this basis, detailed sy

7、stems analysis, Then the system functional structure, and through the system design, system implementation, etc., eventually developed to meet the operational requirements of the bath bathing management i</p><

8、p>　　After the actual demand analysis using VisualBasic6.0 as developed as bathing information management system EC. With the entire system from the simple、friendly interface、flexible、practical and safety requirements.

9、 The Bath management information systems highlight the main function of services, cabins information, luggage management and the closure of the cash register management. After test results, In this paper, the bath center

10、 management information system can be used for bathing information </p><p>　　This is on the topic of the washing that background, the task sources, to be accomplished by the development and function of the w

11、hole process Note the emphasis of the system design focus, design, database design and system solutions. </p><p>　　【Key words】VisualBasic6.0;SQL Server2000; bathroom management system; inquiries; settlement

12、</p><p><b>　　目 錄</b></p><p><b>　　第1章 緒論1</b></p><p><b>　　1.1引言1</b></p><p>　　1.1.1洗浴中心管理系統(tǒng)的研究背景1</p><p>　　1.1.2國內(nèi)外研究

13、現(xiàn)狀1</p><p>　　1.1.3洗浴中心管理系統(tǒng)的研究目的與意義2</p><p><b>　　1.2論文結(jié)構(gòu)2</b></p><p>　　第2章 系統(tǒng)開發(fā)技術(shù)介紹4</p><p>　　2.1 VisualBasic6.0編程語言4</p><p>　　2.1.1 Visual

14、Basic6.0的簡介4</p><p>　　2.1.2 VisualBasic6.0的特點(diǎn)4</p><p>　　2.2 ADO技術(shù)5</p><p>　　2.2.1 ADO特點(diǎn)概述5</p><p>　　2.2.2 ADO 的對(duì)象6</p><p>　　2.3 SQLServer2000數(shù)據(jù)庫7<

15、/p><p>　　2.3.1 SQLServer2000的簡介7</p><p>　　2.3.2 SQL Server2000 的特性包括7</p><p>　　2.4 應(yīng)用平臺(tái)配置8</p><p>　　第3章 系統(tǒng)總體設(shè)計(jì)9</p><p><b>　　3.1需求分析9</b></

16、p><p>　　3.1.1用戶需求分析9</p><p>　　3.1.2系統(tǒng)概述9</p><p>　　3.2系統(tǒng)功能設(shè)計(jì)10</p><p>　　3.3數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)10</p><p>　　3.3.1數(shù)據(jù)庫設(shè)計(jì)原則10</p><p>　　3.3.2洗浴中心管理系統(tǒng)的實(shí)體-聯(lián)系模型

17、11</p><p>　　3.3.3系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)11</p><p>　　第4章 系統(tǒng)的實(shí)現(xiàn)16</p><p>　　4.1數(shù)據(jù)庫連接功能16</p><p>　　4.2系統(tǒng)登錄窗體和主界面16</p><p>　　4.3總臺(tái)服務(wù)管理19</p><p>　　4.4結(jié)賬收銀管理25

18、</p><p>　　4.5月結(jié)算管理26</p><p><b>　　第5章 總結(jié)29</b></p><p><b>　　參考文獻(xiàn)30</b></p><p><b>　　致 謝31</b></p><p><b>　　第1章 緒

19、論</b></p><p><b>　　1.1引言</b></p><p>　　1.1.1洗浴中心管理系統(tǒng)的研究背景</p><p>　　隨著人民生活水平的不斷提高，餐飲、酒吧、洗浴等消費(fèi)產(chǎn)業(yè)也得到迅猛發(fā)展，但由于洗浴行業(yè)具有服務(wù)多樣、價(jià)格多變、折扣靈活以及報(bào)表復(fù)雜等特點(diǎn)，并且隨著消費(fèi)業(yè)務(wù)量的不斷增大，內(nèi)部人員的增加，靠以往手工的管

20、理手段進(jìn)行管理，已不能適應(yīng)企業(yè)的發(fā)展。這就迫切需要一個(gè)能緊密配合企業(yè)進(jìn)行數(shù)據(jù)管理、決策分析的現(xiàn)金管理方式，把科學(xué)的管理思想、營銷技術(shù)全面融入其中，為企業(yè)規(guī)范業(yè)務(wù)流程，實(shí)現(xiàn)模塊化發(fā)展奠定良好的基礎(chǔ)。信息化管理無疑是最有效的管理手段之一。利用先進(jìn)的信息技術(shù)，可以幫助洗浴企業(yè)拋棄傳統(tǒng)的管理模式，突破制約企業(yè)發(fā)展的瓶頸，使企業(yè)的運(yùn)營目標(biāo)具有更強(qiáng)的可操作性，最大限度地實(shí)現(xiàn)企業(yè)資源的合理利用，以期達(dá)到企業(yè)效率最高化，企業(yè)利潤最大化。</p&g

21、t;<p>　　通過對(duì)多家洗浴企業(yè)進(jìn)行深入細(xì)致的調(diào)查和分析，做出的一套標(biāo)準(zhǔn)化的洗浴管理系統(tǒng)。它適用于中、小型洗浴行業(yè)，可以幫助洗浴企業(yè)處理日常工作業(yè)務(wù)，規(guī)模管理和操作流程，有效的實(shí)現(xiàn)了企業(yè)的現(xiàn)代化管理，全面提升了企業(yè)的市場競爭力和整體形象。</p><p>　　1.1.2國內(nèi)外研究現(xiàn)狀</p><p>　　隨著人們休閑娛樂需求的提高，洗浴中心的功能的也越來越完善，正朝著同其他

22、公共建筑結(jié)合組成建筑群落的方向發(fā)展。如建于公元3世紀(jì)的古羅馬卡瑞卡拉浴場就在附近設(shè)有演講廳和圖書館以及其他文化休閑場所。就像古羅馬的浴場一樣，隨著時(shí)代的發(fā)展，人們需求的變化，洗浴中心也相應(yīng)的隨著變化而變化。</p><p>　　我國百姓的消費(fèi)有所提高，國門大開，人們接受外來的新事物，閑暇時(shí)間的增加使人們開始考慮休閑生活的意義和質(zhì)量。同時(shí)在我國市場需求多樣化、個(gè)性化和時(shí)尚化的推動(dòng)下，作為休閑娛樂建筑的一種——洗浴建

23、筑，應(yīng)時(shí)代要求誕生了。一個(gè)小小的澡堂子變成了集多功能于一體的康體娛樂建筑。這就需要一個(gè)功能完善的洗浴管理系統(tǒng)作支撐。</p><p>　　如今，在國外洗浴管理系統(tǒng)已經(jīng)在世界各個(gè)發(fā)達(dá)國家廣泛應(yīng)用了，而且應(yīng)用范圍越來越廣，功能越來越完善，操作越來越簡單。但在國內(nèi)應(yīng)用的還比較少，傳統(tǒng)洗浴企業(yè)的日常運(yùn)作還是靠人工管理，從服務(wù)項(xiàng)目入庫到客人點(diǎn)單，再到結(jié)賬基本上由人工完成記錄，這樣做不僅耗費(fèi)人力資源而且容易導(dǎo)致記錄丟失或重復(fù)

24、等錯(cuò)誤，客人結(jié)賬由手工記錄，人力耗費(fèi)大，客人等待時(shí)間長，管理效率低下，這就迫切需要標(biāo)準(zhǔn)的、高效率的計(jì)算機(jī)管理方式引導(dǎo)其發(fā)展,通過計(jì)算機(jī)管理該企業(yè)的日常運(yùn)作，給管理者以決策參考的模型，來不斷完善管理水平，提高工作效率。</p><p>　　1.1.3洗浴中心管理系統(tǒng)的研究目的與意義</p><p>　　系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。具體能實(shí)現(xiàn)對(duì)包房信息和員工信息的

25、添加、修改、查詢，箱號(hào)生成、修改以及自動(dòng)搜索引擎，在總臺(tái)實(shí)現(xiàn)顧客領(lǐng)牌、顧客服務(wù)、查看包房信息、統(tǒng)計(jì)顧客消費(fèi)、包房維修禁用和恢復(fù)使用、大廳和包房的隨時(shí)調(diào)換，以及當(dāng)日結(jié)算查詢、月營業(yè)分析等功能。這不僅幫助洗浴企業(yè)拋棄傳統(tǒng)的管理模式，也突破制約企業(yè)發(fā)展的瓶頸，使企業(yè)的運(yùn)營目標(biāo)具有更強(qiáng)的可操作性，最大限度地實(shí)現(xiàn)企業(yè)資源的合理利用，以期達(dá)到企業(yè)效率最高化，企業(yè)利潤最大化。</p><p>　　隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)

26、科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。越來越多的管理人員意識(shí)到信息管理的重要性。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)洗浴企業(yè)信息進(jìn)行管理,具有手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高信息管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理與世界接軌的重要條件 。</p><p>　　課題

27、以城市洗浴中心為背景，通過研究當(dāng)前洗浴中心的管理現(xiàn)狀、存在問題以及現(xiàn)實(shí)需求，設(shè)計(jì)一個(gè)針對(duì)洗浴管理工作的管理信息系統(tǒng)。該系統(tǒng)能夠提供較為完備的功能，對(duì)于提高工作效率、加快洗浴管理的自動(dòng)化具有較為重要的意義。</p><p><b>　　1.2論文結(jié)構(gòu)</b></p><p>　　本文介紹了洗浴中心管理系統(tǒng)的開發(fā)前景、需求分析、各功能模塊的設(shè)計(jì)和主要功能實(shí)現(xiàn)。具體來講，主

28、要包括以下幾個(gè)方面：</p><p>　　第一章：需求調(diào)研與分析。通過對(duì)當(dāng)前洗浴中心調(diào)查研究，全面了解了洗浴中心日常業(yè)務(wù)流程，為構(gòu)建洗浴中心管理系統(tǒng)提出科學(xué)的需求分析。</p><p>　　第二章：系統(tǒng)開發(fā)技術(shù)介紹。是對(duì)VisualBasic6.0、SQL Server2000和ADO技術(shù)的特點(diǎn)進(jìn)行了簡單的描述。</p><p>　　第三章：功能模塊框架設(shè)計(jì)。應(yīng)用V

29、isualBasic6.0作為開發(fā)平臺(tái)，對(duì)系統(tǒng)整體主要功能做了描述。在系統(tǒng)功能分析的基礎(chǔ)上，系統(tǒng)共分為基本信息管理、前臺(tái)信息管理、后臺(tái)信息管理、總經(jīng)理查詢、系統(tǒng)維護(hù)、系統(tǒng)幫助和系統(tǒng)退出七功能大模塊。</p><p>　　第四章：系統(tǒng)的實(shí)現(xiàn)。論述了數(shù)據(jù)庫安裝、權(quán)限設(shè)置，完成了系統(tǒng)調(diào)試，并進(jìn)行了簡要總結(jié)。</p><p>　　第2章 系統(tǒng)開發(fā)技術(shù)介紹</p><p>　

30、　2.1 VisualBasic6.0編程語言</p><p>　　2.1.1 VisualBasic6.0的簡介</p><p>　　Visual Basic是由美國微軟公司1991年開發(fā)的一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語言，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序[1]。它簡單易學(xué)、效率高，且功能強(qiáng)大可以與 Windows 專業(yè)開發(fā)工具SDK相媲美

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

32、t;<b>　　1、面向?qū)ο?lt;/b></p><p>　　VisualBasic6.0采用了面向?qū)ο笤O(shè)計(jì)思想，它基本思路是把復(fù)雜的設(shè)計(jì)問題分解為多個(gè)能夠完成獨(dú)立功能且相對(duì)簡單的對(duì)象集合。所謂“對(duì)象”就是個(gè)可操作實(shí)體如窗體、窗體中命令按鈕、標(biāo)簽、文本框等，面向?qū)ο缶幊叹褪侵赋绦騿T可根據(jù)界面設(shè)計(jì)要求直接在界面上設(shè)計(jì)出窗口、菜單、按鈕等類型對(duì)象并為每個(gè)對(duì)象設(shè)置屬性。 </p><

33、;p><b>　　2、事件驅(qū)動(dòng)　</b></p><p>　　在Windows環(huán)境下是以事件驅(qū)動(dòng)方式運(yùn)行每個(gè)對(duì)象的，都能響應(yīng)多個(gè)區(qū)別事件。每個(gè)事件都能驅(qū)動(dòng)段代碼事件過程，該代碼決定了對(duì)象功能。通常稱這種機(jī)制為事件驅(qū)動(dòng)的編程機(jī)制?？捎捎脩舨僮饔|發(fā)也可以由系統(tǒng)或應(yīng)用觸發(fā)，例如單擊個(gè)命令按鈕就觸發(fā)了按鈕Click(單擊)事件該事件中代碼就會(huì)被執(zhí)行，若用戶未進(jìn)行任何操作(未觸發(fā)事件)則就處于等

34、待狀態(tài)整個(gè)應(yīng)用就是由彼此獨(dú)立事件過程構(gòu)成。 </p><p>　　3、軟件Software集成式開發(fā)</p><p>　　VisualBasic6.0為編程提供了個(gè)集成開發(fā)環(huán)境在這個(gè)環(huán)境中編程者可設(shè)計(jì)界面、編寫代碼、調(diào)試直至把應(yīng)用編譯成可在Windows中運(yùn)行可執(zhí)行文件并為它生成安裝VisualBasic6.0集成開發(fā)環(huán)境為編程者提供了很大方便[3]。</p><p&g

35、t;　　4、強(qiáng)大數(shù)據(jù)庫訪問功能</p><p>　　VisualBasic6.0利用數(shù)據(jù)Control控件可以訪問多種數(shù)據(jù)VisualBasic6.0提供ADOControl控件不但可以用最少代碼實(shí)現(xiàn)數(shù)據(jù)庫操作和控制，也可以取代DataControl控件和RDOControl控件[4]。 </p><p>　　5、支持對(duì)象鏈接和嵌入技術(shù)</p><p>　　Visu

36、alBasic6.0核心是對(duì)對(duì)象鏈接和嵌入(OLE)技術(shù)支持它是訪問所有對(duì)象種思路方法利用OLE技術(shù)能夠開發(fā)集聲音、圖像、動(dòng)畫、字處理、Web等對(duì)象于一體的功能強(qiáng)大的軟件[5]。 </p><p><b>　　6、網(wǎng)絡(luò)功能</b></p><p>　　VisualBasic6.0提供了DltTML(Dynamic}tTML)設(shè)計(jì)工具利用這種技術(shù)可以動(dòng)態(tài)創(chuàng)建和編輯Web

37、頁面使用戶在VisualBasic6.0中開發(fā)多功能網(wǎng)絡(luò)應(yīng)用軟件Software[6] 。</p><p><b>　　7、多個(gè)應(yīng)用向?qū)?lt;/b></p><p>　　VisualBasic6.0提供了多種向?qū)鐟?yīng)用向?qū)А惭b向?qū)?、?shù)據(jù)對(duì)象向?qū)Ш蛿?shù)據(jù)窗體向?qū)?，通過它們可以快速地創(chuàng)建區(qū)別類型、區(qū)別功能應(yīng)用。 </p><p><b>　　

38、8、聯(lián)機(jī)幫助功能</b></p><p>　　在VisualBasic6.0中利用幫助菜單和F1功能鍵用戶可隨時(shí)方便地得到所需要幫助信息VisualBasic6.0幫助窗口中顯示了有關(guān)舉例代碼通過復(fù)制、粘貼操作可獲取大量舉例代碼為用戶學(xué)習(xí)和使用提供方便[7]。 </p><p><b>　　2.2 ADO技術(shù)</b></p><p>

39、;　　2.2.1 ADO特點(diǎn)概述</p><p>　　1、易于使用，可以說這是ADO最重要的特點(diǎn)之一。</p><p>　　ADO 是高層數(shù)據(jù)庫訪問技術(shù)，相對(duì)與ODBC來說，具有面性對(duì)象的特點(diǎn)[8]。同時(shí)，在 ADO 對(duì)象結(jié)構(gòu)中，對(duì)象與對(duì)象之間的層次結(jié)構(gòu)不適非常明顯，這會(huì)給編寫數(shù)據(jù)庫程序帶來更多的便利。比如，在應(yīng)用程序中如果要使用記錄集對(duì)象，不一定要先建立連接、會(huì)話對(duì)象，如果需要就可以直接

40、構(gòu)造記錄集對(duì)象?？傊呀?jīng)沒有必要去關(guān)心對(duì)象的構(gòu)造層次和構(gòu)造順序了[9]。</p><p>　　2、可以訪問多種數(shù)據(jù)源。和 OLE DB 一樣，使應(yīng)用程序具有很好的通用性和靈活性[10]。</p><p>　　3、訪問數(shù)據(jù)源效率高。</p><p>　　4、方便的Web應(yīng)用。ADO 可以以 ActiveX 控件的形式出現(xiàn)，這就大大方便了Web應(yīng)用程序的編制[11]。

41、</p><p>　　5、技術(shù)編程接口豐富。 ADO 支持 Visual C++、Visual Basic、VBS、JS等[12]。</p><p>　　2.2.2 ADO 的對(duì)象</p><p>　　1、Connection</p><p>　　用于表示和數(shù)據(jù)源的連接，以及處理一些命令和事務(wù)。</p><p><

42、;b>　　2、Command</b></p><p>　　用于執(zhí)行某些命令來進(jìn)行諸如查詢、修改數(shù)據(jù)庫結(jié)構(gòu)的操作。</p><p>　　3、Recordset</p><p>　　用于處理數(shù)據(jù)源的表格集，它是在表中修改、檢索數(shù)據(jù)的最主要的方法[13]。</p><p><b>　　4、Field</b>&

43、lt;/p><p>　　描述數(shù)據(jù)集中的列信息。</p><p>　　5、Parameter</p><p>　　用于對(duì)傳遞給數(shù)據(jù)源的命令賦參數(shù)值。</p><p><b>　　6、Error</b></p><p>　　用于承載所產(chǎn)生所無的詳細(xì)信息。</p><p>　　7、P

44、roperty</p><p>　　通過屬性，每個(gè)ADO對(duì)象借此來讓用戶描述和控制自身的行為。</p><p><b>　　8、Set</b></p><p>　　集合是一種可以方便的包含其他特殊類型對(duì)象的對(duì)象類型。 ADO 提供4種類型的集合：</p><p>　　●Connection 對(duì)象具有Error集合。<

45、;/p><p>　　●Command 對(duì)象具有Parameter集合。</p><p>　　●Recordset 對(duì)象具有Fields集合。</p><p>　　●Connection、Command、Recordset、Field 對(duì)象都具有Property集合。</p><p><b>　　9、Event</b><

46、/p><p>　　事件模型是異步操作的基礎(chǔ)，這是 ADO 2.0 引進(jìn)的新特性。</p><p>　　2.3 SQLServer2000數(shù)據(jù)庫</p><p>　　2.3.1 SQLServer2000的簡介</p><p>　　SQL Server2000 是一個(gè)關(guān)系數(shù)據(jù)庫管理系統(tǒng)，它最初是由Microsoft Sybase 和Ashton-T

47、ate三家公司共同開發(fā)的，于1988 年推出了第一個(gè)OS/2 版本[14]。在Windows NT 推出后，Microsoft與Sybase 在SQL Server 的開發(fā)上就分道揚(yáng)鑣了。Microsoft 將SQL Server 移植到Windows NT系統(tǒng)上，專注于開發(fā)推廣SQL Server 的Windows NT 版本；Sybase 則較專注于SQL Server在UNIX 操作系統(tǒng)上的應(yīng)用。在本書中介紹的是Microsoft

48、 SQL Server 以后簡稱為SQL Server或MS SQL Server[15]。</p><p>　　2.3.2 SQL Server2000 的特性包括 </p><p>　　1、Internet 集成。SQL Server 2000 數(shù)據(jù)庫引擎提供完整的XML 支持。它還具有構(gòu)成最大的Web 站點(diǎn)的數(shù)據(jù)存儲(chǔ)組件所需的可伸縮性、可用性和安全功能。SQL Server 2000

49、 程序設(shè)計(jì)模型與 Windows DNA 構(gòu)架集成，用以開發(fā) Web 應(yīng)用程序，并且SQL Server 2000 支持 English Query 和 Microsoft 搜索服務(wù)等功能，在Web 應(yīng)用程序中包含了用戶友好的查詢和強(qiáng)大的搜索功能[16]。 </p><p>　　2、可伸縮性和可用性。同一個(gè)數(shù)據(jù)庫引擎可以在不同的平臺(tái)上使用，從運(yùn)行 Microsoft Windows&reg; 98 的便攜

50、式電腦，到運(yùn)行 Microsoft Windows 2000 數(shù)據(jù)中心版的大型多處理器服務(wù)器。SQL Server 2000 企業(yè)版支持聯(lián)合服務(wù)器、索引視圖和大型內(nèi)存支持等功能，使其得以升級(jí)到最大 Web 站點(diǎn)所需的性能級(jí)別[17]。 </p><p>　　3、企業(yè)級(jí)數(shù)據(jù)庫功能。SQL Server 2000 關(guān)系數(shù)據(jù)庫引擎支持當(dāng)今苛刻的數(shù)據(jù)處理環(huán)境所需的功能。數(shù)據(jù)庫引擎充分保護(hù)數(shù)據(jù)完整性，同時(shí)將管理上千個(gè)并發(fā)修

51、改數(shù)據(jù)庫的用戶的開銷減到最小[18]。SQL Server 2000 分布式查詢使您得以引用來自不同數(shù)據(jù)源的數(shù)據(jù)，就好象這些數(shù)據(jù)是 SQL Server 2000 數(shù)據(jù)庫的一部分，同時(shí)分布式事務(wù)支持充分保護(hù)任何分布式數(shù)據(jù)更新的完整性。復(fù)制同樣使您得以維護(hù)多個(gè)數(shù)據(jù)復(fù)本，同時(shí)確保單獨(dú)的數(shù)據(jù)復(fù)本保持同步。可將一組數(shù)據(jù)復(fù)制到多個(gè)移動(dòng)的脫接用戶，使這些用戶自主地工作，然后將他們所做的修改合并回發(fā)布服務(wù)器[19]。 </p><

52、p>　　4、易于安裝、部署和使用。 SQL Server 2000 中包括一系列管理和開發(fā)工具，這些工具可改進(jìn)在多個(gè)站點(diǎn)上安裝、部署、管理和使用 SQL Server2000 的過程。SQL Server 2000 還支持基于標(biāo)準(zhǔn)的、與 Windows DNA 集成的程序設(shè)計(jì)模型，使 SQL Server 數(shù)據(jù)庫和數(shù)據(jù)倉庫的使用成為生成強(qiáng)大的可伸縮系統(tǒng)的無縫部分[20]。這些功能使您得以快速交付 SQL Server 應(yīng)用程序，使

53、客戶只需最少的安裝和管理開銷即可實(shí)現(xiàn)這些應(yīng)用程序。</p><p>　　2.4 應(yīng)用平臺(tái)配置</p><p><b>　　1、硬件配置</b></p><p>　　服務(wù)器：PC Server系列及其他品牌服務(wù)器。</p><p>　　工作站：586以上、32MB以上內(nèi)存、1.2GB以上硬件空間。</p>&

54、lt;p><b>　　2、軟件配置</b></p><p>　　操作系統(tǒng)：Windowes2000，WindowesNT。</p><p>　　數(shù)據(jù)庫系統(tǒng)：SQL Server2000。</p><p>　　開發(fā)工具：Microsoft Visual Basic6.0。</p><p>　　第3章 系統(tǒng)總體設(shè)計(jì)&l

55、t;/p><p><b>　　3.1需求分析</b></p><p>　　3.1.1用戶需求分析</p><p>　　隨著人民生活水平的提高，洗浴在服務(wù)行業(yè)中占有越來越重要的地位。努力在當(dāng)前服務(wù)行業(yè)日趨激烈的競爭中脫穎而出，已成為每位經(jīng)營者所追求的目標(biāo)。</p><p>　　經(jīng)過多年發(fā)展，洗浴管理已經(jīng)逐漸由定性管理，進(jìn)入到重

56、視定量管理的科學(xué)階段。眾所周知，在定量管理的具體實(shí)現(xiàn)方法和手段方面，最有效的工具就是電腦管理。傳統(tǒng)的手工操作管理存在著許多無法避免的問題，例如：</p><p>　　人工計(jì)算帳單金額容易出現(xiàn)差錯(cuò)。</p><p>　　收銀工作中跑單、漏單、偷錢現(xiàn)象普遍。</p><p>　　個(gè)別服務(wù)員作弊、改單情形時(shí)有發(fā)生。</p><p>　　客人消費(fèi)單據(jù)

57、難以保存和查詢。</p><p>　　無法對(duì)大量營業(yè)數(shù)據(jù)進(jìn)行統(tǒng)計(jì)分析。</p><p>　　無法準(zhǔn)確迅速的解決折扣和優(yōu)惠等問題。</p><p>　　無法準(zhǔn)確滿足客人的個(gè)性需求。</p><p>　　無論收銀還是財(cái)務(wù)都需要大量的人力物力。</p><p>　　洗浴中心管理系統(tǒng)就是針對(duì)以上問題設(shè)計(jì)的，實(shí)現(xiàn)了日常洗浴營運(yùn)的

58、自動(dòng)管理。</p><p><b>　　3.1.2系統(tǒng)概述</b></p><p><b>　　1、系統(tǒng)介紹</b></p><p>　　洗浴管理系統(tǒng)是一套功能強(qiáng)大而又簡便實(shí)用的洗浴管理軟件，包括基本信息管理、前臺(tái)信息管理、后臺(tái)信息管理、總經(jīng)理查詢、系統(tǒng)維護(hù)、系統(tǒng)幫助等六大功能模塊，實(shí)現(xiàn)了洗浴行業(yè)日常營運(yùn)的全面自動(dòng)管理，是

59、洗浴行業(yè)進(jìn)行電腦信息化管理的理想選擇。</p><p><b>　　2、系統(tǒng)目標(biāo)</b></p><p>　　本管理系統(tǒng)參照了大量的同類軟件，并進(jìn)行了細(xì)致徹底的研究，旨在用計(jì)算機(jī)系統(tǒng)來完成基本能完成的工作，保持很高的靈活性和易操作性，并實(shí)現(xiàn)了各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。</p><p><b>　　3.2系統(tǒng)功能設(shè)計(jì)</b

60、></p><p>　　在系統(tǒng)功能分析的基礎(chǔ)上，系統(tǒng)分為6大模20個(gè)完整子模塊，系統(tǒng)功能結(jié)構(gòu)（如圖3-1所示）</p><p>　　圖3-1系統(tǒng)功能結(jié)構(gòu)圖</p><p>　　3.3數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)</p><p>　　3.3.1數(shù)據(jù)庫設(shè)計(jì)原則</p><p><b>　　1、一致性原則</b>

61、;</p><p>　　對(duì)信息進(jìn)行統(tǒng)一、系統(tǒng)的分析與設(shè)計(jì)，協(xié)調(diào)好各數(shù)據(jù)源，做到“數(shù)出一門”、“算法統(tǒng)一”、“度量一致”。保證系統(tǒng)數(shù)據(jù)的一致性和有效性。</p><p><b>　　2、完整性原則</b></p><p>　　數(shù)據(jù)庫的完整性是指數(shù)據(jù)的正確性和相容性。要防止合法用戶使用數(shù)據(jù)庫時(shí)向數(shù)據(jù)庫中加入不合法語義的數(shù)據(jù)。DBMS提供一種機(jī)制來檢

62、查數(shù)據(jù)庫中的數(shù)據(jù)來維護(hù)數(shù)據(jù)庫的完整性。這些加在數(shù)據(jù)庫數(shù)據(jù)之上的語義約束條件稱為數(shù)據(jù)庫完整性約束條件，是完整性控制機(jī)制的核心。</p><p><b>　　3、安全性原則</b></p><p>　　數(shù)據(jù)庫的安全性是指保護(hù)數(shù)據(jù)，防止非法用戶使用數(shù)據(jù)庫，包括惡意破壞數(shù)據(jù)和越權(quán)存取數(shù)據(jù)，安全性措施的防范對(duì)象是非法用戶和非法操作。</p><p>&l

63、t;b>　　4、可伸縮性原則</b></p><p>　　數(shù)據(jù)庫結(jié)構(gòu)的設(shè)計(jì)應(yīng)充分考慮到應(yīng)用環(huán)境的改變和新需求的出現(xiàn)，一般不會(huì)推翻原設(shè)計(jì)，不會(huì)對(duì)現(xiàn)有的應(yīng)用程序和數(shù)據(jù)造成大的影響，而只是在原設(shè)計(jì)基礎(chǔ)上作一些擴(kuò)充即可滿足要求。</p><p><b>　　5、規(guī)范化</b></p><p>　　數(shù)據(jù)庫的設(shè)計(jì)應(yīng)遵循規(guī)范化理論，規(guī)范化程

64、度過低的關(guān)系，可能會(huì)存在插入、刪除異常、修改復(fù)雜、數(shù)據(jù)冗余等問題，解決的方法就是對(duì)關(guān)系模式進(jìn)行分解或合并(范化)，轉(zhuǎn)換成高級(jí)范式。但也應(yīng)當(dāng)注意到，并不是規(guī)范化程度越高的關(guān)系就越好。所以，在具體應(yīng)用時(shí)，到底規(guī)范化進(jìn)行到什么程度需要權(quán)衡利弊。一般而言，做到第三范式(3NF)就足夠了。</p><p>　　3.3.2洗浴中心管理系統(tǒng)的實(shí)體-聯(lián)系模型 （如圖3-2所示）</p><p>　　圖3-

65、2 E-R圖</p><p>　　3.3.3系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)</p><p>　　下面一一介紹各個(gè)數(shù)據(jù)庫表的結(jié)構(gòu)</p><p><b>　　1、包房信息表</b></p><p>　　使用戶更清晰直接的了解包房信息，該系統(tǒng)在此表中設(shè)定了包房編號(hào)、類型、容納人數(shù)、價(jià)格等。</p><p><

66、b>　　表3-1包房信息表</b></p><p><b>　　2、箱號(hào)信息表</b></p><p>　　箱號(hào)信息表主要包括記錄號(hào)、箱號(hào)、所在大廳、狀態(tài)。</p><p><b>　　表3-2 箱號(hào)信息</b></p><p><b>　　3、包房臨時(shí)消費(fèi)表</b

67、></p><p>　　包房臨時(shí)消費(fèi)表記錄顧客的消費(fèi)情況。記錄房間號(hào)、包房名稱、價(jià)格、消費(fèi)時(shí)間、消費(fèi)金額等。</p><p>　　表3-3 包房臨時(shí)消費(fèi)信息</p><p><b>　　4、臨時(shí)消費(fèi)信息表</b></p><p>　　臨時(shí)消費(fèi)信息表主要記錄項(xiàng)目編號(hào)、名稱、單位、單價(jià)、消費(fèi)狀態(tài)、折扣、金額小計(jì)等。&l

68、t;/p><p>　　表3-4 臨時(shí)消費(fèi)信息表</p><p><b>　　5、日消費(fèi)單據(jù)表</b></p><p>　　日消費(fèi)單據(jù)表記錄顧客一天的消費(fèi)情況。主要有主客箱號(hào)、主客姓名、結(jié)賬方式、打折、減免金額、減免原因、實(shí)繳金額等。</p><p>　　表3-5 日消費(fèi)單據(jù)表</p><p><

69、b>　　6、消費(fèi)項(xiàng)目價(jià)格表</b></p><p>　　消費(fèi)項(xiàng)目價(jià)格表主要記錄項(xiàng)目的名稱、單價(jià)等。這也是顧客最關(guān)心的一項(xiàng)。</p><p>　　表3-6 消費(fèi)項(xiàng)目價(jià)格表</p><p><b>　　7、月營業(yè)信息表</b></p><p>　　月營業(yè)信息表主要用于總經(jīng)理查看某些月的盈利情況。</p

70、><p>　　表3-7月營業(yè)信息表</p><p><b>　　第4章 系統(tǒng)的實(shí)現(xiàn)</b></p><p>　　4.1數(shù)據(jù)庫連接功能</p><p>　　為了節(jié)省系統(tǒng)資源，在系統(tǒng)中新建一個(gè)Modulel模塊，該模塊主要用于連接數(shù)據(jù)庫和表，從而避免了程序中重復(fù)性地定義數(shù)據(jù)連接和數(shù)據(jù)集對(duì)象。Modulel模塊中的完整代碼如下：&

71、lt;/p><p>　　Public Function ESQL(ByVal sql As String) As ADODB.Recordset </p><p>　　Dim cnn As ADODB.Connection</p><p>　　Dim rs As ADODB.Recordset</p><p>　　Set cnn = New A

72、DODB.Connection</p><p>　　cnn.Open StrCnn()</p><p>　　Set rs = New ADODB.Recordset</p><p>　　rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic</p><p>　　Set ESQL = rs&

73、lt;/p><p>　　End Function</p><p>　　Public Function StrCnn()</p><p>　　StrCnn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=XYGLXT"</p><p&g

74、t;　　StrCnn = "Provider=SQLOLEDB.1;Password=ecc;Persist Security " _</p><p>　　& "Info=True;User ID=sa;Initial Catalog=XYGLXT;Server=(local)"</p><p>　　End Function</p>

75、;<p>　　4.2系統(tǒng)登錄窗體和主界面</p><p>　　根據(jù)系統(tǒng)登錄窗體，可以選擇不同的登錄身份，具有不同的操作權(quán)限。在單擊“確認(rèn)”按鈕時(shí)，判斷操作員及其密碼，如果該操作員存在，那么允許登錄系統(tǒng)，并為系統(tǒng)管理員分配權(quán)限。否則，提示用戶“密碼錯(cuò)誤”，如果輸入三次錯(cuò)誤的密碼，那么系統(tǒng)將自動(dòng)退出。登錄窗體（如圖4-1所示）</p><p>　　圖4-1 系統(tǒng)登錄窗體運(yùn)行結(jié)果&

76、lt;/p><p>　　當(dāng)輸入的密碼正確時(shí)，可進(jìn)入主界面（如圖4-2所示）</p><p>　　圖4-2 系統(tǒng)主窗體</p><p>　　單擊系統(tǒng)登錄窗體上“確認(rèn)”按鈕的click事件代碼：</p><p>　　Private Sub comyes_Click()</p><p>　　Dim MESSAGE As Stri

77、ng </p><p>　　Adodc1.RecordSource = "select * from 權(quán)限信息表 where 操作員名稱 = '" + Trim(czy.Caption) + "'"</p><p>　　Adodc1.Refresh</p><p>　　If czy.Caption <

78、;> "" And Text1.Text = Trim(Adodc1.Recordset.Fields("密碼")) Then</p><p>　　If Adodc1.Recordset.Fields("基本信息管理") = 0 Then frm_main.jbxxgl.Enabled = True Else frm_main.jbxxgl.Ena

79、bled = False</p><p>　　If Adodc1.Recordset.Fields("前臺(tái)信息管理") = 0 Then</p><p>　　frm_main.qtxxgl.Enabled = True</p><p>　　frm_main.Toolbar1.Buttons(1).Enabled = True</p>

80、<p>　　frm_main.Toolbar1.Buttons(3).Enabled = True</p><p>　　frm_main.Toolbar1.Buttons(5).Enabled = True</p><p><b>　　Else</b></p><p>　　frm_main.qtxxgl.Enabled = Fals

81、e</p><p>　　frm_main.Toolbar1.Buttons(1).Enabled = False</p><p>　　frm_main.Toolbar1.Buttons(3).Enabled = False</p><p>　　frm_main.Toolbar1.Buttons(5).Enabled = False</p><p&

82、gt;<b>　　End If</b></p><p>　　If Adodc1.Recordset.Fields("后臺(tái)信息管理") = 0 Then</p><p>　　frm_main.htxxgl.Enabled = True</p><p>　　frm_main.Toolbar1.Buttons(7).Enabled

83、 = True</p><p><b>　　Else</b></p><p>　　frm_main.htxxgl.Enabled = False</p><p>　　frm_main.Toolbar1.Buttons(7).Enabled = False</p><p><b>　　End If</b&g

84、t;</p><p>　　If Adodc1.Recordset.Fields("經(jīng)理查詢系統(tǒng)") = 0 Then</p><p>　　frm_main.jlcxxt.Enabled = True</p><p>　　frm_main.Toolbar1.Buttons(9).Enabled = True</p><p>

85、　　frm_main.Toolbar1.Buttons(11).Enabled = True</p><p><b>　　Else</b></p><p>　　frm_main.jlcxxt.Enabled = False</p><p>　　frm_main.Toolbar1.Buttons(9).Enabled = False</p&

86、gt;<p>　　frm_main.Toolbar1.Buttons(11).Enabled = False</p><p><b>　　End If</b></p><p>　　If Adodc1.Recordset.Fields("系統(tǒng)維護(hù)") = 0 Then</p><p>　　frm_main.xtw

87、h.Enabled = True</p><p>　　frm_main.Toolbar1.Buttons(13).Enabled = True</p><p><b>　　Else</b></p><p>　　frm_main.xtwh.Enabled = False</p><p>　　frm_main.Toolbar

88、1.Buttons(13).Enabled = False</p><p><b>　　End If</b></p><p>　　Load frm_main</p><p>　　frm_main.Show</p><p>　　frm_main.St1.Panels(3).Text = czy.Caption <

89、;/p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>　　If TIM = 3 Then</p><p>　　MESSAGE = MsgBox("密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢!", 0, "系統(tǒng)提示&quo

90、t;)</p><p>　　If MESSAGE = vbOK Then End</p><p><b>　　End If</b></p><p>　　If czy.Caption = "" Then</p><p>　　MsgBox "請(qǐng)選擇操作員!", , "系統(tǒng)提示

91、"</p><p>　　ListView1.SetFocus </p><p><b>　　Else</b></p><p>　　If Text1.Text <> Adodc1.Recordset.Fields("密碼") Then</p><p>　　MsgBox &qu

92、ot;密碼錯(cuò)誤,請(qǐng)重新輸入密碼!", , "系統(tǒng)提示"</p><p>　　TIM = TIM + 1 </p><p>　　Text1.SetFocus </p><p><b>　　End If</b></p><p><b>　　End If</b>

93、</p><p><b>　　End If </b></p><p><b>　　4.3總臺(tái)服務(wù)管理</b></p><p>　　總臺(tái)服務(wù)管理窗體主要實(shí)現(xiàn)客人領(lǐng)牌、服務(wù)登記、查看消費(fèi)信息箱號(hào)的調(diào)換等功能。在總臺(tái)服務(wù)管理中設(shè)計(jì)一個(gè)View_List過程，以顯示箱號(hào)及狀態(tài)，主要通過ListView控件的ListItems集合中

94、的Add方法實(shí)現(xiàn)。另外，在程序中還使用了SQL語句中的SUM函數(shù)，主要用于統(tǒng)計(jì)箱號(hào)空閑、使用和損壞的個(gè)數(shù)。（如圖4-3所示）</p><p>　　圖4-3總臺(tái)服務(wù)管理窗體</p><p><b>　　服務(wù)登記</b></p><p>　　通過總臺(tái)服務(wù)管理窗體中“服務(wù)登記”工具欄按鈕調(diào)出“客人消費(fèi)等級(jí)按鈕”?？腿讼M(fèi)登記窗口主要實(shí)現(xiàn)客人消費(fèi)項(xiàng)目的

95、添加。并且為了使用戶更加方便快捷的選擇服務(wù)項(xiàng)目，當(dāng)用戶輸入服務(wù)項(xiàng)目的簡稱后，程序?qū)⒃凇跋M(fèi)項(xiàng)目價(jià)格表”。中模糊檢索服務(wù)項(xiàng)目信息。單擊“登記”按鈕的代碼如下：</p><p>　　Private Sub Cmddj_Click()</p><p>　　Text1.Width = MS1.CellWidth: Text1.Height = MS1.CellHeight</p>&

96、lt;p>　　Text1.Left = MS1.CellLeft + MS1.Left: Text1.Top = MS1.CellTop + MS1.Top</p><p>　　MS1.Enabled = True</p><p>　　Cmdbc.Enabled = True: Cmdqx.Enabled = True</p><p>　　Cmddj.Enab

97、led = False: Text1.Enabled = True</p><p>　　Text1.Visible = True: Text1.SetFocus</p><p>　　For i = 1 To 101</p><p>　　For j = 1 To 9</p><p>　　MS1.TextMatrix(i, j) = "

98、"</p><p><b>　　Next j</b></p><p><b>　　Next i</b></p><p>　　pz.Text = "0"</p><p>　　hjsl.Text = "0"</p><p>　　h

99、jje.Text = "0"</p><p><b>　　End Sub</b></p><p>　　圖4-4客人消費(fèi)登記窗口</p><p><b>　　2、換箱</b></p><p>　　單擊總臺(tái)服務(wù)管理窗口的“換箱”按鈕，顧客可以方便的更改箱號(hào)，前提箱號(hào)為空閑。更新原箱號(hào)

100、和現(xiàn)在箱號(hào)的代碼如下：</p><p>　　Private Sub CmdEnd_Click()</p><p>　　On Error Resume Next</p><p>　　myval = MsgBox("確認(rèn)將[" & Labydt.Caption & " " & Labyxh.Caption

101、& "箱號(hào)]的客人轉(zhuǎn)到[" & Trim(Combo1.Text) & " " & Trim(Adodc1.Recordset.Fields("箱號(hào)")) & "箱號(hào)]嗎？", vbYesNo)</p><p>　　If myval = vbYes Then </p>&l

102、t;p>　　txtSQL = "update 臨時(shí)消費(fèi)信息表 set 箱號(hào)='" + Trim(Adodc1.Recordset.Fields("箱號(hào)")) + "',所在大廳 ='" + Trim(Combo1.Text) + "'where 箱號(hào)='" + Trim(Labyxh.Caption) + &qu

103、ot;'and 所在大廳 ='" + Trim(Labydt.Caption) + "'"</p><p>　　Set rs1 = ESQL(txtSQL)</p><p>　　txtSQL = "update 包房消費(fèi)臨時(shí)表 set 箱號(hào)='" + Trim(Adodc1.Recordset.Fields(

104、"箱號(hào)")) + "',所在大廳 ='" + Trim(Combo1.Text) + "'where 箱號(hào)='" + Trim(Labyxh.Caption) + "'and 所在大廳 ='" + Trim(Labydt.Caption) + "'"</p><p

105、>　　Set rs2 = ESQL(txtSQL)</p><p>　　Adodc1.Recordset.Fields("狀態(tài)") = "使用" Adodc1.Recordset.Update </p><p>　　Adodc1.RecordSource = "select * from 箱號(hào)信息表 where 箱

106、號(hào) ='" + Trim(Labyxh.Caption) + "'and 所在大廳 ='" + Trim(Labydt.Caption) + "'"</p><p>　　Adodc1.Refresh</p><p>　　Adodc1.Recordset.Fields("狀態(tài)") = &qu

107、ot;空閑" Adodc1.Recordset.Update </p><p>　　main_qtgl_ztfwgl.Enabled = True</p><p>　　main_qtgl_ztfwgl.ListView1.ListItems.Clear</p><p>　　Call main_qtgl_ztfwgl.View_List

108、 </p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p>　　圖4-5換箱窗體的運(yùn)行結(jié)果</p><p><b>　　3、統(tǒng)計(jì)查詢</b></p><p>　　客人消費(fèi)統(tǒng)計(jì)查詢窗

109、口主要實(shí)現(xiàn)客人點(diǎn)單、贈(zèng)單和所有金額的統(tǒng)計(jì)，其主</p><p>　　要使用sum函數(shù)。在總臺(tái)服務(wù)管理窗體中的ToolBar控件的ButtonClick事件下添加如下代碼：</p><p>　　Case Is = "tj" </p><p>　　If Adodc1.Recordset.RecordCount > 0 And Adodc1

110、.Recordset.Fields("狀態(tài)") = "使用" Then</p><p>　　main_qtgl_ztfwgl_tj.Adodc1.RecordSource = "select * from 臨時(shí)消費(fèi)信息表 where 箱號(hào)='" + Trim(list) + "'and 所在大廳 ='" + T

111、rim(Combo1.Text) + "'"</p><p>　　main_qtgl_ztfwgl_tj.Adodc1.Refresh</p><p>　　If main_qtgl_ztfwgl_tj.Adodc1.Recordset.RecordCount > 0 Then</p><p>　　Load main_qtgl_ztf

112、wgl_tj</p><p>　　main_qtgl_ztfwgl_tj.Show</p><p>　　main_qtgl_ztfwgl_tj.Adodc1.RecordSource = "select 消費(fèi)狀態(tài) as 狀態(tài)1,sum(金額小計(jì))as 金額合計(jì) from 臨時(shí)消費(fèi)信息表 where 箱號(hào)='" + Trim(list) + "'

113、and 所在大廳 ='" + Trim(Combo1.Text) + "'group by 消費(fèi)狀態(tài) order by 消費(fèi)狀態(tài)"</p><p>　　main_qtgl_ztfwgl_tj.Adodc1.Refresh</p><p>　　If main_qtgl_ztfwgl_tj.Adodc1.Recordset.RecordCount

114、> 1 Then</p><p>　　main_qtgl_ztfwgl_tj.Labdd.Caption = Format(Val(main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)), "0.00")</p><p>　　If main_qtgl_ztfwgl_tj.Adodc1.Recordset.EOF = Fals

115、e Then main_qtgl_ztfwgl_tj.Adodc1.Recordset.MoveNext</p><p>　　main_qtgl_ztfwgl_tj.Labzd.Caption = Format(Val(main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)), "0.00")</p><p>　　ElseIf ma

116、in_qtgl_ztfwgl_tj.Adodc1.Recordset.RecordCount = 1 Then</p><p>　　If main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(0) = "贈(zèng)單" Then</p><p>　　main_qtgl_ztfwgl_tj.Labzd.Caption = Format(Val(m

117、ain_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)), "0.00")</p><p>　　main_qtgl_ztfwgl_tj.Labdd.Caption = "0.00"</p><p><b>　　Else</b></p><p>　　main_qtgl_z

118、tfwgl_tj.Labdd.Caption = Format(Val(main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)), "0.00")</p><p>　　main_qtgl_ztfwgl_tj.Labzd.Caption = "0.00"</p><p><b>　　End If</

119、b></p><p><b>　　End If</b></p><p>　　main_qtgl_ztfwgl_tj.Labzj.Caption = Format(Val(main_qtgl_ztfwgl_tj.Labdd.Caption) + Val(main_qtgl_ztfwgl_tj.Labzd.Caption), "0.00")<

120、;/p><p>　　main_qtgl_ztfwgl.Enabled = False</p><p><b>　　Else</b></p><p>　　MsgBox ("對(duì)不起，此箱號(hào)的客人未消費(fèi)，請(qǐng)重新選擇！")</p><p><b>　　End If</b></p>