數(shù)據(jù)庫(kù)課程設(shè)計(jì)---賓館住宿管理系統(tǒng)

1、<p><b>　　賓館住宿管理系統(tǒng)</b></p><p>　　本系統(tǒng)針對(duì)賓館住宿的一般管理模式,采用基于計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)的賓館管理解決方案,按照賓館的現(xiàn)代化管理要求設(shè)計(jì),實(shí)現(xiàn)對(duì)賓館住宿的接待，客房，訂房,收支情況,電話等服務(wù)設(shè)施的全面全方位計(jì)算機(jī)管理。目標(biāo)在于提高賓館營(yíng)業(yè)體系的作業(yè)效率，提高服務(wù)的客戶滿意度,加強(qiáng)賓館的市場(chǎng)競(jìng)爭(zhēng)力，樹(shù)立良好的企業(yè)形象.通過(guò)計(jì)算機(jī)管理,一方面提供給客

2、戶快捷準(zhǔn)確可靠的服務(wù),另一方面提高賓館自身的管理水平,及時(shí)準(zhǔn)確獲取營(yíng)業(yè)信息,輔助對(duì)市場(chǎng)需求變化的決策.</p><p><b>　　第一章 系統(tǒng)概述</b></p><p>　　1.1系統(tǒng)開(kāi)發(fā)的背景和意義</p><p>　　隨著我國(guó)經(jīng)濟(jì)的迅速發(fā)展，人們的生活水平有了顯著的提高，假日經(jīng)濟(jì)和旅游經(jīng)濟(jì)已成為人們消費(fèi)的熱點(diǎn)。各地也把旅游業(yè)當(dāng)作本地經(jīng)濟(jì)

3、發(fā)展的重要經(jīng)濟(jì)支柱之一，從而促進(jìn)了賓館酒店業(yè)的快速發(fā)展。同時(shí)，隨著賓館酒店越來(lái)越多，人們的要求越來(lái)越高，賓館酒店業(yè)的競(jìng)爭(zhēng)也愈來(lái)愈激烈。</p><p>　　如何在激烈的競(jìng)爭(zhēng)中生從發(fā)展，是每一個(gè)賓館酒店必須面臨的問(wèn)題。對(duì)賓館的經(jīng)營(yíng)狀況起決定作用的是賓館的服務(wù)管理水平。如何利用先進(jìn)的管理手段、提高賓館的管理水平，以成為賓館酒店業(yè)發(fā)展的當(dāng)務(wù)之急。面對(duì)信息時(shí)代的機(jī)遇和挑戰(zhàn)，利用科技手段提高企業(yè)管理水平是企業(yè)管理無(wú)疑的一條

4、行之有效的途徑?，F(xiàn)在的賓館行業(yè)已經(jīng)發(fā)生拉巨大變化，已不僅是提供給人們一個(gè)吃住行的簡(jiǎn)單場(chǎng)所，所以，將計(jì)算機(jī)管理引入賓館的管理體系中,無(wú)疑對(duì)賓館的服務(wù)水平更上一層樓提供了一種有利的支持。</p><p>　　雖然計(jì)算機(jī)管理并不是賓館管理走向成功的關(guān)鍵元素，但它可以最大限度地發(fā)揮準(zhǔn)確、快捷、高效等作用，對(duì)賓館的服務(wù)管理提供強(qiáng)有力的支持。因此，采用全新的計(jì)算機(jī)網(wǎng)絡(luò)和賓館管理系統(tǒng)，已成為提高賓館的管理效率、改善服務(wù)的水準(zhǔn)的

5、重要手段之一。在某種意義上，賓館客房管理方面的信息話已成為現(xiàn)代化賓館的重要標(biāo)志。</p><p>　　1.2系統(tǒng)所要實(shí)現(xiàn)功能</p><p>　　該系統(tǒng)應(yīng)充分利用信息技術(shù)提高賓館客房的管理水平、服務(wù)水平。酒店客房管理系統(tǒng)要實(shí)現(xiàn)客房住宿的登記、宿費(fèi)提醒、追加押金、調(diào)房登記、退房結(jié)帳、查詢統(tǒng)計(jì)等功能。其中宿費(fèi)提醒可以在住宿費(fèi)超過(guò)押金時(shí)預(yù)警，提示前臺(tái)要客人補(bǔ)交押金，該功能可明顯提高對(duì)住宿人員宿費(fèi)

6、的有效管理。將動(dòng)態(tài)時(shí)的住宿登記、客房調(diào)整追加押金等有機(jī)的聯(lián)系在一起，對(duì)酒店進(jìn)行全方位的管理。</p><p><b>　　1.3系統(tǒng)開(kāi)發(fā)工具</b></p><p>　　開(kāi)發(fā)數(shù)據(jù)庫(kù)管理信息系統(tǒng)需要選擇兩種工具，即前臺(tái)開(kāi)發(fā)語(yǔ)言和后臺(tái)數(shù)據(jù)庫(kù)。本系統(tǒng)運(yùn)用了Visual Basic作為開(kāi)發(fā)工具，SQL Server2000作為后臺(tái)數(shù)據(jù)庫(kù)。</p><p&g

