客房管理系統(tǒng)-源代碼(參考版)
2024-09-10 13:03本頁面
【正文】 39。 amp。)) 39。 Trim() amp。)) ElseIf optgrade Then opentable , select * from room where ((( ) like 39。 Trim() amp。 = True = True = 按登記號(hào)查詢 = True SendKeys {TAB} End Sub Private Sub dtgroomqueryinforefresh() With dtgroomqueryinfo Set .DataSource = .AllowRowSizing = False .HeadFont = 2 18 .MarqueeStyle = dbgHighlightRow .AllowAddNew = False .AllowDelete = False .AllowUpdate = False .Columns(0).Caption = 房間號(hào) .Columns(0).Width = 600 .Columns(0).AllowSizing = False .Columns(1).Caption = 客房等級(jí) .Columns(1).Width = 800 .Columns(1).AllowSizing = False .Columns(2).Caption = 客房類型 .Columns(2).Width = 800 .Columns(2).AllowSizing = False .Columns(3).Caption = 客房價(jià)格 .Columns(3).Width = 800 .Columns(3).AllowSizing = False .Columns(4).Caption = 客房狀態(tài) .Columns(4).Width = 800 .Columns(4).AllowSizing = False .Columns(5).Caption = 客房備注信息 .Columns(5).Width = 1200 .Columns(5).AllowSizing = False End With End Sub Private Sub Command1_Click() If optroom Then opentable , select * from room where ((( ) like 39。 %39。 amp。)) 39。 Trim() amp。)) ElseIf optname Then opentable , select * from guest where ((( ) like 39。 Trim() amp。退出窗體 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 = 登記號(hào) .Columns(0).Width = 600 16 .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 SubPrivate Sub Command1_Click() If optroomno Then opentable , select * from guest where ((( ) like 39。給字段賦值 !付款金額 = Val(Trim()) !退房時(shí)間 = If = Then MsgBox 備注不能為空 !, vbOKOnly + vbInformation, 提示 !退房備注信息 = End If .Update 39。有就提示 ,然后退出 MsgBox 已經(jīng)有相同登記號(hào) !, vbOKOnly + vbInformation, 提示 SendKeys {HOME}+{END} = Exit Sub End If 39。 39。 amp。, , adSearchForward, 1 If Then 39。 Trim()
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1