數(shù)據(jù)庫(kù)應(yīng)用技術(shù)-北京洗浴管理信息系統(tǒng)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上遼 寧 工 業(yè) 大 學(xué)數(shù)據(jù)庫(kù)應(yīng)用技術(shù)課 程 設(shè) 計(jì) 說(shuō) 明 書題目： 北京洗浴管理信息系統(tǒng) 學(xué)院（系）： 軟件學(xué)院 專業(yè)班級(jí)： 軟件工程 班 學(xué) 號(hào)： 學(xué)生姓名： 指導(dǎo)教師： 佟玉軍 教師職稱： 副教授 起止時(shí)間： 2011.12.19-2012.12.31 遼寧工業(yè)大學(xué)課程設(shè)計(jì)（論文）任務(wù)書院（系）：軟件學(xué)院 教研室： 軟件工程 學(xué) 號(hào) 學(xué)生姓名 專業(yè)班級(jí)軟件工程 班設(shè)計(jì)題目北京洗浴管理信息系統(tǒng)設(shè)計(jì)技術(shù)參數(shù)1 題目要達(dá)到的目標(biāo)：完成系統(tǒng)的登陸、數(shù)據(jù)的插入刪除修改統(tǒng)計(jì)等基本操作。2 數(shù)據(jù)庫(kù)：SQLSERVER2000。3 所使用的語(yǔ)言、工具:VB6.0+ SQLSER

2、VER2000+WINDOWSXP。4 所采用的技術(shù)、系統(tǒng)結(jié)構(gòu):ADO數(shù)據(jù)庫(kù)聯(lián)接技術(shù),系統(tǒng)結(jié)構(gòu)為C/S結(jié)構(gòu)。設(shè)計(jì)要求1 教師布置實(shí)習(xí)任務(wù)和要求時(shí)，不得缺席，并做好記錄。2 上機(jī)前預(yù)先把所有的源程序編寫好。3 上機(jī)時(shí)不得遲到，不得缺席，愛護(hù)設(shè)備，認(rèn)真調(diào)試程序。4 仔細(xì)查閱相關(guān)資料，認(rèn)真完成思考題。5 按要求書寫設(shè)計(jì)任務(wù)書，并按要求按版打印，不得雷同。工作量二周工作計(jì)劃周一聽取教師布置設(shè)計(jì)的任務(wù)及要求。周二學(xué)生查閱相關(guān)資料，進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)。周三至周五：詳細(xì)設(shè)計(jì)與界面設(shè)計(jì)。周一至周四程序設(shè)計(jì)與上機(jī)，調(diào)試源程序。周五書寫課程設(shè)計(jì)任務(wù)書。參考資料數(shù)據(jù)庫(kù)應(yīng)用技術(shù)數(shù)據(jù)庫(kù)應(yīng)用技術(shù)實(shí)驗(yàn)指導(dǎo)書自編數(shù)據(jù)庫(kù)應(yīng)用技術(shù)課

3、程設(shè)計(jì)指導(dǎo)書等自編指導(dǎo)教師評(píng)語(yǔ)該生在數(shù)據(jù)庫(kù)系統(tǒng)概論課程設(shè)計(jì)期間：上機(jī)時(shí)不遲到，不缺席，愛護(hù)設(shè)備，認(rèn)真調(diào)試程序。仔細(xì)查閱相關(guān)資料，認(rèn)真完成作業(yè)。聽從指導(dǎo)教師安排。在設(shè)計(jì)與實(shí)現(xiàn)過(guò)程中，能使設(shè)計(jì)的系統(tǒng)達(dá)到預(yù)期設(shè)計(jì)要求，功能合理，流程清楚，語(yǔ)句條理通順。 變手寫 教師： 學(xué)生：說(shuō)明：此表一式四份，學(xué)生、指導(dǎo)教師、教研室、系部各一份?？杉痈巾?yè)。2011年 12 月 31專心-專注-專業(yè) 目錄第一章 概述在現(xiàn)實(shí)的社會(huì)中，小型洗浴公司或企業(yè)的管理還大多停留在人工管理日常業(yè)務(wù)運(yùn)作的水平上，人們使用傳統(tǒng)人工的方式管理業(yè)務(wù)文檔，這種管理方式存在著許多缺點(diǎn),如:效率低、易出錯(cuò)，另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),

