PAGEword文檔可自由復制編輯基于VB的洗浴中心管理系統設計與實現學士學位論文作者聲明本人聲明：本人呈交的學位論文是本人在導師指導下取得的研究成果。對前人及其他人員對本文的啟發和貢獻已在論文中作出了明確的聲明，并表示了謝意。論文中除了特別加以標注和致謝的地方外，不包含其他人和其它機構已經發表或者撰寫過的研究成果。本人同意學校根據《中華人民共和國學位條例暫行實施辦法》等有關規定保留本人學位論文并向國家有關部門或資料庫送交論文或者電子版，允許論文被查閱和借閱；本人授權棗莊學院可以將本人學位論文的全部或者部分內容編入有關數據庫進行檢索，可以采用影印、縮印或者其它復制手段和匯編學位論文（保密論文在解密后應遵守此規定）。作者簽名：日期：年月日word文檔可自由復制編輯摘要本文論述了洗浴管理信息系統開發的全過程。從分析洗浴流程的基本情況入手，進行系統的可行性分析，通過分析日常業務，了解洗浴管理的特點和存在的問題，在此基礎上，進行詳細的系統分析，得出系統功能結構圖，再通過系統設計，系統實施等環節，最終開發出能夠滿足洗浴業務需要的洗浴管理信息系統。

經過實際的需求分析，采用VisualBasic6.0作為開發工具而開發出來的洗浴信息管理系統。整個系統從符合操作簡便、界面友好、靈活、實用、安全的要求出發，該洗浴管理信息系統的功能主要突出服務項目、包房信息、箱包管理以及收銀結賬管理。經過實際測試證明，本文所設計的洗浴中心信息管理系統可以用于洗浴信息管理方面的需要。

論文主要介紹了本課題的選題背景，課題來源，所要完成的功能和開發的全過程。重點的說明了系統設計的重點、設計思想、數據庫的設計和系統的解決方案。

