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

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

2、t：With the 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, w

3、ill increase 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 th

4、e hotel, 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

5、 combination, to create a suitable for the actual situation of the hotel room management system.Keywords：Hotel room management system Design Realization專心-專注-專業(yè)目 錄酒店客房管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)第一章 課題研究背景隨著經(jīng)濟(jì)的迅速發(fā)展，酒店業(yè)的競爭日趨激烈。酒店業(yè)內(nèi)不得不進(jìn)一步尋求通過擴(kuò)大酒店銷售、改進(jìn)服務(wù)質(zhì)量、降低管理成本和提升客戶滿意度等辦法來增強(qiáng)酒店的核心競爭力。其中最有效的手段就是應(yīng)用現(xiàn)代化信息化技術(shù)，變革傳統(tǒng)意義上的酒店業(yè)經(jīng)營管

6、理模式，跟上時(shí)代競爭的步伐?？紤]到酒店業(yè)務(wù)的不斷提升和用戶需求的日益多樣化，盡量滿足酒店的個(gè)性化需求，同時(shí)吸收了同類產(chǎn)品及現(xiàn)有軟件系統(tǒng)的優(yōu)點(diǎn)，力爭設(shè)計(jì)成為一套先進(jìn)適用的酒店管理軟件系統(tǒng)，為顧客提供更加便捷的信息化服務(wù)，為酒店管理者、決策者提供準(zhǔn)確及時(shí)的酒店經(jīng)營信息，以達(dá)到酒店節(jié)約經(jīng)營成本、提高經(jīng)營質(zhì)量和經(jīng)濟(jì)效益的信息化管理目標(biāo)。（一）酒店客房管理現(xiàn)狀隨著計(jì)算機(jī)和信息技術(shù)的飛速發(fā)展，傳統(tǒng)的酒店客房管理模式逐漸被信息化的現(xiàn)代酒店客房管理模式所代替。傳統(tǒng)的酒店管理往往令管理者花大量的人力和物力以滿足各種繁瑣的經(jīng)營活動(dòng)的需要，例如冗長的登記和結(jié)賬手續(xù)、手工記錄所有客房狀態(tài)、列表統(tǒng)計(jì)顧客消費(fèi)情況等。這種

7、工作模式不但效率低下，且極易出現(xiàn)錯(cuò)誤和遺漏，有時(shí)甚至?xí)?dǎo)致嚴(yán)重的經(jīng)濟(jì)損失，給酒店的經(jīng)營帶來負(fù)面影響。（二）課題研究的意義對酒店整個(gè)來說，對酒店經(jīng)營狀況起決定作用的是酒店的服務(wù)管理水平。如何利用先進(jìn)的管理手段來提高酒店的管理水平成為酒店業(yè)務(wù)發(fā)展的當(dāng)務(wù)之急。面對信息時(shí)代的機(jī)遇和挑戰(zhàn)，利用科技手段提高酒店的管理無疑是一條行之有效的途徑。雖然計(jì)算機(jī)管理并不是酒店管理走向成功的關(guān)鍵元素，但它可以最大限度地發(fā)揮準(zhǔn)確、快捷、高效等作用，對酒店的業(yè)務(wù)管理提供強(qiáng)有力的支持。因此，采用全新的計(jì)算機(jī)網(wǎng)絡(luò)和酒店業(yè)務(wù)管理系統(tǒng)，已成為提高酒店的管理效率，使作業(yè)人員與管理系統(tǒng)之間靈活互動(dòng)，實(shí)現(xiàn)流暢的工作流銜接，幫助酒店有效

8、地進(jìn)行業(yè)務(wù)管理，釋放最大價(jià)值。酒店業(yè)務(wù)管理系統(tǒng)在達(dá)到在節(jié)省人力資源成本的同時(shí)，可以提高業(yè)務(wù)效率，并能夠及時(shí)、準(zhǔn)確、迅速地滿足顧客服務(wù)的需求。第二章 需求分析（一）系統(tǒng)目標(biāo)本系統(tǒng)需要滿足以下幾個(gè)系統(tǒng)設(shè)計(jì)目標(biāo)。（1）實(shí)用性原則：真正為酒店工作人員的實(shí)際工作服務(wù)，按照酒店客房管理工作的實(shí)際流程，設(shè)計(jì)出實(shí)用的酒店客房管理系統(tǒng)。（2）安全性原則：必須為酒店客房提供信息安全的服務(wù)，以保證酒店信息的不被泄露。（3）可操作性原則：本酒店客房管理系統(tǒng)面向的是酒店內(nèi)工作人員，所以系統(tǒng)操作上要求簡單、方便、快捷，便于用戶使用。（4）可擴(kuò)展性原則：采用開發(fā)的標(biāo)準(zhǔn)和接口，便于系統(tǒng)向更大的規(guī)模和功能擴(kuò)展。（二）系統(tǒng)需求根

