客房管理系統(tǒng)-源代碼-文庫(kù)吧資料
2024-09-14 13:03本頁(yè)面
【正文】 amp?？尚薷臓顟B(tài)表示是添加記錄 If Trim() = Then MsgBox 登記號(hào)不能為空 !, vbOKOnly + vbInformation, 提示 Exit Sub End If 登記號(hào) =39。窗體標(biāo)題 .Caption = 修改退房信息 . = !登記號(hào) . = True . = !付款金額 39。, , adSearchForward, 1 If Not .EOF Then 39。 !登記號(hào) amp。顯示為模式窗體 .Show End With End Sub Private Sub cmddelete_Click() If True And True Then With 13 If MsgBox(確認(rèn)要?jiǎng)h除當(dāng)前記錄嗎 ?, vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn)框 ) = vbYes Then Find 登記號(hào) =39。第四列標(biāo)題和寬度 .Columns(3).Caption = 付費(fèi)金額 .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。第二列標(biāo)題和寬度 .Columns(1).Caption = 登記日期 .Columns(1).Width = 1200 .Columns(1).AllowSizing = False 39。不允許修改 (設(shè)為只讀 ) .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。表頭寬度設(shè)為兩行 .HeadLines = 2 39。, , adSearchForward, 1 !客房狀態(tài) = 空 End With End If End If !房間號(hào) = 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 !姓名 = !身份證號(hào)碼 = !性別 = !籍貫 = If Then If Trim() proomno Then 11 With .Find 房間 號(hào) = amp。 Trim() amp。 39。 39。 amp。, , adSearchForward, 1 10 If Not .EOF Then MsgBox 已經(jīng)有相同登記號(hào)！ , vbOKOnly + vbInformation, 提示 Exit Sub End If 房間號(hào) = 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 = 登記號(hào) .Columns(0).Width = 600 .Columns(0).AllowSizing = False .Columns(1).Caption = 客人姓名 .Columns(1).Width = 600 .Columns(1).AllowSizing = False .Columns(2).Caption = 身份證號(hào)碼 .Columns(2).Width = 1500 .Columns(2).AllowSizing = False .Columns(3).Caption = 房間號(hào) .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
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1