📄 frm_xtgl_czqy.frm
字号:
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 20
Left = 2370
TabIndex = 22
Top = 2580
Width = 2445
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 19
Left = 2370
TabIndex = 21
Top = 2250
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 18
Left = 2370
TabIndex = 20
Top = 1875
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 17
Left = 2370
TabIndex = 19
Top = 1500
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 16
Left = 2370
TabIndex = 18
Top = 1140
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 15
Left = 2370
TabIndex = 17
Top = 795
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 14
Left = 2370
TabIndex = 16
Top = 480
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 13
Left = 240
TabIndex = 15
Top = 3585
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 12
Left = 240
TabIndex = 14
Top = 3285
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 11
Left = 240
TabIndex = 13
Top = 2955
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 10
Left = 240
TabIndex = 12
Top = 2595
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 9
Left = 240
TabIndex = 11
Top = 2265
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 8
Left = 240
TabIndex = 10
Top = 1935
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 7
Left = 240
TabIndex = 9
Top = 1560
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 6
Left = 240
TabIndex = 8
Top = 1185
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 5
Left = 240
TabIndex = 7
Top = 825
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 4
Left = 240
TabIndex = 6
Top = 480
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 23
Left = 2370
TabIndex = 5
Top = 3525
Width = 2505
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 1635
Top = 4005
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 64
ImageHeight = 64
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Xtgl_Czqy.frx":0028
Key = "头像1"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Xtgl_Czqy.frx":1682
Key = "头像2"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Xtgl_Czqy.frx":2CDC
Key = "头像3"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Xtgl_Czqy.frx":4336
Key = "头像4"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Xtgl_Czqy.frx":5990
Key = "头像5"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Xtgl_Czqy.frx":6FEA
Key = "头像6"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Xtgl_Czqy.frx":8644
Key = "头像7"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Xtgl_Czqy.frx":9C9E
Key = "头像8"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Xtgl_Czqy.frx":B2F8
Key = "头像9"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_Xtgl_Czqy.frx":C952
Key = "头像10"
EndProperty
EndProperty
End
End
Attribute VB_Name = "Frm_Xtgl_Czqy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim i As Integer
Dim itmX As ListItem '声明一个ListItem对象
Dim MyIcon As Integer '声明一个整型变量
Dim Mystr, MyMsg As String '声明字符串变量
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = PublicStr '数据连接
rs1.Open "tb_user", cnn, adOpenKeyset, adLockOptimistic '打开数据对象
For i = 4 To Check1.UBound
'向控件中添加字段
Check1(i).Caption = rs1.Fields(i).Name
Next i
rs1.Close
rs2.Open "select * from tb_user", cnn, adOpenStatic
If rs2.RecordCount > 0 Then
rs2.MoveFirst
'向ListView中添加图片
Do While rs2.EOF = False
Mystr = rs2.Fields("user_name")
MyIcon = Val(Right(rs2.Fields("user_tx"), Val(Len(rs2.Fields("user_tx")) - 2)))
Set itmX = ListView1.ListItems.Add(, , Mystr, MyIcon)
rs2.MoveNext
Loop
End If
rs2.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
Frm_Main.Enabled = True
End Sub
Private Sub Command1_Click() '全选
For i = 4 To Check1.UBound
Check1(i).Value = 1
Next i
End Sub
Private Sub Command2_Click() '全不选
For i = 4 To Check1.UBound
Check1(i).Value = 0
Next i
End Sub
Private Sub Command3_Click() '为操作员设置权限
Adodc1.RecordSource = "select * from tb_user where user_name ='" + ListView1.SelectedItem + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
For i = 4 To Check1.UBound
Adodc1.Recordset.Fields(i) = Check1(i).Value
Next i
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "操作员权限设置成功！", , "信息提示"
End If
End Sub
Private Sub ListView1_Click() '查看操作员权限
Adodc1.RecordSource = "select * from tb_user where user_name ='" + ListView1.SelectedItem + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
For i = 4 To Check1.UBound
If Adodc1.Recordset.Fields(i) = "" Then
Check1(i).Value = 0
Else
Check1(i).Value = Adodc1.Recordset.Fields(i)
End If
Next i
Adodc1.Recordset.Update '更新数据记录
Adodc1.Refresh
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -