酒店管理系統(tǒng)的設(shè)計與實現(xiàn)48592

1、摘要：隨著計算機和信息技術(shù)的飛速發(fā)展，酒店客房的管理由傳統(tǒng)的工作模式逐漸被信息化、網(wǎng)絡(luò)化的現(xiàn)代工作模式所代替。以住宿為主的酒店假如再延 用傳統(tǒng)的管理模式，就會增加酒店管理成本和降低工作效率.在酒店客房管理中 融入先進的計算機和軟件技術(shù)，利用酒店客房管理系統(tǒng)進行管理就顯得十分有意 義。利用酒店客房管理系統(tǒng)進行管理能讓管理者及時了解酒店整體情況，便于各種決策，同時也簡化了管理的各種復(fù)雜操作，提高了酒店白管理效率.本文以茂名 星期八商務(wù)酒店為例采用 Visual Basic和ACCESS合,創(chuàng)建一個適合實際情 況的酒店客房管理系統(tǒng)。關(guān)鍵詞：酒店客房管理系統(tǒng)設(shè)計 實現(xiàn)Abstract: With th

2、e rapid development of computer and information technology ,the management of hotel rooms by the traditional working mode has gradually replaced by modern information technology , the network work mode. In order to stay at the main hotel if the extension of the traditional management mode , will inc

3、rease the cost and reduce the efficiency of hotel management. With advanced computers and software technology in the hotel guest room management, it is very meaningful and managed by the hotel guest room management system. Management can make managers to understand the overall situation of the hotel

4、 , hotel rooms management system , convenient for various decision-making, but also simplifies the management of a variety of complex operation , improve the management efficiency of the hotel management 。 In this paper Maoming week eight Traders Hotel as an example using Visual Basic and ACCESS com

5、bination, to create a suitable for the actual situation of the hotel room management system.Keywords ： Hotel room management system Design Realization第一章課題研究背景 3（一）酒店客房管理現(xiàn)狀 3（二）課題研究的意義 3第二章需求分析 3（一）系統(tǒng)目標(biāo) 3（_/）系統(tǒng)需求 3（三）功能需求4（四）系統(tǒng)的性能需求 4（五）開發(fā)技術(shù)5第三章系統(tǒng)總體功能5（一）系統(tǒng)功能結(jié)構(gòu) 5（二）系統(tǒng)流程圖6第五章各功能模塊代碼 11（一）酒店客房管理系統(tǒng) Mai

6、n模塊 11（二）初始化 main_csh 模塊 16（四）操作員設(shè)置 main_czysz 模塊 17（五）房態(tài)查詢 main_ftcx 模塊 19（六）掛賬結(jié)款 main_gzjk 20（七）客房查詢 main_kfcx 23（八）住宿登記 main_kfdj 23（九）客房設(shè)置 main_kfgl 32（十）密碼設(shè)置 main_mmsz 35（H） 權(quán)限設(shè)置 main_qxsz 37（十二）數(shù)據(jù)備份 main_sjbf 38（十三）數(shù)據(jù)恢復(fù) main_sjhf 39（十四）退宿結(jié)賬 main_tf 40（十五）退宿查詢 main_tfcx 51（十六）調(diào)房登記 main_tfdj 52（

7、十七）宿費提醒 main_xftx 56（十八）客房銷售報表 main_xsbb 57（十九）客房銷售統(tǒng)計 main_xstj 60（二十）登記預(yù)收報表 main_ysbb 61（二H）追加押金 main_zjyj 62（二十二）住宿查詢 main_zscx 67（二十三）酒店客房管理系統(tǒng) main_Login 68第六章調(diào)試與結(jié)果 69（一）初始化系統(tǒng)登錄調(diào)試 69（二）登記模塊的功能調(diào)試 70（三）退房的功能調(diào)試 70（四）住房查詢的功能調(diào)試 71參考文獻 72致 73酒店客房管理系統(tǒng)的設(shè)計與實現(xiàn)第一章課題研究背景隨著經(jīng)濟的迅速發(fā)展，酒店業(yè)的競爭日趨激烈。酒店業(yè)內(nèi)不得不進一步尋求 通過擴大

