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

1、摘要：隨著計(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í)也簡(jiǎn)化了管理的各種復(fù)雜操作,提高了酒店的管理效率。本文以茂名星期八商務(wù)酒店為例采用Visual Basic和ACCESS相結(jié)合,創(chuàng)建一個(gè)適合實(shí)際情況的酒店客房管理系統(tǒng)。關(guān)鍵詞：酒店客房管理系統(tǒng) 設(shè)計(jì) 實(shí)現(xiàn)Abstract：With the ra

2、pid 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 increase

3、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, hote

4、l 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 combination,

5、 to create a suitable for the actual situation of the hotel room management system.Keywords：Hotel room management system Design Realization12 / 12目 錄第一章 課題研究背景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)Main模塊11（二）

6、初始化main_csh模塊16（四）操作員設(shè)置main_czysz模塊17（五）房態(tài)查詢main_ftcx模塊19（六）掛賬結(jié)款main_gzjk20（七）客房查詢main_kfcx23（八）住宿登記main_kfdj23（九）客房設(shè)置main_kfgl31（十）密碼設(shè)置main_mmsz34（十一）權(quán)限設(shè)置main_qxsz36（十二）數(shù)據(jù)備份main_sjbf38（十三）數(shù)據(jù)恢復(fù)main_sjhf38（十四）退宿結(jié)賬main_tf39（十五）退宿查詢main_tfcx50（十六）調(diào)房登記main_tfdj51（十七）宿費(fèi)提醒main_xftx55（十八）客房銷售報(bào)表main_xsbb56（

7、十九）客房銷售統(tǒng)計(jì)main_xstj59（二十）登記預(yù)收?qǐng)?bào)表main_ysbb60（二十一）追加押金main_zjyj61（二十二）住宿查詢main_zscx66（二十三）酒店客房管理系統(tǒng)main_Login67第六章 調(diào)試與結(jié)果68（一）初始化系統(tǒng)登錄調(diào)試68（二）登記模塊的效用調(diào)試68（三）退房的效用調(diào)試69（四）住房查詢的效用調(diào)試69參考文獻(xiàn)70致 謝71酒店客房管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)第一章 課題研究背景隨著經(jīng)濟(jì)的迅速發(fā)展,酒店業(yè)的競(jìng)爭(zhēng)日趨激烈。酒店業(yè)內(nèi)不得不進(jìn)一步尋求通過擴(kuò)大酒店銷售、改進(jìn)服務(wù)質(zhì)量、降低管理成本和提升客戶滿意度等辦法來增強(qiáng)酒店的核心競(jìng)爭(zhēng)力。其中最有效的手段就是應(yīng)用現(xiàn)代化信

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

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

10、動(dòng),實(shí)現(xiàn)流暢的工作流銜接,幫助酒店有效地進(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)操作上要求簡(jiǎn)單、方便、快捷,便于用戶使用。（4）可擴(kuò)展性原則：采用開發(fā)的標(biāo)準(zhǔn)和接口,便于系統(tǒng)向

11、更大的規(guī)模和效用擴(kuò)展。（二）系統(tǒng)需求根據(jù)酒店客房管理系統(tǒng)的理念,此酒店客房管理系統(tǒng)必須滿足以下需求：(1)具有設(shè)置酒店客房類型和房間信息的效用(2)能快速、準(zhǔn)確地了解酒店的客房狀態(tài),以便訂房和退房(3)提供多種手段查詢客房訂房信息(4)提供修改訂房和修改退房效用(5)提供簡(jiǎn)單的酒店工作人員的添加用戶和修改密碼效用（三）效用需求（1）利用系統(tǒng)設(shè)置中的初始化模塊清空系統(tǒng)中所有數(shù)據(jù)。（2）系統(tǒng)設(shè)置模塊主要是設(shè)置操作員、密碼及權(quán)限。（3）客房管理模塊主要是對(duì)客房進(jìn)行設(shè)置和查詢。（4）住宿管理模塊主要是對(duì)住宿登記、追加押金、調(diào)房登記和退宿結(jié)賬進(jìn)行管理。（5）掛賬查詢模塊主要是對(duì)掛賬和客戶結(jié)款進(jìn)行查詢。（

12、6）查詢統(tǒng)計(jì)模塊主要是對(duì)住宿、退宿進(jìn)行查詢以及對(duì)宿費(fèi)進(jìn)行提醒。（7）日結(jié)模塊主要是對(duì)登記預(yù)收、客房銷售進(jìn)行報(bào)表管理以及對(duì)客房銷售進(jìn)行統(tǒng)計(jì)。（8）系統(tǒng)維護(hù)主要是對(duì)數(shù)據(jù)備份和恢復(fù)進(jìn)行維護(hù)。（四）系統(tǒng)的性能需求為了保證系統(tǒng)能夠長(zhǎ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í)間能夠滿足用戶對(duì)信息的處理。由于系統(tǒng)的查詢效用對(duì)于整個(gè)系統(tǒng)的效用和性能完成很重要。從系統(tǒng)的多個(gè)數(shù)據(jù)來源來看,客房信息查詢、訂房信息查詢、結(jié)算信息查詢,其準(zhǔn)

