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


VERSION 5.00 
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX" 
Begin VB.Form FrmPanJuan  
   Caption         =   "判卷处理 " 
   ClientHeight    =   8595 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   11880 
   ControlBox      =   0   'False 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   ScaleHeight     =   8595 
   ScaleWidth      =   11880 
   StartUpPosition =   3  '窗口缺省 
   WindowState     =   2  'Maximized 
   Begin VB.CommandButton CmdClose  
      Caption         =   "关 闭" 
      BeginProperty Font  
         Name            =   "楷体_GB2312" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   465 
      Left            =   10305 
      Style           =   1  'Graphical 
      TabIndex        =   34 
      Top             =   60 
      Width           =   1260 
   End 
   Begin VB.CommandButton CmdZW  
      Caption         =   "作文题" 
      BeginProperty Font  
         Name            =   "楷体_GB2312" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   465 
      Left            =   9030 
      Style           =   1  'Graphical 
      TabIndex        =   33 
      Top             =   60 
      Width           =   1260 
   End 
   Begin VB.CommandButton CmdWD  
      Caption         =   "问答题" 
      BeginProperty Font  
         Name            =   "楷体_GB2312" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   465 
      Left            =   7770 
      Style           =   1  'Graphical 
      TabIndex        =   32 
      Top             =   60 
      Width           =   1260 
   End 
   Begin VB.CommandButton CmdTK  
      BackColor       =   &H0080C0FF& 
      Caption         =   "填空题" 
      BeginProperty Font  
         Name            =   "楷体_GB2312" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   465 
      Left            =   6510 
      Style           =   1  'Graphical 
      TabIndex        =   31 
      Top             =   60 
      Width           =   1260 
   End 
   Begin VB.PictureBox Picture2  
      Appearance      =   0  'Flat 
      BackColor       =   &H80000004& 
      ForeColor       =   &H80000008& 
      Height          =   1290 
      Left            =   2985 
      ScaleHeight     =   1260 
      ScaleWidth      =   8865 
      TabIndex        =   7 
      Top             =   600 
      Width           =   8895 
      Begin VB.CommandButton CmdSetComplete  
         Caption         =   "设为已判" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   420 
         Left            =   7440 
         TabIndex        =   67 
         Top             =   735 
         Width           =   1215 
      End 
      Begin VB.CommandButton CmdView  
         Caption         =   "试卷浏览" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   420 
         Left            =   7425 
         TabIndex        =   10 
         Top             =   60 
         Width           =   1215 
      End 
      Begin VB.ListBox LstJuan  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00FF0000& 
         Height          =   870 
         ItemData        =   "FrmPanJuan.frx":0000 
         Left            =   225 
         List            =   "FrmPanJuan.frx":0002 
         TabIndex        =   8 
         Top             =   255 
         Width           =   7020 
      End 
      Begin VB.Label Label4  
         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       =   &H000040C0& 
         Height          =   210 
         Left            =   0 
         TabIndex        =   9 
         Top             =   0 
         Width           =   2310 
      End 
   End 
   Begin VB.PictureBox Picture1  
      Appearance      =   0  'Flat 
      BackColor       =   &H80000004& 
      ForeColor       =   &H80000008& 
      Height          =   7620 
      Left            =   15 
      ScaleHeight     =   7590 
      ScaleWidth      =   2895 
      TabIndex        =   0 
      Top             =   600 
      Width           =   2925 
      Begin VB.ListBox LstName  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   6330 
         ItemData        =   "FrmPanJuan.frx":0004 
         Left            =   285 
         List            =   "FrmPanJuan.frx":000B 
         TabIndex        =   5 
         Top             =   1050 
         Width           =   1965 
      End 
      Begin VB.TextBox TXTBan  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         Enabled         =   0   'False 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   315 
         Left            =   1860 
         TabIndex        =   2 
         Text            =   "1" 
         Top             =   270 
         Width           =   360 
      End 
      Begin MSComCtl2.UpDown UDScore  
         Height          =   315 
         Left            =   2221 
         TabIndex        =   3 
         Top             =   270 
         Width           =   270 
         _ExtentX        =   476 
         _ExtentY        =   556 
         _Version        =   393216 
         Value           =   1 
         BuddyControl    =   "TXTBan" 
         BuddyDispid     =   196620 
         OrigLeft        =   2490 
         OrigTop         =   270 
         OrigRight       =   2760 
         OrigBottom      =   585 
         Max             =   30 
         Min             =   1 
         SyncBuddy       =   -1  'True 
         BuddyProperty   =   0 
         Enabled         =   -1  'True 
      End 
      Begin VB.Label Label3  
         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       =   &H000040C0& 
         Height          =   210 
         Index           =   0 
         Left            =   150 
         TabIndex        =   6 
         Top             =   720 
         Width           =   2310 
      End 
      Begin VB.Label Label2  
         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 
         Height          =   210 
         Left            =   2535 
         TabIndex        =   4 
         Top             =   330 
         Width           =   210 
      End 
      Begin VB.Label Label1  
         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 
         Height          =   210 
         Left            =   300 
         TabIndex        =   1 
         Top             =   315 
         Width           =   1680 
      End 
   End 
   Begin VB.PictureBox PicZW  
      Appearance      =   0  'Flat 
      BackColor       =   &H80000004& 
      ForeColor       =   &H80000008& 
      Height          =   6270 
      Left            =   555 
      ScaleHeight     =   6240 
      ScaleWidth      =   8805 
      TabIndex        =   51 
      Top             =   1830 
      Visible         =   0   'False 
      Width           =   8835 
      Begin VB.TextBox TXTZWDA  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   3180 
         Left            =   405 
         Locked          =   -1  'True 
         MultiLine       =   -1  'True 
         ScrollBars      =   2  'Vertical 
         TabIndex        =   63 
         Top             =   2985 
         Width           =   8280 
      End 
      Begin VB.TextBox TXTZWTM  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   2520 
         Left            =   1740 
         Locked          =   -1  'True 
         MultiLine       =   -1  'True 
         ScrollBars      =   2  'Vertical 
         TabIndex        =   62 
         Top             =   420 
         Width           =   4200 
      End 
      Begin VB.ListBox LstZW  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   2550 
         ItemData        =   "FrmPanJuan.frx":0020 
         Left            =   210 
         List            =   "FrmPanJuan.frx":0022 
         TabIndex        =   61 
         Top             =   420 
         Width           =   1425 
      End 
      Begin VB.Frame Frame3  
         BackColor       =   &H80000004& 
         Height          =   2895 
         Left            =   6075 
         TabIndex        =   52 
         Top             =   60 
         Width           =   2595 
         Begin VB.CommandButton CmdSetZW  
            Caption         =   "给 分" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   435 
            Left            =   1215 
            TabIndex        =   54 
            Top             =   2265 
            Width           =   1065 
         End 
         Begin VB.TextBox TXTZWS  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   315 
            Left            =   1260 
            TabIndex        =   53 
            Top             =   1185 
            Width           =   435 
         End 
         Begin MSComCtl2.UpDown UpZW  
            Height          =   315 
            Left            =   1695 
            TabIndex        =   55 
            Top             =   1185 
            Width           =   270 
            _ExtentX        =   476 
            _ExtentY        =   556 
            _Version        =   393216 
            BuddyControl    =   "TXTZWS" 
            BuddyDispid     =   196630 
            OrigLeft        =   1890 
            OrigTop         =   1185 
            OrigRight       =   2160 
            OrigBottom      =   1500 
            Max             =   100 
            SyncBuddy       =   -1  'True 
            BuddyProperty   =   0 
            Enabled         =   -1  'True 
         End 
         Begin VB.Label LabPZW  
            AutoSize        =   -1  'True 
            BackStyle       =   0  'Transparent 
            Caption         =   "该题目没判!" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            ForeColor       =   &H00FF0000& 
            Height          =   240 
            Left            =   300 
            TabIndex        =   70 
            Top             =   1815 
            Visible         =   0   'False 
            Width           =   1440 
         End 
         Begin VB.Label Label26  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   2055 
            TabIndex        =   60 
            Top             =   1245 
            Width           =   210 
         End 
         Begin VB.Label Label25  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   270 
            TabIndex        =   59 
            Top             =   1215 
            Width           =   945 
         End 
         Begin VB.Label Label24  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   1935 
            TabIndex        =   58 
            Top             =   465 
            Width           =   210 
         End 
         Begin VB.Label LabZW  
            AutoSize        =   -1  'True 
            BackStyle       =   0  'Transparent 
            Caption         =   "0" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   14.25 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            ForeColor       =   &H000000FF& 
            Height          =   285 
            Left            =   1440 
            TabIndex        =   57 
            Top             =   420 
            Width           =   150 
         End 
         Begin VB.Label Label22  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   270 
            TabIndex        =   56 
            Top             =   465 
            Width           =   1155 
         End 
      End 
      Begin VB.Label Label29  
         BackStyle       =   0  'Transparent 
         Caption         =   "考生作文" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000040C0& 
         Height          =   1050 
         Left            =   105 
         TabIndex        =   66 
         Top             =   3015 
         Width           =   240 
      End 
      Begin VB.Label Label28  
         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       =   &H000040C0& 
         Height          =   210 
         Left            =   1695 
         TabIndex        =   65 
         Top             =   120 
         Width           =   1575 
      End 
      Begin VB.Label Label27  
         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       =   &H000040C0& 
         Height          =   210 
         Left            =   180 
         TabIndex        =   64 
         Top             =   195 
         Width           =   1155 
      End 
   End 
   Begin VB.PictureBox PicTK  
      Appearance      =   0  'Flat 
      BackColor       =   &H80000004& 
      ForeColor       =   &H80000008& 
      Height          =   6315 
      Left            =   2970 
      ScaleHeight     =   6285 
      ScaleWidth      =   8880 
      TabIndex        =   11 
      Top             =   1905 
      Width           =   8910 
      Begin VB.Frame Frame1  
         BackColor       =   &H80000004& 
         Height          =   3060 
         Left            =   5535 
         TabIndex        =   18 
         Top             =   3000 
         Width           =   3000 
         Begin VB.CommandButton CmdSetTK  
            Caption         =   "给 分" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   435 
            Left            =   1650 
            TabIndex        =   26 
            Top             =   2310 
            Width           =   1065 
         End 
         Begin VB.TextBox TXTTKS  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   315 
            Left            =   1260 
            TabIndex        =   23 
            Top             =   1185 
            Width           =   435 
         End 
         Begin MSComCtl2.UpDown UpTK  
            Height          =   315 
            Left            =   1695 
            TabIndex        =   24 
            Top             =   1185 
            Width           =   270 
            _ExtentX        =   476 
            _ExtentY        =   556 
            _Version        =   393216 
            BuddyControl    =   "TXTTKS" 
            BuddyDispid     =   196643 
            OrigLeft        =   1890 
            OrigTop         =   1185 
            OrigRight       =   2160 
            OrigBottom      =   1500 
            Max             =   100 
            SyncBuddy       =   -1  'True 
            BuddyProperty   =   0 
            Enabled         =   -1  'True 
         End 
         Begin VB.Label LabPTK  
            AutoSize        =   -1  'True 
            BackStyle       =   0  'Transparent 
            Caption         =   "该题目没判!" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            ForeColor       =   &H00FF0000& 
            Height          =   240 
            Left            =   615 
            TabIndex        =   68 
            Top             =   1845 
            Visible         =   0   'False 
            Width           =   1440 
         End 
         Begin VB.Label Label12  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   2025 
            TabIndex        =   25 
            Top             =   1245 
            Width           =   210 
         End 
         Begin VB.Label Label11  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   270 
            TabIndex        =   22 
            Top             =   1215 
            Width           =   945 
         End 
         Begin VB.Label Label10  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   1935 
            TabIndex        =   21 
            Top             =   465 
            Width           =   210 
         End 
         Begin VB.Label LabTK  
            AutoSize        =   -1  'True 
            BackStyle       =   0  'Transparent 
            Caption         =   "0" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   14.25 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            ForeColor       =   &H000000FF& 
            Height          =   285 
            Left            =   1440 
            TabIndex        =   20 
            Top             =   420 
            Width           =   150 
         End 
         Begin VB.Label Label8  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   255 
            TabIndex        =   19 
            Top             =   465 
            Width           =   1155 
         End 
      End 
      Begin VB.TextBox TXTTKDA  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   3120 
         Left            =   2220 
         Locked          =   -1  'True 
         MultiLine       =   -1  'True 
         ScrollBars      =   2  'Vertical 
         TabIndex        =   16 
         Top             =   2985 
         Width           =   3030 
      End 
      Begin VB.TextBox TXTTKTM  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   2520 
         Left            =   1740 
         Locked          =   -1  'True 
         MultiLine       =   -1  'True 
         ScrollBars      =   2  'Vertical 
         TabIndex        =   14 
         Top             =   420 
         Width           =   6330 
      End 
      Begin VB.ListBox LstTK  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   5280 
         ItemData        =   "FrmPanJuan.frx":0024 
         Left            =   180 
         List            =   "FrmPanJuan.frx":0026 
         TabIndex        =   13 
         Top             =   495 
         Width           =   1425 
      End 
      Begin VB.Label Label7  
         BackStyle       =   0  'Transparent 
         Caption         =   "考生答案" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000040C0& 
         Height          =   1050 
         Left            =   1860 
         TabIndex        =   17 
         Top             =   3045 
         Width           =   240 
      End 
      Begin VB.Label Label6  
         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       =   &H000040C0& 
         Height          =   210 
         Left            =   1695 
         TabIndex        =   15 
         Top             =   120 
         Width           =   1575 
      End 
      Begin VB.Label Label5  
         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       =   &H000040C0& 
         Height          =   210 
         Left            =   180 
         TabIndex        =   12 
         Top             =   195 
         Width           =   1155 
      End 
   End 
   Begin VB.PictureBox PicWD  
      Appearance      =   0  'Flat 
      BackColor       =   &H80000004& 
      ForeColor       =   &H80000008& 
      Height          =   6270 
      Left            =   690 
      ScaleHeight     =   6240 
      ScaleWidth      =   8805 
      TabIndex        =   35 
      Top             =   2280 
      Visible         =   0   'False 
      Width           =   8835 
      Begin VB.Frame Frame2  
         BackColor       =   &H80000004& 
         Height          =   3060 
         Left            =   6090 
         TabIndex        =   39 
         Top             =   3000 
         Width           =   2595 
         Begin VB.TextBox TXTWDS  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   315 
            Left            =   1260 
            TabIndex        =   41 
            Top             =   1185 
            Width           =   480 
         End 
         Begin VB.CommandButton CmdSETWD  
            Caption         =   "给 分" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   435 
            Left            =   1215 
            TabIndex        =   40 
            Top             =   2250 
            Width           =   1065 
         End 
         Begin MSComCtl2.UpDown UpWD  
            Height          =   315 
            Left            =   1725 
            TabIndex        =   42 
            Top             =   1185 
            Width           =   270 
            _ExtentX        =   476 
            _ExtentY        =   556 
            _Version        =   393216 
            BuddyControl    =   "TXTWDS" 
            BuddyDispid     =   196658 
            OrigLeft        =   1890 
            OrigTop         =   1185 
            OrigRight       =   2160 
            OrigBottom      =   1500 
            Max             =   100 
            SyncBuddy       =   -1  'True 
            BuddyProperty   =   0 
            Enabled         =   -1  'True 
         End 
         Begin VB.Label LabPWD  
            AutoSize        =   -1  'True 
            BackStyle       =   0  'Transparent 
            Caption         =   "该题目没判!" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            ForeColor       =   &H00FF0000& 
            Height          =   240 
            Left            =   390 
            TabIndex        =   69 
            Top             =   1770 
            Visible         =   0   'False 
            Width           =   1440 
         End 
         Begin VB.Label Label18  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   255 
            TabIndex        =   47 
            Top             =   465 
            Width           =   1155 
         End 
         Begin VB.Label LabWD  
            AutoSize        =   -1  'True 
            BackStyle       =   0  'Transparent 
            Caption         =   "0" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   14.25 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            ForeColor       =   &H000000FF& 
            Height          =   285 
            Left            =   1440 
            TabIndex        =   46 
            Top             =   420 
            Width           =   300 
         End 
         Begin VB.Label Label16  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   1935 
            TabIndex        =   45 
            Top             =   465 
            Width           =   210 
         End 
         Begin VB.Label Label15  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   270 
            TabIndex        =   44 
            Top             =   1215 
            Width           =   945 
         End 
         Begin VB.Label Label14  
            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       =   &H000000C0& 
            Height          =   210 
            Left            =   2055 
            TabIndex        =   43 
            Top             =   1245 
            Width           =   210 
         End 
      End 
      Begin VB.ListBox LstWD  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   2550 
         ItemData        =   "FrmPanJuan.frx":0028 
         Left            =   210 
         List            =   "FrmPanJuan.frx":002A 
         TabIndex        =   38 
         Top             =   420 
         Width           =   1425 
      End 
      Begin VB.TextBox TXTWDTM  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   2520 
         Left            =   1740 
         Locked          =   -1  'True 
         MultiLine       =   -1  'True 
         ScrollBars      =   2  'Vertical 
         TabIndex        =   37 
         Top             =   420 
         Width           =   6330 
      End 
      Begin VB.TextBox TXTWDDA  
         Appearance      =   0  'Flat 
         BackColor       =   &H00E8F4F8& 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   3120 
         Left            =   420 
         Locked          =   -1  'True 
         MultiLine       =   -1  'True 
         ScrollBars      =   2  'Vertical 
         TabIndex        =   36 
         Top             =   2985 
         Width           =   5505 
      End 
      Begin VB.Label Label21  
         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       =   &H000040C0& 
         Height          =   210 
         Left            =   180 
         TabIndex        =   50 
         Top             =   195 
         Width           =   1155 
      End 
      Begin VB.Label Label20  
         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       =   &H000040C0& 
         Height          =   210 
         Left            =   1695 
         TabIndex        =   49 
         Top             =   120 
         Width           =   1575 
      End 
      Begin VB.Label Label19  
         BackStyle       =   0  'Transparent 
         Caption         =   "考生答案" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000040C0& 
         Height          =   1050 
         Left            =   105 
         TabIndex        =   48 
         Top             =   3015 
         Width           =   240 
      End 
   End 
   Begin VB.Label LabNianJi  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "试" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000000C0& 
      Height          =   240 
      Left            =   3990 
      TabIndex        =   30 
      Top             =   135 
      Width           =   270 
   End 
   Begin VB.Label Label13  
      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       =   &H00FF0000& 
      Height          =   210 
      Left            =   3030 
      TabIndex        =   29 
      Top             =   150 
      Width           =   1050 
   End 
   Begin VB.Label LabKeMu  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "试" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000000C0& 
      Height          =   240 
      Left            =   1065 
      TabIndex        =   28 
      Top             =   135 
      Width           =   270 
   End 
   Begin VB.Label Label3  
      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       =   &H00FF0000& 
      Height          =   210 
      Index           =   1 
      Left            =   90 
      TabIndex        =   27 
      Top             =   150 
      Width           =   1050 
   End 
   Begin VB.Shape Shape1  
      BackColor       =   &H00FFC0C0& 
      BackStyle       =   1  'Opaque 
      BorderWidth     =   2 
      Height          =   570 
      Left            =   15 
      Top             =   15 
      Width           =   11895 
   End 
