【正文】 !RoomType = False End If !RoomRate = Val(Trim()) !RoomStatus = False .Update Unload Me End WithEnd Sub 選擇“客房信息管理|設(shè)置客房信息|修改客房信息”菜單，將出現(xiàn)如圖所示的窗體。 修改客房信息窗體窗體中放置了一個(gè)表格控件，所有客房記錄都顯示在里面。選擇需要修改的記錄，在如圖121所示的彈出式菜單中選擇“修改客房信息”，出現(xiàn)圖窗體，然后進(jìn)行修改。 修改房間信息的彈出式菜單11刪除客房信息 在客房記錄列表中選擇記錄，然后選擇菜單中的“產(chǎn)出房間信息”，將刪除當(dāng)前記錄，代碼如下：Private Sub cmdDelete_Click() With If .EOF True And .BOF True Then If !RoomStatus Then MsgBox 當(dāng)前房間有客人居住，您不能刪除該房間！, vbOKOnly + vbInformation, 提示 Exit Sub End If If MsgBox(確認(rèn)要?jiǎng)h除當(dāng)前記錄嗎？, vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn)框) = vbYes Then .Delete End If End If End With Exit SubEnd Sub12查詢客房信息 選擇“客房信息管理|設(shè)置客房信息|查詢客房信息”菜單，將出現(xiàn)如圖所示的窗體。在這里可以按照各種方式以及他們的組合進(jìn)行查詢。 查詢客房信息的窗體 在Visual Basic的集成開(kāi)發(fā)環(huán)境中創(chuàng)建好客房信息管理系統(tǒng)后，并無(wú)意味著全部工作已完成，此時(shí)生成的應(yīng)用程序只能在Visual Basic的集成環(huán)境中運(yùn)行，要想使應(yīng)用程序能夠脫離Visual Basic的集成開(kāi)發(fā)環(huán)境，然后調(diào)用打包和展開(kāi)向?qū)?chuàng)建安裝程序。編譯客房信息管理程序就是將創(chuàng)建的應(yīng)用程序以及它的工程文件合并成一個(gè)可執(zhí)行文件。在發(fā)布客房信息管理應(yīng)用程序之前，首先應(yīng)該使用測(cè)試和調(diào)試工具對(duì)改應(yīng)用程序進(jìn)行前面測(cè)試，在排除了所有可能的錯(cuò)誤后，才可以開(kāi)始對(duì)應(yīng)用程序進(jìn)行編譯。編譯應(yīng)用程序的主要目的如下；252。 使應(yīng)用程序轉(zhuǎn)入和運(yùn)行更快。252。 給發(fā)布應(yīng)用程序作準(zhǔn)備。252。 使用應(yīng)用程序更安全。將應(yīng)用程序進(jìn)行編譯后，Visual 。Visual Basic提供APP對(duì)象來(lái)存儲(chǔ)應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。在設(shè)計(jì)中，可以通過(guò)這些屬性來(lái)告訴用戶一些重要的信息，在應(yīng)用程序運(yùn)行時(shí)用Visual Basic代碼讀出這些屬性值，也可以在Windows資源管理器中觀察應(yīng)用程序?qū)ο蟮陌姹拘畔傩灾?。，然后從快捷菜單中選擇“屬性”命令打開(kāi)“屬性”對(duì)話框的版本標(biāo)簽，就可以看到應(yīng)用程序的版本信息。當(dāng)完成當(dāng)前工程的APP對(duì)象的屬性后，就可以編譯代碼了。Visual ：P代碼和本地代碼。選擇P代碼格式編譯的應(yīng)用程序生成的可執(zhí)行文件較小，選擇本地代碼編譯的應(yīng)用程序生成的可執(zhí)行文件要大的多，但是可執(zhí)行文件的運(yùn)行速度比較快。因此，客房信息管理系統(tǒng)采用的視本地代碼的編譯格式。創(chuàng)建Visual Basic應(yīng)用程序后，可以將創(chuàng)建的客房信息管理應(yīng)用程序通過(guò)磁盤，關(guān)盤，網(wǎng)絡(luò)等途徑自由發(fā)布，一般來(lái)說(shuō)，發(fā)布應(yīng)用程序必須經(jīng)過(guò)下面的兩個(gè)步驟：打包（.cab文件是一種壓縮文件），對(duì)于某些類型的軟件包，還必須為其創(chuàng)建安裝程序。部署必須將打包的應(yīng)用程序放置到適當(dāng)?shù)奈恢?，以便用戶?lái)安裝應(yīng)用程序?？梢允褂脙煞N工具來(lái)打包和發(fā)布應(yīng)用程序。252。 打包和展開(kāi)向?qū)В≒ackage and Deployment）252。 Visual Basic安裝軟件提供的安裝工具包。，使發(fā)布應(yīng)用程序所包含的許多步驟得以自動(dòng)運(yùn)行，這是用戶一般所采用的方法。使用打包和展開(kāi)向?qū)нM(jìn)行打包的第一個(gè)步驟就是選擇一個(gè)工程，然后單擊打包按鈕，開(kāi)始創(chuàng)建一個(gè)可以發(fā)布的應(yīng)用程序。第三步，如果沒(méi)有編譯工程，打包和展開(kāi)向?qū)?huì)要求編譯工程。工程編譯完成后，向?qū)г儐?wèn)想制作什么類型的包，我們這里使用向?qū)е谱靼惭b程序。當(dāng)向?qū)瓿芍谱靼惭b包以后，它會(huì)自動(dòng)生成一個(gè)帶有很多重要信息的報(bào)告。將客房信息管理系統(tǒng)打包后，制作安裝程序的過(guò)程并沒(méi)有結(jié)束，必須將打包后的應(yīng)用程序發(fā)布到一個(gè)媒體上，比如軟盤，光盤等，發(fā)布客房信息管理系統(tǒng)的主要步驟如下：選擇“客房信息管理系統(tǒng)”這個(gè)包，然后指定把這個(gè)包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“客房信息管理系統(tǒng)”的發(fā)布工作了。第五章 結(jié)論及體會(huì)隨著人員流動(dòng)規(guī)模的不斷擴(kuò)大，客房數(shù)量的急劇增加，有關(guān)客房管理的各種信息量也在不斷成倍增長(zhǎng)。面對(duì)龐大的信息量，就需要有客房信息管理系統(tǒng)來(lái)提高客房管理工作的效率。傳統(tǒng)手工的客房信息管理，管理過(guò)程繁瑣而復(fù)雜，執(zhí)行效率低，并且易于出錯(cuò)。通過(guò)這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢，實(shí)現(xiàn)了客房信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化，這樣不僅減少了管理工作量，還提高了管理效率，降低了管理成本。在軟件的編寫(xiě)過(guò)程中，我充分體會(huì)了軟件編程工作者的辛苦，因?yàn)槊恳粋€(gè)細(xì)微的細(xì)節(jié)都必須十分的注意，如果稍有不慎，就會(huì)全盤皆輸，而且往往很多的時(shí)候，程序我自己覺(jué)得非常的正確，但是就是編譯通不過(guò)，在查找錯(cuò)誤的過(guò)程中，面臨著否認(rèn)自己的過(guò)程，非常的痛苦，而且由于自己的經(jīng)驗(yàn)及各方面的能力的不足，所以進(jìn)展的速度非常的緩慢，往往幾天的時(shí)間還沒(méi)有一點(diǎn)進(jìn)展。在開(kāi)始編寫(xiě)程序的時(shí)候，我看到別人的軟件功能非常的詳細(xì)，而且界面非常的漂亮，總希望自己的軟件也非常的完善，但是，經(jīng)過(guò)二個(gè)月的學(xué)習(xí)，發(fā)現(xiàn)編一個(gè)優(yōu)秀的軟件決不是一蹴而就的事情，需要長(zhǎng)時(shí)間的積累和經(jīng)驗(yàn)，而這個(gè)方面又是我的弱項(xiàng)，因此，在朋友的幫助下，我終于認(rèn)清自己的不足及劣勢(shì)，不要貪圖大而全，只要盡我所能，編制一個(gè)實(shí)用簡(jiǎn)單的軟件也是件很不容易的事情。在反反復(fù)復(fù)的學(xué)習(xí)之下，我的辛勤努力有了匯報(bào)，終于做出了一個(gè)簡(jiǎn)單的軟件，雖然這個(gè)軟件的功能非常的簡(jiǎn)單，而且我想，在實(shí)際的運(yùn)用中，肯定會(huì)有所不足，因?yàn)榭头啃畔⒐芾砉ぷ鞯膬?nèi)容非常的豐富，我涉及到的僅僅是客房管理的一部分簡(jiǎn)單內(nèi)容，離實(shí)際的客戶需求肯定還有一定的差距。但是，它畢竟代表了我二個(gè)月辛勤的結(jié)晶。由于我的知識(shí)淺薄，經(jīng)驗(yàn)不足及閱歷頗淺，因此，在該系統(tǒng)的設(shè)計(jì)方面還有很多不足，比如功能過(guò)少，界面不夠醒目等問(wèn)題，我會(huì)在工作的使用過(guò)程中，根據(jù)工作的具體要求不斷的修改，完善，爭(zhēng)取使該系統(tǒng)慢慢趨向完美。在本系統(tǒng)的設(shè)計(jì)過(guò)程和論文編寫(xiě)過(guò)程中，很多老師、同事和朋友都給與了我許多無(wú)私的幫助，尤其是我的導(dǎo)師給我的論文提出了很多寶貴的修改意見(jiàn)，在這里，我向這些無(wú)私幫助我的人表示衷心的感謝。參考文獻(xiàn)《Visual Basic 》 王福成、周鐵柱、黃淼云等編著 清華大學(xué)出版社 2000年6月第一版《：》 崔洪斌等譯 清華大學(xué)出版社 2002年05月第一版《(含盤)》 王華杰編著 中國(guó)鐵道出版社 2002年04月第一版《》 康博譯 清華大學(xué)出版社 2002年03月第一版《Instant 》 張龍卿編寫(xiě) 北京希望電子出版社 2002年01月第一版《XML 編程使用 VB 和 ASP》 [美]Mark Wilson,[美]Tracey Wilson著, 健蓮科技譯 中國(guó)電力出版社 2001年06月第一版《數(shù)據(jù)庫(kù)設(shè)計(jì)與編程實(shí)例詳解》 電子工業(yè)出版社 2001年02月第一版《編程技巧及故障排除即時(shí)通 (VB 篇)》 清華天則工作室編著 兵器工業(yè)出版社 2001年02月第一版《引人入勝 Install Shield （含盤）》 張君編著 上海書(shū)店 2000年11月第一版《》 新智工作室編著 電子工業(yè)出版社 2000年03月第一版1《企業(yè)管理的計(jì)算機(jī)化》 威廉謝爾 上?？茖W(xué)技術(shù)文獻(xiàn)出版社 2000年1《客房管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)》孫麗芳,孫敏 山西電子技術(shù) 2001年06期