13、確性很大程度上決定了系統(tǒng)的成敗。因此,在系統(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ī)范,可以簡(jiǎn)單的加入和減少系統(tǒng)的模塊,配置系統(tǒng)的硬件。通過軟件的修補(bǔ)、替換完成系統(tǒng)的升級(jí)和更新?lián)Q代。（3）系統(tǒng)的可操作性性本酒店客房管理系統(tǒng)面向的用戶是酒店內(nèi)工作人員,而有些使用人員往往對(duì)計(jì)算機(jī)并不是非常熟

14、悉,所以系統(tǒng)操作上要求簡(jiǎn)單、方便、快捷,便于用戶使用。這就要求系統(tǒng)能夠提供良好的用戶接口,易用的人機(jī)交互界面。（4）系統(tǒng)的響應(yīng)速度系統(tǒng)設(shè)計(jì)中摒棄大量數(shù)據(jù)冗余,提出了優(yōu)化數(shù)據(jù)庫(kù)的解決方案,大量使用存儲(chǔ)過程,大大提高系統(tǒng)響應(yīng)時(shí)間和速度。系統(tǒng)在日常處理中的響應(yīng)速度為秒級(jí),達(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ù)庫(kù),選用ADO訪問數(shù)據(jù)庫(kù)來實(shí)現(xiàn)各種效用。1.計(jì)算機(jī)及操作系統(tǒng)：WindowsXP 或Windows7；2.開發(fā)工

15、具：Visual Basic3.運(yùn)行環(huán)境: 裝有完整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ù)庫(kù)設(shè)計(jì)根據(jù)酒店客房管理系統(tǒng)需要,設(shè)置的數(shù)據(jù)庫(kù)包含入住登記表tb_djb、預(yù)收登記表tb_djys、掛賬信息表tb_gzmx、酒店房間信息表

16、tb_kf、權(quán)限設(shè)置表tb_qxsz、調(diào)房登記表tb_tfd和管理者信息表tb_user。其結(jié)構(gòu)如下：入住登記表tb_djb：字段字段名類型字段大小1根據(jù)號(hào)碼文本202姓名文本203證件名稱文本204證件號(hào)碼文本205詳細(xì)地址文本506住宿事由文本507房間號(hào)文本308客房類型文本209客房?jī)r(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í)間日

17、期/時(shí)間26摘要文本20027BZ數(shù)字雙精度型預(yù)收登記表tb_djys：字段字段名類型字段大小1根據(jù)號(hào)碼文本202姓名文本203證件名稱文本204證件號(hào)碼文本205詳細(xì)地址文本506住宿事由文本507房間號(hào)文本308客房類型文本9客房?jī)r(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ù)字雙精度型掛賬信息表t

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

19、否7房態(tài)查看是/否8掛賬查詢是/否9掛賬結(jié)款是/否10住宿查詢是/否11退宿查詢是/否12宿費(fèi)提醒是/否13登記預(yù)收?qǐng)?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編號(hào)文本5024操作員文本5025密碼文本50調(diào)房登記表tb_tfd：字段字段名類型字段大小1根據(jù)號(hào)碼文本202姓名文本203證件名稱文本204證件號(hào)碼文本205詳細(xì)地址文本506工作單位文本507房間號(hào)文本308客房類型文本209客房?jī)r(jià)格貨幣10住宿日期日期/時(shí)間11住宿時(shí)間日期/時(shí)間12

20、住宿天數(shù)數(shù)字雙精度型13宿費(fèi)貨幣14折扣或招待文本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 kernel

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

22、1.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.RefreshOn Error GoTo aa 錯(cuò)誤處理。當(dāng)找不到路徑時(shí)則轉(zhuǎn)向錯(cuò)誤處理 Open (App.Path & picture.txt) For Input As #1 Line Input #1, intext Te

23、mp = intext Close #1 Image2.Picture = LoadPicture(intext) Exit Subaa: Image2.Picture = LoadPicture(App.Path & image酒店客房管理系統(tǒng)主界面.bmp) 當(dāng)找不到路徑時(shí),賦給一個(gè)固定的圖片路徑End SubPrivate Sub Form_Activate() 設(shè)置操作員權(quán)限 Adodc1.RecordSource = select * from tb_user where 操作員= + StatusBar1.Panels(4).text + Adodc1.Refresh If Ado

24、dc1.Recordset.RecordCount 0 Then Adodc2.RecordSource = select * from tb_qxsz where 操作員= + 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.t

