《酒店管理信息系統(tǒng) 畢業(yè)論文》由會員分享，可在線閱讀，更多相關(guān)《酒店管理信息系統(tǒng) 畢業(yè)論文（46頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、目 錄 摘要 3 關(guān)鍵詞 3 前言 4 第一章 緒論 5 1.1 系統(tǒng)開發(fā)背景及現(xiàn)狀 5 1.2 系統(tǒng)開發(fā)關(guān)鍵技術(shù)與開發(fā)環(huán)境 6 1.2.1 Visual Basic 6.0簡介 6 1.2.2 Visual Basic 6.0的主要特點(diǎn) 6 1.2.3 Visual Basic常用術(shù)語解釋 7 1.3 運(yùn)行環(huán)境 8 第二章 酒店管理系統(tǒng)的應(yīng)用優(yōu)勢 9 2.1 酒店管理的概念 9 2.2 酒店管理的現(xiàn)狀 9 2.2.1 市場分析 9 2.2.2 酒店系統(tǒng)發(fā)展水平和現(xiàn)狀 10 2.3 酒店管理系統(tǒng)應(yīng)用優(yōu)勢 11 2.4

2、酒店管理系統(tǒng)的前景 11 第三章 酒店信息管理系統(tǒng)的規(guī)劃 12 3.1 可行性分析 12 3.1.1 技術(shù)上可行性 12 3.1.2 操作上可行性 12 3.1.3 經(jīng)濟(jì)上可行性 13 3.2 系統(tǒng)功能分析 13 3.3 系統(tǒng)E—R圖 14 3.4 系統(tǒng)層次模塊圖 15 第四章 系統(tǒng)設(shè)計 18 4.1 系統(tǒng)功能總體設(shè)計 18 4.1.1 設(shè)計目的 18 4.1.2 系統(tǒng)模塊設(shè)計 18 4.2 數(shù)據(jù)庫設(shè)計 19 4.2.1 數(shù)據(jù)表的設(shè)計 20 4.2.2 數(shù)據(jù)庫的配置 23 第五章 系統(tǒng)實(shí)施 25 5.1 系統(tǒng)實(shí)施說明 25 5.

3、2 登錄界面 25 5.3 主界面 28 5.4 住宿登記界面 30 5.5 客房管理 33 5.6 查詢統(tǒng)計 36 5.7 系統(tǒng)設(shè)置 36 第六章 系統(tǒng)運(yùn)行管理和維護(hù) 41 第七章 系統(tǒng)評價 43 7.1 系統(tǒng)性能的評價 43 7.2 系統(tǒng)效益的評價 43 結(jié)束語 44 致謝 45 參考文獻(xiàn) 46 摘 要：在信息高度發(fā)達(dá)的今天，酒店業(yè)務(wù)涉及的各個工作環(huán)節(jié)已不再僅僅是傳統(tǒng)的住宿、結(jié)算業(yè)務(wù)，而是更廣、更全面的服務(wù)性行業(yè)代表。酒店賓館作為一個服務(wù)性行業(yè)，從客房的營銷即客人的預(yù)定開始，到入住登記直到最后退房結(jié)賬，整個過程應(yīng)該能夠體現(xiàn)以賓客為

4、中心，提供快捷方便服務(wù)，給賓客感受一種顧客至上的享受，提高管理水平，簡化各種復(fù)雜操作，在最短時間內(nèi)完成酒店業(yè)務(wù)規(guī)范操作，這樣才能令旅客舒適難忘。因此，采用全新的計算機(jī)管理系統(tǒng)，將成為提高酒店的管理效率，改善服務(wù)水準(zhǔn)的手段之一。系統(tǒng)從滿足客戶的需求角度出發(fā)，實(shí)現(xiàn)了酒店管理的基本流程。系統(tǒng)的主要功能包括開單、賓客結(jié)帳、客房預(yù)訂、營業(yè)查詢、客戶管理、系統(tǒng)設(shè)置等等。用戶入住酒店的時候所要等待的時間就會大大的減少，操作員能夠很方便的對用戶信息的登記和對房間狀態(tài)的的管理，從而實(shí)現(xiàn)了酒店管理系統(tǒng)高效、準(zhǔn)確的特點(diǎn)。 關(guān)鍵詞：數(shù)據(jù)庫；酒店客房管理；Visual Basic 6.0

5、 酒店管理信息系統(tǒng) 前言 近年來，我國的現(xiàn)代酒店業(yè)得到了蓬勃的發(fā)展，無論是行業(yè)規(guī)模，設(shè)施質(zhì)量還是經(jīng)營理念或者管理水平，都取得了長足的進(jìn)步，已經(jīng)進(jìn)入了現(xiàn)代化水平階段。 隨著信息技術(shù)的發(fā)展，許多酒店都把管理信息系統(tǒng)作為酒店實(shí)施科學(xué)化管理的主要工具，并在應(yīng)用技術(shù)上不斷的加以完善和發(fā)展，大大的提高了酒店運(yùn)營的質(zhì)量與效益。作為計算機(jī)應(yīng)用的一部分,使用計算機(jī)對酒店事務(wù)的管理,具有手工管理所無法比擬的優(yōu)點(diǎn)。例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高酒店管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要

6、條件。 在酒店前臺的管理工作中，管理信息系統(tǒng)在客戶預(yù)訂，登記，問訊，收銀和日常管理方面得到了廣泛的應(yīng)用。設(shè)于酒店前臺各處的計算機(jī)終端，直接與酒店計算機(jī)控制中心聯(lián)網(wǎng)，它可以非常方便地查閱客人檔案，實(shí)時調(diào)整和顯示房間狀態(tài)。還可以編制各種營業(yè)報表進(jìn)行市場銷售分析，從而達(dá)到降低人力資源成本，提高工作效率，降低優(yōu)化服務(wù)流程，提升服務(wù)質(zhì)量，實(shí)現(xiàn)資源最佳配置，增加酒店收益，支持管理層全面了解經(jīng)營狀況。可以說在酒店管理方面應(yīng)用計算機(jī)技術(shù)是很有必要的，這對改善酒店的管理機(jī)制，提高管理效率具有非常重要的意義。 第一章 緒論 1.1 系統(tǒng)開發(fā)背景及現(xiàn)狀 現(xiàn)代化的酒店

7、組織龐大、服務(wù)項目多、信息量大，要想提高勞動生產(chǎn)、降低成本、提高服務(wù)質(zhì)量和管理水平，進(jìn)而促進(jìn)經(jīng)濟(jì)效益，必須借助計算機(jī)來進(jìn)行現(xiàn)代化的信息管理。酒店管理系統(tǒng)正是為此而設(shè)計的。優(yōu)秀的酒店客房管理系統(tǒng)操作方便，靈活性好，系統(tǒng)安全性高，運(yùn)行穩(wěn)定。提供快捷方便服務(wù)，給賓客感受一種顧客至上的享受，提高管理水平，簡化各種復(fù)雜操作，在最短時間內(nèi)完成酒店業(yè)務(wù)規(guī)范操作，這樣才能令旅客舒適難忘?，F(xiàn)代化的酒店是集客房、商務(wù)文化及其他各種服務(wù)與設(shè)施為一體化的消費(fèi)場所，酒店賓館組織龐大，服務(wù)項目多，信息量大，要想提高勞動生產(chǎn)，降低成本，提高服務(wù)質(zhì)量和管理水平，進(jìn)而促進(jìn)經(jīng)濟(jì)效益，必須借助計算機(jī)來進(jìn)行現(xiàn)代化的信息管理，然而占著