End 
Attribute VB_Name = "FrmPanJuan" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
Dim ScoreIDArr() As Long 
Dim TKIDArr() As Long 
Dim WDIDArr() As Long 
Dim ZWIDArr() As Long 
Dim TestTKIdStr As String '保存test表里的填空题的id序列 
Dim TestTKSStr As String '保存test表里的填空题的分数序列 
Dim TestWDIdStr As String '保存test表里的问答题的id序列 
Dim TestWDSStr As String '保存test表里的问答题的分数序列 
Dim TestZWIdStr As String '保存test表里的作文题的id序列 
Dim TestZWSStr As String '保存test表里的作文题的分数序列 
Dim OldScore As Single '保存当前题目的以前的判分情况 
Dim ScoreIDstr As String '保存当前题型的对应的ID序列 
Dim ScoreSstr As String '保存当前题型的对应的成绩序列 
'设置现在显示的题型 
Sub SetPicV(ByVal Who As Integer) 
  CmdTK.BackColor = &H8000000F 
  CmdWD.BackColor = &H8000000F 
  CmdZW.BackColor = &H8000000F 
  Select Case Who 
    Case 1 
      PicTK.Visible = True 
      PicWD.Visible = False 
      PicZW.Visible = False 
      CmdTK.BackColor = &H80C0FF 
   Case 2 
      PicTK.Visible = False 
      PicWD.Visible = True 
      PicZW.Visible = False 
      CmdWD.BackColor = &H80C0FF 
   Case 3 
      PicTK.Visible = False 
      PicWD.Visible = False 
      PicZW.Visible = True 
      CmdZW.BackColor = &H80C0FF 
 End Select 
