在main_qxsz窗体中修改以下代码：
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
'显示已经设置的权限
If Data2.Recordset.Fields("追加押金") Then
Check1(2).Value = 1
Else
Check1(2).Value = 0
End If
If Data2.Recordset.Fields("住宿登记") Then
Check1(1).Value = 1
Else
Check1(1).Value = 0
End If
If Data2.Recordset.Fields("调房登记") Then
Check1(3).Value = 1
Else
Check1(3).Value = 0
End If
If Data2.Recordset.Fields("客房查询") Then
Check1(6).Value = 1
Else
Check1(6).Value = 0
End If
If Data2.Recordset.Fields("房态查看") Then
Check1(7).Value = 1
Else
Check1(7).Value = 0
End If
If Data2.Recordset.Fields("住宿查询") Then
Check1(8).Value = 1
Else
Check1(8).Value = 0
End If
If Data2.Recordset.Fields("退宿查询") Then
Check1(9).Value = 1
Else
Check1(9).Value = 0
End If
If Data2.Recordset.Fields("宿费提醒") Then
Check1(10).Value = 1
Else
Check1(10).Value = 0
End If
If Data2.Recordset.Fields("操作员设置") Then
Check1(12).Value = 1
Else
Check1(12).Value = 0
End If
If Data2.Recordset.Fields("密码设置") Then
Check1(13).Value = 1
Else
Check1(13).Value = 0
End If
If Data2.Recordset.Fields("初始化") Then
Check1(14).Value = 1
Else
Check1(14).Value = 0
End If
If Data2.Recordset.Fields("权限设置") Then
Check1(15).Value = 1
Else
Check1(15).Value = 0
End If
End If
End Sub
能达到你需要的效果了。
