vb課程設計實驗報告客房管理系統

1、第1章統設計的目的與意義: 客房管理系統用于賓館旅客入住情況登記,包括旅客的姓名及身份證號的登記,以及入住房間信息.當旅客離開時,需要辦理退房結帳手續(xù).對于一定時間沒的旅客入住情況實現基本查詢,報表打印功能.對于賓館本身也實現了客房增減,入住情況查詢等功能. 無論各種等級的賓館,使用客房管理系統都具有非常實用的價值.使用該系統可以大大節(jié)省時間,提高辦公效率,而且非常方便的實現旅客信息的查詢,以及對賓館本身客房入住情況及時了解.因此,客房管理系 統的開發(fā)無疑具有深遠的意義.系統功能設計 系統設計包括數據庫設計,主界面設計,菜單設計以及功能設計.而其他功能設計包括系統登錄設計,旅客信息登記,旅客信

2、息查詢,退房信息處理設計以及報表輸入等功能設計,系統功能設計流程圖如圖所示開始啟動圖1.1用戶登錄 旅客信息表為旅客的個人信息加入住客房信息，數據結構如表 旅客信息表設置字段名類型大小說明登記號Text8旅客入住號姓名Text8旅客姓名身份證號碼Text18旅客身份證號房間號Text3入住房間號登記日期Text日期/時間旅客入住時間性別Text3旅客性別籍貫Text8旅客籍貫表2.1客房信息表為客房入住情況的基本信息，數據結構如表客房信息表設置字段名類型大小說明房間號Text3房間號客房等級Text8客房等級客房類型Text8客房類型客房價格Text單精度型客房價格客房狀態(tài)Text3客房狀態(tài)客

3、房備注信息備注8客房備注信息 表2.2旅客退房記錄表為旅客退房相關的一些記錄信息，數據結構如表旅客退房記錄表設置字段名類型大小說明登記號Text8旅客入住號登記日期日期/時間旅客登記時間退房時間日期/時間旅客退房時間付款金額Text單精度型付費金額退房備注信息Text8退房備注信息 表2.3管理人員信息表存儲賓館管理人員使用該系統的帳號密碼，數據結構表管理人員信息表設置字段名類型大小說明姓名Text20管理人員帳號密碼Text20管理人員密碼權限Text1管理人員權限表2.4第3章主體內容31 設計標準模塊本系統設計過程中，創(chuàng)建一個通用函數模塊，用于實現數據庫連接及按需要打開一個數據表。程序代

4、碼如下：Option ExplicitPublic Sub opentable(pado As Adodc, precordsource As String)With pado .ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & /Total.mdb .CommandType = adCmdUnknown .RecordSource = precordsource .Refresh End WithEnd Sub3.2 戶登錄界面設計用戶登錄的作用是判斷使用本程序的用戶是否是合法用戶。在程

5、序進入登錄界面時要求輸入用戶名和密碼，如果用戶名，密碼正確程序繼續(xù)執(zhí)行。當密碼錯誤輸入的次數超過設定次數時，給出提示信息退出程序，這樣防止了非法用戶對本程序的使用。321工作界面設計 圖3.1登錄窗體程序代碼如下：Private Sub cmdok_Click() 檢查正確的密碼首先要對用戶名特殊字符的過濾防止非授權用戶的登陸訪問Dim s1 As StringDim i As IntegerDim j As IntegerDim a(18) As String j = Len(txtUserName.Text) s1 = txtUserName.Text Dim c As Integer c

6、 = 1 For i = 1 To j a(i) = Mid(s1, i, 1)逐一判斷字符的合格化 If a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then

7、MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = , Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub End If c = c + 1 txtUserName.SetFocus Next iDim strusername As StringDim strpassword As StringStatic intlogintimes As IntegerIf Trim(txtUserNam

8、e.Text) = ThenMsgBox 用戶名不能為空！, vbOKOnly + vbCritical, 錯誤Exit SubEnd Ifopentable adousers, usersinfoadousers.Refreshadousers.Recordset.Find 姓名= & & txtUserName.Text & , , adSearchForward, 1If Not adousers.Recordset.EOF Then strusername = adousers.Recordset!姓名strpassword = adousers.Recordset!密碼Elsestr

