📄 main_xtgl_czqx.frm
字号:
Caption = "Check1"
Height = 225
Index = 26
Left = 4455
TabIndex = 36
Top = 1155
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 25
Left = 4455
TabIndex = 35
Top = 840
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 24
Left = 4455
TabIndex = 34
Top = 555
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 23
Left = 2325
TabIndex = 33
Top = 3915
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 22
Left = 2325
TabIndex = 32
Top = 3585
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 21
Left = 2325
TabIndex = 31
Top = 3285
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 20
Left = 2325
TabIndex = 30
Top = 2985
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 15
Left = 2325
TabIndex = 23
Top = 1455
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 14
Left = 2325
TabIndex = 22
Top = 1155
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 13
Left = 2325
TabIndex = 21
Top = 840
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 12
Left = 2325
TabIndex = 20
Top = 555
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 11
Left = 360
TabIndex = 19
Top = 3915
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 1
Left = 360
TabIndex = 29
Top = 840
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 0
Left = 360
TabIndex = 28
Top = 555
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 19
Left = 2325
TabIndex = 27
Top = 2670
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 18
Left = 2325
TabIndex = 26
Top = 2385
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 17
Left = 2325
TabIndex = 25
Top = 2070
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 16
Left = 2325
TabIndex = 24
Top = 1785
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 10
Left = 360
TabIndex = 18
Top = 3585
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 9
Left = 360
TabIndex = 17
Top = 3285
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 8
Left = 360
TabIndex = 16
Top = 2985
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 7
Left = 360
TabIndex = 15
Top = 2670
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 6
Left = 360
TabIndex = 14
Top = 2385
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 5
Left = 360
TabIndex = 13
Top = 2070
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 4
Left = 360
TabIndex = 12
Top = 1785
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 3
Left = 360
TabIndex = 10
Top = 1455
Width = 2115
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 225
Index = 2
Left = 360
TabIndex = 9
Top = 1155
Width = 2115
End
End
End
Attribute VB_Name = "main_xtgl_czqx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Dim i As Integer
Private Sub cmdAdd_Click()
Load main_xtgl_czy
main_xtgl_czy.Show 1
End Sub
Private Sub cmdDel_Click()
Cnn.Execute ("delete from 权限信息表 where 操作员='" + DataList1.BoundText + "'")
ado1.Refresh
End Sub
Private Sub cmdPassword_Click()
Load main_xtgl_mm
main_xtgl_mm.Show 1
End Sub
Private Sub Form_Activate()
ado1.Refresh
DataList1.SetFocus
End Sub
Private Sub Form_Load()
Me.Caption = text
rs1.Open "权限信息表", Cnn, adOpenKeyset, adLockOptimistic
For i = 0 To Check1.UBound
Check1(i).Caption = rs1.Fields(i).Name
Next i
rs1.Close
Set rs1 = Nothing
DataList1.text = ado1.Recordset.Fields("操作员")
DataList1_Click
End Sub
Private Sub Command1_Click() '全选
For i = 0 To Check1.UBound
Check1(i).Value = 1
Next i
End Sub
Private Sub Command2_Click() '全不选
For i = 0 To Check1.UBound
Check1(i).Value = 0
Next i
End Sub
Private Sub Command3_Click() '为操作员设置权限
For i = 0 To Check1.UBound
If Check1(i).Value = 1 Then
Cnn.Execute ("update 权限信息表 set " & Check1(i).Caption & "=1 where 操作员='" + DataList1.BoundText + "'")
Else
Cnn.Execute ("update 权限信息表 set " & Check1(i).Caption & "=0 where 操作员='" + DataList1.BoundText + "'")
End If
Next i
Unload Me
End Sub
Private Sub DataList1_Click() '查看操作员权限
rs1.Open "权限信息表 where 操作员='" & DataList1.BoundText & "'", Cnn, adOpenStatic
If rs1.RecordCount > 0 Then
For i = 0 To Check1.UBound
If rs1.Fields(i) = True Then Check1(i).Value = 1 Else Check1(i).Value = 0
Next i
End If
rs1.Close
Set rs1 = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -