客房管理系統(tǒng)-源代碼-文庫吧資料
2024-09-14 13:03本頁面
【正文】 amp?？尚薷臓顟B(tài)表示是添加記錄 If Trim() = Then MsgBox 登記號不能為空 !, vbOKOnly + vbInformation, 提示 Exit Sub End If 登記號 =39。窗體標題 .Caption = 修改退房信息 . = !登記號 . = True . = !付款金額 39。, , adSearchForward, 1 If Not .EOF Then 39。 !登記號 amp。顯示為模式窗體 .Show End With End Sub Private Sub cmddelete_Click() If True And True Then With 13 If MsgBox(確認要刪除當前記錄嗎 ?, vbYesNo + vbQuestion + vbDefaultButton2, 確認框 ) = vbYes Then Find 登記號 =39。第四列標題和寬度 .Columns(3).Caption = 付費金額 .Columns(3).Width = 1200 .Columns(3).AllowSizing = False .Columns(4).Caption = 備注 .Columns(4).Width = 4000 Columns(4).AllowSizing = False End With End Sub Private Sub cmdaddnew_Click() With frmquitinfoedit 39。第二列標題和寬度 .Columns(1).Caption = 登記日期 .Columns(1).Width = 1200 .Columns(1).AllowSizing = False 39。不允許修改 (設為只讀 ) .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。表頭寬度設為兩行 .HeadLines = 2 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 Private Sub dtgQuitRefresh() With dtgQuitInfo 39。 proomno amp。 39。 39。 amp。, , adSearchForward, 1 !客房狀態(tài) = 有人 End If !姓名 = !身份證號碼 = !性別 = !籍貫 = If Then If Trim() proomno Then 11 With .Find 房間 號 = amp。 Trim() amp。 39。 39。 amp。, , adSearchForward, 1 10 If Not .EOF Then MsgBox 已經有相同登記號！ , vbOKOnly + vbInformation, 提示 Exit Sub End If 房間號 = amp。 txtbookno amp。 39。 39。 amp。mnuReportRoom_Click Case 6 mnuExit_Click End Select End Sub Option Explicit 7 Private Sub dtgguestrefresh() With dtgguestinfo Set .DataSource = .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).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 = 2020 .Columns(6).AllowSizing = False End With End Sub Private Sub cmdaddnew_Click() With frmguestinfoedit .Caption = 添加新旅客 8
公司管理相關推薦
鄂ICP備17016276號-1