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

PAGEword文檔可自由復(fù)制編輯基于VB的洗浴中心管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)學(xué)士學(xué)位論文作者聲明本人聲明：本人呈交的學(xué)位論文是本人在導(dǎo)師指導(dǎo)下取得的研究成果。對前人及其他人員對本文的啟發(fā)和貢獻(xiàn)已在論文中作出了明確的聲明，并表示了謝意。論文中除了特別加以標(biāo)注和致謝的地方外，不包含其他人和其它機(jī)構(gòu)已經(jīng)發(fā)表或者撰寫過的研究成果。本人同意學(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ī)定）。作者簽名：日期：年月日word文檔可自由復(fù)制編輯摘要本文論述了洗浴管理信息系統(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í)際的需求分析，采用VisualBasic6.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)的解決方案。

【關(guān)鍵詞】VisualBasic6.0;SQLServer2000;洗浴管理系統(tǒng);查詢;結(jié)算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文檔可自由復(fù)制編輯目錄第1章緒論 11.1引言 11.1.1洗浴中心管理系統(tǒng)的研究背景 11.1.2國內(nèi)外研究現(xiàn)狀 11.1.3洗浴中心管理系統(tǒng)的研究目的與意義 21.2論文結(jié)構(gòu) 2第2章系統(tǒng)開發(fā)技術(shù)介紹 42.1VisualBasic6.0編程語言 42.1.1VisualBasic6.0的簡介 42.1.2VisualBasic6.0的特點(diǎn) 42.2ADO技術(shù) 52.2.1ADO特點(diǎn)概述 52.2.2ADO的對象 62.3SQLServer2000數(shù)據(jù)庫 72.3.1SQLServer2000的簡介 72.3.2SQLServer2000的特性包括 72.4應(yīng)用平臺配置 8第3章系統(tǒng)總體設(shè)計(jì) 93.1需求分析 93.1.1用戶需求分析 93.1.2系統(tǒng)概述 93.2系統(tǒng)功能設(shè)計(jì) 103.3數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì) 103.3.1數(shù)據(jù)庫設(shè)計(jì)原則 103.3.2洗浴中心管理系統(tǒng)的實(shí)體-聯(lián)系模型 113.3.3系統(tǒng)數(shù)據(jù)庫設(shè)計(jì) 11第4章系統(tǒng)的實(shí)現(xiàn) 164.1數(shù)據(jù)庫連接功能 164.2系統(tǒng)登錄窗體和主界面 164.3總臺服務(wù)管理 194.4結(jié)賬收銀管理 254.5月結(jié)算管理 26第5章總結(jié) 29參考文獻(xiàn) 30致謝 31word文檔可自由復(fù)制編輯第1章緒論1.1引言1.1.1洗浴中心管理系統(tǒng)的研究背景隨著人民生活水平的不斷提高，餐飲、酒吧、洗浴等消費(fèi)產(chǎn)業(yè)也得到迅猛發(fā)展，但由于洗浴行業(yè)具有服務(wù)多樣、價(jià)格多變、折扣靈活以及報(bào)表復(fù)雜等特點(diǎn)，并且隨著消費(fèi)業(yè)務(wù)量的不斷增大，內(nèi)部人員的增加，靠以往手工的管理手段進(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è)利潤最大化。通過對多家洗浴企業(yè)進(jìn)行深入細(xì)致的調(diào)查和分析，做出的一套標(biāo)準(zhǔn)化的洗浴管理系統(tǒng)。它適用于中、小型洗浴行業(yè)，可以幫助洗浴企業(yè)處理日常工作業(yè)務(wù)，規(guī)模管理和操作流程，有效的實(shí)現(xiàn)了企業(yè)的現(xiàn)代化管理，全面提升了企業(yè)的市場競爭力和整體形象。1.1.2國內(nèi)外研究現(xiàn)狀隨著人們休閑娛樂需求的提高，洗浴中心的功能的也越來越完善，正朝著同其他公共建筑結(jié)合組成建筑群落的方向發(fā)展。如建于公元3世紀(jì)的古羅馬卡瑞卡拉浴場就在附近設(shè)有演講廳和圖書館以及其他文化休閑場所。就像古羅馬的浴場一樣，隨著時(shí)代的發(fā)展，人們需求的變化，洗浴中心也相應(yīng)的隨著變化而變化。我國百姓的消費(fèi)有所提高，國門大開，人們接受外來的新事物，閑暇時(shí)間的增加使人們開始考慮休閑生活的意義和質(zhì)量。同時(shí)在我國市場需求多樣化、個(gè)性化和時(shí)尚化的推動(dòng)下，作為休閑娛樂建筑的一種——洗浴建筑，應(yīng)時(shí)代要求誕生了。一個(gè)小小的澡堂子變成了集多功能于一體的康體娛樂建筑。這就需要一個(gè)功能完善的洗浴管理系統(tǒng)作支撐。如今，在國外洗浴管理系統(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ù)等錯(cuò)誤，客人結(jié)賬由手工記錄，人力耗費(fèi)大，客人等待時(shí)間長，管理效率低下，這就迫切需要標(biāo)準(zhǔn)的、高效率的計(jì)算機(jī)管理方式引導(dǎo)其發(fā)展,通過計(jì)算機(jī)管理該企業(yè)的日常運(yùn)作，給管理者以決策參考的模型，來不斷完善管理水平，提高工作效率。1.1.3洗浴中心管理系統(tǒng)的研究目的與意義系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。具體能實(shí)現(xiàn)對包房信息和員工信息的添加、修改、查詢，箱號生成、修改以及自動(dòng)搜索引擎，在總臺實(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è)利潤最大化。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。越來越多的管理人員意識到信息管理的重要性。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對洗浴企業(yè)信息進(jìn)行管理,具有手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高信息管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理與世界接軌的重要條件。課題以城市洗浴中心為背景，通過研究當(dāng)前洗浴中心的管理現(xiàn)狀、存在問題以及現(xiàn)實(shí)需求，設(shè)計(jì)一個(gè)針對洗浴管理工作的管理信息系統(tǒng)。該系統(tǒng)能夠提供較為完備的功能，對于提高工作效率、加快洗浴管理的自動(dòng)化具有較為重要的意義。1.2論文結(jié)構(gòu)本文介紹了洗浴中心管理系統(tǒng)的開發(fā)前景、需求分析、各功能模塊的設(shè)計(jì)和主要功能實(shí)現(xiàn)。具體來講，主要包括以下幾個(gè)方面：第一章：需求調(diào)研與分析。通過對當(dāng)前洗浴中心調(diào)查研究，全面了解了洗浴中心日常業(yè)務(wù)流程，為構(gòu)建洗浴中心管理系統(tǒng)提出科學(xué)的需求分析。第二章：系統(tǒng)開發(fā)技術(shù)介紹。是對VisualBasic6.0、SQLServer2000和ADO技術(shù)的特點(diǎn)進(jìn)行了簡單的描述。第三章：功能模塊框架設(shè)計(jì)。應(yīng)用VisualBasic6.0作為開發(fā)平臺，對系統(tǒng)整體主要功能做了描述。在系統(tǒng)功能分析的基礎(chǔ)上，系統(tǒng)共分為基本信息管理、前臺信息管理、后臺信息管理、總經(jīng)理查詢、系統(tǒng)維護(hù)、系統(tǒng)幫助和系統(tǒng)退出七功能大模塊。第四章：系統(tǒng)的實(shí)現(xiàn)。論述了數(shù)據(jù)庫安裝、權(quán)限設(shè)置，完成了系統(tǒng)調(diào)試，并進(jìn)行了簡要總結(jié)。第2章系統(tǒng)開發(fā)技術(shù)介紹2.1VisualBasic6.0編程語言2.1.1VisualBasic6.0的簡介VisualBasic是由美國微軟公司1991年開發(fā)的一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級程序設(shè)計(jì)語言，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序[1]。它簡單易學(xué)、效率高，且功能強(qiáng)大可以與Windows專業(yè)開發(fā)工具SDK相媲美。在VisualBasic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的廣泛應(yīng)用程序接口（API）函數(shù)，動(dòng)態(tài)鏈接庫（DLL）、對象的鏈接與嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)[2]。2.1.2VisualBasic6.0的特點(diǎn)1、面向?qū)ο骎isualBasic6.0采用了面向?qū)ο笤O(shè)計(jì)思想，它基本思路是把復(fù)雜的設(shè)計(jì)問題分解為多個(gè)能夠完成獨(dú)立功能且相對簡單的對象集合。所謂“對象”就是個(gè)可操作實(shí)體如窗體、窗體中命令按鈕、標(biāo)簽、文本框等，面向?qū)ο缶幊叹褪侵赋绦騿T可根據(jù)界面設(shè)計(jì)要求直接在界面上設(shè)計(jì)出窗口、菜單、按鈕等類型對象并為每個(gè)對象設(shè)置屬性。2、事件驅(qū)動(dòng)在Windows環(huán)境下是以事件驅(qū)動(dòng)方式運(yùn)行每個(gè)對象的，都能響應(yīng)多個(gè)區(qū)別事件。每個(gè)事件都能驅(qū)動(dòng)段代碼事件過程，該代碼決定了對象功能。通常稱這種機(jī)制為事件驅(qū)動(dòng)的編程機(jī)制?？捎捎脩舨僮饔|發(fā)也可以由系統(tǒng)或應(yīng)用觸發(fā)，例如單擊個(gè)命令按鈕就觸發(fā)了按鈕Click(單擊)事件該事件中代碼就會(huì)被執(zhí)行，若用戶未進(jìn)行任何操作(未觸發(fā)事件)則就處于等待狀態(tài)整個(gè)應(yīng)用就是由彼此獨(dú)立事件過程構(gòu)成。3、軟件Software集成式開發(fā)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]。4、強(qiáng)大數(shù)據(jù)庫訪問功能VisualBasic6.0利用數(shù)據(jù)Control控件可以訪問多種數(shù)據(jù)VisualBasic6.0提供ADOControl控件不但可以用最少代碼實(shí)現(xiàn)數(shù)據(jù)庫操作和控制，也可以取代DataControl控件和RDOControl控件[4]。5、支持對象鏈接和嵌入技術(shù)VisualBasic6.0核心是對對象鏈接和嵌入(OLE)技術(shù)支持它是訪問所有對象種思路方法利用OLE技術(shù)能夠開發(fā)集聲音、圖像、動(dòng)畫、字處理、Web等對象于一體的功能強(qiáng)大的軟件[5]。6、網(wǎng)絡(luò)功能VisualBasic6.0提供了DltTML(Dynamic}tTML)設(shè)計(jì)工具利用這種技術(shù)可以動(dòng)態(tài)創(chuàng)建和編輯Web頁面使用戶在VisualBasic6.0中開發(fā)多功能網(wǎng)絡(luò)應(yīng)用軟件Software[6]。7、多個(gè)應(yīng)用向?qū)isualBasic6.0提供了多種向?qū)鐟?yīng)用向?qū)?、安裝向?qū)А?shù)據(jù)對象向?qū)Ш蛿?shù)據(jù)窗體向?qū)?，通過它們可以快速地創(chuàng)建區(qū)別類型、區(qū)別功能應(yīng)用。8、聯(lián)機(jī)幫助功能在VisualBasic6.0中利用幫助菜單和F1功能鍵用戶可隨時(shí)方便地得到所需要幫助信息VisualBasic6.0幫助窗口中顯示了有關(guān)舉例代碼通過復(fù)制、粘貼操作可獲取大量舉例代碼為用戶學(xué)習(xí)和使用提供方便[7]。2.2ADO技術(shù)2.2.1A1、易于使用，可以說這是ADO最重要的特點(diǎn)之一。ADO是高層數(shù)據(jù)庫訪問技術(shù)，相對與ODBC來說，具有面性對象的特點(diǎn)[8]。同時(shí)，在ADO對象結(jié)構(gòu)中，對象與對象之間的層次結(jié)構(gòu)不適非常明顯，這會(huì)給編寫數(shù)據(jù)庫程序帶來更多的便利。比如，在應(yīng)用程序中如果要使用記錄集對象，不一定要先建立連接、會(huì)話對象，如果需要就可以直接構(gòu)造記錄集對象?？傊?，已經(jīng)沒有必要去關(guān)心對象的構(gòu)造層次和構(gòu)造順序了[9]。2、可以訪問多種數(shù)據(jù)源。和OLEDB一樣，使應(yīng)用程序具有很好的通用性和靈活性[10]。3、訪問數(shù)據(jù)源效率高。4、方便的Web應(yīng)用。ADO可以以ActiveX控件的形式出現(xiàn)，這就大大方便了Web應(yīng)用程序的編制[11]。5、技術(shù)編程接口豐富。ADO支持VisualC++、VisualBasic、VBS、JS等[12]。2.2.2A1、Connection用于表示和數(shù)據(jù)源的連接，以及處理一些命令和事務(wù)。2、Command用于執(zhí)行某些命令來進(jìn)行諸如查詢、修改數(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通過屬性，每個(gè)ADO對象借此來讓用戶描述和控制自身的行為。8、Set集合是一種可以方便的包含其他特殊類型對象的對象類型。ADO提供4種類型的集合：●Connection對象具有Error集合?！馛ommand對象具有Parameter集合?！馬ecordset對象具有Fields集合?！馛onnection、Command、Recordset、Field對象都具有Property集合。9、Event事件模型是異步操作的基礎(chǔ)，這是ADO2.0引進(jìn)的新特性。2.3SQLServer2000數(shù)據(jù)庫2.3.1SQLServer2000的簡介SQLServer2000是一個(gè)關(guān)系數(shù)據(jù)庫管理系統(tǒng)，它最初是由MicrosoftSybase和Ashton-Tate三家公司共同開發(fā)的，于1988年推出了第一個(gè)OS/2版本[14]。在WindowsNT推出后，Microsoft與Sybase在SQLServer的開發(fā)上就分道揚(yáng)鑣了。Microsoft將SQLServer移植到WindowsNT系統(tǒng)上，專注于開發(fā)推廣SQLServer的WindowsNT版本；Sybase則較專注于SQLServer在UNIX操作系統(tǒng)上的應(yīng)用。在本書中介紹的是MicrosoftSQLServer以后簡稱為SQLServer或MSSQLServer[15]。2.3.2SQLServer2000的特性包括1、Internet集成。SQLServer2000數(shù)據(jù)庫引擎提供完整的XML支持。它還具有構(gòu)成最大的Web站點(diǎn)的數(shù)據(jù)存儲組件所需的可伸縮性、可用性和安全功能。SQLServer2000程序設(shè)計(jì)模型與WindowsDNA構(gòu)架集成，用以開發(fā)Web應(yīng)用程序，并且SQLServer2000支持EnglishQuery和Microsoft搜索服務(wù)等功能，在Web應(yīng)用程序中包含了用戶友好的查詢和強(qiáng)大的搜索功能[16]。2、可伸縮性和可用性。同一個(gè)數(shù)據(jù)庫引擎可以在不同的平臺上使用，從運(yùn)行MicrosoftWindows®98的便攜式電腦，到運(yùn)行MicrosoftWindows2000數(shù)據(jù)中心版的大型多處理器服務(wù)器。SQLServer2000企業(yè)版支持聯(lián)合服務(wù)器、索引視圖和大型內(nèi)存支持等功能，使其得以升級到最大Web站點(diǎn)所需的性能級別[17]。3、企業(yè)級數(shù)據(jù)庫功能。SQLServer2000關(guān)系數(shù)據(jù)庫引擎支持當(dāng)今苛刻的數(shù)據(jù)處理環(huán)境所需的功能。數(shù)據(jù)庫引擎充分保護(hù)數(shù)據(jù)完整性，同時(shí)將管理上千個(gè)并發(fā)修改數(shù)據(jù)庫的用戶的開銷減到最小[18]。SQLServer2000分布式查詢使您得以引用來自不同數(shù)據(jù)源的數(shù)據(jù)，就好象這些數(shù)據(jù)是SQLServer2000數(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]。4、易于安裝、部署和使用。SQLServer2000中包括一系列管理和開發(fā)工具，這些工具可改進(jìn)在多個(gè)站點(diǎn)上安裝、部署、管理和使用SQLServer2000的過程。SQLServer2000還支持基于標(biāo)準(zhǔn)的、與WindowsDNA集成的程序設(shè)計(jì)模型，使SQLServer數(shù)據(jù)庫和數(shù)據(jù)倉庫的使用成為生成強(qiáng)大的可伸縮系統(tǒng)的無縫部分[20]。這些功能使您得以快速交付SQLServer應(yīng)用程序，使客戶只需最少的安裝和管理開銷即可實(shí)現(xiàn)這些應(yīng)用程序。2.4應(yīng)用平臺配置1、硬件配置服務(wù)器：PCServer系列及其他品牌服務(wù)器。工作站：586以上、32MB以上內(nèi)存、1.2GB以上硬件空間。2、軟件配置操作系統(tǒng)：Windowes2000，WindowesNT。數(shù)據(jù)庫系統(tǒng)：SQLServer2000。開發(fā)工具：MicrosoftVisualBasic6.0。第3章系統(tǒng)總體設(shè)計(jì)3.1需求分析3.1.1用戶需求分析隨著人民生活水平的提高，洗浴在服務(wù)行業(yè)中占有越來越重要的地位。努力在當(dāng)前服務(wù)行業(yè)日趨激烈的競爭中脫穎而出，已成為每位經(jīng)營者所追求的目標(biāo)。經(jīng)過多年發(fā)展，洗浴管理已經(jīng)逐漸由定性管理，進(jìn)入到重視定量管理的科學(xué)階段。眾所周知，在定量管理的具體實(shí)現(xiàn)方法和手段方面，最有效的工具就是電腦管理。傳統(tǒng)的手工操作管理存在著許多無法避免的問題，例如：人工計(jì)算帳單金額容易出現(xiàn)差錯(cuò)。收銀工作中跑單、漏單、偷錢現(xiàn)象普遍。個(gè)別服務(wù)員作弊、改單情形時(shí)有發(fā)生?？腿讼M(fèi)單據(jù)難以保存和查詢。無法對大量營業(yè)數(shù)據(jù)進(jìn)行統(tǒng)計(jì)分析。無法準(zhǔn)確迅速的解決折扣和優(yōu)惠等問題。無法準(zhǔn)確滿足客人的個(gè)性需求。無論收銀還是財(cái)務(wù)都需要大量的人力物力。洗浴中心管理系統(tǒng)就是針對以上問題設(shè)計(jì)的，實(shí)現(xiàn)了日常洗浴營運(yùn)的自動(dòng)管理。3.1.2系統(tǒng)概述1、系統(tǒng)介紹洗浴管理系統(tǒng)是一套功能強(qiáng)大而又簡便實(shí)用的洗浴管理軟件，包括基本信息管理、前臺信息管理、后臺信息管理、總經(jīng)理查詢、系統(tǒng)維護(hù)、系統(tǒng)幫助等六大功能模塊，實(shí)現(xiàn)了洗浴行業(yè)日常營運(yùn)的全面自動(dòng)管理，是洗浴行業(yè)進(jìn)行電腦信息化管理的理想選擇。2、系統(tǒng)目標(biāo)本管理系統(tǒng)參照了大量的同類軟件，并進(jìn)行了細(xì)致徹底的研究，旨在用計(jì)算機(jī)系統(tǒng)來完成基本能完成的工作，保持很高的靈活性和易操作性，并實(shí)現(xiàn)了各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。3.2系統(tǒng)功能設(shè)計(jì)在系統(tǒng)功能分析的基礎(chǔ)上，系統(tǒng)分為6大模20個(gè)完整子模塊，系統(tǒng)功能結(jié)構(gòu)（如圖3-1所示）圖3-1系統(tǒng)功能結(jié)構(gòu)圖3.3數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)3.3.1數(shù)據(jù)庫設(shè)計(jì)原則1、一致性原則對信息進(jìn)行統(tǒng)一、系統(tǒng)的分析與設(shè)計(jì)，協(xié)調(diào)好各數(shù)據(jù)源，做到“數(shù)出一門”、“算法統(tǒng)一”、“度量一致”。保證系統(tǒng)數(shù)據(jù)的一致性和有效性。2、完整性原則數(shù)據(jù)庫的完整性是指數(shù)據(jù)的正確性和相容性。要防止合法用戶使用數(shù)據(jù)庫時(shí)向數(shù)據(jù)庫中加入不合法語義的數(shù)據(jù)。DBMS提供一種機(jī)制來檢查數(shù)據(jù)庫中的數(shù)據(jù)來維護(hù)數(shù)據(jù)庫的完整性。這些加在數(shù)據(jù)庫數(shù)據(jù)之上的語義約束條件稱為數(shù)據(jù)庫完整性約束條件，是完整性控制機(jī)制的核心。3、安全性原則數(shù)據(jù)庫的安全性是指保護(hù)數(shù)據(jù)，防止非法用戶使用數(shù)據(jù)庫，包括惡意破壞數(shù)據(jù)和越權(quán)存取數(shù)據(jù)，安全性措施的防范對象是非法用戶和非法操作。4、可伸縮性原則數(shù)據(jù)庫結(jié)構(gòu)的設(shè)計(jì)應(yīng)充分考慮到應(yīng)用環(huán)境的改變和新需求的出現(xiàn)，一般不會(huì)推翻原設(shè)計(jì)，不會(huì)對現(xiàn)有的應(yīng)用程序和數(shù)據(jù)造成大的影響，而只是在原設(shè)計(jì)基礎(chǔ)上作一些擴(kuò)充即可滿足要求。5、規(guī)范化數(shù)據(jù)庫的設(shè)計(jì)應(yīng)遵循規(guī)范化理論，規(guī)范化程度過低的關(guān)系，可能會(huì)存在插入、刪除異常、修改復(fù)雜、數(shù)據(jù)冗余等問題，解決的方法就是對關(guān)系模式進(jìn)行分解或合并(范化)，轉(zhuǎn)換成高級范式。但也應(yīng)當(dāng)注意到，并不是規(guī)范化程度越高的關(guān)系就越好。所以，在具體應(yīng)用時(shí)，到底規(guī)范化進(jìn)行到什么程度需要權(quán)衡利弊。一般而言，做到第三范式(3NF)就足夠了。3.3.2洗浴中心管理系統(tǒng)的實(shí)體-聯(lián)系模型（如圖3-2所示）圖3-2E-R圖3.3.3系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)下面一一介紹各個(gè)數(shù)據(jù)庫表的結(jié)構(gòu)1、包房信息表使用戶更清晰直接的了解包房信息，該系統(tǒng)在此表中設(shè)定了包房編號、類型、容納人數(shù)、價(jià)格等。表3-1包房信息表序號字段名稱數(shù)據(jù)類型長度1編號Varchar42樓層Varchar103房間號Varchar304包房名稱Varchar105包房說明Varchar506所屬部門Varchar87包房類型Varchar88容納人數(shù)int49狀態(tài)Varchar2510現(xiàn)容納人數(shù)int1011包房價(jià)格money812消費(fèi)單位Varchar813分鐘描述int82、箱號信息表箱號信息表主要包括記錄號、箱號、所在大廳、狀態(tài)。表3-2箱號信息序號字段名稱數(shù)據(jù)類型長度1記錄號Int42箱號Varchar103所在大廳Varchar304狀態(tài)Varchar103、包房臨時(shí)消費(fèi)表包房臨時(shí)消費(fèi)表記錄顧客的消費(fèi)情況。記錄房間號、包房名稱、價(jià)格、消費(fèi)時(shí)間、消費(fèi)金額等。表3-3包房臨時(shí)消費(fèi)信息序號字段名稱數(shù)據(jù)類型長度1記錄號Int42房間號Varchar103包房價(jià)格money84包房名稱Varchar505分鐘描述Char106箱號Varchar107所在大廳Varchar308進(jìn)入時(shí)間datetime89結(jié)束時(shí)間datetime810消費(fèi)時(shí)間datetime411消費(fèi)金額money84、臨時(shí)消費(fèi)信息表臨時(shí)消費(fèi)信息表主要記錄項(xiàng)目編號、名稱、單位、單價(jià)、消費(fèi)狀態(tài)、折扣、金額小計(jì)等。表3-4臨時(shí)消費(fèi)信息表序號字段名稱數(shù)據(jù)類型長度1記錄號Int42箱號Varchar103所在大廳Varchar304項(xiàng)目編號Varchar105名稱Varchar506單位Varchar87單價(jià)Money88數(shù)量Int49簡稱Varchar2510消費(fèi)狀態(tài)Varchar1011隱藏狀態(tài)Varchar812登記時(shí)間Datetime813折扣Fload814金額小計(jì)Money85、日消費(fèi)單據(jù)表日消費(fèi)單據(jù)表記錄顧客一天的消費(fèi)情況。主要有主客箱號、主客姓名、結(jié)賬方式、打折、減免金額、減免原因、實(shí)繳金額等。表3-5日消費(fèi)單據(jù)表序號字段名稱數(shù)據(jù)類型長度1記錄號Int42消費(fèi)單據(jù)號Varchar203主客箱號Varchar104主客姓名Varchar165登記時(shí)間Datetime86結(jié)賬日期Datetime87結(jié)賬方式Varchar108總計(jì)消費(fèi)Money89打折Fload810實(shí)繳金額Money811找零Money812減免金額Money813減免原因Varchar5014人數(shù)Int46、消費(fèi)項(xiàng)目價(jià)格表消費(fèi)項(xiàng)目價(jià)格表主要記錄項(xiàng)目的名稱、單價(jià)等。這也是顧客最關(guān)心的一項(xiàng)。表3-6消費(fèi)項(xiàng)目價(jià)格表序號字段名稱數(shù)據(jù)類型長度1記錄號Int42項(xiàng)目編號Varchar103簡稱Varchar254名稱Varchar505單位Varchar106單價(jià)Money87說明Varchar1007、月營業(yè)信息表月營業(yè)信息表主要用于總經(jīng)理查看某些月的盈利情況。表3-7月營業(yè)信息表序號字段名稱數(shù)據(jù)類型長度1月份Char82月份營業(yè)額Money8第4章系統(tǒng)的實(shí)現(xiàn)4.1數(shù)據(jù)庫連接功能為了節(jié)省系統(tǒng)資源，在系統(tǒng)中新建一個(gè)Modulel模塊，該模塊主要用于連接數(shù)據(jù)庫和表，從而避免了程序中重復(fù)性地定義數(shù)據(jù)連接和數(shù)據(jù)集對象。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系統(tǒng)登錄窗體和主界面根據(jù)系統(tǒng)登錄窗體，可以選擇不同的登錄身份，具有不同的操作權(quán)限。在單擊“確認(rèn)”按鈕時(shí)，判斷操作員及其密碼，如果該操作員存在，那么允許登錄系統(tǒng)，并為系統(tǒng)管理員分配權(quán)限。否則，提示用戶“密碼錯(cuò)誤”，如果輸入三次錯(cuò)誤的密碼，那么系統(tǒng)將自動(dòng)退出。登錄窗體（如圖4-1所示）圖4-1系統(tǒng)登錄窗體運(yùn)行結(jié)果當(dāng)輸入的密碼正確時(shí)，可進(jìn)入主界面（如圖4-2所示）圖4-2系統(tǒng)主窗體單擊系統(tǒng)登錄窗體上“確認(rèn)”按鈕的click事件代碼：PrivateSubcomyes_Click()DimMESSAGEAsStringAdodc1.RecordSource="select*from權(quán)限信息表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("經(jīng)理查詢系統(tǒng)")=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("系統(tǒng)維護(hù)")=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("密碼輸入錯(cuò)誤,請向系統(tǒng)管理員查詢!",0,"系統(tǒng)提示")IfMESSAGE=vbOKThenEndEndIfIfczy.Caption=""ThenMsgBox"請選擇操作員!",,"系統(tǒng)提示"ListView1.SetFocusElseIfText1.Text<>Adodc1.Recordset.Fields("密碼")ThenMsgBox"密碼錯(cuò)誤,請重新輸入密碼!",,"系統(tǒng)提示"TIM=TIM+1Text1.SetFocusEndIfEndIfEndIf4.3總臺服務(wù)管理總臺服務(wù)管理窗體主要實(shí)現(xiàn)客人領(lǐng)牌、服務(wù)登記、查看消費(fèi)信息箱號的調(diào)換等功能。在總臺服務(wù)管理中設(shè)計(jì)一個(gè)View_List過程，以顯示箱號及狀態(tài)，主要通過ListView控件的ListItems集合中的Add方法實(shí)現(xiàn)。另外，在程序中還使用了SQL語句中的SUM函數(shù)，主要用于統(tǒng)計(jì)箱號空閑、使用和損壞的個(gè)數(shù)。（如圖4-3所示）圖4-3總臺服務(wù)管理窗體服務(wù)登記通過總臺服務(wù)管理窗體中“服務(wù)登記”工具欄按鈕調(diào)出“客人消費(fèi)等級按鈕”?？腿讼M(fèi)登記窗口主要實(shí)現(xiàn)客人消費(fèi)項(xiàng)目的添加。并且為了使用戶更加方便快捷的選擇服務(wù)項(xiàng)目，當(dāng)用戶輸入服務(wù)項(xiàng)目的簡稱后，程序?qū)⒃凇跋M(fèi)項(xiàng)目價(jià)格表”。中模糊檢索服務(wù)項(xiàng)目信息。單擊“登記”按鈕的代碼如下：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客人消費(fèi)登記窗口2、換箱單擊總臺服務(wù)管理窗口的“換箱”按鈕，顧客可以方便的更改箱號，前提箱號為空閑。更新原箱號和現(xiàn)在箱號的代碼如下：PrivateSubCmdEnd_Click()OnErrorResumeNextmyval=MsgBox("確認(rèn)將["&Labydt.Caption&""&Labyxh.Caption&"箱號]的客人轉(zhuǎn)到["&Trim(Combo1.Text)&""&Trim(Adodc1.Recordset.Fields("箱號"))&"箱號]嗎？",vbYesNo)Ifmyval=vbYesThentxtSQL="update臨時(shí)消費(fèi)信息表set箱號='"+Trim(Adodc1.Recordset.Fields("箱號"))+"',所在大廳='"+Trim(Combo1.Text)+"'where箱號='"+Trim(Labyxh.Caption)+"'and所在大廳='"+Trim(Labydt.Caption)+"'"Setrs1=ESQL(txtSQL)txtSQL="update包房消費(fèi)臨時(shí)表set箱號='"+Trim(Adodc1.Recordset.Fields("箱號"))+"',所在大廳='"+Trim(Combo1.Text)+"'where箱號='"+Trim(Labyxh.Caption)+"'and所在大廳='"+Trim(Labydt.Caption)+"'"Setrs2=ESQL(txtSQL)Adodc1.Recordset.Fields("狀態(tài)")="使用"Adodc1.Recordset.UpdateAdodc1.RecordSource="select*from箱號信息表where箱號='"+Trim(Labyxh.Caption)+"'and所在大廳='"+Trim(Labydt.Caption)+"'"Adodc1.RefreshAdodc1.Recordset.Fields("狀態(tài)")="空閑"Adodc1.Recordset.Updatemain_qtgl_ztfwgl.Enabled=Truemain_qtgl_ztfwgl.ListView1.ListItems.ClearCallmain_qtgl_ztfwgl.View_ListUnloadMeEndIf圖4-5換箱窗體的運(yùn)行結(jié)果3、統(tǒng)計(jì)查詢客人消費(fèi)統(tǒng)計(jì)查詢窗口主要實(shí)現(xiàn)客人點(diǎn)單、贈(zèng)單和所有金額的統(tǒng)計(jì)，其主要使用sum函數(shù)。在總臺服務(wù)管理窗體中的ToolBar控件的ButtonClick事件下添加如下代碼：CaseIs="tj"IfAdodc1.Recordset.RecordCount>0AndAdodc1.Recordset.Fields("狀態(tài)")="使用"Thenmain_qtgl_ztfwgl_tj.Adodc1.RecordSource="select*from臨時(shí)消費(fèi)信息表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消費(fèi)狀態(tài)as狀態(tài)1,sum(金額小計(jì))as金額合計(jì)from臨時(shí)消費(fèi)信息表where箱號='"+Trim(list)+"'and所在大廳='"+Trim(Combo1.Text)+"'groupby消費(fèi)狀態(tài)orderby消費(fèi)狀態(tài)"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)="贈(zèng)單"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("對不起，此箱號的客人未消費(fèi)，請重新選擇！")EndIfElseIfAdodc1.Recordset.Fields("狀態(tài)")="空閑"ThenMsgBox"請先領(lǐng)牌！"ElseIfAdodc1.Recordset.Fields("狀態(tài)")="損壞"ThenMsgBox"您選的箱號已損壞，請重新選擇！"EndIfCaseIs="jy"IfAdodc1.Recordset.RecordCount>0AndAdodc1.Recordset.Fields("狀態(tài)")="空閑"ThenAdodc1.Recordset.Fields("狀態(tài)")="損壞"Adodc1.Recordset.UpdateListView1.ListItems.ClearCallView_ListElseIfAdodc1.Recordset.Fields("狀態(tài)")="使用"ThenMsgBox"您選的箱號正在使用，請重新選擇！"ElseIfAdodc1.Recordset.Fields("狀態(tài)")="損壞"ThenMsgBox"您選的箱號已損壞，請重新選擇！"EndIfCaseIs="hf"IfAdodc1.Recordset.RecordCount>0AndAdodc1.Recordset.Fields("狀態(tài)")="損壞"ThenAdodc1.Recordset.Fields("狀態(tài)")="空閑"Adodc1.Recordset.UpdateListView1.ListItems.ClearCallView_ListElseIfAdodc1.Recordset.Fields("狀態(tài)")="使用"ThenMsgBox"您選的箱號正在使用，請重新選擇！"ElseIfAdodc1.Recordset.Fields("狀態(tài)")="空閑"ThenMsgBox"您選的箱號沒有損壞，請重新選擇！"EndIf圖4-6消費(fèi)統(tǒng)計(jì)窗體運(yùn)行結(jié)果4.4結(jié)賬收銀管理結(jié)賬收銀管理主要實(shí)現(xiàn)普通結(jié)賬、免單結(jié)賬、箱號的禁止使用和恢復(fù)使用等功能，運(yùn)行結(jié)果（如圖4－7所示）圖4-7結(jié)賬收銀管理4.5月結(jié)算管理通過月結(jié)算管理窗口，洗浴中心可以方便快捷的查看每月的盈利情況，對比后調(diào)整對洗浴中心的管理。單擊月結(jié)算管理窗體中的“開始月結(jié)算”按鈕代碼如下：PrivateSubComyj_Click()Adodc1.RecordSource="select*from月消費(fèi)單據(jù)表"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenComyj.Enabled=TrueElseComyj.Enabled=FalseEndIfmyval=MsgBox("確認(rèn)結(jié)算當(dāng)月數(shù)據(jù)嗎？",vbYesNo)Ifmyval=vbYesThenAdodc2.RecordSource="selectsum(消費(fèi)實(shí)收)from月消費(fèi)單據(jù)表"Adodc2.RefreshIfAdodc2.Recordset.RecordCount>0ThentxtSQL="select*from月營業(yè)分析表"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歷史消費(fèi)信息表(箱號,所在大廳,項(xiàng)目編號,名稱,單位,單價(jià),數(shù)量,簡稱,消費(fèi)狀態(tài),隱藏狀態(tài),登記時(shí)間,折扣,金額小計(jì),消費(fèi)單據(jù)號)select箱號,所在大廳,項(xiàng)目編號,名稱,單位,單價(jià),數(shù)量,簡稱,消費(fèi)狀態(tài),隱藏狀態(tài),登記時(shí)間,折扣,金額小計(jì),消費(fèi)單據(jù)號from月消費(fèi)信息表orderby消費(fèi)單據(jù)號"Setrs1=ESQL(txtSQL)ESQL.ClosetxtSQL="insert歷史消費(fèi)單據(jù)表(消費(fèi)單據(jù)號,主客箱號,主客姓名,主客性別,登記時(shí)間,結(jié)帳日期,結(jié)帳方式,主客消費(fèi)金額,總計(jì)消費(fèi),打折,消費(fèi)應(yīng)收,實(shí)交金