www.pudn.com > stu_rag.rar > frmCreatePaper.frm, change:2003-04-03,size:9673b


VERSION 5.00 
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX" 
Begin VB.Form frmCreatePaper  
   BorderStyle     =   0  'None 
   Caption         =   "命题设置" 
   ClientHeight    =   4740 
   ClientLeft      =   3630 
   ClientTop       =   2475 
   ClientWidth     =   4515 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MDIChild        =   -1  'True 
   MinButton       =   0   'False 
   ScaleHeight     =   4740 
   ScaleWidth      =   4515 
   ShowInTaskbar   =   0   'False 
   Begin VB.CommandButton CmdCancel  
      Caption         =   "取消" 
      Height          =   375 
      Left            =   3120 
      TabIndex        =   19 
      Top             =   4200 
      Width           =   1095 
   End 
   Begin VB.CommandButton CmdOk  
      Caption         =   "确定" 
      Height          =   375 
      Left            =   1680 
      TabIndex        =   18 
      Top             =   4200 
      Width           =   1095 
   End 
   Begin VB.OptionButton OptTeacher  
      Caption         =   "教师命题" 
      Height          =   495 
      Left            =   240 
      TabIndex        =   2 
      Top             =   120 
      Value           =   -1  'True 
      Width           =   1935 
   End 
   Begin VB.OptionButton OptAuto  
      Caption         =   "自动出题" 
      Height          =   615 
      Left            =   240 
      TabIndex        =   1 
      Top             =   600 
      Width           =   1815 
   End 
   Begin VB.Frame FrmQues  
      Caption         =   "命题选项" 
      Enabled         =   0   'False 
      Height          =   2895 
      Left            =   120 
      TabIndex        =   0 
      Top             =   1200 
      Width           =   4215 
      Begin VB.TextBox Text5  
         Alignment       =   1  'Right Justify 
         Height          =   285 
         Left            =   1920 
         TabIndex        =   15 
         Top             =   2400 
         Width           =   1080 
      End 
      Begin VB.TextBox Text4  
         Alignment       =   1  'Right Justify 
         Height          =   285 
         Left            =   1920 
         TabIndex        =   12 
         Top             =   1920 
         Width           =   1080 
      End 
      Begin VB.TextBox Text3  
         Alignment       =   1  'Right Justify 
         Height          =   285 
         Left            =   1920 
         TabIndex        =   9 
         Top             =   1440 
         Width           =   1080 
      End 
      Begin VB.TextBox Text2  
         Alignment       =   1  'Right Justify 
         Height          =   285 
         Left            =   1920 
         TabIndex        =   6 
         Top             =   960 
         Width           =   1080 
      End 
      Begin MSComCtl2.UpDown udFilling  
         Height          =   285 
         Left            =   3000 
         TabIndex        =   5 
         Top             =   480 
         Width           =   255 
         _ExtentX        =   450 
         _ExtentY        =   503 
         _Version        =   393216 
         BuddyControl    =   "Text1" 
         BuddyDispid     =   196618 
         OrigLeft        =   2880 
         OrigTop         =   480 
         OrigRight       =   3135 
         OrigBottom      =   735 
         SyncBuddy       =   -1  'True 
         BuddyProperty   =   0 
         Enabled         =   -1  'True 
      End 
      Begin VB.TextBox Text1  
         Alignment       =   1  'Right Justify 
         Height          =   285 
         Left            =   1920 
         TabIndex        =   3 
         Top             =   465 
         Width           =   1080 
      End 
      Begin MSComCtl2.UpDown udROR  
         Height          =   285 
         Left            =   3000 
         TabIndex        =   8 
         Top             =   960 
         Width           =   255 
         _ExtentX        =   450 
         _ExtentY        =   503 
         _Version        =   393216 
         BuddyControl    =   "Text2" 
         BuddyDispid     =   196617 
         OrigLeft        =   2880 
         OrigTop         =   975 
         OrigRight       =   3135 
         OrigBottom      =   1230 
         SyncBuddy       =   -1  'True 
         BuddyProperty   =   0 
         Enabled         =   -1  'True 
      End 
      Begin MSComCtl2.UpDown udSingleSel  
         Height          =   285 
         Left            =   3000 
         TabIndex        =   11 
         Top             =   1440 
         Width           =   255 
         _ExtentX        =   450 
         _ExtentY        =   503 
         _Version        =   393216 
         BuddyControl    =   "Text3" 
         BuddyDispid     =   196616 
         OrigLeft        =   3000 
         OrigTop         =   1455 
         OrigRight       =   3255 
         OrigBottom      =   1710 
         SyncBuddy       =   -1  'True 
         BuddyProperty   =   0 
         Enabled         =   -1  'True 
      End 
      Begin MSComCtl2.UpDown udMultiSel  
         Height          =   285 
         Left            =   3000 
         TabIndex        =   14 
         Top             =   1920 
         Width           =   255 
         _ExtentX        =   450 
         _ExtentY        =   503 
         _Version        =   393216 
         BuddyControl    =   "Text4" 
         BuddyDispid     =   196615 
         OrigLeft        =   3000 
         OrigTop         =   1920 
         OrigRight       =   3255 
         OrigBottom      =   2175 
         SyncBuddy       =   -1  'True 
         BuddyProperty   =   0 
         Enabled         =   -1  'True 
      End 
      Begin MSComCtl2.UpDown udEssayQ  
         Height          =   285 
         Left            =   3000 
         TabIndex        =   17 
         Top             =   2400 
         Width           =   255 
         _ExtentX        =   450 
         _ExtentY        =   503 
         _Version        =   393216 
         BuddyControl    =   "Text5" 
         BuddyDispid     =   196614 
         OrigLeft        =   3000 
         OrigTop         =   2400 
         OrigRight       =   3255 
         OrigBottom      =   2655 
         SyncBuddy       =   -1  'True 
         BuddyProperty   =   0 
         Enabled         =   -1  'True 
      End 
      Begin VB.Label Label5  
         Alignment       =   2  'Center 
         Caption         =   "问答题" 
         Height          =   255 
         Left            =   240 
         TabIndex        =   16 
         Top             =   2415 
         Width           =   1215 
      End 
      Begin VB.Label Label4  
         Alignment       =   2  'Center 
         Caption         =   "多选题" 
         Height          =   255 
         Left            =   240 
         TabIndex        =   13 
         Top             =   1935 
         Width           =   1215 
      End 
      Begin VB.Label Label3  
         Alignment       =   2  'Center 
         Caption         =   "单选题" 
         Height          =   255 
         Left            =   240 
         TabIndex        =   10 
         Top             =   1455 
         Width           =   1215 
      End 
      Begin VB.Label Label2  
         Alignment       =   2  'Center 
         Caption         =   "判断题" 
         Height          =   255 
         Left            =   240 
         TabIndex        =   7 
         Top             =   975 
         Width           =   1215 
      End 
      Begin VB.Label Label1  
         Alignment       =   2  'Center 
         Caption         =   "填空题" 
         Height          =   255 
         Left            =   240 
         TabIndex        =   4 
         Top             =   480 
         Width           =   1215 
      End 
   End 