9、據(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）客房管理模塊主要是對客房進(jìn)行設(shè)置和查詢。（4）住宿管理模塊主要是對住宿登記、追加押金、調(diào)房登記和退宿結(jié)賬進(jìn)行管理。（5）掛賬查詢模塊主要是對掛賬和客戶結(jié)款進(jìn)行查詢。（6）查詢統(tǒng)計(jì)模塊主要是對住宿、退宿進(jìn)行

10、查詢以及對宿費(fèi)進(jìn)行提醒。（7）日結(jié)模塊主要是對登記預(yù)收、客房銷售進(jìn)行報(bào)表管理以及對客房銷售進(jìn)行統(tǒng)計(jì)。（8）系統(tǒng)維護(hù)主要是對數(shù)據(jù)備份和恢復(fù)進(jìn)行維護(hù)。（四）系統(tǒng)的性能需求為了保證系統(tǒng)能夠長期、安全、穩(wěn)定、可靠、高效的運(yùn)行，系統(tǒng)應(yīng)該滿足以下的性能需求：（1）系統(tǒng)處理的準(zhǔn)確性和及時(shí)性系統(tǒng)處理的準(zhǔn)確性和及時(shí)性是系統(tǒng)的必要性能。在系統(tǒng)設(shè)計(jì)和開發(fā)過程中，要充分考慮系統(tǒng)當(dāng)前和將來可能承受的工作量，使系統(tǒng)的處理能力和響應(yīng)時(shí)間能夠滿足用戶對信息的處理。由于系統(tǒng)的查詢功能對于整個(gè)系統(tǒng)的功能和性能完成很重要。從系統(tǒng)的多個(gè)數(shù)據(jù)來源來看，客房信息查詢、訂房信息查詢、結(jié)算信息查詢，其準(zhǔn)確性很大程度上決定了系統(tǒng)的成敗。因此，

11、在系統(tǒng)開發(fā)過程中，系統(tǒng)采用優(yōu)化的SQL語句及安全擴(kuò)展存儲(chǔ)過程來保證系統(tǒng)的準(zhǔn)確性和及時(shí)性。（2）系統(tǒng)的開放性和系統(tǒng)的可擴(kuò)充性系統(tǒng)在開發(fā)過程中，應(yīng)該充分考慮以后的可擴(kuò)充性。例如系統(tǒng)權(quán)限和客房信息設(shè)置等模塊也會(huì)不斷的更新和完善。所有這些都要求系統(tǒng)提供足夠的手段進(jìn)行功能的調(diào)整和擴(kuò)充。而要實(shí)現(xiàn)這一點(diǎn)，應(yīng)通過系統(tǒng)的開放性來完成，既系統(tǒng)應(yīng)是一個(gè)開放系統(tǒng)，只要符合一定的規(guī)范，可以簡單的加入和減少系統(tǒng)的模塊，配置系統(tǒng)的硬件。通過軟件的修補(bǔ)、替換完成系統(tǒng)的升級和更新?lián)Q代。（3）系統(tǒng)的可操作性性本酒店客房管理系統(tǒng)面向的用戶是酒店內(nèi)工作人員，而有些使用人員往往對計(jì)算機(jī)并不是非常熟悉，所以系統(tǒng)操作上要求簡單、方便、快捷

12、，便于用戶使用。這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機(jī)交互界面。（4）系統(tǒng)的響應(yīng)速度系統(tǒng)設(shè)計(jì)中摒棄大量數(shù)據(jù)冗余，提出了優(yōu)化數(shù)據(jù)庫的解決方案，大量使用存儲(chǔ)過程，大大提高系統(tǒng)響應(yīng)時(shí)間和速度。系統(tǒng)在日常處理中的響應(yīng)速度為秒級，達(dá)到實(shí)時(shí)要求，以及時(shí)反饋信息。嚴(yán)格保證操作人員不會(huì)因?yàn)樗俣葐栴}而影響工作效率。（五）開發(fā)技術(shù)本系統(tǒng)利用Visual Basic編譯環(huán)境，采用可視化編程，以Microsoft Office Access 2003作為后臺(tái)數(shù)據(jù)庫，選用ADO訪問數(shù)據(jù)庫來實(shí)現(xiàn)各種功能。1.計(jì)算機(jī)及操作系統(tǒng)：WindowsXP 或Windows7；2.開發(fā)工具：Visual Basic3.運(yùn)行環(huán)