【關鍵詞】VisualBasic6.0;SQLServer2000;洗浴管理系統;查詢;結算AbstractThispaperdiscussesthemanagementinformationsystembathingtheentireprocess.Fromtheanalysisofthebasicbath,theauthorsconductedthefeasibilityanalysis,analysisofday-to-dayoperations.Bathmanagementtounderstandthecharacteristicsandtheproblemsonthisbasis,detailedsystemsanalysis,Thenthesystemfunctionalstructure,andthroughthesystemdesign,systemimplementation,etc.,eventuallydevelopedtomeettheoperationalrequirementsofthebathbathingmanagementinformationsystems.AftertheactualdemandanalysisusingVisualBasic6.0asdevelopedasbathinginformationmanagementsystemEC.Withtheentiresystemfromthesimple、friendlyinterface、flexible、practicalandsafetyrequirements.TheBathmanagementinformationsystemshighlightthemainfunctionofservices,cabinsinformation,luggagemanagementandtheclosureofthecashregistermanagement.Aftertestresults,Inthispaper,thebathcentermanagementinformationsystemcanbeusedforbathinginformationmanagementneeds.Thisisonthetopicofthewashingthatbackground,thetasksources,tobeaccomplishedbythedevelopmentandfunctionofthewholeprocessNotetheemphasisofthesystemdesignfocus,design,databasedesignandsystemsolutions.【Keywords】VisualBasic6.0;SQLServer2000;bathroommanagementsystem;inquiries;settlementword文檔可自由復制編輯目錄第1章緒論 11.1引言 11.1.1洗浴中心管理系統的研究背景 11.1.2國內外研究現狀 11.1.3洗浴中心管理系統的研究目的與意義 21.2論文結構 2第2章系統開發技術介紹 42.1VisualBasic6.0編程語言 42.1.1VisualBasic6.0的簡介 42.1.2VisualBasic6.0的特點 42.2ADO技術 52.2.1ADO特點概述 52.2.2ADO的對象 62.3SQLServer2000數據庫 72.3.1SQLServer2000的簡介 72.3.2SQLServer2000的特性包括 72.4應用平臺配置 8第3章系統總體設計 93.1需求分析 93.1.1用戶需求分析 93.1.2系統概述 93.2系統功能設計 103.3數據庫結構設計 103.3.1數據庫設計原則 103.3.2洗浴中心管理系統的實體-聯系模型 113.3.3系統數據庫設計 11第4章系統的實現 164.1數據庫連接功能 164.2系統登錄窗體和主界面 164.3總臺服務管理 194.4結賬收銀管理 254.5月結算管理 26第5章總結 29參考文獻 30致謝 31word文檔可自由復制編輯第1章緒論1.1引言1.1.1洗浴中心管理系統的研究背景隨著人民生活水平的不斷提高，餐飲、酒吧、洗浴等消費產業也得到迅猛發展，但由于洗浴行業具有服務多樣、價格多變、折扣靈活以及報表復雜等特點，并且隨著消費業務量的不斷增大，內部人員的增加，靠以往手工的管理手段進行管理，已不能適應企業的發展。這就迫切需要一個能緊密配合企業進行數據管理、決策分析的現金管理方式，把科學的管理思想、營銷技術全面融入其中，為企業規范業務流程，實現模塊化發展奠定良好的基礎。信息化管理無疑是最有效的管理手段之一。利用先進的信息技術，可以幫助洗浴企業拋棄傳統的管理模式，突破制約企業發展的瓶頸，使企業的運營目標具有更強的可操作性，最大限度地實現企業資源的合理利用，以期達到企業效率最高化，企業利潤最大化。通過對多家洗浴企業進行深入細致的調查和分析，做出的一套標準化的洗浴管理系統。它適用于中、小型洗浴行業，可以幫助洗浴企業處理日常工作業務，規模管理和操作流程，有效的實現了企業的現代化管理，全面提升了企業的市場競爭力和整體形象。1.1.2國內外研究現狀隨著人們休閑娛樂需求的提高，洗浴中心的功能的也越來越完善，正朝著同其他公共建筑結合組成建筑群落的方向發展。如建于公元3世紀的古羅馬卡瑞卡拉浴場就在附近設有演講廳和圖書館以及其他文化休閑場所。就像古羅馬的浴場一樣，隨著時代的發展，人們需求的變化，洗浴中心也相應的隨著變化而變化。我國百姓的消費有所提高，國門大開，人們接受外來的新事物，閑暇時間的增加使人們開始考慮休閑生活的意義和質量。同時在我國市場需求多樣化、個性化和時尚化的推動下，作為休閑娛樂建筑的一種——洗浴建筑，應時代要求誕生了。一個小小的澡堂子變成了集多功能于一體的康體娛樂建筑。這就需要一個功能完善的洗浴管理系統作支撐。如今，在國外洗浴管理系統已經在世界各個發達國家廣泛應用了，而且應用范圍越來越廣，功能越來越完善，操作越來越簡單。但在國內應用的還比較少，傳統洗浴企業的日常運作還是靠人工管理，從服務項目入庫到客人點單，再到結賬基本上由人工完成記錄，這樣做不僅耗費人力資源而且容易導致記錄丟失或重復等錯誤，客人結賬由手工記錄，人力耗費大，客人等待時間長，管理效率低下，這就迫切需要標準的、高效率的計算機管理方式引導其發展,通過計算機管理該企業的日常運作，給管理者以決策參考的模型，來不斷完善管理水平，提高工作效率。1.1.3洗浴中心管理系統的研究目的與意義系統開發的總體任務是實現各種信息的系統化、規范化和自動化。具體能實現對包房信息和員工信息的添加、修改、查詢，箱號生成、修改以及自動搜索引擎，在總臺實現顧客領牌、顧客服務、查看包房信息、統計顧客消費、包房維修禁用和恢復使用、大廳和包房的隨時調換，以及當日結算查詢、月營業分析等功能。這不僅幫助洗浴企業拋棄傳統的管理模式，也突破制約企業發展的瓶頸，使企業的運營目標具有更強的可操作性，最大限度地實現企業資源的合理利用，以期達到企業效率最高化，企業利潤最大化。隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發揮著越來越重要的作用。越來越多的管理人員意識到信息管理的重要性。作為計算機應用的一部分,使用計算機對洗浴企業信息進行管理,具有手工管理所無法比擬的優點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高信息管理的效率,也是企業的科學化、正規化管理與世界接軌的重要條件。課題以城市洗浴中心為背景，通過研究當前洗浴中心的管理現狀、存在問題以及現實需求，設計一個針對洗浴管理工作的管理信息系統。該系統能夠提供較為完備的功能，對于提高工作效率、加快洗浴管理的自動化具有較為重要的意義。1.2論文結構本文介紹了洗浴中心管理系統的開發前景、需求分析、各功能模塊的設計和主要功能實現。具體來講，主要包括以下幾個方面：第一章：需求調研與分析。通過對當前洗浴中心調查研究，全面了解了洗浴中心日常業務流程，為構建洗浴中心管理系統提出科學的需求分析。第二章：系統開發技術介紹。是對VisualBasic6.0、SQLServer2000和ADO技術的特點進行了簡單的描述。第三章：功能模塊框架設計。應用VisualBasic6.0作為開發平臺，對系統整體主要功能做了描述。在系統功能分析的基礎上，系統共分為基本信息管理、前臺信息管理、后臺信息管理、總經理查詢、系統維護、系統幫助和系統退出七功能大模塊。第四章：系統的實現。論述了數據庫安裝、權限設置，完成了系統調試，并進行了簡要總結。第2章系統開發技術介紹2.1VisualBasic6.0編程語言2.1.1VisualBasic6.0的簡介VisualBasic是由美國微軟公司1991年開發的一種可視化的、面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開發Windows環境下的各類應用程序[1]。它簡單易學、效率高，且功能強大可以與Windows專業開發工具SDK相媲美。在VisualBasic環境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用Windows內部的廣泛應用程序接口（API）函數，動態鏈接庫（DLL）、對象的鏈接與嵌入（OLE）、開放式數據連接（ODBC）等技術，可以高效、快速地開發Windows環境下功能強大、圖形界面豐富的應用軟件系統[2]。2.1.2VisualBasic6.0的特點1、面向對象VisualBasic6.0采用了面向對象設計思想，它基本思路是把復雜的設計問題分解為多個能夠完成獨立功能且相對簡單的對象集合。所謂“對象”就是個可操作實體如窗體、窗體中命令按鈕、標簽、文本框等，面向對象編程就是指程序員可根據界面設計要求直接在界面上設計出窗口、菜單、按鈕等類型對象并為每個對象設置屬性。2、事件驅動在Windows環境下是以事件驅動方式運行每個對象的，都能響應多個區別事件。每個事件都能驅動段代碼事件過程，該代碼決定了對象功能。通常稱這種機制為事件驅動的編程機制。可由用戶操作觸發也可以由系統或應用觸發，例如單擊個命令按鈕就觸發了按鈕Click(單擊)事件該事件中代碼就會被執行，若用戶未進行任何操作(未觸發事件)則就處于等待狀態整個應用就是由彼此獨立事件過程構成。3、軟件Software集成式開發VisualBasic6.0為編程提供了個集成開發環境在這個環境中編程者可設計界面、編寫代碼、調試直至把應用編譯成可在Windows中運行可執行文件并為它生成安裝VisualBasic6.0集成開發環境為編程者提供了很大方便[3]。4、強大數據庫訪問功能VisualBasic6.0利用數據Control控件可以訪問多種數據VisualBasic6.0提供ADOControl控件不但可以用最少代碼實現數據庫操作和控制，也可以取代DataControl控件和RDOControl控件[4]。5、支持對象鏈接和嵌入技術VisualBasic6.0核心是對對象鏈接和嵌入(OLE)技術支持它是訪問所有對象種思路方法利用OLE技術能夠開發集聲音、圖像、動畫、字處理、Web等對象于一體的功能強大的軟件[5]。6、網絡功能VisualBasic6.0提供了DltTML(Dynamic}tTML)設計工具利用這種技術可以動態創建和編輯Web頁面使用戶在VisualBasic6.0中開發多功能網絡應用軟件Software[6]。7、多個應用向導VisualBasic6.0提供了多種向導如應用向導、安裝向導、數據對象向導和數據窗體向導，通過它們可以快速地創建區別類型、區別功能應用。8、聯機幫助功能在VisualBasic6.0中利用幫助菜單和F1功能鍵用戶可隨時方便地得到所需要幫助信息VisualBasic6.0幫助窗口中顯示了有關舉例代碼通過復制、粘貼操作可獲取大量舉例代碼為用戶學習和使用提供方便[7]。2.2ADO技術2.2.1A1、易于使用，可以說這是ADO最重要的特點之一。ADO是高層數據庫訪問技術，相對與ODBC來說，具有面性對象的特點[8]。同時，在ADO對象結構中，對象與對象之間的層次結構不適非常明顯，這會給編寫數據庫程序帶來更多的便利。比如，在應用程序中如果要使用記錄集對象，不一定要先建立連接、會話對象，如果需要就可以直接構造記錄集對象。總之，已經沒有必要去關心對象的構造層次和構造順序了[9]。2、可以訪問多種數據源。和OLEDB一樣，使應用程序具有很好的通用性和靈活性[10]。3、訪問數據源效率高。4、方便的Web應用。ADO可以以ActiveX控件的形式出現，這就大大方便了Web應用程序的編制[11]。5、技術編程接口豐富。ADO支持VisualC++、VisualBasic、VBS、JS等[12]。2.2.2A1、Connection用于表示和數據源的連接，以及處理一些命令和事務。2、Command用于執行某些命令來進行諸如查詢、修改數據庫結構的操作。3、Recordset用于處理數據源的表格集，它是在表中修改、檢索數據的最主要的方法[13]。4、Field描述數據集中的列信息。5、Parameter用于對傳遞給數據源的命令賦參數值。6、Error用于承載所產生所無的詳細信息。7、Property通過屬性，每個ADO對象借此來讓用戶描述和控制自身的行為。8、Set集合是一種可以方便的包含其他特殊類型對象的對象類型。ADO提供4種類型的集合：●Connection對象具有Error集合。●Command對象具有Parameter集合。●Recordset對象具有Fields集合。●Connection、Command、Recordset、Field對象都具有Property集合。9、Event事件模型是異步操作的基礎，這是ADO2.0引進的新特性。2.3SQLServer2000數據庫2.3.1SQLServer2000的簡介SQLServer2000是一個關系數據庫管理系統，它最初是由MicrosoftSybase和Ashton-Tate三家公司共同開發的，于1988年推出了第一個OS/2版本[14]。在WindowsNT推出后，Microsoft與Sybase在SQLServer的開發上就分道揚鑣了。Microsoft將SQLServer移植到WindowsNT系統上，專注于開發推廣SQLServer的WindowsNT版本；Sybase則較專注于SQLServer在UNIX操作系統上的應用。在本書中介紹的是MicrosoftSQLServer以后簡稱為SQLServer或MSSQLServer[15]。2.3.2SQLServer2000的特性包括1、Internet集成。SQLServer2000數據庫引擎提供完整的XML支持。它還具有構成最大的Web站點的數據存儲組件所需的可伸縮性、可用性和安全功能。SQLServer2000程序設計模型與WindowsDNA構架集成，用以開發Web應用程序，并且SQLServer2000支持EnglishQuery和Microsoft搜索服務等功能，在Web應用程序中包含了用戶友好的查詢和強大的搜索功能[16]。2、可伸縮性和可用性。同一個數據庫引擎可以在不同的平臺上使用，從運行MicrosoftWindows®98的便攜式電腦，到運行MicrosoftWindows2000數據中心版的大型多處理器服務器。SQLServer2000企業版支持聯合服務器、索引視圖和大型內存支持等功能，使其得以升級到最大Web站點所需的性能級別[17]。3、企業級數據庫功能。SQLServer2000關系數據庫引擎支持當今苛刻的數據處理環境所需的功能。數據庫引擎充分保護數據完整性，同時將管理上千個并發修改數據庫的用戶的開銷減到最小[18]。SQLServer2000分布式查詢使您得以引用來自不同數據源的數據，就好象這些數據是SQLServer2000數據庫的一部分，同時分布式事務支持充分保護任何分布式數據更新的完整性。復制同樣使您得以維護多個數據復本，同時確保單獨的數據復本保持同步。可將一組數據復制到多個移動的脫接用戶，使這些用戶自主地工作，然后將他們所做的修改合并回發布服務器[19]。4、易于安裝、部署和使用。SQLServer2000中包括一系列管理和開發工具，這些工具可改進在多個站點上安裝、部署、管理和使用SQLServer2000的過程。SQLServer2000還支持基于標準的、與WindowsDNA集成的程序設計模型，使SQLServer數據庫和數據倉庫的使用成為生成強大的可伸縮系統的無縫部分[20]。這些功能使您得以快速交付SQLServer應用程序，使客戶只需最少的安裝和管理開銷即可實現這些應用程序。2.4應用平臺配置1、硬件配置服務器：PCServer系列及其他品牌服務器。工作站：586以上、32MB以上內存、1.2GB以上硬件空間。2、軟件配置操作系統：Windowes2000，WindowesNT。數據庫系統：SQLServer2000。開發工具：MicrosoftVisualBasic6.0。第3章系統總體設計3.1需求分析3.1.1用戶需求分析隨著人民生活水平的提高，洗浴在服務行業中占有越來越重要的地位。努力在當前服務行業日趨激烈的競爭中脫穎而出，已成為每位經營者所追求的目標。經過多年發展，洗浴管理已經逐漸由定性管理，進入到重視定量管理的科學階段。眾所周知，在定量管理的具體實現方法和手段方面，最有效的工具就是電腦管理。傳統的手工操作管理存在著許多無法避免的問題，例如：人工計算帳單金額容易出現差錯。收銀工作中跑單、漏單、偷錢現象普遍。個別服務員作弊、改單情形時有發生。客人消費單據難以保存和查詢。無法對大量營業數據進行統計分析。無法準確迅速的解決折扣和優惠等問題。無法準確滿足客人的個性需求。無論收銀還是財務都需要大量的人力物力。洗浴中心管理系統就是針對以上問題設計的，實現了日常洗浴營運的自動管理。3.1.2系統概述1、系統介紹洗浴管理系統是一套功能強大而又簡便實用的洗浴管理軟件，包括基本信息管理、前臺信息管理、后臺信息管理、總經理查詢、系統維護、系統幫助等六大功能模塊，實現了洗浴行業日常營運的全面自動管理，是洗浴行業進行電腦信息化管理的理想選擇。2、系統目標本管理系統參照了大量的同類軟件，并進行了細致徹底的研究，旨在用計算機系統來完成基本能完成的工作，保持很高的靈活性和易操作性，并實現了各種信息的系統化、規范化和自動化。3.2系統功能設計在系統功能分析的基礎上，系統分為6大模20個完整子模塊，系統功能結構（如圖3-1所示）圖3-1系統功能結構圖3.3數據庫結構設計3.3.1數據庫設計原則1、一致性原則對信息進行統一、系統的分析與設計，協調好各數據源，做到“數出一門”、“算法統一”、“度量一致”。保證系統數據的一致性和有效性。2、完整性原則數據庫的完整性是指數據的正確性和相容性。要防止合法用戶使用數據庫時向數據庫中加入不合法語義的數據。DBMS提供一種機制來檢查數據庫中的數據來維護數據庫的完整性。這些加在數據庫數據之上的語義約束條件稱為數據庫完整性約束條件，是完整性控制機制的核心。3、安全性原則數據庫的安全性是指保護數據，防止非法用戶使用數據庫，包括惡意破壞數據和越權存取數據，安全性措施的防范對象是非法用戶和非法操作。4、可伸縮性原則數據庫結構的設計應充分考慮到應用環境的改變和新需求的出現，一般不會推翻原設計，不會對現有的應用程序和數據造成大的影響，而只是在原設計基礎上作一些擴充即可滿足要求。5、規范化數據庫的設計應遵循規范化理論，規范化程度過低的關系，可能會存在插入、刪除異常、修改復雜、數據冗余等問題，解決的方法就是對關系模式進行分解或合并(范化)，轉換成高級范式。但也應當注意到，并不是規范化程度越高的關系就越好。所以，在具體應用時，到底規范化進行到什么程度需要權衡利弊。一般而言，做到第三范式(3NF)就足夠了。3.3.2洗浴中心管理系統的實體-聯系模型（如圖3-2所示）圖3-2E-R圖3.3.3系統數據庫設計下面一一介紹各個數據庫表的結構1、包房信息表使用戶更清晰直接的了解包房信息，該系統在此表中設定了包房編號、類型、容納人數、價格等。表3-1包房信息表序號字段名稱數據類型長度1編號Varchar42樓層Varchar103房間號Varchar304包房名稱Varchar105包房說明Varchar506所屬部門Varchar87包房類型Varchar88容納人數int49狀態Varchar2510現容納人數int1011包房價格money812消費單位Varchar813分鐘描述int82、箱號信息表箱號信息表主要包括記錄號、箱號、所在大廳、狀態。表3-2箱號信息序號字段名稱數據類型長度1記錄號Int42箱號Varchar103所在大廳Varchar304狀態Varchar103、包房臨時消費表包房臨時消費表記錄顧客的消費情況。記錄房間號、包房名稱、價格、消費時間、消費金額等。表3-3包房臨時消費信息序號字段名稱數據類型長度1記錄號Int42房間號Varchar103包房價格money84包房名稱Varchar505分鐘描述Char106箱號Varchar107所在大廳Varchar308進入時間datetime89結束時間datetime810消費時間datetime411消費金額money84、臨時消費信息表臨時消費信息表主要記錄項目編號、名稱、單位、單價、消費狀態、折扣、金額小計等。表3-4臨時消費信息表序號字段名稱數據類型長度1記錄號Int42箱號Varchar103所在大廳Varchar304項目編號Varchar105名稱Varchar506單位Varchar87單價Money88數量Int49簡稱Varchar2510消費狀態Varchar1011隱藏狀態Varchar812登記時間Datetime813折扣Fload814金額小計Money85、日消費單據表日消費單據表記錄顧客一天的消費情況。主要有主客箱號、主客姓名、結賬方式、打折、減免金額、減免原因、實繳金額等。表3-5日消費單據表序號字段名稱數據類型長度1記錄號Int42消費單據號Varchar203主客箱號Varchar104主客姓名Varchar165登記時間Datetime86結賬日期Datetime87結賬方式Varchar108總計消費Money89打折Fload810實繳金額Money811找零Money812減免金額Money813減免原因Varchar5014人數Int46、消費項目價格表消費項目價格表主要記錄項目的名稱、單價等。這也是顧客最關心的一項。表3-6消費項目價格表序號字段名稱數據類型長度1記錄號Int42項目編號Varchar103簡稱Varchar254名稱Varchar505單位Varchar106單價Money87說明Varchar1007、月營業信息表月營業信息表主要用于總經理查看某些月的盈利情況。表3-7月營業信息表序號字段名稱數據類型長度1月份Char82月份營業額Money8第4章系統的實現4.1數據庫連接功能為了節省系統資源，在系統中新建一個Modulel模塊，該模塊主要用于連接數據庫和表，從而避免了程序中重復性地定義數據連接和數據集對象。Modulel模塊中的完整代碼如下：PublicFunctionESQL(ByValsqlAsString)AsADODB.RecordsetDimcnnAsADODB.ConnectionDimrsAsADODB.RecordsetSetcnn=NewADODB.Connectioncnn.OpenStrCnn()Setrs=NewADODB.Recordsetrs.OpenTrim(sql),cnn,adOpenKeyset,adLockOptimisticSetESQL=rsEndFunctionPublicFunctionStrCnn()StrCnn="Provider=MSDASQL.1;PersistSecurityInfo=False;UserID=sa;DataSource=XYGLXT"StrCnn="Provider=SQLOLEDB.1;Password=ecc;PersistSecurity"_&"Info=True;UserID=sa;InitialCatalog=XYGLXT;Server=(local)"EndFunction4.2系統登錄窗體和主界面根據系統登錄窗體，可以選擇不同的登錄身份，具有不同的操作權限。在單擊“確認”按鈕時，判斷操作員及其密碼，如果該操作員存在，那么允許登錄系統，并為系統管理員分配權限。否則，提示用戶“密碼錯誤”，如果輸入三次錯誤的密碼，那么系統將自動退出。登錄窗體（如圖4-1所示）圖4-1系統登錄窗體運行結果當輸入的密碼正確時，可進入主界面（如圖4-2所示）圖4-2系統主窗體單擊系統登錄窗體上“確認”按鈕的click事件代碼：PrivateSubcomyes_Click()DimMESSAGEAsStringAdodc1.RecordSource="select*from權限信息表where操作員名稱='"+Trim(czy.Caption)+"'"Adodc1.RefreshIfczy.Caption<>""AndText1.Text=Trim(Adodc1.Recordset.Fields("密碼"))ThenIfAdodc1.Recordset.Fields("基本信息管理")=0Thenfrm_main.jbxxgl.Enabled=TrueElsefrm_main.jbxxgl.Enabled=FalseIfAdodc1.Recordset.Fields("前臺信息管理")=0Thenfrm_main.qtxxgl.Enabled=Truefrm_main.Toolbar1.Buttons(1).Enabled=Truefrm_main.Toolbar1.Buttons(3).Enabled=Truefrm_main.Toolbar1.Buttons(5).Enabled=TrueElsefrm_main.qtxxgl.Enabled=Falsefrm_main.Toolbar1.Buttons(1).Enabled=Falsefrm_main.Toolbar1.Buttons(3).Enabled=Falsefrm_main.Toolbar1.Buttons(5).Enabled=FalseEndIfIfAdodc1.Recordset.Fields("后臺信息管理")=0Thenfrm_main.htxxgl.Enabled=Truefrm_main.Toolbar1.Buttons(7).Enabled=TrueElsefrm_main.htxxgl.Enabled=Falsefrm_main.Toolbar1.Buttons(7).Enabled=FalseEndIfIfAdodc1.Recordset.Fields("經理查詢系統")=0Thenfrm_main.jlcxxt.Enabled=Truefrm_main.Toolbar1.Buttons(9).Enabled=Truefrm_main.Toolbar1.Buttons(11).Enabled=TrueElsefrm_main.jlcxxt.Enabled=Falsefrm_main.Toolbar1.Buttons(9).Enabled=Falsefrm_main.Toolbar1.Buttons(11).Enabled=FalseEndIfIfAdodc1.Recordset.Fields("系統維護")=0Thenfrm_main.xtwh.Enabled=Truefrm_main.Toolbar1.Buttons(13).Enabled=TrueElsefrm_main.xtwh.Enabled=Falsefrm_main.Toolbar1.Buttons(13).Enabled=FalseEndIfLoadfrm_mainfrm_main.Showfrm_main.St1.Panels(3).Text=czy.CaptionUnloadMeElseIfTIM=3ThenMESSAGE=MsgBox("密碼輸入錯誤,請向系統管理員查詢!",0,"系統提示")IfMESSAGE=vbOKThenEndEndIfIfczy.Caption=""ThenMsgBox"請選擇操作員!",,"系統提示"ListView1.SetFocusElseIfText1.Text<>Adodc1.Recordset.Fields("密碼")ThenMsgBox"密碼錯誤,請重新輸入密碼!",,"系統提示"TIM=TIM+1Text1.SetFocusEndIfEndIfEndIf4.3總臺服務管理總臺服務管理窗體主要實現客人領牌、服務登記、查看消費信息箱號的調換等功能。在總臺服務管理中設計一個View_List過程，以顯示箱號及狀態，主要通過ListView控件的ListItems集合中的Add方法實現。另外，在程序中還使用了SQL語句中的SUM函數，主要用于統計箱號空閑、使用和損壞的個數。（如圖4-3所示）圖4-3總臺服務管理窗體服務登記通過總臺服務管理窗體中“服務登記”工具欄按鈕調出“客人消費等級按鈕”。客人消費登記窗口主要實現客人消費項目的添加。并且為了使用戶更加方便快捷的選擇服務項目，當用戶輸入服務項目的簡稱后，程序將在“消費項目價格表”。中模糊檢索服務項目信息。單擊“登記”按鈕的代碼如下：PrivateSubCmddj_Click()Text1.Width=MS1.CellWidth:Text1.Height=MS1.CellHeightText1.Left=MS1.CellLeft+MS1.Left:Text1.Top=MS1.CellTop+MS1.TopMS1.Enabled=TrueCmdbc.Enabled=True:Cmdqx.Enabled=TrueCmddj.Enabled=False:Text1.Enabled=TrueText1.Visible=True:Text1.SetFocusFori=1To101Forj=1To9MS1.TextMatrix(i,j)=""NextjNextipz.Text="0"hjsl.Text="0"hjje.Text="0"EndSub圖4-4客人消費登記窗口2、換箱單擊總臺服務管理窗口的“換箱”按鈕，顧客可以方便的更改箱號，前提箱號為空閑。更新原箱號和現在箱號的代碼如下：PrivateSubCmdEnd_Click()OnErrorResumeNextmyval=MsgBox("確認將["&Labydt.Caption&""&Labyxh.Caption&"箱號]的客人轉到["&Trim(Combo1.Text)&""&Trim(Adodc1.Recordset.Fields("箱號"))&"箱號]嗎？",vbYesNo)Ifmyval=vbYesThentxtSQL="update臨時消費信息表set箱號='"+Trim(Adodc1.Recordset.Fields("箱號"))+"',所在大廳='"+Trim(Combo1.Text)+"'where箱號='"+Trim(Labyxh.Caption)+"'and所在大廳='"+Trim(Labydt.Caption)+"'"Setrs1=ESQL(txtSQL)txtSQL="update包房消費臨時表set箱號='"+Trim(Adodc1.Recordset.Fields("箱號"))+"',所在大廳='"+Trim(Combo1.Text)+"'where箱號='"+Trim(Labyxh.Caption)+"'and所在大廳='"+Trim(Labydt.Caption)+"'"Setrs2=ESQL(txtSQL)Adodc1.Recordset.Fields("狀態")="使用"Adodc1.Recordset.UpdateAdodc1.RecordSource="select*from箱號信息表where箱號='"+Trim(Labyxh.Caption)+"'and所在大廳='"+Trim(Labydt.Caption)+"'"Adodc1.RefreshAdodc1.Recordset.Fields("狀態")="空閑"Adodc1.Recordset.Updatemain_qtgl_ztfwgl.Enabled=Truemain_qtgl_ztfwgl.ListView1.ListItems.ClearCallmain_qtgl_ztfwgl.View_ListUnloadMeEndIf圖4-5換箱窗體的運行結果3、統計查詢客人消費統計查詢窗口主要實現客人點單、贈單和所有金額的統計，其主要使用sum函數。在總臺服務管理窗體中的ToolBar控件的ButtonClick事件下添加如下代碼：CaseIs="tj"IfAdodc1.Recordset.RecordCount>0AndAdodc1.Recordset.Fields("狀態")="使用"Thenmain_qtgl_ztfwgl_tj.Adodc1.RecordSource="select*from臨時消費信息表where箱號='"+Trim(list)+"'and所在大廳='"+Trim(Combo1.Text)+"'"main_qtgl_ztfwgl_tj.Adodc1.RefreshIfmain_qtgl_ztfwgl_tj.Adodc1.Recordset.RecordCount>0ThenLoadmain_qtgl_ztfwgl_tjmain_qtgl_ztfwgl_tj.Showmain_qtgl_ztfwgl_tj.Adodc1.RecordSource="select消費狀態as狀態1,sum(金額小計)as金額合計from臨時消費信息表where箱號='"+Trim(list)+"'and所在大廳='"+Trim(Combo1.Text)+"'groupby消費狀態orderby消費狀態"main_qtgl_ztfwgl_tj.Adodc1.RefreshIfmain_qtgl_ztfwgl_tj.Adodc1.Recordset.RecordCount>1Thenmain_qtgl_ztfwgl_tj.Labdd.Caption=Format(Val(main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)),"0.00")Ifmain_qtgl_ztfwgl_tj.Adodc1.Recordset.EOF=FalseThenmain_qtgl_ztfwgl_tj.Adodc1.Recordset.MoveNextmain_qtgl_ztfwgl_tj.Labzd.Caption=Format(Val(main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)),"0.00")ElseIfmain_qtgl_ztfwgl_tj.Adodc1.Recordset.RecordCount=1ThenIfmain_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(0)="贈單"Thenmain_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"Elsemain_qtgl_ztfwgl_tj.Labdd.Caption=Format(Val(main_qtgl_ztfwgl_tj.Adodc1.Recordset.Fields(1)),"0.00")main_qtgl_ztfwgl_tj.Labzd.Caption="0.00"EndIfEndIfmain_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=FalseElseMsgBox("對不起，此箱號的客人未消費，請重新選擇！")EndIfElseIfAdodc1.Recordset.Fields("狀態")="空閑"ThenMsgBox"請先領牌！"ElseIfAdodc1.Recordset.Fields("狀態")="損壞"ThenMsgBox"您選的箱號已損壞，請重新選擇！"EndIfCaseIs="jy"IfAdodc1.Recordset.RecordCount>0AndAdodc1.Recordset.Fields("狀態")="空閑"ThenAdodc1.Recordset.Fields("狀態")="損壞"Adodc1.Recordset.UpdateListView1.ListItems.ClearCallView_ListElseIfAdodc1.Recordset.Fields("狀態")="使用"ThenMsgBox"您選的箱號正在使用，請重新選擇！"ElseIfAdodc1.Recordset.Fields("狀態")="損壞"ThenMsgBox"您選的箱號已損壞，請重新選擇！"EndIfCaseIs="hf"IfAdodc1.Recordset.RecordCount>0AndAdodc1.Recordset.Fields("狀態")="損壞"ThenAdodc1.Recordset.Fields("狀態")="空閑"Adodc1.Recordset.UpdateListView1.ListItems.ClearCallView_ListElseIfAdodc1.Recordset.Fields("狀態")="使用"ThenMsgBox"您選的箱號正在使用，請重新選擇！"ElseIfAdodc1.Recordset.Fields("狀態")="空閑"ThenMsgBox"您選的箱號沒有損壞，請重新選擇！"EndIf圖4-6消費統計窗體運行結果4.4結賬收銀管理結賬收銀管理主要實現普通結賬、免單結賬、箱號的禁止使用和恢復使用等功能，運行結果（如圖4－7所示）圖4-7結賬收銀管理4.5月結算管理通過月結算管理窗口，洗浴中心可以方便快捷的查看每月的盈利情況，對比后調整對洗浴中心的管理。單擊月結算管理窗體中的“開始月結算”按鈕代碼如下：PrivateSubComyj_Click()Adodc1.RecordSource="select*from月消費單據表"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenComyj.Enabled=TrueElseComyj.Enabled=FalseEndIfmyval=MsgBox("確認結算當月數據嗎？",vbYesNo)Ifmyval=vbYesThenAdodc2.RecordSource="selectsum(消費實收)from月消費單據表"Adodc2.RefreshIfAdodc2.Recordset.RecordCount>0ThentxtSQL="select*from月營業分析表"Setrs5=ESQL(txtSQL)rs5.AddNewOnErrorResumeNextAdodc1.Recordset.AddNewrs5.Fields(0)=Format(Date,"yyyy-mm")rs5.Fields(1).Value=Adodc2.Recordset.Fields(0).Valuers5.UpdateAdodc1.RefreshEndIftxtSQL="insert歷史消費信息表(箱號,所在大廳,項目編號,名稱,單位,單價,數量,簡稱,消費狀態,隱藏狀態,登記時間,折扣,金額小計,消費單據號)select箱號,所在大廳,項目編號,名稱,單位,單價,數量,簡稱,消費狀態,隱藏狀態,登記時間,折扣,金額小計,消費單據號from月消費信息表orderby消費單據號"Setrs1=ESQL(txtSQL)ESQL.ClosetxtSQL="insert歷史消費單據表(消費單據號,主客箱號,主客姓名,主客性別,登記時間,結帳日期,結帳方式,主客消費金額,總計消費,打折,消費應收,實交金