main_xtgl_czqx.frm

来自「完整的物资管理系统源码」· FRM 代码 · 共 480 行 · 第 1/2 页

         Caption         =   "Check1"
         Height          =   225
         Index           =   14
         Left            =   2310
         TabIndex        =   22
         Top             =   2655
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   19
         Left            =   4005
         TabIndex        =   27
         Top             =   1755
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   18
         Left            =   4005
         TabIndex        =   26
         Top             =   1440
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   17
         Left            =   4005
         TabIndex        =   25
         Top             =   1110
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   16
         Left            =   4005
         TabIndex        =   24
         Top             =   825
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   11
         Left            =   2310
         TabIndex        =   19
         Top             =   1755
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   10
         Left            =   2310
         TabIndex        =   18
         Top             =   1440
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   9
         Left            =   2310
         TabIndex        =   17
         Top             =   1110
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   8
         Left            =   2310
         TabIndex        =   16
         Top             =   825
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   7
         Left            =   540
         TabIndex        =   15
         Top             =   2985
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   13
         Left            =   2310
         TabIndex        =   21
         Top             =   2355
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   12
         Left            =   2310
         TabIndex        =   20
         Top             =   2055
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   1
         Left            =   540
         TabIndex        =   29
         Top             =   1110
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   0
         Left            =   540
         TabIndex        =   28
         Top             =   825
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   6
         Left            =   540
         TabIndex        =   14
         Top             =   2655
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   5
         Left            =   540
         TabIndex        =   13
         Top             =   2355
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   4
         Left            =   540
         TabIndex        =   12
         Top             =   2055
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   3
         Left            =   540
         TabIndex        =   10
         Top             =   1755
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   2
         Left            =   540
         TabIndex        =   9
         Top             =   1440
         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 tb_power 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 "tb_power", cnn, adOpenKeyset, adLockOptimistic
  For i = 0 To Check1.UBound
      Check1(i).Caption = rs1.Fields(i).Name
  Next i
  rs1.Close
  Set rs1 = Nothing
  If ado1.Recordset.RecordCount > 0 Then
  DataList1.text = ado1.Recordset.Fields("操作员")
  DataList1_Click
  End If
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 tb_power set " & Check1(i).Caption & "=1 where 操作员='" + DataList1.BoundText + "'")
     Else
        cnn.Execute ("update tb_power set " & Check1(i).Caption & "=0 where 操作员='" + DataList1.BoundText + "'")
     End If
  Next i
  Unload Me
End Sub
Private Sub DataList1_Click()     '查看操作员权限
  rs1.Open "tb_power 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