9、username = strpassword = End IIf strusername = txtUserName.Text And strpassword = txtPassword.Text Thenadousers.Recordset.CloseUnload Mefrmmdi.Show ElseMsgBox 用戶名或密碼不對！, vbOKOnly + vbInformation, 提示 intlogintimes = intlogintimes + 1 If intlogintimes = 3 Thenadousers.Recordset.Close EndEnd IftxtPassw

10、ord.SetFocus SendKeys HOME+END End If End Sub Private Sub cmdcancel_click() Unload Me End Sub322 添加新用戶用于添加新的用戶包括用戶名,密碼,及職務 工作界面設計如圖 圖3.2添加用戶窗體程序代碼如下:Private Sub Command1_Click()opentable adousers, usersinfoadousers.RefreshWith adousers.RecordsetDim i As IntegerIf Trim(Text1(0).Text) = Then MsgBox 用戶

11、名不能為空！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit SubEnd IfIf Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit SubEnd IfIf Trim(Text1(2).Text) = Then MsgBox 確認密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocusExit SubEnd IfIf Trim(Text1(1)

12、.Text) Trim(Text1(2).Text) Then MsgBox 確認密碼不正確！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocusExit SubEnd If opentable adousers, usersinfo adousers.Refresh adousers.Recordset.Find 姓名= & & Text1(0).Text & , , adSearchForward, 1If adousers.Recordset.EOF = False Then MsgBox 已存在該用戶！, vbExclamation + vb

13、OKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit SubEnd If opentable adousers, usersinfo .AddNew !姓名 = Trim(Text1(0).Text) !密碼 = Trim(Text1(1).Text) If Option1(0) Then !權限 = 1 If Option1(1) Then !權限 = 2 If Option1(2) Then !權限 = 3 .Update MsgBox 用戶添加成功！,

14、 vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End With Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub33 創(chuàng)建系統主界面當系統運行時，首先進入登錄界面，當輸入帳號，密碼合法時，則啟動系統主界面。主窗體是進入其他模塊的入口。本系統主界面采用多文檔界面，設計情況如圖 圖3.3主界面窗體設計主界面菜單項在操作項目比較多的情況下，通常是通過菜單來調用下級程序。菜單項的設計包含設置快捷鍵與訪問鍵，設置如表： 主窗

15、體菜單表3.4級別菜單名稱快捷鍵訪問鍵主菜單系統功能mnuSystem&S子菜單用戶管理mnuUserCtrl+U&U退出系統mnuExit&X主菜單基本信息管理mnuInfo&I子菜單客房信息mnuRoomInfoCtrl+R&R入住情況mnuGuest&G退房記錄mnuQuit&C主菜單信息查詢mnuQuerySelect&Q主菜單報表輸出mnuReport&R子菜單房間情況表mnuReportRoomCtrl+R&R收費情況表mnuReportMoney&M主菜單窗口布局mnuWindow&W子菜單水平平鋪mnuHorCtrl+R&H垂直平鋪mnuVer&V層疊mnuCascade&C排

16、列圖標mnuIcon&I主菜單幫助信息mnuHelpCtrl+H&H內容mnuContent&C索引mnuIndex&I設計主界面Option ExplicitPrivate Sub MDIForm_Load()App.Title = 賓館客房管理系統opentable adoroom, roomopentable adoguest, guestopentable adoquit, quitEnd SubPrivate Sub mnuCascade_Click()frmmdi.Arrange vbCascadeEnd SubPrivate Sub mnudenglu_Click()frmLog

17、in.ShowEnd SubPrivate Sub mnuExit_Click()Unload MeEnd SubPrivate Sub mnuGuest_Click()frmGuestInfo.ShowEnd SubPrivate Sub mnuHor_Click()frmmdi.Arrange vbTileHorizontalEnd SubPrivate Sub mnuIcon_Click()frmmdi.Arrange vbArrangeIconsEnd SubPrivate Sub mnuqueryguest_Click()frmqueryinfo.ShowEnd SubPrivate

