- VERSION 5.00
- Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
- Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
- Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
- Begin VB.Form main_xtgl_czqx
- BorderStyle = 3 'Fixed Dialog
- ClientHeight = 5325
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 10590
- Icon = "main_xtgl_czqx.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 5325
- ScaleWidth = 10590
- ShowInTaskbar = 0 'False
- StartUpPosition = 1 '所有者中心
- Tag = "查看操作权限"
- Begin VB.CommandButton Command1
- Caption = "全选"
- Height = 375
- Left = 4665
- TabIndex = 7
- Top = 4785
- Width = 1620
- End
- Begin VB.CommandButton Command2
- Caption = "全不选"
- Height = 375
- Left = 6360
- TabIndex = 6
- Top = 4785
- Width = 1620
- End
- Begin VB.CommandButton Command3
- Caption = "确定退出"
- Height = 375
- Left = 8055
- TabIndex = 5
- Top = 4785
- Width = 1620
- End
- Begin VB.Frame frame3
- Caption = "现有操作员信息"
- Height = 4575
- Left = 15
- TabIndex = 0
- Top = 45
- Width = 3735
- Begin MSDataListLib.DataList DataList1
- Bindings = "main_xtgl_czqx.frx":000C
- Height = 4260
- Left = 75
- TabIndex = 4
- Top = 210
- Width = 3570
- _ExtentX = 6297
- _ExtentY = 7514
- _Version = 393216
- ListField = "操作员"
- End
- Begin MSAdodcLib.Adodc ado1
- Height = 330
- Left = -225
- Top = 2730
- Visible = 0 'False
- Width = 2280
- _ExtentX = 4022
- _ExtentY = 582
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 2
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 1
- Appearance = 1
- BackColor = -2147483643
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
- OLEDBString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
- OLEDBFile = ""
- DataSourceName = ""
- OtherAttributes = ""
- UserName = ""
- Password = ""
- RecordSource = "权限信息表"
- Caption = "adoXS"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- _Version = 393216
- End
- End
- Begin VB.Frame Frame6
- Height = 720
- Left = 15
- TabIndex = 1
- Top = 4500
- Width = 3735
- Begin VB.CommandButton cmdPassword
- Caption = "修改密码"
- Height = 390
- Left = 2655
- TabIndex = 11
- Top = 210
- Width = 1005
- End
- Begin VB.CommandButton cmdDel
- Caption = "删除操作员"
- Height = 390
- Left = 1350
- TabIndex = 3
- Top = 210
- Width = 1320
- End
- Begin VB.CommandButton cmdAdd
- Caption = "添加新操作员"
- Height = 390
- Left = 45
- TabIndex = 2
- Top = 210
- Width = 1320
- End
- End
- Begin TabDlg.SSTab SSTab1
- Height = 4455
- Left = 3780
- TabIndex = 8
- Top = 195
- Width = 6780
- _ExtentX = 11959
- _ExtentY = 7858
- _Version = 393216
- Tabs = 1
- TabsPerRow = 1
- TabHeight = 520
- TabCaption(0) = "权限设置"
- TabPicture(0) = "main_xtgl_czqx.frx":001F
- Tab(0).ControlEnabled= -1 'True
- Tab(0).Control(0)= "Check1(2)"
- Tab(0).Control(0).Enabled= 0 'False
- Tab(0).Control(1)= "Check1(3)"
- Tab(0).Control(1).Enabled= 0 'False
- Tab(0).Control(2)= "Check1(4)"
- Tab(0).Control(2).Enabled= 0 'False
- Tab(0).Control(3)= "Check1(5)"
- Tab(0).Control(3).Enabled= 0 'False
- Tab(0).Control(4)= "Check1(6)"
- Tab(0).Control(4).Enabled= 0 'False
- Tab(0).Control(5)= "Check1(7)"
- Tab(0).Control(5).Enabled= 0 'False
- Tab(0).Control(6)= "Check1(8)"
- Tab(0).Control(6).Enabled= 0 'False
- Tab(0).Control(7)= "Check1(9)"
- Tab(0).Control(7).Enabled= 0 'False
- Tab(0).Control(8)= "Check1(10)"
- Tab(0).Control(8).Enabled= 0 'False
- Tab(0).Control(9)= "Check1(16)"
- Tab(0).Control(9).Enabled= 0 'False
- Tab(0).Control(10)= "Check1(17)"
- Tab(0).Control(10).Enabled= 0 'False
- Tab(0).Control(11)= "Check1(18)"
- Tab(0).Control(11).Enabled= 0 'False
- Tab(0).Control(12)= "Check1(19)"
- Tab(0).Control(12).Enabled= 0 'False
- Tab(0).Control(13)= "Check1(0)"
- Tab(0).Control(13).Enabled= 0 'False
- Tab(0).Control(14)= "Check1(1)"
- Tab(0).Control(14).Enabled= 0 'False
- Tab(0).Control(15)= "Check1(11)"
- Tab(0).Control(15).Enabled= 0 'False
- Tab(0).Control(16)= "Check1(12)"
- Tab(0).Control(16).Enabled= 0 'False
- Tab(0).Control(17)= "Check1(13)"
- Tab(0).Control(17).Enabled= 0 'False
- Tab(0).Control(18)= "Check1(14)"
- Tab(0).Control(18).Enabled= 0 'False
- Tab(0).Control(19)= "Check1(15)"
- Tab(0).Control(19).Enabled= 0 'False
- Tab(0).Control(20)= "Check1(20)"
- Tab(0).Control(20).Enabled= 0 'False
- Tab(0).Control(21)= "Check1(21)"
- Tab(0).Control(21).Enabled= 0 'False
- Tab(0).Control(22)= "Check1(22)"
- Tab(0).Control(22).Enabled= 0 'False
- Tab(0).Control(23)= "Check1(23)"
- Tab(0).Control(23).Enabled= 0 'False
- Tab(0).Control(24)= "Check1(24)"
- Tab(0).Control(24).Enabled= 0 'False
- Tab(0).Control(25)= "Check1(25)"
- Tab(0).Control(25).Enabled= 0 'False
- Tab(0).Control(26)= "Check1(26)"
- Tab(0).Control(26).Enabled= 0 'False
- Tab(0).Control(27)= "Check1(27)"
- Tab(0).Control(27).Enabled= 0 'False
- Tab(0).Control(28)= "Check1(28)"
- Tab(0).Control(28).Enabled= 0 'False
- Tab(0).Control(29)= "Check1(29)"
- Tab(0).Control(29).Enabled= 0 'False
- Tab(0).Control(30)= "Check1(30)"
- Tab(0).Control(30).Enabled= 0 'False
- Tab(0).Control(31)= "Check1(31)"
- Tab(0).Control(31).Enabled= 0 'False
- Tab(0).Control(32)= "Check1(32)"
- Tab(0).Control(32).Enabled= 0 'False
- Tab(0).Control(33)= "Check1(33)"
- Tab(0).Control(33).Enabled= 0 'False
- Tab(0).Control(34)= "Check1(34)"
- Tab(0).Control(34).Enabled= 0 'False
- Tab(0).Control(35)= "Check1(35)"
- Tab(0).Control(35).Enabled= 0 'False
- Tab(0).ControlCount= 36
- Begin VB.CheckBox Check1
- Caption = "Check1"
- Height = 225
- Index = 35
- Left = 4455
- TabIndex = 45
- Top = 3915
- Width = 2115
- End
- Begin VB.CheckBox Check1
- Caption = "Check1"
- Height = 225
- Index = 34
- Left = 4455
- TabIndex = 44
- Top = 3585
- Width = 2115
- End
- Begin VB.CheckBox Check1
- Caption = "Check1"
- Height = 225
- Index = 33
- Left = 4455
- TabIndex = 43
- Top = 3285
- Width = 2115
- End
- Begin VB.CheckBox Check1
- Caption = "Check1"
- Height = 225
- Index = 32
- Left = 4455
- TabIndex = 42
- Top = 2985
- Width = 2115
- End
- Begin VB.CheckBox Check1
- Caption = "Check1"
- Height = 225
- Index = 31
- Left = 4455
- TabIndex = 41
- Top = 2670
- Width = 2115
- End
- Begin VB.CheckBox Check1
- Caption = "Check1"
- Height = 225
- Index = 30
- Left = 4455
- TabIndex = 40
- Top = 2385
- Width = 2115
- End
- Begin VB.CheckBox Check1
- Caption = "Check1"
- Height = 225
- Index = 29
- Left = 4455
- TabIndex = 39
- Top = 2070
- Width = 2115
- End
- Begin VB.CheckBox Check1
- Caption = "Check1"
- Height = 225
- Index = 28
- Left = 4455
- TabIndex = 38
- Top = 1785
- Width = 2115
- End
- Begin VB.CheckBox Check1
- Caption = "Check1"
- Height = 225
- Index = 27
- Left = 4455
- TabIndex = 37
- Top = 1455
- Width = 2115
- End
- Begin VB.CheckBox Check1
- 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