8、絕大多數(shù)的中小型酒店、賓館由于資金、人員等多方面原因不易使用酒店管理類軟件，全憑原始的手工記錄管理，效率低、易出錯；同時，市場上出現(xiàn)的各 類酒店管理軟件基本上都是為大型酒店專業(yè)設(shè)計的，有很多功能對于一般酒店、賓館根本用不上。結(jié)合酒店前臺管理的需要進(jìn)行擴(kuò)展性而開發(fā)的一套酒店管理系統(tǒng)。該酒店管理系統(tǒng)正是為此而設(shè)計的，本系統(tǒng)是一套適于中小型賓館使用的優(yōu)秀系統(tǒng)。 在旅游業(yè)發(fā)展迅速的今天,賓館、酒店業(yè)的特色經(jīng)營和個性化管理日趨明顯，管理日趨信息化、網(wǎng)絡(luò)化，再加上國際、國內(nèi)名優(yōu)企業(yè)的擴(kuò)展力度的加大，賓館、酒店業(yè)集團(tuán)化的步伐加快，預(yù)示著傳統(tǒng)的賓館、酒店正逐步步向信息化管理——這也是賓館、酒店業(yè)經(jīng)營者們的共

9、識。酒店信息管理系統(tǒng)以信息量大、數(shù)據(jù)準(zhǔn)確、速度快、管理全面等特點(diǎn)，獲得了廣大賓館、酒店業(yè)管理者的一致認(rèn)同，同時滿足了對客戶的高質(zhì)量的服務(wù)。另外酒店管理系統(tǒng)以清晰準(zhǔn)確的賬單、數(shù)據(jù)表格，使客人感到高檔次的享受。對于酒店的員工來說嚴(yán)格的數(shù)據(jù)檢查可避免手工操作的疏忽而造成的錯誤，減輕職工的工作壓力，從而提高工作效率。對于酒店的管理者來說：完備的報表功能和查詢功能使管理者可及時了解飯店各部門的營業(yè)情況。為管理者提供準(zhǔn)時可靠的信息，對管理者做出酒店管理決策提供依據(jù)。酒店管理系統(tǒng)大大的提高了賓館、酒店的工作效率，為賓館、酒店帶來了更大的利潤。 隨著時代的發(fā)展，國內(nèi)越來越多的酒店開始使用酒店信息管理系統(tǒng)。尤

10、其是小型酒店的服務(wù)水平不同，各自的服務(wù)方式不同。所以對于國內(nèi)大多的小型的賓館、酒店來說并不適合使用市場上較為成熟的商品酒店管理系統(tǒng)，所以就需要定制自己的酒店管理系統(tǒng)來提高酒店的管理效率和服務(wù)水平。該酒店管理系統(tǒng)利用Visual Basic語言來編寫的客戶端,并且使用Access數(shù)據(jù)庫,認(rèn)為本系統(tǒng)是適應(yīng)現(xiàn)今中小型酒店工作需求的酒店管理系統(tǒng),具有一定的開發(fā)價值和利用價值。 1.2 系統(tǒng)開發(fā)關(guān)鍵技術(shù)與開發(fā)環(huán)境 1.2.1 Visual Basic 6.0簡介 Visual Basic是微軟公司推出的可視化開發(fā)工具。Visual意為“可視化的”，它是指開發(fā)圖形用戶界面（GUI）時，無須編寫大

11、量代碼去描述據(jù)界面元素的位置和外觀，僅通過簡單的鼠標(biāo)拖放操作即可以“所見即所得”的方式設(shè)計出標(biāo)準(zhǔn)的Windows應(yīng)用程序界面。Basic是指BASIC語言（Beginner’s All-purpose Symbolic Instruction Code,初學(xué)者通用符號指令代碼），這是一種面向初學(xué)者的編程語言。Visual Basic 是基于BASIC的可視化程序設(shè)計語言，它繼承了BASIC語言簡單易懂的特點(diǎn)，采用面向?qū)ο?、事件?qū)動的編程機(jī)制，提供了直觀的可視化程序設(shè)計方法。 1.2.2 Visual Basic 6.0的主要特點(diǎn) 1．面向?qū)ο蟮目梢暬O(shè)計平臺 VB采用了面向?qū)ο笤O(shè)計思想

12、，它基本思路是把復(fù)雜的設(shè)計問題分解為多個能夠完成獨(dú)立功能且相對簡單的對象集合。所謂“對象”就是個可操作實(shí)體如窗體、窗體中命令按鈕、標(biāo)簽、文本框等，面向?qū)ο缶幊叹褪侵赋绦騿T可根據(jù)界面設(shè)計要求直接在界面上設(shè)計出窗口、菜單、按鈕等類型對象并為每個對象設(shè)置屬性。 2．事件驅(qū)動的編程機(jī)制　 在Windows環(huán)境下是以事件驅(qū)動方式運(yùn)行每個對象的都能響應(yīng)多個區(qū)別事件，每個事件都能驅(qū)動一段代碼事件過程，該代碼決定了對象功能。通常稱這種機(jī)制為事件驅(qū)動的編程機(jī)制?？捎捎脩舨僮饔|發(fā)也可以由系統(tǒng)或應(yīng)用觸發(fā)例如單擊個命令按鈕就觸發(fā)了按鈕Click(單擊)事件該事件中代碼就會被執(zhí)行，若用戶未進(jìn)行任何操作(未觸發(fā)事件)

13、則就處于等待狀態(tài)整個應(yīng)用就是由彼此獨(dú)立事件過程構(gòu)成。 3．結(jié)構(gòu)化設(shè)計語言 VB具有豐富的數(shù)據(jù)類型和內(nèi)部函數(shù)，編程語言模塊化、結(jié)構(gòu)化簡單易懂。 4．強(qiáng)大數(shù)據(jù)庫訪問功能 VB利用數(shù)據(jù)Control控件可以訪問多種數(shù)據(jù)庫VB 6．O提供ADOControl控件不但可以用最少代碼實(shí)現(xiàn)數(shù)據(jù)庫操作和控制也可以取代DataControl控件和RDOControl控件。 5．支持對象鏈接和嵌入技術(shù) VB核心是對對象鏈接和嵌入(OLE)技術(shù)支持是訪問所有對象種思路方法利用OLE技術(shù)能夠開發(fā)集聲音、圖像、動畫、字處理、Web等對象于一體的功能強(qiáng)大的軟件。 6．多個應(yīng)用向?qū)? VB提供了多種向?qū)鐟?yīng)用