7、t;<b>　　1.4系統(tǒng)模塊分析</b></p><p><b>　?。?）系統(tǒng)管理模塊</b></p><p>　　該模塊實(shí)現(xiàn)操作員的管理,如添加刪除和修改操作,并設(shè)置操作員的操作權(quán)限對(duì)指定的用戶進(jìn)行密碼修改.</p><p>　?。?）客房管理模塊狀</p><p>　　該模塊實(shí)現(xiàn)對(duì)客房的基本

8、信息的設(shè)置,如客房的地點(diǎn),客房等級(jí),客房物品等信息.同時(shí)提供對(duì)客房信息的查詢。</p><p>　?。?）訂房管理模塊狀</p><p>　　該模塊實(shí)現(xiàn)用戶訂房信息管理,提供對(duì)訂房客戶資料的登記,查詢和退訂操作。其中訂房信息包括客房的類型和訂房的時(shí)間等。</p><p>　?。?）收銀管理模塊狀</p><p>　　該模塊實(shí)現(xiàn)用戶的確訂房信息

9、管理,提供對(duì)訂房客戶資料的登記,查詢，并提供當(dāng)日?qǐng)?bào)表的打印。</p><p>　　第二章 系統(tǒng)需求分析</p><p><b>　　2.1編寫(xiě)目的</b></p><p>　　本文檔對(duì)《酒店管理系統(tǒng)》的開(kāi)發(fā)需求進(jìn)行描述，目的是明確酒店管理系統(tǒng)對(duì)用戶的功能要求.該文檔對(duì)《酒店管理系統(tǒng)》做全面細(xì)致的用戶需求分析，明確所要開(kāi)發(fā)的系統(tǒng)應(yīng)有的功能、性能與

10、界面，使有關(guān)人士能夠清楚的了解用戶的需求，并在此基礎(chǔ)上進(jìn)一步提出概要設(shè)計(jì)說(shuō)明書(shū)和完成后續(xù)設(shè)計(jì)與開(kāi)發(fā)工作。</p><p><b>　　2.2開(kāi)發(fā)背景</b></p><p>　　隨著人民生活水平的提高，旅游出行的人越來(lái)越多，酒店的客流量不斷增加，傳統(tǒng)的酒店管理方法已經(jīng)不適應(yīng)現(xiàn)代社會(huì)的需求。賓館在正常運(yùn)營(yíng)中需要對(duì)客房資源、顧客信息、退房信息等進(jìn)行管理，利用客房管理系統(tǒng)及

11、時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理的效率。 </p><p>　　本項(xiàng)目作為《軟件工程課程設(shè)計(jì)》課程的訓(xùn)練項(xiàng)目提出，目的是為了提高同學(xué)們軟件的開(kāi)發(fā)和數(shù)據(jù)庫(kù)的創(chuàng)建鏈接,以及軟件文檔的相關(guān)標(biāo)準(zhǔn)和編寫(xiě)原則,提高大家的實(shí)踐能力。</p><p><b>　　2.3實(shí)現(xiàn)目標(biāo)</b></p><p>　　建立一套功能完善的管理信息系統(tǒng)，既能滿足業(yè)務(wù)

12、人員日常處理的需要，增強(qiáng)企業(yè)經(jīng)營(yíng)全過(guò)程的數(shù)字化管理水平；又能滿足管理人員決策分析的需要，提高公司管理層對(duì)公司經(jīng)營(yíng)反饋信息的響應(yīng)速度。從而大幅度提高工作效率，提高實(shí)施管理的準(zhǔn)確性、科學(xué)性，使擔(dān)負(fù)管理的工作人員從繁雜的手工勞作中解脫出來(lái)。</p><p>　　面對(duì)酒店行業(yè)的高速發(fā)展和酒店行業(yè)信息化發(fā)展的過(guò)程中出現(xiàn)的各種情況，酒店客房管理系統(tǒng)在實(shí)施后，應(yīng)能達(dá)到以下目標(biāo)：</p><p>　　(1

13、)實(shí)現(xiàn)多點(diǎn)操作的信息共享，相互之間的信息傳遞準(zhǔn)確、快捷和順暢。</p><p>　　(2)服務(wù)管理信息化，可隨時(shí)掌握客人住宿、客房狀態(tài)、客人掛帳等情況。</p><p>　　(3)系統(tǒng)界面友好美觀，操作簡(jiǎn)單易行，查詢靈活方便，數(shù)據(jù)存儲(chǔ)安全。</p><p>　　(4)客戶檔案、掛帳信息、預(yù)警系統(tǒng)的結(jié)合，可對(duì)往來(lái)可戶進(jìn)行住宿監(jiān)控，防止壞帳發(fā)生。</p>