8、酒店銷售、改進服務(wù)質(zhì)量、降低管理成本和提升客戶滿意度等辦法來增 強酒店的核心競爭力。其中最有效的手段就是應(yīng)用現(xiàn)代化信息化技術(shù)，變革傳統(tǒng)意義上的酒店業(yè)經(jīng)營管理模式，跟上時代競爭的步伐。考慮到酒店業(yè)務(wù)的不斷提 升和用戶需求的日益多樣化，盡量滿足酒店的個性化需求，同時吸收了同類產(chǎn)品 及現(xiàn)有軟件系統(tǒng)的優(yōu)點，力爭設(shè)計成為一套先進適用的酒店管理軟件系統(tǒng)，為顧客提供更加便捷的信息化服務(wù)，為酒店管理者、決策者提供準(zhǔn)確及時的酒店經(jīng)營 信息，以達到酒店節(jié)約經(jīng)營成本、提高經(jīng)營質(zhì)量和經(jīng)濟效益的信息化管理目標(biāo)。(一)酒店客房管理現(xiàn)狀隨著計算機和信息技術(shù)的飛速發(fā)展，傳統(tǒng)的酒店客房管理模式逐漸被信息化 的現(xiàn)代酒店客房管理模

9、式所代替。傳統(tǒng)的酒店管理往往令管理者花大量的人力和 物力以滿足各種繁瑣的經(jīng)營活動的需要，例如冗長的登記和結(jié)賬手續(xù)、手工記錄 所有客房狀態(tài)、列表統(tǒng)計顧客消費情況等。這種工作模式不但效率低下，且極易出現(xiàn)錯誤和遺漏，有時甚至?xí)?dǎo)致嚴(yán)重的經(jīng)濟損失，給酒店的經(jīng)營帶來負(fù)面影響。(二)課題研究的意義對酒店整個來說，對酒店經(jīng)營狀況起決定作用的是酒店的服務(wù)管理水平.如何利用先進的管理手段來提高酒店的管理水平成為酒店業(yè)務(wù)發(fā)展的當(dāng)務(wù)之急。面對信息時代的機遇和挑戰(zhàn)，利用科技手段提高酒店的管理無疑是一條行之有效的 途徑。雖然計算機管理并不是酒店管理走向成功的關(guān)鍵元素，但它可以最大限度地發(fā)揮準(zhǔn)確、快捷、高效等作用，對酒店

10、的業(yè)務(wù)管理提供強有力的支持。因此 ， 采用全新的計算機網(wǎng)絡(luò)和酒店業(yè)務(wù)管理系統(tǒng)， 已成為提高酒店的管理效率，使作 業(yè)人員與管理系統(tǒng)之間靈活互動，實現(xiàn)流暢的工作流銜接，幫助酒店有效地進行 業(yè)務(wù)管理，釋放最大價值。酒店業(yè)務(wù)管理系統(tǒng)在達到在節(jié)省人力資源成本的同時， 可以提高業(yè)務(wù)效率，并能夠及時、準(zhǔn)確、迅速地滿足顧客服務(wù)的需求。第二章需求分析(一)系統(tǒng)目標(biāo)本系統(tǒng)需要滿足以下幾個系統(tǒng)設(shè)計目標(biāo).(1)實用性原則：真正為酒店工作人員的實際工作服務(wù) ，按照酒店客房管理 工作的實際流程，設(shè)計出實用的酒店客房管理系統(tǒng) .(2)安全性原則：必須為酒店客房提供信息安全的服務(wù)，以保證酒店信息的 不被泄露。(3)可操作性原

11、則：本酒店客房管理系統(tǒng)面向的是酒店內(nèi)工作人員，所以 系統(tǒng)操作上要求簡單、方便、快捷，便于用戶使用。(4)可擴展性原則：采用開發(fā)的標(biāo)準(zhǔn)和接口，便于系統(tǒng)向更大的規(guī)模和功能 擴展.(二)系統(tǒng)需求3根據(jù)酒店客房管理系統(tǒng)的理念，此酒店客房管理系統(tǒng)必須滿足以下需求：(1)具有設(shè)置酒店客房類型和房間信息的功能(2)能快速、準(zhǔn)確地了解酒店的客房狀態(tài)，以便訂房和退房(3)提供多種手段查詢客房訂房信息(4)提供修改訂房和修改退房功能(5)提供簡單的酒店工作人員的添加用戶和修改密碼功能(三)功能需求(1)利用系統(tǒng)設(shè)置中的初始化模塊清空系統(tǒng)中所有數(shù)據(jù)。(2)系統(tǒng)設(shè)置模塊主要是設(shè)置操作員、密碼及權(quán)限。(3)客房管理模塊

