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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

20、 '" + Trim(czy.Caption) + "'" Adodc1.Refresh '假如czy.caption不等于空并且text1.text等于數(shù)據(jù)庫中的密碼，那么 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("前臺信息管理") = 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("后臺信息管理") = 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)維護") = 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 '輸入三次錯誤的密碼，系統(tǒng)自動退出 If TIM = 3 Then MESSAGE = MsgBox("密碼輸入錯誤,請向系統(tǒng)管理員查詢!", 0, "系統(tǒng)提

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

27、 1 '記錄輸入次數(shù) Text1.SetFocus 'text1獲得焦點 End If End If End IfEnd Sub二、主界面代碼'Private Sub Form_Load() '在標題欄上顯示軟件名稱與版本 '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)入箱號信息管理窗口 Load main_jbxx_xhxxgl main_jbxx_xhxxgl.Show frm_main.Enabled = FalseEnd SubPrivate Sub fwxmgl_Click() '調(diào)入服務(wù)項目管理窗口 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)入總臺服務(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)日消費查詢窗口 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)入總臺服務(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è)分析窗口 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è)置時間 St1.Panels(1).Text = Format(Date, "long date") & " " & TimeEnd Sub三、權(quán)限設(shè)計界面代碼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)記錄大于零時 For i = 0 To 4 '當(dāng)Check1(i)的值為1時，數(shù)據(jù)庫字段值為0，否則數(shù)據(jù)庫字段值為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 "請選擇操作員！" End If四、包房信息管理界面代碼Private Sub ComSave_Click() '保存包房信息 txtSQL = "select * from 包房信息表 where 編號='" & Trim(Text1(0).Text) & "'order by 編號" Set rs1 = ESQL(txtSQL) If rs1.RecordCount

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

38、quot;) Exit Sub End If '賦值給數(shù)據(jù)庫字段 rs1.Fields("編號") = Text1(0).Text: rs1.Fields("樓層") = Text1(1).Text rs1.Fields("房間號") = Text1(2).Text: rs1.Fields("包房名稱") = Text1(3).Text rs1.Fields("包房說明") = 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("包房價格") = Val(Text1(10).Text): rs1.Fields("消費單位") = Text1(11).Text rs1.Fields(&

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

41、;請輸入房間號！") Exit Sub End If If Text1(3).Text = "" Then MsgBox ("請輸入包房名稱！") Exit Sub End If If Text1(4).Text = "" Then MsgBox ("請輸入包房說明！") Exit Sub End If If Text1(10).Text = "" Then MsgBox ("請輸入包房價格！") Exit Sub End If If Text1(12).Text

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