14、<p>　　(5)通過(guò)酒店客房管理系統(tǒng)的實(shí)施，可逐步提高賓館的管理水平，提升員工的素質(zhì)。</p><p>　　(6)系統(tǒng)維護(hù)方便可靠、有較高的安全性，滿足實(shí)用性、先進(jìn)性的要求。</p><p><b>　　2.4數(shù)據(jù)描述</b></p><p><b>　　2.4.1信息需求</b></p><

15、;p>　　（1）顧客信息：姓名、有效證件、證件號(hào)碼、聯(lián)系電話、工作單位、詳細(xì)地址。</p><p>　?。?）客房信息：房間號(hào)、房間類型 、房間價(jià)格、所在樓層、</p><p>　?。?）住宿信息：顧客姓名、房間編號(hào)、有效證件、房間標(biāo)準(zhǔn)、房間位置、折扣、入住時(shí)間、預(yù)交押金。</p><p>　?。?）退房信息：顧客姓名、房間編號(hào)、客房標(biāo)準(zhǔn)、退房時(shí)間、折扣、預(yù)交

16、押金、所付金額、找還金額。</p><p>　?。?）調(diào)房信息：顧客姓名、客房標(biāo)準(zhǔn)、原始房、目標(biāo)房、住宿天數(shù)、入住時(shí)間、預(yù)交押金、聯(lián)系電話。</p><p>　　2.4.2 處理需求</p><p>　　賓館在運(yùn)營(yíng)中需要對(duì)賓館資源、顧客信息、結(jié)算信息進(jìn)行管理，如果有顧客來(lái)往，經(jīng)過(guò)對(duì)客房狀態(tài)的查詢，查看是否有房間能及時(shí)為客戶辦理登記手續(xù)，如果有顧客來(lái)退房，能及時(shí)為顧客

17、登記并辦理退房手續(xù)，并且修改客房信息，因此，利用開(kāi)發(fā)完成后的賓館管理系統(tǒng)能夠十分便利的對(duì)住房系統(tǒng)進(jìn)行管理有利于提高效率。</p><p>　　酒店住房管理系統(tǒng)開(kāi)發(fā)的任務(wù)是實(shí)現(xiàn)各種住房信息的系統(tǒng)規(guī)范化、自動(dòng)化主要完成的功能有以下幾個(gè)方面。</p><p><b>　?。?）住宿管理</b></p><p>　　這個(gè)模塊包括四個(gè)部分，即住宿登記、追

18、加押金、調(diào)房登記、退宿結(jié)帳。該模塊要實(shí)現(xiàn)客人的住宿登記，收取客人的預(yù)交宿費(fèi)，自動(dòng)計(jì)算折前宿費(fèi)、實(shí)際宿費(fèi)等；能夠收取客人的續(xù)交押金，自動(dòng)計(jì)算宿費(fèi)提醒日期，并能夠?qū)崿F(xiàn)客戶調(diào)房登記、退宿結(jié)帳、自動(dòng)計(jì)算住宿費(fèi)用及退還費(fèi)等。</p><p><b>　?。?）客房管理</b></p><p>　　這個(gè)模塊包括三個(gè)部分，即客房設(shè)置、客房查詢、房態(tài)查看。賓館客房在不同的時(shí)間有不同的

19、狀態(tài)，如空靜房、空臟房、清理房、占用房、毛病房、修理房等。該部分要完成客房基本信息的查詢、能夠按房間號(hào)檢索所需的客房基本信息，以及顯示當(dāng)前客房的入住數(shù)、空閑數(shù)、維修數(shù)、客房的使用率等。</p><p><b>　?。?）查詢管理</b></p><p>　　這個(gè)模塊包括三個(gè)部分，即住宿查詢、退宿查詢、宿費(fèi)提醒。該部分要實(shí)現(xiàn)對(duì)客房的查詢，查詢客房的住宿情況、退宿情況以及

20、宿費(fèi)提醒等。尤其是宿費(fèi)提醒，當(dāng)客人的上帳金額超過(guò)押金時(shí)系統(tǒng)自動(dòng)提示要求客人補(bǔ)交押金，以防止賓館財(cái)產(chǎn)損失。</p><p><b>　?。?）日結(jié)設(shè)置</b></p><p>　　該模塊包括兩個(gè)部分：客房銷售報(bào)表、客房銷售統(tǒng)計(jì)。該模塊中要實(shí)現(xiàn)按任意時(shí)間匯總客人結(jié)帳后所需費(fèi)用的總額的功能及按任意年匯總應(yīng)收宿費(fèi)、電話費(fèi)等的功能。</p><p>&l

21、t;b>　?。?）結(jié)帳管理</b></p><p>　　這個(gè)模塊包括兩個(gè)模塊，掛帳查詢模塊、客戶結(jié)款模塊。主要實(shí)現(xiàn)選擇掛帳單位或個(gè)人，檢索符合條件的掛帳信息、還款信息及統(tǒng)計(jì)欠款余額等。</p><p><b>　　（6）設(shè)置管理</b></p><p>　　這個(gè)模塊包括三個(gè)部分，主要用來(lái)完成操作員及密碼設(shè)置，操作員密碼的修改以

