frmcarqx.frm

用VB开发的车辆数据库管理系统

         Height          =   225
         Index           =   15
         Left            =   3990
         TabIndex        =   16
         Top             =   645
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   14
         Left            =   2205
         TabIndex        =   15
         Top             =   3435
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   13
         Left            =   2205
         TabIndex        =   14
         Top             =   3150
         Width           =   1785
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   12
         Left            =   2205
         TabIndex        =   13
         Top             =   2850
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   11
         Left            =   2205
         TabIndex        =   12
         Top             =   1305
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   10
         Left            =   2205
         TabIndex        =   11
         Top             =   945
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   9
         Left            =   2205
         TabIndex        =   10
         Top             =   645
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   8
         Left            =   255
         TabIndex        =   9
         Top             =   3480
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   7
         Left            =   255
         TabIndex        =   8
         Top             =   3195
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   6
         Left            =   255
         TabIndex        =   7
         Top             =   2895
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   5
         Left            =   255
         TabIndex        =   6
         Top             =   2130
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   4
         Left            =   255
         TabIndex        =   5
         Top             =   1860
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   3
         Left            =   255
         TabIndex        =   4
         Top             =   1530
         Width           =   2115
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Check1"
         Height          =   225
         Index           =   2
         Left            =   255
         TabIndex        =   3
         Top             =   1215
         Width           =   2115
      End
   End
   Begin VB.Image Image4 
      Height          =   375
      Left            =   9330
      Picture         =   "frmcarqx.frx":1CA9
      Stretch         =   -1  'True
      Top             =   4755
      Width           =   1245
   End
   Begin VB.Image Image3 
      Height          =   375
      Left            =   8085
      Picture         =   "frmcarqx.frx":5DFB
      Stretch         =   -1  'True
      Top             =   4755
      Width           =   1245
   End
   Begin VB.Image Image2 
      Height          =   375
      Left            =   6840
      Picture         =   "frmcarqx.frx":9C30
      Stretch         =   -1  'True
      Top             =   4755
      Width           =   1245
   End
   Begin VB.Image Image1 
      Height          =   375
      Left            =   5595
      Picture         =   "frmcarqx.frx":D9E0
      Stretch         =   -1  'True
      Top             =   4755
      Width           =   1245
   End
End
Attribute VB_Name = "frmcarqx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：frmcarqx
'**版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商
'**          业用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费
'**          下载，必须经过吉林省明日科技有限公司授权，并保证程序的完整，
'**          不得修改代码、注释和相关内容，否则，我公司将追究其法律责任
'**网    址：www.mingrisoft.com  价值无限，服务无限
'**电    话：[phone],84978982
'**创 建 人：明日科技
'**日    期：2007-10-31
'**修 改 人：mraj
'**日    期：2007-10-31
'**描    述：
'*************************************************************************
Dim rs1 As New ADODB.Recordset
Dim i As Integer

Private Sub Form_Load()
    rs1.Open "权限表", cnn, adOpenKeyset, adLockOptimistic
    For i = 0 To Check1.UBound
        Check1(i).Caption = rs1.Fields(i).Name
    Next i
    rs1.Close

End Sub
Private Sub DataList1_Click()     '查看用户权限
    rs1.Open "select * from 权限表 where 用户名='" & DataList1.BoundText & "'", cnn, adOpenKeyset, adLockOptimistic
    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
        rs1.Update
    End If
    rs1.Close
End Sub

Private Sub Image1_Click()  '删除操作员
    If MsgBox("确定删除该用户？ ", 4, "车辆管理系统") = vbYes Then
        rs1.Open "select * from 权限表 where 用户名='" & DataList1.BoundText & "'", cnn, adOpenKeyset, adLockOptimistic
        If rs1.RecordCount > 0 Then
            rs1.Delete
            rs1.Close

            Unload Me
            ado1.Refresh
            frmcarqx.Show
        End If
    End If

End Sub

Private Sub Image2_Click()  '全选
    For i = 0 To Check1.UBound
        Check1(i).Value = 1
    Next i

End Sub

Private Sub Image3_Click()    '全不选
    For i = 0 To Check1.UBound
        Check1(i).Value = 0
    Next i

End Sub

Private Sub Image4_Click()  '确定退出
    rs1.Open "select * from 权限表 where 用户名='" & DataList1.BoundText & "'", cnn, adOpenKeyset, adLockOptimistic
    If rs1.RecordCount > 0 Then
        For i = 0 To Check1.UBound
            If Check1(i).Value = 1 Then rs1.Fields(i) = True Else rs1.Fields(i) = False
        Next i
        rs1.Update
    End If
    rs1.Close
    If MsgBox("权限设置成功！将退出本窗体！", 4, "车辆管理系统") = vbYes Then
        Unload Me
        MDIForm1.Enabled = True
    End If

End Sub