13、境: 裝有完整Microsoft Office Access 2003的系統(tǒng)4.語言： Visual Basic與 SQL查詢語言第三章 系統(tǒng)總體功能（一）系統(tǒng)功能結(jié)構(gòu)1. 基本系統(tǒng)模型登錄身份驗(yàn)證工作界面2. 系統(tǒng)功能模型根據(jù)星期八商務(wù)酒店實(shí)際情況，酒店客房管理系統(tǒng)總體功能模型如下圖所示。酒店客房管理 系 統(tǒng)住宿管理客房管理掛賬管理查詢統(tǒng)計(jì)日結(jié)系統(tǒng)設(shè)置系統(tǒng)維護(hù)（二）系統(tǒng)流程圖1. 預(yù)訂流程：2. 結(jié)賬流程：第四章 數(shù)據(jù)庫設(shè)計(jì)根據(jù)酒店客房管理系統(tǒng)需要，設(shè)置的數(shù)據(jù)庫包含入住登記表tb_djb、預(yù)收登記表tb_djys、掛賬信息表tb_gzmx、酒店房間信息表tb_kf、權(quán)限設(shè)置表tb_qxsz、

14、調(diào)房登記表tb_tfd和管理者信息表tb_user。其結(jié)構(gòu)如下：入住登記表tb_djb：字段字段名類型字段大小1憑證號碼文本202姓名文本203證件名稱文本204證件號碼文本205詳細(xì)地址文本506住宿事由文本507房間號文本308客房類型文本209客房價(jià)格貨幣10住宿日期日期/時(shí)間11住宿時(shí)間日期/時(shí)間12住宿天數(shù)數(shù)字雙精度型13宿費(fèi)貨幣14折扣數(shù)字雙精度型15應(yīng)收宿費(fèi)貨幣16預(yù)收金額貨幣17提醒日期日期/時(shí)間18退宿日期日期/時(shí)間19備注文本5020標(biāo)志文本1021日期日期/時(shí)間22時(shí)間日期/時(shí)間23結(jié)款方式文本1024退宿時(shí)間日期/時(shí)間25提醒時(shí)間日期/時(shí)間26摘要文本20027BZ數(shù)字

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

16、日期日期/時(shí)間2掛賬單位文本1003摘要文本1004住宿金額貨幣5欠款金額貨幣6還款金額貨幣7金額累計(jì)文本208姓名文本209證件號碼文本2010票號文本2011時(shí)間日期/時(shí)間12序號數(shù)字整型13房間標(biāo)準(zhǔn)文本1014房間價(jià)格文本10酒店房間信息表tb_kf：字段字段名類型字段大小1房間號文本302房間類型文本203價(jià)格貨幣4房態(tài)文本45標(biāo)志是/否6備注文本1007配置文本1008使用設(shè)置文本1009營業(yè)日期日期/時(shí)間權(quán)限設(shè)置表tb_qxsz：字段字段名類型字段大小1住宿登記是/否2追加押金是/否3調(diào)房登記是/否4退宿登記是/否5客房管理是/否6客房查詢是/否7房態(tài)查看是/否8掛賬查詢是/否9掛

17、賬結(jié)款是/否10住宿查詢是/否11退宿查詢是/否12宿費(fèi)提醒是/否13登記預(yù)收報(bào)表是/否14客房銷售報(bào)表是/否15客房銷售統(tǒng)計(jì)報(bào)表是/否16操作員設(shè)置是/否17密碼設(shè)置是/否18初始化是/否19權(quán)限設(shè)置是/否20設(shè)置窗口圖像是/否21數(shù)據(jù)備份是/否22數(shù)據(jù)恢復(fù)是/否23編號文本5024操作員文本5025密碼文本50調(diào)房登記表tb_tfd：字段字段名類型字段大小1憑證號碼文本202姓名文本203證件名稱文本204證件號碼文本205詳細(xì)地址文本506工作單位文本507房間號文本308客房類型文本209客房價(jià)格貨幣10住宿日期日期/時(shí)間11住宿時(shí)間日期/時(shí)間12住宿天數(shù)數(shù)字雙精度型13宿費(fèi)貨幣14折

