【正文】 通過這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢，實(shí)現(xiàn)了客房信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化，這樣不僅減少了管理工作量，還提高了管理效率，降低了管理成本。面對(duì)龐大的信息量，就需要有酒店收費(fèi)管理系統(tǒng)來提高客房管理工作的效率。將酒店收費(fèi)管理系統(tǒng)打包后，制作安裝程序的過程并沒有結(jié)束，必須將打包后的應(yīng)用程序發(fā)布到一個(gè)媒體上，比如軟盤，光盤等，發(fā)布酒店收費(fèi)管理系統(tǒng)的主要步驟如下：選擇“酒店收費(fèi)管理系統(tǒng)”這個(gè)包，然后指定把這個(gè)包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“酒店收費(fèi)管理系統(tǒng)”的發(fā)布工作了。工程編譯完成后，向?qū)г儐栂胫谱魇裁搭愋偷陌?，我們這里使用向?qū)е谱靼惭b程序。使用打包和展開向?qū)нM(jìn)行打包的第一個(gè)步驟就是選擇一個(gè)工程，然后單擊打包按鈕，開始創(chuàng)建一個(gè)可以發(fā)布的應(yīng)用程序?？梢允褂脙煞N工具來打包和發(fā)布應(yīng)用程序：打包和展開向?qū)В≒ackage and Deployment）；Visual Basic安裝軟件提供的安裝工具包。創(chuàng)建Visual Basic應(yīng)用程序后，可以將創(chuàng)建的客房信息管理應(yīng)用程序通過磁盤，關(guān)盤，網(wǎng)絡(luò)等途徑自由發(fā)布，一般來說，發(fā)布應(yīng)用程序必須經(jīng)過下面的兩個(gè)步驟：打包（.cab文件是一種壓縮文件），對(duì)于某些類型的軟件包，還必須為其創(chuàng)建安裝程序。選擇P代碼格式編譯的應(yīng)用程序生成的可執(zhí)行文件較小，選擇本地代碼編譯的應(yīng)用程序生成的可執(zhí)行文件要大的多，但是可執(zhí)行文件的運(yùn)行速度比較快。當(dāng)完成當(dāng)前工程的APP對(duì)象的屬性后，就可以編譯代碼了。在設(shè)計(jì)中，可以通過這些屬性來告訴用戶一些重要的信息，在應(yīng)用程序運(yùn)行時(shí)用Visual Basic代碼讀出這些屬性值，也可以在Windows資源管理器中觀察應(yīng)用程序?qū)ο蟮陌姹拘畔傩灾?。將?yīng)用程序進(jìn)行編譯后，Visual 。在發(fā)布客房信息管理應(yīng)用程序之前，首先應(yīng)該使用測(cè)試和調(diào)試工具對(duì)改應(yīng)用程序進(jìn)行前面測(cè)試，在排除了所有可能的錯(cuò)誤后，才可以開始對(duì)應(yīng)用程序進(jìn)行編譯。 查詢客房信息的窗體Private Sub Command1_Click() = 客房信息查詢 vbModalEnd SubPrivate Sub Command2_Click() vbModalEnd SubPrivate Sub Command3_Click() vbModalEnd SubPrivate Sub Form_Load() = ( ) / 2 = ( ) / 4End Sub 發(fā)布應(yīng)用程序在Visual Basic的集成開發(fā)環(huán)境中創(chuàng)建好酒店收費(fèi)管理系統(tǒng)后，并無意味著全部工作已完成，此時(shí)生成的應(yīng)用程序只能在Visual Basic的集成環(huán)境中運(yùn)行，要想使應(yīng)用程序能夠脫離Visual Basic的集成開發(fā)環(huán)境，然后調(diào)用打包和展開向?qū)?chuàng)建安裝程序。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefreshEnd Sub4. 查詢客房信息 選擇“客房信息管理|設(shè)置客房信息|查詢客房信息”菜單，將出現(xiàn)如圖所示的窗體。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End WithEnd IfEnd SubPrivate Sub cmdExit_Click() 39。豪華間 . = 1 End If If !RoomType Then 39。學(xué)員編號(hào)，設(shè)為不可修改 . = !RoomNo . = True If !RoomGrade Then 39。顯示為模式窗體 .Show vbModal End WithEnd SubPrivate 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 SubPrivate Sub cmdEdit_Click()If True And True Then With frmRoomInfoEdit 39。默認(rèn)班級(jí)類型為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If 39。窗體標(biāo)題 .Caption = 添加新客房 39。第四列標(biāo)題和寬度 .Columns(3).Caption = 房間價(jià)格(元) .Columns(3).Width = 80 .Columns(3).AllowSizing = False 39。第二列標(biāo)題和寬度 .Columns(1).Caption = 房間級(jí)別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標(biāo)準(zhǔn)間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。不允許修改（設(shè)為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。表頭寬度設(shè)為兩行 .HeadLines = 2 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefreshEnd Sub 3. 刪除客房信息 在客房記錄列表中選擇記錄，然后選擇菜單中的“產(chǎn)出房間信息”，將刪除當(dāng)前記錄，Option ExplicitPrivate Sub dtgRoomRefresh() With 39。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End WithEnd IfEnd SubPrivate Sub cmdExit_Click() 39。豪華間 . = 1 End If If !RoomType Then 39。學(xué)員編號(hào)，設(shè)為不可修改 . = !RoomNo . = True If !RoomGrade Then 39。顯示為模式窗體 .Show vbModal End WithEnd SubPrivate 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 SubPrivate Sub cmdEdit_Click()If True And True Then With frmRoomInfoEdit 39。默認(rèn)班級(jí)類型為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If 39。窗體標(biāo)題 .Caption = 添加新客房 39。第四列標(biāo)題和寬度 .Columns(3).Caption = 房間價(jià)格(元) .Columns(3).Width = 80 .Columns(3).AllowSizing = False 39。第二列標(biāo)題和寬度 .Columns(1).Caption = 房間級(jí)別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標(biāo)準(zhǔn)間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。不允許修改（設(shè)為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。表頭寬度設(shè)為兩行 .HeadLines = 2 39。 Option ExplicitPrivate Sub dtgRoomRefresh() With 39。修改客房信息窗體窗體中放置了一個(gè)表格控件，所有客房記錄都顯示在里面。退出窗體 Unload MeEnd SubPrivate Sub Form_Load() 39。單人間 . = 0 Else 39。標(biāo)準(zhǔn)間 . = 0 Else 39。窗體標(biāo)題 .Caption = 修改客房信息 39。默認(rèn)教師為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。清空班級(jí)編號(hào)并設(shè)為可修改 . = 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。第三列標(biāo)題和寬度 .Columns(2).Caption = 房間類型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。第一列標(biāo)題和寬度 .Columns(0).Caption = 房間編號(hào) .Columns(0).Width = 60