12、主要是對客房進行設(shè)置和查詢。(4 )住宿管理模塊主要是對住宿登記、追加押金、調(diào)房登記和退宿結(jié)賬進行 管理。(5)掛賬查詢模塊主要是對掛賬和客戶結(jié)款進行查詢。(6)查詢統(tǒng)計模塊主要是對住宿、退宿進行查詢以及對宿費進行提醒。(7)日結(jié)模塊主要是對登記預(yù)收、客房銷售進行報表管理以及對客房銷售進 行統(tǒng)計。(8)系統(tǒng)維護主要是對數(shù)據(jù)備份和恢復(fù)進行維護.(四)系統(tǒng)的性能需求為了保證系統(tǒng)能夠長期、安全、穩(wěn)定、可靠、高效的運行，系統(tǒng)應(yīng)該滿足以 下的性能需求：(1)系統(tǒng)處理的準(zhǔn)確性和及時性系統(tǒng)處理的準(zhǔn)確性和及時性是系統(tǒng)的必要性能。在系統(tǒng)設(shè)計和開發(fā)過程中，要充分考慮系統(tǒng)當(dāng)前和將來可能承受的工作量，使系統(tǒng)的處理能力

13、和響應(yīng)時間能 夠滿足用戶對信息的處理。由于系統(tǒng)的查詢功能對于整個系統(tǒng)的功能和性能完成 很重要。從系統(tǒng)的多個數(shù)據(jù)來源來看，客房信息查詢、訂房信息查詢、結(jié)算信息 查詢，其準(zhǔn)確性很大程度上決定了系統(tǒng)的成敗。因此，在系統(tǒng)開發(fā)過程中，系統(tǒng)采用優(yōu)化的 SQL語句及安全擴展存儲過程來 保證系統(tǒng)的準(zhǔn)確性和及時性。(2)系統(tǒng)的開放性和系統(tǒng)的可擴充性系統(tǒng)在開發(fā)過程中，應(yīng)該充分考慮以后的可擴充性。例如系統(tǒng)權(quán)限和客房信 息設(shè)置等模塊也會不斷的更新和完善。所有這些都要求系統(tǒng)提供足夠的手段進行 功能的調(diào)整和擴充.而要實現(xiàn)這一點，應(yīng)通過系統(tǒng)的開放性來完成，既系統(tǒng)應(yīng)是 一個開放系統(tǒng)，只要符合一定的規(guī)范，可以簡單的加入和減少系

14、統(tǒng)的模塊，配置系 統(tǒng)的硬件。通過軟件的修補、替換完成系統(tǒng)的升級和更新?lián)Q代.(3)系統(tǒng)的可操作性性本酒店客房管理系統(tǒng)面向的用戶是酒店內(nèi)工作人員，而有些使用人員往往對 計算機并不是非常熟悉，所以系統(tǒng)操作上要求簡單、方便、快捷,便于用戶使用。 這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機交互界面。(4)系統(tǒng)的響應(yīng)速度系統(tǒng)設(shè)計中摒棄大量數(shù)據(jù)冗余，提出了優(yōu)化數(shù)據(jù)庫的解決方案，大量使用存 儲過程，大大提高系統(tǒng)響應(yīng)時間和速度.系統(tǒng)在日常處理中的響應(yīng)速度為秒級，達到實時要求，以及時反饋信息。嚴(yán)格保證操作人員不會因為速度問題而影響工 作效率。（五）開發(fā)技術(shù)本系統(tǒng)利用Visual Basic 編譯環(huán)境,采用可視

15、化編程,以Microsoft OfficeAccess 2003作為后臺數(shù)據(jù)庫，選用ADO?問數(shù)據(jù)庫來實現(xiàn)各種功能。1。計算機及操作系統(tǒng)：WindowsXP或Windows72 .開發(fā)工具：Visual Basic3 .運行環(huán)境：裝有完整Microsoft Office Access 2003 的系統(tǒng)4 .語言：Visual Basic 與SQL查詢語言第三章系統(tǒng)總體功能（一）系統(tǒng)功能結(jié)構(gòu)1?；鞠到y(tǒng)模型5 .系統(tǒng)功能模型根據(jù)星期八商務(wù)酒店實際情況，酒店客房管理系統(tǒng)總體功能模型如下圖所（二）系統(tǒng)流程圖1。預(yù)訂流程：無* 顧客入住退出訂房系統(tǒng)2.結(jié)賬流程:第四章數(shù)據(jù)庫設(shè)計根據(jù)酒店客房管理系統(tǒng)需要