18、扣或招待文本1615折扣貨幣16應(yīng)收宿費(fèi)貨幣17雜費(fèi)貨幣18電話費(fèi)貨幣19會(huì)議費(fèi)貨幣20存車費(fèi)貨幣21賠償費(fèi)貨幣22金額總計(jì)貨幣23預(yù)收宿費(fèi)貨幣24退還宿費(fèi)貨幣25退房日期日期/時(shí)間26退房時(shí)間日期/時(shí)間27備注文本10028BZ數(shù)字雙精度型管理者信息表tb_user：字段字段名類型字段大小1操作員文本102密碼文本50第五章 各功能模塊代碼（一）酒店客房管理系統(tǒng)Main模塊：Dim strtemp As String * 60 '定義字符變量存儲(chǔ)路徑Private Declare Function GetSystemDirectory Lib "kernel32"

19、 Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long '聲明API函數(shù)Private Sub Form_Load() '自動(dòng)識(shí)別數(shù)據(jù)庫路徑 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_KFGL.mdb;Persist Security Info=False&quo

20、t; Adodc1.RecordSource = "select * from tb_user" Adodc1.Refresh Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_KFGL.mdb;Persist Security Info=False" Adodc2.RecordSource = "select * from tb_qxsz" Adodc2.Refres

21、hOn Error GoTo aa '錯(cuò)誤處理。當(dāng)找不到路徑時(shí)則轉(zhuǎn)向錯(cuò)誤處理 Open (App.Path & "picture.txt") For Input As #1 Line Input #1, intext Temp = intext Close #1 Image2.Picture = LoadPicture(intext) Exit Subaa: Image2.Picture = LoadPicture(App.Path & "image酒店客房管理系統(tǒng)主界面.bmp") '當(dāng)找不到路徑時(shí)，賦給一個(gè)固定的圖片路

22、徑End SubPrivate Sub Form_Activate() '設(shè)置操作員權(quán)限 Adodc1.RecordSource = "select * from tb_user where 操作員='" + StatusBar1.Panels(4).text + "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then Adodc2.RecordSource = "select * from tb_qxsz where 操作員='"