22、及實(shí)現(xiàn)清空選定表的數(shù)據(jù)的功能。</p><p><b>　　2.5數(shù)據(jù)流圖</b></p><p>　　數(shù)據(jù)流圖描繪信息流和數(shù)據(jù)從輸入移動(dòng)到輸出過(guò)程中在系統(tǒng)中流動(dòng)和處理的情況。</p><p>　　2.5.1總體數(shù)據(jù)流圖</p><p>　　退宿信息 D1退房信息</p><p>　　住宿信息

23、 </p><p>　　客房號(hào)碼 住宿信息 D2住宿信息</p><p><b>　　客房信息 </b></p><p>　　客房信息 D3 客房信息</p><p>　　圖2.1 總數(shù)據(jù)流圖</p>

24、<p>　　2.5.2 分?jǐn)?shù)據(jù)流圖</p><p><b>　?、僮∷迶?shù)據(jù)流圖</b></p><p><b>　　客房號(hào)碼</b></p><p><b>　　客房信息</b></p><p><b>　　查詢信息</b></p>

25、;<p>　　預(yù)定信息 客房信息</p><p>　　D3 客房信息 D4 退宿信息 </p><p>　　圖2.2 住宿數(shù)據(jù)流圖</p><p><b>　?、谕朔繑?shù)據(jù)流圖 </b></p><p><b>　　退宿信息</b></p>

26、<p><b>　　住宿信息</b></p><p><b>　　住 宿</b></p><p>　　信 息 住宿信息 退房信息</p><p>　　D1 住宿信息 D2 退宿信息 </p><p>　　圖2.3 退房數(shù)據(jù)流圖<

27、;/p><p><b>　?、劭头繑?shù)據(jù)流圖</b></p><p><b>　　住宿信息</b></p><p><b>　　客房信息</b></p><p><b>　　住 宿</b></p><p>　　信 息 客房號(hào)碼

28、 住宿對(duì)象</p><p>　　D5 客房信息 D6 房客信息 </p><p>　　圖2.4 客房數(shù)據(jù)流圖</p><p><b>　　2.6數(shù)據(jù)字典</b></p><p>　　數(shù)據(jù)字典是關(guān)于數(shù)據(jù)信息的集合，即對(duì)數(shù)據(jù)流圖中包含的所有元素的定義的集合。</p>&l

29、t;p>　　2.7數(shù)據(jù)庫(kù)概念設(shè)計(jì) </p><p>　　概念性信息模型是一種面向 問(wèn)題的數(shù)據(jù)模型，是按照用戶的觀點(diǎn)來(lái)對(duì)數(shù)據(jù)和信息建模。它描述了從用戶角度看到的數(shù)據(jù)，它反映了用戶的現(xiàn)實(shí)環(huán)境。最常用的表示概念性數(shù)據(jù)模型方法，是實(shí)體——聯(lián)系方法（Entity-Relationship Approach）。這種方法用E——R圖描述現(xiàn)實(shí)世界中的實(shí)體，而不涉及這些實(shí)體在系統(tǒng)中的實(shí)現(xiàn)方法。用這種方法表示的概念性數(shù)據(jù)模型

30、又稱為ER模型。ER模型包含“實(shí)體”、“聯(lián)系”、“屬性”等三個(gè)基本成份。</p><p>　　2.7.1局部E-R圖</p><p>　　1顧客屬性如圖2.5</p><p>　　圖2.5 顧客實(shí)體屬性圖</p><p>　　2客房屬性如圖2.6</p><p>　　圖2.6 客房實(shí)體屬性圖</p>&l

31、t;p>　　3服務(wù)員屬性如圖2.7</p><p>　　圖2.7 服務(wù)員實(shí)體屬性圖</p><p>　　4 經(jīng)理屬性如圖2.8</p><p>　　圖2.8 經(jīng)理實(shí)體屬性圖</p><p>　　2.7.2 總E-R 圖</p><p>　　1 1</p><p>

32、;<b>　　1</b></p><p><b>　　N </b></p><p><b>　　N</b></p><p><b>　　N</b></p><p><b>　　1</b></p><p>&l

33、t;b>　　1</b></p><p>　　圖2.9 總E-R實(shí)體圖</p><p>　　第三章 系統(tǒng)總體設(shè)計(jì)</p><p>　　3.1系統(tǒng)功能模塊設(shè)計(jì)</p><p>　　3.1.1功能模塊圖</p><p>　　圖3.1 功能模塊圖</p><p>　　3.2系統(tǒng)主要功能

34、描述</p><p>　?。?）住宿管理：住宿登記、追加押金、調(diào)房登記、推房結(jié)帳。</p><p>　?。?）客房管理：客房設(shè)置、客房查詢、房態(tài)查看。</p><p>　?。?）查詢統(tǒng)計(jì)：住宿查詢、退宿查詢、宿費(fèi)提醒。</p><p>　　（4）系統(tǒng)設(shè)置：初始化、密碼設(shè)置、權(quán)限設(shè)置。</p><p>　　（5）日結(jié)設(shè)置