25、fdj.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 = .Fields(住宿查詢) Main.tfcx.Enabled = .Fields(退宿查詢) Main.sftx.Enabled = .Fields(宿費(fèi)提醒)

26、Main.ysbb.Enabled = .Fields(登記預(yù)收?qǐng)?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(密碼設(shè)置) Main.csh.Enabled = .Fields(初始化) Main.qxsz.Enabled = .Fields(權(quán)限設(shè)置) Main.sztx.Enabled = .Fields(設(shè)置窗口圖像) Main.sjbf.Enabled =

27、.Fields(數(shù)據(jù)備份) Main.sjhf.Enabled = .Fields(數(shù)據(jù)恢復(fù)) Main.Toolbar1.Buttons(1).Enabled = .Fields(住宿登記) 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.

28、Toolbar1.Buttons(11).Enabled = .Fields(宿費(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 調(diào)入住宿查詢 Case RJ xsbb_Click 調(diào)入客房銷售報(bào)表 Case

29、 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),如果成功的話,代表這個(gè)程序的任務(wù) ID,若不成功,則會(huì)返回 0。 Case CXDL 重新登錄 Load main_Login main_Login.Show Case exit If MsgBox(確定退出該系統(tǒng)？, 4

30、, 系統(tǒng)提示) = vbYes Then End End If End SelectEnd SubPrivate Sub sztx_Click() 設(shè)置主窗口圖像Dim Str 定義變量CommonDialog1.Filter = BMP圖片(*.BMP)|*.BMP|JPG圖片(*.JPG)|*.JPG|GIF圖片(*.GIF)|*.GIF|所有文件(*.*)|*.* 設(shè)置圖片格式CommonDialog 控件CommonDialog 控件提供一組標(biāo)準(zhǔn)的操作對(duì)話框,進(jìn)行諸如打開和保存文件,設(shè)置打印選項(xiàng),以及選擇顏色和字體等操作。CommonDialog1.ShowOpen 顯示“打開”對(duì)話框

31、If CommonDialog1.FileName Then 如果文件不為空Image2.Picture = LoadPicture(CommonDialog1.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 = 把空值賦給文件名End I

32、fEnd 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.Enabled = FalseEnd SubPrivate

33、 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.Show Main.Enabled = FalseEnd SubPrivate Sub ftc

34、k_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 SubPrivate Sub zscx_Click() 調(diào)入住宿查詢 Load main_zscx main_zscx.Show M

35、ain.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_Click() 調(diào)入登記預(yù)收?qǐng)?bào)表 main_ysbb.Show Main.Enabled = FalseEnd SubPrivate Sub xsbb_Cli

36、ck() 調(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.Enabled = FalseEnd SubPrivate Sub ma_Click() 調(diào)入密碼設(shè)置 main_mmsz.Show Main.Enabled = FalseEnd SubPri

37、vate 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_Loginmain_Login.ShowEnd Sub（二）初始化main_csh模塊：Dim workarea(200), sql As String 定義字符串變量Dim rs As ADODB.RecordsetPrivate Sub

38、Form_Load() 自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 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_Unload(Cancel As Integer) Main.Enabled = TrueEnd SubPrivate Sub comstart_

39、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 Then ProgressBar1.Visible = True ProgressBar 控件ProgressBar 控件通過從左到右用一些方塊填充矩形來表示一個(gè)較長(zhǎng)操作的進(jìn)度。 ProgressBar1.Max = UBound(workarea) ProgressBar1.Value = ProgressB

40、ar1.Min For Counter = LBound(workarea) To UBound(workarea) LBound 函數(shù)返回一個(gè) Long 型數(shù)據(jù),其值為指定數(shù)組維可用的最小下標(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

41、= delete * from tb_djys Set rs = ESQL(sql) 調(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 = select * f

42、rom 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ù)庫(kù)的連接。 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst For i = 1 To Adodc1.Recordset.RecordCount Adodc1.Recordset.Fields(房

43、態(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.MinEnd SubPrivate Sub comend_Click() Main.Enabled = True Unload MeEnd Sub（四）操作員

44、設(shè)置main_czysz模塊：Private Sub Form_Load() 自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & DB_KFGL.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from tb_qxszAdodc1.RefreshAdodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=

45、 & App.Path & DB_KFGL.mdb;Persist Security Info=FalseAdodc2.RecordSource = select * from tb_userAdodc2.RefreshEnd SubPrivate Sub 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

46、Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus 回車text2獲得焦點(diǎn)End SubPrivate Sub text2_KeyDown(KeyCode As Integer, 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 Command

47、1.SetFocus 回車Command1獲得焦點(diǎn)End SubPrivate Sub Command1_Click() 保存操作員及密碼 If Text1.text 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, adocon, adOpenKeyset, adLockOptimi