23、+ StatusBar1.Panels(4).text + "'" Adodc2.Refresh If Adodc2.Recordset.RecordCount > 0 Then With Adodc2.Recordset Main.zjyj.Enabled = .Fields("追加押金") Main.ZSDJ.Enabled = .Fields("住宿登記") Main.tf.Enabled = .Fields("退宿登記") Main.tfdj.Enabled = .Fields("調(diào)

24、房登記") 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 = .Fields("住宿查詢") Main.tfcx.Ena

25、bled = .Fields("退宿查詢") Main.sftx.Enabled = .Fields("宿費(fèi)提醒") Main.ysbb.Enabled = .Fields("登記預(yù)收報(bào)表") Main.xsbb.Enabled = .Fields("客房銷售報(bào)表") Main.xstj.Enabled = .Fields("客房銷售統(tǒng)計(jì)報(bào)表") Main.czysz.Enabled = .Fields("操作員設(shè)置") Main.ma.Enabled = .Fields(&

26、quot;密碼設(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("住宿登記

27、") 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("客房銷售報(bào)表") Main.Toolbar1.Buttons(11).Enabled = .Fields(&q

28、uot;宿費(fèi)提醒") End With End If End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "DJ" zsdj_Click '調(diào)入住宿登記 Case "TF" tf_Click '調(diào)入退宿結(jié)賬 Case "FT" ftck_Click '調(diào)房態(tài)宿查詢 Case "CX" zscx_Click '

29、調(diào)入住宿查詢 Case "RJ" xsbb_Click '調(diào)入客房銷售報(bào)表 Case "TX" sftx_Click '調(diào)入提醒 Case "counter" Dim L, S '調(diào)用計(jì)算器 L = GetSystemDirectory(strtemp, Len(strtemp) Paths = Left(strtemp, L) & "CALC.EXE" S = Shell(Paths, 1) 'Shell 函數(shù)執(zhí)行一個(gè)可執(zhí)行文件，返回一個(gè) Variant (Double)，

30、如果成功的話，代表這個(gè)程序的任務(wù) ID，若不成功，則會(huì)返回 0。 Case "CXDL" '重新登錄 Load main_Login main_Login.Show Case "exit" If MsgBox("確定退出該系統(tǒng)？", 4, "系統(tǒng)提示") = vbYes Then End End If End SelectEnd SubPrivate Sub sztx_Click() '設(shè)置主窗口圖像Dim Str '定義變量CommonDialog1.Filter = "BMP圖

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

32、nDialog1.FileName) '加載圖片Str = CommonDialog1.FileName '將圖片名賦給變量 Open (App.Path & "picture.txt") For Output As #1 '打開一個(gè)txt文件 Print #1, Str '打印圖片名 Close #1 '關(guān)閉文件 CommonDialog1.FileName = "" '把空值賦給文件名Else CommonDialog1.FileName = "" '把空值賦給文件名

33、End IfEnd SubPrivate Sub sjbf_Click() '調(diào)入數(shù)據(jù)備份main_sjbf.ShowMain.Enabled = FalseEnd SubPrivate Sub sjhf_Click() '數(shù)據(jù)恢復(fù)main_sjhf.ShowEnd SubPrivate Sub zsdj_Click() '調(diào)入住宿登記 main_kfdj.Show Main.Enabled = FalseEnd SubPrivate Sub zjyj_Click() '調(diào)入追加押金 Load main_zjyj main_zjyj.Show Main.Enab

34、led = FalseEnd SubPrivate Sub tfdj_Click() '調(diào)入調(diào)房登記 main_tfdj.Show Main.Enabled = FalseEnd SubPrivate Sub tf_Click() '調(diào)入退宿結(jié)賬 main_tf.Show Main.Enabled = FalseEnd SubPrivate Sub kfsz_Click() '調(diào)入客房管理 main_kfgl.Show Main.Enabled = FalseEnd SubPrivate Sub kfcx_Click() '調(diào)入客房查詢 main_kfcx.Sh

35、ow Main.Enabled = FalseEnd SubPrivate Sub ftck_Click() '調(diào)入房態(tài)查看 main_ftcx.Show Main.Enabled = FalseEnd SubPrivate Sub gzcx_Click() '調(diào)入掛賬查詢 Load main_gzcx main_gzcx.Show Main.Enabled = FalseEnd SubPrivate Sub gzjk_Click() '調(diào)入掛賬結(jié)款 Load main_gzjk main_gzjk.Show Main.Enabled = FalseEnd SubPri

36、vate Sub zscx_Click() '調(diào)入住宿查詢 Load main_zscx main_zscx.Show Main.Enabled = FalseEnd SubPrivate Sub tfcx_Click() '調(diào)入退宿查詢 Load main_tfcx main_tfcx.Show Main.Enabled = FalseEnd SubPrivate Sub sftx_Click() '調(diào)入宿費(fèi)提醒 Load main_xftx main_xftx.Show Main.Enabled = FalseEnd SubPrivate Sub ysbb_Clic

37、k() '調(diào)入登記預(yù)收報(bào)表 main_ysbb.Show Main.Enabled = FalseEnd SubPrivate Sub xsbb_Click() '調(diào)入客房銷售報(bào)表 main_xsbb.Show Main.Enabled = FalseEnd SubPrivate Sub xstj_Click() '調(diào)入客房銷售統(tǒng)計(jì) main_xstj.Show Main.Enabled = FalseEnd SubPrivate Sub czysz_Click() '調(diào)入操作員設(shè)置 Load main_czysz main_czysz.Show Main.En

38、abled = FalseEnd SubPrivate Sub ma_Click() '調(diào)入密碼設(shè)置 main_mmsz.Show Main.Enabled = FalseEnd SubPrivate Sub csh_Click() '調(diào)入初始化 main_csh.Show Main.Enabled = FalseEnd SubPrivate Sub qxsz_Click() '調(diào)入權(quán)限設(shè)置 main_qxsz.Show Main.Enabled = FalseEnd SubPrivate Sub DL_Click() '重新登錄Load main_Loginm

39、ain_Login.ShowEnd Sub（二）初始化main_csh模塊：Dim workarea(200), sql As String '定義字符串變量Dim rs As ADODB.RecordsetPrivate Sub Form_Load() '自動(dòng)識(shí)別數(shù)據(jù)庫路徑 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_KFGL.mdb;Persist Security Info=False&qu

40、ot; Adodc1.RecordSource = "select * from tb_kf" Adodc1.RefreshEnd SubPrivate Sub Form_Unload(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ù)？

41、", 4, "系統(tǒng)提示") If A = vbYes Then ProgressBar1.Visible = True 'ProgressBar 控件ProgressBar 控件通過從左到右用一些方塊填充矩形來表示一個(gè)較長操作的進(jìn)度。 ProgressBar1.Max = UBound(workarea) ProgressBar1.Value = ProgressBar1.Min For Counter = LBound(workarea) To UBound(workarea) 'LBound 函數(shù)返回一個(gè) Long 型數(shù)據(jù)，其值為指定數(shù)組維可用

42、的最小下標(biāo)。 'UBound 函數(shù)返回一個(gè) Long 型數(shù)據(jù)，其值為指定的數(shù)組維可用的最大下標(biāo)。 workarea(Counter) = "initial value " & Counter ProgressBar1.Value = Counter If Check1.Value = 1 Then sql = "delete * from tb_djb" Set rs = ESQL(sql) '調(diào)用模塊中的自定義函數(shù) sql = "delete * from tb_djys" Set rs = ESQL(sql

43、) '調(diào)用模塊中的自定義函數(shù) End If If Check2.Value = 1 Then sql = "delete * from tb_tfd " Set rs = ESQL(sql) '調(diào)用模塊中的自定義函數(shù) End If If Check3.Value = 1 Then sql = "delete * from tb_gzmx " Set rs = ESQL(sql) '調(diào)用模塊中的自定義函數(shù) End If If Check5.Value = 1 Then Adodc1.RecordSource = "sele

44、ct * from tb_kf where 房態(tài) ='入住'" Adodc1.Refresh 'ADO Data 控件ADO Data 控件與內(nèi)部 Data 控件以及 Remote Data控件 (RDC) 相似。ADO Data 控件使您能使用 Microsoft ActiveX Data Objects (ADO) 快速地創(chuàng)建一個(gè)到數(shù)據(jù)庫的連接。 If Adodc1.Recordset.RecordCount > 0 Then Adodc1.Recordset.MoveFirst For i = 1 To Adodc1.Recordset.Recor

45、dCount Adodc1.Recordset.Fields("房態(tài)") = "空房" Adodc1.Recordset.Update If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext Next i End If End If Next Counter End If MsgBox "初始化完成!", , "系統(tǒng)提示" ProgressBar1.Visible = False ProgressBar1.Value = ProgressBar1

46、.MinEnd SubPrivate Sub comend_Click() Main.Enabled = True Unload MeEnd Sub（四）操作員設(shè)置main_czysz模塊：Private Sub Form_Load() '自動(dòng)識(shí)別數(shù)據(jù)庫路徑Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_KFGL.mdb;Persist Security Info=False"Adodc1.Reco

47、rdSource = "select * from tb_qxsz"Adodc1.RefreshAdodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_KFGL.mdb;Persist Security Info=False"Adodc2.RecordSource = "select * from tb_user"Adodc2.RefreshEnd SubPrivate Su

48、b Form_Activate() Text1.SetFocus 'text1獲得焦點(diǎn)End SubPrivate Sub Form_Unload(Cancel As Integer) Main.Enabled = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus '回車text2獲得焦點(diǎn)End SubPrivate Sub text2_KeyDown(KeyCode As Integer,

49、 Shift As Integer) If KeyCode = vbKeyReturn Then Text3.SetFocus '回車text3獲得焦點(diǎn)End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1.SetFocus '回車Command1獲得焦點(diǎn)End SubPrivate Sub Command1_Click() '保存操作員及密碼 If Text1.text <> "&qu

50、ot; Then If Text2.text <> "" And Text3.text <> "" And Text2.text = Text3.text Then adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_KFGL.mdb;Persist Security Info=False" adoRs.Open "select * from tb_user&quo

51、t;, adocon, adOpenKeyset, adLockOptimistic adoRs.AddNew adoRs.Fields("操作員") = Text1.text adoRs.Fields("密碼") = Text2.text adoRs.Update adocon.Close adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DB_KFGL.mdb;Persist Security Info=Fa

52、lse" adoRs.Open "select * from tb_qxsz", adocon, adOpenKeyset, adLockOptimistic adoRs.AddNew adoRs.Fields("操作員") = Text1.text adoRs.Fields("密碼") = Text2.text adoRs.Update adocon.Close Text1.text = "": Text2.text = "": Text3.text = "" MsgBox "操作員設(shè)置成功！", , "系統(tǒng)提示" 'MsgBox 函數(shù)在對話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè) Integer 告訴用戶單擊哪一個(gè)按鈕。 ElseIf Text3.text = "" Then MsgBox "請輸入確認(rèn)密碼", , "系統(tǒng)提示" Text3.SetFocus ElseIf Text2.tex