客房管理系統(tǒng)-源代碼(已改無錯字)
2022-10-19 13:03:48 本頁面
【正文】 lse .Columns(4).Caption = 備注 .Columns(4).Width = 4000 Columns(4).AllowSizing = False End With End Sub Private Sub cmdaddnew_Click() With frmquitinfoedit 39。窗體標題 .Caption = 添加退房信息 . = False . = . = . = . = Date 39。顯示為模式窗體 .Show End With End Sub Private Sub cmddelete_Click() If True And True Then With 13 If MsgBox(確認要刪除當(dāng)前記錄嗎 ?, vbYesNo + vbQuestion + vbDefaultButton2, 確認框 ) = vbYes Then Find 登記號 =39。 amp。 !登記號 amp。 39。, , adSearchForward, 1 If Not .EOF Then 39。 !QuitStatus = False End If With End With End If End With End If End Sub Private Sub cmdedit_Click() If True And True Then With frmquitinfoedit 39。窗體標題 .Caption = 修改退房信息 . = !登記號 . = True . = !付款金額 39。 . = !QuitInfo . = !退房時間 .Show End With End If End Sub Private Sub cmdexit_Click() Unload Me End Sub Private Sub Form_Load() = 4155 = 7920 = ( ) / 2 14 = ( ) / 4 dtgQuitRefresh End Sub Private Sub CmdOK_Click() With If Not Then 39?？尚薷臓顟B(tài)表示是添加記錄 If Trim() = Then MsgBox 登記號不能為空 !, vbOKOnly + vbInformation, 提示 Exit Sub End If 登記號 =39。 amp。 Trim() amp。 39。, , adSearchForward, 1 If Then 39。有就提示 ,然后退出 MsgBox 非法登記號 !, vbOKOnly + vbInformation, 提示 SendKeys {HOME}+{END} = Exit Sub End If 登記號 =39。 amp。 Trim() amp。 39。, , adSearchForward, 1 If Not Then 39。有就提示 ,然后退出 MsgBox 已經(jīng)有相同登記號 !, vbOKOnly + vbInformation, 提示 SendKeys {HOME}+{END} = Exit Sub End If 39。沒有就添加記錄 .AddNew !登記號 = Trim() End If 15 39。給字段賦值 !付款金額 = Val(Trim()) !退房時間 = If = Then MsgBox 備注不能為空 !, vbOKOnly + vbInformation, 提示 !退房備注信息 = End If .Update 39。退出窗體 Unload Me End With End Sub Private Sub CmdQuit_Click() 39。退出窗體 Unload Me End Sub Private Sub Form_Load() = 3405 = 7440 End Sub Option Explicit Private Sub dtgqueryrefresh() With dtgquery Set .DataSource = .AllowRowSizing = False .HeadFont = 2 .MarqueeStyle = dbgHighlightRow .AllowAddNew = False .AllowDelete = False .AllowUpdate = False .Columns(0).Caption = 登記號 .Columns(0).Width = 600 16 .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 .Colum
公司管理相關(guān)推薦
鄂ICP備17016276號-1