4、這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。企業(yè)開發(fā)洗浴管理系統(tǒng)，不僅能提高管理水平,給管理者提供一個(gè)企業(yè)運(yùn)作的信息平臺(tái)還能提升企業(yè)的形象及增強(qiáng)競(jìng)爭(zhēng)力。使用該洗浴管理系統(tǒng)能將洗浴業(yè)務(wù)管理和收銀結(jié)算管理信息化，使企業(yè)從服務(wù)項(xiàng)目入庫(kù)到客人點(diǎn)單消費(fèi)再到消費(fèi)結(jié)算都由計(jì)算機(jī)管理并記錄，可隨時(shí)掌握房間的使用狀況，客人點(diǎn)單，結(jié)帳等情況，并能盡可能的降低使用者的勞動(dòng)強(qiáng)度，同時(shí)提高工作質(zhì)量和效率。在競(jìng)爭(zhēng)越來(lái)越激烈的洗浴業(yè)中取得優(yōu)勢(shì)。根據(jù)洗浴企業(yè)的特點(diǎn)和實(shí)際情況，該系統(tǒng)以消費(fèi)結(jié)算業(yè)務(wù)為基礎(chǔ)，主要突出點(diǎn)單、結(jié)賬。點(diǎn)單方面主要采取圖形加數(shù)據(jù)的方式使用戶能直觀的管理數(shù)據(jù)信息，并能有效的管理各個(gè)包房與箱包，箱號(hào)點(diǎn)單信息也讓

5、用戶一目了然；這里突出了重要的兩點(diǎn)：一是：操作管理的信息準(zhǔn)確無(wú)誤，可讓用戶放心。二是：操作管理的速度快、管理方便、實(shí)用性高。這里還提供了特殊的選項(xiàng)功能。服務(wù)項(xiàng)目與結(jié)算管理的有機(jī)結(jié)合，可為該經(jīng)營(yíng)方提供依據(jù)，為洗浴企業(yè)的發(fā)展提供保證第二章 問題定義本系統(tǒng)主要使用VB語(yǔ)言開發(fā)系統(tǒng)，VB語(yǔ)言具有簡(jiǎn)單易學(xué)的特性，把設(shè)計(jì)人員從繁瑣復(fù)雜的界面設(shè)計(jì)中解脫出來(lái)。強(qiáng)大的多媒體功能可以輕而易舉地開發(fā)出集聲音、動(dòng)畫、和圖像于一體的多媒體應(yīng)用程序。數(shù)據(jù)庫(kù)服務(wù)器選用SQL Server 2000數(shù)據(jù)庫(kù)，它能夠處理大量數(shù)據(jù)，同時(shí)保持?jǐn)?shù)據(jù)的完整性并提供許多高級(jí)管理功能。它的靈活性、安全性和易用性為數(shù)據(jù)庫(kù)編程提供了良好的條件。

6、而且VB語(yǔ)言與SQL Server 2000對(duì)系統(tǒng)的軟硬件環(huán)境要求并不高。因此，系統(tǒng)的軟件開發(fā)平臺(tái)已成熟可行。主要是對(duì)項(xiàng)目的經(jīng)濟(jì)效益進(jìn)行評(píng)價(jià)，本系統(tǒng)的開發(fā)不需要額外的硬件設(shè)備，經(jīng)費(fèi)對(duì)于本學(xué)院是可以接受的，并且本系統(tǒng)實(shí)施后可以顯著提高工作效率，有助于學(xué)院完全實(shí)現(xiàn)信息化管理。所以本系統(tǒng)開發(fā)在經(jīng)濟(jì)上是可行的。采用此系統(tǒng)，可以減輕管理人員的工作量，使管理人員從大量繁瑣的添表、查表、手工制表中解放出來(lái)。能夠節(jié)省大量的人力、物力，工作效率大大提高，預(yù)計(jì)查詢速度可以比原人工查詢提高幾倍以上，并且可以大大提高準(zhǔn)確性和精確性，而且可以安全地、完整地保存大量的設(shè)備記錄。使設(shè)備的管理更加規(guī)范化，系統(tǒng)化。此項(xiàng)目雖然經(jīng)