35、：客房銷售報(bào)表、客房銷售統(tǒng)計(jì)。</p><p>　?。?）掛帳管理：客戶結(jié)款、掛帳查詢。</p><p><b>　　3.3系統(tǒng)流程分析</b></p><p><b>　　查詢</b></p><p><b>　　選房</b></p><p>　　確定

36、手牌 退 牌</p><p><b>　　建立賬戶</b></p><p>　　圖3.2 系統(tǒng)流程圖</p><p>　　第四章 系統(tǒng)詳細(xì)設(shè)計(jì)</p><p><b>　　4.1程序流程設(shè)計(jì)</b>&l

37、t;/p><p>　　所謂系統(tǒng)流程分析，就是用戶使用系統(tǒng)時(shí)的工作過(guò)程。不同的用戶有著不同的工作流程和使用權(quán)限。但是所有的用戶都是從用戶登錄模塊開(kāi)始的。登錄主要是判斷是否是合法的用戶，在數(shù)據(jù)庫(kù)設(shè)計(jì)中用戶的登錄名是固定的，如果要添加用戶則在用戶主界面進(jìn)行添加用戶信息。本系統(tǒng)的系統(tǒng)流程分析如下圖所示：</p><p><b>　　否</b></p><p&g

38、t;<b>　　重試 </b></p><p><b>　　否</b></p><p>　　失敗 是</p><p>　　成 功 用戶管理模塊 賓館管理模塊</

39、p><p>　　A dmin用戶 </p><p><b>　　領(lǐng)班用戶</b></p><p><b>　　普通用戶 </b></p><p><b>　　圖4.1程序流程圖</b></p><p>　　4.2系統(tǒng)結(jié)構(gòu)的實(shí)現(xiàn)</p>&l

40、t;p>　　該系統(tǒng)采用了SQL Server2000數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)名稱為kfgl.數(shù)據(jù)庫(kù)包含以下幾個(gè)表：客房基本信息表kf、登記表djb、密碼表ma、權(quán)限設(shè)置表qxsz、退房登記表tfdj、掛帳明細(xì)表gzmx。</p><p><b>　　表4-1 密碼表</b></p><p>　　表4-2 客房基礎(chǔ)信息表</p><p>　　表4

41、-3 掛賬明細(xì)表</p><p><b>　　表4-4 登記表</b></p><p><b>　　表4-5 退房登記</b></p><p>　　表4-6 權(quán)限設(shè)置表</p><p>　　第五章 系統(tǒng)界面設(shè)計(jì)及代碼實(shí)現(xiàn)</p><p>　　5.1系統(tǒng)登陸窗口界面<

42、/p><p>　　程序啟動(dòng)后，首先進(jìn)入系統(tǒng)登陸界面驗(yàn)證操作密碼。在系統(tǒng)登陸模塊中主要實(shí)現(xiàn)如下功能：</p><p>　?。?）可選擇操作員，支持鼠標(biāo)和鍵盤(pán)操作。</p><p>　?。?）操作員和密碼驗(yàn)證成功后，進(jìn)入主界面。</p><p>　?。?）操作員錯(cuò)誤或密碼錯(cuò)誤提醒并返回錯(cuò)誤點(diǎn)。</p><p>　?。?）輸入三

43、次錯(cuò)誤密碼，自動(dòng)退出系統(tǒng)。</p><p>　　圖5.1 用戶登陸界面</p><p><b>　　[登陸代碼實(shí)現(xiàn)]</b></p><p>　　Option Explicit</p><p>　　Dim cnt As Integer '記錄確定次數(shù)</p>

44、<p>　　Private Sub Command1_Click()</p><p>　　Dim sql As String</p><p>　　Dim rs_login As New ADODB.Recordset</p><p>　　If Trim(text1.Text) = "" Then '判斷輸入

45、的用戶名是否為空</p><p>　　MsgBox "沒(méi)有這個(gè)用戶", vbOKOnly + vbExclamation, ""</p><p>　　text1.SetFocus</p><p><b>　　Else</b></p><p>　　sql = "select

46、 * from 系統(tǒng)管理 where 用戶名='" & text1.Text & "'"</p><p>　　rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　If rs_login.EOF = True Then</p><

47、p>　　MsgBox "沒(méi)有這個(gè)用戶", vbOKOnly + vbExclamation, ""</p><p>　　text1.SetFocus</p><p>　　Else '檢驗(yàn)密碼是否正確</p><p>　　If Trim(rs_log

48、in.Fields(1)) = Trim(text2.Text) Then</p><p>　　userID = text1.Text</p><p>　　userpow = rs_login.Fields(2)</p><p>　　rs_login.Close</p><p><b>　　Unload Me</b>&l

49、t;/p><p>　　MDIForm1.Show</p><p><b>　　Else</b></p><p>　　MsgBox "密碼不正確", vbOKOnly + vbExclamation, ""</p><p>　　text2.SetFocus</p><