End Sub 
 
Private Sub CmdClose_Click() 
  MsgBox "如果判完一份卷请<设为已判>,否则学生是看不到它的成绩的。" + vbCrLf + "因为系统认为你还没判完卷!" 
 If MsgBox("你真的要退出判卷模块吗?请检查你是否判完卷!", vbYesNo, "提问!") = vbYes Then 
    Unload Me 
 End If 
End Sub 
 
'改变分数字符序列的函数,也就是给分函数 
Function SetScore(ByVal TMID As Long, ByVal Score As Single) As String 
  If ScoreIDstr = "" Then 
    Exit Function 
  End If 
  Dim IDArr() As String 
  Dim SArr() As String 
  Dim TempStr As String 
  Dim i As Integer 
  IDArr = Split(ScoreIDstr, ",") 
  SArr = Split(ScoreSstr, ",") 
  For i = 0 To UBound(IDArr) 
     If Val(IDArr(i)) <> TMID Then 
        TempStr = TempStr + SArr(i) + "," 
       Else 
        TempStr = TempStr + Int2Str(Score) + "," 
     End If 
  Next i 
  If TempStr = "" Then TempStr = "," 
  SetScore = Left(TempStr, Len(TempStr) - 1) 
End Function 
 
Private Sub CmdSetComplete_Click() 
  If LstJuan.ListIndex < 0 Then 
     MsgBox "请选择你要设置的试卷!" 
     Exit Sub 
  End If 
  MsgBox "请检查你是否已经真的判完这份时间的所有的题目!你一旦<设为已判>就不能再判这份卷!" 
  If MsgBox("你真的确认已经判完吗?确定设为已判吗?", vbYesNo, "警告") = vbYes Then 
     DB.Execute "update score set complete='T' where id=" & ScoreIDArr(LstJuan.ListIndex) 
     LstJuan.RemoveItem LstJuan.ListIndex 
     LstTK.Clear 
     LstWD.Clear 
     LstZW.Clear 
      
  End If 
