畢業(yè)論文--酒店客房管理信息系統(tǒng)

1、<p>　　酒店客房管理信息系統(tǒng)</p><p>　　++++++大學(xué)數(shù)學(xué)與計(jì)算科學(xué)</p><p><b>　　作者： </b></p><p><b>　　指導(dǎo)老師： </b></p><p><b>　　摘 要</b></p><p>　

2、　本文主要介紹了酒店客房管理信息系統(tǒng)的開發(fā)過程.論文詳盡的論述了從需求分析,系統(tǒng)分析,概要設(shè)計(jì),詳細(xì)設(shè)計(jì),以及測(cè)試與調(diào)試的整個(gè)開發(fā)過程.總結(jié)了開發(fā)過程中的經(jīng)驗(yàn)及本系統(tǒng)今后的改進(jìn)方向.</p><p>　　關(guān) 鍵 字：酒店客房管理信息系統(tǒng); 功能; VisualBasic 6.0</p><p><b>　　ABSTRACT</b></p><p&g

3、t;　　This thesis introduced the development process of the guest room Management information system. The thesis discussed in details analytical from the need , system analysis, essentials design, detailed design , and te

4、st and the whole development process that adjust to try , tallied up to develop the improvement direction process aftertime.</p><p>　　KEY WORDS：The guest room management information; function; visualBasic 6

5、.0</p><p><b>　　目 錄</b></p><p><b>　　摘 要1</b></p><p>　　ABSTRACT1</p><p><b>　　目 錄2</b></p><p><b>　　一、引言3</b

6、></p><p>　?。ㄒ唬?項(xiàng)目開發(fā)背景3</p><p>　?。ǘ?項(xiàng)目開發(fā)目標(biāo)3</p><p>　?。ㄈ?項(xiàng)目開發(fā)的意義3</p><p>　　（四） 項(xiàng)目開發(fā)方法概述3</p><p><b>　　二、系統(tǒng)分析3</b></p><p>　　

7、（一） 可行性分析3</p><p>　　1. 管理上的可行性3</p><p>　　2. 技術(shù)上的可行性3</p><p>　　3．經(jīng)濟(jì)上的可行性3</p><p>　?。ǘ?組織結(jié)構(gòu)分析4</p><p>　?。ㄈ?功能需求分析4</p><p>　?。ㄋ模?業(yè)務(wù)流程分析5

8、</p><p>　?。ㄎ澹?數(shù)據(jù)流程分析6</p><p>　　（一） 系統(tǒng)模塊設(shè)計(jì)7</p><p>　?。ǘ?系統(tǒng)流程設(shè)計(jì)7</p><p>　　（三） 數(shù)據(jù)庫(kù)設(shè)計(jì)8</p><p>　　1．?dāng)?shù)據(jù)庫(kù)需求分析8</p><p>　　2．?dāng)?shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)8</p>&

9、lt;p>　?。ㄋ模?運(yùn)行環(huán)境選擇10</p><p>　　1．軟件支撐環(huán)境10</p><p>　　2．硬件支撐環(huán)境10</p><p><b>　　四、系統(tǒng)實(shí)施10</b></p><p>　?。ㄒ唬?創(chuàng)建工程10</p><p>　　（二） 添加模塊10</p>

10、<p>　　（三） 系統(tǒng)模塊的設(shè)計(jì)10</p><p><b>　　五、系統(tǒng)運(yùn)行12</b></p><p>　?。ㄒ唬?系統(tǒng)登錄12</p><p>　?。ǘ?房客管理13</p><p>　　（三） 客房管理18</p><p>　?。ㄋ模?消費(fèi)管理19</p

11、><p>　　（五） 報(bào)表管理20</p><p>　?。?系統(tǒng)管理21</p><p>　　（七） 系統(tǒng)信息22</p><p><b>　　六、結(jié)束語23</b></p><p><b>　　參考文獻(xiàn)24</b></p><p><

12、b>　　一、引言</b></p><p>　?。ㄒ唬?項(xiàng)目開發(fā)背景</p><p>　　經(jīng)濟(jì)的快速發(fā)展，人們的生活水平和消費(fèi)意識(shí)的提高，促進(jìn)了旅游業(yè)的發(fā)展。酒店行業(yè)將面臨著機(jī)遇和挑戰(zhàn)。面對(duì)快速發(fā)展的信息產(chǎn)業(yè)帶來的影響。將電腦技術(shù)和電腦服務(wù)引入酒店管理成為一種趨勢(shì)。眾多酒店企業(yè)中，中小型酒店企業(yè)由于他們的先天條件，使他們不能投入大量的資金進(jìn)行這項(xiàng)必須的改革。因此開發(fā)一套簡(jiǎn)單