7、濟(jì)效益不是太大，但可以減輕工作人員的勞動(dòng)強(qiáng)度，并可以促進(jìn)企業(yè)對(duì)洗浴管理的規(guī)范化和自動(dòng)化，而且價(jià)格低廉，所以是有應(yīng)用價(jià)值的，而且在技術(shù)上完全是可行的，可以馬上進(jìn)行開發(fā)工作。第三章 需求分析一、數(shù)據(jù)庫(kù)需求分析北京洗浴管理信息系統(tǒng)內(nèi)容涉及：箱號(hào)信息表、權(quán)限信息表、月消費(fèi)信息表、日消費(fèi)信息表、單據(jù)號(hào)表、包房信息表等。通過(guò)系統(tǒng)的設(shè)計(jì)使洗浴行業(yè)的管理人員方便、快速、準(zhǔn)確的管理整個(gè)洗浴情況，減少手工管理的復(fù)雜性和易錯(cuò)性。本系統(tǒng)操作方便，有強(qiáng)大的提示功能。即使非計(jì)算機(jī)專業(yè)人員只要經(jīng)過(guò)簡(jiǎn)單培訓(xùn)就能掌握系統(tǒng)的使用方法，減少培訓(xùn)和管理開支。而且系統(tǒng)具有智能化、可擴(kuò)展性、集成有效性。本軟件適合各種洗浴中心的管理工作提

8、高洗浴管理工作的效率，減少不必要的開支。針對(duì)一般洗浴管理系統(tǒng)的需求，通過(guò)對(duì)客戶洗浴過(guò)程的服務(wù)和數(shù)據(jù)流程分析，設(shè)計(jì)數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)。二、數(shù)據(jù)庫(kù)概念的結(jié)構(gòu)設(shè)計(jì)得到上面的數(shù)據(jù)想和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。這些實(shí)體包含各種具體信息，通過(guò)相互之間的作用形成數(shù)據(jù)的流動(dòng)。我所設(shè)計(jì)的實(shí)體有：包房信息實(shí)體、包房消費(fèi)臨時(shí)信息實(shí)體、單據(jù)號(hào)信息實(shí)體、員工信息實(shí)體、日消費(fèi)信息實(shí)體、月消費(fèi)信息實(shí)體、箱號(hào)信息實(shí)體。三、數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)設(shè)計(jì)將概念轉(zhuǎn)化為SQL Sever2000數(shù)據(jù)庫(kù)系統(tǒng)。本系統(tǒng)采用SQL Server 2000 建立數(shù)據(jù)庫(kù)，包括表：

9、包房信息表、包房消費(fèi)臨時(shí)表、單據(jù)號(hào)表、員工信息表、日消費(fèi)信息表、月消費(fèi)信息表、箱號(hào)信息表等。四、數(shù)據(jù)字典（DD）包房信息實(shí)體編號(hào)樓層房間號(hào)包房名稱包房說(shuō)明所屬部門包房類型容納人數(shù)狀態(tài)包房?jī)r(jià)格消費(fèi)單位分鐘描述包房消費(fèi)信息實(shí)體= 記錄號(hào)房間號(hào)包房名稱包房?jī)r(jià)格分鐘描述箱號(hào)+所在大廳進(jìn)入時(shí)間單據(jù)號(hào)信息實(shí)體= 單據(jù)編號(hào)單據(jù)名稱員工信息實(shí)體=員工編號(hào)+員工姓名性別出生日期文化程度所屬部門職務(wù)身份證號(hào)電話薪金日消費(fèi)信息實(shí)體=記錄號(hào)箱號(hào)所在大廳項(xiàng)目編號(hào)名稱單位單價(jià)數(shù)量簡(jiǎn)稱金額小計(jì)月消費(fèi)信息實(shí)體=記錄號(hào)箱號(hào)所在大廳項(xiàng)目編號(hào)名稱單位單價(jià)數(shù)量簡(jiǎn)稱金額小計(jì)箱號(hào)信息實(shí)體=記錄號(hào)箱號(hào)所在大廳狀態(tài)五、數(shù)據(jù)流圖數(shù)據(jù)流圖就是采

