基于VB的洗浴中心管理系統(tǒng)設(shè)計與實現(xiàn)畢業(yè)論文終稿

《基于VB的洗浴中心管理系統(tǒng)設(shè)計與實現(xiàn)畢業(yè)論文終稿》由會員分享，可在線閱讀，更多相關(guān)《基于VB的洗浴中心管理系統(tǒng)設(shè)計與實現(xiàn)畢業(yè)論文終稿（36頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、 基于VB的洗浴中心管理系統(tǒng)設(shè)計與實現(xiàn) 學(xué)士學(xué)位論文作者聲明 本人聲明：本人呈交的學(xué)位論文是本人在導(dǎo)師指導(dǎo)下取得的研究成果。對前人與其他人員對本文的啟發(fā)和貢獻已在論文中作出了明確的聲明，并表示了意。論文中除了特別加以標(biāo)注和致的地方外，不包含其他人和其它機構(gòu)已經(jīng)發(fā)表或者撰寫過的研究成果。 本人同意學(xué)校根據(jù)《學(xué)位條例暫行實施辦法》等有關(guān)規(guī)定保留本人學(xué)位論文并向國家有關(guān)部門或資料庫送交論文或者電子版，允許論文被查閱和借閱；本人授權(quán)棗莊學(xué)院可以將本人學(xué)位論文的全部或者部分容編入有關(guān)數(shù)據(jù)庫進行檢索，可以采用影印、縮印或者其

2、它復(fù)制手段和匯編學(xué)位論文（論文在解密后應(yīng)遵守此規(guī)定）。 作者簽名： 日期：年月日 31 / 36 摘 要 本文論述了洗浴管理信息系統(tǒng)開發(fā)的全過程。從分析洗浴流程的基本情況入手，進行系統(tǒng)的可行性分析，通過分析日常業(yè)務(wù)，了解洗浴管理的特點和存在的問題，在此基礎(chǔ)上，進行詳細(xì)的系統(tǒng)分析，得出系統(tǒng)功能結(jié)構(gòu)圖，再通過系統(tǒng)設(shè)計，系統(tǒng)實施等環(huán)節(jié)，最終開發(fā)出能夠滿足洗浴業(yè)務(wù)需要的洗浴管理信息系統(tǒng)。 經(jīng)過實際的需求分析，采用VisualBasic6.0作為開發(fā)工具而開發(fā)出來的洗浴信息管理系統(tǒng)。整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，該洗浴管理信

3、息系統(tǒng)的功能主要突出服務(wù)項目、包房信息、箱包管理以與收銀結(jié)賬管理。經(jīng)過實際測試證明，本文所設(shè)計的洗浴中心信息管理系統(tǒng)可以用于洗浴信息管理方面的需要。 論文主要介紹了本課題的選題背景，課題來源，所要完成的功能和開發(fā)的全過程。重點的說明了系統(tǒng)設(shè)計的重點、設(shè)計思想、數(shù)據(jù)庫的設(shè)計和系統(tǒng)的解決方案。 [關(guān)鍵詞]VisualBasic6.0;SQL Server2000;洗浴管理系統(tǒng);查詢;結(jié)算 Abstract This paper discusses the management information system bathing the en

4、tire process. 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 systems analysis, Then the system functional structure, and through the sys

5、tem design, system implementation, etc., eventually developed to meet the operational requirements of the bath bathing management information systems. After the actual demand analysis using VisualBasic6.0 as developed as bathing information management system EC. With the entire system from the sim

6、ple、friendly interface、flexible、practical and safety requirements. 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 management in

7、formation system can be used for bathing information management needs. This is on the topic of the washing that background, the task sources, to be accomplished by the development and function of the whole process Note the emphasis of the system design focus, design, database design and system solu

8、tions. [Keywords]VisualBasic6.0;SQL Server2000; bathroom management system; inquiries; settlement 目 錄 第1章緒論1 1.1引言1 1.1.1洗浴中心管理系統(tǒng)的研究背景1 1.1.2國外研究現(xiàn)狀1 1.1.3洗浴中心管理系統(tǒng)的研究目的與意義2 1.2論文結(jié)構(gòu)2 第2章 系統(tǒng)開發(fā)技術(shù)介紹4 2.1 VisualBasic6.0編程語言4 2.1.1 VisualBasic6.0的簡介4 2.1.2 VisualBasic6.0的特點4

9、2.2 ADO技術(shù)5 2.2.1 ADO特點概述5 2.2.2 ADO 的對象6 2.3 SQLServer2000數(shù)據(jù)庫7 2.3.1 SQLServer2000的簡介7 2.3.2 SQL Server2000 的特性包括7 2.4 應(yīng)用平臺配置8 第3章系統(tǒng)總體設(shè)計9 3.1需求分析9 3.1.1用戶需求分析9 3.1.2系統(tǒng)概述9 3.2系統(tǒng)功能設(shè)計10 3.3數(shù)據(jù)庫結(jié)構(gòu)設(shè)計10 3.3.1數(shù)據(jù)庫設(shè)計原則10 3.3.2洗浴中心管理系統(tǒng)的實體-聯(lián)系模型11 3.3.3系統(tǒng)數(shù)據(jù)庫設(shè)計11 第4章系統(tǒng)的實現(xiàn)16 4.1數(shù)據(jù)庫連接功能16 4.2系統(tǒng)登錄窗