13、，實(shí)用的中小型酒店客房管理信息系統(tǒng)是十分有必要的。</p><p>　　（二） 項(xiàng)目開發(fā)目標(biāo)</p><p>　　建立酒店客房管理信息系統(tǒng)，采用計(jì)算機(jī)對(duì)客房信息進(jìn)行管理，進(jìn)一步提高酒店的經(jīng)濟(jì)效益和現(xiàn)代化水平。幫助酒店工作人員提高工作效率，實(shí)現(xiàn)客房信息管理工作流程的系統(tǒng)化，規(guī)范化和自動(dòng)化。</p><p>　?。ㄈ?項(xiàng)目開發(fā)的意義</p><p&

14、gt;　　現(xiàn)在我國(guó)的中小型酒店客房管理水平普遍不高，有的還停留在紙介質(zhì)的基礎(chǔ)上，這種管理手段已不能適應(yīng)時(shí)代的發(fā)展，因此它浪費(fèi)了許多人力和物力。在當(dāng)今信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理系統(tǒng)所代替。如果本系統(tǒng)能被中小型酒店企業(yè)采用，將會(huì)改變以前靠手工管理客房信息的狀況，可以樹立良好的酒店形象，提高工作效率。</p><p>　?。ㄋ模?項(xiàng)目開發(fā)方法概述</p><p>　　

15、酒店客房管理信息系統(tǒng)采用的是原型法的開發(fā)方法。本著開發(fā)人員對(duì)用戶需求的的理解，通過簡(jiǎn)單的系統(tǒng)分析，系統(tǒng)設(shè)計(jì)，快速實(shí)現(xiàn)一個(gè)原型系統(tǒng)，然后通過反復(fù)修改來實(shí)現(xiàn)管理信息系統(tǒng)。</p><p><b>　　二、系統(tǒng)分析</b></p><p><b>　　（一） 可行性分析</b></p><p>　　1. 管理上的可行性</

16、p><p>　　在傳統(tǒng)的酒店客房管理中，管理人員不得不花費(fèi)大量的時(shí)間來處理顧客投訴，例如錯(cuò)誤查詢、煩瑣的登記和結(jié)帳手續(xù)、旅客費(fèi)用計(jì)算錯(cuò)誤、空余客房資料不能及時(shí)提供等，從而影響酒店的經(jīng)濟(jì)效益。因此酒店的管理人員迫切的需要一套酒店客房管理信息系統(tǒng)對(duì)日常信息進(jìn)行處理和維護(hù)。</p><p>　　歷史經(jīng)驗(yàn)的積累使酒店行業(yè)現(xiàn)有的管理制度和管理方法比較科學(xué)，規(guī)章制度比較齊全，原始數(shù)據(jù)比較正確。這些為系統(tǒng)的

17、建設(shè)提供了有效的制度保障。</p><p>　　2. 技術(shù)上的可行性</p><p>　　本管理信息系統(tǒng)將采用技術(shù)成熟的VB6.0做為前臺(tái)開發(fā)工具。后臺(tái)數(shù)據(jù)庫(kù)采用微軟公司的Access數(shù)據(jù)庫(kù)，它的靈活性，安全性，和易用性為數(shù)據(jù)庫(kù)編程提供了良好的條件。因此，系統(tǒng)的軟件開發(fā)平臺(tái)已成熟可行。硬件方面，科技的飛速發(fā)展使硬件的更新速度越來越快，容量越來越大，可靠性越來越高，價(jià)格越來越低，其硬件平臺(tái)完

18、全能滿足此系統(tǒng)的需要。</p><p><b>　　3．經(jīng)濟(jì)上的可行性</b></p><p>　　本系統(tǒng)由作者自主開發(fā)，免費(fèi)使用。操作人員只需簡(jiǎn)單培訓(xùn)即可上崗。管理和維護(hù)比較簡(jiǎn)單，除了必要的設(shè)備投資外，后期只需少量資金就可確保運(yùn)轉(zhuǎn)。因此對(duì)于中小型酒店在經(jīng)濟(jì)上完全可以接受。</p><p>　　本系統(tǒng)的使用能大大提高員工工作效率，加速資金周轉(zhuǎn)、

