www.pudn.com > textmanager.rar > FrmMain.frm, change:2005-04-12,size:34060b


VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
Begin VB.Form FrmMain  
   Caption         =   "题库与考试管理--服务器端" 
   ClientHeight    =   8310 
   ClientLeft      =   165 
   ClientTop       =   450 
   ClientWidth     =   11880 
   Icon            =   "FrmMain.frx":0000 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   ScaleHeight     =   8310 
   ScaleWidth      =   11880 
   StartUpPosition =   2  '屏幕中心 
   WindowState     =   2  'Maximized 
   Begin VB.PictureBox PicCZ  
      Appearance      =   0  'Flat 
      BackColor       =   &H00E8F4F8& 
      ForeColor       =   &H80000008& 
      Height          =   6840 
      Left            =   3120 
      ScaleHeight     =   6810 
      ScaleWidth      =   8820 
      TabIndex        =   2 
      Top             =   1110 
      Width           =   8850 
      Begin VB.Image ImgCJCX  
         Height          =   480 
         Left            =   2595 
         MouseIcon       =   "FrmMain.frx":0442 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":0884 
         Stretch         =   -1  'True 
         Top             =   4770 
         Width           =   480 
      End 
      Begin VB.Label LabCJCX  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "成绩查询" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   2490 
         TabIndex        =   17 
         Top             =   5280 
         Width           =   840 
      End 
      Begin VB.Image ImgSJCX  
         Height          =   480 
         Left            =   975 
         MouseIcon       =   "FrmMain.frx":09CE 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":0E10 
         Stretch         =   -1  'True 
         Top             =   4770 
         Width           =   480 
      End 
      Begin VB.Label LabSJCX  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "试卷查询" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   870 
         TabIndex        =   16 
         Top             =   5280 
         Width           =   840 
      End 
      Begin VB.Image ImgXTBZ  
         Height          =   480 
         Left            =   5880 
         MouseIcon       =   "FrmMain.frx":0F5A 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":139C 
         Top             =   4815 
         Width           =   480 
      End 
      Begin VB.Label LabXTBZ  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "系统帮助" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   5775 
         TabIndex        =   15 
         Top             =   5325 
         Width           =   840 
      End 
      Begin VB.Image ImgXSCX  
         Height          =   480 
         Left            =   4305 
         MouseIcon       =   "FrmMain.frx":16A6 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":1AE8 
         Stretch         =   -1  'True 
         Top             =   4785 
         Width           =   480 
      End 
      Begin VB.Label LabXSCX  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "学生查询" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   4200 
         TabIndex        =   14 
         Top             =   5295 
         Width           =   840 
      End 
      Begin VB.Image ImgXTTC  
         Height          =   480 
         Left            =   7380 
         MouseIcon       =   "FrmMain.frx":2072 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":24B4 
         Top             =   4830 
         Width           =   480 
      End 
      Begin VB.Label LabXTTC  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "系统退出" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   7275 
         TabIndex        =   13 
         Top             =   5340 
         Width           =   840 
      End 
      Begin VB.Image ImgTKLR  
         Height          =   480 
         Left            =   2505 
         MouseIcon       =   "FrmMain.frx":27BE 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":2C00 
         Top             =   2715 
         Width           =   480 
      End 
      Begin VB.Label LabTKLR  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "填空题录入" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   2400 
         TabIndex        =   12 
         Top             =   3225 
         Width           =   1050 
      End 
      Begin VB.Image ImgXZLR  
         Height          =   480 
         Left            =   885 
         MouseIcon       =   "FrmMain.frx":2F0A 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":334C 
         Top             =   2715 
         Width           =   480 
      End 
      Begin VB.Label LabXZLR  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "选择题录入" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   705 
         TabIndex        =   11 
         Top             =   3225 
         Width           =   1050 
      End 
      Begin VB.Image ImgWDLR  
         Height          =   480 
         Left            =   5790 
         MouseIcon       =   "FrmMain.frx":3656 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":3A98 
         Top             =   2760 
         Width           =   480 
      End 
      Begin VB.Label LabWDLR  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "问答题录入" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   5685 
         TabIndex        =   10 
         Top             =   3270 
         Width           =   1050 
      End 
      Begin VB.Image ImgPDLR  
         Height          =   480 
         Left            =   4215 
         MouseIcon       =   "FrmMain.frx":4362 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":47A4 
         Top             =   2730 
         Width           =   480 
      End 
      Begin VB.Label LabPDLR  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "判断题录入" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   4110 
         TabIndex        =   9 
         Top             =   3240 
         Width           =   1050 
      End 
      Begin VB.Image ImgZWLR  
         Height          =   480 
         Left            =   7290 
         MouseIcon       =   "FrmMain.frx":4AAE 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":4EF0 
         Top             =   2775 
         Width           =   480 
      End 
      Begin VB.Label LabZWLR  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "作文题录入" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   7185 
         TabIndex        =   8 
         Top             =   3285 
         Width           =   1050 
      End 
      Begin VB.Label LabCZYGL  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "操作员管理" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   7095 
         TabIndex        =   7 
         Top             =   1380 
         Width           =   1050 
      End 
      Begin VB.Image ImgCZYGL  
         Height          =   480 
         Left            =   7275 
         MouseIcon       =   "FrmMain.frx":701A 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":745C 
         Top             =   870 
         Width           =   480 
      End 
      Begin VB.Label LabXSLR  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "学生录入" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   4095 
         TabIndex        =   6 
         Top             =   1335 
         Width           =   840 
      End 
      Begin VB.Image ImgXSLR  
         Height          =   480 
         Left            =   4200 
         MouseIcon       =   "FrmMain.frx":7766 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":7BA8 
         Top             =   825 
         Width           =   480 
      End 
      Begin VB.Label LabPJCL  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "判卷处理" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   5595 
         TabIndex        =   5 
         Top             =   1365 
         Width           =   840 
      End 
      Begin VB.Image ImgPJCL  
         Height          =   480 
         Left            =   5775 
         MouseIcon       =   "FrmMain.frx":7FEA 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":842C 
         Top             =   855 
         Width           =   480 
      End 
      Begin VB.Label LabSJSC  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "试卷生成" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   765 
         TabIndex        =   4 
         Top             =   1320 
         Width           =   840 
      End 
      Begin VB.Image ImgSJSC  
         Height          =   480 
         Left            =   870 
         MouseIcon       =   "FrmMain.frx":8736 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":8B78 
         Top             =   810 
         Width           =   480 
      End 
      Begin VB.Label LabKSSZ  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "考试设置" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00C00000& 
         Height          =   210 
         Left            =   2385 
         TabIndex        =   3 
         Top             =   1320 
         Width           =   840 
      End 
      Begin VB.Image ImgKSSZ  
         Height          =   480 
         Left            =   2490 
         MouseIcon       =   "FrmMain.frx":8E82 
         MousePointer    =   99  'Custom 
         Picture         =   "FrmMain.frx":92C4 
         Top             =   810 
         Width           =   480 
      End 
   End 
   Begin VB.PictureBox PicSM  
      Appearance      =   0  'Flat 
      BackColor       =   &H80000005& 
      ForeColor       =   &H80000008& 
      Height          =   6840 
      Left            =   15 
      ScaleHeight     =   6810 
      ScaleWidth      =   3075 
      TabIndex        =   1 
      Top             =   1110 
      Width           =   3105 
      Begin VB.Label LabBZ  
         BackStyle       =   0  'Transparent 
         Caption         =   $"FrmMain.frx":95CE 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00FF0000& 
         Height          =   3735 
         Left            =   240 
         TabIndex        =   19 
         Top             =   1245 
         Width           =   2655 
      End 
      Begin VB.Label LabSM  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "试卷生成" 
         BeginProperty Font  
            Name            =   "楷体_GB2312" 
            Size            =   15.75 
            Charset         =   134 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000FF& 
         Height          =   315 
         Left            =   1140 
         TabIndex        =   18 
         Top             =   615 
         Width           =   1395 
      End 
      Begin VB.Image ImgSM  
         Height          =   720 
         Left            =   270 
         Picture         =   "FrmMain.frx":9659 
         Stretch         =   -1  'True 
         Top             =   450 
         Width           =   720 
      End 
   End 
   Begin VB.Timer Timer1  
      Interval        =   1000 
      Left            =   705 
      Top             =   2865 
   End 
   Begin MSComctlLib.StatusBar Stb  
      Align           =   2  'Align Bottom 
      Height          =   345 
      Left            =   0 
      TabIndex        =   0 
      Top             =   7965 
      Width           =   11880 
      _ExtentX        =   20955 
      _ExtentY        =   609 
      _Version        =   393216 
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}  
         NumPanels       =   5 
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            AutoSize        =   1 
            Object.Width           =   5054 
         EndProperty 
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            AutoSize        =   1 
            Object.Width           =   5054 
         EndProperty 
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            AutoSize        =   1 
            Object.Width           =   5054 
         EndProperty 
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
            AutoSize        =   2 
         EndProperty 
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}  
         EndProperty 
      EndProperty 
   End 
   Begin VB.Image Image1  
      Height          =   1110 
      Left            =   0 
      Picture         =   "FrmMain.frx":9963 
      Stretch         =   -1  'True 
      Top             =   0 
      Width           =   11835 
   End 
   Begin VB.Menu Active  
      Caption         =   "基本操作(&A)" 
      Begin VB.Menu CreateSJ  
         Caption         =   "试卷生成/修改(&C)" 
      End 
      Begin VB.Menu SetKS  
         Caption         =   "考试设置(&S)" 
      End 
      Begin VB.Menu InsertXS  
         Caption         =   "学生信息录入(&X)" 
      End 
      Begin VB.Menu q  
         Caption         =   "-" 
      End 
      Begin VB.Menu Exit  
         Caption         =   "退出(&Q)" 
      End 
   End 
   Begin VB.Menu InsertTM  
      Caption         =   "题目录入(&I)" 
      Begin VB.Menu InXZ  
         Caption         =   "选择题录入/修改(&X)" 
      End 
      Begin VB.Menu InTK  
         Caption         =   "填空题录入/修改(&T)" 
      End 
      Begin VB.Menu InPD  
         Caption         =   "判断题录入/修改(&P)" 
      End 
      Begin VB.Menu InWD  
         Caption         =   "问答题录入/修改(&W)" 
      End 
      Begin VB.Menu InZW  
         Caption         =   "作文题录入/修改(&Z)" 
      End 
   End 
   Begin VB.Menu PanJuan  
      Caption         =   "判卷处理(&P)" 
      Begin VB.Menu LSPanJuan  
         Caption         =   "非标准题判卷(&T)" 
      End 
   End 
   Begin VB.Menu Query  
      Caption         =   "系统查询(&E)" 
      Begin VB.Menu QueryTM  
         Caption         =   "试卷查询(&T)" 
      End 
      Begin VB.Menu QueryXS  
         Caption         =   "学生查询(&S)" 
      End 
      Begin VB.Menu QueryCJ  
         Caption         =   "学生成绩查询(&X)" 
      End 
   End 
   Begin VB.Menu SysStart  
      Caption         =   "系统初始化(&S)" 
      Begin VB.Menu DBStart  
         Caption         =   "系统数据库初始化(&S)" 
      End 
      Begin VB.Menu qqqq  
         Caption         =   "-" 
      End 
      Begin VB.Menu WeiHuDW  
         Caption         =   "单位信息设置(&D)" 
      End 
   End 
   Begin VB.Menu WeiHu  
      Caption         =   "数据维护(&W)" 
      Begin VB.Menu WeiHuKM  
         Caption         =   "科目信息维护(&K)" 
      End 
      Begin VB.Menu WeiHuNJ  
         Caption         =   "年级信息维护(&G)" 
      End 
      Begin VB.Menu q1  
         Caption         =   "-" 
      End 
      Begin VB.Menu WeiHuCZ  
         Caption         =   "操作员维护(&C)" 
      End 
      Begin VB.Menu WeiHuMM  
         Caption         =   "修改密码(&M)" 
      End 
      Begin VB.Menu q5  
         Caption         =   "-" 
      End 
      Begin VB.Menu WeiHuBH  
         Caption         =   "数据备份/恢复(&B)" 
      End 
   End 
   Begin VB.Menu Help  
      Caption         =   "帮助(&H)" 
      Begin VB.Menu SystemHelp  
         Caption         =   "系统帮助(&H)" 
      End 
      Begin VB.Menu qqq  
         Caption         =   "-" 
      End 
      Begin VB.Menu About  
         Caption         =   "关于(&A)" 
      End 
   End 