10、體和主界面16 4.3總臺服務(wù)管理19 4.4結(jié)賬收銀管理25 4.5月結(jié)算管理26 第5章總結(jié)29 參考文獻30 致31 第1章 緒論 1.1引言 1.1.1洗浴中心管理系統(tǒng)的研究背景 隨著人民生活水平的不斷提高，餐飲、酒吧、洗浴等消費產(chǎn)業(yè)也得到迅猛發(fā)展，但由于洗浴行業(yè)具有服務(wù)多樣、價格多變、折扣靈活以與報表復(fù)雜等特點，并且隨著消費業(yè)務(wù)量的不斷增大，部人員的增加，靠以往手工的管理手段進行管理，已不能適應(yīng)企業(yè)的發(fā)展。這就迫切需要一個能緊密配合企

11、業(yè)進行數(shù)據(jù)管理、決策分析的現(xiàn)金管理方式，把科學(xué)的管理思想、營銷技術(shù)全面融入其中，為企業(yè)規(guī)業(yè)務(wù)流程，實現(xiàn)模塊化發(fā)展奠定良好的基礎(chǔ)。信息化管理無疑是最有效的管理手段之一。利用先進的信息技術(shù)，可以幫助洗浴企業(yè)拋棄傳統(tǒng)的管理模式，突破制約企業(yè)發(fā)展的瓶頸，使企業(yè)的運營目標(biāo)具有更強的可操作性，最大限度地實現(xiàn)企業(yè)資源的合理利用，以期達(dá)到企業(yè)效率最高化，企業(yè)利潤最大化。 通過對多家洗浴企業(yè)進行深入細(xì)致的調(diào)查和分析，做出的一套標(biāo)準(zhǔn)化的洗浴管理系統(tǒng)。它適用于中、小型洗浴行業(yè)，可以幫助洗浴企業(yè)處理日常工作業(yè)務(wù)，規(guī)模管理和操作流程，有效的實現(xiàn)了企業(yè)的現(xiàn)代化管理，全面提升了企業(yè)的市場競爭力和整體形象。 1.1.2國

12、外研究現(xiàn)狀 隨著人們休閑娛樂需求的提高，洗浴中心的功能的也越來越完善，正朝著同其他公共建筑結(jié)合組成建筑群落的方向發(fā)展。如建于公元3世紀(jì)的古羅馬卡瑞卡拉浴場就在附近設(shè)有演講廳和圖書館以與其他文化休閑場所。就像古羅馬的浴場一樣，隨著時代的發(fā)展，人們需求的變化，洗浴中心也相應(yīng)的隨著變化而變化。 我國百姓的消費有所提高，國門大開，人們接受外來的新事物，閑暇時間的增加使人們開始考慮休閑生活的意義和質(zhì)量。同時在我國市場需求多樣化、個性化和時尚化的推動下，作為休閑娛樂建筑的一種——洗浴建筑，應(yīng)時代要求誕生了。一個小小的澡堂子變成了集多功能于一體的康體娛樂建筑。這就需要一個功能完善的洗浴管理系統(tǒng)作支撐。

13、 如今，在國外洗浴管理系統(tǒng)已經(jīng)在世界各個發(fā)達(dá)國家廣泛應(yīng)用了，而且應(yīng)用圍越來越廣，功能越來越完善，操作越來越簡單。但在國應(yīng)用的還比較少，傳統(tǒng)洗浴企業(yè)的日常運作還是靠人工管理，從服務(wù)項目入庫到客人點單，再到結(jié)賬基本上由人工完成記錄，這樣做不僅耗費人力資源而且容易導(dǎo)致記錄丟失或重復(fù)等錯誤，客人結(jié)賬由手工記錄，人力耗費大，客人等待時間長，管理效率低下，這就迫切需要標(biāo)準(zhǔn)的、高效率的計算機管理方式引導(dǎo)其發(fā)展,通過計算機管理該企業(yè)的日常運作，給管理者以決策參考的模型，來不斷完善管理水平，提高工作效率。 1.1.3洗浴中心管理系統(tǒng)的研究目的與意義 系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)各種信息的系統(tǒng)化、規(guī)化和自動化。具

14、體能實現(xiàn)對包房信息和員工信息的添加、修改、查詢，箱號生成、修改以與自動搜索引擎，在總臺實現(xiàn)顧客領(lǐng)牌、顧客服務(wù)、查看包房信息、統(tǒng)計顧客消費、包房維修禁用和恢復(fù)使用、大廳和包房的隨時調(diào)換，以與當(dāng)日結(jié)算查詢、月營業(yè)分析等功能。這不僅幫助洗浴企業(yè)拋棄傳統(tǒng)的管理模式，也突破制約企業(yè)發(fā)展的瓶頸，使企業(yè)的運營目標(biāo)具有更強的可操作性，最大限度地實現(xiàn)企業(yè)資源的合理利用，以期達(dá)到企業(yè)效率最高化，企業(yè)利潤最大化。 隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認(rèn)識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。越來越多的管理人員意識到信息管理的重要性。作為計算機應(yīng)用的一部分,使用計算機

15、對洗浴企業(yè)信息進行管理,具有手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、性好、壽命長、成本低等。這些優(yōu)點能夠極提高信息管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理與世界接軌的重要條件 。 課題以城市洗浴中心為背景，通過研究當(dāng)前洗浴中心的管理現(xiàn)狀、存在問題以與現(xiàn)實需求，設(shè)計一個針對洗浴管理工作的管理信息系統(tǒng)。該系統(tǒng)能夠提供較為完備的功能，對于提高工作效率、加快洗浴管理的自動化具有較為重要的意義。 1.2論文結(jié)構(gòu) 本文介紹了洗浴中心管理系統(tǒng)的開發(fā)前景、需求分析、各功能模塊的設(shè)計和主要功能實現(xiàn)。具體來講，主要包括以下幾個方面： 第一章：需求調(diào)研與分析。通過對當(dāng)前洗浴中