19、降低各項(xiàng)成本及改善服務(wù)質(zhì)量。能夠取得良好的經(jīng)濟(jì)效益。</p><p>　　綜上所述，本系統(tǒng)在管理上，在技術(shù)上和經(jīng)濟(jì)上是完全可行的，并且投入少，見效快。因此系統(tǒng)的開發(fā)完全可行的。</p><p>　?。ǘ?組織結(jié)構(gòu)分析</p><p>　　中小型酒店企業(yè)的組織結(jié)構(gòu)如下圖所示：</p><p>　　（三） 功能需求分析</p>&

20、lt;p>　　本系統(tǒng)主要有以下功能要求：</p><p>　　1．用戶登錄模塊，主要用于用戶的登錄。用戶權(quán)限分為管理員和普通用戶。當(dāng)用戶輸入用戶名和密碼后經(jīng)過確認(rèn)，才能進(jìn)入酒店客房管理信息系統(tǒng)，并擁有相應(yīng)的權(quán)限。如果不是用戶，拒絕進(jìn)入。</p><p>　　2．房客管理模塊，該模塊是本系統(tǒng)的核心所在。主要用于用戶對(duì)房客及其業(yè)務(wù)的情況進(jìn)行管理，其中包括：</p><

21、p>　　預(yù)定管理模塊，主要包括預(yù)定信息的登記，查看，刪除等基本操作。</p><p>　　接待管理模塊，主要用于客戶入住信息的登記，查看，修改，刪除等基本操作。</p><p>　　結(jié)帳管理模塊，主要用于用戶退房操作。</p><p>　　換房管理模塊，主要用于入住用戶的換房操作。</p><p>　　押金管理模塊，主要用于對(duì)入住客戶押

22、金的補(bǔ)交，查看等基本操作。</p><p>　　3．客房管理模塊，該模塊主要用于對(duì)客房的編輯操作和查看狀態(tài)操作。客房的編輯操作主要有客房的添加，修改，刪除等基本操作。</p><p>　　4．消費(fèi)管理模塊，該模塊主要用于對(duì)客人在入住期間的消費(fèi)進(jìn)行入帳操作，包括消費(fèi)入帳，話費(fèi)入帳，餐費(fèi)入帳等操作。</p><p>　　5．審查管理模塊，主要用于該酒店管理者對(duì)酒店的基本

23、數(shù)據(jù)信息進(jìn)行查看，以便制定策略。包括客房狀態(tài)報(bào)表查看，客人入住信息報(bào)表查看，歷史客人報(bào)表查看等等。</p><p>　　（四） 業(yè)務(wù)流程分析</p><p>　　酒店客房業(yè)務(wù)的基本流程主要包括：</p><p>　　客房的預(yù)定，客人通過電話或者其他途徑向酒店進(jìn)行客房預(yù)定，接待人員查詢客房狀態(tài)表后確定有空房則接受預(yù)定，預(yù)定成功后發(fā)給客人預(yù)定憑證，客房狀態(tài)表作出相應(yīng)的變

24、化。</p><p>　　客房的登記，分為預(yù)定入住和散客登記</p><p>　　如果客人已經(jīng)預(yù)定房間，則根據(jù)預(yù)定憑證進(jìn)行預(yù)定入住操作，發(fā)給客人房卡，客房狀態(tài)由“預(yù)定”變?yōu)椤叭胱　薄?lt;/p><p>　　如果客人沒有預(yù)定房間，接待人員查詢客房狀態(tài)表后，有空房則進(jìn)行客房登記操作，發(fā)給客人房卡，客房狀態(tài)由“空房”變?yōu)椤叭胱　薄?lt;/p><p>　

25、　客人換房，如果客人對(duì)入住的客房條件不滿意，則可進(jìn)行客人換房操作。接待人員將客人的房間進(jìn)行更換，并更換客人房卡，客房狀態(tài)也進(jìn)行相應(yīng)的調(diào)整。</p><p>　　客房消費(fèi)，客人入住期間在酒店進(jìn)行了消費(fèi)，如：購(gòu)買商品，就餐，打電話。就要進(jìn)行消費(fèi)入帳操作。包括：消費(fèi)入帳，餐費(fèi)入帳，話費(fèi)入帳。</p><p>　　補(bǔ)交押金，如果客人的押金太少，則要補(bǔ)交押金。客人交納押金，接待人員開具押金憑證。&l

26、t;/p><p>　　夜審管理。酒店的管理人員要對(duì)酒店的基本信息進(jìn)行了解則可以進(jìn)行夜審管理，包括：客房狀態(tài)報(bào)表的查看，客人入住信息的查看，歷史客人報(bào)表查看。</p><p>　　客人退房，客人退房時(shí)，接待人員根據(jù)客人的房卡，進(jìn)行退房登記。計(jì)算客人入住期間的房費(fèi)，餐費(fèi)，話費(fèi)，各種消費(fèi)和押金總額。對(duì)客人收取費(fèi)用或者退回押金。客人信息轉(zhuǎn)存到歷史客人表中?？头繝顟B(tài)由“入住”轉(zhuǎn)為“空房”。</p&