18、 Sub mnuqueryroom_Click()frmqueryroom.ShowEnd SubPrivate Sub mnuQuit_Click()frmquitinfo.ShowEnd SubPrivate Sub mnuRoomInfo_Click()frmroominfo.ShowEnd SubPrivate Sub mnuUser_Click()frmusers.ShowEnd SubPrivate Sub mnuver_Click()frmmdi.Arrange vbTileVerticalEnd SubPrivate Sub toolbar1_buttonclick(ByVal

19、 button As MSComctlLib.button) Select Case button.Index Case 1 mnuRoomInfo_Click Case 2 mnuGuest_Click Case 3 mnuQuit_Click Case 4 mnuqueryroom_Click Case 5 mnuReportRoom_Click Case 6 mnuExit_Click End Select End Sub34 制作客戶信息登記窗體客戶信息窗體包括對全體旅客信息瀏覽，修改及刪除的窗體和添加新入住旅客信息窗體。旅客基本信息窗體，工作界面設計情況如圖： 控件屬性表3.5控件名

20、稱屬性設置值DataGrid1(名稱)dtgGuestInfoCommand1(名稱)cmdAddNewCaption添加(&A)Command2(名稱)cmdEditCaption修改(&E)控件名稱屬性設置值Command3(名稱)cmdDeleteCaption刪除(&D)Command4(名稱)cmdExitCaption退出(&X) 圖3.6旅客信息窗體程序代碼如下：Option ExplicitPrivate Sub dtgguestrefresh()With dtgguestinfo Set .DataSource = frmmdi.adoguest .AllowRowSizin

21、g = False .HeadFont = 2 .MarqueeStyle = dbgHighlightRow .AllowAddNew = False .AllowDelete = False .AllowUpdate = False .Columns(0).Caption = 登記號 .Columns(0).Width = 600 .Columns(0).AllowSizing = False .Columns(1).Caption = 客人姓名 .Columns(1).Width = 600 .Columns(1).AllowSizing = False .Columns(2).Capt

22、ion = 身份證號碼 .Columns(2).Width = 1500 .Columns(2).AllowSizing = False .Columns(3).Caption = 房間號 .Columns(3).Width = 600 .Columns(3).AllowSizing = False .Columns(4).Caption = 登記日期 .Columns(4).Width = 1000 .Columns(4).AllowSizing = False .Columns(5).Caption = 性別 .Columns(5).Width = 500 .Columns(5).Allo

23、wSizing = False .Columns(6).Caption = 籍貫 .Columns(6).Width = 2000 .Columns(6).AllowSizing = False End With End SubPrivate Sub cmdaddnew_Click()With frmguestinfoedit .Caption = 添加新旅客 .txtbookno.Locked = False .txtbookno.Text = .txtguestname.Text = .txtcardid.Text = .txtroomno.Text = dtpbookdate.Text

24、= Date .dtpbookdate.Enabled = False End With frmguestinfoedit.ShowEnd SubPrivate Sub cmddelete_Click()If frmmdi.adoguest.Recordset.EOF True And frmmdi.adoguest.Recordset.BOF True Then With frmmdi.adoroom.Recordset If MsgBox(確認要刪除當前記錄嗎？, vbYesNo + vbQuestion + vbDefaultButton2, 確認框) = vbYes Then .Fin

25、d 房間號= & & frmmdi.adoguest.Recordset!房間號 & , , adSearchForward, 1 If Not .EOF Then !客房狀態(tài) = 空 End If With frmmdi.adoguest.Recordset .Delete End With frmGuestInfo.SetFocus End If End With End IfEnd SubPrivate Sub cmdedit_Click() If frmmdi.adoguest.Recordset.EOF True And frmmdi.adoguest.Recordset.BOF T

26、rue Then With frmguestinfoedit .Caption = 修改客人信息 .txtbookno.Text = frmmdi.adoguest.Recordset!登記號 .txtbookno.Locked = True .txtbookno.Enabled = False .txtguestname.Text = frmmdi.adoguest.Recordset!姓名 .txtcardid.Text = frmmdi.adoguest.Recordset!身份證號碼 .txtroomno = frmmdi.adoguest.Recordset!房間號 .dtpbook