16、心調(diào)查研究，全面了解了洗浴中心日常業(yè)務(wù)流程，為構(gòu)建洗浴中心管理系統(tǒng)提出科學(xué)的需求分析。 第二章：系統(tǒng)開發(fā)技術(shù)介紹。是對VisualBasic6.0、SQL Server2000和ADO技術(shù)的特點進行了簡單的描述。 第三章：功能模塊框架設(shè)計。應(yīng)用VisualBasic6.0作為開發(fā)平臺，對系統(tǒng)整體主要功能做了描述。在系統(tǒng)功能分析的基礎(chǔ)上，系統(tǒng)共分為基本信息管理、前臺信息管理、后臺信息管理、總經(jīng)理查詢、系統(tǒng)維護、系統(tǒng)幫助和系統(tǒng)退出七功能大模塊。 第四章：系統(tǒng)的實現(xiàn)。論述了數(shù)據(jù)庫安裝、權(quán)限設(shè)置，完成了系統(tǒng)調(diào)試，并進行了簡要總結(jié)。

17、 第2章 系統(tǒng)開發(fā)技術(shù)介紹 2.1VisualBasic6.0編程語言 2.1.1VisualBasic6.0的簡介 Visual Basic是由美國微軟公司1991年開發(fā)的一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序[1]。它簡單易學(xué)、效率高，且功能強大可以與 Windows 專業(yè)開發(fā)工具SDK相媲美。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用Windows部的廣泛應(yīng)用程序接口（API）函數(shù)，動態(tài)庫（DLL）、對象的與嵌入（OLE）、開放式數(shù)據(jù)連接

18、（ODBC）等技術(shù)，可以高效、快速地開發(fā)Windows環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)[2]。 2.1.2VisualBasic6.0的特點 1、面向?qū)ο? 　　VisualBasic6.0采用了面向?qū)ο笤O(shè)計思想，它基本思路是把復(fù)雜的設(shè)計問題分解為多個能夠完成獨立功能且相對簡單的對象集合。所謂“對象”就是個可操作實體如窗體、窗體中命令按鈕、標(biāo)簽、文本框等，面向?qū)ο缶幊叹褪侵赋绦騿T可根據(jù)界面設(shè)計要求直接在界面上設(shè)計出窗口、菜單、按鈕等類型對象并為每個對象設(shè)置屬性。 2、事件驅(qū)動　 　　在Windows環(huán)境下是以事件驅(qū)動方式運行每個對象的，都能響應(yīng)多個區(qū)別事件。每個事件都能驅(qū)動

19、段代碼事件過程，該代碼決定了對象功能。通常稱這種機制為事件驅(qū)動的編程機制。可由用戶操作觸發(fā)也可以由系統(tǒng)或應(yīng)用觸發(fā)，例如單擊個命令按鈕就觸發(fā)了按鈕Click(單擊)事件該事件中代碼就會被執(zhí)行，若用戶未進行任何操作(未觸發(fā)事件)則就處于等待狀態(tài)整個應(yīng)用就是由彼此獨立事件過程構(gòu)成。 3、軟件Software集成式開發(fā) 　VisualBasic6.0為編程提供了個集成開發(fā)環(huán)境在這個環(huán)境中編程者可設(shè)計界面、編寫代碼、調(diào)試直至把應(yīng)用編譯成可在Windows中運行可執(zhí)行文件并為它生成安裝VisualBasic6.0集成開發(fā)環(huán)境為編程者提供了很大方便[3]。 4、強大數(shù)據(jù)庫訪問功能 VisualBa

20、sic6.0利用數(shù)據(jù)Control控件可以訪問多種數(shù)據(jù)VisualBasic6.0提供ADOControl控件不但可以用最少代碼實現(xiàn)數(shù)據(jù)庫操作和控制，也可以取代DataControl控件和RDOControl控件[4]。 5、支持對象和嵌入技術(shù) VisualBasic6.0核心是對對象和嵌入(OLE)技術(shù)支持它是訪問所有對象種思路方法利用OLE技術(shù)能夠開發(fā)集聲音、圖像、動畫、字處理、Web等對象于一體的功能強大的軟件[5]。 6、網(wǎng)絡(luò)功能 VisualBasic6.0提供了DltTML(Dynamic}tTML)設(shè)計工具利用這種技術(shù)可以動態(tài)創(chuàng)建和編輯Web頁面使用戶在VisualBas

21、ic6.0中開發(fā)多功能網(wǎng)絡(luò)應(yīng)用軟件Software[6]。 7、多個應(yīng)用向?qū)? VisualBasic6.0提供了多種向?qū)鐟?yīng)用向?qū)?、安裝向?qū)?、?shù)據(jù)對象向?qū)Ш蛿?shù)據(jù)窗體向?qū)?，通過它們可以快速地創(chuàng)建區(qū)別類型、區(qū)別功能應(yīng)用。 8、聯(lián)機幫助功能 　在VisualBasic6.0中利用幫助菜單和F1功能鍵用戶可隨時方便地得到所需要幫助信息VisualBasic6.0幫助窗口中顯示了有關(guān)舉例代碼通過復(fù)制、粘貼操作可獲取大量舉例代碼為用戶學(xué)習(xí)和使用提供方便[7]。 2.2 ADO技術(shù) 2.2.1 ADO特點概述 1、易于使用，可以說這是ADO最重要的特點之一。 ADO 是高層數(shù)據(jù)庫訪問技術(shù)，相