27、gt;<p>　　（五） 數(shù)據(jù)流程分析</p><p>　　本系統(tǒng)的后臺(tái)數(shù)據(jù)庫(kù)將作為整個(gè)酒店的數(shù)據(jù)流通中心，將各個(gè)部門的數(shù)據(jù)信息連通起來，具體流程如下圖所示：</p><p><b>　　三、系統(tǒng)設(shè)計(jì)</b></p><p>　　（一） 系統(tǒng)模塊設(shè)計(jì)</p><p>　　根據(jù)上一章的分析，可以設(shè)計(jì)出系統(tǒng)的總

28、體功能模塊圖，如圖五所示。</p><p>　　可以看到，本系統(tǒng)劃分為六個(gè)功能模塊，房客管理模塊用于對(duì)客人及其業(yè)務(wù)情況進(jìn)行管理，客房管理模塊主要用于客房狀態(tài)的查看和客房的編輯。消費(fèi)管理模塊主要用于對(duì)客人在店消費(fèi)進(jìn)行入帳管理。報(bào)表管理模塊提供給酒店管理者用來查看酒店的基本信息，系統(tǒng)維護(hù)模塊用來管理系統(tǒng)用戶。系統(tǒng)信息模塊用來查看本系統(tǒng)的版權(quán)等信息。</p><p>　?。ǘ?系統(tǒng)流程設(shè)計(jì)&l

29、t;/p><p>　　系統(tǒng)流程就是用戶在使用系統(tǒng)時(shí)的工作過程。本系統(tǒng)是多類型用戶管理信息系統(tǒng)，每一類用戶的工作權(quán)限有所區(qū)別。多用戶系統(tǒng)的工作流程都是從用戶登錄模塊開始的，對(duì)用戶的身份進(jìn)行認(rèn)證。身份認(rèn)證可以分為以下兩個(gè)過程：</p><p>　　確認(rèn)用戶是否是有效的系統(tǒng)用戶。</p><p><b>　　確定用戶的類型。</b></p>

30、<p>　　第一個(gè)過程決定用戶能否進(jìn)入系統(tǒng)。第二個(gè)過程根據(jù)用戶的類型決定用戶的操作權(quán)限。</p><p>　　本系統(tǒng)的流程分析如圖六所示。</p><p><b>　　（三） 數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　現(xiàn)在我們已經(jīng)對(duì)酒店客房管理信息系統(tǒng)的功能，模塊劃分和系統(tǒng)流程有了比較全面的認(rèn)識(shí)，本節(jié)將介紹系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)</p

31、><p><b>　　1．?dāng)?shù)據(jù)庫(kù)需求分析</b></p><p>　　針對(duì)酒店客房管理信息系統(tǒng)的需求，通過對(duì)酒店客房管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：</p><p>　　·客房基本信息，包括的數(shù)據(jù)項(xiàng)有：客房號(hào)碼，客房標(biāo)準(zhǔn)，客房位置，客房狀態(tài)，單價(jià)，容納人數(shù)，等。</p><p>　

32、　·預(yù)定基本信息，包括的數(shù)據(jù)項(xiàng)有：客房房號(hào)，客人姓名，身份證號(hào)碼，身份證地址，預(yù)定時(shí)間，操作員等。</p><p>　　·入住客戶基本信息，包括客房房號(hào)，客人姓名，身份證號(hào)碼，身份證地址，從何處來，到何處去，住宿原因，入住時(shí)間，操作員等。</p><p>　　·結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：客房號(hào)碼，客戶姓名，身份證號(hào)碼，客房單價(jià)，折扣，入住時(shí)間，結(jié)算時(shí)間，備注等

33、。</p><p>　　·系統(tǒng)用戶信息，包括的數(shù)據(jù)項(xiàng)有 ：用戶名，用戶密碼，用戶權(quán)限。</p><p>　　有了上面的數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，我們就能進(jìn)行下面的數(shù)據(jù)庫(kù)設(shè)計(jì)。</p><p><b>　　2．?dāng)?shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)</b></p><p>　　數(shù)據(jù)庫(kù)包含以下5張表：系統(tǒng)用戶表，客房狀態(tài)表，客房預(yù)定表，