27、date.Text = frmmdi.adoguest.Recordset!登記日期 .dtpbookdate.Enabled = False End With End If frmguestinfoedit.ShowEnd SubPrivate Sub cmdexit_Click() Unload MeEnd SubPrivate Sub Form_Load()Me.Left = (frmmdi.Width - Me.Width) / 2Me.Top = (frmmdi.Height - Me.Height) / 4dtgguestrefreshEnd Sub35 旅客信息登記窗體本窗體用于

28、當旅客入住時，登記其基本信息，包括入住房間號。 圖 3.7添加新旅客窗體窗體初始化與激活事件代碼：Option ExplicitDim proomno As StringPrivate Sub cmdcancle_Click()Unload MeEnd SubPrivate Sub cmdok_Click()With frmmdi.adoguest.Recordset If Not txtbookno.Locked Then If Trim(txtbookno.Text) = Then MsgBox 登記號不能為空！, vbOKOnly + vbInformation, 提示 txtbookn

29、o.SetFocus Exit Sub End If .Find 房間號= & & txtbookno & , , adSearchForward, 1 If Not .EOF Then MsgBox 已經有相同登記號！, vbOKOnly + vbInformation, 提示txtbookno.SetFocus Exit Sub End If frmmdi.adoroom.Recordset.Find 房間號= & & Trim(txtroomno.Text) & , , adSearchForward, 1 If Not frmmdi.adoroom.Recordset.EOF Then

30、 If frmmdi.adoroom.Recordset!客房狀態(tài) 空 Then MsgBox 已有客人居?。? vbOKOnly + vbInformation, 提示 txtroomno.SetFocus Exit Sub End If Else MsgBox 沒有此客房編號,請重新輸入！, vbOKOnly + vbInformation, 提示 txtroomno.SetFocus Exit Sub End If If Trim(txtguestname.Text) = Then MsgBox 客人姓名不能為空！, vbOKOnly + vbInformation, 提示 txtgue

31、stname.SetFocus Exit Sub End If .AddNew !登記號 = Trim(txtbookno.Text) frmmdi.adoroom.Recordset.Find 房間號= & &Trim(txtroomno.Text) & , , adSearchForward, 1 frmmdi.adoroom.Recordset!客房狀態(tài) = 有人 End If !姓名 = txtguestname.Text !身份證號碼 = txtcardid.Text !性別 = txtsex.Text !籍貫 = txtpro.Text If txtbookno.Locked Th

32、en If Trim(txtroomno.Text) proomno Then With frmmdi.adoroom.Recordset .Find 房間號= & & Trim(txtroomno.Text) & , , adSearchForward, 1 !客房狀態(tài) = 有人 .Find 房間號= & & proomno & , , adSearchForward, 1 !客房狀態(tài) = 空 End With End If End If !房間號 = Trim(txtroomno.Text) !登記日期 = dtpbookdate.Text .Update Unload Me End Wi

33、th End SubPrivate Sub form_activate()proomno = Trim(txtroomno.Text)End Sub36 制作退房信息處理窗體當旅客離開賓館時，需要為其辦理退房手續(xù)，在這過程中需要在旅客退房信息表中添加記錄信息，以及修改客房信息表，改變客房狀態(tài)。旅客退房信息窗體，工作界面設計情況如圖： 圖3.8退房窗體程序代碼如下：Private Sub dtgQuitRefresh() With dtgQuitInfo 綁定 Set .DataSource = frmmdi.adoquit .AllowRowSizing = False 表頭寬度設為兩行 .H

34、eadLines = 2 選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 不允許修改(設為只讀) .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 第一列標題和寬度 .Columns(0).Caption = 登記號 .Columns(0).Width = 700 .Columns(0).AllowSizing = False 第二列標題和寬度 .Columns(1).Caption = 登記日期 .Columns(1).Width = 1200 .Columns(1).AllowS