22、對與ODBC來說，具有面性對象的特點[8]。同時，在 ADO 對象結(jié)構(gòu)中，對象與對象之間的層次結(jié)構(gòu)不適非常明顯，這會給編寫數(shù)據(jù)庫程序帶來更多的便利。比如，在應(yīng)用程序中如果要使用記錄集對象，不一定要先建立連接、會話對象，如果需要就可以直接構(gòu)造記錄集對象?？傊呀?jīng)沒有必要去關(guān)心對象的構(gòu)造層次和構(gòu)造順序了[9]。 2、可以訪問多種數(shù)據(jù)源。和 OLE DB 一樣，使應(yīng)用程序具有很好的通用性和靈活性[10]。 3、訪問數(shù)據(jù)源效率高。 4、方便的Web應(yīng)用。ADO 可以以 ActiveX 控件的形式出現(xiàn)，這就大大方便了Web應(yīng)用程序的編制[11]。 5、技術(shù)編程接口豐富。 ADO 支持 Visu

23、al C++、Visual Basic、VBS、JS等[12]。 2.2.2 ADO 的對象 1、Connection 用于表示和數(shù)據(jù)源的連接，以與處理一些命令和事務(wù)。 2、Command 用于執(zhí)行某些命令來進行諸如查詢、修改數(shù)據(jù)庫結(jié)構(gòu)的操作。 3、Recordset 用于處理數(shù)據(jù)源的表格集，它是在表中修改、檢索數(shù)據(jù)的最主要的方法[13]。 4、Field 描述數(shù)據(jù)集中的列信息。 5、Parameter 用于對傳遞給數(shù)據(jù)源的命令賦參數(shù)值。 6、Error 用于承載所產(chǎn)生所無的詳細(xì)信息。 7、Property 通過屬性，每個ADO對象借此來讓用戶描述和控制自身的行為

24、。 8、Set 集合是一種可以方便的包含其他特殊類型對象的對象類型。 ADO 提供4種類型的集合： ●Connection 對象具有Error集合。 ●Command 對象具有Parameter集合。 ●Recordset 對象具有Fields集合。 ●Connection、Command、Recordset、Field 對象都具有Property集合。 9、Event 事件模型是異步操作的基礎(chǔ)，這是 ADO 2.0 引進的新特性。 2.3 SQLServer2000數(shù)據(jù)庫 2.3.1 SQLServer2000的簡介 SQL Server2000 是一個關(guān)系數(shù)據(jù)庫管理系