34、客人入住表，歷史客人表。</p><p>　　表1 系統(tǒng)用戶表</p><p>　　表2 客房狀態(tài)表</p><p>　　表3 客房預(yù)定表</p&

35、gt;<p>　　表4 客人入住表</p><p>　　表5 歷史客人表</p><p>　　（四） 運(yùn)行環(huán)境選擇</p><p><b>　　1．軟件支撐環(huán)境</b></p><p>

36、;　　本系統(tǒng)采用中文Windows XP平臺(tái)，Office 2000中的Access為數(shù)據(jù)庫(kù)，Visual Basic 6.0為開發(fā)工具，軟件開發(fā)在Windows XP平臺(tái)下運(yùn)行，最終產(chǎn)品可脫離Visual Basic 6.0運(yùn)行環(huán)境，在Windows 9X/2000/XP平臺(tái)下運(yùn)行。</p><p><b>　　2．硬件支撐環(huán)境</b></p><p>　　CPU：

37、賽揚(yáng)1.2G以上</p><p>　　內(nèi)存：SDR 64M以上</p><p>　　顯卡：VGA 16M顯存以上</p><p>　　硬盤：50M以上硬盤剩余空間</p><p><b>　　四、系統(tǒng)實(shí)施</b></p><p><b>　?。ㄒ唬?創(chuàng)建工程</b><

38、;/p><p>　　用戶需要?jiǎng)?chuàng)建工程存儲(chǔ)的目錄，例如“f:\酒店客房管理信息系統(tǒng)”。</p><p>　　運(yùn)行VisualBasic6.0主程序，并選擇新建“標(biāo)準(zhǔn)EXE”工程。新建工程后，在VisualBasic窗口中有個(gè)缺省的窗體Form1,我們?cè)诖嘶A(chǔ)上設(shè)計(jì)系統(tǒng)的主界面。</p><p>　　選擇“工程”菜單中的“工程1屬性”命令，在“工程屬性”對(duì)話框中，將工程名設(shè)

39、置為“酒店客房管理信息系統(tǒng)”。單擊“保存”，將工程存儲(chǔ)為 酒店客房管理信息系統(tǒng).vbp。</p><p><b>　?。ǘ?添加模塊</b></p><p>　　根據(jù)VisualBasic功能模塊的劃分原則，將創(chuàng)建以下幾個(gè)模塊：</p><p>　　Const 用來管理工程中的常量</p><p>　　DbFunc 用

40、來管理工程中與數(shù)據(jù)庫(kù)操作相關(guān)的聲明，變量和函數(shù)</p><p>　　GeneralFunc 用來管理工程中一些通用的自定義函數(shù)</p><p>　　Variable 用來管理工程中的全局變量</p><p>　　添加模塊的具體操作請(qǐng)參照系統(tǒng)實(shí)體，這里不再詳述。</p><p>　?。ㄈ?系統(tǒng)模塊的設(shè)計(jì)</p><p>

41、;<b>　　登錄模塊的設(shè)計(jì)：</b></p><p>　　用戶要使用本系統(tǒng)，首先必須通過系統(tǒng)的身份認(rèn)證，這個(gè)過程叫做登錄。登錄過程需要完成以下任務(wù)：</p><p>　　根據(jù)用戶名和密碼來判斷是否可能進(jìn)入系統(tǒng)。</p><p>　　根據(jù)用戶類型決定用戶擁有的權(quán)限。</p><p>　　成功登錄的用戶將進(jìn)入系統(tǒng)的主界面。

42、</p><p>　　登錄窗體的名稱為FrmLogin,它的界面布局如圖七所示。</p><p>　　圖7 登錄窗體的界面布局</p><p>　　下面介紹登錄窗體的部分代碼。</p><p><b>　　變量聲明</b></p><p>　　登錄窗體的變量聲明如下：</p><

43、;p>　　Public PasswordKey As String</p><p>　　Public NameKey As String</p><p>　　Public Try_times As Integer</p><p>　　NameKey保存用戶名，PasswordKey保存密碼，Try_times 記錄嘗試登錄的次數(shù)</p><

44、p>　　Cmd_Ok_Click 過程</p><p>　　當(dāng)用戶單擊“確定”按鈕是時(shí)，觸發(fā)Cmd_Ok_Click事件，進(jìn)行身份驗(yàn)證，對(duì)應(yīng)的代碼如下：</p><p>　　Private Sub Cmd_OK_Click()</p><p><b>　　'數(shù)據(jù)有效性檢查</b></p><p>　　If

