frmobject.vb

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

        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(8, 96)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(48, 16)
        Me.Label6.TabIndex = 8
        Me.Label6.Text = "录入者"
        '
        'Comb_resultidx
        '
        Me.Comb_resultidx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.Comb_resultidx.ItemHeight = 12
        Me.Comb_resultidx.Location = New System.Drawing.Point(240, 61)
        Me.Comb_resultidx.Name = "Comb_resultidx"
        Me.Comb_resultidx.Size = New System.Drawing.Size(48, 20)
        Me.Comb_resultidx.TabIndex = 7
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(156, 64)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(76, 16)
        Me.Label5.TabIndex = 6
        Me.Label5.Text = "难 度 系 数"
        '
        'Comb_objtype
        '
        Me.Comb_objtype.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.Comb_objtype.ItemHeight = 12
        Me.Comb_objtype.Location = New System.Drawing.Point(56, 61)
        Me.Comb_objtype.Name = "Comb_objtype"
        Me.Comb_objtype.Size = New System.Drawing.Size(88, 20)
        Me.Comb_objtype.TabIndex = 5
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 64)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(48, 16)
        Me.Label4.TabIndex = 4
        Me.Label4.Text = "题 型"
        '
        'Comb_chapter
        '
        Me.Comb_chapter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.Comb_chapter.ItemHeight = 12
        Me.Comb_chapter.Location = New System.Drawing.Point(200, 28)
        Me.Comb_chapter.Name = "Comb_chapter"
        Me.Comb_chapter.Size = New System.Drawing.Size(152, 20)
        Me.Comb_chapter.TabIndex = 3
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(152, 32)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(40, 16)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "章 节"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 32)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(40, 16)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "课 程"
        '
        'Comb_subj
        '
        Me.Comb_subj.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.Comb_subj.Enabled = False
        Me.Comb_subj.ItemHeight = 12
        Me.Comb_subj.Location = New System.Drawing.Point(55, 28)
        Me.Comb_subj.Name = "Comb_subj"
        Me.Comb_subj.Size = New System.Drawing.Size(88, 20)
        Me.Comb_subj.TabIndex = 0
        '
        'frmobject
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(842, 639)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.ToolBar1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "frmobject"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "试题编辑"
        Me.Panel1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.gb_objnum.ResumeLayout(False)
        CType(Me.dg_object, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel2.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        CType(Me.rtb_result, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox7.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        CType(Me.rtb_context, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Protected dbsetobjt As DataSet
    Protected modify As Integer = 2
    Private Sub tv_chapter_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tv_chapter.MouseDown
        tv_chapter.SelectedNode = tv_chapter.GetNodeAt(e.X, e.Y)
        If Not tv_chapter.SelectedNode Is Nothing Then
            If CurChp.ChapterName = tv_chapter.SelectedNode.Text Then
                Exit Sub
            End If
            MyChp.GetInfo(MakeStr(tv_chapter.SelectedNode.Text), OpSubjt.SubjectID)
            CurChp.Equal(MyChp)
            Clb_knowleg.Items.Clear()
            comb_qobjtype.SelectedIndex = 0
            Comb_objtype.SelectedIndex = 0
            Comb_chapter.Text = CurChp.ChapterName
            MyObjtType.GetInfo(MakeStr(Comb_objtype.Text))
            CurObjtType.Equal(MyObjtType)
            MyKnow.LoadItemsByChp(Clb_knowleg, CurChp.ChapterID)
            dbsetobjt = MyObjt.GetObjDetails(CurChp.ChapterID, CurObjtType.ObjectTypeID)
            If Not dbsetobjt Is Nothing Then
                dg_object.DataSource = dbsetobjt.Tables(0).DefaultView
                gb_objnum.Text = "总共有 " & Str(dbsetobjt.Tables(0).Rows.Count) & " 题"
                MyObjt.GetInfo(dbsetobjt.Tables(0).Rows(0).Item("试题名称"))
                CurObjt.Equal(MyObjt)
                lbl_objname.Text = CurObjt.ObjectName
                Comb_resultidx.Text = CurObjt.ObjectIdx.ToString
                rtb_context.TextRTF = CurObjt.ObjectContext
                rtb_result.TextRTF = CurObjt.ObjectResult
            Else
                dg_object.DataSource = Nothing
                gb_objnum.Text = "总共有0题"
                rtb_context.TextRTF = ""
                rtb_result.TextRTF = ""
                lbl_objname.Text = ""
            End If
        End If
        lbl_objname.Text = ""
    End Sub

    Private Sub frmobject_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        If OpSubjt.SubjectName = Trim(Comb_subj.Text) Then
            Exit Sub
        Else
            If OpSubjt.SubjectID <= 0 Then
                MsgBox("请您选择当前操作科目", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
                CheckSelSub = False
                Exit Sub
            Else
                tv_chapter.Nodes.Clear()
                MyChp.LoadNodesBySubject(tv_chapter, OpSubjt.SubjectID)
                tv_chapter.Refresh()
                Dim objtypedbset As DataSet
                objtypedbset = MyObjtType.LoadObjTypes()
                Dim drow As DataRow
                comb_qobjtype.Items.Clear()
                Comb_objtype.Items.Clear()
                rtb_context.TextRTF = ""
                rtb_result.TextRTF = ""
                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
                Comb_subj.Items.Clear()
                Comb_subj.Items.Add(OpSubjt.SubjectName)
                Comb_subj.SelectedIndex = 0

                Comb_chapter.Items.Clear()
                Dim tmpchpdbset As DataSet
                tmpchpdbset = MyChp.GetChapterBySub(OpSubjt.SubjectID)
                If Not tmpchpdbset Is Nothing Then
                    For Each drow In tmpchpdbset.Tables(0).Rows
                        Comb_chapter.Items.Add(drow.Item(1))
                    Next
                    Comb_chapter.SelectedIndex = 0
                End If


                lbl_opname.Text = CurUser.UserName

                Comb_resultidx.Items.Clear()
                Dim i As Integer = 0
                For i = 1 To 5
                    Comb_resultidx.Items.Add(Trim(Str(i)))
                Next
                Comb_resultidx.SelectedIndex = 2
            End If
        End If

    End Sub

    Private Sub frmobject_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CurChp.Initials()
        MyChp.Initials()
        CurObjt.Initials()
        MyObjt.Initials()
        MyObjtType.Initials()
        CurObjtType.Initials()
        modify = 2
    End Sub
    Private Sub dg_object_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dg_object.CurrentCellChanged
        If dg_object.Item(dg_object.CurrentRowIndex, 0) Is Nothing Then
            Exit Sub
        End If
        Comb_chapter.SelectedText = dg_object.Item(dg_object.CurrentRowIndex, 1)
        comb_qobjtype.SelectedText = dg_object.Item(dg_object.CurrentRowIndex, 2)
        Comb_objtype.Text = comb_qobjtype.Text
        Comb_resultidx.Text = dg_object.Item(dg_object.CurrentRowIndex, 5)
        lbl_opname.Text = dg_object.Item(dg_object.CurrentRowIndex, 3)
        MyObjt.GetInfo(dg_object.Item(dg_object.CurrentRowIndex, 0))
        CurObjt.Equal(MyObjt)
        MyChp.GetInfo(MakeStr(Comb_chapter.Text), OpSubjt.SubjectID)
        CurChp.Equal(MyChp)
        MyObjtType.GetInfo(MakeStr(Comb_objtype.Text))
        CurObjtType.Equal(MyObjtType)
        rtb_context.TextRTF = CurObjt.ObjectContext
        rtb_result.TextRTF = CurObjt.ObjectResult
        lbl_objname.Text = CurObjt.ObjectName
        Comb_resultidx.Text = CurObjt.ObjectIdx.ToString
        If Clb_knowleg.Items.Count < 0 Then
            Exit Sub
        Else
            Dim tempdbset As DataSet
            Dim tmpdrow As DataRow
            Dim ii As Integer
            For ii = 0 To Clb_knowleg.Items.Count - 1
                Clb_knowleg.SetItemCheckState(ii, CheckState.Unchecked)
            Next
            tempdbset = MyobjKD.GetByObj(CurObjt.ObjectID)
            If Not tempdbset Is Nothing Then
                For Each tmpdrow In tempdbset.Tables(0).Rows
                    Dim i As Integer
                    For i = 0 To Clb_knowleg.Items.Count - 1
                        If Clb_knowleg.Items(i).ToString = tmpdrow("KnowlegName").ToString Then
                            Clb_knowleg.SetItemCheckState(i, CheckState.Checked)
                        End If
                    Next
                Next
            End If
        End If
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        If e.Button Is tbb_new Then
            ' MyObjt.ObjectName = MyObjt.GetObjNewName()
            modify = 1
            rtb_result.TextRTF = ""
            rtb_context.TextRTF = ""
            Exit Sub
        End If
        If e.Button Is tbb_save Then
            If modify = 1 Then
                Try
                    If Comb_objtype.Text = "题型信息" Then
                        MsgBox("请选择正确的试题类型", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
                        Exit Sub
                    End If
                    If Trim(rtb_context.TextRTF.ToString) = "" Then
                        MsgBox("试题内容不能为空", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
                        rtb_context.Focus()
                        Exit Sub
                    End If
                    If Trim(rtb_context.TextRTF.ToString) = "" Then
                        If MsgBox("您确定试题答案可以为空", MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0") = MsgBoxResult.No Then
                            rtb_context.Focus()
                            Exit Sub
                        End If
                    End If
                    If CurChp.ChapterID <= 0 Then
                        MsgBox("请选择正确的章节", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
                        Comb_chapter.Focus()
                        Exit Sub
                    End If
                    If CurObjtType.ObjectTypeID <= 0 Then
                        MsgBox("请选择正确的章节", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
                        Comb_objtype.Focus()
                        Exit Sub
                    End If

                    MyObjt.ObjectID = MyObjt.GetNewID
                    MyObjt.ObjectName = Trim(MyObjt.GetObjNewName())
                    MyObjt.ObjectOpPePo = CurUser.UserName
                    MyObjt.ObjectIdx = Comb_resultidx.Text
                    MyObjt.ObjectOpTime = Now()