10、用圖形方式來(lái)表達(dá)系統(tǒng)的邏輯功能、數(shù)據(jù)在系統(tǒng)內(nèi)部的邏輯流向和邏輯變換過(guò)程，是結(jié)構(gòu)化系統(tǒng)分析方法的主要表達(dá)工具及用于表示軟件模型的一種圖示方法。建立洗浴信息管理系統(tǒng)的數(shù)據(jù)流圖。管理員洗浴管理信息系統(tǒng)用戶 事務(wù) 處理圖3.1頂層數(shù)據(jù)流圖管理員1.1前臺(tái)信息管理1.2總臺(tái)服務(wù)管理1.3服務(wù)登記 2消費(fèi)查詢用戶 D1 統(tǒng)計(jì)消費(fèi)信息圖3.2總臺(tái)服務(wù)據(jù)流圖六、功能結(jié)構(gòu)圖系統(tǒng)功能結(jié)構(gòu)圖主要從功能的角度描述了系統(tǒng)的結(jié)構(gòu)，但并未表達(dá)各功能之間的數(shù)據(jù)傳送關(guān)系。圖3.3系統(tǒng)功能結(jié)構(gòu)圖第四章 數(shù)據(jù)庫(kù)設(shè)計(jì)一、概念設(shè)計(jì)E-R圖也即實(shí)體-聯(lián)系圖(Entity Relationship Diagram)，提供了表示實(shí)體型、屬性

11、和聯(lián)系的方法，用來(lái)描述現(xiàn)實(shí)世界的概念模型。我所設(shè)計(jì)的實(shí)體有：包房信息實(shí)體、包房消費(fèi)臨時(shí)信息實(shí)體、單據(jù)號(hào)信息實(shí)體、歷史消費(fèi)信息實(shí)體、員工信息實(shí)體、日消費(fèi)信息實(shí)體、月消費(fèi)信息實(shí)體、箱號(hào)信息實(shí)體。容納人數(shù)消費(fèi)單位包房信息實(shí)體包房?jī)r(jià)格部門編號(hào)樓層名稱說(shuō)明房間號(hào)單位描述類型狀態(tài)圖4.1包房信息實(shí)體E-R圖單據(jù)號(hào)實(shí)體單據(jù)編號(hào)單據(jù)名稱圖4.2庫(kù)存實(shí)體E-R圖臨時(shí)消費(fèi)實(shí)體進(jìn)入時(shí)間箱號(hào)房間號(hào)所在大廳記錄號(hào)包房名稱分鐘描述包房?jī)r(jià)格圖4.3包房臨時(shí)消費(fèi)實(shí)體E-R圖員工信息實(shí)體員工編號(hào)性別出生日期員工姓名電話薪金文化程度身份正好文化程度圖4.4客戶信息實(shí)體E-R圖箱號(hào)信息實(shí)體記錄號(hào)狀態(tài)所在大廳箱號(hào)圖4.5 箱號(hào)信息實(shí)

12、體E-R圖日消費(fèi)實(shí)體記錄號(hào)編號(hào)名稱所在大廳單位單價(jià)簡(jiǎn)稱金額數(shù)量圖4.6日消費(fèi)實(shí)體E-R圖月消費(fèi)實(shí)體記錄號(hào)編號(hào)名稱所在大廳單位單價(jià)簡(jiǎn)稱金額數(shù)量圖4.7月消費(fèi)實(shí)體E-R圖二、邏輯設(shè)計(jì)本系統(tǒng)采用SQL Server 2000 建立數(shù)據(jù)庫(kù)，包括表：臨時(shí)消費(fèi)信息表、包房信息表、包房消費(fèi)臨時(shí)表、單據(jù)號(hào)表、歷史消費(fèi)信息表、員工信息表、日消費(fèi)信息表、月消費(fèi)信息表、箱號(hào)信息表。下面列出幾個(gè)主要的數(shù)據(jù)庫(kù)表設(shè)計(jì)：1.包房信息表主要記錄了房間的容納人數(shù)和名稱，以便對(duì)各房間的管理。表4.1 包房信息表列名數(shù)據(jù)類型長(zhǎng)度允許空編 號(hào) varchar3主鍵樓 層varchar10不允許空房 間 號(hào)varchar10不允許空包