End 
Attribute VB_Name = "FrmMain" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
 
Private Sub About_Click() 
  FrmAbout.Visible = False 
 
 FrmAbout.Show 1 
End Sub 
 
Private Sub CreateSJ_Click() 
  UseForm = "FrmShiJuan" 
  FrmSet.Show 1 
 
End Sub 
'设置菜单操作权限 
Public Sub SetMeun() 
  '保存取得操作员的权限 
  Dim QuanXian As String 
  Dim adoRs As Recordset 
  Set adoRs = New Recordset 
  adoRs.Open "select quanxian from admin where code='" + UserCode + "'", DB, adOpenStatic, adLockOptimistic 
  '取得各个权限的数组 
  QuanXian = adoRs.Fields(0).Value 
  Set adoRs = Nothing 
  Dim QX() As String 
  QX = Split(QuanXian, ",") 
  '设置各个菜单的可用性 
 ''''''''''''''菜单顺序 
'试卷生成/修改'考试设置'学生信息录入'选择题录入/修改'填空题录入/修改'判断题录入/修改 
'问答题录入/修改'作文题录入/修改'试卷查询'学生查询'学生成绩查询'系统数据库初始化 
'单位信息设置'科目信息维护'年级信息维护'操作员维护'数据备份/恢复'判卷处理 
CreateSJ.Enabled = YN2TF(QX(0)) 
ImgSJSC.Enabled = YN2TF(QX(0)) 
SetKS.Enabled = YN2TF(QX(1)) 
ImgKSSZ.Enabled = YN2TF(QX(1)) 
InsertXS.Enabled = YN2TF(QX(2)) 
ImgXSLR.Enabled = YN2TF(QX(2)) 
InXZ.Enabled = YN2TF(QX(3)) 
ImgXZLR.Enabled = YN2TF(QX(3)) 
InTK.Enabled = YN2TF(QX(4)) 
ImgTKLR.Enabled = YN2TF(QX(4)) 
InPD.Enabled = YN2TF(QX(5)) 
ImgPDLR.Enabled = YN2TF(QX(5)) 
InWD.Enabled = YN2TF(QX(6)) 
ImgWDLR.Enabled = YN2TF(QX(6)) 
InZW.Enabled = YN2TF(QX(7)) 
ImgZWLR.Enabled = YN2TF(QX(7)) 
QueryTM.Enabled = YN2TF(QX(8)) 
ImgSJCX.Enabled = YN2TF(QX(8)) 
QueryXS.Enabled = YN2TF(QX(9)) 
ImgXSCX.Enabled = YN2TF(QX(9)) 
QueryCJ.Enabled = YN2TF(QX(10)) 
ImgCJCX.Enabled = YN2TF(QX(10)) 
DBStart.Enabled = YN2TF(QX(11)) 
WeiHuDW.Enabled = YN2TF(QX(12)) 
WeiHuKM.Enabled = YN2TF(QX(13)) 
WeiHuNJ.Enabled = YN2TF(QX(14)) 
WeiHuCZ.Enabled = YN2TF(QX(15)) 
ImgCZYGL.Enabled = YN2TF(QX(15)) 
WeiHuBH.Enabled = YN2TF(QX(16)) 
PanJuan.Enabled = YN2TF(QX(17)) 
ImgPJCL.Enabled = YN2TF(QX(17)) 
End Sub 
'N转化成false,Y转化成true的函数 
Function YN2TF(ByVal YN As String) As Boolean 
   If YN = "Y" Then 
     YN2TF = True 
    Else 
     YN2TF = False 
   End If 