End Sub 
 
Private Sub CmdSetTK_Click() 
 On Error GoTo myerr: 
 If LstTK.ListIndex < 0 Then 
   MsgBox "请选择你要给分的题目!" 
   Exit Sub 
 End If 
 If Val(TXTTKS.Text) > Val(LabTK.Caption) Then 
   MsgBox "你给的分数比题目所设的分数大!请重设!" 
   Exit Sub 
 End If 
 If LabPTK.Visible = False Then 
    If MsgBox("这个题目已经判过,是否真的重判?", vbYesNo, "提问") = vbNo Then 
      Exit Sub 
    End If 
 End If 
 If MsgBox("你给的分数为:" + TXTTKS.Text + "分,你确定吗?", vbYesNo, "提示!") = vbNo Then 
   Exit Sub 
 End If 
 Dim ScoreStr As String 
 ScoreStr = SetScore(TKIDArr(LstTK.ListIndex), Val(TXTTKS.Text)) 
 DB.Execute "update scoreTK set tiankongs='" + ScoreStr + "' where id=" & ScoreIDArr(LstJuan.ListIndex) 
 DB.Execute "update score set score=score+" + TXTTKS.Text + "-" + Int2Str(OldScore) + " where id=" & ScoreIDArr(LstJuan.ListIndex) 
 LabPTK.Visible = False 
 Exit Sub 