14、向?qū)А惭b向?qū)?、?shù)據(jù)對象向?qū)Ш蛿?shù)據(jù)窗體向?qū)ㄟ^它們可以快速地創(chuàng)建區(qū)別類型、區(qū)別功能應(yīng)用。 7．支持動態(tài)交換、動態(tài)鏈接技術(shù) 通過動態(tài)數(shù)據(jù)交換(DDE)編程技術(shù)VB開發(fā)應(yīng)用能和其他Windows應(yīng)用的間建立數(shù)據(jù)通信通過動態(tài)鏈接庫技術(shù)在VB中可方便地用C語言或匯編語言編寫也可Windows應(yīng)用接口(．API)。 1.2.3 Visual Basic常用術(shù)語解釋 在以下討論Visual Basic時，經(jīng)常可以聽到這些術(shù)語，因此首先對這些術(shù)語進(jìn)行理解，以下是Visual Basic中最常用到的幾個術(shù)語： 控件——提供程序可見界面的可重用對象。控件的示例有文本框、標(biāo)簽和命令按鈕。 事件——由

15、用戶或操作系統(tǒng)引發(fā)的動作。事件的示例有擊鍵、單擊鼠標(biāo)、一段時間的限制或從端口接收數(shù)據(jù)。 方法——嵌入在對象定義中的程序代碼，它定義對象怎樣處理信息并響應(yīng)某事件。例如，數(shù)據(jù)庫對象有打開紀(jì)錄集并從一個記錄移動到另一個記錄的方法。 對象——程序的基本元素，它含有定義其特征的屬性，定義其任務(wù)和識別它可以響應(yīng)的事件的方法?？丶痛绑w是Visual Basic中所有對象的示例。 過程——為完成任務(wù)而編寫的代碼段。過程通常用于響應(yīng)特定的事件。 　　屬性——對象的特征，如尺寸、位置、顏色或文本。屬性決定對象的外觀，有時也決定對象的行為。屬性也用于為對象提供數(shù)據(jù)和從對象取回信息。 1.3 運(yùn)行環(huán)境

16、 1. 硬件環(huán)境（推薦） 在安裝Visual Basic 6.0時要注意硬盤的剩余空間，下面列出要安裝VB 6.0時所需要的硬件要求。 90MHz或更高的微處理器。 VGA（640480）或者更高的監(jiān)視器。 鼠標(biāo)或其他定點(diǎn)設(shè)備（如指令桿、滾動球等）。 CD-ROM驅(qū)動器。 32MB以上內(nèi)存。 磁盤空間要求 企業(yè)版：典型安裝，128MB；完全安裝，147MB。 2. 軟件環(huán)境（推薦）：操作系統(tǒng)：windows XP。 第二章 酒店管理系統(tǒng)的應(yīng)用優(yōu)勢 2.1 酒店管理的概念 酒店管理信息系統(tǒng)實(shí)質(zhì)上是對酒店運(yùn)行過程中人流、物流、資金流、

17、信息流的管理，提高酒店的管理效益及經(jīng)濟(jì)效益，提高服務(wù)質(zhì)量、工作效率，完善酒店內(nèi)部管理體制，提高酒店決策水平等。從而為酒店管理帶來作業(yè)流程的標(biāo)準(zhǔn)化、服務(wù)水平的量化、快捷有效的溝通手段、經(jīng)驗(yàn)知識的共享、公關(guān)信息的傳播、客戶關(guān)系管理、經(jīng)營成本分析和預(yù)警、數(shù)據(jù)挖掘等。通過IT技術(shù)滲透到酒店營運(yùn)的各個環(huán)節(jié)，可以為酒店帶來收入增長、提高全員生產(chǎn)力、積累數(shù)據(jù)庫資產(chǎn)，從而最終打敗行業(yè)競爭對手。 酒店管理是指酒店管理者用現(xiàn)代化的方法使其下屬各盡其職，使整個酒店能夠正常運(yùn)營。如客房部經(jīng)理的職責(zé)就是要使客房部的員工把客房的清潔服務(wù)工作做好，前廳部經(jīng)理的職責(zé)就是安排前廳員工的接待工作，而銷售部經(jīng)理則要把酒店的客房、

18、宴會、會議、娛樂和健身設(shè)施的銷售工作做好。酒店管理系統(tǒng)一般包含預(yù)定接待、帳務(wù)處理、客房中心、報表中心等功能模塊。 2.2 酒店管理的現(xiàn)狀 2.2.1 市場分析 隨著我國經(jīng)濟(jì)體制改革的不斷深化和我國經(jīng)濟(jì)的快速發(fā)展，我國人民的收入不斷提高，消費(fèi)觀念也有提高，對服務(wù)質(zhì)量的要求也有很大的提高。各地把旅游業(yè)當(dāng)作本地經(jīng)濟(jì)發(fā)展的重要支柱之一。酒店作為人們食宿、娛樂、休閑的場所而得到了快速的發(fā)展。社會上也成立了各種類型，不同規(guī)模的酒店服務(wù)企業(yè)。如何為客戶提供更加準(zhǔn)確及時的服務(wù)，成為各個酒店競爭關(guān)鍵。所以酒店業(yè)務(wù)信息化建設(shè)就成為了客戶衡量酒店提供商服務(wù)標(biāo)準(zhǔn)的一個準(zhǔn)則，信息系統(tǒng)成為了基礎(chǔ)。 隨著全球經(jīng)

19、濟(jì)一體化使酒店業(yè)客源更加豐富多樣化，市場更加廣闊多渠道的同時，酒店業(yè)更面臨著日趨激烈的競爭環(huán)境和不斷攀升的客戶期望，迫使業(yè)內(nèi)人士不斷進(jìn)一步尋求擴(kuò)大酒店銷售、改進(jìn)服務(wù)質(zhì)量、降低管理成本和提升客戶滿意度的新法寶來增強(qiáng)酒店的核心競爭力。其中最有效的手段之一就是大規(guī)模應(yīng)用先進(jìn)的信息化技術(shù)，變革傳統(tǒng)意義上的酒店業(yè)競爭方式和經(jīng)營管理模式以進(jìn)而贏得新競爭優(yōu)勢，在這方面國際上領(lǐng)先的酒店業(yè)一直在不遺余力地探索、實(shí)施和推進(jìn)。Internet作為全球性的計算機(jī)互聯(lián)網(wǎng)，己深入到人們?nèi)粘Ｉ町?dāng)中?，F(xiàn)代計算機(jī)技術(shù)的巨大發(fā)展，使得酒店管理的方式發(fā)生了巨大得變化，就連酒店數(shù)據(jù)的儲存方式也不再只拘泥于傳統(tǒng)的方式。酒店管理系統(tǒng)是