16、，設(shè)置的數(shù)據(jù)庫包含入住登記表tb_djb、預(yù)收登記表tb_djys、掛賬信息表tb_gzmx、酒店房間信息表tb_kf、權(quán)限設(shè)置表 tb_qxsz、調(diào)房登記表tb_tfd和管理者信息表tb_user。具結(jié)構(gòu)如下：入住登記表tb_djb :字段字段名字段大 小1憑證號碼文本202姓名文本203證件名稱文本204證件號碼文本205詳細(xì)地址文本506住宿事由文本507房問號文本308客房類型文本209客房價格貨幣10住宿日期日期/時間11住宿時間日期/時間12住宿天數(shù)數(shù)字雙精度 型713宿費貨幣14折扣數(shù)字雙精度 型15應(yīng)收宿費貨幣16預(yù)收金額貨幣17提醒日期日期/時間18退宿日期日期/時間19備注

17、文本5020標(biāo)志文本1021日期日期/時間22時間日期/時間23結(jié)款方式文本1024退宿時間日期/時間25提醒時間日期/時間26摘要文本120027BZ數(shù)字雙精度 型預(yù)收登記表tb_djys:字段字段名字段大小1憑證號碼文本202姓名文本203證件名稱文本204證件號碼文本205詳細(xì)地址文本506住宿事由文本507房問號文本308客房類型文本9客房價格貨幣10住宿日期日期/時間11住宿時間日期/時間12住宿天數(shù)數(shù)字雙精度型13宿費貨幣14折扣數(shù)字雙精度型15應(yīng)收宿費貨幣16預(yù)收金額貨幣17提醒日期日期/時間18退宿日期日期/時間19備注文本5020標(biāo)志文本1021日期日期/時間22時間日期/時

18、間23結(jié)款方式文本10824摘要文本20025退宿時間日期/時間26提醒時間日期/時間27BZ數(shù)字雙精度型掛賬信息表tb_gzmx：字段字段名字段大小1日期日期/時間2掛賬單位文本1003摘要文本1004住宿金額貨幣5欠款金額貨幣6還款金額貨幣7金額累計文本208姓名文本209證件號碼文本2010票號文本2011時間日期/時間12序號數(shù)字整型13房間標(biāo)準(zhǔn)文本1014房間價格文本10酒店房間信息表tb_kf:字段字段名字段大小1房問號文本302房間類型文本203價格貨幣4房態(tài)文本45標(biāo)志是/否6備注文本1007配置文本1008使用設(shè)置文本1009營業(yè)日期日期/時間權(quán)限設(shè)置表tb_qxsz :字段

19、字段名字段 大小1住宿登記是/否2追加押金是/否3調(diào)房登記是/否4退宿登記是/否5客房管理是/否6客房查詢r是/否7房態(tài)查看是/否8掛賬查詢是/否99掛賬結(jié)款是/否101住宿查詢是/否11退宿查詢是/否12宿費提醒是/否13登記預(yù)收報表是/否14客房銷售報表是/否15客房銷售統(tǒng)計報表是/否16操作員設(shè)置是/否17密碼設(shè)置一是/否18初始化是/否19權(quán)限設(shè)置是/否201設(shè)置窗口圖像r是/否21數(shù)據(jù)備份是/否22數(shù)據(jù)恢復(fù)是/否231編號p文本5024操作員文本5025密碼文本50調(diào)房登記表tb_tfd字段字段名字段大小1憑證號碼文本202姓名文本203證件名稱文本204證件號碼文本2015詳細(xì)地址

20、文本506工作單位文本507房問號文本308客房類型文本209客房價格貨幣10住宿日期日期/時間11住宿時間日期/時間12住宿天數(shù)數(shù)字雙精巧13宿費貨幣14折扣或招待文本16115折扣貨幣16應(yīng)收宿費貨幣17雜費貨幣18電貨幣19會議費貨幣20存車費貨幣21賠饞T一貨幣22金額總計貨幣23預(yù)收宿費貨幣1024退還宿費貨幣25退房日期日期/時間26退房時間日期/時間27備注一文本10028BZ數(shù)字雙精巧管理者信息表tb_user ：字段字段名字段大小1操作員文本102密碼文本50第五章各功能模塊代碼(一)酒店客房管理系統(tǒng)Main模塊：Dim strtemp As String * 60 '

