【正文】 yCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub texjg_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DTP1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。設(shè)置控件有效或無效 = False: = False = True: = True End Sub Private Sub cancel_Click() 39。 39。查詢客房信息 = select * from kf where like + Chr(34) + + * + Chr(34) + End Sub Private Sub Command2_Click() 39。實施報表數(shù)據(jù)源綁定 39。 系統(tǒng)運行環(huán)境： 586 以上 PC 機， 256M 內(nèi)存， WINDOWS 98 操作系統(tǒng)。驗收測試的目的是驗證系統(tǒng)確實能夠滿足用戶的需要。在工資管理系統(tǒng)測試中，按照前面的“工資管理系統(tǒng)的層次圖”，采用自頂向下的方式進(jìn)行測試?？傊?，使用本酒店客房管理系統(tǒng)，將會有以下優(yōu)點： （ 1）電腦收銀，打印帳單：快速準(zhǔn)確，減少賓客等待時間，并可杜 絕收銀過程中的舞弊現(xiàn)象。 另外，大學(xué)生活即將結(jié)束，非常懷念在校期間的點點滴滴，特別是與教師們之間的交流與溝通。 out of breath, the thumping of his own heart the only39。 but his stomach revolted at the thought of the raw flesh, and he did not know how he might build a fire, although Ignacio seemed to have done so the night before. Raw fish, even if he were able to catch a fish, would be as bad, or worse, than raw monkey。t think I said anything. He tested the dark water with his foot and found that it was very cold. You gave a little gasp, I fancy. I heard it, and I said to myself, that39。t want to be looked at, doesn39。 and then a turtle and a hedgehog that turned into armadillos for the love of God, Montressor. He said, Why didn39。 when he was there, there wasn39。 she looked up as she saw him, a nd smiled. Hello, he said. Hello, Nicholas. I thought I heard you. I wasn39。 fore and knew on which side of hunger he stood。s thumbnailshowing like spectators who lined the railings of his lips. Don39。 參考文獻(xiàn) [1]田金蘭 . Visual Basic 6 使用指南 [M].北京：電子工業(yè)出版社， 2021. [2]Jeffrey. Visual Basic 6 數(shù)據(jù)庫訪問技術(shù) [M].北京：機械工業(yè)出版社， 2021. [3]潘錦平 . 軟件開發(fā)技術(shù) [M].西安：西安電子科技大學(xué)出版社， 1999. [4]王珊等 .數(shù)據(jù)庫系統(tǒng)概論 [M].北京：高等教育出版社， 2021. [5]陸麗娜 .軟件工程 [M].北京：經(jīng)濟科學(xué)出版社， 2021. [6]周國民 .Visual Basic+Access 數(shù)據(jù)庫項目開發(fā)實踐 [M].北京： 中國鐵道出版社 ,2021. [7] 何玉潔 .數(shù)據(jù)庫原理與應(yīng)用教程 [M]. 北京：機械工業(yè)出版社 ,2021. 致 謝 在這里首先感謝我的指導(dǎo)老師劉景芝老師，在我的畢業(yè)設(shè)計階段給予耐心的指導(dǎo)、很大的幫助。 盡管該酒店客房管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是酒店客房管理系統(tǒng)所必需的。這種每 次增加一個模塊的方法稱為漸增式測試，這種方法實際上同時完成單元測試和集成測試。 （ 3）系統(tǒng)測試是把經(jīng)過測試的子系統(tǒng)裝配成一個完整的系統(tǒng)來測試。 軟件測試的目標(biāo)如下： （ 1） 測試是為了發(fā)現(xiàn)程序中的錯誤而執(zhí)行程序的過程 。End Sub Private Sub mnuReportRoom_Click() 39。自動識別數(shù)據(jù)庫路徑 = amp。 amp。編輯客房信息 If Then (房間號 ) = If Then (房態(tài) ) = If Then (房間類型 ) = If Then (價格 ) = If Then (營業(yè)日期 ) = If Then (使用設(shè)置 ) = If Then (配置 ) = If Then (備注 ) = If Then (標(biāo)志 ) = 0 39。 39。點擊主界面的客房管理可以看到客房查詢在點擊客房查詢會出下如圖 10 所示的客房信息圖，此模塊的功能是管理員可以通過本模塊對系統(tǒng)的進(jìn)行新房間的添加，對已有房間資料的修改或刪除等操作，界面簡單，易于操作。驗證操作員及密碼 If = False Then 操作員 like + Chr(34) + + Chr(34) + If Then MsgBox (操作員輸入錯誤 !) Else = select * from qxsz where 操作員 =39。定義一個整型變量 Dim myval As String 39。完整性控制的主要目的是防止語義上不正確的數(shù)據(jù)進(jìn)入數(shù)據(jù)庫。結(jié)算 信息查詢，查詢到的信息包括登記號、 結(jié)算 日期、付款金額。 針對一般酒店客房管理信息系統(tǒng)的需求，通過對酒店客房管理過程的內(nèi)容和流程分析，設(shè)計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu) ： （ 1）客房標(biāo)準(zhǔn)信息，包括的數(shù)據(jù)項有：標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、住房單價等。因此系統(tǒng)的開發(fā)完全可行的。因此，系統(tǒng)的軟件開發(fā)平臺已成熟可行。酒店電腦系統(tǒng)要求 24 小時連續(xù)運行，數(shù)據(jù)量大，可靠性要求高，因此整個電腦系統(tǒng)供電采用專線方式，加配 UPS（不間斷供電系統(tǒng)），并合理接地，以便保障整套系統(tǒng)的正常運行。可見，酒店客房管理電腦化勢在必行。 （ 1）硬件 主要包括計算機機型及硬件配置。 （ c）界面友好、易操作 Access 是一個可視化工具，是風(fēng)格與 Windows 完全一樣，用戶想要生成對象并應(yīng)用，只要使用鼠標(biāo)進(jìn)行拖放即可，非常直觀方便。不同的對象，在程序中所賦給它的功能 也 是不同的 ，所以選擇 VB作為開發(fā)軟件。很 多 的屬性值可以在運行時候隨著用戶的 操 作和修改進(jìn)行改動，這樣就形成了一 ?動態(tài)的程序 。 （ 1） Visual Basic 的特點 Visual Basic 是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。這些優(yōu)點能夠極大地提高賓館管理的效率，也是酒店的科學(xué)化、正規(guī)化管理，與世界接軌的重 要條件。信息社會的高科技，商品經(jīng)濟化的高效益，使計算機的應(yīng)用已普及到經(jīng)濟和社會生活的各個領(lǐng)域。這里給出的定義強調(diào)了管理 信息系統(tǒng)的功能和性質(zhì)，也強調(diào)了管理信息系統(tǒng)中的計算機對企業(yè)管理而言只是一種工具。 現(xiàn)在在我國一些地方 的酒店 客房 管理 水平還停留在紙介質(zhì)或半自動（由電腦處理一部分?jǐn)?shù)據(jù)，由人工處理一部分?jǐn)?shù)據(jù)）的基礎(chǔ)上，這樣的機制已經(jīng)不能適應(yīng)時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎(chǔ)的信息管理所取代。 29 序 言 在現(xiàn)代社會中管理的作用越來越顯得重要和突出。 。 26 。 25 。 25 。 17 。 。 。 。 。 1 一、系統(tǒng)概述 。 。 2 1. 開發(fā)背景 。 3 3. 開發(fā) 運行環(huán)境 。 。 。 11 四、系統(tǒng)實現(xiàn) 。 。 。 。如果能夠?qū)崿F(xiàn)酒店客房管理的自動化，無疑將給酒店客房管理部門帶來很大的方便。從企業(yè)全局的角度出發(fā)輔助企業(yè)進(jìn)行決策，利用信息控制企業(yè)的行為，幫助企業(yè)實現(xiàn)其規(guī)劃目標(biāo)。酒店在正常的運營中需要對客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用酒店客房管理系統(tǒng)及時了解各個環(huán)節(jié)中信息的變更，有利于提高管理效率。例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。下面介紹一下 Visual Basic 以及 Access 各自都有什么特點。默認(rèn)的屬性值會在控件創(chuàng)建 的時候 提 供，但是程序員也可以進(jìn)行更改。同樣，在 VISUAL BASIC 中，用來構(gòu)成用戶圖形界面的可視化控件，也可視為是一個對象。同時，這種基于面向?qū)ο蟮拈_發(fā)方式，使得開發(fā) 應(yīng)用程序更為簡便。 所以數(shù)據(jù)庫選用 Access 3. 開發(fā)運行環(huán)境 系統(tǒng)開發(fā)環(huán)境包括硬件平臺和軟件平臺兩種。為此，國家建設(shè)部已于最近作出明確規(guī)定：凡星級酒店在項目審批時，其設(shè)計方案必須包括電腦管理系統(tǒng)，否則不予立項。為了達(dá)到這個要求，它必須依靠高起點的硬件環(huán)境和軟件開發(fā)工具來保證系統(tǒng)的穩(wěn)定和正常運行。后臺數(shù)據(jù)庫采用微軟公司的 Access 數(shù)據(jù)庫，它的靈活性，安全性，和易用性為數(shù)據(jù)庫編程提供了良好的條件。 綜上所述，本系統(tǒng)在 操作 上，在技術(shù)上和經(jīng)濟上是完全可行的，并且投入少，見效快。 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢等方面，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。管理人員可 以根據(jù)房間號、房間級別、房間類型、房間狀態(tài)對客戶信息進(jìn)行查詢，查詢到 的信息包括房間號、房間級別、房間類型、房間狀態(tài)這是客房信息查詢 。 完整性： 數(shù)據(jù)庫的完整性是指數(shù)據(jù)的正確性和相容性，這是數(shù)據(jù)庫理論中的重要概念。 圖 8 登錄界面圖 主要代碼如下所示： Dim TIM As Integer 39。按回車鍵 cmd1獲得焦點 If KeyCode = vbKeyUp Then If KeyCode = vbKeyDown Then End Sub Private Sub cmd1_Click() (4).Text = 賦值給 (4).Text39。 圖 9 系統(tǒng)主界面 本功能模塊可以查看并修改客房的信息資料，可以對客房的編號，房間類型，房間價格，是否有人住等信息進(jìn)行隨時更新。 39。更新記錄 Else 39。顯示為模式窗體 .Show vbModal End With End Sub Private Sub cmdDelete_Click() If True And True Then With If MsgBox( 確 認(rèn) 要 刪 除 當(dāng) 前 記 錄 嗎 ？ , vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn)框 ) = vbYes Then