45、Trim(txtUser) = "" Then</p><p>　　MsgBox "請(qǐng)輸入用戶名"</p><p>　　txtUser.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>&l

46、t;/p><p>　　If Trim(txtPwd) = "" Then</p><p>　　MsgBox "請(qǐng)輸入密碼"</p><p>　　txtPwd.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>

47、;　　End If</b></p><p>　　NameKey = MakeStr(txtUser)</p><p>　　PasswordKey = MakeStr(txtPwd)</p><p><b>　　'判斷用戶是否存在</b></p><p>　　If MyUser.In_DB(NameKe

48、y) = False Then</p><p>　　MsgBox "用戶名不存在"</p><p>　　Try_times = Try_times + 1</p><p>　　If Try_times >= 3 Then</p><p>　　MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉&q

49、uot;</p><p>　　DBapi_Disconnect</p><p><b>　　End</b></p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p><p><b>　　End

50、If</b></p><p><b>　　End If</b></p><p><b>　　'判斷密碼是否正確</b></p><p>　　MyUser.GetInfo (NameKey)</p><p>　　If MyUser.Pwd <> PasswordKey

51、Then</p><p>　　MsgBox "密碼錯(cuò)誤"</p><p>　　Try_times = Try_times + 1</p><p>　　If Try_times >= 3 Then</p><p>　　MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉"</p>

52、;<p>　　DBapi_Disconnect</p><p><b>　　End</b></p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>&

53、lt;/p><p><b>　　End If</b></p><p>　　'登錄成功，將當(dāng)前用戶的信息保存在CurUser中</p><p>　　CurUser.UserName = MyUser.UserName</p><p>　　CurUser.User_type = MyUser.User_type</

54、p><p><b>　　'關(guān)閉自己</b></p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　其他模塊設(shè)計(jì)請(qǐng)參照系統(tǒng)實(shí)體，在這里不在詳細(xì)敘述。</p><p><b&

55、gt;　　五、系統(tǒng)運(yùn)行</b></p><p><b>　?。ㄒ唬?系統(tǒng)登錄</b></p><p>　　單擊“酒店客房管理信息系統(tǒng)”圖標(biāo)。進(jìn)入系統(tǒng)展示畫面。</p><p>　　圖8 系統(tǒng)展示窗體</p><p>　　經(jīng)過5秒鐘，自動(dòng)跳轉(zhuǎn)到系統(tǒng)登錄窗體。</p><p><b

56、>　　圖9 系統(tǒng)登錄窗體</b></p><p>　　選擇操作員名稱（admin）,輸入密碼（111）。單擊“確定”進(jìn)入系統(tǒng)的主界面。</p><p><b>　　圖10 系統(tǒng)主界面</b></p><p><b>　?。ǘ?房客管理</b></p><p><b>　

57、　1．客房預(yù)定</b></p><p>　　單擊“房客管理”，單擊“預(yù)定房間”。彈出客房預(yù)定窗體。</p><p>　　在預(yù)定窗體中輸入客戶信息，單擊“預(yù)定”，完成預(yù)定房間操作。</p><p><b>　　圖11客房預(yù)定窗體</b></p><p><b>　　2．預(yù)定入住</b>&l

58、t;/p><p>　　圖12 預(yù)定入住窗體</p><p>　　單擊“預(yù)定入住”，彈出預(yù)定入住窗體。</p><p>　　在預(yù)定入住窗體中輸入相關(guān)信息，單擊“登記”完成預(yù)定入住操作。</p><p><b>　　3．客房登記</b></p><p>　　圖13 客房登記窗體</p>&l

59、t;p>　　單擊“客房登記”，彈出客房登記窗體。</p><p>　　在客房登記窗體中輸入相關(guān)信息，單擊“登記”，完成客房登記操作。</p><p><b>　　4．鐘點(diǎn)房登記</b></p><p>　　單擊“鐘點(diǎn)房登記”，彈出鐘點(diǎn)房登記窗體，輸入相關(guān)信息，單擊“登記”完成客房登記操作。</p><p>　　圖1

60、4 鐘點(diǎn)房登記窗體</p><p><b>　　5．客人換房</b></p><p>　　圖15 客人換房窗體</p><p><b>　　6．補(bǔ)交押金</b></p><p>　　圖16 補(bǔ)交押金窗體</p><p><b>　　7．退房登記</b>&

61、lt;/p><p>　　圖17 退房登記窗體</p><p><b>　　8．在店客人表</b></p><p>　　圖18 在店客人表窗體</p><p><b>　　（三） 客房管理</b></p><p><b>　　1．客房狀態(tài)</b></p&

