main_xtgl_czqx.frm

EMS是一个企业营销管理系统,功能强大,供大家享用,希望大家多多支持!!

         Width           =   1905
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   15
         Left            =   2325
         TabIndex        =   23
         Top             =   2385
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   14
         Left            =   2325
         TabIndex        =   22
         Top             =   2085
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   13
         Left            =   2325
         TabIndex        =   21
         Top             =   1770
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   12
         Left            =   2325
         TabIndex        =   20
         Top             =   1485
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   11
         Left            =   2325
         TabIndex        =   19
         Top             =   1185
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   19
         Left            =   4320
         TabIndex        =   27
         Top             =   855
         Width           =   1905
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   18
         Left            =   4320
         TabIndex        =   26
         Top             =   570
         Width           =   1905
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   17
         Left            =   2325
         TabIndex        =   25
         Top             =   3000
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   16
         Left            =   2325
         TabIndex        =   24
         Top             =   2715
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   10
         Left            =   2325
         TabIndex        =   18
         Top             =   855
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   9
         Left            =   2325
         TabIndex        =   17
         Top             =   555
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   8
         Left            =   405
         TabIndex        =   16
         Top             =   3045
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   7
         Left            =   405
         TabIndex        =   15
         Top             =   2700
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   6
         Left            =   405
         TabIndex        =   14
         Top             =   2415
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   5
         Left            =   405
         TabIndex        =   13
         Top             =   2100
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   4
         Left            =   405
         TabIndex        =   12
         Top             =   1815
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   3
         Left            =   405
         TabIndex        =   10
         Top             =   1485
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   2
         Left            =   405
         TabIndex        =   9
         Top             =   1185
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   0
         Left            =   405
         TabIndex        =   28
         Top             =   585
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   1
         Left            =   405
         TabIndex        =   29
         Top             =   870
         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