13、房名稱varchar30不允許空包房說(shuō)明varchar50不允許空所屬部門varchar30不允許空包房類型varchar30不允許空容納人數(shù)Int4不允許空狀 態(tài)varchar20不允許空現(xiàn)容納人數(shù)Int4不允許空包房單價(jià)Money 8不允許空消費(fèi)單位varchar10不允許空分鐘描述int4不允許空2.包房臨時(shí)消費(fèi)信息表記錄了各包房的臨時(shí)消費(fèi)信息。表4.2 包房臨時(shí)消費(fèi)信息表列名數(shù)據(jù)類型長(zhǎng)度允許空記 錄 號(hào)int4主鍵房 間 號(hào)varchar10不允許空包房名稱varchar50不允許空包房?jī)r(jià)格Money8不允許空分鐘描述Char10不允許空箱 號(hào)varchar10不允許空所在大廳varc

14、har30不允許空進(jìn)入時(shí)間Datetime10不允許空結(jié)束時(shí)間Datetime10不允許空消費(fèi)時(shí)間Datetime10不允許空消費(fèi)金額money8不允許空3.單據(jù)號(hào)信息表記錄了單據(jù)的編號(hào)和名稱信息。表4.3單據(jù)號(hào)信息表列名數(shù)據(jù)類型長(zhǎng)度允許空單據(jù)編號(hào)char10主鍵單據(jù)名稱char20不允許空4. 日消費(fèi)信息表主要記錄人員日消費(fèi)的相應(yīng)信息。表4.4 日消費(fèi)信息表列名數(shù)據(jù)類型長(zhǎng)度允許空記 錄 號(hào)int8主鍵箱 號(hào)varchar10不允許空所在大廳varchar6不允許空項(xiàng)目編號(hào)varchar8不允許空名 稱varchar50不允許空單 位varchar8不允許空單 價(jià)money50不允許空數(shù) 量i

15、nt10不允許空簡(jiǎn) 稱varchar25不允許空消費(fèi)狀態(tài)varchar10不允許空隱藏狀態(tài)varchar8不允許空登記時(shí)間Datetime 8不允許空折 扣float8不允許空金額小計(jì)money8不允許空消費(fèi)單據(jù)號(hào)varchar30不允許空5.日消費(fèi)信息表主要記錄人員日消費(fèi)的相應(yīng)信息。表4.5月消費(fèi)信息表列名數(shù)據(jù)類型長(zhǎng)度允許空記 錄 號(hào)int8主鍵箱 號(hào)varchar10不允許空所在大廳varchar6不允許空項(xiàng)目編號(hào)varchar8不允許空名 稱varchar50不允許空單 位varchar8不允許空單 價(jià)money50不允許空數(shù) 量int10不允許空簡(jiǎn) 稱varchar25不允許空消費(fèi)狀態(tài)

16、varchar10不允許空隱藏狀態(tài)varchar8不允許空登記時(shí)間Datetime 8不允許空折 扣float8不允許空金額小計(jì)money8不允許空消費(fèi)單據(jù)號(hào)varchar30不允許空6.員工信息表記錄了各員工的基本信息。表4.6員工信息表列名數(shù)據(jù)類型長(zhǎng)度允許空員工編號(hào)Char 10主鍵員工姓名Char16不允許空性 別Char10不允許空出生日期Datetime 8不允許空文化程度Char20不允許空所屬部門Char10不允許空職 務(wù)Char30不允許空身份證號(hào)varchar30不允許空聯(lián)系電話varchar10不允許空聯(lián)系地址Char30不允許空聘用日期datetime30不允許空薪 金m

17、oney20不允許空7.箱號(hào)信息表記錄了箱號(hào)的編號(hào)和所在大廳等信息。表4.7箱號(hào)信息表列名數(shù)據(jù)類型長(zhǎng)度允許空記 錄 號(hào)Int 4主鍵箱 號(hào)varchar10不允許空所在大廳varchar30不允許空狀 態(tài)varchar10不允許空三、物理設(shè)計(jì)要確定數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)。確定數(shù)據(jù)庫(kù)存儲(chǔ)結(jié)構(gòu)時(shí)要綜合考慮存取時(shí)間、存儲(chǔ)空間利用率和維護(hù)代價(jià)三方面的因素。這三個(gè)方面常常是相互矛盾的，例如消除一切冗余數(shù)據(jù)雖然能夠節(jié)約存儲(chǔ)空間，但往往會(huì)導(dǎo)致檢索代價(jià)的增加，因此必須進(jìn)行權(quán)衡，選擇一個(gè)折中方案。在關(guān)系數(shù)據(jù)庫(kù)中，選擇存取路徑主要是指確定如何建立索引。例如，應(yīng)把哪些域作為次碼的建立次索引，建立單碼索引還是組合索引，建立

