frmgrademan.vb

代码：是由本人自主开发完成的

        Me.GroupBox3.TabStop = False
        '
        'Label10
        '
        Me.Label10.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Label10.ForeColor = System.Drawing.Color.LightSeaGreen
        Me.Label10.Location = New System.Drawing.Point(284, 14)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(268, 42)
        Me.Label10.TabIndex = 10
        Me.Label10.Text = "  说明：在成绩字段中-1代表该学生报名却没有参加考试。"
        Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'RDBDetails
        '
        Me.RDBDetails.Location = New System.Drawing.Point(136, 40)
        Me.RDBDetails.Name = "RDBDetails"
        Me.RDBDetails.Size = New System.Drawing.Size(144, 18)
        Me.RDBDetails.TabIndex = 9
        Me.RDBDetails.Text = "   查看学生考试明细"
        '
        'RDBModify
        '
        Me.RDBModify.Location = New System.Drawing.Point(16, 40)
        Me.RDBModify.Name = "RDBModify"
        Me.RDBModify.Size = New System.Drawing.Size(112, 18)
        Me.RDBModify.TabIndex = 8
        Me.RDBModify.Text = "  成绩修改模式"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(248, 19)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(32, 16)
        Me.Label8.TabIndex = 7
        Me.Label8.Text = "次"
        '
        'CombTesttime
        '
        Me.CombTesttime.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombTesttime.Items.AddRange(New Object() {"1", "2"})
        Me.CombTesttime.Location = New System.Drawing.Point(192, 16)
        Me.CombTesttime.Name = "CombTesttime"
        Me.CombTesttime.Size = New System.Drawing.Size(48, 20)
        Me.CombTesttime.TabIndex = 6
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(160, 19)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(32, 16)
        Me.Label7.TabIndex = 5
        Me.Label7.Text = "学年"
        '
        'CombTestYear
        '
        Me.CombTestYear.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombTestYear.Location = New System.Drawing.Point(72, 16)
        Me.CombTestYear.Name = "CombTestYear"
        Me.CombTestYear.Size = New System.Drawing.Size(80, 20)
        Me.CombTestYear.TabIndex = 4
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 19)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(72, 16)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "考试时期："
        '
        'frmGradeMan
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(826, 623)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.GroupBox1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.Name = "frmGradeMan"
        Me.Text = "成绩管理"
        Me.GroupBox1.ResumeLayout(False)
        Me.GbDepartment.ResumeLayout(False)
        Me.GbMarjoy.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox7.ResumeLayout(False)
        CType(Me.DGStuGradeDetials, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox5.ResumeLayout(False)
        CType(Me.DGStudent, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox8.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private sdastugrades As OleDbDataAdapter
    Protected stugdbset As DataSet
    Private dsstugrades As DataSet
    Private dsstugraddeta As DataSet
    Private dtstugrades As DataTable
    Private dtstugraddeta As DataTable
    Private dvstugrades As DataView
    Private dvstugraddeta As DataView
    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        Me.Close()
    End Sub
    Private Sub clearfrom()
        txtStuName.Text = ""
        txtStuID.Text = ""
        CombSexy.SelectedIndex = 0
        txtDepartment.Text = ""
        txtMarjoy.Text = ""
        txtGrade.Text = ""
    End Sub
    Private Sub frmGradeMan_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyDep.Initials()
        CurDep.Initials()
        MyMar.Initials()
        CurMar.Initials()
        MyStu.Initials()
        CurStu.Initials()
        MyGrade.Initials()
        CurGrade.Initials()
        MyDep.LoadDepNodesToTV(TvDep)
        clearfrom()
        RDBDetails.Checked = True
        stugdbset = Nothing
        Dim i As Integer
        Dim yy As Integer

        For i = 2000 To 2050
            CombTestYear.Items.Add(i.ToString)
        Next
        yy = Year(Now())
        CombTesttime.SelectedIndex = 0
        CombTestYear.Text = yy.ToString
    End Sub
    Sub BindGradesGrid()

        dvstugrades.RowFilter = "专业编号 = " & CurMar.MarjoyID & " and 考试时间 = " & Trim(CombTestYear.Text) & Trim(CombTesttime.Text)

        dvstugrades.AllowNew = False
        dvstugrades.AllowDelete = True

        With DGStudent
            .CaptionText = "编辑成绩"
            .ReadOnly = False
            .DataSource = dvstugrades
        End With

    End Sub
    Sub GetDataSet()
        ' Call the CreateDataSet to fill our local DataSet with data
        dsstugrades = CreateDataSet()
        ' Set variables for the DataTables for use later.
        dtstugrades = dsstugrades.Tables("Grades")
        ' Set up DataViews for the DataGrids 
        dvstugrades = dtstugrades.DefaultView
    End Sub

    Private Sub TvDep_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TvDep.MouseDown
        TvDep.SelectedNode = TvDep.GetNodeAt(e.X, e.Y)
        GbMarjoy.Text = "专业信息--当前专业[]"
        If Not TvDep.SelectedNode Is Nothing Then
            If CurDep.DepartmentName = TvDep.SelectedNode.Text Then
                Exit Sub
            End If
            MyDep.GetDepInfo(MakeStr(TvDep.SelectedNode.Text))
            CurDep.Equal(MyDep)
            GbDepartment.Text = "院系信息--当前院系:[" & CurDep.DepartmentName & "]"
            CurDep.LoadMarjoysToList(LbMarjoy)
        Else
            CurDep.Initials()
            MyDep.Initials()
            GbDepartment.Text = "院系信息--当前院系:[]"
        End If
        With DGStudent
            .CaptionText = "学生成绩"
            .DataSource = Nothing
        End With
        clearfrom()
        DGStuGradeDetials.CaptionText = "学生成绩明细"
        dsstugraddeta = Nothing
        DGStuGradeDetials.DataSource = Nothing
    End Sub

    Private Sub LbMarjoy_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LbMarjoy.SelectedIndexChanged
        If CurDep.DepartmentID <= 0 Then
            Exit Sub
        End If
        MyMar.MarjoyName = LbMarjoy.SelectedItem()
        GbMarjoy.Text = "专业信息--当前专业[" & Trim(MyMar.MarjoyName) & "]"
        MyMar.GetMarInfo(MyMar.MarjoyName, CurDep.DepartmentID)
        CurMar.Equal(MyMar)
        MyMar.GetMarInfo(CurMar.MarjoyName, CurDep.DepartmentID)

        If RDBModify.Checked = True Then
            GetDataSet()
            BindGradesGrid()
        Else
            stugdbset = Nothing
            stugdbset = MyGrade.GetStuGrade(CurMar.MarjoyID, Trim(CombTestYear.Text) & Trim(CombTesttime.Text))
            If Not stugdbset Is Nothing Then
                DGStudent.DataSource = stugdbset.Tables(0).DefaultView
            Else
                DGStudent.DataSource = Nothing
            End If
        End If
        clearfrom()
        DGStudent.CaptionText = "学生信息"
        DGStuGradeDetials.CaptionText = "学生成绩明细"
        dsstugraddeta = Nothing
        DGStuGradeDetials.DataSource = Nothing
    End Sub

    Private Sub RDBModify_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDBModify.CheckedChanged
        If RDBModify.Checked = True Then
            GetDataSet()
            BindGradesGrid()
            DGStuGradeDetials.CaptionText = "学生成绩明细"
            dsstugraddeta = Nothing
            DGStuGradeDetials.DataSource = Nothing
        End If
        clearfrom()
        DGStudent.CaptionText = "学生信息"
    End Sub

    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        If RDBModify.Checked = True Then
            Dim i As Integer
            If DGStudent.CurrentRowIndex >= 0 Then
                i = DGStudent.CurrentRowIndex
            Else
                i = 0
            End If
            UpdateDataSet(dsstugrades.GetChanges())
            GetDataSet()
            BindGradesGrid()
            DGStudent.CurrentRowIndex = i
        End If
    End Sub

    Private Sub CombTestYear_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombTestYear.SelectedIndexChanged
        If RDBModify.Checked = True Then
            GetDataSet()
            BindGradesGrid()
        Else
            stugdbset = Nothing
            stugdbset = MyGrade.GetStuGrade(CurMar.MarjoyID, Trim(CombTestYear.Text) & Trim(CombTesttime.Text))
            If Not stugdbset Is Nothing Then
                DGStudent.DataSource = stugdbset.Tables(0).DefaultView
            Else
                DGStudent.DataSource = Nothing
            End If
        End If
        clearfrom()
        DGStudent.CaptionText = "学生信息"
        DGStuGradeDetials.CaptionText = "学生成绩明细"
        dsstugraddeta = Nothing
        DGStuGradeDetials.DataSource = Nothing
    End Sub

    Private Sub CombTesttime_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombTesttime.SelectedIndexChanged
        If RDBModify.Checked = True Then
            GetDataSet()
            BindGradesGrid()
        Else