frmcreatepaper.vb

Visual Basic管理信息系统开发 学生考试系统(源代码)

		Me.Text2.TabStop = True
		Me.Text2.Visible = True
		Me.Text2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.Text2.Name = "Text2"
		Me.udFilling.Size = New System.Drawing.Size(17, 19)
		Me.udFilling.Location = New System.Drawing.Point(200, 32)
		Me.udFilling.TabIndex = 5
		Me.udFilling.Text = "udFilling"
		Me.udFilling.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.udFilling.BackColor = System.Drawing.Color.Red
		Me.udFilling.Name = "udFilling"
		Me.Text1.AutoSize = False
		Me.Text1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
		Me.Text1.Size = New System.Drawing.Size(72, 19)
		Me.Text1.Location = New System.Drawing.Point(128, 31)
		Me.Text1.TabIndex = 3
		Me.Text1.AcceptsReturn = True
		Me.Text1.BackColor = System.Drawing.SystemColors.Window
		Me.Text1.CausesValidation = True
		Me.Text1.Enabled = True
		Me.Text1.ForeColor = System.Drawing.SystemColors.WindowText
		Me.Text1.HideSelection = True
		Me.Text1.ReadOnly = False
		Me.Text1.Maxlength = 0
		Me.Text1.Cursor = System.Windows.Forms.Cursors.IBeam
		Me.Text1.MultiLine = False
		Me.Text1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Text1.ScrollBars = System.Windows.Forms.ScrollBars.None
		Me.Text1.TabStop = True
		Me.Text1.Visible = True
		Me.Text1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
		Me.Text1.Name = "Text1"
		Me.udROR.Size = New System.Drawing.Size(17, 19)
		Me.udROR.Location = New System.Drawing.Point(200, 64)
		Me.udROR.TabIndex = 8
		Me.udROR.Text = "udROR"
		Me.udROR.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.udROR.BackColor = System.Drawing.Color.Red
		Me.udROR.Name = "udROR"
		Me.udSingleSel.Size = New System.Drawing.Size(17, 19)
		Me.udSingleSel.Location = New System.Drawing.Point(200, 96)
		Me.udSingleSel.TabIndex = 11
		Me.udSingleSel.Text = "udSingleSel"
		Me.udSingleSel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.udSingleSel.BackColor = System.Drawing.Color.Red
		Me.udSingleSel.Name = "udSingleSel"
		Me.udMultiSel.Size = New System.Drawing.Size(17, 19)
		Me.udMultiSel.Location = New System.Drawing.Point(200, 128)
		Me.udMultiSel.TabIndex = 14
		Me.udMultiSel.Text = "udMultiSel"
		Me.udMultiSel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.udMultiSel.BackColor = System.Drawing.Color.Red
		Me.udMultiSel.Name = "udMultiSel"
		Me.udEssayQ.Size = New System.Drawing.Size(17, 19)
		Me.udEssayQ.Location = New System.Drawing.Point(200, 160)
		Me.udEssayQ.TabIndex = 17
		Me.udEssayQ.Text = "udEssayQ"
		Me.udEssayQ.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.udEssayQ.BackColor = System.Drawing.Color.Red
		Me.udEssayQ.Name = "udEssayQ"
		Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label5.Text = "问答题"
		Me.Label5.Size = New System.Drawing.Size(81, 17)
		Me.Label5.Location = New System.Drawing.Point(16, 161)
		Me.Label5.TabIndex = 16
		Me.Label5.BackColor = System.Drawing.SystemColors.Control
		Me.Label5.Enabled = True
		Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label5.UseMnemonic = True
		Me.Label5.Visible = True
		Me.Label5.AutoSize = False
		Me.Label5.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label5.Name = "Label5"
		Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label4.Text = "多选题"
		Me.Label4.Size = New System.Drawing.Size(81, 17)
		Me.Label4.Location = New System.Drawing.Point(16, 129)
		Me.Label4.TabIndex = 13
		Me.Label4.BackColor = System.Drawing.SystemColors.Control
		Me.Label4.Enabled = True
		Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label4.UseMnemonic = True
		Me.Label4.Visible = True
		Me.Label4.AutoSize = False
		Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label4.Name = "Label4"
		Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label3.Text = "单选题"
		Me.Label3.Size = New System.Drawing.Size(81, 17)
		Me.Label3.Location = New System.Drawing.Point(16, 97)
		Me.Label3.TabIndex = 10
		Me.Label3.BackColor = System.Drawing.SystemColors.Control
		Me.Label3.Enabled = True
		Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label3.UseMnemonic = True
		Me.Label3.Visible = True
		Me.Label3.AutoSize = False
		Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label3.Name = "Label3"
		Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label2.Text = "判断题"
		Me.Label2.Size = New System.Drawing.Size(81, 17)
		Me.Label2.Location = New System.Drawing.Point(16, 65)
		Me.Label2.TabIndex = 7
		Me.Label2.BackColor = System.Drawing.SystemColors.Control
		Me.Label2.Enabled = True
		Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label2.UseMnemonic = True
		Me.Label2.Visible = True
		Me.Label2.AutoSize = False
		Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label2.Name = "Label2"
		Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.Label1.Text = "填空题"
		Me.Label1.Size = New System.Drawing.Size(81, 17)
		Me.Label1.Location = New System.Drawing.Point(16, 32)
		Me.Label1.TabIndex = 4
		Me.Label1.BackColor = System.Drawing.SystemColors.Control
		Me.Label1.Enabled = True
		Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
		Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.Label1.UseMnemonic = True
		Me.Label1.Visible = True
		Me.Label1.AutoSize = False
		Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.Label1.Name = "Label1"
		Me.Controls.Add(CmdCancel)
		Me.Controls.Add(CmdOk)
		Me.Controls.Add(OptTeacher)
		Me.Controls.Add(OptAuto)
		Me.Controls.Add(FrmQues)
		Me.FrmQues.Controls.Add(Text5)
		Me.FrmQues.Controls.Add(Text4)
		Me.FrmQues.Controls.Add(Text3)
		Me.FrmQues.Controls.Add(Text2)
		Me.FrmQues.Controls.Add(udFilling)
		Me.FrmQues.Controls.Add(Text1)
		Me.FrmQues.Controls.Add(udROR)
		Me.FrmQues.Controls.Add(udSingleSel)
		Me.FrmQues.Controls.Add(udMultiSel)
		Me.FrmQues.Controls.Add(udEssayQ)
		Me.FrmQues.Controls.Add(Label5)
		Me.FrmQues.Controls.Add(Label4)
		Me.FrmQues.Controls.Add(Label3)
		Me.FrmQues.Controls.Add(Label2)
		Me.FrmQues.Controls.Add(Label1)
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As frmCreatePaper
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmCreatePaper
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmCreatePaper()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	
	
	Private Sub cmdCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
		Me.Close()
	End Sub
	
	Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
		
		If OptTeacher.Checked = True Then '如果选择教师出题
			'UPGRADE_WARNING: 未能解析对象 DataEnv.DelQuestion 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"”
			DataEnv.DelQuestion() '调用数据命令对象DelQuestion清空试卷表
			frmModifyPaper.DefInstance.ShowDialog() '显示试卷修改窗体
			QPaper.Created = True
		Else
			'UPGRADE_ISSUE: VBControlExtender 方法 udFilling.Value 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
			QPaper.FillingNum = udFilling.Value '设置QPaper对象的各属性值
			'UPGRADE_ISSUE: VBControlExtender 方法 udROR.Value 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
			QPaper.RightWrongNum = udROR.Value
			'UPGRADE_ISSUE: VBControlExtender 方法 udSingleSel.Value 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
			QPaper.SingleSelNum = udSingleSel.Value
			'UPGRADE_ISSUE: VBControlExtender 方法 udMultiSel.Value 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
			QPaper.MultiSelNum = udMultiSel.Value
			'UPGRADE_ISSUE: VBControlExtender 方法 udEssayQ.Value 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
			QPaper.EssayQuesNum = udEssayQ.Value
			If QPaper.Create Then
				MsgBox("试卷已生成，请及时浏览或修改", MsgBoxStyle.Information, "提示")
			Else
				MsgBox("试卷创建失败，请查找原因或与管理员联系", MsgBoxStyle.Critical, "错误")
			End If
		End If
		
		Me.Close()
		
	End Sub
	
	Private Sub frmCreatePaper_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		DataEnv.rsFillingQ.Open() '打开数据集rsFillingQ
		'UPGRADE_ISSUE: VBControlExtender 方法 udFilling.Min 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
		udFilling.Min = 0
		'UPGRADE_ISSUE: VBControlExtender 方法 udFilling.Max 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
		udFilling.Max = DataEnv.rsFillingQ.RecordCount '设置UpDown控件最大值为填空题数目
		DataEnv.rsFillingQ.Close() '关闭数据集
		DataEnv.rsRorWQ.Open() '打开数据集
		'UPGRADE_ISSUE: VBControlExtender 方法 udROR.Min 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
		udROR.Min = 0
		'UPGRADE_ISSUE: VBControlExtender 方法 udROR.Max 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
		udROR.Max = DataEnv.rsRorWQ.RecordCount '设置UpDown控件最大值为判断题数目
		DataEnv.rsRorWQ.Close() '关闭数据集
		DataEnv.rsSingleSelQ.Open() '打开数据集rsSingSelQ
		'UPGRADE_ISSUE: VBControlExtender 方法 udSingleSel.Min 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
		udSingleSel.Min = 0
		'UPGRADE_ISSUE: VBControlExtender 方法 udSingleSel.Max 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
		udSingleSel.Max = DataEnv.rsSingleSelQ.RecordCount '设置UpDown控件最大值为单选题数目
		DataEnv.rsSingleSelQ.Close() '关闭数据集
		DataEnv.rsMultiSelQ.Open() '打开数据集rsMustiSelQ
		'UPGRADE_ISSUE: VBControlExtender 方法 udMultiSel.Min 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
		udMultiSel.Min = 0
		'UPGRADE_ISSUE: VBControlExtender 方法 udMultiSel.Max 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
		udMultiSel.Max = DataEnv.rsMultiSelQ.RecordCount '设置UpDown控件最大值为多选题数目
		DataEnv.rsMultiSelQ.Close() '关闭数据集
		DataEnv.rsEssayQ.Open() '打开数据集rsEssayQ
		'UPGRADE_ISSUE: VBControlExtender 方法 udEssayQ.Min 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
		udEssayQ.Min = 0
		'UPGRADE_ISSUE: VBControlExtender 方法 udEssayQ.Max 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"”
		udEssayQ.Max = DataEnv.rsEssayQ.RecordCount '设置UpDown控件最大值为问答题数目
		DataEnv.rsEssayQ.Close() '关闭数据集
	End Sub
	
	
	
	'UPGRADE_WARNING: 初始化窗体时可能激发事件 OptAuto.CheckedChanged。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2075"”
	Private Sub OptAuto_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles OptAuto.CheckedChanged
		If eventSender.Checked Then '如果选择了自动创建试题，则可以设定题目数
			If OptAuto.Checked Then
				FrmQues.Enabled = True '否则不能设定题目数
			Else
				FrmQues.Enabled = False
			End If
		End If
	End Sub
	
	'UPGRADE_WARNING: 初始化窗体时可能激发事件 OptTeacher.CheckedChanged。 单击以获得更多信息:“ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2075"”
	Private Sub OptTeacher_CheckedChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles OptTeacher.CheckedChanged
		If eventSender.Checked Then
			If OptAuto.Checked Then
				FrmQues.Enabled = True
			Else
				FrmQues.Enabled = False
			End If
		End If
	End Sub
End Class