End Function 
 
Private Sub DBStart_Click() 
 MsgBox "这是一个很危险的操作!", 48, "警告!" 
 MsgBox "你一旦进行这个操作,系统除了<操作员信息表>、<单位信息表>、<特殊字符表>表以外的数据将被清除!也就是说系统回到原始状态,所有录入的数据都没有了!" 
 If MsgBox("你真的确认进行这一操作吗?", vbYesNo + 48, "警告!") = vbYes Then 
    DB.Execute "delete from kemu" 
    DB.Execute "delete from nianji" 
    DB.Execute "delete from kaosheng" 
    DB.Execute "delete from nianji" 
    DB.Execute "delete from question" 
    DB.Execute "delete from questiontk" 
    DB.Execute "delete from questionpd" 
    DB.Execute "delete from questionwd" 
    DB.Execute "delete from questionzw" 
    DB.Execute "delete from score" 
    DB.Execute "delete from scoretk" 
    DB.Execute "delete from scorewd" 
    DB.Execute "delete from scorepd" 
    DB.Execute "delete from scorezw" 
    DB.Execute "delete from test" 
    MsgBox "系统初始化成功!" 
End If 
 
End Sub 
 
Private Sub Exit_Click() 
  End 
   
End Sub 
 
 
 
 
Private Sub ImgCJCX_Click() 
   QueryCJ_Click 