20、建立在分布式數(shù)據(jù)庫上的，凡一切關(guān)于客戶資料、客房資料和酒店資料的管理操作都是依靠分布式數(shù)據(jù)庫來完成的。酒店管理系統(tǒng)主要管理操作包括:客戶信息管理、客房管理以及對酒店資料管理等，它們是酒店管理系統(tǒng)的核心業(yè)務(wù)。 2.2.2 酒店系統(tǒng)發(fā)展水平和現(xiàn)狀 國外酒店業(yè)很早就利用計算機(jī)管理系統(tǒng)來加強(qiáng)管理、提高服務(wù)水平。我國酒店IT的發(fā)展階段主要是以電腦系統(tǒng)的運(yùn)用為標(biāo)志的，電話通訊系統(tǒng)實(shí)際上也是從程控交換技術(shù)出現(xiàn)才獲得質(zhì)的飛躍。與其他行業(yè)相比，IT在酒店業(yè)應(yīng)用的起步晚了十多年。從70年代初期開始，到80年代中整個模式己經(jīng)基本定型、功能成熟，但真正成為酒店經(jīng)營戰(zhàn)略的一部分大規(guī)模應(yīng)用要到90年代。酒店的電腦系

21、統(tǒng)從NCR的主機(jī)/終端形式，到90年代代表性的HJTS基于AS400和DB2的小型機(jī)解決方案及Fedelio基于Clipper的微機(jī)數(shù)據(jù)庫解決方案，直到最近的數(shù)據(jù)庫/應(yīng)用服務(wù)器/客戶方式；從單一的前后臺PMS，演變成為覆蓋酒店各部門各環(huán)節(jié)并對酒店外部輻射的復(fù)雜系統(tǒng)；從財務(wù)/業(yè)務(wù)為核心過渡到以顧客服務(wù)為核心，總體發(fā)展速度呈上升勢頭。雖然酒店管理系統(tǒng)的應(yīng)用至今己有20多年的歷史，但起步發(fā)展較晚，只是一些淺層次應(yīng)用，大多數(shù)還停留于七拼八湊的管理信息系統(tǒng)水平，與國際酒店業(yè)先進(jìn)信息化應(yīng)用的差距非常突出。信息化程度不高導(dǎo)致企業(yè)決策失誤、市場反應(yīng)速度緩慢等，已經(jīng)成為制約我國酒店業(yè)進(jìn)一步發(fā)展的重要瓶頸。

22、 國內(nèi)酒店IT現(xiàn)狀:在80年代初發(fā)展起來的國內(nèi)的酒店管理系統(tǒng)，充分吸收了國外管理系統(tǒng)的精華，再結(jié)合國內(nèi)的實(shí)際情況，逐步發(fā)展成熟，到90年代初期已形成了幾個較成熟的軟件系統(tǒng)，同時，產(chǎn)生了幾家專職從事酒店管理系統(tǒng)的公司。到了90年代中后期，隨著計算機(jī)在酒店中的普及應(yīng)用，計算機(jī)技術(shù)的不斷發(fā)展，酒店管理系統(tǒng)的發(fā)展到了一個新的時期，新的系統(tǒng)平臺、新的系統(tǒng)點(diǎn)及發(fā)展方向不斷涌現(xiàn)，主要體現(xiàn)在系統(tǒng)基本轉(zhuǎn)到客戶機(jī)/服務(wù)器模式下的Windows版，功能更加細(xì)致完善，系統(tǒng)更加穩(wěn)定可靠。 2.3 酒店管理系統(tǒng)應(yīng)用優(yōu)勢 1. 資源完全開放型:系統(tǒng)所有的資源,功能交由用戶管理,權(quán)限控制到按鈕,針對不同的用戶,組

23、裝不同的界面,分配不同的使用功能，不放心再加權(quán)限到按鈕。 2. 系統(tǒng)突出以營銷、預(yù)訂、房源、房價等對營銷具有影響力的信息處理。房價可按房內(nèi)配置和環(huán)境設(shè)定。 3. 強(qiáng)化以客源為中心的信息完整性、長久性、可操作性。建立了以客戶為中心的用戶信息管理系統(tǒng)。 4. 使用數(shù)據(jù)穿透查詢技術(shù),對數(shù)據(jù)進(jìn)性多元,多層次的查詢，從匯總數(shù)據(jù)到明細(xì)發(fā)生,緊密聯(lián)系在一起, 靈活實(shí)用。 5. 客檔、角色、傭金、房價方案、授權(quán)折扣、操作權(quán)限到按鈕、信息向角色發(fā)布，系統(tǒng)既面向應(yīng)用,又面向管理。 6. 酒店集團(tuán)管理系統(tǒng)、采集各成員酒店的原始數(shù)據(jù)、對采集來的數(shù)據(jù)進(jìn)行分類、匯總、分析等處理、形成管理決策所需的數(shù)據(jù)信息、產(chǎn)生

24、各種分析報表。 7. 界面美觀大方、操作方便、系統(tǒng)穩(wěn)定、適應(yīng)性強(qiáng)、操作靈活。 2.4 酒店管理系統(tǒng)的前景 1. 隨著全球經(jīng)濟(jì)的不斷復(fù)蘇與快速發(fā)展，酒店行業(yè)在全球與中國地區(qū)的發(fā)展速度與就業(yè)率將遠(yuǎn)遠(yuǎn)超出傳統(tǒng)型行業(yè)。 2. 酒店行業(yè)其薪金與社會福利收入遠(yuǎn)遠(yuǎn)高于其它傳統(tǒng)行業(yè)，同時隨著工作經(jīng)驗(yàn)的增加其工作地位會穩(wěn)步上升。 3. 今年上海世博會將會大力促進(jìn)中國酒店行業(yè)的蓬勃發(fā)展，其行業(yè)前景非常樂觀。 4. 中國各地大中小城市均把旅游業(yè)作為其經(jīng)濟(jì)增漲的源動力，其政府與社會投資將不斷增加，將會是中國最具活力的行業(yè)。 第三章 酒店信息管理系統(tǒng)的規(guī)劃 3.1 可行性分析 可行性研究的目的

25、，就是用最小的代價在盡可能短的時間內(nèi)確定問題是否能夠解決。要達(dá)到這個目的，必須分析幾種主要的可能解法的利弊，從而判斷原定的系統(tǒng)規(guī)模和目標(biāo)是否能現(xiàn)實(shí)，系統(tǒng)完成后所能帶來的效益是否大到值得投資開發(fā)這個系統(tǒng)的程度。因此，可行性研究實(shí)質(zhì)上是要進(jìn)行一次大大壓縮簡化了的系統(tǒng)分析和設(shè)計的過程，也就是在較高層次上以較抽象的方式進(jìn)行的系統(tǒng)分析和設(shè)計的過程。 系統(tǒng)的可行性分析主要包括經(jīng)濟(jì)上的可行性，技術(shù)上的可行性和操作上的可行性，下面將分別介紹三種技術(shù)上的可行性： 3.1.1 技術(shù)上可行性 酒店管理系統(tǒng)是采用VB語言編寫的，具有VB的“一次編寫，到處運(yùn)行”的優(yōu)點(diǎn)，所以此系統(tǒng)在不同的操作系統(tǒng)上都可以運(yùn)行，具

