【正文】 = 5 .Columns(1). = 標準間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。第三列標題和寬度 .Columns(2).Caption = 房間類型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。第四列標題和寬度 .Columns(3).Caption = 房間價格(元) .Columns(3).Width = 80 .Columns(3).AllowSizing = False 39。.Columns(4).Visible = False .Columns(4).Caption = 狀態(tài) .Columns(4).Width = 40 .Columns(4). = 5 .Columns(4). = 在住 .Columns(4). = 空房 .Columns(4). = 未知 .Columns(4).AllowSizing = False End WithEnd SubPrivate Sub cmdAddNew_Click() With frmRoomInfoEdit 39。窗體標題 .Caption = 添加新客房 39。清空班級編號并設為可修改 . = False . = 39。默認班級類型為第一項 If . = 0 Then . = 1 Else . = 0 End If 39。默認教師為第一項 If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。顯示為模式窗體 .Show vbModal End WithEnd SubPrivate Sub cmdDelete_Click() With If .EOF True And .BOF True Then If !RoomStatus Then MsgBox 當前房間有客人居住，您不能刪除該房間！, vbOKOnly + vbInformation, 提示 Exit Sub End If If MsgBox(確認要刪除當前記錄嗎？, vbYesNo + vbQuestion + vbDefaultButton2, 確認框) = vbYes Then .Delete End If End If End With Exit SubEnd SubPrivate Sub cmdEdit_Click()If True And True Then With frmRoomInfoEdit 39。窗體標題 .Caption = 修改客房信息 39。學員編號，設為不可修改 . = !RoomNo . = True If !RoomGrade Then 39。標準間 . = 0 Else 39。豪華間 . = 1 End If If !RoomType Then 39。單人間 . = 0 Else 39。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End WithEnd IfEnd SubPrivate Sub cmdExit_Click() 39。退出窗體 Unload MeEnd SubPrivate Sub Form_Load() 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefreshEnd Sub4. 查詢客房信息 選擇“客房信息管理|設置客房信息|查詢客房信息”菜單，將出現(xiàn)如圖所示的窗體。在這里可以按照各種方式以及他們的組合進行查詢。 查詢客房信息的窗體Private Sub Command1_Click() = 客房信息查詢 vbModalEnd SubPrivate Sub Command2_Click() vbModalEnd SubPrivate Sub Command3_Click() vbModalEnd SubPrivate Sub Form_Load() = ( ) / 2 = ( ) / 4End Sub 發(fā)布應用程序在Visual Basic的集成開發(fā)環(huán)境中創(chuàng)建好酒店收費管理系統(tǒng)后，并無意味著全部工作已完成，此時生成的應用程序只能在Visual Basic的集成環(huán)境中運行，要想使應用程序能夠脫離Visual Basic的集成開發(fā)環(huán)境，然后調(diào)用打包和展開向?qū)?chuàng)建安裝程序。 編譯客房信息管理程序就是將創(chuàng)建的應用程序以及它的工程文件合并成一個可執(zhí)行文件。在發(fā)布客房信息管理應用程序之前，首先應該使用測試和調(diào)試工具對改應用程序進行前面測試，在排除了所有可能的錯誤后，才可以開始對應用程序進行編譯。編譯應用程序的主要目的如下：使應用程序轉(zhuǎn)入和運行更快；給發(fā)布應用程序作準備；使用應用程序更安全。將應用程序進行編譯后，Visual 。Visual Basic提供APP對象來存儲應用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。在設計中，可以通過這些屬性來告訴用戶一些重要的信息，在應用程序運行時用Visual Basic代碼讀出這些屬性值，也可以在Windows資源管理器中觀察應用程序?qū)ο蟮陌姹拘畔傩灾怠?，然后從快捷菜單中選擇“屬性”命令打開“屬性”對話框的版本標簽，就可以看到應用程序的版本信息。當完成當前工程的APP對象的屬性后，就可以編譯代碼了。Visual ：P代碼和本地代碼。選擇P代碼格式編譯的應用程序生成的可執(zhí)行文件較小，選擇本地代碼編譯的應用程序生成的可執(zhí)行文件要大的多，但是可執(zhí)行文件的運行速度比較快。因此，酒店收費管理系統(tǒng)采用的是本地代碼的編譯格式。創(chuàng)建Visual Basic應用程序后，可以將創(chuàng)建的客房信息管理應用程序通過磁盤，關(guān)盤，網(wǎng)絡等途徑自由發(fā)布，一般來說，發(fā)布應用程序必須經(jīng)過下面的兩個步驟：打包（.cab文件是一種壓縮文件），對于某些類型的軟件包，還必須為其創(chuàng)建安裝程序。部署必須將打包的應用程序放置到適當?shù)奈恢?，以便用戶來安裝應用程序?？梢允褂脙煞N工具來打包和發(fā)布應用程序：打包和展開向?qū)В≒ackage and Deployment）；Visual Basic安裝軟件提供的安裝工具包。，使發(fā)布應用程序所包含的許多步驟得以自動運行，這是用戶一般所采用的方法。使用打包和展開向?qū)нM行打包的第一個步驟就是選擇一個工程，然后單擊打包按鈕，開始創(chuàng)建一個可以發(fā)布的應用程序。第二步，如果沒有編譯工程，打包和展開向?qū)缶幾g工程。工程編譯完成后，向?qū)г儐栂胫谱魇裁搭愋偷陌?，我們這里使用向?qū)е谱靼惭b程序。當向?qū)瓿芍谱靼惭b包以后，它會自動生成一個帶有很多重要信息的報告。將酒店收費管理系統(tǒng)打包后，制作安裝程序的過程并沒有結(jié)束，必須將打包后的應用程序發(fā)布到一個媒體上，比如軟盤，光盤等，發(fā)布酒店收費管理系統(tǒng)的主要步驟如下：選擇“酒店收費管理系統(tǒng)”這個包，然后指定把這個包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“酒店收費管理系統(tǒng)”的發(fā)布工作了。結(jié)論隨著人員流動規(guī)模的不斷擴大，客房數(shù)量的急劇增加，有關(guān)客房管理的各種信息量也在不斷成倍增長。面對龐大的信息量，就需要有酒店收費管理系統(tǒng)來提高客房管理工作的效率。傳統(tǒng)手工的客房信息管理，管理過程繁瑣而復雜，執(zhí)行效率低，并且易于出錯。通過這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢，實現(xiàn)了客房信息管理的系統(tǒng)化、規(guī)范化和自動化，這樣不僅減少了管理工作量，還提高了管理效率，降低了管理成本。該管理系統(tǒng),可以有效的減少酒店客房管理的操作量,經(jīng)過酒店的初步使用,效果還是很顯著的.參考文獻[1]《Visual Basic 》 王福成、周鐵柱、黃淼云等編著 清華大學出版社 2000年6月第一版[2]《(含盤)》 王華杰編著 中國鐵道出版社 2002年04月第一版[3]《》 康博譯 清華大學出版社 2002年03月第一版[4]《編程技巧及故障排除即時通 (VB 篇)》 清華天則工作室編著 兵器工業(yè)出版社 2001年02月第一版[5] 《引人入勝 Install Shield （含盤）》 張君編著 上海書店 2000年11月第一版[6]《》 新智工作室編著 電子工業(yè)出版社 2000年03月第一版[7]《客房管理系統(tǒng)的設計與實現(xiàn)》孫麗芳,孫敏 山西電子技術(shù) 2001年06期[8]《ACCESS數(shù)據(jù)庫開發(fā)實例解析》 作者 劉志銘，孫健鵬 機械工業(yè)出版社出版[9]《軟件工程》 閆菲主 編著 中國水利水電出版社[10]《軟件工程導論》張海藩 編著 清華大學出版社[11]《Delphi面向?qū)ο蟪绦蛟O計及應用開發(fā)》朱振元 朱承 編著 西安電子科技大學出版社[12]《ACCESS開發(fā)實例精解》鄭沫 編著 北京電子工業(yè)出版社[13]《Delphi數(shù)據(jù)庫程序設計》楊宗志 編著 清華大學出版社[14]《delphi數(shù)據(jù)庫應用開發(fā)技術(shù)與實例》張大年，廖智勇，劉劍鋒 編著 清華大學出版社 [15]《數(shù)據(jù)庫系統(tǒng)概論》薩師煊 王珊．[M]．北京：高等教育出版社，