【正文】 通過(guò)這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢(xún)，實(shí)現(xiàn)了客房信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化，這樣不僅減少了管理工作量，還提高了管理效率，降低了管理成本。將酒店收費(fèi)管理系統(tǒng)打包后，制作安裝程序的過(guò)程并沒(méi)有結(jié)束，必須將打包后的應(yīng)用程序發(fā)布到一個(gè)媒體上，比如軟盤(pán)，光盤(pán)等，發(fā)布酒店收費(fèi)管理系統(tǒng)的主要步驟如下：選擇“酒店收費(fèi)管理系統(tǒng)”這個(gè)包，然后指定把這個(gè)包發(fā)布到指定文件夾中，選擇發(fā)布的媒體，就可以完成“酒店收費(fèi)管理系統(tǒng)”的發(fā)布工作了。使用打包和展開(kāi)向?qū)нM(jìn)行打包的第一個(gè)步驟就是選擇一個(gè)工程，然后單擊打包按鈕，開(kāi)始創(chuàng)建一個(gè)可以發(fā)布的應(yīng)用程序。創(chuàng)建Visual Basic應(yīng)用程序后，可以將創(chuàng)建的客房信息管理應(yīng)用程序通過(guò)磁盤(pán)，關(guān)盤(pán)，網(wǎng)絡(luò)等途徑自由發(fā)布，一般來(lái)說(shuō)，發(fā)布應(yīng)用程序必須經(jīng)過(guò)下面的兩個(gè)步驟：打包（.cab文件是一種壓縮文件），對(duì)于某些類(lèi)型的軟件包，還必須為其創(chuàng)建安裝程序。當(dāng)完成當(dāng)前工程的APP對(duì)象的屬性后，就可以編譯代碼了。將應(yīng)用程序進(jìn)行編譯后，Visual 。 查詢(xún)客房信息的窗體Private Sub Command1_Click() = 客房信息查詢(xún) vbModalEnd SubPrivate Sub Command2_Click() vbModalEnd SubPrivate Sub Command3_Click() vbModalEnd SubPrivate Sub Form_Load() = ( ) / 2 = ( ) / 4End Sub 發(fā)布應(yīng)用程序在Visual Basic的集成開(kāi)發(fā)環(huán)境中創(chuàng)建好酒店收費(fèi)管理系統(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)建安裝程序。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End WithEnd IfEnd SubPrivate Sub cmdExit_Click() 39。學(xué)員編號(hào)，設(shè)為不可修改 . = !RoomNo . = True If !RoomGrade Then 39。默認(rèn)班級(jí)類(lèi)型為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If 39。第四列標(biāo)題和寬度 .Columns(3).Caption = 房間價(jià)格(元) .Columns(3).Width = 80 .Columns(3).AllowSizing = False 39。不允許修改（設(shè)為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefreshEnd Sub 3. 刪除客房信息 在客房記錄列表中選擇記錄，然后選擇菜單中的“產(chǎn)出房間信息”，將刪除當(dāng)前記錄，Option ExplicitPrivate Sub dtgRoomRefresh() With 39。豪華間 . = 1 End If If !RoomType 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。窗體標(biāo)題 .Caption = 添加新客房 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è)為兩行 .HeadLines = 2 39。修改客房信息窗體窗體中放置了一個(gè)表格控件，所有客房記錄都顯示在里面。單人間 . = 0 Else 39。窗體標(biāo)題 .Caption = 修改客房信息 39。清空班級(jí)編號(hào)并設(shè)為可修改 . = False . = 39。第三列標(biāo)題和寬度 .Columns(2).Caption = 房間類(lèi)型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。將各種文本框放在窗體的框架中，組成“客房信息”欄。))dtgRoomQueryRefreshEnd SubPrivate Sub txtRoomNo_KeyPress(KeyAscii As Integer)If (KeyAscii 48 Or KeyAscii 57) And KeyAscii 8 ThenKeyAscii = 0End IfEnd SubPrivate Sub Form_Load() = ( ) / 2 = ( ) / 2OpenTable , select * from Room order by RoomNo,RoomRatedtgRoomQueryRefresh = False = False = False = False = False = False = FalseEnd SubPrivate Sub Option5_Click()If ThenOpenTable , SELECT * From Room where ((()=1))ElseIf ThenOpenTable , SELECT * From Room where ((()=1))ElseIf ThenOpenTable , SELECT * From Room where ((()=1))End IfdtgRoomQueryRefreshEnd SubPrivate Sub Option6_Click()If ThenOpenTable , SELECT * From Room where ((()=0))ElseIf ThenOpenTable , SELECT * From Room where ((()=0))ElseIf ThenOpenTable , SELECT * From Room where ((()=0))End IfdtgRoomQueryRefreshEnd SubPrivate Sub optRoomStatus_Click() = False = False = True = 房間狀態(tài) = 在住 = 空房 = False = FalseEnd SubPrivate Sub optRoomType_Click() = False = False = True = 房間類(lèi)型 = 單人間 = 雙人間 = False = FalseEnd SubPrivate Sub optRoomGrade_Click() = False = False = True = 房間級(jí)別 = 標(biāo)準(zhǔn)間 = 豪華間 = False = FalseEnd SubPrivate Sub optRoomNo_Click() = = True = True = FalseSendKeys {TAB}End Sub3. 刪除客房標(biāo)準(zhǔn) 選擇“客房信息管理|設(shè)置客房標(biāo)準(zhǔn)|刪除客房標(biāo)準(zhǔn)”菜單，將出現(xiàn)記錄列表。 amp。第一列標(biāo)題和寬度.Columns(0).Caption = 房間編號(hào).Columns(0).Width = 75.Columns(0).AllowSizing = False39。實(shí)施綁定.AllowRowSizing = False39。這些控件的屬性見(jiàn)表，添加客房窗體中各個(gè)控件的屬性設(shè)置。對(duì)于每個(gè)客房標(biāo)準(zhǔn)，有不同的硬件設(shè)施和服務(wù)。面板1用來(lái)顯示各種文本信息，面板2用來(lái)顯示單前日期，面板3用來(lái)顯示當(dāng)前時(shí)間。在這個(gè)窗體上添加所需的控件，創(chuàng)建好的窗體如圖所示。 創(chuàng)建工程項(xiàng)目Hotel_MIS 啟動(dòng)VisualBasic 。4. 客房基本信息的查詢(xún)、修改，包括客房編號(hào)、客房類(lèi)型、客房位置、客房單價(jià)、備注等。 系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)的總體任務(wù)的基礎(chǔ)上完成的 ?？头繕?biāo)準(zhǔn)信息