End Sub 
 
Private Sub ImgCJCX_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
         SetMove LabCJCX 
 SetSM ImgCJCX, LabCJCX, "   成绩查询可以进行所有同学的考试成绩的查询工作,可以按年级、班级、考试科目、成绩、试卷信息等多条件组合查询,可以浏览和打印学生的考试试卷,打印所有同学的成绩表等工作。" 
 
End Sub 
 
Private Sub ImgCZYGL_Click() 
  WeiHuCZ_Click 
End Sub 
 
Private Sub ImgCZYGL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
   SetMove LabCZYGL 
 SetSM ImgCZYGL, LabCZYGL, "   操作员管理负责管理整个系统服务器端的操作员信息和权限,其中有一默认的总管理admin可进行所有操作。总管理员可以给不同的任课老师分配不同的权限,以便让任课老师可以进行题目的录入/修改等。" 
 
End Sub 
 
Private Sub ImgKSSZ_Click() 
 SetKS_Click 
End Sub 
 
Private Sub ImgKSSZ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
  SetMove LabKSSZ 
 SetSM ImgKSSZ, LabKSSZ, "   考试设置包括考试试卷的选择、考试时间的设置和考试的总控制。通过它可以选择系统的任何一份试卷作文当前的考试试卷。" 
 
End Sub 
 