21、;定義字符變量存儲路徑Private Declare Function GetSystemDirectory Lib " kernel32" Alias "GetSystemDirectoryA" (ByVal IpBuffer As String, ByVal nSize As Long) As Long'聲明 API 函數(shù)Private Sub Form_Load()'自動識別數(shù)據(jù)庫路徑Adodc1.ConnectionString = "Provider=Microsoft 。Jet。OLEDB.4。0; Data Sou

22、rce= " & App.Path & "DB_KFGL 。 mdb;Persist Security Info=False ”Adodc1。 RecordSource =" selectfrom tb_user"Adodc1。 RefreshAdodc2。ConnectionString =" Provider=Microsloft OLEDB.4。0; Data Source=" & App 。Path & "DB_KFGL 。 mdb; Persist Security Info=Fal

23、se" Adodc2.RecordSource =" setectrom tb_qxsz”Adodc2.RefreshOn Error GoTo aa'錯誤處理。當(dāng)找不到路徑時則轉(zhuǎn)向錯誤處理Open (App。Path & "picture.txt" ) For Input As #1Line Input #1 , intext Temp = intextClose #1Image2。Picture = LoadPicture (intext) Exit SubImage2。Picture = LoadPicture (App。Path

24、& ”酒店客房管理系統(tǒng)主界面。bmp")'當(dāng)找不到路徑時，賦給一個固定的圖片路徑End SubPrivate Sub Form_Activate ()'設(shè)置操作員權(quán)限Adodcl.RecordSource = " select * from tb_user where操作員='" + StatusBarl。Panels(4) .text + "'"Adodcl。 RefreshIf Adodcl.Recordset.RecordCount > 0 Then11Adodc2。RecordSource

25、= " select * from tb_qxsz where 操作員='" + StatusBarl。Panels（4） .text + "'"Adodc2.RefreshIf Adodc2。 Recordset.RecordCount > 0 ThenWith Adodc2。 RecordsetMain。 zjyj。 Enabled = .Fields（"追加押金"）Main。 ZSDJ.Enabled = .Fields（"住宿登記”）Main.tf。Enabled = .Fields（"

26、;退宿登記"）Main。tfdj。Enabled = .Fields （"調(diào)房登記"）Main。kfsz。 Enabled = 。 Fields （"客房管理"）Main。kfcx.Enabled = 。 Fields （"客房查詢"）Main.ftck。Enabled = 。 Fields （"房態(tài)查看"）Main。gzcx.Enabled = .Fields （"掛賬查詢”）Main。gzjk.Enabled = .Fields （"掛賬結(jié)款”）Main.zscx.Enabled

27、= .Fields （"住宿查詢"）Main.tfcx.Enabled = .Fields（ 退宿查詢”）Main.sftx。 Enabled = .Fields（"宿費提醒"）Main。 ysbb。Enabled = .Fields（"登記預(yù)收報表”）Main.xsbb。Enabled = 。 Fields （"客房銷售報表"）Main。xstj.Enabled = 。 Fields （"客房銷售統(tǒng)計報表 ”）Main。czysz。Enabled = 。 Fields （"操作員設(shè)置”）Main.ma.

28、Enabled = 。 Fields（"密碼設(shè)置”）Main。csh。Enabled = .Fields （"初始化"）Main.qxsz。 Enabled = .Fields （"權(quán)限設(shè)置”）Main.sztx。Enabled = 。 Fields （"設(shè)置窗口圖像 "）Main。sjbf.Enabled = 。 Fields（"數(shù)據(jù)備份"）Main。sjhf.Enabled = .Fields （"數(shù)據(jù)恢復(fù)”）Main。Toolbar1.Buttons （1）。 Enabled = .Fields（&

29、quot;住宿登記"）Main.Toolbar1.Buttons （3）。Enabled = .Fields（"退宿登記"）Main。Toolbar1.Buttons （5）。 Enabled = .Fields（"房態(tài)查看"）Main。Toolbar1.Buttons（7 ） .Enabled = .Fields （"住宿查詢”）Main.Toolbar1。Buttons （9）。 Enabled = 。 Fields（"客房銷售報表”）Main。Toolbar1.Buttons（11 ）。Enabled = .Field