18、多少個(gè)為合適，是否建立聚集索引等。為了提高系統(tǒng)性能，數(shù)據(jù)應(yīng)該根據(jù)應(yīng)用情況將易變部分與穩(wěn)定部分、經(jīng)常存取部分和存取頻率較低部分分開存放。數(shù)據(jù)庫(kù)物理設(shè)計(jì)過(guò)程中需要對(duì)時(shí)間效率、空間效率、維護(hù)代價(jià)和各種用戶要求進(jìn)行權(quán)衡，其結(jié)果可以產(chǎn)生多種方案，數(shù)據(jù)庫(kù)設(shè)計(jì)人員必須對(duì)這些方案進(jìn)行細(xì)致的評(píng)價(jià)，從中選擇一個(gè)較優(yōu)的方案作為數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)。評(píng)價(jià)物理數(shù)據(jù)庫(kù)的方法完全依賴于所選用的DBMS，主要是從定量估算各種方案的存儲(chǔ)空間、存取時(shí)間和維護(hù)代價(jià)入手，對(duì)估算結(jié)果進(jìn)行權(quán)衡、比較，選擇出一個(gè)較優(yōu)的合理的物理結(jié)構(gòu)。如果該結(jié)構(gòu)不符合用戶需求，則需要修改設(shè)計(jì)。第五章 界面設(shè)計(jì)一、登陸窗口如下所示當(dāng)輸入用戶名和密碼以后，點(diǎn)擊“確

19、認(rèn)”鍵，如果用戶名和密碼都正確就可以順利進(jìn)入主窗體，如果輸入錯(cuò)誤，那么就有相應(yīng)的提示信息。如圖7.2所示。圖5.1登陸界面二、主界面單擊主界面上的各個(gè)按鈕，可以進(jìn)入相應(yīng)的界面中。圖5.2主程序界面三、權(quán)限界面設(shè)計(jì)圖5.3權(quán)限管理界面四、包房信息管理界面此界面對(duì)包房信息的添加、刪除、修改和查詢等操作。圖5.4包房信息管理界面第六章 代碼與注釋一、登錄代碼所編代碼如下:Dim MESSAGE As String '定義一個(gè)字符串變量 '按操作員名稱查詢權(quán)限信息 Adodc1.RecordSource = "select * from 權(quán)限信息表 where 操作員名稱 =

20、 '" + Trim(czy.Caption) + "'" Adodc1.Refresh '假如czy.caption不等于空并且text1.text等于數(shù)據(jù)庫(kù)中的密碼，那么 If czy.Caption <> "" And Text1.Text = Trim(Adodc1.Recordset.Fields("密碼") Then '設(shè)置操作員權(quán)限 If Adodc1.Recordset.Fields("基本信息管理") = 0 Then frm_main.jbx

21、xgl.Enabled = True Else frm_main.jbxxgl.Enabled = False If Adodc1.Recordset.Fields("前臺(tái)信息管理") = 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_m

22、ain.qtxxgl.Enabled = False 'frm_main.Toolbar1.Buttons(1).Enabled = False 'frm_main.Toolbar1.Buttons(3).Enabled = False 'frm_main.Toolbar1.Buttons(5).Enabled = False End If If Adodc1.Recordset.Fields("后臺(tái)信息管理") = 0 Then frm_main.htxxgl.Enabled = True 'frm_main.Toolbar1.Button

23、s(7).Enabled = True Else frm_main.htxxgl.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

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

25、bled = False 'frm_main.Toolbar1.Buttons(13).Enabled = False End If '調(diào)入frm_main主窗體 Load frm_main frm_main.Show frm_main.St1.Panels(3).Text = czy.Caption frm_main.St1.Panels(3).Text Unload MeElse '輸入三次錯(cuò)誤的密碼，系統(tǒng)自動(dòng)退出 If TIM = 3 Then MESSAGE = MsgBox("密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢!", 0, "系統(tǒng)提