26、有很強(qiáng)的移植性、健全性和安全性。并且酒店管理系統(tǒng)要求應(yīng)具備功能完備、易于使用、易于維護(hù)等特點(diǎn)，而對于后者則要求能建立數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫?；谝陨系囊螅鞠到y(tǒng)采用VB6.0作為開發(fā)工具，使得代碼編寫的過程大大的簡化。而數(shù)據(jù)庫則是采用目前較為流行的access，VB6.0對access具有很好的支持并且在經(jīng)歷了多年的發(fā)展access具有很好的口碑。此系統(tǒng)在技術(shù)上是可行的。 3.1.2 操作上可行性 該酒店管理系統(tǒng)具備友好的用戶界面,使用方便，易于維護(hù)，操作簡單易于被用戶接受,用戶只需熟練操作計算機(jī)，和對此系統(tǒng)使用做簡單的了解即可方便使用,而且使用此系統(tǒng)可以大大減少管理人

27、員的負(fù)擔(dān)。因此從使用操作方面看，此系統(tǒng)的開發(fā)是可行的。 3.1.3 經(jīng)濟(jì)上可行性 本酒店管理系統(tǒng)運(yùn)行的硬件環(huán)境只需一臺廉價的電腦既可，軟件環(huán)境則是安裝windows XP系統(tǒng)，Visual Basic 6.0、Access數(shù)據(jù)庫既可。對于一般的中小型酒店來說都是很小的成本支出。 因此此系統(tǒng)在經(jīng)濟(jì)上、技術(shù)上、操作上開發(fā)都是可行的。 3.2 系統(tǒng)功能分析 滿足客戶的需求，實(shí)現(xiàn)酒店管理的流程。主要功能包括住宿登記、調(diào)房登記、退宿結(jié)帳、客房設(shè)置、客房查詢、房態(tài)查詢、住宿查詢、退宿查詢、系統(tǒng)設(shè)置等等。 1、住宿登記：完成客人的開單，需要填寫客人的基本信息，可以打印出住宿登記單，作為住宿憑

28、證。 2、調(diào)房登記：完成房間的調(diào)動，要有原房間號和目標(biāo)房間號。 3、退宿結(jié)帳：自動統(tǒng)計每個登記客人在店時所發(fā)生的消費(fèi)額和應(yīng)付款額，并完成結(jié)帳收銀操作。 4、客房設(shè)置：完成房間狀態(tài)的設(shè)置，房間號、房間類型、價格、房態(tài)、配置和使用時間等。 5、客房查詢：查詢房間的使用情況、狀態(tài)、配置等。 6、營業(yè)查詢：完成結(jié)帳單、全部賓客消費(fèi)、在店賓客消費(fèi)、離店賓客消費(fèi)的查詢 7、系統(tǒng)設(shè)置：完成操作員設(shè)置、密碼修改、權(quán)限設(shè)置和基本數(shù)據(jù)初始化等。 3.3 系統(tǒng)E—R圖 房間類型 狀態(tài) 管理 入住 房間 客

29、人 操作員 用戶名 密碼 權(quán)限 房間號 刪除 標(biāo)記 備注 姓名 地址 刪除標(biāo)記 證件號 圖3.1 系統(tǒng)E—R圖 3.4 系統(tǒng)層次模塊圖 酒店管理系統(tǒng) 用戶登錄模塊 用戶登錄是否有效 否 是 房間類型管理 房間信息管理 開 房 退 房 數(shù) 據(jù) 更 新 預(yù) 訂 房 換 房 間 房間類型的添加、刪除、修改、查詢 房間的添加、刪除、修改、查詢 將房間狀態(tài)改為“入住” 退房結(jié)算

30、、更改狀態(tài)及住戶信息 按月、指定日期、姓名查詢?nèi)胱∮涗? 處理換房 圖3.2 系統(tǒng)層次模塊圖 分析與數(shù)據(jù)流圖設(shè)計 1 總流程圖 客人 酒店管理 客人 登錄 離店憑證 圖3.3 系統(tǒng)總流程圖數(shù)據(jù)字典 表1 數(shù)據(jù)流名： 登記 組 成： ｛客戶信息｝+｛房間信息｝+｛押金｝+時間 數(shù)據(jù)項： 客戶信息 組 成： 憑證號碼+姓名+地址+聯(lián)系方式 組 織： 憑證號碼 數(shù)據(jù)項： 客房信息 組

31、 成： 房號+類型+單價+狀態(tài) 組 織： 房間號 數(shù)據(jù)項： 狀態(tài) 取 值： 空房 維修 正在使用 2 第二層流程圖 客人 前臺 停車 后臺 數(shù)據(jù) 數(shù)據(jù) 數(shù)據(jù) 圖3.4 第四章 系統(tǒng)設(shè)計 4.1 系統(tǒng)功能總體設(shè)計 4.1.1 設(shè)計目的 管理信息系統(tǒng)是進(jìn)行信息采集、存儲、加工、維護(hù)和使用的系統(tǒng)，在現(xiàn)代信息社會中，它的應(yīng)用越來越普及。本系統(tǒng)是一個經(jīng)過簡化的MIS應(yīng)用，適合在中

32、小型酒店使用。 4.1.2 系統(tǒng)模塊設(shè)計 前臺計算機(jī)管理系統(tǒng)是整個酒店計算機(jī)管理系統(tǒng)的一個重要組成部分，其主要是為了客房接待、預(yù)訂、收銀等業(yè)務(wù)流程而設(shè)計的，主要包括預(yù)訂管理，接待管理，收銀管理，客房信息管理，報表管理，系統(tǒng)管理等功能子模塊。 系統(tǒng)的模塊設(shè)計如下： （1）. 主模塊設(shè)計如表4-1所示. 表4-1 主模塊設(shè)計 模塊 子模塊 功能 主模塊 整體設(shè)計總界面 對功能模塊和公共輔助模塊有整體的概覽和認(rèn)知 （2）. 公共輔助模塊 公共模塊設(shè)計如表4-2所示。 表4-2 公共模塊設(shè)計 模塊 子模塊 功能 公共輔助模塊 1.查詢模塊 2.信息瀏覽模塊

33、1.查詢客房等基本信息 2.便于工作人員及時掌握客房及客人信息 （3）. 功能模塊 功能模塊設(shè)計如表4-3所示： 表4-3 功能模塊設(shè)計 功能模塊 用戶登錄 用戶登錄 房間類型管理模塊 1.增添房間類型 2.修改房間類型 3.刪除房間類型 4.查詢房間類型 房間信息管理模塊 1.增添房間信息 2.修改房間信息 3.刪除房間信息 4.查詢房間信息 開房功能模塊 記錄用戶信息并將房間狀態(tài)改為“入住” 退房功能模塊 1.算出總費(fèi)用 2.判斷當(dāng)前退房的時間 3.退房成功后把相應(yīng)的房間的“空閑” 4.更新用戶消費(fèi)總金額 預(yù)訂房功能模塊 1.注意房間

