main_qxsz.frm

本系统以ACCESS为数据库,能对酒店的日常事务进行管理,如客房入住,退房,房间空置有标记,挺适合初学者学习之用,希大家多多指教

            Begin VB.CheckBox Check1 
               Caption         =   "客房销售统计"
               Height          =   315
               Index           =   16
               Left            =   150
               TabIndex        =   33
               Top             =   1380
               UseMaskColor    =   -1  'True
               Width           =   1455
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客房销售报表"
               Height          =   315
               Index           =   15
               Left            =   135
               TabIndex        =   24
               Top             =   945
               Width           =   1425
            End
            Begin VB.CheckBox Check1 
               Caption         =   "登记预收报表"
               Height          =   315
               Index           =   14
               Left            =   135
               TabIndex        =   16
               Top             =   510
               Width           =   1425
            End
         End
         Begin VB.Frame Frame5 
            Caption         =   "查询统计"
            Height          =   2685
            Left            =   5355
            TabIndex        =   8
            Top             =   480
            Width           =   1695
            Begin VB.CheckBox Check1 
               Caption         =   "宿费提醒"
               Height          =   690
               Index           =   13
               Left            =   210
               TabIndex        =   15
               Top             =   1635
               Width           =   1140
            End
            Begin VB.CheckBox Check1 
               Caption         =   "退宿查询"
               Height          =   315
               Index           =   12
               Left            =   210
               TabIndex        =   14
               Top             =   1350
               Width           =   1230
            End
            Begin VB.CheckBox Check1 
               Caption         =   "住宿查询"
               Height          =   315
               Index           =   11
               Left            =   210
               TabIndex        =   13
               Top             =   900
               Width           =   1200
            End
            Begin VB.CheckBox Check1 
               Caption         =   "预定房查询"
               Height          =   480
               Index           =   10
               Left            =   210
               TabIndex        =   12
               Top             =   390
               Width           =   1335
            End
         End
         Begin VB.Frame Frame4 
            Caption         =   "客房管理"
            Height          =   2685
            Left            =   1815
            TabIndex        =   7
            Top             =   480
            Width           =   1590
            Begin VB.CheckBox Check1 
               Caption         =   "房态查看"
               Height          =   315
               Index           =   7
               Left            =   225
               TabIndex        =   28
               Top             =   1275
               Width           =   1080
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客房查询"
               Height          =   315
               Index           =   6
               Left            =   225
               TabIndex        =   11
               Top             =   855
               Width           =   1080
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客房管理"
               Height          =   600
               Index           =   5
               Left            =   225
               TabIndex        =   10
               Top             =   300
               Width           =   1065
            End
         End
         Begin VB.Frame Frame3 
            Caption         =   "住宿管理"
            Height          =   2685
            Left            =   225
            TabIndex        =   3
            Top             =   465
            Width           =   1440
            Begin VB.CheckBox Check1 
               Caption         =   "调房登记"
               Height          =   315
               Index           =   3
               Left            =   165
               TabIndex        =   29
               Top             =   1725
               Width           =   1095
            End
            Begin VB.CheckBox Check1 
               Caption         =   "住宿登记"
               Height          =   315
               Index           =   1
               Left            =   165
               TabIndex        =   25
               Top             =   825
               Width           =   1080
            End
            Begin VB.CheckBox Check1 
               Caption         =   "追加押金"
               Height          =   315
               Index           =   2
               Left            =   180
               TabIndex        =   6
               Top             =   1275
               Width           =   1095
            End
            Begin VB.CheckBox Check1 
               Caption         =   "退宿结帐"
               Height          =   315
               Index           =   4
               Left            =   165
               TabIndex        =   5
               Top             =   2145
               Width           =   1095
            End
            Begin VB.CheckBox Check1 
               Caption         =   "客房预定"
               Height          =   390
               Index           =   0
               Left            =   165
               TabIndex        =   4
               Top             =   405
               Width           =   1110
            End
         End
      End
   End
End
Attribute VB_Name = "main_qxsz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()     '自动识别数据库路径
 Data1.DatabaseName = App.Path & "\KFGL.MDB"
 Data2.DatabaseName = App.Path & "\KFGL.MDB"
End Sub
Private Sub Form_Unload(Cancel As Integer)
 main.Enabled = True
End Sub
Private Sub DBList1_Click()
 If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst
 '查找操作员
 Data2.Recordset.FindFirst "操作员='" & DBList1.BoundText & "'"
 If Data2.Recordset.NoMatch Then
  DBList1.BoundText = 0
 Else
  '赋值给Check1
   For i = 0 To 2
    If Data2.Recordset.Fields(i) = -1 Then Check1(i).Value = 1 Else Check1(i).Value = 0
   Next i
 End If
End Sub
Private Sub Command1_Click()     '全选
For i = 0 To 20
  Check1(i).Value = 1
Next i
End Sub
Private Sub Command2_Click()     '全不选
For i = 0 To 20
  Check1(i).Value = 0
Next i
End Sub
Private Sub Command3_Click()     '为操作员设置权限
 If DBList1.BoundText <> "" Then
 Data2.Recordset.FindFirst "操作员= '" & DBList1.BoundText & "'"
 If Data2.Recordset.NoMatch Then
  Else
   Data2.Recordset.Edit
    For i = 0 To 20
     Data2.Recordset.Fields(i) = Check1(i).Value
    Next i
  Data2.Recordset.Update '更新记录
  Data2.Refresh
 End If
 End If
End Sub
Private Sub Command4_Click()     '删除操作员
 On Error Resume Next
 Data2.Recordset.Delete
 Data2.Refresh
 Data1.Refresh
End Sub
Private Sub comend_Click()
 Unload Me
 main.Enabled = True
End Sub