frmtestdb.vb

这个是本人写的题库系统,开发工具是vb.net.试题编辑,试卷编辑,可以在word中编辑试题.由于时间关系,很多功能需要细化.

        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(72, 16)
        Me.Label5.TabIndex = 6
        Me.Label5.Text = "试卷类型："
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 56)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(72, 16)
        Me.Label4.TabIndex = 4
        Me.Label4.Text = "考试方式："
        '
        'txt_teacher
        '
        Me.txt_teacher.Enabled = False
        Me.txt_teacher.Location = New System.Drawing.Point(352, 16)
        Me.txt_teacher.MaxLength = 20
        Me.txt_teacher.Name = "txt_teacher"
        Me.txt_teacher.Size = New System.Drawing.Size(104, 21)
        Me.txt_teacher.TabIndex = 3
        Me.txt_teacher.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(296, 19)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(56, 15)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "出卷人："
        '
        'txt_testtitle
        '
        Me.txt_testtitle.Enabled = False
        Me.txt_testtitle.Location = New System.Drawing.Point(56, 17)
        Me.txt_testtitle.MaxLength = 30
        Me.txt_testtitle.Name = "txt_testtitle"
        Me.txt_testtitle.Size = New System.Drawing.Size(232, 21)
        Me.txt_testtitle.TabIndex = 1
        Me.txt_testtitle.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 21)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(48, 16)
        Me.Label2.TabIndex = 0
        Me.Label2.Text = "标题："
        '
        'cmd_deltest
        '
        Me.cmd_deltest.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmd_deltest.Location = New System.Drawing.Point(280, 444)
        Me.cmd_deltest.Name = "cmd_deltest"
        Me.cmd_deltest.Size = New System.Drawing.Size(80, 32)
        Me.cmd_deltest.TabIndex = 5
        Me.cmd_deltest.Text = "删   除"
        '
        'frmtestdb
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(482, 487)
        Me.Controls.Add(Me.cmd_deltest)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.cmd_cancel)
        Me.Controls.Add(Me.cmd_testexporttoword)
        Me.Controls.Add(Me.cmd_testedit)
        Me.Controls.Add(Me.GroupBox1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "frmtestdb"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "试卷库"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.dg_tests, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.artbtest, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim Testdbset As DataSet
    Private Sub frmtestdb_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CurTest.Initials()
        MyTest.Initials()
        Testdbset = MyTest.GetTests(OpSubjt.SubjectID)
        If Not Testdbset Is Nothing Then
            dg_tests.DataSource = Testdbset.Tables(0).DefaultView
            dg_tests.CaptionText = dg_tests.CaptionText & "--试卷库中" & OpSubjt.SubjectName & "课程有 " & Testdbset.Tables(0).Rows.Count.ToString & " 份卷子"
        Else
            dg_tests.DataSource = Nothing
            dg_tests.CaptionText = dg_tests.CaptionText & "--试卷库中" & OpSubjt.SubjectName & "课程有0份卷子"
        End If
        If dg_tests.CurrentRowIndex >= 0 Then
            MyTest.GetInfo(dg_tests.Item(dg_tests.CurrentRowIndex, 0))
            CurTest.Equal(MyTest)
        End If
        ShowData(CurTest)
    End Sub
    Private Sub ShowData(ByVal tmptest As CTests)
        If tmptest.TestID <= 0 Then
            txt_testtitle.Text = ""
            txt_teacher.Text = ""
            txt_testmoth.Text = ""
            txt_testtype.Text = ""
            txt_totalscore.Text = ""
            lbl_date.Text = ""
        Else
            txt_testtitle.Text = tmptest.TestTitle
            txt_teacher.Text = tmptest.TestOpName
            txt_testmoth.Text = tmptest.TestMoth
            txt_testtype.Text = tmptest.TestType
            txt_totalscore.Text = tmptest.TestScore
            lbl_date.Text = tmptest.TestOpTime
        End If
    End Sub


    Private Sub dg_tests_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles dg_tests.Click
        If dg_tests.CurrentRowIndex < 0 Then
            CurTest.Initials()
            MyTest.Initials()
            ShowData(CurTest)
            Exit Sub
        End If
        MyTest.GetInfo(dg_tests.Item(dg_tests.CurrentRowIndex, 0))
        CurTest.Equal(MyTest)
        ShowData(CurTest)
    End Sub
    Public Function OpenOnce(ByVal frm As Form, ByVal parentfrm As Form) As Boolean
        Dim mdifrm As Form
        For Each mdifrm In parentfrm.MdiChildren
            If frm.Text = mdifrm.Text Then
                mdifrm.Activate()
                Return False
                Exit Function
            End If
        Next
        Return True
    End Function
    Private Sub cmd_testedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_testedit.Click
        If CurTest.TestID <= 0 Then
            MsgBox("请您选择当前操作试卷", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Exit Sub
        End If
        Dim fmprodbyman As New frmprodbyman
        If OpenOnce(fmprodbyman, Me.ParentForm) Then
            fmprodbyman.MdiParent = Me.ParentForm
            fmprodbyman.Show()
        End If
        Me.Close()
    End Sub

    Private Sub cmd_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_cancel.Click
        Me.Close()
    End Sub

    Private Sub cmd_testexporttoword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_testexporttoword.Click
        If CurTest.TestID <= 0 Then
            Exit Sub
        End If
        Dim myStream As String
        Dim DocObjConFileName As String
        Dim DocObjResFileName As String

        DocObjConFileName = Application.StartupPath & "\试卷内容.rtf"
        DocObjConFileName = Application.StartupPath & "\试卷答案.rtf"

        Dim saveFileDialog1 As New SaveFileDialog
        saveFileDialog1.Filter = "Word Document|*.doc"
        saveFileDialog1.Title = "试卷导出到Word文件"
        saveFileDialog1.RestoreDirectory = True
        Dim msWordApp As New Word.Application
        Dim msWordDoc As Word.Document
        Dim msWordSelection As Word.Selection
        'Dim InFile As String

        msWordDoc = msWordApp.Documents.Add("", False)
        msWordSelection = msWordApp.Selection

        artbtest.TextRTF = MyTestCon.GetTestContext(CurTest.TestID)
        artbtest.SaveFile(DocObjConFileName, RichTextBoxStreamType.RichText)
        msWordSelection.InsertFile(FileName:=DocObjConFileName, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False)

        artbtest.TextRTF = MyTestRes.GetTestContext(CurTest.TestID)
        artbtest.SaveFile(DocObjConFileName, RichTextBoxStreamType.RichText)
        msWordSelection.InsertFile(FileName:=DocObjConFileName, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False)

        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            myStream = saveFileDialog1.FileName
            If Trim(myStream) <> "" Then
                msWordDoc.SaveAs(myStream, FileFormat:=Word.WdSaveFormat.wdFormatDocument)
                msWordDoc.Close()
                msWordApp.Quit()
                msWordSelection = Nothing
                msWordDoc = Nothing
                msWordApp = Nothing
            End If
        End If
    End Sub

    Private Sub cmd_deltest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_deltest.Click
        If CurTest.TestID <= 0 Then
            Exit Sub
        End If
        MyTest.Equal(CurTest)

        MyTestDeta.DeleteByTestID(CurTest.TestID)
        MyTestType.DeleteByTestID(CurTest.TestID)
        If MyTest.Delete() Then
            CurTest.Initials()
            MyTest.Initials()
            Testdbset = MyTest.GetTests(OpSubjt.SubjectID)
            If Not Testdbset Is Nothing Then
                dg_tests.DataSource = Testdbset.Tables(0).DefaultView
                dg_tests.CaptionText = dg_tests.CaptionText & "--试卷库中" & OpSubjt.SubjectName & "课程有 " & Testdbset.Tables(0).Rows.Count.ToString & " 份卷子"
            Else
                dg_tests.DataSource = Nothing
                dg_tests.CaptionText = dg_tests.CaptionText & "--试卷库中" & OpSubjt.SubjectName & "课程有0份卷子"
            End If
            If dg_tests.CurrentRowIndex >= 0 Then
                MyTest.GetInfo(dg_tests.Item(dg_tests.CurrentRowIndex, 0))
                CurTest.Equal(MyTest)
            End If
            ShowData(CurTest)
        Else
            MsgBox("删除卷子[" & CurTest.TestTitle & "]出错", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
        End If
    End Sub
End Class