frmresult.vb

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

		Me.txtS1.Visible = True
		Me.txtS1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.txtS1.Name = "txtS1"
		Me.txtS2.AutoSize = False
		Me.txtS2.Font = New System.Drawing.Font("黑体", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
		Me.txtS2.ForeColor = System.Drawing.Color.Red
		Me.txtS2.Size = New System.Drawing.Size(113, 25)
		Me.txtS2.Location = New System.Drawing.Point(264, 48)
		Me.txtS2.TabIndex = 6
		Me.txtS2.AcceptsReturn = True
		Me.txtS2.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
		Me.txtS2.BackColor = System.Drawing.SystemColors.Window
		Me.txtS2.CausesValidation = True
		Me.txtS2.Enabled = True
		Me.txtS2.HideSelection = True
		Me.txtS2.ReadOnly = False
		Me.txtS2.Maxlength = 0
		Me.txtS2.Cursor = System.Windows.Forms.Cursors.IBeam
		Me.txtS2.MultiLine = False
		Me.txtS2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.txtS2.ScrollBars = System.Windows.Forms.ScrollBars.None
		Me.txtS2.TabStop = True
		Me.txtS2.Visible = True
		Me.txtS2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
		Me.txtS2.Name = "txtS2"
		Me.lblPercent.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.lblPercent.Text = "换算"
		Me.lblPercent.Font = New System.Drawing.Font("黑体", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
		Me.lblPercent.Size = New System.Drawing.Size(65, 25)
		Me.lblPercent.Location = New System.Drawing.Point(200, 168)
		Me.lblPercent.TabIndex = 15
		Me.lblPercent.BackColor = System.Drawing.SystemColors.Control
		Me.lblPercent.Enabled = True
		Me.lblPercent.ForeColor = System.Drawing.SystemColors.ControlText
		Me.lblPercent.Cursor = System.Windows.Forms.Cursors.Default
		Me.lblPercent.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.lblPercent.UseMnemonic = True
		Me.lblPercent.Visible = True
		Me.lblPercent.AutoSize = False
		Me.lblPercent.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.lblPercent.Name = "lblPercent"
		Me.lblTotal.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.lblTotal.Text = "总分"
		Me.lblTotal.Font = New System.Drawing.Font("黑体", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
		Me.lblTotal.Size = New System.Drawing.Size(65, 25)
		Me.lblTotal.Location = New System.Drawing.Point(16, 168)
		Me.lblTotal.TabIndex = 13
		Me.lblTotal.BackColor = System.Drawing.SystemColors.Control
		Me.lblTotal.Enabled = True
		Me.lblTotal.ForeColor = System.Drawing.SystemColors.ControlText
		Me.lblTotal.Cursor = System.Windows.Forms.Cursors.Default
		Me.lblTotal.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.lblTotal.UseMnemonic = True
		Me.lblTotal.Visible = True
		Me.lblTotal.AutoSize = False
		Me.lblTotal.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.lblTotal.Name = "lblTotal"
		Me.lblO2.Text = "实得"
		Me.lblO2.Font = New System.Drawing.Font("黑体", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
		Me.lblO2.Size = New System.Drawing.Size(41, 25)
		Me.lblO2.Location = New System.Drawing.Point(216, 128)
		Me.lblO2.TabIndex = 10
		Me.lblO2.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.lblO2.BackColor = System.Drawing.SystemColors.Control
		Me.lblO2.Enabled = True
		Me.lblO2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.lblO2.Cursor = System.Windows.Forms.Cursors.Default
		Me.lblO2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.lblO2.UseMnemonic = True
		Me.lblO2.Visible = True
		Me.lblO2.AutoSize = False
		Me.lblO2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.lblO2.Name = "lblO2"
		Me.lblO1.Text = "应得"
		Me.lblO1.Font = New System.Drawing.Font("黑体", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
		Me.lblO1.Size = New System.Drawing.Size(49, 25)
		Me.lblO1.Location = New System.Drawing.Point(48, 128)
		Me.lblO1.TabIndex = 9
		Me.lblO1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.lblO1.BackColor = System.Drawing.SystemColors.Control
		Me.lblO1.Enabled = True
		Me.lblO1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.lblO1.Cursor = System.Windows.Forms.Cursors.Default
		Me.lblO1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.lblO1.UseMnemonic = True
		Me.lblO1.Visible = True
		Me.lblO1.AutoSize = False
		Me.lblO1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.lblO1.Name = "lblO1"
		Me.lblObj.Text = "客观题部分"
		Me.lblObj.Font = New System.Drawing.Font("黑体", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
		Me.lblObj.Size = New System.Drawing.Size(121, 25)
		Me.lblObj.Location = New System.Drawing.Point(16, 88)
		Me.lblObj.TabIndex = 8
		Me.lblObj.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.lblObj.BackColor = System.Drawing.SystemColors.Control
		Me.lblObj.Enabled = True
		Me.lblObj.ForeColor = System.Drawing.SystemColors.ControlText
		Me.lblObj.Cursor = System.Windows.Forms.Cursors.Default
		Me.lblObj.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.lblObj.UseMnemonic = True
		Me.lblObj.Visible = True
		Me.lblObj.AutoSize = False
		Me.lblObj.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.lblObj.Name = "lblObj"
		Me.LlbS2.Text = "实得"
		Me.LlbS2.Font = New System.Drawing.Font("黑体", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
		Me.LlbS2.Size = New System.Drawing.Size(41, 25)
		Me.LlbS2.Location = New System.Drawing.Point(216, 56)
		Me.LlbS2.TabIndex = 5
		Me.LlbS2.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.LlbS2.BackColor = System.Drawing.SystemColors.Control
		Me.LlbS2.Enabled = True
		Me.LlbS2.ForeColor = System.Drawing.SystemColors.ControlText
		Me.LlbS2.Cursor = System.Windows.Forms.Cursors.Default
		Me.LlbS2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.LlbS2.UseMnemonic = True
		Me.LlbS2.Visible = True
		Me.LlbS2.AutoSize = False
		Me.LlbS2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.LlbS2.Name = "LlbS2"
		Me.LblS1.Text = "应得"
		Me.LblS1.Font = New System.Drawing.Font("黑体", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
		Me.LblS1.Size = New System.Drawing.Size(49, 25)
		Me.LblS1.Location = New System.Drawing.Point(48, 56)
		Me.LblS1.TabIndex = 4
		Me.LblS1.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.LblS1.BackColor = System.Drawing.SystemColors.Control
		Me.LblS1.Enabled = True
		Me.LblS1.ForeColor = System.Drawing.SystemColors.ControlText
		Me.LblS1.Cursor = System.Windows.Forms.Cursors.Default
		Me.LblS1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.LblS1.UseMnemonic = True
		Me.LblS1.Visible = True
		Me.LblS1.AutoSize = False
		Me.LblS1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.LblS1.Name = "LblS1"
		Me.lblSub.Text = "主观题部分"
		Me.lblSub.Font = New System.Drawing.Font("黑体", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
		Me.lblSub.Size = New System.Drawing.Size(121, 25)
		Me.lblSub.Location = New System.Drawing.Point(16, 16)
		Me.lblSub.TabIndex = 3
		Me.lblSub.TextAlign = System.Drawing.ContentAlignment.TopLeft
		Me.lblSub.BackColor = System.Drawing.SystemColors.Control
		Me.lblSub.Enabled = True
		Me.lblSub.ForeColor = System.Drawing.SystemColors.ControlText
		Me.lblSub.Cursor = System.Windows.Forms.Cursors.Default
		Me.lblSub.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.lblSub.UseMnemonic = True
		Me.lblSub.Visible = True
		Me.lblSub.AutoSize = False
		Me.lblSub.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.lblSub.Name = "lblSub"
		Me.LblTitle.TextAlign = System.Drawing.ContentAlignment.TopCenter
		Me.LblTitle.Text = "本次测试结果"
		Me.LblTitle.Font = New System.Drawing.Font("方正姚体", 24!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
		Me.LblTitle.ForeColor = System.Drawing.Color.Red
		Me.LblTitle.Size = New System.Drawing.Size(393, 41)
		Me.LblTitle.Location = New System.Drawing.Point(16, 16)
		Me.LblTitle.TabIndex = 0
		Me.LblTitle.BackColor = System.Drawing.SystemColors.Control
		Me.LblTitle.Enabled = True
		Me.LblTitle.Cursor = System.Windows.Forms.Cursors.Default
		Me.LblTitle.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.LblTitle.UseMnemonic = True
		Me.LblTitle.Visible = True
		Me.LblTitle.AutoSize = False
		Me.LblTitle.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.LblTitle.Name = "LblTitle"
		Me.Controls.Add(CmdExit)
		Me.Controls.Add(FrameResult)
		Me.Controls.Add(LblTitle)
		Me.FrameResult.Controls.Add(txtPercent)
		Me.FrameResult.Controls.Add(txtTotal)
		Me.FrameResult.Controls.Add(txtO1)
		Me.FrameResult.Controls.Add(txtO2)
		Me.FrameResult.Controls.Add(txtS1)
		Me.FrameResult.Controls.Add(txtS2)
		Me.FrameResult.Controls.Add(lblPercent)
		Me.FrameResult.Controls.Add(lblTotal)
		Me.FrameResult.Controls.Add(lblO2)
		Me.FrameResult.Controls.Add(lblO1)
		Me.FrameResult.Controls.Add(lblObj)
		Me.FrameResult.Controls.Add(LlbS2)
		Me.FrameResult.Controls.Add(LblS1)
		Me.FrameResult.Controls.Add(lblSub)
	End Sub
#End Region 
#Region "升级支持"
	Private Shared m_vb6FormDefInstance As frmResult
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmResult
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmResult()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region 
	Private Sub CmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CmdExit.Click
		Me.Close()
	End Sub
	
	Private Sub frmResult_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Dim t, p As Single
		txtS1.Text = CStr(QPaper.OScore)
		txtS2.Text = CStr(QPaper.ObjectiveScore)
		txtO1.Text = CStr(QPaper.SScore)
		txtO2.Text = CStr(QPaper.SubjectiveScore)
		t = CSng(txtS2.Text) + CSng(txtO2.Text)
		txtTotal.Text = CStr(t)
		p = CSng(txtS1.Text) + CSng(txtO1.Text)
		txtPercent.Text = VB6.Format(t / p, "##.0%")
		
	End Sub
End Class