62、gt;<p>　　圖19 客房狀態(tài)窗體</p><p><b>　　2．客房編輯</b></p><p>　　圖20 客房編輯窗體</p><p><b>　?。ㄋ模?消費(fèi)管理</b></p><p><b>　　1．消費(fèi)入帳</b></p><

63、;p>　　圖21 消費(fèi)入帳窗體</p><p><b>　　2．餐費(fèi)入帳</b></p><p><b>　　圖22 餐費(fèi)入帳</b></p><p><b>　　3．話費(fèi)入帳</b></p><p><b>　　圖23話費(fèi)入帳窗體</b></

64、p><p><b>　　（五） 報(bào)表管理</b></p><p>　　圖24 報(bào)表管理窗體</p><p><b>　?。?系統(tǒng)管理</b></p><p><b>　　1.添加用戶</b></p><p>　　圖25 添加用戶窗體</p>

65、<p><b>　　2.修改密碼</b></p><p>　　圖26 密碼設(shè)置窗體</p><p><b>　　3.初始化數(shù)據(jù)庫(kù)</b></p><p>　　圖27初始化數(shù)據(jù)庫(kù)窗體</p><p><b>　　4.用戶查看</b></p><p&

66、gt;　　圖28 用戶查看窗體</p><p><b>　?。ㄆ撸?系統(tǒng)信息</b></p><p><b>　　1.版權(quán)信息</b></p><p>　　圖29 系統(tǒng)信息窗體</p><p><b>　　2.系統(tǒng)簡(jiǎn)介</b></p><p>　　圖30

67、 系統(tǒng)介紹窗體</p><p>　　Dim TIM As Integer '定義一個(gè)整型變量</p><p>　　Dim myval As String '定義一個(gè)字符串變量</p><p>　　Private Sub Form_Load()</p><p>　　'自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑</p>

68、<p>　　Data1.DatabaseName = App.Path & "\KFGL.mdb"</p><p>　　Data2.DatabaseName = App.Path & "\KFGL.mdb"</p><p><b>　　End Sub</b></p><p>

69、　　Private Sub Form_Activate()</p><p>　　'當(dāng)記錄為零時(shí)，進(jìn)入系統(tǒng)具有所有權(quán)限</p><p>　　If Data1.Recordset.RecordCount = 0 Then</p><p>　　MsgBox ("請(qǐng)先設(shè)置操作員密碼和權(quán)限！")</p><p>　　Load

70、 MDIForm1</p><p>　　MDIForm1.Show</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>　　text1.SetFocus</p><p><b>　　End If<

71、;/b></p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>　　If KeyCode = vbKeyReturn Then Text2.SetFocus '按

72、回車鍵，text2獲得焦點(diǎn)</p><p><b>　　End Sub</b></p><p>　　Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>　　If KeyCode = vbKeyReturn Then Cmd1.SetFocus &

73、#39;按回車鍵cmd1獲得焦點(diǎn)</p><p>　　If KeyCode = vbKeyUp Then text1.SetFocus</p><p>　　If KeyCode = vbKeyDown Then Cmd1.SetFocus</p><p><b>　　End Sub</b></p><p>　　Priva

74、te Sub cmd1_Click()</p><p><b>　　'驗(yàn)證操作員及密碼</b></p><p>　　If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst</p><p>　　Data2.Recordset.FindFirst "操作員 lik

75、e " + Chr(34) + text1.BoundText + Chr(34) + ""</p><p>　　If Data2.Recordset.NoMatch Then</p><p>　　MsgBox ("操作員輸入錯(cuò)誤!")</p><p><b>　　Else</b></p&

76、gt;<p>　　Data1.RecordSource = "select * from qxsz where 操作員='" & text1.BoundText & "'"</p><p>　　Data1.Refresh</p><p>　　If text1.BoundText <> &quo

77、t;" And Text2.Text <> "" And Text2.Text = Data1.Recordset.Fields("密碼") Then</p><p>　　drm = text1.Text</p><p>　　If Data1.Recordset.Fields("角色名稱") = "

78、管理員" Then</p><p><b>　　gly = "0"</b></p><p><b>　　Else</b></p><p><b>　　gly = "1"</b></p><p><b>　　End If

79、</b></p><p>　　Load MDIForm1</p><p>　　MDIForm1.Show</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>　　If TIM = 3 Then

80、 '密碼輸錯(cuò)3次，退出系統(tǒng)</p><p>　　myval = MsgBox("密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢!", 0, "")</p><p>　　If myval = vbOK Then End</p><p><b>　　End If</b></p><p>　