myerr: 
 MsgBox "更新数据库错误,请重试!" 
End Sub 
 
Private Sub CmdSETWD_Click() 
 On Error GoTo myerr: 
  If LstWD.ListIndex < 0 Then 
   MsgBox "请选择你要给分的题目!" 
   Exit Sub 
 End If 
 If Val(TXTWDS.Text) > Val(LabWD.Caption) Then 
   MsgBox "你给的分数比题目所设的分数大!请重设!" 
   Exit Sub 
 End If 
 If LabPWD.Visible = False Then 
    If MsgBox("这个题目已经判过,是否真的重判?", vbYesNo, "提问") = vbNo Then 
      Exit Sub 
    End If 
 End If 
 If MsgBox("你给的分数为:" + TXTWDS.Text + "分,你确定吗?", vbYesNo, "提示!") = vbNo Then 
   Exit Sub 
 End If 
 Dim ScoreStr As String 
 ScoreStr = SetScore(WDIDArr(LstWD.ListIndex), Val(TXTWDS.Text)) 
 DB.Execute "update scorewd set wendas='" + ScoreStr + "' where id=" & ScoreIDArr(LstJuan.ListIndex) 
 DB.Execute "update score set score=score+" + TXTWDS.Text + "-" + Int2Str(OldScore) + " where id=" & ScoreIDArr(LstJuan.ListIndex) 
 LabPWD.Visible = False 
 Exit Sub 
myerr: 
 MsgBox "更新数据库错误,请重试!" 
End Sub 
 