End 
Attribute VB_Name = "frmCreatePaper" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
 
Private Sub CmdCancel_Click() 
    Unload Me 
End Sub 
 
Private Sub CmdOk_Click() 
 
  If OptTeacher.Value = True Then 
     DataEnv.DelQuestion 
     frmModifyPaper.Show vbModal 
     QPaper.Created = True 
  Else 
     QPaper.FillingNum = udFilling.Value 
     QPaper.RightWrongNum = udROR.Value 
     QPaper.SingleSelNum = udSingleSel.Value 
     QPaper.MultiSelNum = udMultiSel.Value 
     QPaper.EssayQuesNum = udEssayQ.Value 
     If QPaper.Create Then 
         MsgBox "试卷已生成,请及时浏览或修改", vbInformation, "提示" 
     Else 
         MsgBox "试卷创建失败,请查找原因或与管理员联系", vbCritical, "错误" 
     End If 
  End If 
   
  Unload Me 
   
End Sub 
 
Private Sub Form_Load() 
    DataEnv.rsFillingQ.Open 
    udFilling.Min = 0 
    udFilling.Max = DataEnv.rsFillingQ.RecordCount 
    DataEnv.rsFillingQ.Close 
    DataEnv.rsRorWQ.Open 
    udROR.Min = 0 
    udROR.Max = DataEnv.rsRorWQ.RecordCount 
    DataEnv.rsRorWQ.Close 
    DataEnv.rsSingleSelQ.Open 
    udSingleSel.Min = 0 
    udSingleSel.Max = DataEnv.rsSingleSelQ.RecordCount 
    DataEnv.rsSingleSelQ.Close 
    DataEnv.rsMultiSelQ.Open 
    udMultiSel.Min = 0 
    udMultiSel.Max = DataEnv.rsMultiSelQ.RecordCount 
    DataEnv.rsMultiSelQ.Close 
    DataEnv.rsEssayQ.Open 
    udEssayQ.Min = 0 
    udEssayQ.Max = DataEnv.rsEssayQ.RecordCount 
    DataEnv.rsEssayQ.Close 
End Sub 
 
 
 
Private Sub OptAuto_Click() 
    If OptAuto.Value Then 
        FrmQues.Enabled = True 
    Else 
        FrmQues.Enabled = False 
    End If 
End Sub 
 
Private Sub OptTeacher_Click() 
    If OptAuto.Value Then 
        FrmQues.Enabled = True 
    Else 
        FrmQues.Enabled = False 
    End If 
End Sub