frmprodbyman.vb

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

        Me.comb_testtype.Name = "comb_testtype"
        Me.comb_testtype.Size = New System.Drawing.Size(96, 20)
        Me.comb_testtype.TabIndex = 7
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(184, 47)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(72, 16)
        Me.Label5.TabIndex = 6
        Me.Label5.Text = "试卷类型："
        '
        'comb_testmoth
        '
        Me.comb_testmoth.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.comb_testmoth.Items.AddRange(New Object() {"闭卷", "开卷"})
        Me.comb_testmoth.Location = New System.Drawing.Point(80, 43)
        Me.comb_testmoth.Name = "comb_testmoth"
        Me.comb_testmoth.Size = New System.Drawing.Size(96, 20)
        Me.comb_testmoth.TabIndex = 5
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 47)
        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.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_testtitel
        '
        Me.txt_testtitel.Location = New System.Drawing.Point(56, 17)
        Me.txt_testtitel.MaxLength = 30
        Me.txt_testtitel.Name = "txt_testtitel"
        Me.txt_testtitel.Size = New System.Drawing.Size(232, 21)
        Me.txt_testtitel.TabIndex = 1
        Me.txt_testtitel.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 = "标题："
        '
        'Splitter1
        '
        Me.Splitter1.BackColor = System.Drawing.Color.Green
        Me.Splitter1.Enabled = False
        Me.Splitter1.Location = New System.Drawing.Point(272, 0)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(7, 671)
        Me.Splitter1.TabIndex = 20
        Me.Splitter1.TabStop = False
        '
        'frmprodbyman
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(746, 671)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.Panel1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "frmprodbyman"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "手动出卷"
        Me.Panel1.ResumeLayout(False)
        Me.gb_objnum.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        CType(Me.dg_objects, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel2.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.Panel4.ResumeLayout(False)
        Me.GroupBox7.ResumeLayout(False)
        CType(Me.rtb_result, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox5.ResumeLayout(False)
        CType(Me.rtb_context, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.artbtestall, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmprodbyman_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CurChp.Initials()
        MyChp.Initials()
        CurObjt.Initials()
        MyObjt.Initials()
        CurObjtType.Initials()
        MyObjtType.Initials()

        MyTestCon.Initials()
        CurSubjt.Equal(OpSubjt)
        MySubjt.Equal(CurSubjt)

        CurTestDeta.Initials()
        MyTestDeta.Initials()
        CurTestType.Initials()
        MyTestType.Initials()
        OBJQueryDbset = Nothing
        txt_subject.Enabled = False
        rtb_context.TextRTF = ""
        rtb_result.TextRTF = ""
        Dim i As Integer = 0
        For i = 1 To 5
            comb_residx.Items.Add(Trim(Str(i)))
        Next
        comb_residx.SelectedIndex = 2

        Dim objtypedbset As DataSet
        objtypedbset = MyObjtType.LoadObjTypes()
        Dim drow As DataRow
        comb_qobjtype.Items.Clear()
        comb_objtype.Items.Clear()
        If Not objtypedbset Is Nothing Then
            For Each drow In objtypedbset.Tables(0).Rows
                comb_qobjtype.Items.Add(drow.Item(1))
                comb_objtype.Items.Add(drow.Item(1))
            Next
            comb_qobjtype.SelectedIndex = 0
            comb_objtype.SelectedIndex = 0
        End If

        MyObjtType.GetInfo(MakeStr(comb_qobjtype.Text))
        CurObjtType.Equal(MyObjtType)
        If CurTest.TestID > 0 Then
            MyTestType.LoadTestsObjt(tv_object, CurTest.TestID)
            objdbset = MyObjt.GetObjDetailsByAll(CurSubjt.SubjectID, CurObjtType.ObjectTypeID, Int(Trim(comb_residx.Text)))
            If Not objdbset Is Nothing Then
                dg_objects.DataSource = objdbset.Tables(0).DefaultView
                gb_objnum.Text = "共有" & Str(objdbset.Tables(0).Rows.Count) & " 道题"
            Else
                dg_objects.DataSource = objdbset.Tables(0).DefaultView
            End If
        End If
        txt_testtitel.Text = CurTest.TestTitle
        txt_teacher.Text = CurTest.TestOpName
        comb_testmoth.Text = CurTest.TestMoth
        comb_testtype.Text = CurTest.TestType
        txt_totalscore.Text = CurTest.TestScore.ToString
        lbl_date.Text = CurTest.TestOpTime

        txt_subject.Text = CurSubjt.SubjectName
        txt_chapter.Text = ""
        txt_score.Text = ""
        txt_resultidx.Text = ""
        txt_objtype.Text = ""
        lbl_opname.Text = ""
    End Sub

    Private Sub comb_qobjtype_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comb_qobjtype.SelectedIndexChanged
        MyObjtType.GetInfo(MakeStr(comb_qobjtype.Text))
        CurObjtType.Equal(MyObjtType)
        If CurTest.TestID > 0 Then
            objdbset = MyObjt.GetObjDetailsByAll(CurSubjt.SubjectID, CurObjtType.ObjectTypeID, Int(Trim(comb_residx.Text)))
            If Not objdbset Is Nothing Then
                dg_objects.DataSource = objdbset.Tables(0).DefaultView
                gb_objnum.Text = "共有" & Str(objdbset.Tables(0).Rows.Count) & " 道题"
            Else
                dg_objects.DataSource = Nothing
                gb_objnum.Text = "共有0道题"
            End If
        End If
    End Sub

    Private Sub cmd_objtypeadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_objtypeadd.Click
        If Trim(comb_objtype.Text) = "" Then
            Exit Sub
        End If
        Dim tmpobjty As New CObjectTypes
        tmpobjty.GetInfo(MakeStr(comb_objtype.Text))
        If MyTestType.IsInDB(CurTest.TestID, tmpobjty.ObjectTypeID) Then
            Exit Sub
        Else
            MyTestType.TestTypeDeTID = MyTestType.GetNewID()
            MyTestType.TestID = CurTest.TestID
            MyTestType.TestNum = 0
            MyTestType.ObjectTypeID = tmpobjty.ObjectTypeID
            If MyTestType.InsertDB() Then
                CurTestType.Equal(MyTestType)
                Dim node As TreeNode
                tv_object.BeginUpdate()
                node = tv_object.Nodes.Add(Trim(comb_objtype.Text))
                node.ImageIndex = 0
                node.SelectedImageIndex = 1
                tv_object.EndUpdate()
            Else
                MyTestType.Initials()
                MyTestType.Initials()
            End If
        End If

    End Sub


    Private Sub dg_objects_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dg_objects.Click
        If dg_objects.CurrentRowIndex < 0 Then
            rtb_context.TextRTF = ""
            rtb_result.TextRTF = ""
            Exit Sub
        End If
        MyObjt.ObjectName = MakeStr(dg_objects.Item(dg_objects.CurrentRowIndex, 0))
        MyObjt.GetInfo(MyObjt.ObjectName)
        CurObjt.Equal(MyObjt)
        rtb_context.TextRTF = CurObjt.ObjectContext
        rtb_result.TextRTF = CurObjt.ObjectResult
    End Sub


    Private Sub dg_objects_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dg_objects.CurrentCellChanged
        If dg_objects.Item(dg_objects.CurrentRowIndex, 0) Is Nothing Then
            Exit Sub
        End If
        txt_chapter.Text = dg_objects.Item(dg_objects.CurrentRowIndex, 1)
        txt_objtype.Text = dg_objects.Item(dg_objects.CurrentRowIndex, 2)
        txt_resultidx.Text = dg_objects.Item(dg_objects.CurrentRowIndex, 5)
        lbl_opname.Text = dg_objects.Item(dg_objects.CurrentRowIndex, 3)
        MyObjt.GetInfo(dg_objects.Item(dg_objects.CurrentRowIndex, 0))
        lbl_objname.Text = MyObjt.ObjectName
        CurObjt.Equal(MyObjt)
        MyObjtType.GetInfo(MakeStr(txt_objtype.Text))
        CurObjtType.Equal(MyObjtType)
        rtb_context.TextRTF = CurObjt.ObjectContext
        rtb_result.TextRTF = CurObjt.ObjectResult
    End Sub

    Private Sub cmd_objadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_objadd.Click
        If CurObjt.ObjectID <= 0 Then
            Exit Sub
        End If
        If MyTestDeta.IsInDB(CurObjt.ObjectID, CurTest.TestID) Then
            Exit Sub
        End If
        If Not MyTestType.IsInDB(CurTest.TestID, CurObjt.ObjectTypeID) Then
            Exit Sub
        End If
        If Trim(txt_score.Text) = "" Then
            If MsgBox("您真要把分数为0题加到试卷中吗?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "翼清测试题库系统V1.0") = MsgBoxResult.No Then
                txt_score.Focus()
                Exit Sub
            End If
        End If
        MyTestDeta.TestContextID = MyTestDeta.GetNewID()
        MyTestDeta.ObjectID = CurObjt.ObjectID
        MyTestDeta.ObjectScore = Val(MakeStr(txt_score.Text))
        MyTestDeta.TestID = CurTest.TestID
        If MyTestDeta.InsertDB() Then
            CurTestDeta.Equal(MyTestDeta)
            MyTestType.GetInfoByName(CurTest.TestID, CurObjt.ObjectTypeID)
            Dim node As TreeNode
            MyObjtType.GetinfoByID(CurObjt.ObjectTypeID)
            MyTestType.TestNum = MyTestType.TestNum + 1
            If MyTestType.Modify() Then
                CurTestType.Equal(MyTestType)
            End If
            For Each node In tv_object.Nodes
                If node.Text = Trim(MyObjtType.ObjectTypeName) Then
                    Dim tmpnode As TreeNode
                    tv_object.BeginUpdate()
                    tmpnode = node.Nodes.Add(Trim(Str(MyTestType.TestNum)) & "----" & Trim(CurObjt.ObjectName))
                    tmpnode.ImageIndex = 2
                    tmpnode.SelectedImageIndex = 3
                    tv_object.EndUpdate()
                    tv_object.SelectedNode = node
                End If
            Next
        Else
            MyTestDeta.Initials()
        End If
    End Sub

    Private Sub tv_object_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tv_object.MouseDown
        tv_object.SelectedNode = tv_object.GetNodeAt(e.X, e.Y)
        If Not tv_object.SelectedNode Is Nothing Then
            Dim tmppath As String
            tmppath = Trim(tv_object.SelectedNode.FullPath)
            If tmppath = "" Then
                Exit Sub
            End If
            Dim idx As Integer
            idx = InStr(1, tmppath, "\", CompareMethod.Text)
            If idx <= 0 Then
                Exit Sub
            Else
                If CurObjt.ObjectID > 0 Then
                    If Int(CurTestDeta.ObjectScore).ToString <> Trim(txt_score.Text) Then
                        If MsgBox("[" & CurObjt.ObjectName & "]题分数已改变，您是否保存?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, _
                                 "翼清测试题库系统V1.0") = MsgBoxResult.Yes Then
                            MyTestDeta.Equal(CurTestDeta)
                            MyTestDeta.ObjectScore = Val(MakeStr(txt_score.Text))
                            If MyTestDeta.Modify() Then
                                CurTestDeta.Equal(MyTestDeta)
                            Else
                                MyTestDeta.Initials()
                            End If
                        End If
                    End If
                End If
                tmppath = Microsoft.VisualBasic.Right(Trim(tmppath), 4)
                MyObjt.GetInfo(MakeStr(tmppath))
                CurObjt.Equal(MyObjt)
                MyChp.GetInfoByID(CurObjt.ChapterID)
                txt_chapter.Text = MyChp.ChapterName
                MyObjtType.GetinfoByID(CurObjt.ObjectTypeID)
                CurTestType.GetInfoByName(CurTest.TestID, CurObjt.ObjectTypeID)
                CurTestDeta.GetInfo(CurObjt.ObjectID, CurTest.TestID)
                txt_objtype.Text = MyObjtType.ObjectTypeName
                txt_resultidx.Text = CurObjt.ObjectIdx
                lbl_opname.Text = CurObjt.ObjectOpPePo
                rtb_context.TextRTF = CurObjt.ObjectContext
                rtb_result.TextRTF = CurObjt.ObjectResult
                txt_score.Text = CurTestDeta.ObjectScore
                lbl_objname.Text = CurObjt.ObjectName