Private Sub CmdSetZW_Click() 
 On Error GoTo myerr: 
  If LstZW.ListIndex < 0 Then 
   MsgBox "请选择你要给分的题目!" 
   Exit Sub 
 End If 
 If Val(TXTZWS.Text) > Val(LabZW.Caption) Then 
   MsgBox "你给的分数比题目所设的分数大!请重设!" 
   Exit Sub 
 End If 
 If LabPZW.Visible = False Then 
    If MsgBox("这个题目已经判过,是否真的重判?", vbYesNo, "提问") = vbNo Then 
      Exit Sub 
    End If 
 End If 
 If MsgBox("你给的分数为:" + TXTZWS.Text + "分,你确定吗?", vbYesNo, "提示!") = vbNo Then 
   Exit Sub 
 End If 
 Dim ScoreStr As String 
 ScoreStr = SetScore(ZWIDArr(LstZW.ListIndex), Val(TXTZWS.Text)) 
 DB.Execute "update scorezw set zuowens='" + ScoreStr + "' where id=" & ScoreIDArr(LstJuan.ListIndex) 
 DB.Execute "update score set score=score+" + TXTZWS.Text + "-" + Int2Str(OldScore) + " where id=" & ScoreIDArr(LstJuan.ListIndex) 
 LabPZW.Visible = False 
 Exit Sub 
myerr: 
 MsgBox "更新数据库错误,请重试!" 
End Sub 
 
Private Sub CmdTK_Click() 
   SetPicV 1 
    
End Sub 
 
Private Sub CmdView_Click() 
  If LstJuan.ListIndex < 0 Then 
     MsgBox "你没有选择要查看的试卷!" 
     Exit Sub 
  End If 
  CreateScoreHTML App.Path + "\temp.html", ScoreIDArr(LstJuan.ListIndex) 
  FrmView.Web.Navigate App.Path + "\temp.html" 
  FrmView.Show 1 
End Sub 
 
Private Sub CmdWD_Click() 
  SetPicV 2 
   
End Sub 
 
Private Sub CmdZW_Click() 
  SetPicV 3 
End Sub 
  '选择该年级的同学 
Sub GetStudentByClass(ByVal Class As Integer) 
  Dim adoRs As Recordset 
  Set adoRs = New Recordset 
  Dim i As Integer 
  Dim XuHao As Integer 
  '取该年级的序号 
  adoRs.Open "select xuhao from nianji where id=" & UseNianJiID, DB, adOpenStatic, adLockOptimistic 
  XuHao = adoRs.Fields(0).Value 
  adoRs.Close 
  '取属于该年级该班的所有学生 
  adoRs.Open "select id,code,name from kaosheng where ryear=" & Num2Year(XuHao) & " and class=" & Class, DB, adOpenStatic, adLockOptimistic 
  LstName.Clear 
   '清除控件 
 
  ClsTM 
  If Not adoRs.EOF Then 
     adoRs.MoveLast 
     adoRs.MoveFirst 
     For i = 0 To adoRs.RecordCount - 1 
       LstName.AddItem adoRs.Fields("id").Value & "|" & adoRs.Fields("name").Value & "|" & adoRs.Fields("code").Value 
       adoRs.MoveNext 
     Next i 
     LstName.ListIndex = 0 
  End If 
   
End Sub 
Private Sub Form_Load() 
 GetStudentByClass 1 
End Sub 
'清除控件 
Sub ClsTM() 
  LstTK.Clear 
  LstWD.Clear 
  LstZW.Clear 
  LstJuan.Clear 
End Sub 
Private Sub Form_Resize() 
  PicWD.Top = PicTK.Top 
  PicWD.Left = PicTK.Left 
  PicZW.Top = PicTK.Top 
  PicZW.Left = PicTK.Left 
 
End Sub 
'显示试卷题目 
Sub ShowTMID(ByVal ScoreID As Long) 
  Dim adoRs As Recordset 
  Set adoRs = New Recordset 
  Dim TStr As String 
  Dim IDArr() As String 
  Dim i As Integer 
  '填空题 
  adoRs.Open "select tiankongid from scoreTK where id=" & ScoreID, DB, adOpenStatic, adLockOptimistic 
  LstTK.Clear 
  If Not adoRs.EOF Then 
     TStr = adoRs.Fields(0).Value 
     If TStr <> "" Then 
       IDArr = Split(TStr, ",") 
       ReDim TKIDArr(UBound(IDArr) + 1) As Long 
       For i = 0 To UBound(IDArr) 
         LstTK.AddItem "第" & i + 1 & "题" 
         TKIDArr(i) = IDArr(i) 
       Next i 
     End If 
  End If 
  adoRs.Close 
  '问答题 
  adoRs.Open "select wendaid from scoreWD where id=" & ScoreID, DB, adOpenStatic, adLockOptimistic 
  LstWD.Clear 
  If Not adoRs.EOF Then 
     TStr = adoRs.Fields(0).Value 
     If TStr <> "" Then 
       IDArr = Split(TStr, ",") 
       ReDim WDIDArr(UBound(IDArr) + 1) As Long 
       For i = 0 To UBound(IDArr) 
         LstWD.AddItem "第" & i + 1 & "题" 
         WDIDArr(i) = IDArr(i) 
       Next i 
     End If 
  End If 
  adoRs.Close 
  '作文题 
  adoRs.Open "select zuowenid from scoreZW where id=" & ScoreID, DB, adOpenStatic, adLockOptimistic 
  LstZW.Clear 
  If Not adoRs.EOF Then 
     TStr = adoRs.Fields(0).Value 
     If TStr <> "" Then 
       IDArr = Split(TStr, ",") 
       ReDim ZWIDArr(UBound(IDArr) + 1) As Long 
       For i = 0 To UBound(IDArr) 
         LstZW.AddItem "第" & i + 1 & "题" 
         ZWIDArr(i) = IDArr(i) 
       Next i 
     End If 
  End If 
 Set adoRs = Nothing 
