📄 main_xtsz_qxsz.frm
字号:
TabIndex = 40
Top = 2280
Visible = 0 'False
Width = 1035
End
End
Begin VB.Frame Frame8
Caption = "系统设置"
Height = 2595
Left = 5010
TabIndex = 29
Top = 2880
Width = 2175
Begin VB.CheckBox Check1
Caption = "系统初始化"
Height = 315
Index = 30
Left = 240
TabIndex = 33
Top = 1440
UseMaskColor = -1 'True
Width = 1380
End
Begin VB.CheckBox Check1
Caption = "权限设置"
DataSource = "Data1"
Height = 315
Index = 29
Left = 240
TabIndex = 32
Top = 1080
Width = 1425
End
Begin VB.CheckBox Check1
Caption = "操作员及密码管理"
Height = 315
Index = 28
Left = 240
TabIndex = 31
Top = 720
UseMaskColor = -1 'True
Width = 1860
End
Begin VB.CheckBox Check1
Caption = "本单位定义"
Height = 315
Index = 27
Left = 240
TabIndex = 30
Top = 360
UseMaskColor = -1 'True
Width = 1455
End
End
Begin VB.Frame Frame7
Caption = "基本信息"
Height = 2595
Left = 2775
TabIndex = 12
Top = 2880
Width = 1935
Begin VB.CheckBox Check1
Caption = "客户信息管理"
Height = 315
Index = 26
Left = 210
TabIndex = 28
Top = 2040
UseMaskColor = -1 'True
Width = 1695
End
Begin VB.CheckBox Check1
Caption = "供应商信息管理"
Height = 315
Index = 25
Left = 210
TabIndex = 27
Top = 1650
UseMaskColor = -1 'True
Width = 1620
End
Begin VB.CheckBox Check1
Caption = "仓库信息管理"
DataSource = "Data1"
Height = 315
Index = 24
Left = 210
TabIndex = 26
Top = 1245
Width = 1425
End
Begin VB.CheckBox Check1
Caption = "员工信息管理"
Height = 315
Index = 23
Left = 210
TabIndex = 25
Top = 825
UseMaskColor = -1 'True
Width = 1380
End
Begin VB.CheckBox Check1
Caption = "商品信息管理"
DataSource = "Data1"
Height = 315
Index = 22
Left = 210
TabIndex = 24
Top = 375
Width = 1395
End
End
Begin VB.Frame Frame6
Caption = "应收应付管理"
Height = 2220
Left = 6345
TabIndex = 5
Top = 420
Width = 1575
Begin VB.CheckBox Check1
Caption = "应付款查询"
Height = 315
Index = 17
Left = 150
TabIndex = 23
Top = 1710
UseMaskColor = -1 'True
Width = 1350
End
Begin VB.CheckBox Check1
Caption = "应收款查询"
DataSource = "Data1"
Height = 315
Index = 16
Left = 150
TabIndex = 22
Top = 1245
Width = 1350
End
Begin VB.CheckBox Check1
Caption = "付款单"
Height = 315
Index = 15
Left = 165
TabIndex = 21
Top = 840
UseMaskColor = -1 'True
Width = 1080
End
Begin VB.CheckBox Check1
Caption = "收款单"
DataSource = "Data1"
Height = 315
Index = 14
Left = 150
TabIndex = 20
Top = 375
Width = 990
End
End
Begin VB.Frame Frame5
Caption = "查询统计"
Height = 2220
Left = 4320
TabIndex = 4
Top = 420
Width = 1575
Begin VB.CheckBox Check1
Caption = "退货返厂查询"
Height = 315
Index = 11
Left = 60
TabIndex = 19
Top = 2175
Visible = 0 'False
Width = 1380
End
Begin VB.CheckBox Check1
Caption = "报溢查询"
Height = 315
Index = 13
Left = 105
TabIndex = 18
Top = 2475
Visible = 0 'False
Width = 1080
End
Begin VB.CheckBox Check1
Caption = "报损查询"
Height = 315
Index = 12
Left = 90
TabIndex = 17
Top = 2175
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1155
End
Begin VB.CheckBox Check1
Caption = "销售退货查询"
Height = 360
Index = 9
Left = 30
TabIndex = 16
Top = 2130
Visible = 0 'False
Width = 1380
End
Begin VB.CheckBox Check1
Caption = "销售查询"
Height = 315
Index = 8
Left = 105
TabIndex = 15
Top = 360
Width = 1110
End
Begin VB.CheckBox Check1
Caption = "入库查询"
Height = 315
Index = 10
Left = 90
TabIndex = 14
Top = 810
Width = 1425
End
End
Begin VB.Frame Frame4
Caption = "库存管理"
Height = 2220
Left = 2280
TabIndex = 3
Top = 420
Width = 1575
Begin VB.CheckBox Check1
Caption = "库存查询"
Height = 480
Index = 6
Left = 210
TabIndex = 11
Top = 390
Width = 1050
End
Begin VB.CheckBox Check1
Caption = "库存盘点"
Height = 315
Index = 7
Left = 210
TabIndex = 10
Top = 870
Width = 1050
End
End
End
End
End
Attribute VB_Name = "main_xtsz_qxsz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer '定义整型变量
Dim rs1 As New ADODB.Recordset '定义数据集对象
Private Sub Form_Activate()
Me.Caption = Me.Caption & " 操作员： " & frm_main.St1.Panels(3).Text
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub Command1_Click() '全选
For i = 0 To 30
Check1(i).Value = 1
Next i
End Sub
Private Sub Command2_Click() '全不选
For i = 0 To 30
Check1(i).Value = 0
Next i
End Sub
Private Sub Command3_Click() '为操作员设置权限
If Text1.Text <> "" Then
rs1.Open "select * from qxsz where 操作员名称='" & DataList1.BoundText & "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
For i = 0 To 30
If Check1(i).Value = 1 Then rs1.Fields(i) = True Else rs1.Fields(i) = False
Next i
rs1.Update
End If
rs1.Close
Else
MsgBox "请选择操作员！"
End If
Unload Me
frm_main.Enabled = True
End Sub
Private Sub DataList1_Click() '查看操作员权限
Text1.Text = Trim(DataList1.BoundText)
rs1.Open "select * from qxsz where 操作员名称='" & Trim(DataList1.BoundText) & "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
For i = 0 To 30
If rs1.Fields(i) = True Then Check1(i).Value = 1 Else Check1(i).Value = 0
Next i
rs1.Update
End If
rs1.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -