【正文】 ry one courage sharpeh another. In cases of great enterprise, upon charge and adventure, a position of glorious natures doth put life into business。s eve, to the Brocken。在這里我要感謝所有曾給予我指導(dǎo)和幫助的學(xué)院的老師們，沒有你們不厭其煩的教誨，就沒有我的今天。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。先查詢出結(jié)果 OpenTable , select * from Room order by RoomNo,RoomRate With drpRoomRequired Set .DataSource = 39。第一列標(biāo)題和寬度 .Columns(0).Caption = 登記號(hào) .Columns(0).Width = 80 .Columns(0).AllowSizing = False 39。窗體標(biāo)題 .Caption = 修改客人信息 . = !BookNo . = True . = !GuestName . = !CardID .txtRoomNo = !RoomNo . = !BookDate 39。 主要代碼如下所示： Private Sub cmdAddNew_Click() With frmGuestInfoEdit 39。默認(rèn)教師為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。重新輸入密碼 SendKeys {HOME}+{END} End If End Sub 系統(tǒng)主界面 當(dāng)輸入用戶名和密碼正確則進(jìn)入系統(tǒng)主界面，如圖 所示。沒找到記錄 strUserName = strPassword = End If If strUserName = And strPassword = Then 39。, , adSearchForward, 1 39。同時(shí)通過(guò)登陸信息輸入來(lái)確認(rèn)使用權(quán)限， 管理員通過(guò)登陸系統(tǒng)后，便可 進(jìn)行管理和維護(hù)。 （ 6）接待團(tuán)體（已預(yù)訂） 表 7：接待預(yù)訂團(tuán)體數(shù)據(jù)字典 數(shù)據(jù)處理名：查詢驗(yàn)證預(yù)訂表 簡(jiǎn) 述：核對(duì)客人的預(yù)訂表是否與數(shù)據(jù)庫(kù)中的相符 輸 入：預(yù)訂證明表，來(lái)源：外部實(shí)體 “ 客人 ” 輸 出：登記表，去處：查詢客房 接待團(tuán)隊(duì)（已預(yù)定）的過(guò)程與接待未預(yù)訂的相似，只是開始要驗(yàn)證 “ 預(yù)訂表 ” ，同時(shí)不必進(jìn)行客人查詢而可 直接入住。預(yù)訂完成。 備注 ： 按照客人從住店、離店的過(guò)程將系統(tǒng)劃分為預(yù)訂、接待、取消預(yù)訂和離店四個(gè)處理過(guò)程。 4．帳務(wù)系統(tǒng) 除具有收銀系統(tǒng)的功能外，還具有糾錯(cuò)、報(bào)表輸出等功能，能將損失降至最低 5．管家系統(tǒng) 設(shè)置凈房、臟房、壞房、及取消壞房 設(shè)置 SKIP 房、 SLEEP 房 查詢凈房表、臟房表、壞房表 房間狀態(tài) 新入住查詢 6．電話系統(tǒng) 自動(dòng)計(jì)費(fèi) 夜審系統(tǒng) 夜間稽核應(yīng)該是控制酒店經(jīng)營(yíng)的一個(gè)核心部分 ,每天的經(jīng)營(yíng)情況都必須經(jīng)由夜間審核 .本系統(tǒng)提供的功能有 :過(guò)房租 .每天一次地將在住客的帳目加上當(dāng)天的房租費(fèi)用日營(yíng)業(yè)報(bào)表 .將當(dāng)天的收入分類統(tǒng)計(jì) .產(chǎn)生客人余額表 .客人明細(xì)帳查詢 .便于夜審人員核對(duì)明細(xì)帳 . 客人信息查詢 動(dòng)態(tài)房態(tài)查詢 房間明細(xì)帳查詢 收銀員報(bào)表 當(dāng)日入住客人報(bào)表 7．客歷系統(tǒng) 客人資料手工、自動(dòng)輸入 客人資料查詢與修改 黑名單 入住客人自動(dòng)查詢客歷 入住客人自動(dòng)歸入客歷 客歷合并 8．合約系統(tǒng) 可將酒店簽約的單位或個(gè)人的資料輸入電腦，并可隨時(shí)查詢、修改和刪除。系統(tǒng)還設(shè)計(jì)了限制消費(fèi)的功能。 （ 5）報(bào)表是一個(gè) Access 對(duì)象，設(shè)計(jì)來(lái)顯示數(shù)據(jù)，其作用類似于窗體，但主要是用于數(shù)據(jù)打印，不能輸入數(shù)據(jù)。每一行稱為一個(gè)“記錄”，包含與單個(gè)實(shí)體有關(guān)的所有信息，如某個(gè)員工的姓名、性別、所在部門、學(xué)歷等。換句話說(shuō)，程序員在很大程度上可以與數(shù)據(jù)庫(kù)交互作用，而不用擔(dān)心網(wǎng)絡(luò)上由誰(shuí)來(lái)提供服務(wù)。除了一般應(yīng)用程序外，程序員還能創(chuàng)建文檔、 DLLs、 OLE服務(wù)器和 ActiveX控件。在微軟的其它應(yīng)用程序，如 WORD 字處理軟件、 EXCEL 電子報(bào)表軟件、 ACCESS 數(shù)據(jù)庫(kù)軟件中都做了改變，使得它們可以與 Visual Basic 一致工作。 Visual Basic 不僅是 Visual Basic 編程語(yǔ)言。考慮到我這個(gè)系統(tǒng)針對(duì)的用戶，已經(jīng)價(jià) 格方面的考慮，完全可以使用 Access 來(lái)進(jìn)行開發(fā)，而且我在使用 Visual Basic的時(shí)候，操作數(shù)據(jù)庫(kù)方面使用的是微軟提供的數(shù)據(jù)訪問(wèn)接口，先我們來(lái)了介紹一下 Visual Basic 以及微軟提供了哪些數(shù)據(jù)庫(kù)訪問(wèn)方法，并且各自都有什么特點(diǎn)。由于本系統(tǒng)是一個(gè)小型的 MIS 管理系統(tǒng)，因此對(duì)計(jì)算機(jī)硬件的要求不高，比較經(jīng)濟(jì)，只要配備有 PII300 處理器（或以上）、 64M 內(nèi)存（或以上）、 20G硬（或以上）的普通微機(jī)即可順利運(yùn)行。 綜上所述，開發(fā) 酒店客房管理 系統(tǒng)在技術(shù)上、經(jīng)濟(jì)上、都是可行的。 ：能有效的提高房率，增加營(yíng)業(yè)收入。 傳統(tǒng)的 酒店客房管理 往往令管理者花大量的時(shí)間來(lái)處理顧客投訴，例如錯(cuò)誤查詢、煩瑣的登記和結(jié)帳手續(xù)、旅客費(fèi)用計(jì)算錯(cuò)誤、空余客房資料不能及時(shí)提供等，從 而影響出租率，使的管理人員不得不集中精力規(guī)劃管理運(yùn)行策略和進(jìn)行決策。以上問(wèn)題可通過(guò)電腦系統(tǒng)輔助解決， 酒店客房管理 的電腦化，不僅是體現(xiàn)酒店現(xiàn)代化形象的一個(gè)重要標(biāo)志 ，而且對(duì)于提高員工工作效率，加速資金周轉(zhuǎn)、降低各項(xiàng)成本及改善服務(wù)質(zhì)量都有十分積極的作用。 傳統(tǒng)的 酒店客房管理 往往令管理者花大量的時(shí)間來(lái)處理顧 客投訴，例如錯(cuò)誤查詢、煩瑣的登記和結(jié)帳手續(xù)、旅客費(fèi)用計(jì)算錯(cuò)誤、空余客房資料不能及時(shí)提供等，從而影響出租率，使的管理人員不得不集中精力規(guī)劃管理運(yùn)行策略和進(jìn)行決策。 酒店客房管理 系統(tǒng)將先進(jìn)的電腦技術(shù)與現(xiàn)代酒店服務(wù)管理完美地結(jié)合起來(lái)，實(shí)現(xiàn)了住宿、餐飲、娛樂(lè)全新概念的服務(wù)和管理方式。 總之，使用該 酒店客房管理 系統(tǒng)，將會(huì)有以下好處： ，打印帳單：快速準(zhǔn)確，減少賓客等待時(shí)間，并可杜 絕收銀過(guò)程中的舞弊現(xiàn)象。 經(jīng)濟(jì)上可行：由于 酒店 急需采用計(jì)算機(jī)來(lái)進(jìn)行管理，因此對(duì)開發(fā) 酒店客房管理 系統(tǒng)大力支持，開發(fā)經(jīng)費(fèi)沒有問(wèn)題。 硬件平臺(tái)是指開發(fā)與運(yùn)行所需要的硬件環(huán)境，主要 包括計(jì)算機(jī)機(jī)型及硬件配置。這個(gè)是個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng)，系統(tǒng)，所以我們必須得選一個(gè)合適的數(shù)據(jù)庫(kù)。專業(yè)人員可以用 Visual Basic 實(shí)現(xiàn)其它任何 Windows 編程 語(yǔ)言的功能，而初學(xué)者只要掌握幾個(gè)關(guān)鍵詞就可以建立實(shí)用的應(yīng)用程序。沒過(guò)多久 Visual Basic 的下兩個(gè)版本 Visual 和Visual 接踵而至，一種內(nèi)建的新的控件類型 —— 數(shù)據(jù)控件，能夠使創(chuàng)建一個(gè)與數(shù)據(jù)庫(kù)交互作用的應(yīng)用程序變得令人驚訝的容易。它給予了程序員長(zhǎng)期期待的不用離開 Visual Basic 環(huán)境，就可以創(chuàng)建新的定制控件類型和創(chuàng)建其它項(xiàng)目類型的能力。其最重要的一個(gè)改進(jìn)就是增加了 ADO 數(shù)據(jù)控件，它可以縮小本地和遠(yuǎn)程數(shù)據(jù)控件之間的差別。每一列叫做一個(gè)“字段”，包含特定類型的信息，如姓名或?qū)W歷。在 Access 中，可以創(chuàng)建一個(gè)窗體，用來(lái)同時(shí)查閱單個(gè)表或多個(gè)表中的數(shù)據(jù)，還可以打印和顯示窗體。對(duì)?？涂墒褂孟到y(tǒng)的客歷資料預(yù)定及陪房，可大大減少資料的輸入 2．前臺(tái)接待系統(tǒng) 散客入住登記 合約入住登記 團(tuán)體自動(dòng)入住和手動(dòng)入住 補(bǔ)填客單 修改客人信息、轉(zhuǎn)房、調(diào)房、設(shè)置房態(tài)、客人留言 預(yù)定客房查詢 可售客房查詢 客人一旦入住酒店，將允許客人先消費(fèi)（簽單），后付帳（使用一卡通）。如果系統(tǒng)檢測(cè)到某團(tuán)的成員全部已退房，團(tuán)主單也隨即自動(dòng)退出。 組 成：歷史客人信息表 +房間占用信息表 +IC卡管理表 數(shù) 據(jù) 庫(kù) 2： 組 成：酒店日常消耗品庫(kù)存管理表 +日現(xiàn)金帳目表 數(shù) 據(jù) 庫(kù) 3： 說(shuō) 明：停車場(chǎng)建立的有關(guān)車輛進(jìn)出 停車場(chǎng)的時(shí)間及費(fèi)用信息表。進(jìn)行訂房，將預(yù)訂信息記入 “ 客人預(yù)訂信息表 ” ，修改 “ 客房預(yù)訂信息表 ” 的客房狀態(tài)，給客人預(yù)訂證明表。 輸 入：住房登記表，來(lái)源：查詢空房 輸 出：交款，去處：收銀處理 數(shù)據(jù)流名稱：押金收據(jù) 簡(jiǎn) 述：在收銀后所開出的證明，用于記載客人住房時(shí)交的押金 組 成：身份證號(hào) +姓名 +押金金額 +房間數(shù)量、類別 +入住時(shí)間 +離開時(shí)間 （ 5） 接待個(gè)人（未預(yù)訂的客人） 接待的客人是個(gè)人時(shí)，過(guò)程基本與接待團(tuán)隊(duì)相同，首先通過(guò) “ 目前房間占用信息表 ” 查詢目前有無(wú)空房，有則填 “ 住房登記表 ” ，根據(jù)客人的信息核對(duì) “ 客人黑名單 ” 、 “ 掛帳個(gè)人 ” 等多個(gè)表，確認(rèn)后收取住房押金，將客人的有關(guān)信息記入 “ 歷史客人信息表 ” 并用寫卡機(jī)將客人的 ID寫入 IC 卡。 輸 入：退房憑證 ，來(lái)源：退房 輸 出：離店發(fā)票，去處：外部實(shí)體 “ 客人 ” 第四章 系統(tǒng)實(shí)現(xiàn) 4． 1 登錄界面 在登陸界面中，如圖主要是對(duì)用戶的身份進(jìn)行確認(rèn)，在界面中需要輸入用戶名和密碼，密碼用 **號(hào)顯示，確保用戶信息的安全性。 39。找到記錄 strUserName = !Name strPassword = !Password Else 39。退出整個(gè)程序 End If 39。默認(rèn)班級(jí)類型為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If 39。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End With End If End Sub 客人信息模塊 本 模塊是主要是對(duì)客人模塊的資料進(jìn)行操作，本模塊需要記錄客人的姓名，身份證號(hào)碼，房間號(hào)，登記日期等等資料，若發(fā)現(xiàn)錯(cuò)漏，可以進(jìn)行添加及修改等功能。有就提示，然后退出 !RoomStatus = False End If With .Delete End With End If End With End If End Sub Private Sub cmdEdit_Click() If True And True Then With frmGuestInfoEdit 39。不允許修改（設(shè)為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。End Sub Private Sub mnuReportRoom_Click() 39。另外，在整個(gè)開發(fā)的過(guò)程中，時(shí)間也比較倉(cāng)促。 另外， 四 年的大學(xué)生活即將結(jié)束，非常懷念在校期間的點(diǎn)點(diǎn)滴滴，特別是與教師們之間的交流與溝通。t know what that is! The journey of the witches on broomsticks is well enough known that journey is taken on St. John39。