【正文】 eryRefresh()With .ClearFieldsSet .DataSource = 39。第四列標(biāo)題和寬度.Columns(3).Caption = 房間價格(元).Columns(3).Width = 80.Columns(3).AllowSizing = False.Columns(4).Caption = 狀態(tài).Columns(4).Width = 40.Columns(4). = 5.Columns(4). = 在住.Columns(4). = 空房.Columns(4). = 未知.Columns(4).AllowSizing = FalseEnd WithEnd SubPrivate Sub dtgQuery_Click()End SubPrivate Sub txtRoomNo_Change()OpenTable , SELECT * FROM Room WHERE ((() Like 39。 添加客房信息窗體窗體中各個控件屬性這里就不一一介紹。第二列標(biāo)題和寬度 .Columns(1).Caption = 房間級別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標(biāo)準(zhǔn)間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 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)要刪除當(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。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefreshEnd Sub2. 修改客房信息 選擇“客房信息管理|設(shè)置客房信息|修改客房信息”菜單，將出現(xiàn)如圖所示的體。第一列標(biāo)題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。默認(rèn)教師為第一項 If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。退出窗體 Unload MeEnd SubPrivate Sub Form_Load() 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)題 .Caption = 修改客房信息 39。在這里可以按照各種方式以及他們的組合進(jìn)行查詢。然后從快捷菜單中選擇“屬性”命令打開“屬性”對話框的版本標(biāo)簽，就可以看到應(yīng)用程序的版本信息。，使發(fā)布應(yīng)用程序所包含的許多步驟得以自動運行，這是用戶一般所采用的方法。傳統(tǒng)手工的客房信息管理，管理過程繁瑣而復(fù)雜，執(zhí)行效率低，并且易于出錯。s initials are ., and I don39。, while Beth ran to the window, and picked her finest rose to ornament the stately bottle. You see I felt ashamed of my present, after reading and talking about being good this morning, so I ran round the corner and changed it the minute I was up, and I39。t get any of it. And when they went away, leaving fort behind, I think there were not in all the city four merrier people than the hungry little girls who gave away their breakfasts and contented themselves with bread and milk on Christmas morning. That39。t mean anyone should know till the time came. I only meant to change the little bottle for a big one, and I gave all my money to get it, and I39。. How funny! cried Jo, taking one up. Isn39。結(jié)論隨著人員流動規(guī)模的不斷擴(kuò)大，客房數(shù)量的急劇增加，有關(guān)客房管理的各種信息量也在不斷成倍增長。部署必須將打包的應(yīng)用程序放置到適當(dāng)?shù)奈恢茫员阌脩魜戆惭b應(yīng)用程序。Visual Basic提供APP對象來存儲應(yīng)用程序的有關(guān)信息屬性，例如，公司名，產(chǎn)品名，版本以及其他相關(guān)信息。退出窗體 Unload MeEnd SubPrivate Sub Form_Load() 39。默認(rèn)教師為第一項 If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。第一列標(biāo)題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。單人間 . = 0 Else 39。清空班級編號并設(shè)為可修改 . = False . = 39。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End WithEnd IfEnd SubPrivate Sub cmdExit_Click() 39。默認(rèn)班級類型為第一項 If . = 0 Then . = 1 Else . = 0 End If 39。不允許修改（設(shè)為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。選擇相應(yīng)記錄，單擊鼠標(biāo)右鍵，選擇彈出式菜單，將刪除當(dāng)前記錄，：添加客房信息；修改客房信息；刪除客房信息；查詢客房信息。第二列標(biāo)題和寬度.Columns(1).Caption = 房間級別.Columns(1).Width = 80.Columns(1). = 5.Columns(1). = 標(biāo)準(zhǔn)間.Columns(1). = 豪華間.Columns(1). = 未知.Columns(1).AllowSizing = False39。2. 修改客房標(biāo)準(zhǔn)窗體的創(chuàng)建選擇“客房信息管理|設(shè)置客房標(biāo)準(zhǔn)|修改客房標(biāo)準(zhǔn)”菜單，將出現(xiàn)如圖所示的窗體，窗體中放置一個表格控件。 創(chuàng)建主窗體菜單在主窗體重，單擊鼠標(biāo)右鍵，選擇彈出式菜單重的“Menu Editor”命令，創(chuàng)建如圖所示的菜單結(jié)構(gòu)： 主窗體中的菜單結(jié)構(gòu) 用戶管理模塊主要實現(xiàn)：。單擊File Project 菜單，在工程模板中選擇Standard EXE，VisualBasic 窗體，屬性都是缺省設(shè)置。這個酒店客房管理信息系統(tǒng)需要完成的功能主要有：1. 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入、包括標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視機(jī)、電話以及單獨衛(wèi)生間等?？头繕?biāo)準(zhǔn)信息實體客房單價標(biāo)準(zhǔn)編號……床位數(shù)量標(biāo)準(zhǔn)名稱 客房標(biāo)準(zhǔn)信息實體 。2. 客房信息，包括的數(shù)據(jù)源有：客房編號、客房種類、客房設(shè)置、客房單價、備注等。數(shù)據(jù)庫設(shè)計一般包括如下幾個步驟：1. 數(shù)據(jù)庫需求分析。4. 可維護(hù)性和適應(yīng)性。 客戶查詢功能該功能實現(xiàn)了對客戶信息的查詢。由于本軟件主要是為某小型酒店定制開發(fā)的，因此針對該酒店客房信息管理的實際工作而言，我們經(jīng)過了反復(fù)地論證，最終確定了酒店收費管理系統(tǒng)的設(shè)計方案。 總之，所開發(fā)的MIS在使用過程中，應(yīng)使用戶的數(shù)據(jù)輸入量降至最低限度減少用戶的干預(yù)量。特別是在需要較長時間的等待時，必須讓用戶了解工作進(jìn)展情況，如可以設(shè)計已經(jīng)完成了百分之幾的任務(wù)進(jìn)度條等。 設(shè)計MIS時，針對每一個功能，都要按照模塊化思想，使輸入、處理與輸出“涇渭分明”，充分體現(xiàn)人機(jī)界面的通信功能。 第三個因素也不能忽視。世界發(fā)達(dá)國家已建立起了完善的先進(jìn)的管理信息系統(tǒng)體系，在其社會經(jīng)濟(jì)發(fā)展領(lǐng)域中發(fā)揮著巨大的作用。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。酒店管理系統(tǒng)摘 要賓館管理信息系統(tǒng)面對強(qiáng)大的信息量可以輕松的管理，減少了在管理上面物力和人力，有利于賓館提高工作效率和賓館效益。4）結(jié)算信息管理部分：主要完成對結(jié)算信息的查詢，修改，添加等。進(jìn)入2 0世紀(jì)80年代末，隨著計算機(jī)網(wǎng)絡(luò)和通信技術(shù)的大力發(fā)展，企業(yè)管理信息系統(tǒng)進(jìn)入網(wǎng)絡(luò)化的發(fā)展時期。在這些技術(shù)中，軟件開發(fā)是MIS開發(fā)的重點。另外，不要把內(nèi)部的處理、加工與人機(jī)界面混在一起(人機(jī)界面程序只是通信)，以免互相干擾，影響速度。3. 界面必須使用戶隨時掌握任務(wù)的進(jìn)展情況 人機(jī)界面應(yīng)該能夠告訴用戶軟件運行的進(jìn)度。錄入這類數(shù)據(jù)之前，MIS軟件應(yīng)在相應(yīng)位置彈出一個列表框，待用戶以鼠標(biāo)點擊，而不應(yīng)讓用戶每次都輸入這些漢字。3. 酒店收費管理系統(tǒng)分析與設(shè)計 酒店收費管理系統(tǒng)功能需求簡介酒店收費管理系統(tǒng)對酒店加強(qiáng)客房信息管理有著極其重要的作用，就一所客房數(shù)量較大的酒店來說，它的設(shè)計內(nèi)容非常復(fù)雜而且繁多，比如擁有客房信息管理、入住信息管理、預(yù)定信息管理等功能，而且設(shè)計的模塊也很多，比如信息統(tǒng)計模塊，報表設(shè)計模塊，打印輸出模塊，模糊查詢模塊等等?？头啃畔⒅饕头刻枴⒖头考墑e和是否入住。用戶容易理解和使用該系統(tǒng)。操作系統(tǒng)：Windows 98數(shù)據(jù)庫為：MS Access 2000開發(fā)工具與語言: Visual Basic 數(shù)據(jù)庫設(shè)計 設(shè)計數(shù)據(jù)庫系統(tǒng)時首先應(yīng)該充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。客房標(biāo)準(zhǔn)設(shè)置基本信息錄入客房登記基本信息錄入客房標(biāo)準(zhǔn)信息管理顧客登記客房信息管理 訂房信息輸入訂房信息管理結(jié)算信息輸入結(jié)算信息管理基本信息返回