34、狀態(tài)，預(yù)定日期前還可以由其他房客入住 2.預(yù)定房間到期未入住的處理 換房間功能模塊 用戶需要時更換房間處理 4.2 數(shù)據(jù)庫設(shè)計 計算機(jī)化的管理信息系統(tǒng)是一個以大量數(shù)據(jù)資源為基礎(chǔ)并以此為中心而建立起來的應(yīng)用系統(tǒng)。其目的是為一個組織中各個部門和各個管理層次提供必要的管理信息和決策數(shù)據(jù)，由于他涉及到應(yīng)用領(lǐng)域中的一定深度和廣度，因而必然要接觸大量不同類型的數(shù)據(jù)。對這些數(shù)據(jù)的合理組織和有效的存儲是管理信息系統(tǒng)中一項至關(guān)重要的工作。 我們這里主要關(guān)心的內(nèi)容包括： （1） 數(shù)據(jù)存儲方式設(shè)計 （2） 數(shù)據(jù)存儲規(guī)模設(shè)計 （3） 數(shù)據(jù)存儲空間的分布 數(shù)據(jù)庫總體結(jié)構(gòu)的設(shè)計對一個管理信息系統(tǒng)的建

35、設(shè)和運(yùn)行具有重要影響。它不同于系統(tǒng)分析，有區(qū)別于系統(tǒng)的詳細(xì)設(shè)計，這一部分工作能使系統(tǒng)分析過程中對數(shù)據(jù)的需求描述從邏輯上進(jìn)一步具體化，又為下一階段的數(shù)據(jù)庫設(shè)計工作從系統(tǒng)上提供較好的支持，起到承上啟下的作用。 通常我們在進(jìn)行數(shù)據(jù)存儲的總體結(jié)構(gòu)設(shè)計時應(yīng)遵循的主要原則是： （1） 數(shù)據(jù)結(jié)構(gòu)的合理性。即數(shù)據(jù)文件的合理組合，數(shù)據(jù)元素的合理歸類和劃分，以及數(shù)據(jù)項的合理描述。 （2） 數(shù)據(jù)存儲的安全性。一般來說，提高安全性的最有效措施是增加數(shù)據(jù)的冗余，而數(shù)據(jù)的大量冗余往往為維護(hù)數(shù)據(jù)一致性帶來困難。這是一對不可調(diào)和分矛盾，對此，我們進(jìn)行合理取舍，在盡量降低冗余的前提下，確保數(shù)據(jù)的安全性和可靠性。 （3）

36、 維護(hù)和管理方便。無論我們設(shè)計什么樣的存儲結(jié)構(gòu)，首先應(yīng)保證對數(shù)據(jù)進(jìn)行管理和維護(hù)上的方便，它是提高系統(tǒng)運(yùn)行效率的基礎(chǔ)。 4.2.1 數(shù)據(jù)表的設(shè)計 1. 數(shù)據(jù)庫的表結(jié)構(gòu)是非常重要的環(huán)節(jié),一個良好的數(shù)據(jù)庫設(shè)計，可以提高效率，方便維護(hù)，并且為以后進(jìn)行功能的擴(kuò)展留有余地。表4-4是系統(tǒng)數(shù)據(jù)庫表的清單。 表4-4數(shù)據(jù)表清單 序號 數(shù)據(jù)表名稱 說明 1 Kf 對房間信息進(jìn)行記錄 2 Djys 對住戶入住信息進(jìn)行記錄 3 Djb 對客戶信息進(jìn)行記錄 4 Ma 操作員的密碼 5 Kfyd 預(yù)定信息記錄 6 Tfd 對住戶退房信息進(jìn)行記錄 7 Gzmx 對客

37、戶掛賬信息進(jìn)行記錄 8 Qxsz 對操作員的權(quán)限進(jìn)行設(shè)置 以下對對各個信息表做詳細(xì)介紹。 (1). 客房表，如表4-5 表4-5 房間信息表 字段名 數(shù)據(jù)類型 備注 房間號 數(shù)字 不允許為空 房間類型 文本 不允許為空 價格 貨幣 不允許為空 標(biāo)志 是/否 不允許為空 備注 文本 可以為空 配置 文本 不允許為空 使用設(shè)置 文本 不允許為空 營業(yè)日期 日期/時間 不允許為空 (2). 客房預(yù)訂表，如表4-6 表4-6 客戶信息表 字段名 數(shù)據(jù)類型 字段說明 備注 姓名 文本 姓名 不允許為空 身份證號

38、 數(shù)字 身份證號 允許為空 聯(lián)系電話 數(shù)字 聯(lián)系電話 允許為空 詳細(xì)地址 文本 詳細(xì)地址 允許為空 工作單位 文本 工作單位 允許為空 客房類型 文本 客房類型 不允許為空 房間價格 貨幣 價格 不允許為空 預(yù)定日期 日期/時間 預(yù)定日期 不允許為空 預(yù)定天數(shù) 數(shù)字 預(yù)定天數(shù) 不允許為空 預(yù)付金額 貨幣 預(yù)付金額 允許為空 備注 文本 其他信息 允許為空 (3). 住宿登記表 表4-7 住戶登記信息表 字段名 數(shù)據(jù)類型 字段說明 備注 證件號碼 數(shù)字 證件號碼 允許為空 姓名

39、文本 客人姓名 不允許為空 詳細(xì)地址 文本 客人住址 允許為空 出差事由 文本 事由 允許為空 房間號 數(shù)字 房間號碼 不允許為空 客房類型 文本 房間類型 允許為空 聯(lián)系電話 數(shù)字 聯(lián)系電話 允許為空 客房價格 貨幣 價格 不允許為空 住宿日期 日期/時間 住宿日期 不允許為空 住宿天數(shù) 日期/時間 天數(shù) 允許為空 宿費(fèi) 貨幣 總費(fèi)用 不允許為空 折扣 數(shù)字 折扣 允許為空 備注 文本 說明 允許為空 (4). 密碼表 表4-8 密碼信息表 字段名 數(shù)據(jù)類型 字段說明 備注 操作員

40、文本 操作員 不允許為空 密碼 數(shù)字 密碼 不允許為空 4.2.2 數(shù)據(jù)庫的配置 本系統(tǒng)的開發(fā)是在 windows XP 下開發(fā)的，開發(fā)數(shù)據(jù)庫使用的是access具體配置步驟如下： (1)打開 access數(shù)據(jù)庫，新建一個數(shù)據(jù)庫，將其命名為kfgl。 (2)在bkfgl中建下列表djb、djys、gzmx、kf、kfyd、ma等數(shù)據(jù)庫表 (3)完成數(shù)據(jù)初始化工作，將表中各字段與域值添加進(jìn)去。 部分具體的數(shù)據(jù)庫設(shè)計如圖4-1到圖4-4所示。 圖4-1 數(shù)據(jù)庫的概貌 圖