30、s（"宿費提醒”）End WithEnd IfEnd IfEnd SubPrivate Sub Toolbar1_ButtonClick （ ByVal Button As MSComctlLib 。 Button）Select Case Button.KeyCase " DJ”zsdj_Click '調(diào)入住宿登記Case " TF"tf_Click'調(diào)入退宿結(jié)賬Case "FT"12ftck_Click '調(diào)房態(tài)宿查詢 Case " CX" zscx_Click'調(diào)入住宿查詢Cas

31、e " RJ" xsbb_Click'調(diào)入客房銷售報表Case ” TX” sftx_Click調(diào)入提醒Case “ counter ” Dim L, S '調(diào)用計算器 L = GetSystemDirectory(strtemp , Len ( strtemp) Paths = Left(strtemp, L )& ”CALC。 EXE'S = Shell (Paths, 1) 'Shell函數(shù)執(zhí)行一個可執(zhí)行文件，返回一個 Variant (Double)，如果成功的話，代表這個程序的任務(wù)ID,若不成功，則會返回0。Case &qu

32、ot;CXDL "重新登錄Load main_Loginmain_Login。 ShowCase "exit"If MsgBox("確定退出該系統(tǒng)？“，4,"系統(tǒng)提示")=vbYes ThenEndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()'設(shè)置主窗 口圖像Dim Str '定義變量CommonDialog1 。Filter = "BMP 圖片(*°BMP) | *。BMP | JPG 圖片(*。JPG) | *。JPG|GIF 圖片(*.GIF)

33、 | *o GIF |所有文件(*. *) | *. *"設(shè)置圖片格式'CommonDialog控件CommonDialog控件提供一組標(biāo)準(zhǔn)的操作對話框，進行諸如打開和 保存文件，設(shè)置打印選項，以及選擇顏色和字體等操作。CommonDialog1.ShowOpen '顯示"打開"對話框If CommonDialog1.FileName ” " Then 如果文件不為空Image2.Picture = LoadPicture(CommonDialog1 。 FileName)'加載圖片Str = CommonDialog1 。 Fi

34、leName '將圖片名賦給變量Open (App。Path & " picture。txt" ) For Output As # 1 '打開一個 txt 文件Print #1 , Str'打印圖片名Close # 1 '關(guān)閉文件CommonDialog1 。 FileName =""'把空值賦給文件名ElseCommonDialog1.FileName ="'把空值賦給文件名End IfEnd SubPrivate Sub sjbf_Click ()'調(diào)入數(shù)據(jù)備份main_sjb

35、f.ShowMain 。 Enabled = False13End SubPrivate Sub sjhf_Click() main_sjhf。 ShowEnd SubPrivate Sub zsdj_Click() main_kfdj 。 Show Main.Enabled = FalseEnd SubPrivate Sub zjyj_Click () Load main_zjyj main_zjyj。 Show Main.Enabled = FalseEnd SubPrivate Sub tfdj_Click () main_tfdj.ShowMain。 Enabled = FalseEn

36、d SubPrivate Sub tf_Click() main_tf 。 Show Main.Enabled = FalseEnd SubPrivate Sub kfsz_Click() main_kfgl.Show Main.Enabled = FalseEnd SubPrivate Sub kfcx_Click () main_kfcx。 Show Main.Enabled = FalseEnd SubPrivate Sub ftck_Click () main_ftcx.ShowMain。 Enabled = FalseEnd SubPrivate Sub gzcx_Click()Lo

37、ad main_gzcx main_gzcx.Show Main.Enabled = FalseEnd SubPrivate Sub gzjk_Click ()Load main_gzjk main_gzjk.Show Main。 Enabled = FalseEnd SubPrivate Sub zscx_Click ()'數(shù)據(jù)恢復(fù)'調(diào)入住宿登記'調(diào)入追加押金調(diào)入調(diào)房登記調(diào)入退宿結(jié)賬調(diào)入客房管理'調(diào)入客房查詢'調(diào)入房態(tài)查看'調(diào)入掛賬查詢調(diào)入掛賬結(jié)款'調(diào)入住宿查詢14Load main_zscx main_zscx.Show Main.E