25、統(tǒng)，它最初是由Microsoft Sybase 和Ashton-Tate三家公司共同開發(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 SQL Server 以后簡稱為SQL Server或MS SQL Server[15]。

26、 2.3.2SQL Server2000 的特性包括 1、Internet 集成。SQL Server 2000 數(shù)據(jù)庫引擎提供完整的XML 支持。它還具有構(gòu)成最大的Web 站點的數(shù)據(jù)存儲組件所需的可伸縮性、可用性和安全功能。SQL Server 2000 程序設(shè)計模型與 Windows DNA 構(gòu)架集成，用以開發(fā) Web 應(yīng)用程序，并且SQL Server 2000 支持 English Query 和 Microsoft 搜索服務(wù)等功能，在Web 應(yīng)用程序中包含了用戶友好的查詢和強大的搜索功能[16]。 2、可伸縮性和可用性。同一個數(shù)據(jù)庫引擎可以在不同的平臺上使用，從運行 Micro

27、soft Windows® 98 的便攜式電腦，到運行 Microsoft Windows 2000 數(shù)據(jù)中心版的大型多處理器服務(wù)器。SQL Server 2000 企業(yè)版支持聯(lián)合服務(wù)器、索引視圖和大型存支持等功能，使其得以升級到最大 Web 站點所需的性能級別[17]。 3、企業(yè)級數(shù)據(jù)庫功能。SQL Server 2000 關(guān)系數(shù)據(jù)庫引擎支持當(dāng)今苛刻的數(shù)據(jù)處理環(huán)境所需的功能。數(shù)據(jù)庫引擎充分保護數(shù)據(jù)完整性，同時將管理上千個并發(fā)修改數(shù)據(jù)庫的用戶的開銷減到最小[18]。SQL Server 2000 分布式查詢使您得以引用來自不同數(shù)據(jù)源的數(shù)據(jù)，就好象這些數(shù)據(jù)是 SQL Server 2

28、000 數(shù)據(jù)庫的一部分，同時分布式事務(wù)支持充分保護任何分布式數(shù)據(jù)更新的完整性。復(fù)制同樣使您得以維護多個數(shù)據(jù)復(fù)本，同時確保單獨的數(shù)據(jù)復(fù)本保持同步?？蓪⒁唤M數(shù)據(jù)復(fù)制到多個移動的脫接用戶，使這些用戶自主地工作，然后將他們所做的修改合并回發(fā)布服務(wù)器[19]。 4、易于安裝、部署和使用。 SQL Server 2000 中包括一系列管理和開發(fā)工具，這些工具可改進在多個站點上安裝、部署、管理和使用 SQL Server2000 的過程。SQL Server 2000 還支持基于標(biāo)準(zhǔn)的、與 Windows DNA 集成的程序設(shè)計模型，使 SQL Server 數(shù)據(jù)庫和數(shù)據(jù)倉庫的使用成為生成強大的可伸縮系

29、統(tǒng)的無縫部分[20]。這些功能使您得以快速交付 SQL Server 應(yīng)用程序，使客戶只需最少的安裝和管理開銷即可實現(xiàn)這些應(yīng)用程序。 2.4 應(yīng)用平臺配置 1、硬件配置 服務(wù)器：PC Server系列與其他品牌服務(wù)器。 工作站：586以上、32MB以上存、1.2GB以上硬件空間。 2、軟件配置 操作系統(tǒng)：Windowes2000，WindowesNT。 數(shù)據(jù)庫系統(tǒng)：SQL Server2000。 開發(fā)工具：Microsoft Visual Basic6.0。 第3章 系統(tǒng)總體設(shè)計 3.1需求分析 3.1.1用戶需求分析

30、 隨著人民生活水平的提高，洗浴在服務(wù)行業(yè)中占有越來越重要的地位。努力在當(dāng)前服務(wù)行業(yè)日趨激烈的競爭中脫穎而出，已成為每位經(jīng)營者所追求的目標(biāo)。 經(jīng)過多年發(fā)展，洗浴管理已經(jīng)逐漸由定性管理，進入到重視定量管理的科學(xué)階段。眾所周知，在定量管理的具體實現(xiàn)方法和手段方面，最有效的工具就是電腦管理。傳統(tǒng)的手工操作管理存在著許多無法避免的問題，例如： l 人工計算帳單金額容易出現(xiàn)差錯。 l 收銀工作中跑單、漏單、偷錢現(xiàn)象普遍。 l 個別服務(wù)員作弊、改單情形時有發(fā)生。 l 客人消費單據(jù)難以保存和查詢。 l 無法對大量營業(yè)數(shù)據(jù)進行統(tǒng)計分析。 l 無法準(zhǔn)確迅速的解決折扣和優(yōu)惠等問題。 l 無法準(zhǔn)確滿足

31、客人的個性需求。 l 無論收銀還是財務(wù)都需要大量的人力物力。 洗浴中心管理系統(tǒng)就是針對以上問題設(shè)計的，實現(xiàn)了日常洗浴營運的自動管理。 3.1.2系統(tǒng)概述 1、系統(tǒng)介紹 洗浴管理系統(tǒng)是一套功能強大而又簡便實用的洗浴管理軟件，包括基本信息管理、前臺信息管理、后臺信息管理、總經(jīng)理查詢、系統(tǒng)維護、系統(tǒng)幫助等六大功能模塊，實現(xiàn)了洗浴行業(yè)日常營運的全面自動管理，是洗浴行業(yè)進行電腦信息化管理的理想選擇。 2、系統(tǒng)目標(biāo) 本管理系統(tǒng)參照了大量的同類軟件，并進行了細(xì)致徹底的研究，旨在用計算機系統(tǒng)來完成基本能完成的工作，保持很高的靈活性和易操作性，并實現(xiàn)了各種信息的系統(tǒng)化、規(guī)化和自動化。 3.2

32、系統(tǒng)功能設(shè)計 在系統(tǒng)功能分析的基礎(chǔ)上，系統(tǒng)分為6大模20個完整子模塊，系統(tǒng)功能結(jié)構(gòu)（如圖3-1所示） 圖3-1系統(tǒng)功能結(jié)構(gòu)圖 3.3數(shù)據(jù)庫結(jié)構(gòu)設(shè)計 3.3.1數(shù)據(jù)庫設(shè)計原則 1、一致性原則 對信息進行統(tǒng)一、系統(tǒng)的分析與設(shè)計，協(xié)調(diào)好各數(shù)據(jù)源，做到“數(shù)出一門”、“算法統(tǒng)一”、“度量一致”。保證系統(tǒng)數(shù)據(jù)的一致性和有效性。 2、完整性原則 數(shù)據(jù)庫的完整性是指數(shù)據(jù)的正確性和相容性。要防止合法用戶使用數(shù)據(jù)庫時向數(shù)據(jù)庫中加入不合法語義的數(shù)據(jù)。DBMS提供一種機制來檢查數(shù)據(jù)庫中的數(shù)據(jù)來維護數(shù)據(jù)庫的完整性。這些加在數(shù)據(jù)庫數(shù)據(jù)之上的語義約束條件稱為數(shù)據(jù)庫完整性約束條件，是完整性控制機制的核心。

33、 3、安全性原則 數(shù)據(jù)庫的安全性是指保護數(shù)據(jù)，防止非法用戶使用數(shù)據(jù)庫，包括惡意破壞數(shù)據(jù)和越權(quán)存取數(shù)據(jù)，安全性措施的防對象是非法用戶和非法操作。 4、可伸縮性原則 數(shù)據(jù)庫結(jié)構(gòu)的設(shè)計應(yīng)充分考慮到應(yīng)用環(huán)境的改變和新需求的出現(xiàn)，一般不會推翻原設(shè)計，不會對現(xiàn)有的應(yīng)用程序和數(shù)據(jù)造成大的影響，而只是在原設(shè)計基礎(chǔ)上作一些擴充即可滿足要求。 5、規(guī)化 數(shù)據(jù)庫的設(shè)計應(yīng)遵循規(guī)化理論，規(guī)化程度過低的關(guān)系，可能會存在插入、刪除異常、修改復(fù)雜、數(shù)據(jù)冗余等問題，解決的方法就是對關(guān)系模式進行分解或合并(化)，轉(zhuǎn)換成高級式。但也應(yīng)當(dāng)注意到，并不是規(guī)化程度越高的關(guān)系就越好。所以，在具體應(yīng)用時，到底規(guī)化進行到什么程度需

34、要權(quán)衡利弊。一般而言，做到第三式(3NF)就足夠了。 3.3.2洗浴中心管理系統(tǒng)的實體-聯(lián)系模型 （如圖3-2所示） 圖3-2 E-R圖 3.3.3系統(tǒng)數(shù)據(jù)庫設(shè)計 下面一一介紹各個數(shù)據(jù)庫表的結(jié)構(gòu) 1、包房信息表 使用戶更清晰直接的了解包房信息，該系統(tǒng)在此表中設(shè)定了包房編號、類型、容納人數(shù)、價格等。 表3-1包房信息表 序號 字段名稱 數(shù)據(jù)類型 長度 1 編號 Varchar 4 2 樓層 Varchar 10 3 房間號 Varchar 30 4 包房名稱 Varchar 10 5 包房說明 Varchar 50 6 所屬

35、部門 Varchar 8 7 包房類型 Varchar 8 8 容納人數(shù) int 4 9 狀態(tài) Varchar 25 10 現(xiàn)容納人數(shù) int 10 11 包房價格 money 8 12 消費單位 Varchar 8 13 分鐘描述 int 8 2、箱號信息表 箱號信息表主要包括記錄號、箱號、所在大廳、狀態(tài)。 表3-2 箱號信息 序號 字段名稱 數(shù)據(jù)類型 長度 1 記錄號 Int 4 2 箱號 Varchar 10 3 所在大廳 Varchar 30 4 狀態(tài) Varchar 10

36、 3、包房臨時消費表 包房臨時消費表記錄顧客的消費情況。記錄房間號、包房名稱、價格、消費時間、消費金額等。 表3-3 包房臨時消費信息 序號 字段名稱 數(shù)據(jù)類型 長度 1 記錄號 Int 4 2 房間號 Varchar 10 3 包房價格 money 8 4 包房名稱 Varchar 50 5 分鐘描述 Char 10 6 箱號 Varchar 10 7 所在大廳 Varchar 30 8 進入時間 datetime 8 9 結(jié)束時間 datetime 8 10 消費時間 datetime 4 11

37、 消費金額 money 8 4、臨時消費信息表 臨時消費信息表主要記錄項目編號、名稱、單位、單價、消費狀態(tài)、折扣、金額小計等。 表3-4 臨時消費信息表 序號 字段名稱 數(shù)據(jù)類型 長度 1 記錄號 Int 4 2 箱號 Varchar 10 3 所在大廳 Varchar 30 4 項目編號 Varchar 10 5 名稱 Varchar 50 6 單位 Varchar 8 7 單價 Money 8 8 數(shù)量 Int 4 9 簡稱 Varchar 25 10 消費狀態(tài) Varchar 10 11

38、 隱藏狀態(tài) Varchar 8 12 登記時間 Datetime 8 13 折扣 Fload 8 14 金額小計 Money 8 5、日消費單據(jù)表 日消費單據(jù)表記錄顧客一天的消費情況。主要有主客箱號、主客、結(jié)賬方式、打折、減免金額、減免原因、實繳金額等。 表3-5 日消費單據(jù)表 序號 字段名稱 數(shù)據(jù)類型 長度 1 記錄號 Int 4 2 消費單據(jù)號 Varchar 20 3 主客箱號 Varchar 10 4 主客 Varchar 16 5 登記時間 Datetime 8 6 結(jié)賬日期 Datetime

39、 8 7 結(jié)賬方式 Varchar 10 8 總計消費 Money 8 9 打折 Fload 8 10 實繳金額 Money 8 11 找零 Money 8 12 減免金額 Money 8 13 減免原因 Varchar 50 14 人數(shù) Int 4 6、消費項目價格表 消費項目價格表主要記錄項目的名稱、單價等。這也是顧客最關(guān)心的一項。 表3-6 消費項目價格表 序號 字段名稱 數(shù)據(jù)類型 長度 1 記錄號 Int 4 2 項目編號 Varchar 10 3 簡稱 Varchar 25 4

40、名稱 Varchar 50 5 單位 Varchar 10 6 單價 Money 8 7 說明 Varchar 100 7、月營業(yè)信息表 月營業(yè)信息表主要用于總經(jīng)理查看某些月的盈利情況。 表3-7月營業(yè)信息表 序號 字段名稱 數(shù)據(jù)類型 長度 1 月份 Char 8 2 月份營業(yè)額 Money 8 第4章 系統(tǒng)的實現(xiàn) 4.1數(shù)據(jù)庫連接功能 為了節(jié)省系統(tǒng)資源，在系統(tǒng)中新建一個Modulel模塊，該模塊主要用于連接數(shù)據(jù)庫和表，從而

41、避免了程序中重復(fù)性地定義數(shù)據(jù)連接和數(shù)據(jù)集對象。Modulel模塊中的完整代碼如下： Public Function ESQL(ByVal sql As String) As ADODB.Recordset Dimn As ADODB.Connection Dim rs As ADODB.Recordset Setn = New ADODB.Connection n.Open StrCnn() Set rs = New ADODB.Recordset rs.Open Trim(sql),n, adOpenKeyset, adLockOptimistic Set ES

42、QL = rs End Function Public Function StrCnn() StrCnn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=XYGLXT" StrCnn = "Provider=SQLOLEDB.1;Password=ecc;Persist Security " _ & "Info=True;User ID=sa;Initial Catalog=XYGLXT;Server=(local)" End Function 4

43、.2系統(tǒng)登錄窗體和主界面 根據(jù)系統(tǒng)登錄窗體，可以選擇不同的登錄身份，具有不同的操作權(quán)限。在單擊“確認(rèn)”按鈕時，判斷操作員與其密碼，如果該操作員存在，那么允許登錄系統(tǒng)，并為系統(tǒng)管理員分配權(quán)限。否則，提示用戶“密碼錯誤”，如果輸入三次錯誤的密碼，那么系統(tǒng)將自動退出。登錄窗體（如圖4-1所示） 圖4-1 系統(tǒng)登錄窗體運行結(jié)果 當(dāng)輸入的密碼正確時，可進入主界面（如圖4-2所示） 圖4-2 系統(tǒng)主窗體 單擊系統(tǒng)登錄窗體上“確認(rèn)”按鈕的click事件代碼： Private Sub comyes_Click() Dim MESSAGE As String Adodc1.R

44、ecordSource = "select * from 權(quán)限信息表 where 操作員名稱 = '" + Trim(czy.Caption) + "'" Adodc1.Refresh If czy.Caption <> "" And Text1.Text = Trim(Adodc1.Recordset.Fields("密碼")) Then If Adodc1.Recordset.Fields("基本信息管理") = 0 Then frm_main.xxgl.Enabled = True Else frm_main.xxgl.Enabled = False If Adod

45、c1.Recordset.Fields("前臺信息管理") = 0 Then frm_main.qtxxgl.Enabled = True frm_main.Toolbar1.Buttons(1).Enabled = True frm_main.Toolbar1.Buttons(3).Enabled = True frm_main.Toolbar1.Buttons(5).Enabled = True Else frm_main.qtxxgl.Enabled = False frm_main.Toolbar1.Bu

46、ttons(1).Enabled = False frm_main.Toolbar1.Buttons(3).Enabled = False frm_main.Toolbar1.Buttons(5).Enabled = False End If If Adodc1.Recordset.Fields("后臺信息管理") = 0 Then frm_main.htxxgl.Enabled = True frm_main.Toolbar1.Buttons(7).Enabled = True Else frm_main.ht

47、xxgl.Enabled = False frm_main.Toolbar1.Buttons(7).Enabled = False End If If Adodc1.Recordset.Fields("經(jīng)理查詢系統(tǒng)") = 0 Then frm_main.jlcxxt.Enabled = True frm_main.Toolbar1.Buttons(9).Enabled = True frm_main.Toolbar1.Buttons(11).Enabled = True Else frm_main.jlcxxt

48、.Enabled = False frm_main.Toolbar1.Buttons(9).Enabled = False frm_main.Toolbar1.Buttons(11).Enabled = False End If If Adodc1.Recordset.Fields("系統(tǒng)維護") = 0 Then frm_main.xtwh.Enabled = True frm_main.Toolbar1.Buttons(13).Enabled = True Else frm_main.xtwh.Enabled

49、 = False frm_main.Toolbar1.Buttons(13).Enabled = False End If Load frm_main frm_main.Show frm_main.St1.Panels(3).Text = czy.Caption Unload Me Else If TIM = 3 Then MESSAGE = MsgBox("密碼輸入錯誤,請向系統(tǒng)管理員查詢!", 0, "系統(tǒng)提示") If MESSAGE = vbOK Then End End If If czy.Cap

50、tion = "" Then MsgBox "請選擇操作員!", , "系統(tǒng)提示" ListView1.SetFocus Else If Text1.Text <> Adodc1.Recordset.Fields("密碼") Then MsgBox "密碼錯誤,請重新輸入密碼!", , "系統(tǒng)提示" TIM = TIM + 1 Text1.SetFocus End If End If End If 4.3總臺服務(wù)管理 總臺服務(wù)管理窗體主要實現(xiàn)客人領(lǐng)牌、服務(wù)登記、查看消費信

51、息箱號的調(diào)換等功能。在總臺服務(wù)管理中設(shè)計一個View_List過程，以顯示箱號與狀態(tài)，主要通過ListView控件的ListItems集合中的Add方法實現(xiàn)。另外，在程序中還使用了SQL語句中的SUM函數(shù)，主要用于統(tǒng)計箱號空閑、使用和損壞的個數(shù)。（如圖4-3所示） 圖4-3總臺服務(wù)管理窗體 1、 服務(wù)登記 通過總臺服務(wù)管理窗體中“服務(wù)登記”工具欄按鈕調(diào)出“客人消費等級按鈕”?？腿讼M登記窗口主要實現(xiàn)客人消費項目的添加。并且為了使用戶更加方便快捷的選擇服務(wù)項目，當(dāng)用戶輸入服務(wù)項目的簡稱后，程序?qū)⒃凇跋M項目價格表”。中模糊檢索服務(wù)項目信息。單擊“登記”按鈕的代碼如下： Private

