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

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

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

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

4、ualBasic6.0作為開發(fā)工具而開發(fā)出來的洗浴信息管理系統(tǒng)。整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，該洗浴管理信息系統(tǒng)的功能主要突出服務(wù)項目、包房信息、箱包管理以及收銀結(jié)賬管理。經(jīng)過實際測試證明，本文所設(shè)計的洗浴中心信息管理系統(tǒng)可以用于洗浴信息管理方面的需要。 論文主要介紹了本課題的選題背景，課題來源，所要完成的功能和開發(fā)的全過程。重點的說明了系統(tǒng)設(shè)計的重點、設(shè)計思想、數(shù)據(jù)庫的設(shè)計和系統(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的特點4</p><p>　　2.2 ADO技術(shù)5</p><p>　　2.2.1 ADO特點概述5</p><p>　　2.2.2 ADO 的對象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)用平臺配置8</p><p>　　第3章 系統(tǒng)總體設(shè)計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è)計10</p><p>　　3.3數(shù)據(jù)庫結(jié)構(gòu)設(shè)計10</p><p>　　3.3.1數(shù)據(jù)庫設(shè)計原則10</p><p>　　3.3.2洗浴中心管理系統(tǒng)的實體-聯(lián)系模型

17、11</p><p>　　3.3.3系統(tǒng)數(shù)據(jù)庫設(shè)計11</p><p>　　第4章 系統(tǒng)的實現(xiàn)16</p><p>　　4.1數(shù)據(jù)庫連接功能16</p><p>　　4.2系統(tǒng)登錄窗體和主界面16</p><p>　　4.3總臺服務(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>　　參考文獻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>　　隨著人民生活水平的不斷提高，餐飲、酒吧、洗浴等消費產(chǎn)業(yè)也得到迅猛發(fā)展，但由于洗浴行業(yè)具有服務(wù)多樣、價格多變、折扣靈活以及報表復雜等特點，并且隨著消費業(yè)務(wù)量的不斷增大，內(nèi)部人員的增加，靠以往手工的管

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

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

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

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

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

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

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

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

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

29、isualBasic6.0作為開發(fā)平臺，對系統(tǒng)整體主要功能做了描述。在系統(tǒng)功能分析的基礎(chǔ)上，系統(tǒng)共分為基本信息管理、前臺信息管理、后臺信息管理、總經(jīng)理查詢、系統(tǒng)維護、系統(tǒng)幫助和系統(tǒng)退出七功能大模塊。</p><p>　　第四章：系統(tǒng)的實現(xiàn)。論述了數(shù)據(jù)庫安裝、權(quán)限設(shè)置，完成了系統(tǒng)調(diào)試，并進行了簡要總結(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ū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序[1]。它簡單易學、效率高，且功能強大可以與 Windows 專業(yè)開發(fā)工具SDK相媲美

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

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

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

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

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

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

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

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

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

40、構(gòu)造記錄集對象?？傊呀?jīng)沒有必要去關(guān)心對象的構(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 的對象</p><p>　　1、Connection</p><p>　　用于表示和數(shù)據(jù)源的連接，以及處理一些命令和事務(wù)。</p><p><

42、;b>　　2、Command</b></p><p>　　用于執(zhí)行某些命令來進行諸如查詢、修改數(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>　　用于對傳遞給數(shù)據(jù)源的命令賦參數(shù)值。</p><p><b>　　6、Error</b></p><p>　　用于承載所產(chǎn)生所無的詳細信息。</p><p>　　7、P

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

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

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

47、ate三家公司共同開發(fā)的，于1988 年推出了第一個OS/2 版本[14]。在Windows NT 推出后，Microsoft與Sybase 在SQL Server 的開發(fā)上就分道揚鑣了。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 站點的數(shù)據(jù)存儲組件所需的可伸縮性、可用性和安全功能。SQL Server 2000

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

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

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

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

53、客戶只需最少的安裝和管理開銷即可實現(xiàn)這些應(yīng)用程序。</p><p>　　2.4 應(yīng)用平臺配置</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è)計&l

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

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

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

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

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

60、></p><p>　　在系統(tǒng)功能分析的基礎(chǔ)上，系統(tǒng)分為6大模20個完整子模塊，系統(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è)計</p><p>　　3.3.1數(shù)據(jù)庫設(shè)計原則</p><p><b>　　1、一致性原則</b>

61、;</p><p>　　對信息進行統(tǒng)一、系統(tǒng)的分析與設(shè)計，協(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ù)據(jù)庫中加入不合法語義的數(shù)據(jù)。DBMS提供一種機制來檢

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

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

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

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

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

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

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

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

70、><p>　　表3-7月營業(yè)信息表</p><p><b>　　第4章 系統(tǒng)的實現(xiàn)</b></p><p>　　4.1數(shù)據(jù)庫連接功能</p><p>　　為了節(jié)省系統(tǒng)資源，在系統(tǒng)中新建一個Modulel模塊，該模塊主要用于連接數(shù)據(jù)庫和表，從而避免了程序中重復性地定義數(shù)據(jù)連接和數(shù)據(jù)集對象。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)限。在單擊“確認”按鈕時，判斷操作員及其密碼，如果該操作員存在，那么允許登錄系統(tǒng)，并為系統(tǒng)管理員分配權(quán)限。否則，提示用戶“密碼錯誤”，如果輸入三次錯誤的密碼，那么系統(tǒng)將自動退出。登錄窗體（如圖4-1所示）</p><p>　　圖4-1 系統(tǒng)登錄窗體運行結(jié)果&

76、lt;/p><p>　　當輸入的密碼正確時，可進入主界面（如圖4-2所示）</p><p>　　圖4-2 系統(tǒng)主窗體</p><p>　　單擊系統(tǒng)登錄窗體上“確認”按鈕的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("前臺信息管理") = 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("后臺信息管理") = 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)維護") = 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("密碼輸入錯誤,請向系統(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 "請選擇操作員!", , "系統(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;密碼錯誤,請重新輸入密碼!", , "系統(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總臺服務(wù)管理</b></p><p>　　總臺服務(wù)管理窗體主要實現(xiàn)客人領(lǐng)牌、服務(wù)登記、查看消費信息箱號的調(diào)換等功能。在總臺服務(wù)管理中設(shè)計一個View_List過程，以顯示箱號及狀態(tài)，主要通過ListView控件的ListItems集合中

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

95、添加。并且為了使用戶更加方便快捷的選擇服務(wù)項目，當用戶輸入服務(wù)項目的簡稱后，程序?qū)⒃凇跋M項目價格表”。中模糊檢索服務(wù)項目信息。單擊“登記”按鈕的代碼如下：</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客人消費登記窗口</p><p><b>　　2、換箱</b></p><p>　　單擊總臺服務(wù)管理窗口的“換箱”按鈕，顧客可以方便的更改箱號，前提箱號為空閑。更新原箱號

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

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

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

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

104、"箱號")) + "',所在大廳 ='" + Trim(Combo1.Text) + "'where 箱號='" + 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 箱號信息表 where 箱

106、號 ='" + 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換箱窗體的運行結(jié)果</p><p><b>　　3、統(tǒng)計查詢</b></p><p>　　客人消費統(tǒng)計查詢窗

109、口主要實現(xiàn)客人點單、贈單和所有金額的統(tǒng)計，其主</p><p>　　要使用sum函數(shù)。在總臺服務(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 臨時消費信息表 where 箱號='" + 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 消費狀態(tài) as 狀態(tài)1,sum(金額小計)as 金額合計 from 臨時消費信息表 where 箱號='" + Trim(list) + "'

113、and 所在大廳 ='" + Trim(Combo1.Text) + "'group by 消費狀態(tài) order by 消費狀態(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) = "贈單" 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 ("對不起，此箱號的客人未消費，請重新選擇！")</p><p><b>　　End If</b></p>