【正文】 該管理系統(tǒng),可以有效的減少酒店客房管理的操作量,經(jīng)過酒店的初步使用,效果還是很顯著的.參考文獻(xiàn)[1]《Visual Basic 》 王福成、周鐵柱、黃淼云等編著 清華大學(xué)出版社 2000年6月第一版[2]《(含盤)》 王華杰編著 中國鐵道出版社 2002年04月第一版[3]《》 康博譯 清華大學(xué)出版社 2002年03月第一版[4]《編程技巧及故障排除即時(shí)通 (VB 篇)》 清華天則工作室編著 兵器工業(yè)出版社 2001年02月第一版[5] 《引人入勝 Install Shield （含盤）》 張君編著 上海書店 2000年11月第一版[6]《》 新智工作室編著 電子工業(yè)出版社 2000年03月第一版[7]《客房管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)》孫麗芳,孫敏 山西電子技術(shù) 2001年06期[8]《ACCESS數(shù)據(jù)庫開發(fā)實(shí)例解析》 作者 劉志銘，孫健鵬 機(jī)械工業(yè)出版社出版[9]《軟件工程》 閆菲主 編著 中國水利水電出版社[10]《軟件工程導(dǎo)論》張海藩 編著 清華大學(xué)出版社[11]《Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)及應(yīng)用開發(fā)》朱振元 朱承 編著 西安電子科技大學(xué)出版社[12]《ACCESS開發(fā)實(shí)例精解》鄭沫 編著 北京電子工業(yè)出版社[13]《Delphi數(shù)據(jù)庫程序設(shè)計(jì)》楊宗志 編著 清華大學(xué)出版社[14]《delphi數(shù)據(jù)庫應(yīng)用開發(fā)技術(shù)與實(shí)例》張大年，廖智勇，劉劍鋒 編著 清華大學(xué)出版社 [15]《數(shù)據(jù)庫系統(tǒng)概論》薩師煊 王珊．[M]．北京：高等教育出版社。傳統(tǒng)手工的客房信息管理，管理過程繁瑣而復(fù)雜，執(zhí)行效率低，并且易于出錯(cuò)。結(jié)論隨著人員流動(dòng)規(guī)模的不斷擴(kuò)大，客房數(shù)量的急劇增加，有關(guān)客房管理的各種信息量也在不斷成倍增長。當(dāng)向?qū)瓿芍谱靼惭b包以后，它會(huì)自動(dòng)生成一個(gè)帶有很多重要信息的報(bào)告。第二步，如果沒有編譯工程，打包和展開向?qū)?huì)要求編譯工程。，使發(fā)布應(yīng)用程序所包含的許多步驟得以自動(dòng)運(yùn)行，這是用戶一般所采用的方法。部署必須將打包的應(yīng)用程序放置到適當(dāng)?shù)奈恢?，以便用戶來安裝應(yīng)用程序。因此，酒店收費(fèi)管理系統(tǒng)采用的是本地代碼的編譯格式。Visual ：P代碼和本地代碼。然后從快捷菜單中選擇“屬性”命令打開“屬性”對(duì)話框的版本標(biāo)簽，就可以看到應(yīng)用程序的版本信息。Visual Basic提供APP對(duì)象來存儲(chǔ)應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。編譯應(yīng)用程序的主要目的如下：使應(yīng)用程序轉(zhuǎn)入和運(yùn)行更快；給發(fā)布應(yīng)用程序作準(zhǔn)備；使用應(yīng)用程序更安全。 編譯客房信息管理程序就是將創(chuàng)建的應(yīng)用程序以及它的工程文件合并成一個(gè)可執(zhí)行文件。在這里可以按照各種方式以及他們的組合進(jìn)行查詢。退出窗體 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 .Columns(0).AllowSizing = False 39。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。綁定 Set .DataSource = .AllowRowSizing = False 39。退出窗體 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 .Columns(0).AllowSizing = False 39。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。綁定 Set .DataSource = .AllowRowSizing = False 39。選擇需要修改的記錄，在如圖121所示的彈出式菜單中選擇“修改客房信息”，出現(xiàn)圖窗體，然后進(jìn)行修改。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefreshEnd Sub2. 修改客房信息 選擇“客房信息管理|設(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)題和