52、 Sub Cmddj_Click() Text1.Width = MS1.CellWidth: Text1.Height = MS1.CellHeight Text1.Left = MS1.CellLeft + MS1.Left: Text1.Top = MS1.CellTop + MS1.Top MS1.Enabled = True Cmdbc.Enabled = True: Cmdqx.Enabled = True Cmddj.Enabled = False: Text1.Enabled = True Text1.Visible = True: Text

53、1.SetFocus For i = 1 To 101 For j = 1 To 9 MS1.TextMatrix(i, j) = "" Next j Next i pz.Text = "0" hjsl.Text = "0" hjje.Text = "0" End Sub 圖4-4客人消費登記窗口 2、換箱 單擊總臺服務(wù)管理窗口的“換箱”按鈕，顧客可以方便的更改箱號，前提箱號為空閑。更新原箱號和現(xiàn)在箱號的代碼如下： Private Sub CmdEnd_Click() On Error Resum

54、e Next myval = MsgBox("確認(rèn)將[" & Labydt.Caption & " " & Labyxh.Caption & "箱號]的客人轉(zhuǎn)到[" & Trim(Combo1.Text) & " " & Trim(Adodc1.Recordset.Fields("箱號")) & "箱號]嗎？", vbYesNo) If myval = vbYes Then txtSQL = "update 臨時消費信息表 set 箱號='" + Trim(Adodc1.Recordset.Fields("箱號")) + "',所在大廳 ='" + Trim(Com

55、bo1.Text) + "'where 箱號='" + Trim(Labyxh.Caption) + "'and 所在大廳 ='" + Trim(Labydt.Caption) + "'" Set rs1 = ESQL(txtSQL) txtSQL = "update 包房消費臨時表 set 箱號='" + Trim(Adodc1.Recordset.Fields("箱號")) + "',所在大廳 ='" + Trim(Combo1.Text) + "'where 箱號='" + Trim(Labyxh.Caption) + "'and 所在大廳 ='" + Trim