38、nabled = FalseEnd SubPrivate Sub tfcx_Click() Load main_tfcx main_tfcx.ShowMain。 Enabled = FalseEnd SubPrivate Sub sftx_Click() Load main_xftx main_xftx 。 Show Main.Enabled = FalseEnd SubPrivate Sub ysbb_Click () main_ysbb.ShowMain。 Enabled = FalseEnd SubPrivate Sub xsbb_Click() main_xsbb 。 Show Mai

39、n.Enabled = FalseEnd SubPrivate Sub xstj_Click() main_xstj.ShowMain。 Enabled = FalseEnd SubPrivate Sub czysz_Click() Load main_czysz main_czysz.Show Main。 Enabled = FalseEnd SubPrivate Sub ma_Click ) main_mmsz。Show Main.Enabled = FalseEnd SubPrivate Sub csh_Click () main_csh 。 Show Main.Enabled = Fa

40、lseEnd SubPrivate Sub qxsz_Click () main_qxsz 。 Show Main.Enabled = FalseEnd SubPrivate Sub DL_Click ()'調(diào)入退宿查詢調(diào)入宿費提醒調(diào)入登記預(yù)收報表'調(diào)入客房銷售報表'調(diào)入客房銷售統(tǒng)計調(diào)入操作員設(shè)置'調(diào)入密碼設(shè)置調(diào)入初始化'調(diào)入權(quán)限設(shè)置重新登錄15Load main_Login main_Login.ShowEnd Sub(二)初始化main_csh模塊：Dim workarea (200), sql As String'定義字符串變量Dim rs

41、 As ADODB.RecordsetPrivate Sub Form_Load()自動識別數(shù)據(jù)庫路徑Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB 。4。0; Data Source= "& App.Path & "DB_KFGL.mdb ; Persist Security Info=False”Adodc1.RecordSource = "select * from tb_kf"Adodc1.RefreshEnd SubPrivate Sub Form_Unl

42、oad(Cancel As Integer)Main.Enabled = TrueEnd SubPrivate Sub comstart_Click()Frame1.Enabled = True： Comcreat。Enabled = TrueEnd SubPrivate Sub comcreat_Click ()'清空選定表中的數(shù)據(jù)A = MsgBox("確認(rèn)初始化該數(shù)據(jù)？", 4 ,"系統(tǒng)提示")If A = vbYes ThenProgressBar1。Visible = True ' ProgressBar 控件 Progress

43、Bar 控件通過從左 到右用一些方塊填充矩形來表示一個較長操作的進度ProgressBar1.Max = UBound(workarea )ProgressBar! Value = ProgressBar1.MinFor Counter = LBound(workarea ) To UBound(workarea),LBound函數(shù)返回一個 Long型數(shù)據(jù)，其值為指定數(shù)組維可用的最小下標(biāo)。,UBound函數(shù)返回一個 Long型數(shù)據(jù)，其值為指定的數(shù)組維可用的最大下標(biāo)。workarea(Counter) = " initial value " & CounterProg

44、ressBarl。 Value = CounterIf Checkl.Value = 1 Then sql =" delete from tb_djb ”Set rs = ESQL(sql)'調(diào)用模塊中的自定義函數(shù) sql =" delete from tb_djys ”Set rs = ESQL (sql)'調(diào)用模塊中的自定義函數(shù) End IfIf Check2。 Value = 1 Then sql = "delete * from tb_tfd”Set rs = ESQL (sql) '調(diào)用模塊中的自定義函數(shù)End IfIf Chec

45、k3.Value = 1 Thensql = "delete * from tb_gzmx "16Set rs = ESQL(sql) 調(diào)用模塊中的自定義函數(shù) End IfIf Check5。 Value = 1 ThenAdodcl。RecordSource = " select * from tb_kf where 房態(tài) =入住'" Adodc1。 Refresh'ADO Data 控件ADO Data 控件與內(nèi)部 Data控件以及 Remote Data控 件 (RDC) 相似.ADO Data 控件使您能使用 Microsoft

46、ActiveX Data Objects (ADO)快 速地創(chuàng)建一個到數(shù)據(jù)庫的連接 .If Adodc1。Recordseto RecordCount > 0 ThenAdodc1 。 Recordset.MoveFirstFor i = 1 To Adodc1 。 Recordset.RecordCountAdodc1。Recordset Fields("房態(tài)")="空房"Adodc1 Recordset.UpdateIf Adodc1.Recordset.EOF = False Then Adodc1 。 Recordset.MoveNextN