35、izing = False 第三列標題和寬度 .Columns(2).Caption = 退房時間 .Columns(2).Width = 1200 .Columns(2).AllowSizing = False 第四列標題和寬度 .Columns(3).Caption = 付費金額 .Columns(3).Width = 1200 .Columns(3).AllowSizing = False .Columns(4).Caption = 備注 .Columns(4).Width = 4000Columns(4).AllowSizing = False End WithEnd SubPriva

36、te Sub cmdaddnew_Click() With frmquitinfoedit 窗體標題 .Caption = 添加退房信息 .txtbookno.Locked = False .txtbookno.Text = .txtpaymoney.Text = .txtinfo.Text = .dtpquitdate.Text = Date 顯示為模式窗體 .Show End WithEnd SubPrivate Sub cmddelete_Click()If frmmdi.adoquit.Recordset.EOF True And frmmdi.adoquit.Recordset.BO

37、F True Then With frmmdi.adoquit.Recordset If MsgBox(確認要刪除當前記錄嗎?, vbYesNo + vbQuestion + vbDefaultButton2, 確認框) = vbYes Then Find 登記號= & frmmdi.adoquit.Recordset!登記號 & , , adSearchForward, 1 If Not .EOF Then !QuitStatus = False End If With frmmdi.adoquit.Recordset.Delete End With dtgQuitInfo.SetFocus

38、 End If End WithEnd IfEnd SubPrivate Sub cmdedit_Click() If frmmdi.adoguest.Recordset.EOF True And frmmdi.adoguest.Recordset.BOF True Then With frmquitinfoedit 窗體標題 .Caption = 修改退房信息 .txtbookno.Text = frmmdi.adoquit.Recordset!登記號 .txtbookno.Locked = True .txtpaymoney.Text = frmmdi.adoquit.Recordset!

39、付款金額 .TxtInfo.Text = frmMDI.AdoQuit.Recordset!QuitInfo .dtpquitdate.Text = frmmdi.adoquit.Recordset!退房時間 .ShowEnd With End IfEnd SubPrivate Sub cmdexit_Click() Unload MeEnd SubPrivate Sub Form_Load() Me.Height = 4155 Me.Width = 7920 Me.Left = (frmmdi.Width - Me.Width) / 2 Me.Top = (frmmdi.Height - M

40、e.Height) / 4 dtgQuitRefreshEnd Sub37 添加退房信息窗體本窗體用于當旅客離開時，登記旅客退房信息，以及計算并記錄付額, ： 圖3.9添加退房信息窗體程序代碼如下：Private Sub CmdOK_Click()With frmmdi.adoquit.Recordset If Not txtbookno.Locked Then 可修改狀態(tài)表示是添加記錄 If Trim(txtbookno.Text) = Then MsgBox 登記號不能為空!, vbOKOnly + vbInformation, 提示 txtbookno.SetFocus Exit Sub

