賓館住宿管理系統(tǒng)課程設(shè)計(jì)(詳細(xì)完整-附代碼)

賓館住宿管理系統(tǒng)課程設(shè)計(jì)設(shè)計(jì)報(bào)告班級(jí)：XXXXX姓名：XXXXX學(xué)號(hào)：XXXXX賓館住宿管理系統(tǒng)前言：本系統(tǒng)針對(duì)賓館住宿的一般管理模式,采用基于計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)的賓館管理解決方案,按照賓館的現(xiàn)代化管理要求設(shè)計(jì),實(shí)現(xiàn)對(duì)賓館住宿的接待，客房，訂房,收支情況,等效勞設(shè)施的全面全方位計(jì)算機(jī)管理。目標(biāo)在于提高賓館營業(yè)體系的作業(yè)效率，提高效勞的客戶滿意度,加強(qiáng)賓館的市場競爭力，樹立良好的企業(yè)形象.通過計(jì)算機(jī)管理,一方面提供應(yīng)客戶快捷準(zhǔn)確可靠的效勞,另一方面提高賓館自身的管理水平,及時(shí)準(zhǔn)確獲取營業(yè)信息,輔助對(duì)市場需求變化的決策.第一章系統(tǒng)概述1.1系統(tǒng)開發(fā)的背景和意義隨著我國經(jīng)濟(jì)的迅速開展，人們的生活水平有了顯著的提高，假日經(jīng)濟(jì)和旅游經(jīng)濟(jì)已成為人們消費(fèi)的熱點(diǎn)。各地也把旅游業(yè)當(dāng)作本地經(jīng)濟(jì)開展的重要經(jīng)濟(jì)支柱之一，從而促進(jìn)了賓館酒店業(yè)的快速開展。同時(shí)，隨著賓館酒店越來越多，人們的要求越來越高，賓館酒店業(yè)的競爭也愈來愈劇烈。如何在劇烈的競爭中生從開展，是每一個(gè)賓館酒店必須面臨的問題。對(duì)賓館的經(jīng)營狀況起決定作用的是賓館的效勞管理水平。如何利用先進(jìn)的管理手段、提高賓館的管理水平，以成為賓館酒店業(yè)開展的當(dāng)務(wù)之急。面對(duì)信息時(shí)代的機(jī)遇和挑戰(zhàn)，利用科技手段提高企業(yè)管理水平是企業(yè)管理無疑的一條行之有效的途徑?，F(xiàn)在的賓館行業(yè)已經(jīng)發(fā)生拉巨大變化，已不僅是提供應(yīng)人們一個(gè)吃住行的簡單場所，所以，將計(jì)算機(jī)管理引入賓館的管理體系中,無疑對(duì)賓館的效勞水平更上一層樓提供了一種有利的支持。雖然計(jì)算機(jī)管理并不是賓館管理走向成功的關(guān)鍵元素，但它可以最大限度地發(fā)揮準(zhǔn)確、快捷、高效等作用，對(duì)賓館的效勞管理提供強(qiáng)有力的支持。因此，采用全新的計(jì)算機(jī)網(wǎng)絡(luò)和賓館管理系統(tǒng)，已成為提高賓館的管理效率、改善效勞的水準(zhǔn)的重要手段之一。在某種意義上，賓館客房管理方面的信息話已成為現(xiàn)代化賓館的重要標(biāo)志。1.2系統(tǒng)所要實(shí)現(xiàn)功能該系統(tǒng)應(yīng)充分利用信息技術(shù)提高賓館客房的管理水平、效勞水平。酒店客房管理系統(tǒng)要實(shí)現(xiàn)客房住宿的登記、宿費(fèi)提醒、追加押金、調(diào)房登記、退房結(jié)帳、查詢統(tǒng)計(jì)等功能。其中宿費(fèi)提醒可以在住宿費(fèi)超過押金時(shí)預(yù)警，提示前臺(tái)要客人補(bǔ)交押金，該功能可明顯提高對(duì)住宿人員宿費(fèi)的有效管理。將動(dòng)態(tài)時(shí)的住宿登記、客房調(diào)整追加押金等有機(jī)的聯(lián)系在一起，對(duì)酒店進(jìn)行全方位的管理。1.3系統(tǒng)開發(fā)工具開發(fā)數(shù)據(jù)庫管理信息系統(tǒng)需要選擇兩種工具，即前臺(tái)開發(fā)語言和后臺(tái)數(shù)據(jù)庫。本系統(tǒng)運(yùn)用了VisualBasic作為開發(fā)工具，SQLServer2000作為后臺(tái)數(shù)據(jù)庫。1.4系統(tǒng)模塊分析〔1〕系統(tǒng)管理模塊該模塊實(shí)現(xiàn)操作員的管理,如添加刪除和修改操作,并設(shè)置操作員的操作權(quán)限對(duì)指定的用戶進(jìn)行密碼修改.〔2〕客房管理模塊狀該模塊實(shí)現(xiàn)對(duì)客房的根本信息的設(shè)置,如客房的地點(diǎn),客房等級(jí),客房物品等信息.同時(shí)提供對(duì)客房信息的查詢?！?〕訂房管理模塊狀該模塊實(shí)現(xiàn)用戶訂房信息管理,提供對(duì)訂房客戶資料的登記,查詢和退訂操作。其中訂房信息包括客房的類型和訂房的時(shí)間等。〔4〕收銀管理模塊狀該模塊實(shí)現(xiàn)用戶確實(shí)訂房信息管理,提供對(duì)訂房客戶資料的登記,查詢，并提供當(dāng)日?qǐng)?bào)表的打印。第二章系統(tǒng)需求分析2.1編寫目的本文檔對(duì)《酒店管理系統(tǒng)》的開發(fā)需求進(jìn)行描述，目的是明確酒店管理系統(tǒng)對(duì)用戶的功能要求.該文檔對(duì)《酒店管理系統(tǒng)》做全面細(xì)致的用戶需求分析，明確所要開發(fā)的系統(tǒng)應(yīng)有的功能、性能與界面，使有關(guān)人士能夠清楚的了解用戶的需求，并在此根底上進(jìn)一步提出概要設(shè)計(jì)說明書和完成后續(xù)設(shè)計(jì)與開發(fā)工作。2.2開發(fā)背景隨著人民生活水平的提高，旅游出行的人越來越多，酒店的客流量不斷增加，傳統(tǒng)的酒店管理方法已經(jīng)不適應(yīng)現(xiàn)代社會(huì)的需求。賓館在正常運(yùn)營中需要對(duì)客房資源、顧客信息、退房信息等進(jìn)行管理，利用客房管理系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理的效率。本工程作為《軟件工程課程設(shè)計(jì)》課程的訓(xùn)練工程提出，目的是為了提高同學(xué)們軟件的開發(fā)和數(shù)據(jù)庫的創(chuàng)立鏈接,以及軟件文檔的相關(guān)標(biāo)準(zhǔn)和編寫原那么,提高大家的實(shí)踐能力。2.3實(shí)現(xiàn)目標(biāo)建立一套功能完善的管理信息系統(tǒng)，既能滿足業(yè)務(wù)人員日常處理的需要，增強(qiáng)企業(yè)經(jīng)營全過程的數(shù)字化管理水平；又能滿足管理人員決策分析的需要，提高公司管理層對(duì)公司經(jīng)營反應(yīng)信息的響應(yīng)速度。從而大幅度提高工作效率，提高實(shí)施管理的準(zhǔn)確性、科學(xué)性，使擔(dān)負(fù)管理的工作人員從繁雜的手工勞作中解脫出來。面對(duì)酒店行業(yè)的高速開展和酒店行業(yè)信息化開展的過程中出現(xiàn)的各種情況，酒店客房管理系統(tǒng)在實(shí)施后，應(yīng)能到達(dá)以下目標(biāo)：(1)實(shí)現(xiàn)多點(diǎn)操作的信息共享，相互之間的信息傳遞準(zhǔn)確、快捷和順暢。(2)效勞管理信息化，可隨時(shí)掌握客人住宿、客房狀態(tài)、客人掛帳等情況。(3)系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便，數(shù)據(jù)存儲(chǔ)平安。(4)客戶檔案、掛帳信息、預(yù)警系統(tǒng)的結(jié)合，可對(duì)往來可戶進(jìn)行住宿監(jiān)控，防止壞帳發(fā)生。(5)通過酒店客房管理系統(tǒng)的實(shí)施，可逐步提高賓館的管理水平，提升員工的素質(zhì)。(6)系統(tǒng)維護(hù)方便可靠、有較高的平安性，滿足實(shí)用性、先進(jìn)性的要求。2.4數(shù)據(jù)描述信息需求〔1〕顧客信息：姓名、有效證件、證件號(hào)碼、聯(lián)系、工作單位、詳細(xì)地址?！?〕客房信息：房間號(hào)、房間類型、房間價(jià)格、所在樓層、〔3〕住宿信息：顧客姓名、房間編號(hào)、有效證件、房間標(biāo)準(zhǔn)、房間位置、折扣、入住時(shí)間、預(yù)交押金?！?〕退房信息：顧客姓名、房間編號(hào)、客房標(biāo)準(zhǔn)、退房時(shí)間、折扣、預(yù)交押金、所付金額、找還金額。〔5〕調(diào)房信息：顧客姓名、客房標(biāo)準(zhǔn)、原始房、目標(biāo)房、住宿天數(shù)、入住時(shí)間、預(yù)交押金、聯(lián)系。處理需求賓館在運(yùn)營中需要對(duì)賓館資源、顧客信息、結(jié)算信息進(jìn)行管理，如果有顧客來往，經(jīng)過對(duì)客房狀態(tài)的查詢，查看是否有房間能及時(shí)為客戶辦理登記手續(xù)，如果有顧客來退房，能及時(shí)為顧客登記并辦理退房手續(xù)，并且修改客房信息，因此，利用開發(fā)完成后的賓館管理系統(tǒng)能夠十分便利的對(duì)住房系統(tǒng)進(jìn)行管理有利于提高效率。酒店住房管理系統(tǒng)開發(fā)的任務(wù)是實(shí)現(xiàn)各種住房信息的系統(tǒng)標(biāo)準(zhǔn)化、自動(dòng)化主要完成的功能有以下幾個(gè)方面。〔1〕住宿管理這個(gè)模塊包括四個(gè)局部，即住宿登記、追加押金、調(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)等?！?〕客房管理這個(gè)模塊包括三個(gè)局部，即客房設(shè)置、客房查詢、房態(tài)查看。賓館客房在不同的時(shí)間有不同的狀態(tài)，如空靜房、空臟房、清理房、占用房、毛病房、修理房等。該局部要完成客房根本信息的查詢、能夠按房間號(hào)檢索所需的客房根本信息，以及顯示當(dāng)前客房的入住數(shù)、空閑數(shù)、維修數(shù)、客房的使用率等?！?〕查詢管理這個(gè)模塊包括三個(gè)局部，即住宿查詢、退宿查詢、宿費(fèi)提醒。該局部要實(shí)現(xiàn)對(duì)客房的查詢，查詢客房的住宿情況、退宿情況以及宿費(fèi)提醒等。尤其是宿費(fèi)提醒，當(dāng)客人的上帳金額超過押金時(shí)系統(tǒng)自動(dòng)提示要求客人補(bǔ)交押金，以防止賓館財(cái)產(chǎn)損失?！?〕日結(jié)設(shè)置該模塊包括兩個(gè)局部：客房銷售報(bào)表、客房銷售統(tǒng)計(jì)。該模塊中要實(shí)現(xiàn)按任意時(shí)間匯總客人結(jié)帳后所需費(fèi)用的總額的功能及按任意年匯總應(yīng)收宿費(fèi)、費(fèi)等的功能。〔5〕結(jié)帳管理這個(gè)模塊包括兩個(gè)模塊，掛帳查詢模塊、客戶結(jié)款模塊。主要實(shí)現(xiàn)選擇掛帳單位或個(gè)人，檢索符合條件的掛帳信息、還款信息及統(tǒng)計(jì)欠款余額等?！?〕設(shè)置管理這個(gè)模塊包括三個(gè)局部，主要用來完成操作員及密碼設(shè)置，操作員密碼的修改以及實(shí)現(xiàn)清空選定表的數(shù)據(jù)的功能。2.5數(shù)據(jù)流圖數(shù)據(jù)流圖描繪信息流和數(shù)據(jù)從輸入移動(dòng)到輸出過程中在系統(tǒng)中流動(dòng)和處理的情況?？傮w數(shù)據(jù)流圖11住宿管理管理員2查詢管理3客房管理退宿信息D1退房信息住宿信息客房號(hào)碼住宿信息D2住宿信息客房信息客房信息D3客房信息圖2.1總數(shù)據(jù)流圖分?jǐn)?shù)據(jù)流圖①住宿數(shù)據(jù)流圖管理員管理員2.1查詢登記顧客.2.2預(yù)定登記客房號(hào)碼客房信息查詢信息預(yù)定信息客房信息D3客房信息D4退宿信息圖2.2住宿數(shù)據(jù)流圖②退房數(shù)據(jù)流圖管理員管理員1.1住宿登記顧客1.2退宿登記退宿信息住宿信息住宿信息住宿信息退房信息D1住宿信息D2退宿信息圖2.3退房數(shù)據(jù)流圖③客房數(shù)據(jù)流圖管理員管理員.3.1客房登記顧客3.2客房管理住宿信息客房信息住宿信息客房號(hào)碼住宿對(duì)象D5客房信息D6房客信息圖2.4客房數(shù)據(jù)流圖2.6數(shù)據(jù)字典數(shù)據(jù)字典是關(guān)于數(shù)據(jù)信息的集合，即對(duì)數(shù)據(jù)流圖中包含的所有元素的定義的集合。名字：住宿信息名字：住宿信息別名：住宿登記信息描述：顧客住宿是需要填寫的登記表。定義：住宿信息=姓名+有效證件+客房類型+客房號(hào)+住宿日期。位置：登記表名稱：客房信息名稱：客房信息別名：賓館客房的信息描述：描述賓館各種客房的信息。定義：客房信息=客房標(biāo)準(zhǔn)+客房號(hào)碼+客房價(jià)格+使用配置位置：客房登記退房登記名稱：退房信息名稱：退房信息別名：退飯登記信息描述：客人退房時(shí)需要填寫的信息定義：退房信息=客人姓名+有效證件+房間標(biāo)準(zhǔn)+房間號(hào)碼+住宿天數(shù)。位置：系統(tǒng)退房登記信息名稱：權(quán)限信息名稱：權(quán)限信息別名：權(quán)限登記信息描述：用來保存操作員的權(quán)限定義：權(quán)限信息=操作員+密碼+客房預(yù)定+住宿登記+退宿登記+客房查詢+密碼位置：系統(tǒng)名稱：客房管理別名：客房管理信息描述：客房日常管理信息名稱：客房管理別名：客房管理信息描述：客房日常管理信息定義：客房管理=效勞員+房間號(hào)+操作員+密碼位置：系統(tǒng)客房管理系統(tǒng)名稱：查詢管理別名：查詢登記信息描述：查詢客房登記的信息定義：查詢管理=操作員+密碼+住宿信息+客房預(yù)訂位置：系統(tǒng)名稱：退房登記名稱：退房登記別名：退房管理登記描述：退房管理登記信息定義：退房登記=房客+房間號(hào)+效勞員+密碼位置：賓館客房管理系統(tǒng)名稱：客房登記名稱：客房登記別名：客房登記管理描述：客房管理登記信息定義：客房登記=房間號(hào)+房客+操作員+密碼+效勞員位置：賓館客房管理系統(tǒng)2.7數(shù)據(jù)庫概念設(shè)計(jì)概念性信息模型是一種面向問題的數(shù)據(jù)模型，是按照用戶的觀點(diǎn)來對(duì)數(shù)據(jù)和信息建模。它描述了從用戶角度看到的數(shù)據(jù)，它反映了用戶的現(xiàn)實(shí)環(huán)境。最常用的表示概念性數(shù)據(jù)模型方法，是實(shí)體——聯(lián)系方法〔Entity-RelationshipApproach〕。這種方法用E——R圖描述現(xiàn)實(shí)世界中的實(shí)體，而不涉及這些實(shí)體在系統(tǒng)中的實(shí)現(xiàn)方法。用這種方法表示的概念性數(shù)據(jù)模型又稱為ER模型。ER模型包含“實(shí)體〞、“聯(lián)系〞、“屬性〞等三個(gè)根本成份。局部E-R圖1顧客屬性如圖2.5顧客顧客詳細(xì)地址姓名身份證號(hào)工作單位聯(lián)系圖2.5顧客實(shí)體屬性圖2客房屬性如圖2.6客房客房房間號(hào)碼所在樓層房態(tài)房間類型房間價(jià)格使用配置圖2.6客房實(shí)體屬性圖3效勞員屬性如圖2.7效勞員效勞員工作編號(hào)姓名操作密碼圖2.7效勞員實(shí)體屬性圖4經(jīng)理屬性如圖2.8大堂經(jīng)理大堂經(jīng)理工作編號(hào)姓名操作密碼年齡圖2.8經(jīng)理實(shí)體屬性圖總E-R圖顧客顧客客房姓名身份證聯(lián)系工作單位詳細(xì)地址登記效勞員操作密碼姓名工作編號(hào)住宿房間號(hào)碼所在樓層價(jià)格房間類型使用配置房態(tài)111NNN管理管理1大堂經(jīng)理大堂經(jīng)理操作密碼1操作密碼年齡名字工作編號(hào)年齡名字工作編號(hào)圖2.9總E-R實(shí)體圖第三章系統(tǒng)總體設(shè)計(jì)3.1系統(tǒng)功能模塊設(shè)計(jì)功能模塊圖圖3.1功能模塊圖3.2系統(tǒng)主要功能描述〔1〕住宿管理：住宿登記、追加押金、調(diào)房登記、推房結(jié)帳?！?〕客房管理：客房設(shè)置、客房查詢、房態(tài)查看。〔3〕查詢統(tǒng)計(jì)：住宿查詢、退宿查詢、宿費(fèi)提醒?！?〕系統(tǒng)設(shè)置：初始化、密碼設(shè)置、權(quán)限設(shè)置?！?〕日結(jié)設(shè)置：客房銷售報(bào)表、客房銷售統(tǒng)計(jì)?！?〕掛帳管理：客戶結(jié)款、掛帳查詢。3.3系統(tǒng)流程分析調(diào)房調(diào)房房態(tài)查詢Fangtaichaxun房態(tài)查詢Fangtaichaxun掛賬續(xù)住追加押金查詢掛賬續(xù)住追加押金宿費(fèi)提醒結(jié)賬選房宿費(fèi)提醒結(jié)賬點(diǎn)單消費(fèi)離店手牌入住前臺(tái)登記點(diǎn)單消費(fèi)離店手牌入住前臺(tái)登記客人確定手牌退牌現(xiàn)結(jié)歷史單據(jù)建立賬戶現(xiàn)結(jié)歷史單據(jù)報(bào)表預(yù)訂客房當(dāng)前客戶賬單預(yù)訂房費(fèi)單報(bào)表預(yù)訂客房當(dāng)前客戶賬單預(yù)訂房費(fèi)單報(bào)表報(bào)表圖3.2系統(tǒng)流程圖第四章系統(tǒng)詳細(xì)設(shè)計(jì)4.1程序流程設(shè)計(jì)所謂系統(tǒng)流程分析，就是用戶使用系統(tǒng)時(shí)的工作過程。不同的用戶有著不同的工作流程和使用權(quán)限。但是所有的用戶都是從用戶登錄模塊開始的。登錄主要是判斷是否是合法的用戶，在數(shù)據(jù)庫設(shè)計(jì)中用戶的登錄名是固定的，如果要添加用戶那么在用戶主界面進(jìn)行添加用戶信息。本系統(tǒng)的系統(tǒng)流程分析如下列圖所示：開始開始用戶登陸讀取用戶類型失敗超過3次退出程序ⅰ管理自己的擁護(hù)信息ⅱ管理領(lǐng)班用戶的用戶信息ⅲ管理普通用戶的用戶信息ⅰ管理自己的擁護(hù)信息ⅱ管理普通用戶的用戶信息管理自己的用戶信息1系統(tǒng)的其他功能2領(lǐng)班用戶管理模塊3普通用戶管理模塊否退出程序重試退出程序否失敗是成功用戶管理模塊賓館管理模塊Admin用戶領(lǐng)班用戶普通用戶圖4.1程序流程圖4.2系統(tǒng)結(jié)構(gòu)的實(shí)現(xiàn)該系統(tǒng)采用了SQLServer2000數(shù)據(jù)庫，數(shù)據(jù)庫名稱為kfgl.數(shù)據(jù)庫包含以下幾個(gè)表：客房根本信息表kf、登記表djb、密碼表ma、權(quán)限設(shè)置表qxsz、退房登記表tfdj、掛帳明細(xì)表gzmx。表4-1密碼表字段名稱數(shù)據(jù)類型字段大小操作員文本10密碼文本6表4-2客房根底信息表字段名稱數(shù)據(jù)類型字段大小房間號(hào)文本30房間類型文本50價(jià)格貨幣8房態(tài)文本4標(biāo)志是/否1備注文本100配置文本100使用設(shè)置文本10營業(yè)日期時(shí)間/日期8表4-3掛賬明細(xì)表字段名稱數(shù)據(jù)類型字段大小日期日期/時(shí)間100掛帳單位文本100摘要文本8住宿金額貨幣8欠款金額貨幣8還款金額貨幣8金額累計(jì)文本16姓名文本100證件號(hào)碼文本100票號(hào)文本20時(shí)間日期/時(shí)間8房間標(biāo)準(zhǔn)文本10房間價(jià)格文本10表4-4登記表字段名稱數(shù)據(jù)類型字段大小姓名文本50證件名稱文本20證件號(hào)碼文本20詳細(xì)地址文本50房間號(hào)文本20客房類型文本10聯(lián)系文本20客房價(jià)格貨幣8住宿日期日期/時(shí)間8住宿時(shí)間日期/時(shí)間8住宿天數(shù)數(shù)字雙精度型宿費(fèi)貨幣8折扣數(shù)字雙精度型應(yīng)收宿費(fèi)貨幣8預(yù)收金額貨幣8提醒日期日期/時(shí)間8提醒時(shí)間日期/時(shí)間8退宿日期日期/時(shí)間8退宿時(shí)間日期/時(shí)間8備注文本50結(jié)款方式文本10摘要文本200表4-5退房登記應(yīng)收宿費(fèi)貨幣8雜費(fèi)貨幣8費(fèi)貨幣8存車費(fèi)貨幣8賠償費(fèi)貨幣8金額總計(jì)貨幣8預(yù)收宿費(fèi)日期/時(shí)間8退還宿費(fèi)日期/時(shí)間8退還日期日期/時(shí)間8備注文本8表4-6權(quán)限設(shè)置表字段名稱數(shù)據(jù)類型字段大小編號(hào)是/否50操作員是/否50密碼是/否雙精度型住宿登記是/否1退宿登記是/否1追加押金是/否1客房管理是/否1客房查詢是/否1住宿查詢是/否1退宿查詢是/否1宿費(fèi)查詢是/否1客房銷售報(bào)表是/否1操作員設(shè)置是/否1密碼設(shè)置是/否1權(quán)限設(shè)置是/否1調(diào)房登記是/否1客戶結(jié)款是/否1第五章系統(tǒng)界面設(shè)計(jì)及代碼實(shí)現(xiàn)5.1系統(tǒng)登陸窗口界面程序啟動(dòng)后，首先進(jìn)入系統(tǒng)登陸界面驗(yàn)證操作密碼。在系統(tǒng)登陸模塊中主要實(shí)現(xiàn)如下功能：〔1〕可選擇操作員，支持鼠標(biāo)和鍵盤操作?！?〕操作員和密碼驗(yàn)證成功后，進(jìn)入主界面?！?〕操作員錯(cuò)誤或密碼錯(cuò)誤提醒并返回錯(cuò)誤點(diǎn)?！?〕輸入三次錯(cuò)誤密碼，自動(dòng)退出系統(tǒng)。圖5.1用戶登陸界面[登陸代碼實(shí)現(xiàn)]OptionExplicitDimcntAsInteger'記錄確定次數(shù)PrivateSubCommand1_Click()DimsqlAsStringDimrs_loginAsNewADODB.RecordsetIfTrim(text1.Text)=""Then'判斷輸入的用戶名是否為空MsgBox"沒有這個(gè)用戶",vbOKOnly+vbExclamation,""text1.SetFocusElsesql="select*from系統(tǒng)管理where用戶名='"&text1.Text&"'"rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_login.EOF=TrueThenMsgBox"沒有這個(gè)用戶",vbOKOnly+vbExclamation,""text1.SetFocusElse'檢驗(yàn)密碼是否正確IfTrim(rs_login.Fields(1))=Trim(text2.Text)ThenuserID=text1.Textuserpow=rs_login.Fields(2)rs_login.CloseUnloadMeMDIForm1.ShowElseMsgBox"密碼不正確",vbOKOnly+vbExclamation,""text2.SetFocusEndIfEndIfEndIfcnt=cnt+1Ifcnt=3ThenUnloadMeEndIfExitSubEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimconnectionstringAsStringconnectionstring="provider=Microsoft.Jet.oledb.4.0;"&_"datasource=jiudian.mdb"conn.Openconnectionstringcnt=0EndSub5.2系統(tǒng)主程序窗口界面程序啟動(dòng)后，在系統(tǒng)登陸界面驗(yàn)證完操作員及操作員密碼后，將進(jìn)入主程序界面。主程序界面要實(shí)現(xiàn)：〔1〕選擇菜單或工具欄，調(diào)用相應(yīng)程序，進(jìn)行相應(yīng)操作。〔2〕根據(jù)操作員不同，確定操作員相應(yīng)的權(quán)限。圖5.2主程序窗口[登陸代碼實(shí)現(xiàn)]PrivateSubadd_user_Click()frmadduser.ShowEndSubPrivateSubdouble_check_Click()frmfind_double.ShowEndSubPrivateSubcheck_Click()frmfind.ShowEndSubPrivateSubdouble_client_Click()frmdouble_client.ShowEndSubPrivateSubexit_Click()UnloadMeEndSubPrivateSubkhts_Click()frmkhts.ShowEndSubPrivateSubMDIForm_Load()frmdata=Falsefind=FalseEndSubPrivateSubmodify_pw_Click()frmchangepwd.ShowEndSubPrivateSubonly_check_Click()frmfind.ShowEndSubPrivateSubonly_client_Click()frmonly_client.ShowEndSubPrivteSubzbgl_Click()frmzhiban.ShowEndSub5.3住宿管理設(shè)計(jì)程序啟動(dòng)后，選擇“客人入住〞菜單下的“散客入住〞和“團(tuán)客入住〞項(xiàng)，將進(jìn)入住宿登記模塊。在住宿登記模塊主要實(shí)現(xiàn)如下功能：〔1〕自動(dòng)生成住宿登記憑證號(hào)碼。〔2〕提供空房間供用戶選擇。〔3〕實(shí)現(xiàn)客人住宿登記，收取客人預(yù)交宿費(fèi)?！?〕自動(dòng)計(jì)算折前宿費(fèi)、實(shí)際宿費(fèi)、宿費(fèi)提醒時(shí)間、退宿時(shí)間。5.3.1散客入住圖.5.3散客入住界面[登陸代碼實(shí)現(xiàn)]OptionExplicitDimrs_clientAsNewADODB.RecordsetPrivateSubCommand1_Click()IfNotIsNull(DataGrid1.Bookmark)ThenIfTrim(DataGrid1.Columns("房號(hào)").CellText(DataGrid1.Bookmark))=""ThenMsgBox"房號(hào)不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("房價(jià)").CellText(DataGrid1.Bookmark))=""ThenMsgBox"房價(jià)不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("姓名").CellText(DataGrid1.Bookmark))=""ThenMsgBox"姓名不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("性別").CellText(DataGrid1.Bookmark))=""ThenMsgBox"性別不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("抵達(dá)日").CellText(DataGrid1.Bookmark)))ThenMsgBox"請(qǐng)按照格式hh-mm輸入抵達(dá)日",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("離店日").CellText(DataGrid1.Bookmark)))ThenMsgBox"請(qǐng)按照格式hh-mm輸入離店日",vbOKOnly+vbExclamation,""ExitSubEndIfrs_client.UpdateMsgBox"添加信息成功！",vbOKOnly+vbExclamation,""DataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseElseMsgBox"沒有添加信息！",vbOKOnly+vbExclamation,""EndIfCommand1.Caption="新增記錄"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseEndIfadderror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand2_Click()DimanswerAsStringOnErrorGoTocmdmodifyIfCommand2.Caption="修改記錄"Thenanswer=MsgBox("確定要修改嗎？",vbYesNo,"")Ifanswer=vbYesThenCommand2.Caption="確定"Command1.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueDataGrid1.AllowUpdate=TrueElseExitSubEndIfElseIfNotIsNull(DataGrid1.Bookmark)Thenrs_client.UpdateEndIfCommand2.Caption="修改記錄"Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseDataGrid1.AllowUpdate=FalseMsgBox"修改成功！",vbOKOnly+vbExclamation,""EndIfcmdmodify:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand3_Click()DimanswerAsStringOnErrorGoTodelerroranswer=MsgBox("確定要?jiǎng)h除嗎？",vbYesNo,"")Ifanswer=vbYesThenDataGrid1.AllowDelete=Truers_client.Deleters_client.UpdateDataGrid1.RefreshMsgBox"成功刪除！",vbOKOnly+vbExclamation,""DataGrid1.AllowDelete=FalseElseExitSubEndIfdelerror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand4_Click()IfCommand4.Caption="確定"Thenrs_client.CancelDataGrid1.ReBindDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseCommand1.Caption="新增記錄"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseElseIfCommand2.Caption="確定"Thenrs_client.CancelDataGrid1.ReBindDataGrid1.RefreshDataGrid1.AllowUpdate=FalseCommand2.Caption="修改記錄"Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseEndIfFrame2.Enabled=TrueEndSubPrivateSubCommand5_Click()UnloadMeEndSubPrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from散客資料"rs_client.CursorLocation=adUseClientrs_client.Opensql,conn,adOpenKeyset,adLockPessimistic'翻開數(shù)據(jù)庫'設(shè)定datagrid控件屬性DataGrid1.AllowAddNew=False'不可增加DataGrid1.AllowDelete=False'不可刪除DataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_clientCommand4.Enabled=FalseSetDataGrid1.DataSource=Nothingrs_client.CloseEndSub5.3.2團(tuán)客入住圖5.4團(tuán)客入住界面[登陸代碼實(shí)現(xiàn)]OptionExplicitDimrs_dclientAsNewADODB.RecordsetPrivateSubCommand1_Click()OnErrorGoToadderrorIfCommand1.Caption="新增記錄"Then'當(dāng)此按鈕的狀態(tài)為為“增加記錄〞時(shí)Command1.Caption="確定"'按鈕名稱改為“確定〞Command2.Enabled=False'刪除與修改按鈕不可用Command3.Enabled=FalseCommand4.Enabled=True'取消按鈕可用DataGrid1.AllowAddNew=TrueDataGrid1.AllowUpdate=True'設(shè)定datagrid可以增加記錄ElseIfNotIsNull(DataGrid1.Bookmark)ThenIfTrim(DataGrid1.Columns("團(tuán)隊(duì)名稱").CellText(DataGrid1.Bookmark))=""ThenMsgBox"團(tuán)隊(duì)名稱不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("負(fù)責(zé)人姓名").CellText(DataGrid1.Bookmark))=""ThenMsgBox"負(fù)責(zé)人姓名不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("證件號(hào)碼").CellText(DataGrid1.Bookmark))=""ThenMsgBox"證件號(hào)碼不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("房間號(hào)碼").CellText(DataGrid1.Bookmark))=""ThenMsgBox"房間號(hào)碼！",vbOKOnly+vbExclamation,""ExitSubEndIfrs_dclient.UpdateMsgBox"添加信息成功！",vbOKOnly+vbExclamation,""DataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseElseMsgBox"沒有添加信息！",vbOKOnly+vbExclamation,""EndIfCommand1.Caption="新增記錄"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseEndIfadderror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand2_Click()DimanswerAsStringOnErrorGoTocmdmodifyIfCommand2.Caption="修改記錄"Thenanswer=MsgBox("確定要修改嗎？",vbYesNo,"")Ifanswer=vbYesThenCommand2.Caption="確定"Command1.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueDataGrid1.AllowUpdate=TrueElseExitSubEndIfElseIfNotIsNull(DataGrid1.Bookmark)Thenrs_dclient.UpdateEndIfCommand2.Caption="修改記錄"Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseDataGrid1.AllowUpdate=FalseMsgBox"修改成功！",vbOKOnly+vbExclamation,""EndIfcmdmodify:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand3_Click()DimanswerAsStringOnErrorGoTodelerroranswer=MsgBox("確定要?jiǎng)h除嗎？",vbYesNo,"")Ifanswer=vbYesThenDataGrid1.AllowDelete=Truers_dclient.Deleters_dclient.UpdateDataGrid1.RefreshMsgBox"成功刪除！",vbOKOnly+vbExclamation,""DataGrid1.AllowDelete=FalseElseExitSubEndIfdelerror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubCommand4_Click()IfCommand4.Caption="確定"Thenrs_dclient.CancelDataGrid1.ReBindDataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseCommand1.Caption="新增記錄"Command2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseElseIfCommand2.Caption="確定"Thenrs_dclient.CancelDataGrid1.ReBindDataGrid1.RefreshDataGrid1.AllowUpdate=FalseCommand2.Caption="修改記錄"Command1.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=FalseEndIfFrame2.Enabled=TrueEndSubPrivateSubCommand5_Click()UnloadMeEndSubPrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from團(tuán)隊(duì)資料"rs_dclient.CursorLocation=adUseClientrs_dclient.Opensql,conn,adOpenKeyset,adLockPessimistic'翻開數(shù)據(jù)庫'設(shè)定datagrid控件屬性DataGrid1.AllowAddNew=False'不可增加DataGrid1.AllowDelete=False'不可刪除DataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_dclientCommand4.Enabled=FalseExitSubloaderror:MsgBoxErr.DescriptionEndSubPrivateSubForm_Unload(CancelAsInteger)SetDataGrid1.DataSource=Nothingrs_dclient.CloseEndSub5.4客人信息查詢?cè)谠撃K中主要實(shí)現(xiàn)輸入客戶的姓名檢索住宿信息的功能。圖.5.5客人信息查詢界面[登陸代碼實(shí)現(xiàn)]OptionExplicitDimrs_findAsNewADODB.RecordsetPrivateSubCommand1_Click()OnErrorGoTocmderrorDimfind_date1AsStringDimfind_date2AsStringIfOption1.Value=TrueThensqlfind="select*from散客資料where房號(hào)between'"&_Combo1(0).Text&"'"&"and"&"'"&Combo1(1).Text&"'"EndIfIfOption2.Value=TrueThenfind_date1=Format(CDate(Comboy(0).Text&"-"&_Combom(0).Text&"-"&Combod(0).Text),"yyyy-mm-dd")find_date2=Format(CDate(Comboy(1).Text&"-"&_Combom(1).Text&"-"&Combod(1).Text),"yyyy-mm-dd")sqlfind="select*from散客資料where抵達(dá)日between#"&_find_date1&"#"&"and"&"#"&find_date2&"#"EndIfrs_data1.Opensqlfind,conn,adOpenKeyset,adLockPessimisticfrmdatamanage.displaygrid1UnloadMecmderror:IfErr.Number<>0ThenMsgBox"請(qǐng)輸入正確的查詢條件！",vbOKOnly+vbExclamation,"警告"EndIfEndSubPrivateSubCommand2_Click()UnloadMeMDIForm1.ShowEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsString'Iffindok=TrueThen'rs_data1.Close'EndIfsql="select*from散客資料orderby房號(hào)desc"rs_find.CursorLocation=adUseClientrs_find.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_find.EOF=FalseThen'添加編號(hào)Withrs_findDoWhileNot.EOFCombo1(0).AddItem.Fields(0)Combo1(1).AddItem.Fields(0).MoveNextLoopEndWithEndIfFori=2001To2005'添加年Comboy(0).AddItemiComboy(1).AddItemiNextiFori=1To12'添加月Combom(0).AddItemiCombom(1).AddItemiNextiFori=1To31'添加日Combod(0).AddItemiCombod(1).AddItemiNextiEndSubPrivateSubForm_Unload(CancelAsInteger)rs_find.CloseEndSub5.5系統(tǒng)管理系統(tǒng)管理包括“新增用戶〞，“修改密碼〞二局部。新增用戶圖5.6新增用戶界面[登陸代碼實(shí)現(xiàn)]PrivateSubCommand1_Click()DimsqlAsStringDimrs_addAsNewADODB.RecordsetIfTrim(text1.Text)=""ThenMsgBox"用戶名不能為空",vbOKOnly+vbExclamation,""ExitSubtext1.SetFocusElse sql="select*from系統(tǒng)管理"rs_add.Opensql,conn,adOpenKeyset,adLockPessimisticWhile(rs_add.EOF=False)IfTrim(rs_add.Fields(0))=Trim(text1.Text)ThenMsgBox"已有這個(gè)用戶",vbOKOnly+vbExclamation,""text1.SetFocustext1.Text=""text2.Text=""Text3.Text=""Combo1.Text=""ExitSubElsers_add.MoveNextEndIfWendIfTrim(text2.Text)=""ThenMsgBox"密碼不能為空，請(qǐng)重新輸入！",vbOKOnly+vbExclamation,"警告"text2.Text=""text2.SetFocusExitSubEndIfIfTrim(text2.Text)<>Trim(Text3.Text)ThenMsgBox"兩次密碼不一致",vbOKOnly+vbExclamation,""text2.SetFocustext2.Text=""Text3.Text=""ExitSubElseIfTrim(Combo1.Text)<>"system"AndTrim(Combo1.Text)<>"guest"ThenMsgBox"請(qǐng)選擇正確的用戶權(quán)限",vbOKOnly+vbExclamation,""Combo1.SetFocusCombo1.Text=""ExitSubElsers_add.AddNewrs_add.Fields(0)=text1.Textrs_add.Fields(1)=text2.Textrs_add.Fields(2)=Combo1.Textrs_add.Updaters_add.CloseMsgBox"添加用戶成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndIfEndSuPrivateSubCommand2_Click()UnloadMeEndSuPrivateSubForm_Load()Combo1.AddItem"system"Combo1.AddItem"guest"EndSub修改密碼圖5.7修改密碼界面[登陸代碼實(shí)現(xiàn)]PrivateSubCommand1_Click()Dimrs_changAsNewADODB.RecordsetDimsqlAsStringIfTrim(text1.Text)<>Trim(text2.Text)ThenMsgBox"密碼不一致！",vbOKOnly+vbExclamation,""text1.SetFocustext1.Text=""text2.Text=""Elsesql="select*from系統(tǒng)管理where用戶名='"&userID&"'"rs_chang.Opensql,conn,adOpenKeyset,adLockPessimisticrs_chang.Fields(1)=text1.Textrs_chang.Updaters_chang.CloseMsgBox"密碼修改成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub5.6人事管理圖5.8人事管理界面[登陸代碼實(shí)現(xiàn)]OptionExplicitDimrs_zhibanAsNewADODB.RecordsetPrivateSubcmdadd_Click()OnErrorGoToadderrorIfcmdadd.Caption="確定增加記錄"Then'當(dāng)此按鈕的狀態(tài)為為“增加記錄〞時(shí)cmdadd.Caption="確定"'按鈕名稱改為“確定〞cmddel.Enabled=Falsecmdcancel.Enabled=TrueDataGrid1.AllowAddNew=TrueDataGrid1.AllowUpdate=True'設(shè)定datagrid可以增加記錄ElseIfNotIsNull(DataGrid1.Bookmark)ThenIfNotIsDate(Trim(DataGrid1.Columns("值班開始日期").CellText(DataGrid1.Bookmark)))ThenMsgBox"請(qǐng)按照格式y(tǒng)yyy-mm-dd輸入值班開始日期",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班開始時(shí)間").CellText(DataGrid1.Bookmark)))ThenMsgBox"請(qǐng)按照格式hh-mm輸入值班開始時(shí)間",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班截止日期").CellText(DataGrid1.Bookmark)))ThenMsgBox"請(qǐng)按照格式y(tǒng)yyy-mm-dd輸入值班截止日期",vbOKOnly+vbExclamation,""ExitSubEndIfIfNotIsDate(Trim(DataGrid1.Columns("值班截止時(shí)間").CellText(DataGrid1.Bookmark)))ThenMsgBox"請(qǐng)按照格式hh-mm輸入值班截止時(shí)間",vbOKOnly+vbExclamation,""ExitSubEndIfIfTrim(DataGrid1.Columns("值班人").CellText(DataGrid1.Bookmark))=""ThenMsgBox"值班人不能為空！",vbOKOnly+vbExclamation,""ExitSubEndIfrs_zhiban.Update'MsgBox"添加信息成功！",vbOKOnly+vbExclamation,""DataGrid1.AllowAddNew=FalseDataGrid1.AllowUpdate=FalseElseMsgBox"沒有添加信息！",vbOKOnly+vbExclamation,""EndIfcmdadd.Caption="確定增加記錄"cmddel.Enabled=TrueEndIfadderror:IfErr.Number<>0ThenMsgBoxErr.DescriptionEndIfEndSubPrivateSubcmdcancel_Click()Unloa