26、示") If MESSAGE = vbOK Then End End If If czy.Caption = "" Then MsgBox "請(qǐng)選擇操作員!", , "系統(tǒng)提示" ListView1.SetFocus 'ListView1獲得焦點(diǎn) Else If Text1.Text <> Adodc1.Recordset.Fields("密碼") Then MsgBox "密碼錯(cuò)誤,請(qǐng)重新輸入密碼!", , "系統(tǒng)提示" TIM = TIM +

27、 1 '記錄輸入次數(shù) Text1.SetFocus 'text1獲得焦點(diǎn) End If End If End IfEnd Sub二、主界面代碼'Private Sub Form_Load() '在標(biāo)題欄上顯示軟件名稱與版本 'Me.Caption = App.Title & " 版本： V" & App.Major & "." & App.Minor & "." & App.Revision'End SubPrivate Sub bfxxg

28、l_Click() '調(diào)入包房信息管理窗口 Load main_jbxx_bfxxgl main_jbxx_bfxxgl.Show frm_main.Enabled = FalseEnd SubPrivate Sub xhxxgl_Click() '調(diào)入箱號(hào)信息管理窗口 Load main_jbxx_xhxxgl main_jbxx_xhxxgl.Show frm_main.Enabled = FalseEnd SubPrivate Sub fwxmgl_Click() '調(diào)入服務(wù)項(xiàng)目管理窗口 Load main_jbxx_fwxmgl main_jbxx_fwxmgl

29、.Show frm_main.Enabled = FalseEnd SubPrivate Sub ygxxgl_Click() '調(diào)入員工信息管理窗口 Load main_jbxx_yginf main_jbxx_yginf.Show frm_main.Enabled = FalseEnd SubPrivate Sub ztfwgl_Click() '調(diào)入總臺(tái)服務(wù)管理窗口 Load main_qtgl_ztfwgl main_qtgl_ztfwgl.Show frm_main.Enabled = FalseEnd SubPrivate Sub jzsygl_Click() &#

30、39;調(diào)入結(jié)帳收銀管理窗口 Load main_qtgl_jzgl main_qtgl_jzgl.Show frm_main.Enabled = FalseEnd SubPrivate Sub drxfcx_Click() '調(diào)入當(dāng)日消費(fèi)查詢窗口 Load main_qtgl_drxfcx main_qtgl_drxfcx.Show frm_main.Enabled = FalseEnd SubPrivate Sub rjsgl_Click() '調(diào)入日結(jié)算管理窗口 Load main_qtgl_rjgl main_qtgl_rjgl.Show frm_main.Enabled

31、 = FalseEnd SubPrivate Sub yjsgl_Click() '調(diào)入月結(jié)算管理窗口 Load main_htgl_yjgl main_htgl_yjgl.Show frm_main.Enabled = FalseEnd SubPrivate Sub ztfwcx_Click() '調(diào)入總臺(tái)服務(wù)查詢窗口 Load main_jlcx_ztfwcx main_jlcx_ztfwcx.Show frm_main.Enabled = FalseEnd SubPrivate Sub drjzcx_Click() '調(diào)入當(dāng)日結(jié)帳查詢窗口 Load main_jl

32、cx_drjzcx main_jlcx_drjzcx.Show frm_main.Enabled = FalseEnd SubPrivate Sub yyyfx_Click() '調(diào)入月營(yíng)業(yè)分析窗口 Load main_jlcx_yyyfx main_jlcx_yyyfx.Show frm_main.Enabled = FalseEnd SubPrivate Sub czysz_Click() '調(diào)入操作員設(shè)置窗口 Load main_xtwh_czysz main_xtwh_czysz.Show frm_main.Enabled = FalseEnd SubPrivate S

33、ub klsz_Click() '調(diào)入口令設(shè)置窗口 Load main_xtwh_klsz main_xtwh_klsz.Show frm_main.Enabled = FalseEnd SubPrivate Sub qxsz_Click() '調(diào)入權(quán)限設(shè)置窗口 Load main_xtwh_qxsz main_xtwh_qxsz.Show frm_main.Enabled = FalseEnd SubPrivate Sub sjbf_Click() '調(diào)入數(shù)據(jù)備份窗口 Load main_sjbf main_sjbf.Show Unload MeEnd SubPriv