Private Sub ImgPDLR_Click() 
  InPD_Click 
End Sub 
 
Private Sub ImgPDLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
          SetMove LabPDLR 
 SetSM ImgPDLR, LabPDLR, "   判断题录入负责所有科目所有年级的判断题的录入和修改工作,不同的老师有不同的权限,可以编辑一定的科目的题目。" 
 
End Sub 
 
Private Sub ImgPJCL_Click() 
  LSPanJuan_Click 
End Sub 
 
Private Sub ImgPJCL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    SetMove LabPJCL 
 SetSM ImgPJCL, LabPJCL, "   判卷处理负责所有非标准题(填空、问答、作文题)的判卷工作,因为这些题型没办法进行计算机自动判卷。每一份试卷只有判完卷以后,学生才可以在客户端登录浏览。" 
 
End Sub 
 
Private Sub ImgSJCX_Click() 
  QueryTM_Click 
End Sub 
 
Private Sub ImgSJCX_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
        SetMove LabSJCX 
 SetSM ImgSJCX, LabSJCX, "   试卷查询可以进行所有已经组好的卷的查询工作,以便进行考试试卷的选择。通过它可以删除、浏览和打印所有科目和所有年级的试卷。" 
    
End Sub 
 
Private Sub ImgSJSC_Click() 
  CreateSJ_Click 