47、ext iEnd IfEnd IfNext CounterEnd IfMsgBox "初始化完成！"，,"系統(tǒng)提示"ProgressBar1。Visible = FalseProgressBar1.Value = ProgressBar1。 MinEnd SubPrivate Sub comend_Click() Main.Enabled = TrueUnload MeEnd Sub(四)操作員設(shè)置 main_czysz模塊：Private Sub Form_Load()自動識別數(shù)據(jù)庫路徑Adodc1.ConnectionString = "P

48、rovider=Microsoft 。Jet。OLEDB。4。0; Data Source=" & App.Path& "DB_KFGL.mdb;Persist Security Info=False"Adodc1 。 RecordSource =" selectfrom tb_qxsz"Adodc1 。 RefreshAdodc2.ConnectionString =" P=Miidi®soft.Jet。OLEDB.4.0 ; Data Source=" & App.Path& &

49、quot;DB_KFGL.mdb ; Persist Security Info=False"Adodc2.RecordSource =" select * from tb_user ”Adodc2。 RefreshEnd SubPrivate Sub Form_Activate ()Text1.SetFocus 'text1 獲得焦點End Sub17Private Sub Form_Unload(Cancel As Integer) Main.Enabled = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As In

50、teger, Shift As Integer )If KeyCode = vbKeyReturn Then Text2.SetFocus '回車 text2 獲得焦點End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer )If KeyCode = vbKeyReturn Then Text3 。 SetFocus '回車 text3 獲得焦點End SubPrivate Sub Text3_KeyDown (KeyCode As Integer, Shift As Integer )If K

51、eyCode = vbKeyReturn Then Command1.SetFocus '回車 Command1 獲得焦點End SubPrivate Sub Command1_Click ()保存操作員及密碼If Text1。text <>" " ThenIf Text2.text> " " And Text3.text ” " And Text2text = Text3.text Thenadocon。Open "Provider=Microsoft 。 Jet.OLEDB。4。0; Data Sourc

52、e=" & App 。Path & "DB_KFGL 。 mdb;Persist Security Info=False”adoRs.Open “ selec竹 from tb_user", adocon, adOpenKeyset, adLockOptimistic adoRs。AddNewadoRs.Fields("操作員")=Textl.textadoRs.Fields("密碼")=Text2.textadoRs。Update adocon。 Closeadocon。Open “ Provider=Mi

53、crosoft.Jet.OLEDB。4.0; Data Source= & App。Path & "DB_KFGL.mdb ; Persist Security Info=False”adoRs.Open “ select from tb_qxsz", adocon, adOpenKeyset, adLockOptimistic adoRs。AddNewadoRs。Fields ("操作員")=Textl.textadoRs.Fields ("密碼")=Text2.textadoRs.Updateadocon.Clos

54、eTextl。text = "" : Textext =" ": Textext =""MsgBox ”操作員設(shè)置成功！","系統(tǒng)提示”'MsgBox函數(shù)在對話框中顯示消息，等待用戶單擊按鈕，并返回一個Integer告訴用戶單擊哪一個按鈕。ElseIf Text3.text =" " ThenMsgBox ”請輸入確認(rèn)密碼“一“系統(tǒng)提示”Text3.SetFocusElseIf Text2.text <> Text3 。 text ThenMsgBox "兩次輸入的

55、密碼不相同“，"系統(tǒng)提示”Text2。text =""Text3.text =""Text2。SetFocus18End IfElseMsgBox "請輸入操作員！"一"系統(tǒng)提示”End IfEnd SubPrivate Sub Command2_Click ()Textl.text =。:Textt2 ": "Text3.text =""End SubPrivate Sub Command3_Click ()Main.Enabled = TrueUnload MeEnd S

56、ub(五)房態(tài)查詢 main_ftcx模塊：Dim itmX As ListItem '聲明一個 ListItem 對象Dim text As String'聲明字符串變量Dim MyIcon As Integer '聲明一個整型變量Private Sub Command1_Click()Unload MeMain。Enabled = TrueEnd SubPrivate Sub Form_Activate ()Dim rs1 As ADODB 。 RecordsetDim rs2 As ADODB.RecordsetDim rs3 As ADODB.RecordsetDim sql As String '定義一個字符串變量ListView1.ListItems 。 Clear可將項目組'ListView 控件ListView 控件可使用四種不同視圖顯示項目.通過此控件,成帶有或不帶有列標(biāo)頭的列，并顯示伴隨的圖標(biāo)和文本sql = "