34、ate Sub exit_Click() EndEnd SubPrivate Sub Timer1_Timer() '設(shè)置時(shí)間 St1.Panels(1).Text = Format(Date, "long date") & " " & TimeEnd Sub三、權(quán)限設(shè)計(jì)界面代碼If Text1.Text <> "" Then If DataList1.BoundText <> "" Then '按操作員名稱查詢權(quán)限信息 txtSQL = "sele

35、ct * from 權(quán)限信息表 where 操作員名稱='" & DataList1.BoundText & "'" Set rs1 = ESQL(txtSQL) If rs1.RecordCount > 0 Then '當(dāng)記錄大于零時(shí) For i = 0 To 4 '當(dāng)Check1(i)的值為1時(shí)，數(shù)據(jù)庫(kù)字段值為0，否則數(shù)據(jù)庫(kù)字段值為1 If Check1(i).Value = 1 Then rs1.Fields(i) = 0 Else rs1.Fields(i) = 1 Next i rs1.Update

36、'更新記錄 End If End If MsgBox "設(shè)置權(quán)限已完成！" Else MsgBox "請(qǐng)選擇操作員！" End If四、包房信息管理界面代碼Private Sub ComSave_Click() '保存包房信息 txtSQL = "select * from 包房信息表 where 編號(hào)='" & Trim(Text1(0).Text) & "'order by 編號(hào)" Set rs1 = ESQL(txtSQL) If rs1.RecordCount

37、 > 0 Then '當(dāng)記錄大于零時(shí) Dim a As String '定義字符串變量 a = MsgBox("您確實(shí)要修改這條數(shù)據(jù)嗎?", vbYesNo) If a = vbYes Then If Text1(12).Text = "" Or Text1(12).Text <= 0 Then MsgBox ("分鐘描述不正確，請(qǐng)輸入大于0的數(shù)據(jù)！") Exit Sub End If If Text1(10).Text = "" Then MsgBox ("請(qǐng)輸入包房?jī)r(jià)格！&

38、quot;) Exit Sub End If '賦值給數(shù)據(jù)庫(kù)字段 rs1.Fields("編號(hào)") = Text1(0).Text: rs1.Fields("樓層") = Text1(1).Text rs1.Fields("房間號(hào)") = Text1(2).Text: rs1.Fields("包房名稱") = Text1(3).Text rs1.Fields("包房說(shuō)明") = Text1(4).Text: rs1.Fields("所屬部門") = Combo1.Te

39、xt rs1.Fields("包房類型") = Combo2.Text: rs1.Fields("容納人數(shù)") = Val(Text1(5).Text) rs1.Fields("狀態(tài)") = Combo5.Text: rs1.Fields("現(xiàn)容納人數(shù)") = Val(Text1(9).Text) rs1.Fields("包房?jī)r(jià)格") = Val(Text1(10).Text): rs1.Fields("消費(fèi)單位") = Text1(11).Text rs1.Fields(&

40、quot;分鐘描述") = Val(Text1(12).Text) rs1.Update '更新記錄集 Adodc1.Refresh End If Else If Text1(0).Text = "" Then MsgBox ("請(qǐng)輸入編號(hào)！") Exit Sub End If If Text1(1).Text = "" Then MsgBox ("請(qǐng)輸入樓層！") Exit Sub End If If Text1(2).Text = "" Then MsgBox ("

41、;請(qǐng)輸入房間號(hào)！") Exit Sub End If If Text1(3).Text = "" Then MsgBox ("請(qǐng)輸入包房名稱！") Exit Sub End If If Text1(4).Text = "" Then MsgBox ("請(qǐng)輸入包房說(shuō)明！") Exit Sub End If If Text1(10).Text = "" Then MsgBox ("請(qǐng)輸入包房?jī)r(jià)格！") Exit Sub End If If Text1(12).Text

42、= "" Or Text1(12).Text <= "0" Then MsgBox ("分鐘描述不正確，請(qǐng)輸入大于0的數(shù)據(jù)！") Exit Sub End If rs1.AddNew '添加包房信息 '賦值給數(shù)據(jù)庫(kù)字段 rs1.Fields("編號(hào)") = Text1(0).Text: rs1.Fields("樓層") = Text1(1).Text rs1.Fields("房間號(hào)") = Text1(2).Text: rs1.Fields("包房名稱") = Text1(3).Text rs1.Fields("包房說(shuō)明") = Text1(4).Text: rs1.Fields("所屬部門") = C