End Sub 
 
Private Sub ImgSJSC_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
  SetMove LabSJSC 
  SetSM ImgSJSC, LabSJSC, "   试卷生成是整个系统的所有考试科目的试卷生成。通过它可以选择题目库里保存的题目任意生成你想要的试卷。也可以随机生成,让系统了帮你出卷!" 
End Sub 
 
Private Sub ImgTKLR_Click() 
  InTK_Click 
End Sub 
 
Private Sub ImgTKLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
      SetMove LabTKLR 
 SetSM ImgTKLR, LabTKLR, "   填空题录入负责所有科目所有年级的填空题的录入和修改工作,不同的老师有不同的权限,可以编辑一定的科目的题目。" 
 
End Sub 
 
Private Sub ImgWDLR_Click() 
  InWD_Click 
End Sub 
 
Private Sub ImgWDLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
         SetMove LabWDLR 
 SetSM ImgWDLR, LabWDLR, "   问答题录入负责所有科目所有年级的问答题的录入和修改工作,不同的老师有不同的权限,可以编辑一定的科目的题目。" 
 
End Sub 
 
Private Sub ImgXSCX_Click() 
   QueryXS_Click 
End Sub 
 
Private Sub ImgXSCX_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
        SetMove LabXSCX 
 SetSM ImgXSCX, LabXSCX, "   学生查询可以进行所有学生查询工作。可以按年级、班别、姓名等多条件组合查询,可以打印学生的准考证,可以删除所有查询得到的学生的信息,方便系统的管理。" 
 
End Sub 
 
Private Sub ImgXSLR_Click() 
  InsertXS_Click 
End Sub 
 
Private Sub ImgXSLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
   SetMove LabXSLR 
 SetSM ImgXSLR, LabXSLR, "   学生录入负责整个学校的学生的录入、修改和删除等。录入的信息只包括基本的学号、姓名等。这些信息用于考试的登录和管理。" 
 
End Sub 
 
Private Sub ImgXTBZ_Click() 
  SystemHelp_Click 
End Sub 
 
Private Sub ImgXTBZ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
        SetMove LabXTBZ 
 SetSM ImgXTBZ, LabXTBZ, "   系统帮助是整个系统的使用方法的介绍,如果使用中有什么问题,请打开它,它能帮你解决你遇到的问题。" 
 
End Sub 
 
Private Sub ImgXTTC_Click() 
  Exit_Click 
End Sub 
 
Private Sub ImgXTTC_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
         SetMove LabXTTC 
 SetSM ImgXTTC, LabXTTC, "   你真的要退出系统吗?哦,也许你已经工作了很长时间了,注意休息哦!欢迎下次使用!88" 
 
End Sub 
 
Private Sub ImgXZLR_Click() 
  InXZ_Click 
End Sub 
 
Private Sub ImgXZLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     SetMove LabXZLR 
 SetSM ImgXZLR, LabXZLR, "   选择题录入负责所有科目所有年级的选择题的录入和修改工作,不同的老师有不同的权限,可以编辑一定的科目的题目。" 
 
End Sub 
 
Private Sub ImgZWLR_Click() 
  InZW_Click 
End Sub 
 
Private Sub ImgZWLR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
         SetMove LabZWLR 
 SetSM ImgZWLR, LabZWLR, "   作文题录入负责所有科目所有年级的作文题的录入和修改工作,不同的老师有不同的权限,可以编辑一定的科目的题目。" 
 
End Sub 
 
Private Sub InPD_Click() 
 UseForm = "FrmPanDuan" 
 FrmSet.Show 1 
 
End Sub 
 
Private Sub InsertXS_Click() 
  FrmStudent.WindowState = 2 
   
  FrmStudent.Show 1 
