【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“frmczql.frm”一文，供大家参考学习!

    VERSION 5.00
    Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
    Begin VB.Form frmczql 
       BackColor       =   &H00C0E0FF&
       Caption         =   "操作员授权"
       ClientHeight    =   3600
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6120
       Icon            =   "frmczql.frx":0000
       LinkTopic       =   "Form1"
       ScaleHeight     =   3600
       ScaleWidth      =   6120
       StartUpPosition =   1  '所有者中心
       Begin VB.PictureBox Picture1 
          BackColor       =   &H00C0E0FF&
          Height          =   3255
          Left            =   120
          ScaleHeight     =   3195
          ScaleWidth      =   5775
          TabIndex        =   0
          Top             =   150
          Width           =   5835
          Begin VB.CommandButton Command1 
             Caption         =   "全 选(&X)"
             Height          =   465
             Left            =   4500
             TabIndex        =   4
             Top             =   720
             Width           =   1035
          End
          Begin VB.CommandButton Command2 
             Caption         =   "全 清(&C)"
             Height          =   465
             Left            =   4500
             TabIndex        =   3
             Top             =   1350
             Width           =   1035
          End
          Begin VB.CommandButton Command3 
             Caption         =   "确 定(&O)"
             Default         =   -1  'True
             Height          =   465
             Left            =   4500
             TabIndex        =   2
             Top             =   1950
             Width           =   1035
          End
          Begin VB.CommandButton Command4 
             Cancel          =   -1  'True
             Caption         =   "退 出(&E)"
             Height          =   465
             Left            =   4500
             TabIndex        =   1
             Top             =   2490
             Width           =   1035
          End
          Begin TabDlg.SSTab SSTab1 
             Height          =   2535
             Left            =   120
             TabIndex        =   5
             Top             =   420
             Width           =   3855
             _ExtentX        =   6800
             _ExtentY        =   4471
             _Version        =   393216
             TabsPerRow      =   4
             TabHeight       =   520
             BackColor       =   12640511
             ForeColor       =   4210752
             TabCaption(0)   =   "人员信息"
             TabPicture(0)   =   "frmczql.frx":0442
             Tab(0).ControlEnabled=   -1  'True
             Tab(0).Control(0)=   "Check1(4)"
             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(2)"
             Tab(0).Control(2).Enabled=   0   'False
             Tab(0).Control(3)=   "Check1(1)"
             Tab(0).Control(3).Enabled=   0   'False
             Tab(0).Control(4)=   "Check1(0)"
             Tab(0).Control(4).Enabled=   0   'False
             Tab(0).ControlCount=   5
             TabCaption(1)   =   "收费管理"
             TabPicture(1)   =   "frmczql.frx":045E
             Tab(1).ControlEnabled=   0   'False
             Tab(1).Control(0)=   "Check2(0)"
             Tab(1).Control(0).Enabled=   0   'False
             Tab(1).Control(1)=   "Check2(1)"
             Tab(1).Control(1).Enabled=   0   'False
             Tab(1).Control(2)=   "Check2(2)"
             Tab(1).Control(2).Enabled=   0   'False
             Tab(1).Control(3)=   "Check2(3)"
             Tab(1).Control(3).Enabled=   0   'False
             Tab(1).Control(4)=   "Check2(4)"
             Tab(1).Control(4).Enabled=   0   'False
             Tab(1).Control(5)=   "Check2(5)"
             Tab(1).Control(5).Enabled=   0   'False
             Tab(1).Control(6)=   "Check2(6)"
             Tab(1).Control(6).Enabled=   0   'False
             Tab(1).Control(7)=   "Check2(7)"
             Tab(1).Control(7).Enabled=   0   'False
             Tab(1).ControlCount=   8
             TabCaption(2)   =   "系统维护"
             TabPicture(2)   =   "frmczql.frx":047A
             Tab(2).ControlEnabled=   0   'False
             Tab(2).Control(0)=   "Check3(0)"
             Tab(2).Control(0).Enabled=   0   'False
             Tab(2).Control(1)=   "Check3(1)"
             Tab(2).Control(1).Enabled=   0   'False
             Tab(2).Control(2)=   "Check3(2)"
             Tab(2).Control(2).Enabled=   0   'False
             Tab(2).Control(3)=   "Check3(3)"
             Tab(2).Control(3).Enabled=   0   'False
             Tab(2).ControlCount=   4
             Begin VB.CheckBox Check1 
                Caption         =   "编辑查询人员"
                Height          =   315
                Index           =   0
                Left            =   360
                TabIndex        =   22
                Top             =   720
                Width           =   1545
             End
             Begin VB.CheckBox Check1 
                Caption         =   "批处理人员信息"
                Height          =   315
                Index           =   1
                Left            =   360
                TabIndex        =   21
                Top             =   1200
                Width           =   1635
             End
             Begin VB.CheckBox Check1 
                Caption         =   "学生数据导入"
                Height          =   315
                Index           =   2
                Left            =   360
                TabIndex        =   20
                Top             =   1710
                Width           =   1815
             End
             Begin VB.CheckBox Check1 
                Caption         =   "医生信息维护"
                Height          =   255
                Index           =   3
                Left            =   2220
                TabIndex        =   19
                Top             =   720
                Width           =   1485
             End
             Begin VB.CheckBox Check1 
                Caption         =   "医疗费用调整"
                Height          =   285
                Index           =   4
                Left            =   2220
                TabIndex        =   18
                Top             =   1200
                Width           =   1425
             End
             Begin VB.CheckBox Check2 
                Caption         =   "药费输入"
                Height          =   285
                Index           =   0
                Left            =   -74670
                TabIndex        =   17
                Top             =   750
                Width           =   1185
             End
             Begin VB.CheckBox Check2 
                Caption         =   "打印日明细表"
                Height          =   285
                Index           =   1
                Left            =   -74670
                TabIndex        =   16
                Top             =   1200
                Width           =   1515
             End
             Begin VB.CheckBox Check2 
                Caption         =   "打印日报表"
                Height          =   255
                Index           =   2
                Left            =   -74670
                TabIndex        =   15
                Top             =   1710
                Width           =   1305
             End
             Begin VB.CheckBox Check2 
                Caption         =   "打印月报表"
                Height          =   285
                Index           =   3
                Left            =   -74670
                TabIndex        =   14
                Top             =   2130
                Width           =   1395
             End
             Begin VB.CheckBox Check2 
                Caption         =   "打印年报表"
                Height          =   285
                Index           =   4
                Left            =   -72930
                TabIndex        =   13
                Top             =   750
                Width           =   1365
             End
             Begin VB.CheckBox Check3 
                Caption         =   "数据备份"
                Height          =   345
                Index           =   0
                Left            =   -74700
                TabIndex        =   12
                Top             =   810
                Width           =   1035
             End
             Begin VB.CheckBox Check3 
                Caption         =   "数据恢复"
                Height          =   345
                Index           =   1
                Left            =   -74700
                TabIndex        =   11
                Top             =   1320
                Width           =   1035
             End
             Begin VB.CheckBox Check3 
                Caption         =   "操作员维护"
                Height          =   345
                Index           =   2
                Left            =   -73380
                TabIndex        =   10
                Top