50、p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　cnt = cnt + 1</p><p>　　If cnt = 3 Then</p><p&

51、gt;<b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　Exit Sub</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Comma

52、nd2_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Dim connectionstring As String</p>

53、<p>　　connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _</p><p>　　"data source=jiudian.mdb"</p><p>　　conn.Open connectionstring</p><p><b&g

54、t;　　cnt = 0</b></p><p><b>　　End Sub</b></p><p>　　5.2系統(tǒng)主程序窗口界面</p><p>　　程序啟動(dòng)后，在系統(tǒng)登陸界面驗(yàn)證完操作員及操作員密碼后，將進(jìn)入主程序界面。主程序界面要實(shí)現(xiàn)：</p><p>　　（1）選擇菜單或工具欄，調(diào)用相應(yīng)程序，進(jìn)行相應(yīng)操

55、作。</p><p>　　（2）根據(jù)操作員不同，確定操作員相應(yīng)的權(quán)限。</p><p>　　圖5.2 主程序窗口</p><p><b>　　[登陸代碼實(shí)現(xiàn)]</b></p><p>　　Private Sub add_user_Click()</p><p>　　frmadduser.Show&

56、lt;/p><p><b>　　End Sub</b></p><p>　　Private Sub double_check_Click()</p><p>　　frmfind_double.Show</p><p><b>　　End Sub</b></p><p>　　Pri

57、vate Sub check_Click()</p><p>　　frmfind.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub double_client_Click()</p><p>　　frmdouble_client.Show</p>&l

58、t;p><b>　　End Sub</b></p><p>　　Private Sub exit_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub kht

59、s_Click()</p><p>　　frmkhts.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub MDIForm_Load()</p><p>　　frmdata = False</p><p>　　find = False</

60、p><p><b>　　End Sub</b></p><p>　　Private Sub modify_pw_Click()</p><p>　　frmchangepwd.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub

61、only_check_Click()</p><p>　　frmfind.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub only_client_Click()</p><p>　　frmonly_client.Show</p><p>&

62、lt;b>　　End Sub</b></p><p>　　Privte Sub zbgl_Click()</p><p>　　frmzhiban.Show</p><p><b>　　End Sub</b></p><p><b>　　5.3住宿管理設(shè)計(jì)</b></p>

63、<p>　　程序啟動(dòng)后，選擇“客人入住”菜單下的“散客入住”和“團(tuán)客入住”項(xiàng)，將進(jìn)入住宿登記模塊。在住宿登記模塊主要實(shí)現(xiàn)如下功能：</p><p>　?。?）自動(dòng)生成住宿登記憑證號(hào)碼。</p><p>　?。?）提供空房間供用戶選擇。</p><p>　　（3）實(shí)現(xiàn)客人住宿登記，收取客人預(yù)交宿費(fèi)。</p><p>　?。?）自動(dòng)

64、計(jì)算折前宿費(fèi)、實(shí)際宿費(fèi)、宿費(fèi)提醒時(shí)間、退宿時(shí)間。</p><p>　　5.3.1 散客入住</p><p>　　圖.5.3 散客入住界面</p><p><b>　　[登陸代碼實(shí)現(xiàn)]</b></p><p>　　Option Explicit</p><p>　　Dim rs_client As

65、New ADODB.Recordset</p><p>　　Private Sub Command1_Click()</p><p>　　If Not IsNull(DataGrid1.Bookmark) Then</p><p>　　If Trim(DataGrid1.Columns("房號(hào)").CellText(DataGrid1.Bookm

66、ark)) = "" Then</p><p>　　MsgBox "房號(hào)不能為空！", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p&g

