main_qxsz.frm

宾馆客房管理系统

               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             =   960
               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        =   27
               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        =   28
               Top             =   1800
               Width           =   1095
            End
            Begin VB.CheckBox Check1 
               Caption         =   "住宿登记"
               Height          =   315
               Index           =   1
               Left            =   165
               TabIndex        =   25
               Top             =   840
               Width           =   1080
            End
            Begin VB.CheckBox Check1 
               Caption         =   "追加押金"
               Height          =   315
               Index           =   2
               Left            =   180
               TabIndex        =   6
               Top             =   1320
               Width           =   1095
            End
            Begin VB.CheckBox Check1 
               Caption         =   "退宿结帐"
               Height          =   315
               Index           =   4
               Left            =   165
               TabIndex        =   5
               Top             =   2160
               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
Dim DBcnn As New ADODB.Connection
Dim DBrs1 As New ADODB.Recordset
Dim DBrs2 As New ADODB.Recordset
Dim sqlstr As String

Private Sub Form_Load()
'判断当前数据库连接对象的状态，如果未连接到数据库KFGL，则连接到数据库KFGL
 If DBcnn.State = 0 Then
    Dim connectstr As String
    connectstr = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
               App.Path & "\KFGL.mdb;Persist Security Info=False"
    DBcnn.CursorLocation = adUseClient
    DBcnn.Open connectstr
 End If
'判断数据集对象DBrs1的状态，如果是打开状态，则先关闭，
'以防止出现重复打开数据集对象的错误
 If DBrs1.State = 1 Then
    DBrs1.Close
 End If
 '设置并执行SQL语句并返回相应的数据集
 sqlstr = "select * from qxsz"
 DBrs1.Open sqlstr, DBcnn, adOpenDynamic, adLockBatchOptimistic
 '设置DataList的控件的填充数据源
 Set DataList1.RowSource = DBrs1
 '设置DataList的控件的填充字段，以显示已经存在的所有用户
 DataList1.ListField = DBrs1.Fields("操作员").Name
  '设置DataList的控件的数据绑定字段，以修改已经存在的所有用户
 DataList1.BoundColumn = DBrs1.Fields("操作员").Name
 '判断数据集对象DBrs2的状态，如果是打开状态，则先关闭，
'以防止出现重复打开数据集对象的错误
 If DBrs2.State = 1 Then
    DBrs2.Close
 End If
 '设置并执行SQL语句并返回相应的数据集
 DBrs2.Open sqlstr, DBcnn, adOpenDynamic, adLockBatchOptimistic
End Sub
Private Sub Form_Unload(Cancel As Integer)
 main.Enabled = True
End Sub
Private Sub DataList1_Click()
 If DBrs2.BOF = False Then DBrs2.MoveFirst
 ' 设置数据集对象DBrs2的filter属性，以返回系统客户表（qxsz）
  '中与选择的用户名称相同的记录
 sqlstr = "操作员='" & DataList1.BoundText & "'"
 DBrs2.Filter = sqlstr
 '判断是否存在用户选择的系统用户
 If DBrs2.EOF Then
  '不存在选择的系统用户，在DBList1控件中显示0
  DBList1.BoundText = 0
 Else
  '存在选择的系统用户，根据用户的操作权限来设置CheckBox的值，
  '以显示该用户的操作权限
   For i = 0 To 20
    If DBrs2.Fields(i) = -1 Then
       '系统用户具有该字段对应的系统功能操作权限，
      ' 选中该字段对应的CheckBox
       Check1(i).Value = 1
    Else
       '系统用户不具有该字段对应的系统功能操作权限，
      ' 不选中该字段对应的CheckBox
       Check1(i).Value = 0
    End If
   Next i
 End If
End Sub
Private Sub cmdallselect_Click()     '全选
For i = 0 To 20
  Check1(i).Value = 1
Next i
End Sub
Private Sub cmdnoneselect_Click()     '全不选
For i = 0 To 20
  Check1(i).Value = 0
Next i
End Sub
Private Sub cmdok_Click()     '为操作员设置权限
 If DBList1.BoundText <> "" Then
 sqlstr = "操作员='" & DBList1.BoundText & "'"
 DBrs2.Filter = sqlstr
 If DBrs2.EOF Then
  Else
    For i = 0 To 20
     DBrs2.Fields(i) = Check1(i).Value
    Next i
  DBrs2.UpdateBatch  '更新记录
 End If
 End If
End Sub
Private Sub cmddel_Click()     '删除操作员
 On Error Resume Next
 If MsgBox("你确认要删除该操作员信息吗？", vbexclaimation + vbOKCancel, "记录删除") = vbCancel Then
    Exit Sub
  End If
 DBrs2.Delete
 DBrs2.UpdateBatch
 DBrs1.Requery
 DBrs2.Requery
 'Data2.Refresh
 'Data1.Refresh
End Sub
Private Sub cmdend_Click()
 Unload Me
 main.Enabled = True
End Sub