56、(Labydt.Caption) + "'" Set rs2 = ESQL(txtSQL) Adodc1.Recordset.Fields("狀態(tài)") = "使用" Adodc1.Recordset.Update Adodc1.RecordSource = "select * from 箱號信息表 where 箱號 ='" + Trim(Labyxh.Caption) + "'and 所在大廳 ='" + Trim(Labydt.Caption) + "'" Adodc1.Refresh Adodc1.Recordset.

57、Fields("狀態(tài)") = "空閑" Adodc1.Recordset.Update main_qtgl_ztfwgl.Enabled = True main_qtgl_ztfwgl.ListView1.ListItems.Clear Call main_qtgl_ztfwgl.View_List Unload Me End If 圖4-5換箱窗體的運行結(jié)果 3、統(tǒng)計查詢 客人消費統(tǒng)計查詢窗口主要實現(xiàn)客人點單、贈單和所有金額的統(tǒng)計，其主 要使用sum函數(shù)。在總臺服務(wù)管理窗體中的ToolBar控件的ButtonCli

58、ck事件下添加如下代碼： Case Is = "tj" If Adodc1.Recordset.RecordCount > 0 And Adodc1.Recordset.Fields("狀態(tài)") = "使用" Then main_qtgl_ztfwgl_tj.Adodc1.RecordSource = "select * from 臨時消費信息表 where 箱號='" + Trim(list) + "'and 所在大廳 ='" + Trim(Combo1.Text) + "'" main_qtgl_ztfwgl_tj.Adodc1.