41、4-2 登記表 圖4-3 客房信息表 圖4-4 操作員密碼表 第五章 系統(tǒng)實(shí)施 5.1 系統(tǒng)實(shí)施說明 系統(tǒng)實(shí)施階段的工作與前幾個階段的工作相比較，所涉及的人力和物力都要多的多。在這個階段，整個系統(tǒng)的具體實(shí)施工作將要逐步開展，大量的各類專業(yè)技術(shù)人員將陸續(xù)加入到各個項目的研制中來。由于各項工作之間的相互聯(lián)系，所以任何一項工作的延誤都會影響到整個系統(tǒng)實(shí)施的進(jìn)度。具體說來，系統(tǒng)實(shí)施階段的工作就是要將系統(tǒng)設(shè)計階段得到的目標(biāo)系統(tǒng)物理模型轉(zhuǎn)換為可實(shí)際運(yùn)行的軟件系統(tǒng)。一個好的系統(tǒng)設(shè)計方

42、案只有經(jīng)過精心實(shí)施，才能帶來實(shí)際的效益。因此，實(shí)施階段的工作對管理信息系統(tǒng)的最終質(zhì)量有著直接的聯(lián)系。 系統(tǒng)實(shí)施階段的具體任務(wù)包括：計算機(jī)物理系統(tǒng)的實(shí)施，應(yīng)用軟件的編寫與調(diào)試，人員培訓(xùn)，數(shù)據(jù)準(zhǔn)備，系統(tǒng)轉(zhuǎn)換等。硬件的購置和安裝包括計算機(jī)硬件、外設(shè)、網(wǎng)絡(luò)、電源、機(jī)房、環(huán)境等有關(guān)設(shè)備的購買、驗(yàn)收、安裝與調(diào)試工作等，這些工作主要由專業(yè)技術(shù)人員完成。 其中數(shù)據(jù)準(zhǔn)備與錄入工作主要是指由手工操作轉(zhuǎn)入計算機(jī)處理所需的各種數(shù)據(jù)的整理、錄入及計算機(jī)系統(tǒng)中為新系統(tǒng)所用數(shù)據(jù)的轉(zhuǎn)換工作。數(shù)據(jù)準(zhǔn)備與錄入工作要注意數(shù)據(jù)的準(zhǔn)確性，在整理、錄入、校驗(yàn)等各個環(huán)節(jié)把好關(guān)，為系統(tǒng)的順利轉(zhuǎn)換打好基礎(chǔ)。 而選擇良好的程序設(shè)計和工具又

43、是設(shè)計高質(zhì)量程序的基礎(chǔ)，但是必須明確程序設(shè)計的要求標(biāo)準(zhǔn)才能保證程序設(shè)計工作的高質(zhì)量。一般說，程序的設(shè)計要具有可靠性，實(shí)用性，規(guī)范性，可讀性和可維護(hù)性的特點(diǎn)。 系統(tǒng)在實(shí)施階段要對專業(yè)人員進(jìn)行合理培訓(xùn)。系統(tǒng)投入使用之后，這些人是系統(tǒng)的使用者，也是系統(tǒng)的組成部分。為了保證目標(biāo)系統(tǒng)的正常運(yùn)行，必須根據(jù)用戶的實(shí)際情況，對缺乏計算機(jī)知識的業(yè)務(wù)人員，進(jìn)行培訓(xùn)，使之能適應(yīng)，熟悉新系統(tǒng)的工作環(huán)境和操作方式。 5.2 登錄界面 用戶登錄界面中用戶名選項為數(shù)據(jù)庫中已經(jīng)存在的用戶名，所以用戶只需選擇相應(yīng)的用戶名即可。用戶登錄界面如圖5.1所示： 圖 5.1 用

44、戶登錄界面 登錄界面的核心代碼如下： Private Sub cmdok_Click() If DBrs2.BOF = False Then DBrs2.MoveFirst End If sqlstr = "操作員 like " & Dcomczy.BoundText & "" DBrs2.Filter = sqlstr If DBrs2.EOF Then MsgBox ("操作員輸入錯誤") Else sqlstr = "操作員=" & Dcomczy.BoundText & "" DBrs1.Filter = sqlstr If Dcomc

45、zy.BoundText <> "" And Dcomczy.Text <> "" _ And txtpwd.Text = DBrs1.Fields("密碼") Then main.loginname = Dcomczy.Text Load main main.Show Unload Me Else If TIM = 3 Then myval = MsgBox("密碼輸入錯誤，請向操作員查詢!", 0, "") If myval = vbOK Then End End If End I

46、f If Dcomczy.BoundText = "" Then MsgBox ("請輸入操作員!") Dcomczy.SetFocus Else If Dcomczy.BoundText <> DBrs1.Fields("操作員") Then MsgBox ("查無此操作員，請重新輸入操作員!") Dcomczy.SetFocus Else If txtpwd.Text = "" Then MsgBox ("請輸入操作員密碼!") txtpwd.SetFocus

47、 Else If txtpwd.Text <> DBrs1.Fields("密碼") Then MsgBox ("密碼輸入錯誤，請重新輸入密碼!") TIM = TIM + 1 txtpwd.SetFocus End If End If End If End If End If End If End Sub 5.3 主界面 系統(tǒng)的主界面是系統(tǒng)的所有功能的入口,主要由住宿管理、客房管理、掛賬管理、查詢統(tǒng)計、系統(tǒng)設(shè)置等面板組成，系統(tǒng)主界面如圖5.2：

48、 圖5.2 系統(tǒng)主界面 主界面的核心代碼如下： Private Sub Form_Activate() If DBcnn.State = 0 Then Dim connectstr As String connectstr = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _ App.Path & "\KFGL.mdb;Persist Security Info=False" DBcnn.CursorLocation = adUseClient DBcnn.Op

49、en connectstr End If If DBrs.State = 1 Then DBrs.Close End If sqlstr = "select * from qxsz " DBrs.Open sqlstr, DBcnn, adOpenStatic, adLockBatchOptimistic With DBrs If .BOF = False Then .MoveFirst .Find "操作員 like %" & loginname & "%" If .RecordCount = 0 Then Else main.zsdj.Enable

50、d = .Fields("住宿登記") main.Label1.Enabled = .Fields("住宿登記") main.tf.Enabled = .Fields("退宿登記") main.Label2.Enabled = .Fields("退宿登記") main.tfdj.Enabled = .Fields("調(diào)房登記") main.kfsz.Enabled = .Fields("客房管理") main.kfcx.Enabled = .Fields("客房查詢") main.ftck.Enabled = .Fields("房態(tài)查看") ma

51、in.gzcx.Enabled = .Fields("掛賬查詢") main.khjk.Enabled = .Fields("客戶結(jié)款") main.zscx.Enabled = .Fields("住宿查詢") main.Label3.Enabled = .Fields("住宿查詢") main.tfcx.Enabled = .Fields("退宿查詢") main.sftx.Enabled = .Fields("宿費(fèi)提醒") main.Label5.Enabled = .Fields("宿費(fèi)提醒") main.Label4.Enabled = .Fi