End Sub 
 
Private Sub Form_Load() 
  '设置菜单 
  SetMeun 
  Stb.Panels(4).Text = Date 
  Stb.Panels(5).Text = Time 
  Stb.Panels(1).Text = "当前操作员编号:" + UserCode 
  Dim adoRs As Recordset 
  Set adoRs = New Recordset 
  adoRs.Open "select name from admin where code='" + UserCode + "'", DB, adOpenStatic, adLockOptimistic 
  Stb.Panels(2).Text = "操作员姓名:" + adoRs.Fields(0).Value 
  Set adoRs = Nothing 
End Sub 
 
Private Sub Form_Resize() 
On Error Resume Next 
  Image1.Top = 0 
  Image1.Width = Me.ScaleWidth 
  PicSM.Height = Me.ScaleHeight - PicSM.Top - Stb.Height 
  PicCZ.Height = PicSM.Height 
   
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
  End 
End Sub 
 
 
 
 
Private Sub InTK_Click() 
UseForm = "FrmTianKong" 
FrmSet.Show 1 
End Sub 
 
Private Sub InWD_Click() 
  UseForm = "FrmWenDa" 
 FrmSet.Show 1 
End Sub 
 
Private Sub InXZ_Click() 
 UseForm = "FrmQuestion" 
FrmSet.Show 1 
 
End Sub 
 
Private Sub InZW_Click() 
 UseForm = "FrmZuoWen" 
 FrmSet.Show 1 
End Sub 
 
 
Private Sub LSPanJuan_Click() 
   UseForm = "FrmPanJuan" 
  FrmSet.Show 1 
 
End Sub 
 
'设置移上的颜色 
Sub SetMove(ByVal Lab As Label) 
  Lab.ForeColor = &HFF& 
End Sub 
'设置移出的颜色 
Sub SetOut(ByVal Lab As Label) 
  Lab.ForeColor = &HC00000 
End Sub 
'设置说明显示内容 
Sub SetSM(ByVal Img As Image, ByVal Lab As Label, ByVal SM As String) 
   ImgSM.Picture = Img.Picture 
   LabSM.Caption = Lab.Caption 
   LabBZ.Caption = SM 
End Sub 
 
Private Sub PicCZ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
SetOut LabSJSC 
SetOut LabKSSZ 
SetOut LabXSLR 
SetOut LabXTTC 
SetOut LabXZLR 
SetOut LabTKLR 
SetOut LabPDLR 
SetOut LabWDLR 
SetOut LabZWLR 
SetOut LabPJCL 
SetOut LabSJCX 
SetOut LabCJCX 
SetOut LabXSCX 
SetOut LabCZYGL 
SetOut LabXTBZ 
End Sub 
 
Private Sub QueryCJ_Click() 
 FrmSeachCJ.Show 1 
 
End Sub 
 
Private Sub QueryTM_Click() 
 FrmSeachTM.Show 1 
End Sub 
 
Private Sub QueryXS_Click() 
FrmSeach.Show 1 
End Sub 
 
Private Sub SetKS_Click() 
 UseForm = "FrmSheZhi" 
 FrmSet.Show 1 
End Sub 
 
 
 
Private Sub SystemHelp_Click() 
 ShellExecute Me.hwnd, "Open", App.Path + "\help\Systemhelp.hlp", 0, 0, 0 
End Sub 
 
Private Sub Timer1_Timer() 
    Stb.Panels(5).Text = Time 
 
End Sub 
 
Private Sub WeiHuCZ_Click() 
 FrmAdmin.Show 1 
End Sub 
 
Private Sub WeiHuDW_Click() 
  FrmDanWei.Show 1 
End Sub 
 
 
Private Sub WeiHuKM_Click() 
  FrmKeMu.Show 1 
End Sub 
 
Private Sub WeiHuMM_Click() 
 FrmMiMa.Show 1 
End Sub 
 
Private Sub WeiHuNJ_Click() 
 FrmNianJi.Show 1 
End Sub