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

酒店客房管理信息系統(tǒng) 摘 要 本文主要介紹了酒店客房管理信息系統(tǒng)的開(kāi)發(fā)過(guò)程 .論文詳盡的論述了從需求分析 ,系統(tǒng)分析 ,概要設(shè)計(jì) ,詳細(xì)設(shè)計(jì) ,以及測(cè)試與調(diào)試的整個(gè)開(kāi)發(fā)過(guò)程 .總結(jié)了開(kāi)發(fā)過(guò)程中的經(jīng)驗(yàn)及本系統(tǒng)今后的改進(jìn)方向 . 關(guān) 鍵 字： 酒店客房管理信息系統(tǒng) ； 功能 ； VisualBasic 6.0 ABSTRACT This thesis introduced the development process of the guest room Management information syst em. The thesis discussed in details analytical from the need , system analysis, essentials design, detailed design , and test and the whole development process that adjust to try , tallied up to develop the improvement direction process aftertime. KEY WORDS： The guest room management information； function； visualBasic 6.0 目 錄 摘 要 1 ABSTRACT 1 目 錄 2 一、引言 4 （一） 項(xiàng)目開(kāi)發(fā)背景 4 （二） 項(xiàng)目開(kāi)發(fā)目標(biāo) 4 （三） 項(xiàng)目開(kāi)發(fā)的意義 4 （四） 項(xiàng)目開(kāi)發(fā)方法概述 4 二、系統(tǒng)分析 4 （一） 可行性分析 4 1. 管理上的可行性 4 2. 技術(shù)上的可行性 4 3經(jīng)濟(jì)上的可行性 5 （二） 組織結(jié)構(gòu)分析 5 （三） 功能需求分析 5 （四） 業(yè)務(wù)流程分析 6 （五） 數(shù)據(jù)流程分析 8 （一） 系統(tǒng)模塊設(shè)計(jì) 8 （二） 系統(tǒng)流程設(shè)計(jì) 9 （三） 數(shù)據(jù)庫(kù)設(shè)計(jì) 10 1數(shù)據(jù)庫(kù)需求分析 10 2數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì) 11 （四） 運(yùn)行環(huán)境選擇 12 1軟件支撐環(huán)境 12 2硬件支撐環(huán)境 12 四、系統(tǒng)實(shí)施 13 （一） 創(chuàng)建工程 13 （二） 添加模塊 13 （三） 系統(tǒng)模塊的設(shè)計(jì) 13 五、系統(tǒng)運(yùn)行 15 （一） 系統(tǒng)登錄 15 （二） 房客管理 17 （三） 客房管理 22 （四） 消費(fèi)管理 24 （五） 報(bào)表管理 25 （六） 系統(tǒng)管理 26 （七） 系統(tǒng)信息 28 六、結(jié)束語(yǔ) 33 參考文獻(xiàn) 33 一、引言 （一） 項(xiàng)目開(kāi)發(fā)背景 經(jīng)濟(jì)的快速發(fā)展，人們的生活水平和消費(fèi)意識(shí)的提高，促進(jìn)了旅游業(yè)的發(fā)展。酒店行業(yè)將面臨著機(jī)遇和挑戰(zhàn)。面對(duì)快速發(fā)展的 信息產(chǎn)業(yè)帶來(lái)的影響。將電腦技術(shù)和電腦服務(wù)引入酒店管理成為一種趨勢(shì)。眾多酒店企業(yè)中，中小型酒店企業(yè)由于他們的先天條件，使他們不能投入大量的資金進(jìn)行這項(xiàng)必須的改革。因此開(kāi)發(fā)一套簡(jiǎn)單，實(shí)用的中小型酒店客房管理信息系統(tǒng)是十分有必要的。 （二） 項(xiàng)目開(kāi)發(fā)目標(biāo) 建立酒店客房管理信息系統(tǒng)，采用計(jì)算機(jī)對(duì)客房信息進(jìn)行管理，進(jìn)一步提高酒店的經(jīng)濟(jì)效益和現(xiàn)代化水平。幫助酒店工作人員提高工作效率，實(shí)現(xiàn)客房信息管理工作流程的系統(tǒng)化，規(guī)范化和自動(dòng)化。 （三） 項(xiàng)目開(kāi)發(fā)的意義 現(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ì)改變以前靠手工管理客房信息的狀況，可以樹(shù)立良好的酒店形象，提高工作效率。 （四） 項(xiàng)目開(kāi)發(fā)方法概述 酒店客房管理信息系統(tǒng)采用的是原型法的開(kāi)發(fā)方法。本著開(kāi)發(fā)人員對(duì)用戶(hù)需求的的理解，通過(guò)簡(jiǎn)單的系統(tǒng)分析，系統(tǒng)設(shè)計(jì)，快速實(shí)現(xiàn)一個(gè)原型系統(tǒng)，然后通過(guò)反復(fù)修改來(lái)實(shí)現(xiàn)管理信息系統(tǒng)。 二、系統(tǒng)分析 （一） 可行性分析 1. 管理上的可行性 在 傳統(tǒng)的酒店 客房 管理 中， 管理 人員不得不 花 費(fèi) 大量的時(shí)間來(lái)處理顧客投訴，例如錯(cuò)誤查詢(xún)、煩瑣的登記和結(jié)帳手續(xù)、旅客費(fèi)用計(jì)算錯(cuò)誤、空余客房資料不能及時(shí)提供等，從而影響 酒店的經(jīng)濟(jì)效益。因此酒店的管理人員迫切的需要一套酒店客房管理信息系統(tǒng)對(duì)日常信息進(jìn)行處理和維護(hù)。 歷史經(jīng)驗(yàn)的積累使酒店行業(yè)現(xiàn)有的管理制度和管理方法比較科學(xué)，規(guī)章制度比較齊全，原始數(shù)據(jù)比較正確。這些為系統(tǒng)的建設(shè)提供了有效的制度保障。 2. 技術(shù)上的可行性 本管理信息系統(tǒng)將采用技術(shù)成熟的 VB6.0 做為前臺(tái)開(kāi)發(fā)工具。后臺(tái)數(shù)據(jù)庫(kù)采用微軟公司的 Access 數(shù)據(jù)庫(kù)， 它的靈活性，安全性，和易用性為數(shù)據(jù)庫(kù)編程提供了良好的條件。因此，系統(tǒng)的軟件開(kāi)發(fā)平臺(tái)已成熟可行。硬件方面，科技的飛速發(fā)展使硬件的更新速度越來(lái)越快，容量越來(lái)越大，可靠性越來(lái)越高，價(jià)格越來(lái)越低，其硬件平臺(tái)完全能滿(mǎn)足此系統(tǒng)的需要。 3經(jīng)濟(jì)上的可行性 本系統(tǒng)由作者自主開(kāi)發(fā)，免費(fèi)使用。操作人員只需簡(jiǎn)單培訓(xùn)即可上崗。管理和維護(hù)比較簡(jiǎn)單，除了必要的設(shè)備投資外，后期只需少量資金就可確保運(yùn)轉(zhuǎn)。因此對(duì)于中小型酒店在經(jīng)濟(jì)上完全可以接受。 本系統(tǒng)的使用能大大 提高員工工作效率，加速資金周轉(zhuǎn)、降低各項(xiàng)成本及改善服務(wù)質(zhì)量 。能夠取得良好的 經(jīng)濟(jì)效益。 綜上所述，本系統(tǒng)在管理上，在技術(shù)上和經(jīng)濟(jì)上是完全可行的，并且投入少，見(jiàn)效快。因此系統(tǒng)的開(kāi)發(fā)完全可行的。 （二） 組織結(jié)構(gòu)分析 中小型酒店企業(yè)的組織結(jié)構(gòu)如下圖所示： （ 三 ） 功能需求分析 本系統(tǒng)主要有以下功能要求： 1用戶(hù)登錄模塊， 主要用于用戶(hù)的登錄。用戶(hù)權(quán)限分為管理員和普通用戶(hù)。當(dāng)用戶(hù)輸入用戶(hù)名和密碼后經(jīng)過(guò)確認(rèn)，才能進(jìn)入酒店客房管理信息系統(tǒng)，并擁有相應(yīng)的權(quán)限。如果不是用戶(hù)，拒絕進(jìn)入。 2房客管理模塊， 該模塊是本系統(tǒng)的核心所在。主要用于用戶(hù)對(duì)房客及其業(yè)務(wù)的情 況進(jìn)行管理，其中包括： 預(yù)定管理模塊，主要包括預(yù)定信息的登記，查看，刪除等基本操作。 圖 1 中小型酒店組織結(jié)構(gòu)圖 總 臺(tái) 送餐服務(wù)部 食品采購(gòu)部 洗衣房 禮賓部 房務(wù)中心 酒店總經(jīng)理 前廳部 客房部 餐飲部 餐 廳 樓層服務(wù) 總機(jī) 財(cái)務(wù)部 保安部 接待管理模塊，主要用于客戶(hù)入住信息的登記，查看，修改，刪除等基本操作。 結(jié)帳管理模塊，主要用于用戶(hù)退房操作。 換房管理模塊，主要用于入住用戶(hù)的換房操作。 押金管理模塊，主要用于對(duì)入住客戶(hù)押金的補(bǔ)交，查看等基本操作。 3客房管理模塊， 該模塊主要用于對(duì)客房的編輯操作和查看狀態(tài)操作。客房的編輯操作主要有客房的添加，修改，刪除等基本操作。 4消費(fèi)管理模塊， 該模塊主要用于對(duì)客人在入住期間的消費(fèi)進(jìn)行入帳操作，包括消費(fèi)入帳，話(huà)費(fèi)入帳 ，餐費(fèi)入帳等操作。 5審查管理模塊， 主要用于該酒店管理者對(duì)酒店的基本數(shù)據(jù)信息進(jìn)行查看，以便制定策略。包括客房狀態(tài)報(bào)表查看，客人入住信息報(bào)表查看，歷史客人報(bào)表查看等等。 （四） 業(yè)務(wù)流程分析 預(yù)訂管理 餐費(fèi)管理 話(huà)費(fèi)管理 押金管理 客房查看 酒店客房管理系統(tǒng) 房客管理 客房管理 消費(fèi)管理 消費(fèi)管理 客房編輯 接待管理 結(jié)帳管理 換房管理 審查管理 圖 2 功能需求結(jié)構(gòu)圖 入住報(bào)表管理 客房狀態(tài)報(bào)表 系統(tǒng)管理 歷史客人報(bào)表 酒店客房業(yè)務(wù)的基本流程主要包括： 客房的預(yù)定，客人通過(guò)電話(huà)或者其他途徑向酒店進(jìn)行客房預(yù)定，接待人員查詢(xún)客房狀態(tài)表后確定有空房則接受預(yù)定，預(yù)定成功后發(fā)給客人預(yù)定憑證，客房狀態(tài)表作出相應(yīng)的變化。 客房的登記，分為預(yù)定入住和散客登記 如果客人已經(jīng)預(yù)定房間，則根據(jù)預(yù)定憑證進(jìn)行 預(yù)定入住操作，發(fā)給客人房卡，客房狀態(tài)由“預(yù)定”變?yōu)椤叭胱　薄?如果客人沒(méi)有預(yù)定房間，接待人員查詢(xún)客房狀態(tài)表后，有空房則進(jìn)行客房登記操作，發(fā)給客人房卡，客房狀態(tài)由“空房”變?yōu)椤叭胱　薄?客人換房，如果客人對(duì)入住的客房條件不滿(mǎn)意，則可進(jìn)行客人換房操作。接待人員將客人的房間進(jìn)行更換，并更換客人房卡，客房狀態(tài)也進(jìn)行相應(yīng)的調(diào)整。 客房消費(fèi)，客人入住期間在酒店進(jìn)行了消費(fèi)，如：購(gòu)買(mǎi)商品，就餐，打電話(huà)。就要進(jìn)行消費(fèi)入帳操作。包括：消費(fèi)入帳，餐費(fèi)入帳，話(huà)費(fèi)入帳。 補(bǔ)交押金，如果客人的押金太少，則要補(bǔ)交押金?？腿私患{押金，接待 人員開(kāi)具押金憑證。 夜審管理。酒店的管理人員要對(duì)酒店的基本信息進(jìn)行了解則可以進(jìn)行夜審管理，包括：客房狀態(tài)報(bào)表的查看，客人入住信息的查看，歷史客人報(bào)表查看。 客人退房，客人退房時(shí)，接待人員根據(jù)客人的房卡，進(jìn)行退房登記。計(jì)算客人入住期間的房費(fèi)，餐費(fèi)，話(huà)費(fèi)，各種消費(fèi)和押金總額。對(duì)客人收取費(fèi)用或者退回押金?？腿诵畔⑥D(zhuǎn)存到歷史客人表中。客房狀態(tài)由“入住”轉(zhuǎn)為“空房”。 房卡 客人入住報(bào)表 房卡 押金憑證 房費(fèi)帳單,房卡 消費(fèi)帳單,押金憑證 客人換房 客房消費(fèi) 補(bǔ)交押金 客房預(yù)定 客人 預(yù)定憑證 總臺(tái)接待 客房編輯 客房狀態(tài)表 客人入住表 夜審管理 客房狀態(tài)報(bào)表 話(huà)費(fèi),餐費(fèi),其他消費(fèi)帳單 離店客人報(bào)表 （五） 數(shù)據(jù)流程分析 本系統(tǒng)的后臺(tái)數(shù)據(jù)庫(kù)將作為整個(gè)酒店的數(shù) 據(jù)流通中心，將各個(gè)部門(mén)的數(shù)據(jù)信息連通起來(lái)，具體流程如下圖所示： 三、系統(tǒng)設(shè)計(jì) （一） 系統(tǒng)模塊設(shè)計(jì) 根據(jù)上一章的分析，可以設(shè)計(jì)出系統(tǒng)的總體功能模塊圖，如圖五所示。 餐飲部 信息 客房狀態(tài)信息 客人就餐消費(fèi) 客人入住信息 前臺(tái)接待 客房部 財(cái)務(wù)部 酒店客房 MIS 客人押金消費(fèi) 匯總 圖 4 數(shù)據(jù)流程圖 酒店客房管理信息系統(tǒng) 房 客 管 客房管消費(fèi)管報(bào)表管系統(tǒng)維系統(tǒng)信 可以看到，本系統(tǒng)劃分為六個(gè)功能模塊，房客管理模塊用于對(duì)客人及其業(yè)務(wù)情況進(jìn)行管理，客房管理模塊主要用于客房狀態(tài)的查看和客房的編輯。消費(fèi)管理模塊主要用于對(duì)客人在店消費(fèi)進(jìn)行入帳管理。報(bào)表管理模塊提供給酒店管理者用來(lái)查看酒店的基本信息，系統(tǒng)維護(hù)模塊用來(lái)管理系統(tǒng)用戶(hù)。系統(tǒng)信息模塊用來(lái)查 看本系統(tǒng)的版權(quán)等信息。 （二） 系統(tǒng)流程設(shè)計(jì) 系統(tǒng)流程就是用戶(hù)在使用系統(tǒng)時(shí)的工作過(guò)程。本系統(tǒng)是多類(lèi)型用戶(hù)管理信息系統(tǒng)，每一類(lèi)用戶(hù)的工作權(quán)限有所區(qū)別。多用戶(hù)系統(tǒng)的工作流程都是從用戶(hù)登錄模塊開(kāi)始的，對(duì)用戶(hù)的身份進(jìn)行認(rèn)證。身份認(rèn)證可以分為以下兩個(gè)過(guò)程： 確認(rèn)用戶(hù)是否是有效的系統(tǒng)用戶(hù)。 確定用戶(hù)的類(lèi)型。 第一個(gè)過(guò)程決定用戶(hù)能否進(jìn)入系統(tǒng)。第二個(gè)過(guò)程根據(jù)用戶(hù)的類(lèi)型決定用戶(hù)的操作權(quán)限。 本系統(tǒng)的流程分析如圖六所示。 （三） 數(shù)據(jù)庫(kù)設(shè)計(jì) 現(xiàn)在我們已經(jīng)對(duì)酒店客房 管理信息系統(tǒng)的功能，模塊劃分和系統(tǒng)流程有了比較全面的認(rèn)識(shí)，本節(jié)將介紹系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì) 1數(shù)據(jù)庫(kù)需求分析 針對(duì)酒店客房管理信息系統(tǒng)的需求，通過(guò)對(duì)酒店客房管理工作過(guò)程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 客房基本信息，包括的數(shù)據(jù)項(xiàng)有：客房號(hào)碼，客房標(biāo)準(zhǔn)，客房位置，客房狀態(tài)，單價(jià)，容納人數(shù)，等。 預(yù)定基本信息，包括的數(shù)據(jù)項(xiàng)有：客房房號(hào)，客人姓名，身份證號(hào)碼，身份證地址，預(yù)定時(shí)間，操作員等。 入住客戶(hù)基本信息，包括客房房號(hào)，客人姓名，身份證號(hào)碼，身份證地址，從何處來(lái)，到何處去，住宿原因，入 住時(shí)間，操作員等。 結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：客房號(hào)碼，客戶(hù)姓名，身份證號(hào)碼，客房單價(jià)，折扣，入住時(shí)間，結(jié)算時(shí)間，備注等。 系統(tǒng)用戶(hù)信息，包括的數(shù)據(jù)項(xiàng)有 ：用戶(hù)名，用戶(hù)密碼，用戶(hù)權(quán)限。 管理自己的用戶(hù)信息 管理自己和普通用戶(hù)的用戶(hù)信息 房客管理 客房管理 消費(fèi)管理 夜審管理 讀取用戶(hù)類(lèi)型 是 退出系統(tǒng) 失敗 3 次 否 開(kāi)始 用戶(hù)登錄 失敗 重試 成功 普通用戶(hù) 管理員 圖 6 系統(tǒng)流程設(shè)計(jì)圖 有了上面的數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，我們就能進(jìn)行下面的數(shù)據(jù)庫(kù)設(shè)計(jì)。 2數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)包含以下 5 張表：系統(tǒng)用戶(hù)表，客房狀態(tài)表，客房預(yù)定表，客人入住表，歷史客人表。 表 1 系統(tǒng)用戶(hù)表 編號(hào) 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 1 用戶(hù)名 文本，長(zhǎng)度為 50 用戶(hù)的登錄名， 必填字段 2 密碼 文本，長(zhǎng)度 40 密碼， 必填字段 3 權(quán)限 文本，長(zhǎng)度 40 用戶(hù)的權(quán)限， 必填字段 表 2 客房狀態(tài)表 編號(hào) 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 1 房號(hào) 數(shù)字，整數(shù) 客房的房號(hào) 2 類(lèi)別 文本，長(zhǎng)度為 50 客房的類(lèi)別 3 樓層 文本，長(zhǎng)度 20 客房所在的樓層 4 狀態(tài) 文本，長(zhǎng)度 50 客房的狀態(tài) 5 單價(jià) 數(shù)字，整數(shù) 客房的單價(jià) 6 容納人數(shù) 數(shù)字，整數(shù) 客房 容納的人數(shù) 表 3 客房預(yù)定表 編號(hào) 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 1 房號(hào) 數(shù)字，整數(shù) 預(yù)定客房的房號(hào) 2 姓名 文本，長(zhǎng)度 50 預(yù)定客戶(hù)的姓名 3 類(lèi)別 文本，長(zhǎng)度 50 預(yù)定客房的類(lèi)別 4 標(biāo)準(zhǔn)價(jià) 數(shù)字，整數(shù) 預(yù)定客房的標(biāo)準(zhǔn)價(jià) 5 證件號(hào)碼 文本，長(zhǎng)度 50 預(yù)定客戶(hù)的證件號(hào)碼 6 押金 數(shù)字，整數(shù) 預(yù)定客戶(hù)交納的押金 7 聯(lián)系電話(huà) 文本，長(zhǎng)度 50 預(yù)定客戶(hù)的聯(lián)系電話(huà) 8 操作員 文本，長(zhǎng)度 20 預(yù)定操作的操作員 9 摘要 文本，長(zhǎng)度 100 預(yù)定操作的摘要 表 4 客人入住表 編號(hào) 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 1 房號(hào) 數(shù)字，整數(shù) 客人入住的房號(hào) 2 客人姓名 文本，長(zhǎng)度 50 入住客人的姓名 3 標(biāo)準(zhǔn)價(jià) 數(shù)字，整數(shù) 客人入住客房的價(jià)格 4 押金 數(shù)字，整數(shù) 客人交納的押金 5 類(lèi)別 文本，長(zhǎng)度 50 客人入住客房的類(lèi)別 6 證件名稱(chēng) 文本，長(zhǎng)度 50 客人的證件名稱(chēng) 7 證件號(hào)碼 文本，長(zhǎng)度 50 客人的證件號(hào)碼 8 證件地址 文本，長(zhǎng)度 50 客人的 證件地址 9 從何處來(lái) 文本，長(zhǎng)度 50 客人的來(lái)源 10 到何處去 文本，長(zhǎng)度 50 客人將要去的地方 11 住宿原因 備注 客人住宿的原因 12 操作員 文本，長(zhǎng)度 50 客房登記的操作員 13 入住日期 日期型 客人入住的日期 14 入住時(shí)間 時(shí)間型 客人入住的時(shí)間 15 店內(nèi)消費(fèi) 數(shù)字型，整數(shù) 客人在店內(nèi)消費(fèi)的金額 16 餐費(fèi) 數(shù)字型，整數(shù) 客人在店內(nèi)的餐費(fèi)金額 17 話(huà)費(fèi) 數(shù)字型，整數(shù) 客人在店內(nèi)的話(huà)費(fèi)金額 表 5 歷史客 人表 編號(hào) 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 1 客人姓名 文本，長(zhǎng)度 50 歷史客人的姓名 2 證件號(hào)碼 數(shù)字，整數(shù) 歷史客人的證件號(hào)碼 3 證件地址 文本，長(zhǎng)度 50 歷史客人的證件地址 4 最后入住日期 日期型 歷史客人最后的入住日期 5 最后離店日期 日期型 歷史客人最后的離店日期 6 入住次數(shù) 數(shù)字型 歷史客人的入住次數(shù) （四） 運(yùn)行環(huán)境選擇 1軟件支撐環(huán)境 本系統(tǒng)采用中文 Windows XP 平臺(tái)， Office 2000 中的 Access 為數(shù)據(jù)庫(kù)， Visual Basic 6.0為開(kāi)發(fā)工具，軟 件開(kāi)發(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)行。 2硬件支撐環(huán)境 CPU：賽揚(yáng) 1.2G 以上 內(nèi)存： SDR 64M 以上 顯卡： VGA 16M 顯存以上 硬盤(pán)： 50M 以上硬盤(pán)剩余空間 四、系統(tǒng)實(shí)施 （一） 創(chuàng)建工程 用戶(hù)需要?jiǎng)?chuàng)建工程存儲(chǔ)的目錄，例如“ f:酒店客房管理信息系統(tǒng)”。 運(yùn)行 VisualBasic6.0 主程序，并選擇新建“標(biāo)準(zhǔn) EXE”工程。新建工程后，在 VisualBasic窗口中有個(gè)缺省的窗 體 Form1,我們?cè)诖嘶A(chǔ)上設(shè)計(jì)系統(tǒng)的主界面。 選擇“工程”菜單中的“工程 1 屬性”命令，在“工程屬性”對(duì)話(huà)框中，將工程名設(shè)置為“酒店客房管理信息系統(tǒng)”。單擊“保存”，將工程存儲(chǔ)為 酒店客房管理信息系統(tǒng) .vbp。 （二） 添加模塊 根據(jù) VisualBasic 功能模塊的劃分原則，將創(chuàng)建以下幾個(gè)模塊： Const 用來(lái)管理工程中的常量 DbFunc 用來(lái)管理工程中與數(shù)據(jù)庫(kù)操作相關(guān)的聲明，變量和函數(shù) GeneralFunc 用來(lái)管理工程中一些通用的自定義函數(shù) Variable 用來(lái)管理工程中的全局變量 添加模塊的 具體操作請(qǐng)參照系統(tǒng)實(shí)體，這里不再詳述。 （三） 系統(tǒng)模塊的設(shè)計(jì) 登錄模塊的設(shè)計(jì)： 用戶(hù)要使用本系統(tǒng)，首先必須通過(guò)系統(tǒng)的身份認(rèn)證，這個(gè)過(guò)程叫做登錄。登錄過(guò)程需要完成以下任務(wù)： 根據(jù)用戶(hù)名和密碼來(lái)判斷是否可能進(jìn)入系統(tǒng)。 根據(jù)用戶(hù)類(lèi)型決定用戶(hù)擁有的權(quán)限。 成功登錄的用戶(hù)將進(jìn)入系統(tǒng)的主界面。 登錄窗體的名稱(chēng)為 FrmLogin,它的界面布局如圖七所示。 圖 7 登錄窗體的界面布局 下面介紹登錄窗體的部分代碼。 變量聲明 登錄窗體的變量 聲明如下： Public PasswordKey As String Public NameKey As String Public Try_times As Integer NameKey 保存用戶(hù)名， PasswordKey 保存密碼， Try_times 記錄嘗試登錄的次數(shù) Cmd_Ok_Click 過(guò)程 當(dāng)用戶(hù)單擊“確定”按鈕是時(shí)，觸發(fā) Cmd_Ok_Click 事件，進(jìn)行身份驗(yàn)證，對(duì)應(yīng)的代碼如下： Private Sub Cmd_OK_Click() 數(shù)據(jù)有效性檢查 If Trim(txtUser) = Then MsgBox 請(qǐng)輸入用戶(hù)名 txtUser.SetFocus Exit Sub End If If Trim(txtPwd) = Then MsgBox 請(qǐng)輸入密碼 txtPwd.SetFocus Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 判斷用戶(hù)是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox 用戶(hù)名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 判斷密碼是否正確 MyUser.GetInfo (NameKey) If MyUser.Pwd = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 登錄成功，將當(dāng)前用戶(hù)的信息保存在 CurUser 中 CurUser.UserName = MyUser.UserName CurUser.User_type = MyUser.User_type 關(guān)閉自己 Unload Me End Sub 其他模塊設(shè)計(jì)請(qǐng)參照系統(tǒng)實(shí)體，在這里不在詳細(xì)敘述。 五、系統(tǒng)運(yùn)行 （一） 系統(tǒng)登錄 單擊“酒店客房管理信息系統(tǒng)”圖標(biāo)。進(jìn)入系統(tǒng)展示畫(huà)面。 圖 8 系統(tǒng)展示窗體 經(jīng)過(guò) 5 秒鐘，自動(dòng)跳轉(zhuǎn)到系統(tǒng)登錄窗體。 圖 9 系統(tǒng)登錄窗體 選擇 操作員名稱(chēng)（ admin） ,輸入密碼（ 111）。單擊“確定”進(jìn)入系統(tǒng)的主界面。 圖 10 系統(tǒng)主界面 （二） 房客管理 1客房預(yù)定 單擊“房客管理”，單擊“預(yù)定房間”。彈出客房預(yù)定窗體。 在預(yù)定窗體中輸入客戶(hù)信息，單擊“預(yù)定”，完成預(yù)定房間操作。 圖 11 客房預(yù)定窗體 2預(yù)定入住 圖 12 預(yù)定入住窗體 單擊“預(yù)定入住”，彈出預(yù)定入住窗體。 在預(yù)定入住窗體中輸入相關(guān)信息，單擊“登記”完成預(yù)定入住操作。 3客房登記 圖 13 客房登記窗體 單擊“客房登記”，彈出客房登記窗體。 在客房登記窗體中輸入相關(guān)信息，單擊“登記”，完成客房登記操作。 4鐘點(diǎn)房登記 單擊“鐘點(diǎn)房登記”，彈出鐘點(diǎn)房登記窗體，輸入相關(guān)信息，單擊“登記”完成客房登記操作。 圖 14 鐘點(diǎn)房登記窗體 5客人換房 圖 15 客人換房窗體 6補(bǔ)交押金 圖 16 補(bǔ)交押金窗體 7退房登記 圖 17 退房登記窗體 8在店客人表 圖 18 在店客人表窗體 （三） 客房管理 1客房狀態(tài) 圖 19 客房狀態(tài)窗體 2客房編輯 圖 20 客房編輯窗體 （四） 消費(fèi)管理 1消費(fèi)入帳 圖 21 消費(fèi)入帳窗體 2餐費(fèi)入帳 圖 22 餐費(fèi)入帳 3話(huà)費(fèi)入帳 圖 23 話(huà)費(fèi)入帳 窗體 （五） 報(bào)表管理 圖 24 報(bào)表管理窗體 （六） 系統(tǒng)管理 1.添加用戶(hù) 圖 25 添加用戶(hù)窗體 2.修改密碼 圖 26 密碼設(shè)置窗體 3.初始化數(shù)據(jù)庫(kù) 圖 27 初始化數(shù)據(jù)庫(kù)窗體 4.用戶(hù)查看 圖 28 用戶(hù)查看窗體 （七） 系統(tǒng)信息 1.版權(quán)信息 圖 29 系統(tǒng)信息窗體 2.系統(tǒng)簡(jiǎn)介 圖 30 系統(tǒng)介紹窗體 Dim TIM As Integer 定義一個(gè)整型變量 Dim myval As String 定義一個(gè)字符串變量 Private Sub Form_Load() 自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 Data1.DatabaseName = App.Path & KFGL.mdb Data2.DatabaseName = App.Path & KFGL.mdb End Sub Private Sub Form_Activate() 當(dāng)記錄為零時(shí)，進(jìn)入系統(tǒng)具有所有權(quán)限 If Data1.Recordset.RecordCount = 0 Then MsgBox (請(qǐng)先設(shè)置操作員密碼和權(quán)限！ ) Load MDIForm1 MDIForm1.Show Unload Me Else text1.SetFocus End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus 按回車(chē)鍵， text2 獲得焦點(diǎn) End Sub Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Cmd1.SetFocus 按回車(chē)鍵 cmd1 獲得焦點(diǎn) If KeyCode = vbKeyUp Then text1.SetFocus If KeyCode = vbKeyDown Then Cmd1.SetFocus End Sub Private Sub cmd1_Click() 驗(yàn)證操作員及密碼 If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst Data2.Recordset.FindFirst 操作員 like + Chr(34) + text1.BoundText + Chr(34) + If Data2.Recordset.NoMatch Then MsgBox (操作員輸入錯(cuò)誤 !) Else Data1.RecordSource = select * from qxsz where 操作員 = & text1.BoundText & Data1.Refresh If text1.BoundText And Text2.Text = Data1.Recordset.Fields(密碼) Then drm = text1.Text If Data1.Recordset.Fields(角色名稱(chēng) ) = 管理員 Then gly = 0 Else gly = 1 End If Load MDIForm1 MDIForm1.Show Unload Me Else If TIM = 3 Then 密碼輸錯(cuò) 3 次，退出系統(tǒng) myval = MsgBox(密碼輸入錯(cuò)誤 ,請(qǐng)向系統(tǒng)管理員查詢(xún) !, 0, ) If myval = vbOK Then End End If If text1.BoundText = Then MsgBox (請(qǐng)輸入操作員 !) text1.SetFocus Else If text1.BoundText Data1.Recordset.Fields(密碼 ) Then MsgBox (密碼錯(cuò)誤 ,請(qǐng)重新輸入密碼 !) TIM = TIM + 1 Text2.SetFocus End If End If End If End If End If End If End Sub Private Sub cmd2_Click() End End Sub Dim db As Database 定義數(shù)據(jù)庫(kù) Dim rs As Recordset 定義字段 Dim connter As Integer 定義一個(gè)整型變量 Dim workarea(200), sql As String 定義字符串變量 Private Sub Form_Load() 自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 Data1.DatabaseName = App.Path & Kfgl.MDB End Sub Private Sub comstart_Click() Frame1.Enabled = True: Comcreat.Enabled = True End Sub Private Sub comcreat_Click() 清空選定表中的數(shù)據(jù) ProgressBar1.Visible = True ProgressBar1.Max = UBound(workarea) ProgressBar1.Value = ProgressBar1.Min For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value & Counter ProgressBar1.Value = Counter Set db = Workspaces(0).OpenDatabase(App.Path & Kfgl.MDB) If Check1.Value = 1 Then sql = delete * from djb db.Execute sql End If If Check2.Value = 1 Then sql = delete * from kf db.Execute sql End If If Check4.Value = 1 Then sql = delete * from yd db.Execute sql End If If Check5.Value = 1 Then sql = delete * from qxsz db.Execute sql End If Next Counter ProgressBar1.Visible = False ProgressBar1.Value = ProgressBar1.Min End Sub Private Sub comend_Click() main.Enabled = True Unload Me End Sub 六、結(jié)束語(yǔ) 這次設(shè)計(jì)，使我學(xué)