End Sub 
'从test表里面得到这三种题型所对应的题目的分数序列 
Sub GetTMIDandSID(ByVal ScoreID As Long) 
  Dim TempRs As Recordset 
  Set TempRs = New Recordset 
  Dim sql As String 
  sql = "select test.tiankong,test.tiankongs,test.wenda,test.wendas,test.zuowen,test.zuowens from test,score where test.id=score.testid and score.id=" & ScoreID 
  TempRs.Open sql, DB, adOpenStatic, adLockOptimistic 
  If Not TempRs.EOF Then 
     TestTKIdStr = TempRs.Fields(0).Value 
     TestTKSStr = TempRs.Fields(1).Value 
     TestWDIdStr = TempRs.Fields(2).Value 
     TestWDSStr = TempRs.Fields(3).Value 
     TestZWIdStr = TempRs.Fields(4).Value 
     TestZWSStr = TempRs.Fields(5).Value 
  End If 
  Set TempRs = Nothing 
End Sub 
Private Sub LstJuan_Click() 
 GetTMIDandSID ScoreIDArr(LstJuan.ListIndex) 
 ShowTMID ScoreIDArr(LstJuan.ListIndex) 
  
End Sub 
 
Private Sub LstName_Click() 
 '查询对应的学生的没判完试卷 
 Dim adoRs As Recordset 
 Set adoRs = New Recordset 
 Dim StuID As String 
 Dim IDArr() As String 
 Dim sql As String 
 Dim i As Integer 
 IDArr = Split(LstName.List(LstName.ListIndex), "|") 
 StuID = IDArr(0) 
 sql = "select score.id,test.title from score,test where score.testid=test.id and score.complete='F' and score.studentid=" & StuID 
 adoRs.Open sql, DB, adOpenStatic, adLockOptimistic 
  '清除控件 
 ClsTM 
 If Not adoRs.EOF Then 
   adoRs.MoveLast 
   adoRs.MoveFirst 
   ReDim ScoreIDArr(adoRs.RecordCount) As Long 
   For i = 0 To adoRs.RecordCount - 1 
      LstJuan.AddItem adoRs.Fields("title").Value 
      ScoreIDArr(i) = adoRs.Fields("id").Value 
      adoRs.MoveNext 
   Next i 
   LstJuan.ListIndex = 0 
End If 
Set adoRs = Nothing 
End Sub 
'显示填空题题目和学生的答案 
Sub ViewTK(ByVal ScoreID As Long, ByVal TMID As Long) 
   Dim TempRs As Recordset 
   Set TempRs = New Recordset 
   Dim TempStr As String 
   Dim TempArr() As String 
   Dim i As Integer 
   TempRs.Open "select wenti,daan from questionTK where id=" & TMID, DB, adOpenStatic, adLockOptimistic 
   If TempRs.EOF Then 
     Exit Sub 
    Else 
     TempStr = "------------------" + vbCrLf + "  问题主体:" + vbCrLf + "------------------" + vbCrLf + TempRs.Fields("wenti").Value + vbCrLf + vbCrLf + "------------------" + vbCrLf + "   参考答案:" + vbCrLf + "------------------" + vbCrLf 
     TempArr = Split(TempRs.Fields("daan").Value, "▲▲") 
     For i = 0 To UBound(TempArr) 
        TempStr = TempStr + "  " & i + 1 & "、" + TempArr(i) + vbCrLf 
     Next i 
   End If 
   TXTTKTM.Text = TempStr 
   '查询对应的填空的答案和成绩题 
   TempRs.Close 
   TempRs.Open "select * from scoreTK where id=" & ScoreID, DB, adOpenStatic, adLockOptimistic 
   If Not TempRs.EOF Then 
     ScoreIDstr = TempRs.Fields("tiankongid").Value 
     ScoreSstr = TempRs.Fields("tiankongs").Value 
     TempStr = GetNeedByID(TempRs.Fields("tiankongid").Value, TempRs.Fields("tiankong").Value, ",", "▼▼", TMID) 
     TempArr = Split(TempStr, "▲▲") 
     TempStr = "------------------" + vbCrLf + "   考生答案:" + vbCrLf + "------------------" + vbCrLf 
     For i = 0 To UBound(TempArr) 
        TempStr = TempStr + "  " & i + 1 & "、" + TempArr(i) + vbCrLf 
     Next i 
   TXTTKDA.Text = TempStr 
   '取判卷分数 
   TempStr = GetNeedByID(TempRs.Fields("tiankongid").Value, TempRs.Fields("tiankongs").Value, ",", ",", TMID) 
   TXTTKS.Text = TempStr 
   If TempStr = "" Then 
      LabPTK.Visible = True 
      OldScore = 0 
    Else 
      LabPTK.Visible = False 
      OldScore = Val(TempStr) 
   End If 
   '取题目分数 
   TempStr = GetNeedByID(TestTKIdStr, TestTKSStr, ",", ",", TMID) 
   LabTK.Caption = TempStr 
   Set TempRs = Nothing 
 End If 
