【正文】 ever since she was born. That was a very happy breakfast, though they didn39。m so glad, for mine is the handsomest now. Another bang of the street door sent the basket under the sofa, and the girls to the table, eager for breakfast. Merry Christmas, Marmee! Many of them! Thank you for our books. We read some, and mean to every day, they all cried in chorus. Merry Christmas, little daughters! I39。t laugh at me, Jo! I didn39。t want anyone to use these but Marmee, said Beth。 on them instead of `M. March39。通過這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢，實(shí)現(xiàn)了客房信息管理的系統(tǒng)化、規(guī)范化和自動(dò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ū)нM(jìn)行打包的第一個(gè)步驟就是選擇一個(gè)工程，然后單擊打包按鈕，開始創(chuàng)建一個(gè)可以發(fā)布的應(yīng)用程序。創(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)建安裝程序。當(dāng)完成當(dāng)前工程的APP對(duì)象的屬性后，就可以編譯代碼了。將應(yīng)用程序進(jìn)行編譯后，Visual 。 查詢客房信息的窗體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)建安裝程序。雙人間 . = 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í)類型為第一項(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 = 房間類型 .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 = 房間類型 = 單人間 = 雙人間 = 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。這些控件的屬性見表，添加客房窗體中各個(gè)控件的屬性設(shè)置。對(duì)于每個(gè)客房標(biāo)準(zhǔn)，有不同的硬件設(shè)施和服務(wù)。面板1用來顯示各種文本信息，面板2用來顯示單前日期，面板3用來顯示當(dāng)前時(shí)間。在這個(gè)窗體上添加所需的控件，創(chuàng)建好的窗體如圖所示。 創(chuàng)建工程項(xiàng)目Hotel_MIS 啟動(dòng)VisualBasic 。4. 客房基本信息的查詢、修改，包括客房編號(hào)、客房類型、客房位置、客房單價(jià)、備注等。 系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成的 ?？头繕?biāo)準(zhǔn)信息客房登記客房信息管理訂房結(jié)算信息管理客房結(jié)算訂房信息管理3．5．3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)化為MS Access 2000數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，我們就能進(jìn)行下面的數(shù)據(jù)庫設(shè)計(jì)?？头繕?biāo)準(zhǔn)設(shè)置基本信息錄入客房登記基本信息錄入客房標(biāo)準(zhǔn)信息管理顧客登記客房信息管理 訂房信息輸入訂房信息管理結(jié)算信息輸入結(jié)算信息管理基本信息返回 系統(tǒng)數(shù)據(jù)流程圖針對(duì)一般酒店客房管理系統(tǒng)得需求，通過對(duì)酒店客房管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：1. 客房標(biāo)準(zhǔn)信息，包括的數(shù)據(jù)項(xiàng)有：標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量住房單價(jià)、是否有空調(diào)、電視、電話、單獨(dú)衛(wèi)生間等。 數(shù)據(jù)庫需求分析用戶的需求具