81、　If text1.BoundText = "" Then</p><p>　　MsgBox ("請(qǐng)輸入操作員!")</p><p>　　text1.SetFocus</p><p><b>　　Else</b></p><p>　　If text1.BoundText <&

82、gt; Data1.Recordset.Fields("操作員") Then</p><p>　　MsgBox ("查無此操作員,請(qǐng)重新輸入操作員!")</p><p>　　text1.SetFocus</p><p><b>　　Else</b></p><p>　　If Tex

83、t2.Text = "" Then</p><p>　　MsgBox ("請(qǐng)輸入操作員密碼!")</p><p>　　Text2.SetFocus</p><p><b>　　Else</b></p><p>　　If Text2.Text <> Data1.Recor

84、dset.Fields("密碼") Then</p><p>　　MsgBox ("密碼錯(cuò)誤,請(qǐng)重新輸入密碼!")</p><p>　　TIM = TIM + 1</p><p>　　Text2.SetFocus</p><p><b>　　End If</b></p>

85、<p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If

86、</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmd2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>

87、;　　Dim db As Database '定義數(shù)據(jù)庫(kù)</p><p>　　Dim rs As Recordset '定義字段</p><p>　　Dim connter As Integer '定義一個(gè)整型變量</p><p>　　Dim workarea(200), sql As String '

88、定義字符串變量</p><p>　　Private Sub Form_Load() '自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑</p><p>　　Data1.DatabaseName = App.Path & "\Kfgl.MDB"</p><p><b>　　End Sub</b></p><p&g

89、t;　　Private Sub comstart_Click()</p><p>　　Frame1.Enabled = True: Comcreat.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub comcreat_Click() '清空選定表中的數(shù)據(jù)

90、</p><p>　　ProgressBar1.Visible = True</p><p>　　ProgressBar1.Max = UBound(workarea)</p><p>　　ProgressBar1.Value = ProgressBar1.Min</p><p>　　For Counter = LBound(workarea

91、) To UBound(workarea)</p><p>　　workarea(Counter) = "initial value " & Counter</p><p>　　ProgressBar1.Value = Counter</p><p>　　Set db = Workspaces(0).OpenDatabase(App.Pa

92、th & "\Kfgl.MDB")</p><p>　　If Check1.Value = 1 Then</p><p>　　sql = "delete * from djb"</p><p>　　db.Execute sql</p><p><b>　　End If</b>

93、;</p><p>　　If Check2.Value = 1 Then</p><p>　　sql = "delete * from kf"</p><p>　　db.Execute sql</p><p><b>　　End If</b></p><p>　　If Chec

94、k4.Value = 1 Then</p><p>　　sql = "delete * from yd"</p><p>　　db.Execute sql</p><p><b>　　End If</b></p><p>　　If Check5.Value = 1 Then</p>&l

95、t;p>　　sql = "delete * from qxsz"</p><p>　　db.Execute sql</p><p><b>　　End If</b></p><p>　　Next Counter</p><p>　　ProgressBar1.Visible = False<

96、/p><p>　　ProgressBar1.Value = ProgressBar1.Min</p><p><b>　　End Sub</b></p><p>　　Private Sub comend_Click()</p><p>　　' main.Enabled = True</p><p&

97、gt;<b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><b>　　六、結(jié)束語</b></p><p>　　這次設(shè)計(jì)，使我學(xué)到了很多書本上沒有的知識(shí)，提高了我對(duì)問題的分析能力。在這些天不分晝夜實(shí)踐和摸索中，我受益匪淺，感觸良多。通過這次畢業(yè)設(shè)計(jì)

98、，使我感到我的所學(xué)知識(shí)還是不夠的，還要繼續(xù)多加努力。</p><p>　　致謝：在這次畢業(yè)設(shè)計(jì)中，得到了**老師的精心指導(dǎo)，提出了很多建議和看法，在此，對(duì)*老師表示我最真摯的謝意。另外，還要謝謝在此期間幫助我的同學(xué)們。同時(shí)感謝多年來關(guān)心和支持我的老師和同學(xué)們！</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1] 陳明 軟件

99、工程[N]，中央廣播電視大學(xué)出版社，2001年</p><p>　　[2] 陳明 Visual Basic程序設(shè)計(jì)[N]，中央廣播電視大學(xué)出版社，2000年</p><p>　　[3] 劉韜、駱娟、何旭洪 Visual Basic6.0數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航[N]，人民郵電出版社 2002年</p><p>　　[4] 王利，數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用[N]，中央廣播