End Sub 
'显示问答题题目和学生的答案 
Sub ViewWD(ByVal ScoreID As Long, ByVal TMID As Long) 
   Dim TempRs As Recordset 
   Set TempRs = New Recordset 
   Dim TempStr As String 
   TempRs.Open "select wenti,daan from questionWD where id=" & TMID, DB, adOpenStatic, adLockOptimistic 
   If TempRs.EOF Then 
     Exit Sub 
    Else 
     TempStr = "------------------" + vbCrLf + "  问题主体:" + vbCrLf + "------------------" + vbCrLf + TempRs.Fields("wenti").Value + vbCrLf + vbCrLf + "------------------" + vbCrLf + "   参考答案:" + vbCrLf + "------------------" + vbCrLf 
     TempStr = TempStr + TempRs.Fields("daan").Value 
   End If 
   TXTWDTM.Text = TempStr 
   '查询对应的问答题的答案和成绩题 
   TempRs.Close 
   TempRs.Open "select * from scoreWD where id=" & ScoreID, DB, adOpenStatic, adLockOptimistic 
   If Not TempRs.EOF Then 
     ScoreIDstr = TempRs.Fields("wendaid").Value 
     ScoreSstr = TempRs.Fields("wendas").Value 
     TempStr = GetNeedByID(TempRs.Fields("wendaid").Value, TempRs.Fields("wenda").Value, ",", "▼▼", TMID) 
     TempStr = "------------------" + vbCrLf + "   考生答案:" + vbCrLf + "------------------" + vbCrLf + TempStr 
   TXTWDDA.Text = TempStr 
   '取判卷分数 
   TempStr = GetNeedByID(TempRs.Fields("wendaid").Value, TempRs.Fields("wendas").Value, ",", ",", TMID) 
   TXTWDS.Text = TempStr 
   If TempStr = "" Then 
      LabPWD.Visible = True 
      OldScore = 0 
    Else 
      LabPWD.Visible = False 
      OldScore = Val(TempStr) 
   End If 
   '取题目分数 
   TempStr = GetNeedByID(TestWDIdStr, TestWDSStr, ",", ",", TMID) 
   LabWD.Caption = TempStr 
   Set TempRs = Nothing 
 End If 
End Sub 
'显示作文题题目和学生的答案 
Sub ViewZW(ByVal ScoreID As Long, ByVal TMID As Long) 
   Dim TempRs As Recordset 
   Set TempRs = New Recordset 
   Dim TempStr As String 
   TempRs.Open "select wenti,daan from questionZW where id=" & TMID, DB, adOpenStatic, adLockOptimistic 
   If TempRs.EOF Then 
     Exit Sub 
    Else 
     TempStr = "------------------" + vbCrLf + "  问题主体:" + vbCrLf + "------------------" + vbCrLf + TempRs.Fields("wenti").Value + vbCrLf + vbCrLf + "------------------" + vbCrLf + "   参考答案:" + vbCrLf + "------------------" + vbCrLf 
     TempStr = TempStr + TempRs.Fields("daan").Value 
   End If 
   TXTZWTM.Text = TempStr 
   '查询对应的作文题的答案和成绩题 
   TempRs.Close 
   TempRs.Open "select * from scoreZW where id=" & ScoreID, DB, adOpenStatic, adLockOptimistic 
  If Not TempRs.EOF Then 
     ScoreIDstr = TempRs.Fields("zuowenid").Value 
     ScoreSstr = TempRs.Fields("zuowens").Value 
     TempStr = GetNeedByID(TempRs.Fields("zuowenid").Value, TempRs.Fields("zuowen").Value, ",", "▼▼", TMID) 
     TempStr = "------------------" + vbCrLf + "   考生答案:" + vbCrLf + "------------------" + vbCrLf + TempStr 
   TXTZWDA.Text = TempStr 
   '取判卷分数 
   TempStr = GetNeedByID(TempRs.Fields("zuowenid").Value, TempRs.Fields("zuowens").Value, ",", ",", TMID) 
   TXTZWS.Text = TempStr 
   If TempStr = "" Then 
      LabPZW.Visible = True 
      OldScore = 0 
    Else 
      LabPZW.Visible = False 
      OldScore = Val(TempStr) 
   End If 
   '取题目分数 
   TempStr = GetNeedByID(TestZWIdStr, TestZWSStr, ",", ",", TMID) 
   LabZW.Caption = TempStr 
   Set TempRs = Nothing 
  End If 
End Sub 
Private Sub LstTK_Click() 
  ViewTK ScoreIDArr(LstJuan.ListIndex), TKIDArr(LstTK.ListIndex) 
 
End Sub 
 
Private Sub LstWD_Click() 
  ViewWD ScoreIDArr(LstJuan.ListIndex), WDIDArr(LstWD.ListIndex) 
End Sub 
 
Private Sub LstZW_Click() 
  ViewZW ScoreIDArr(LstJuan.ListIndex), ZWIDArr(LstZW.ListIndex) 
 
End Sub 
 
Private Sub TXTBan_Change() 
  GetStudentByClass Val(TXTBan.Text) 
End Sub 
 
Private Sub TXTTKS_KeyPress(KeyAscii As Integer) 
 If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 46) Then 
  KeyAscii = 0 
 End If 
End Sub 
 
Private Sub TXTWDS_KeyPress(KeyAscii As Integer) 
   If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 46) Then 
  KeyAscii = 0 
 End If 
End Sub 
 
Private Sub TXTZWS_KeyPress(KeyAscii As Integer) 
   If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 46) Then 
  KeyAscii = 0 
 End If 
End Sub 
 
Private Sub UDScore_Change() 
 
End Sub