67、t;<p>　　If Trim(DataGrid1.Columns("房?jī)r(jià)").CellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox "房?jī)r(jià)不能為空！", vbOKOnly + vbExclamation, ""</p><p><

68、b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(DataGrid1.Columns("姓名").CellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox &qu

69、ot;姓名不能為空！", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(DataGrid1.Columns("性別").C

70、ellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox "性別不能為空！", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　E

71、nd If</b></p><p>　　If Not IsDate(Trim(DataGrid1.Columns("抵達(dá)日").CellText(DataGrid1.Bookmark))) Then</p><p>　　MsgBox "請(qǐng)按照格式hh-mm輸入抵達(dá)日", vbOKOnly + vbExclamation, "&q

72、uot;</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not IsDate(Trim(DataGrid1.Columns("離店日").CellText(DataGrid1.Bookmark))) Then</p

73、><p>　　MsgBox "請(qǐng)按照格式hh-mm輸入離店日", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　rs_clien

74、t.Update</p><p>　　MsgBox "添加信息成功！", vbOKOnly + vbExclamation, ""</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowUpdate = False</p><p&g

75、t;<b>　　Else</b></p><p>　　MsgBox "沒(méi)有添加信息！", vbOKOnly + vbExclamation, ""</p><p><b>　　End If</b></p><p>　　Command1.Caption = "新增記錄&quo

76、t;</p><p>　　Command2.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p><b>　　End If</b></p><p><b>　

77、　adderror:</b></p><p>　　If Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p

78、><p>　　Private Sub Command2_Click()</p><p>　　Dim answer As String</p><p>　　On Error GoTo cmdmodify</p><p>　　If Command2.Caption = "修改記錄" Then</p><p>

79、;　　answer = MsgBox("確定要修改嗎？", vbYesNo, "")</p><p>　　If answer = vbYes Then</p><p>　　Command2.Caption = "確定"</p><p>　　Command1.Enabled = False</p>

80、<p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = True</p><p>　　DataGrid1.AllowUpdate = True</p><p><b>　　Else</b></p><p><b>　　Exit Sub

81、</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　If Not IsNull(DataGrid1.Bookmark) Then</p><p>　　rs_client.Update</p><

82、p><b>　　End If</b></p><p>　　Command2.Caption = "修改記錄"</p><p>　　Command1.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enable

83、d = False</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　MsgBox "修改成功！", vbOKOnly + vbExclamation, ""</p><p><b>　　End If</b></p><p>　　c

84、mdmodify:</p><p>　　If Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p

85、>　　Private Sub Command3_Click()</p><p>　　Dim answer As String</p><p>　　On Error GoTo delerror</p><p>　　answer = MsgBox("確定要?jiǎng)h除嗎？", vbYesNo, "")</p><

86、p>　　If answer = vbYes Then</p><p>　　DataGrid1.AllowDelete = True</p><p>　　rs_client.Delete</p><p>　　rs_client.Update</p><p>　　DataGrid1.Refresh</p><p>　

87、　MsgBox "成功刪除！", vbOKOnly + vbExclamation, ""</p><p>　　DataGrid1.AllowDelete = False</p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p&

88、gt;<p><b>　　End If</b></p><p><b>　　delerror:</b></p><p>　　If Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　

89、　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　If Command4.Caption = "確定" Then</p><p>　　rs_client.Cancel

90、</p><p>　　DataGrid1.ReBind</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Command1.Caption = "新增記錄"</p><p&g

91、t;　　Command2.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p>　　ElseIf Command2.Caption = "確定" Then</p><p>　　rs_client

92、.Cancel</p><p>　　DataGrid1.ReBind</p><p>　　DataGrid1.Refresh</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Command2.Caption = "修改記錄"</p><p>　　C

93、ommand1.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p><b>　　End If</b></p><p>　　Frame2.Enabled = True</p>&

94、lt;p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Su

95、b Form_Load()</p><p>　　Dim sql As String</p><p>　　On Error GoTo loaderror</p><p>　　sql = "select * from 散客資料"</p><p>　　rs_client.CursorLocation = adUseClient&

96、lt;/p><p>　　rs_client.Open sql, conn, adOpenKeyset, adLockPessimistic '打開(kāi)數(shù)據(jù)庫(kù)</p><p>　　'設(shè)定datagrid控件屬性</p><p>　　DataGrid1.AllowAddNew = False

97、 '不可增加</p><p>　　DataGrid1.AllowDelete = False '不可刪除</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Set DataGrid1.DataSource = rs_client</

98、p><p>　　Command4.Enabled = False</p><p>　　Set DataGrid1.DataSource = Nothing</p><p>　　rs_client.Close</p><p><b>　　End Sub</b></p><p>　　5.3.2 團(tuán)客入住&

99、lt;/p><p>　　圖5.4 團(tuán)客入住界面</p><p><b>　　[登陸代碼實(shí)現(xiàn)]</b></p><p>　　Option Explicit</p><p>　　Dim rs_dclient As New ADODB.Recordset</p><p>　　Private Sub Comm

100、and1_Click()</p><p>　　On Error GoTo adderror</p><p>　　If Command1.Caption = "新增記錄" Then '當(dāng)此按鈕的狀態(tài)為為“增加記錄”時(shí)</p><p>　　Command1.Caption = "確定"

101、 '按鈕名稱改為“確定”</p><p>　　Command2.Enabled = False '刪除與修改按鈕不可用</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = True &#

102、39;取消按鈕可用</p><p>　　DataGrid1.AllowAddNew = True</p><p>　　DataGrid1.AllowUpdate = True '設(shè)定datagrid可以增加記錄</p><p><b>　　Else</b></p><p>　　If N

103、ot IsNull(DataGrid1.Bookmark) Then</p><p>　　If Trim(DataGrid1.Columns("團(tuán)隊(duì)名稱").CellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox "團(tuán)隊(duì)名稱不能為空！", vbOKOnly + vbExcl

104、amation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(DataGrid1.Columns("負(fù)責(zé)人姓名").CellText(DataGrid1.Bookmark)) = &

105、quot;" Then</p><p>　　MsgBox "負(fù)責(zé)人姓名不能為空！", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p>&l

106、t;p>　　If Trim(DataGrid1.Columns("證件號(hào)碼").CellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox "證件號(hào)碼不能為空！", vbOKOnly + vbExclamation, ""</p><p><b&

107、gt;　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(DataGrid1.Columns("房間號(hào)碼").CellText(DataGrid1.Bookmark)) = "" Then</p><p>　　MsgBox &qu

108、ot;房間號(hào)碼！", vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　rs_dclient.Update</p><p>　　MsgBo

109、x "添加信息成功！", vbOKOnly + vbExclamation, ""</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowUpdate = False</p><p><b>　　Else</b></p>

110、;<p>　　MsgBox "沒(méi)有添加信息！", vbOKOnly + vbExclamation, ""</p><p><b>　　End If</b></p><p>　　Command1.Caption = "新增記錄"</p><p>　　Command2.En

111、abled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p><b>　　End If</b></p><p><b>　　adderror:</b></p><

112、p>　　If Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command

113、2_Click()</p><p>　　Dim answer As String</p><p>　　On Error GoTo cmdmodify</p><p>　　If Command2.Caption = "修改記錄" Then</p><p>　　answer = MsgBox("確定要修改嗎？&quo

114、t;, vbYesNo, "")</p><p>　　If answer = vbYes Then</p><p>　　Command2.Caption = "確定"</p><p>　　Command1.Enabled = False</p><p>　　Command3.Enabled = Fals

115、e</p><p>　　Command4.Enabled = True</p><p>　　DataGrid1.AllowUpdate = True</p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p><p><b

116、>　　End If</b></p><p><b>　　Else</b></p><p>　　If Not IsNull(DataGrid1.Bookmark) Then</p><p>　　rs_dclient.Update</p><p><b>　　End If</b><

117、;/p><p>　　Command2.Caption = "修改記錄"</p><p>　　Command1.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p>　　Dat

118、aGrid1.AllowUpdate = False</p><p>　　MsgBox "修改成功！", vbOKOnly + vbExclamation, ""</p><p><b>　　End If</b></p><p>　　cmdmodify:</p><p>　　If

119、Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()&

120、lt;/p><p>　　Dim answer As String</p><p>　　On Error GoTo delerror</p><p>　　answer = MsgBox("確定要?jiǎng)h除嗎？", vbYesNo, "")</p><p>　　If answer = vbYes Then</p

121、><p>　　DataGrid1.AllowDelete = True</p><p>　　rs_dclient.Delete</p><p>　　rs_dclient.Update</p><p>　　DataGrid1.Refresh</p><p>　　MsgBox "成功刪除！", vbOKOn

122、ly + vbExclamation, ""</p><p>　　DataGrid1.AllowDelete = False</p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p><p><b>　　End If&l

123、t;/b></p><p><b>　　delerror:</b></p><p>　　If Err.Number <> 0 Then</p><p>　　MsgBox Err.Description</p><p><b>　　End If</b></p><

124、p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　If Command4.Caption = "確定" Then</p><p>　　rs_dclient.Cancel</p><p>　　DataGrid1

125、.ReBind</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Command1.Caption = "新增記錄"</p><p>　　Command2.Enabled = True</

126、p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p>　　ElseIf Command2.Caption = "確定" Then</p><p>　　rs_dclient.Cancel</p><p>　　D

127、ataGrid1.ReBind</p><p>　　DataGrid1.Refresh</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Command2.Caption = "修改記錄"</p><p>　　Command1.Enabled = True</p>

128、;<p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = False</p><p><b>　　End If</b></p><p>　　Frame2.Enabled = True</p><p><b>　　End Sub</

129、b></p><p>　　Private Sub Command5_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p&

130、gt;　　Dim sql As String</p><p>　　On Error GoTo loaderror</p><p>　　sql = "select * from 團(tuán)隊(duì)資料"</p><p>　　rs_dclient.CursorLocation = adUseClient</p><p>　　rs_dclie

131、nt.Open sql, conn, adOpenKeyset, adLockPessimistic '打開(kāi)數(shù)據(jù)庫(kù)</p><p>　　'設(shè)定datagrid控件屬性</p><p>　　DataGrid1.AllowAddNew = False '不可增加</p><p&g

132、t;　　DataGrid1.AllowDelete = False '不可刪除</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Set DataGrid1.DataSource = rs_dclient</p><p>　　Command4.E

133、nabled = False</p><p><b>　　Exit Sub</b></p><p>　　loaderror:</p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　　Privat

134、e Sub Form_Unload(Cancel As Integer)</p><p>　　Set DataGrid1.DataSource = Nothing</p><p>　　rs_dclient.Close</p><p><b>　　EndSub</b></p><p><b>　　5.4客人信息查

135、詢</b></p><p>　　在該模塊中主要實(shí)現(xiàn)輸入客戶的姓名檢索住宿信息的功能。</p><p>　　圖.5.5 客人信息查詢界面</p><p><b>　　[登陸代碼實(shí)現(xiàn)]</b></p><p>　　Option Explicit</p><p>　　Dim rs_find