52、elds("客房銷售報表") End If End With End Sub 5.4 住宿登記界面 住宿登記界面用來登記客人住宿的基本信息，包括客人姓名、憑證號碼、聯(lián)系地址、住宿事由、房間號碼、客房標(biāo)準(zhǔn)、客房價格、住宿天數(shù)和備注等內(nèi)容。住宿登記界面如圖5.3所示： 圖5.3 住宿登記界面 住宿登記的核心代碼： Private Sub Form_Activate() If DBcnn.State = 0 Then Dim connectstr As String connectstr = "Provider=Mi

53、crosoft.jet.OLEDB.4.0;Data Source=" & _ App.Path & "\KFGL.mdb;Persist Security Info=False" DBcnn.CursorLocation = adUseClient DBcnn.Open connectstr End If If DBrs1.State = 1 Then DBrs1.Close End If If DBrs2.State = 1 Then DBrs2.Close End If If DBrs3.St

54、ate = 1 Then DBrs3.Close End If DTP1.Value = Date tim1.Value = Time tim2.Value = #12:00:00 PM# DTP2.Value = Date DTP3.Value = Date czy.Text = main.loginname Comdj.SetFocus End Sub Private Sub Combo2_Click() If Trim(Combo2.Text) = "折扣" Then ZSDJ(8).Enabled = True ZS

55、DJ(8).SetFocus End If If Trim(Combo2.Text) = "招待" Then ZSDJ(8).Enabled = True ZSDJ(8).Text = 0 End If End Sub Private Sub ZSDJ_Change(Index As Integer) Select Case Index Case 6 ZSDJ(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), "0.00") ZSDJ(9).Text = ZSDJ(7).Te

56、xt ZSDJ(8).Text = 100 DTP3.Value = DTP1.Value + Val(ZSDJ(6).Text) Case 8 ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, "0.00") Case 10 If ZSDJ(10).Text <> "" Then ZSDJ(10).Text = Val(ZSDJ(10).Text) DTP2.Value = DTP1.Value + Int(Val(ZSDJ(10).Text)

57、 / Val(ZSDJ(5).Text)) If (Val(ZSDJ(10).Text) - Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text))) > 0.5 * Val(ZSDJ(5).Text) Then tim2.Value = #6:00:00 PM# Else tim2.Value = #12:00:00 AM# End If End If End Select End Sub 5.5 客房管理 客房管理包括客房設(shè)置、客房查詢、房態(tài)查看。 （1）、客房設(shè)置 可以對客

58、房的類型、房態(tài)、價格、營業(yè)日期、使用設(shè)置、配置等進(jìn)行修改，如當(dāng)該客房已經(jīng)有人入住，這要將其狀態(tài)改為入住。 客房設(shè)置界面如圖5.4所示： 圖5.4 客房設(shè)置 （2）客房查詢 輸入房間號可以查看房間的屬性，如：房間類型、價格、房態(tài)、配置、營業(yè)日期等。 （3）房態(tài)查看 有客人入住，可以先查看房間狀態(tài)，為空則可入住，不為空則說明該房間有人在使用。 使用房態(tài)查看圖，清新明了，方便快捷。如下圖所示： 圖5.6 房態(tài)查看 房態(tài)查看核心代碼： Private Sub Form_Activate() Dim i As Integ

59、er Dim criteria As String Dim DBcnn As New ADODB.Connection Dim DBrs1 As New ADODB.Recordset Dim DBrs2 As New ADODB.Recordset Dim DBrs3 As New ADODB.Recordset If DBcnn.State = 0 Then Dim connectstr As String connectstr = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _

60、 App.Path & "\KFGL.mdb;Persist Security Info=False" DBcnn.CursorLocation = adUseClient DBcnn.Open connectstr End If If DBrs1.State = 1 Then DBrs1.Close End If If DBrs2.State = 1 Then DBrs2.Close End If If DBrs3.State = 1 Then DBrs3.Close End If

61、sql = "select * from kf " Set DBrs1 = DBcnn.Execute(sql) sql = "select * from kf where kf.房態(tài) like %入住%" Set DBrs2 = DBcnn.Execute(sql) sql = "select * from kf where kf.房態(tài) like %維修%" Set DBrs3 = DBcnn.Execute(sql) For i = 1 To 25 criteria = "房間號=" & Trim(Command1(i).Caption) & "" DBrs

62、1.Filter = criteria If Not DBrs1.EOF Then If DBrs1.Fields("房態(tài)") = "空房" Then Command1(i).Picture = LoadPicture("") End If If DBrs1.Fields("房態(tài)") = "入住" Then Command1(i).Picture = LoadPicture(App.Path & "\image\rz.ico") End If If DBrs1.Fields("房態(tài)") = "維修"

63、Then Command1(i).Picture = LoadPicture(App.Path & "\image\wx.ico") End If End If Next i If Not DBrs2.EOF Then DBrs2.MoveLast If Not DBrs3.EOF Then DBrs3.MoveLast Labsy.Caption = DBrs2.RecordCount Labwx.Caption = DBrs3.RecordCount Labkx.Caption = 25 - Val(Labwx.Caption) - Val(Lab

64、sy.Caption) Labsyl.Caption = Val(Labsy.Caption) / 25 * 100 & "%" End Sub 5.6 查詢統(tǒng)計 查詢統(tǒng)計主要是對住宿、退宿、宿費(fèi)提醒的設(shè)置。 （1） 住宿查詢 下圖是部分住宿查詢圖： 圖5.7 住宿查詢表 （2） 退宿查詢 方便查詢退宿房間，以便及時更改房間狀態(tài)，也可以將過時的記錄刪除。 5.7 系統(tǒng)設(shè)置 系統(tǒng)設(shè)置包括操作員設(shè)置、密碼設(shè)置、初始化、權(quán)限設(shè)置。 （1）. 操作員設(shè)置 可以新建一個操作員，并為其設(shè)置密碼，其界面下圖所示：

65、 圖5.9 輸入操作員名字，并設(shè)置密碼，再次輸入密碼確認(rèn)，若與上面的不一致，這會跳出提示對話框。設(shè)置成功后確定即可。 核心代碼如下： Private Sub cmdok_Click() If DBcnn.State = 0 Then Dim connectstr As String connectstr = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _ App.Path & "\KFGL.mdb;Persist Security Info=False" D

66、Bcnn.CursorLocation = adUseClient DBcnn.Open connectstr End If If DBrs.State = 1 Then DBrs.Close End If If txtczy.Text <> "" Then If txtpwd.Text <> "" Then Dim sqlstr As String sqlstr = "insert into qxsz (操作員，密碼) values (" & txtczy.Text & "," & txtpwd.Text & ")" DBcnn.Execute sqlstr txtczy.Text = "" txtpwd.Text = "" txtqrpwd.Text = "" MsgBox ("操作員設(shè)置成功！") End If Else MsgBox ("請輸入操作員！") End If End Sub （2）. 設(shè)置好操作員以后，