【文章內(nèi)容簡介】 = 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).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).Width = 500 .Columns(5).AllowSizing = False .Columns(6).Caption = 籍貫 .Columns(6).Width = 2021 .Columns(6).AllowSizing = False End With End Sub Private Sub cmdaddnew_Click() With frmguestinfoedit 13 .Caption = 添加新旅客 . = False . = . = . = . = = Date . = False End With End Sub Private Sub cmddelete_Click() If True And True Then With If MsgBox(確認要刪除當前記錄嗎？ , vbYesNo + vbQuestion + vbDefaultButton2, 確認框 ) = vbYes Then .Find 房間號 = amp。 39。 amp。 !房間號 amp。 39。, , adSearchForward, 1 If Not .EOF Then !客房狀態(tài) = 空 End If With .Delete End With End If End With End If End Sub Private Sub cmdedit_Click() If True And True Then With frmguestinfoedit .Caption = 修改客人信息 . = !登記號 . = True 14 . = False . = !姓名 . = !身份證號碼 .txtroomno = !房間號 . = !登記日期 . = False End With End If End Sub Private Sub cmdexit_Click() Unload Me End Sub Private Sub Form_Load() = ( ) / 2 = ( ) / 4 dtgguestrefresh End Sub 3． 5 旅客信息登記窗體 本窗體用于當旅客入住時，登記其基本信息，包括入住房間號。 圖 窗體初始化與激活事件代碼： Option Explicit Dim proomno As String Private Sub cmdcancle_Click() 15 Unload Me End Sub Private Sub cmdok_Click() With If Not Then If Trim() = Then MsgBox 登記號不能為空！ , vbOKOnly + vbInformation, 提示 Exit Sub End If .Find 房間號 = amp。 39。 amp。 txtbookno amp。 39。, , adSearchForward, 1 If Not .EOF Then MsgBox 已經(jīng)有相同登記號！ , vbOKOnly + vbInformation, 提示 Exit Sub End If 房間號 = amp。 39。 amp。 Trim() amp。 39。, , adSearchForward, 1 If Not Then If !客房狀態(tài) 空 Then MsgBox 已有客人居??！ , vbOKOnly + vbInformation, 提示 Exit Sub End If Else MsgBox 沒有此客房編號 ,請重新輸入！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If Trim() = Then MsgBox 客人姓名不能為空！ , vbOKOnly + vbInformation, 提示 Exit Sub End If .AddNew 16 !登記號 = Trim() 房間號 = amp。 39。 amp。 Trim() amp。 39。, , adSearchForward, 1 !客房狀態(tài) = 有人 End If !姓名 = !身份證號碼 = !性別 = !籍貫 = If Then If Trim() proomno Then With .Find 房間號 = amp。 39。 amp。 Trim() amp。 39。, , adSearchForward, 1 !客房狀態(tài) = 有人 .Find 房間號 = amp。 39。 amp。 proomno amp。 39。, , adSearchForward, 1 !客房狀態(tài) = 空 End With End If End If !房間號 = Trim() !登記日期 = .Update Unload Me End With End Sub Private Sub form_activate() proomno = Trim() End Sub 3． 6 制作退房信息處理窗體 當旅客離開賓館時，需要為其辦理退房手續(xù)，在這過程中需要在旅客退房信息表中添加記錄信息，以及修改客房信息表，改變客房狀態(tài)。 旅客退房信息窗體，工作界面設計情況如圖： 17 圖 程序代碼如下： Private Sub dtgQuitRefresh() With dtgQuitInfo 39。綁定 Set .DataSource = .AllowRowSizing = False 39。表頭寬度設為兩行 .Head