客房管理系统-源代码

客房管理系统-源代码内容摘要：

要删除当前记录吗。 , vbYesNo + vbQuestion + vbDefaultButton2, 确认框 ) = vbYes Then .Find 房间号 = amp。 39。 amp。 ! 房间号 amp。 39。 , , adSearchForward, 1 If Not .EOF Then !客房状态 = 空 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 = 修改客人信息 . = !登记号 9 . = True . = 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 Option Explicit Dim proomno As String Private Sub cmdcancle_Click() 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 10 If Not .EOF Then MsgBox 已经有相同登记号。 , vbOKOnly + vbInformation, 提示 Exit Sub End If 房间号 = amp。 39。 amp。 Trim() amp。 39。 , , adSearchForward, 1 If Not Then If !客房状态 空 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 !登记号 = Trim() 房间号 = amp。 39。 amp。 Trim() amp。 39。 , , adSearchForward, 1 !客房状态 = 有人 End If !姓名 = !身份证号码 = !性别 = !籍贯 = If Then If Trim() proomno Then 11 With .Find 房间 号 = amp。 39。 amp。 Trim() amp。 39。 , , adSearchForward, 1 !客房状态 = 有人 .Find 房间号 = amp。 39。 amp。 proomno amp。 39。 , , adSearchForward, 1 !客房状态 = 空 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。 绑定 Set .DataSource = .AllowRowSizing = False 39。 表头宽度设为两行 .HeadLines = 2 39。 选择方式为整行选中 .MarqueeStyle = dbgHighlightRow 39。 不允许修改 (设为只读 ) .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。 第一列标题和宽度 .Columns(0).Caption = 登记号 .Columns(0).Width = 700 12 .Columns(0).AllowSizing = False 39。 第二列标题和宽度 .Columns(1).Caption = 登记日期 .Columns(1).Width = 1200 .Columns(1).AllowSizing = False 39。 第三列标题和宽度 .Columns(2).Caption = 退房时间 .Columns(2).Width = 1200 .Columns(2).AllowSizing = False 39。 第四列标题和宽度 .Columns(3).Caption = 付费金额 .Columns(3).Width = 1200 .Columns(3).AllowSizing = Fa。