41、 End If frmmdi.adoguest.Recordset.Find 登記號= & Trim(txtbookno.Text) & , ,adSearchForward, 1 If frmmdi.adoguest.Recordset.EOF Then 有就提示,然后退出 MsgBox 非法登記號!, vbOKOnly + vbInformation, 提示 txtbookno.SetFocusSendKeys HOME+END txtpaymoney.Text = Exit Sub End If frmmdi.adoquit.Recordset.Find 登記號= & Trim(txtb

42、ookno.Text) & , , adSearchForward, 1 If Not frmmdi.adoquit.Recordset.EOF Then 有就提示,然后退出 MsgBox 已經有相同登記號!, vbOKOnly + vbInformation, 提示 txtbookno.SetFocus SendKeys HOME+END txtpaymoney.Text = Exit Sub End If 沒有就添加記錄 .AddNew !登記號 = Trim(txtbookno.Text) End If 給字段賦值 !付款金額 = Val(Trim(txtpaymoney.Text) !

43、退房時間 = dtpquitdate.Text If txtinfo.Text = Then MsgBox 備注不能為空!, vbOKOnly + vbInformation, 提示 txtinfo.SetFocus !退房備注信息 = txtinfo.TextEnd If .Update 退出窗體 Unload MeEnd WithEnd SubPrivate Sub CmdQuit_Click() 退出窗體 Unload MeEnd SubPrivate Sub Form_Load() Me.Height = 3405 Me.Width = 7440End Sub38制作旅客查詢窗體旅客查

44、詢窗體主要功能是實現客房信息查詢顯示，查詢方式可以是按旅客姓名，登記號也可以按房間號查詢。工作界面如圖：旅客查詢窗體控件屬性表3.10控件名稱屬性設置值DataGrid1(名稱)dtgQueryOption1(名稱)OptRoomNoCaption房間號Option2(名稱)OptionNameCaption旅客姓名Option3(名稱)optBookNoCaption登記號Text1(名稱)TxtValue 圖3.11旅客信息查詢窗體程序代碼如Option ExplicitPrivate Sub dtgqueryrefresh()With dtgquery Set .DataSource =

45、 frmmdi.adoguest .AllowRowSizing = False .HeadFont = 2 .MarqueeStyle = dbgHighlightRow.AllowAddNew = False .AllowDelete = False.AllowUpdate = False.Columns(0).Caption = 登記號.Columns(0).Width = 600 .Columns(0).AllowSizing = False .Columns(1).Caption = 客人姓名 .Columns(1).Width = 600.Columns(1).AllowSizin

46、g = False .Columns(2).Caption = 身份證號碼 .Columns(2).Width = 1500 .Columns(2).AllowSizing = False .Columns(3).Caption = 房間號.Columns(3).Width = 600 .Columns(3).AllowSizing = False.Columns(4).Caption = 登記日期 .Columns(4).Width = 1000 .Columns(4).AllowSizing = False .Columns(5).Caption = 性別 .Columns(5).Widt

47、h = 500 .Columns(5).AllowSizing = False .Columns(6).Caption = 籍貫.Columns(6).Width = 2000 .Columns(6).AllowSizing = False End With End SubPrivate Sub Command1_Click()If optroomno Then opentable frmmdi.adoguest, select * from guest where (guest.房間號) like & Trim(txtvalue.Text) & % ) ElseIf optname Then

48、 opentable frmmdi.adoguest, select * from guest where (guest.姓名) like & Trim(txtvalue.Text) & % ) ElseIf optbookno Then opentable frmmdi.adoguest, select * from guest where (guest.登記號) like & Trim(txtvalue.Text) & %) End If dtgqueryrefreshEnd SubPrivate Sub Form_Load()Me.Left = (frmmdi.Width - Me.Wi

49、dth) / 2Me.Left = (frmmdi.Height - Me.Height) / 2opentable frmmdi.adoguest, select * from guest order by 登記號dtgqueryrefreshEnd SubPrivate Sub optname_Click()txtvalue.Text = txtvalue.Visible = TrueFrame2.Caption = 按姓名查詢Frame2.Visible = TrueSendKeys TABEnd SubPrivate Sub optroomno_click()txtvalue.Text

50、 = txtvalue.Visible = TrueFrame2.Caption = 按房間號查詢Frame2.Visible = TrueSendKeys TABEnd SubPrivate Sub optbookno_click()txtvalue.Text = Label1.Visible = Truetxtvalue.Visible = TrueFrame2.Caption = 按登記號查詢Frame2.Visible = TrueSendKeys TABEnd Sub39 查詢客房信息客房查詢窗體主要功能是實現客房信息查詢顯示，查詢方式可以按房間號，客房等級，客房類型查詢，工作界面如

51、圖： 圖3.12客房信息查詢程序代碼如下：Private Sub dtgroomqueryinforefresh()With dtgroomqueryinfo Set .DataSource = frmmdi.adoroom.AllowRowSizing = False .HeadFont = 2 .MarqueeStyle = dbgHighlightRow .AllowAddNew = False .AllowDelete = False .AllowUpdate = False .Columns(0).Caption = 房間號 .Columns(0).Width = 600 .Columns(0).AllowSizing = False .Columns(1).Caption = 客房等級 .Columns(1).Width = 800 .Columns(1).AllowSizing = False .Columns(2).Caption = 客房類型 .Columns(2).Width = 800 .