59、Refresh If main_qtgl_ztfwgl_tj.Adodc1.Recordset.RecordCount > 0 Then Load main_qtgl_ztfwgl_tj main_qtgl_ztfwgl_tj.Show main_qtgl_ztfwgl_tj.Adodc1.RecordSource = "select 消費狀態(tài) as 狀態(tài)1,sum(金額小計)as 金額合計 from 臨時消費信息表 where 箱號='" + Trim(list) + "'and 所在大廳 ='" + Trim(Combo1.Text)

60、 + "'group by 消費狀態(tài) order by 消費狀態(tài)" main_qtgl_ztfwgl_tj.Adodc1.Refresh If main_qtgl_ztfwgl_tj.Adodc1.Recordset.RecordCount > 1 Then main_qtgl_ztfwgl_tj.Labdd.Caption = Format(Val(main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)), "0.00") If main_qtgl_ztfwgl_tj.Adodc1.Recordset.

61、EOF = False Then main_qtgl_ztfwgl_tj.Adodc1.Recordset.MoveNext main_qtgl_ztfwgl_tj.Labzd.Caption = Format(Val(main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)), "0.00") ElseIf main_qtgl_ztfwgl_tj.Adodc1.Recordset.RecordCount = 1 Then If main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(0

62、) = "贈單" Then main_qtgl_ztfwgl_tj.Labzd.Caption = Format(Val(main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)), "0.00") main_qtgl_ztfwgl_tj.Labdd.Caption = "0.00" Else main_qtgl_ztfwgl_tj.Labdd.Caption = Format(Val(main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)), "0.00")

63、 main_qtgl_ztfwgl_tj.Labzd.Caption = "0.00" End If End If main_qtgl_ztfwgl_tj.Labzj.Caption = Format(Val(main_qtgl_ztfwgl_tj.Labdd.Caption) + Val(main_qtgl_ztfwgl_tj.Labzd.Caption), "0.00") main_qtgl_ztfwgl.Enabled = False Else MsgBox ("對不起，此箱號的客人未消費，請重新選擇

64、！") End If ElseIf Adodc1.Recordset.Fields("狀態(tài)") = "空閑" Then MsgBox "請先領(lǐng)牌！" ElseIf Adodc1.Recordset.Fields("狀態(tài)") = "損壞" Then MsgBox "您選的箱號已損壞，請重新選擇！" End If Case Is = "jy" If Adodc1.Recordset.RecordCount > 0 And Adodc1.Recordset.Fields("狀態(tài)") = "空閑" Then Adodc1.Records

65、et.Fields("狀態(tài)") = "損壞" Adodc1.Recordset.Update ListView1.ListItems.Clear Call View_List ElseIf Adodc1.Recordset.Fields("狀態(tài)") = "使用" Then MsgBox "您選的箱號正在使用，請重新選擇！" ElseIf Adodc1.Recordset.Fields("狀態(tài)") = "損壞" Then MsgBox "您選的箱號已損壞，請重新選擇！" End If Case Is = "hf"

66、If Adodc1.Recordset.RecordCount > 0 And Adodc1.Recordset.Fields("狀態(tài)") = "損壞" Then Adodc1.Recordset.Fields("狀態(tài)") = "空閑" Adodc1.Recordset.Update ListView1.ListItems.Clear Call View_List ElseIf Adodc1.Recordset.Fields("狀態(tài)") = "使用" Then MsgBox "您選的箱號正在使用，請重新選擇！" ElseIf Adodc1.Recordset.Fields("狀態(tài)") = "空閑" Then MsgBox "您選的箱號沒有損壞，請重新選擇！" End If 圖4-6消費統(tǒng)計窗體運行結(jié)果 4.4結(jié)賬收銀管理 結(jié)賬收銀管理主要實現(xiàn)普通結(jié)賬、免單結(jié)賬、箱號的禁止使用和恢復(fù)使用等功能，運行結(jié)果（如圖4－7所示） 圖4-7結(jié)賬收銀管理 4.5月結(jié)算管理 通過月結(jié)算管理窗口，洗