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

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

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

3、息系統(tǒng)的功能主要突出服務項目、包房信息、箱包管理以與收銀結賬管理。經過實際測試證明，本文所設計的洗浴中心信息管理系統(tǒng)可以用于洗浴信息管理方面的需要。 論文主要介紹了本課題的選題背景，課題來源，所要完成的功能和開發(fā)的全過程。重點的說明了系統(tǒng)設計的重點、設計思想、數據庫的設計和系統(tǒng)的解決方案。 [關鍵詞]VisualBasic6.0;SQL Server2000;洗浴管理系統(tǒng);查詢;結算 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國外研究現狀1 1.1.3洗浴中心管理系統(tǒng)的研究目的與意義2 1.2論文結構2 第2章 系統(tǒng)開發(fā)技術介紹4 2.1 VisualBasic6.0編程語言4 2.1.1 VisualBasic6.0的簡介4 2.1.2 VisualBasic6.0的特點4

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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)上的應用。在本書中介紹的是Microsoft SQL Server 以后簡稱為SQL Server或MS SQL Server[15]。

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

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

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

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

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

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

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

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

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

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

36、 3、包房臨時消費表 包房臨時消費表記錄顧客的消費情況。記錄房間號、包房名稱、價格、消費時間、消費金額等。 表3-3 包房臨時消費信息 序號 字段名稱 數據類型 長度 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 結束時間 datetime 8 10 消費時間 datetime 4 11

37、 消費金額 money 8 4、臨時消費信息表 臨時消費信息表主要記錄項目編號、名稱、單位、單價、消費狀態(tài)、折扣、金額小計等。 表3-4 臨時消費信息表 序號 字段名稱 數據類型 長度 1 記錄號 Int 4 2 箱號 Varchar 10 3 所在大廳 Varchar 30 4 項目編號 Varchar 10 5 名稱 Varchar 50 6 單位 Varchar 8 7 單價 Money 8 8 數量 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、日消費單據表 日消費單據表記錄顧客一天的消費情況。主要有主客箱號、主客、結賬方式、打折、減免金額、減免原因、實繳金額等。 表3-5 日消費單據表 序號 字段名稱 數據類型 長度 1 記錄號 Int 4 2 消費單據號 Varchar 20 3 主客箱號 Varchar 10 4 主客 Varchar 16 5 登記時間 Datetime 8 6 結賬日期 Datetime

39、 8 7 結賬方式 Varchar 10 8 總計消費 Money 8 9 打折 Fload 8 10 實繳金額 Money 8 11 找零 Money 8 12 減免金額 Money 8 13 減免原因 Varchar 50 14 人數 Int 4 6、消費項目價格表 消費項目價格表主要記錄項目的名稱、單價等。這也是顧客最關心的一項。 表3-6 消費項目價格表 序號 字段名稱 數據類型 長度 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è)信息表主要用于總經理查看某些月的盈利情況。 表3-7月營業(yè)信息表 序號 字段名稱 數據類型 長度 1 月份 Char 8 2 月份營業(yè)額 Money 8 第4章 系統(tǒng)的實現 4.1數據庫連接功能 為了節(jié)省系統(tǒng)資源，在系統(tǒng)中新建一個Modulel模塊，該模塊主要用于連接數據庫和表，從而

41、避免了程序中重復性地定義數據連接和數據集對象。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)登錄窗體和主界面 根據系統(tǒng)登錄窗體，可以選擇不同的登錄身份，具有不同的操作權限。在單擊“確認”按鈕時，判斷操作員與其密碼，如果該操作員存在，那么允許登錄系統(tǒng)，并為系統(tǒng)管理員分配權限。否則，提示用戶“密碼錯誤”，如果輸入三次錯誤的密碼，那么系統(tǒng)將自動退出。登錄窗體（如圖4-1所示） 圖4-1 系統(tǒng)登錄窗體運行結果 當輸入的密碼正確時，可進入主界面（如圖4-2所示） 圖4-2 系統(tǒng)主窗體 單擊系統(tǒng)登錄窗體上“確認”按鈕的click事件代碼： Private Sub comyes_Click() Dim MESSAGE As String Adodc1.R

44、ecordSource = "select * from 權限信息表 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("經理查詢系統(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總臺服務管理 總臺服務管理窗體主要實現客人領牌、服務登記、查看消費信

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

54、e Next myval = MsgBox("確認將[" & Labydt.Caption & " " & Labyxh.Caption & "箱號]的客人轉到[" & 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換箱窗體的運行結果 3、統(tǒng)計查詢 客人消費統(tǒng)計查詢窗口主要實現客人點單、贈單和所有金額的統(tǒng)計，其主 要使用sum函數。在總臺服務管理窗體中的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 "請先領牌！" 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)計窗體運行結果 4.4結賬收銀管理 結賬收銀管理主要實現普通結賬、免單結賬、箱號的禁止使用和恢復使用等功能，運行結果（如圖4－7所示） 圖4-7結賬收銀管理 4.5月結算管理 通過月結算管理窗口，洗