frmverify.vb

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

    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
            LVver.Items.Clear()
            MyDep.GetDepInfo(MakeStr(TvDep.SelectedNode.Text))
            CurDep.Equal(MyDep)
            GbDepartment.Text = "院系信息--当前院系:[" & CurDep.DepartmentName & "]"
            CurDep.LoadMarjoysToList(LbMarjoy)
        Else
            LVver.Items.Clear()
            CurDep.Initials()
            MyDep.Initials()
            GbDepartment.Text = "院系信息--当前院系:[]"
        End If
        marid = 0
    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)
        LVver.Items.Clear()
        marid = CurMar.MarjoyID
        If rdbfirst.Checked = True Then
            If CombEnterTime.Text = "" Then
                Exit Sub
            End If
            MyStu.LoadStudentsToListView(LVStuDeta, CurMar.MarjoyID, CombEnterTime.Text)
        End If
        If RDBRetest.Checked = True Then
            If Trim(combreyear.Text) & Trim(combretime.Text) = "" Then
                Exit Sub
            End If
            MyGrade.LoadGradeToListView(LVStuDeta, CurMar.MarjoyID, Trim(combreyear.Text) & Trim(combretime.Text))
        End If

    End Sub
    Private Sub rdbfirst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbfirst.Click
        If rdbfirst.Checked = True Then
            rdbfirst.Checked = False
            RDBRetest.Checked = True
        Else
            rdbfirst.Checked = True
            RDBRetest.Checked = False
        End If
        If CurDep.DepartmentID <= 0 Then
            Exit Sub
        End If
        If CurMar.MarjoyID <= 0 Then
            Exit Sub
        End If
        LVStuDeta.Items.Clear()
        LVver.Items.Clear()
        If RDBRetest.Checked = True Then
            If Trim(combreyear.Text) & Trim(combretime.Text) = "" Then
                Exit Sub
            End If
            MyGrade.LoadGradeToListView(LVStuDeta, CurMar.MarjoyID, Trim(combreyear.Text) & Trim(combretime.Text))
        End If
    End Sub

    Private Sub RDBRetest_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RDBRetest.Click
        If RDBRetest.Checked = True Then
            rdbfirst.Checked = True
            RDBRetest.Checked = False
        Else
            rdbfirst.Checked = False
            RDBRetest.Checked = True
        End If

        If CurDep.DepartmentID <= 0 Then
            Exit Sub
        End If
        If CurMar.MarjoyID <= 0 Then
            Exit Sub
        End If
        LVStuDeta.Items.Clear()
        LVver.Items.Clear()
        If rdbfirst.Checked = True Then
            If CombEnterTime.Text = "" Then
                Exit Sub
            End If
            MyStu.LoadStudentsToListView(LVStuDeta, CurMar.MarjoyID, CombEnterTime.Text)
        End If
    End Sub

    Private Sub rdbfirst_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdbfirst.CheckedChanged
        If rdbfirst.Checked = True Then
            RDBRetest.Checked = False
            gbrever.Enabled = False
        Else
            RDBRetest.Checked = True
            gbrever.Enabled = True
        End If
    End Sub

    Private Sub RDBRetest_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RDBRetest.CheckedChanged
        If RDBRetest.Checked = True Then
            rdbfirst.Checked = False
            gbverfirst.Enabled = False
        Else
            rdbfirst.Checked = True
            gbverfirst.Enabled = True
        End If

    End Sub


    Private Sub CombEnterTime_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombEnterTime.SelectedIndexChanged
        If CurDep.DepartmentID <= 0 Then
            Exit Sub
        End If
        If CurMar.MarjoyID <= 0 Then
            Exit Sub
        End If
        LVStuDeta.Items.Clear()
        LVver.Items.Clear()
        If rdbfirst.Checked = True Then
            If CombEnterTime.Text = "" Then
                Exit Sub
            End If
            MyStu.LoadStudentsToListView(LVStuDeta, CurMar.MarjoyID, CombEnterTime.Text)
        End If
    End Sub

    Private Sub combreyear_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combreyear.SelectedIndexChanged
        If CurDep.DepartmentID <= 0 Then
            Exit Sub
        End If
        If CurMar.MarjoyID <= 0 Then
            Exit Sub
        End If
        LVStuDeta.Items.Clear()
        LVver.Items.Clear()
        If RDBRetest.Checked = True Then
            If Trim(combreyear.Text) & Trim(combretime.Text) = "" Then
                Exit Sub
            End If
            MyGrade.LoadGradeToListView(LVStuDeta, CurMar.MarjoyID, Trim(combreyear.Text) & Trim(combretime.Text))
        End If
    End Sub

    Private Sub combretime_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combretime.SelectedIndexChanged
        If CurDep.DepartmentID <= 0 Then
            Exit Sub
        End If
        If CurMar.MarjoyID <= 0 Then
            Exit Sub
        End If
        LVStuDeta.Items.Clear()
        LVver.Items.Clear()
        If RDBRetest.Checked = True Then
            If Trim(combreyear.Text) & Trim(combretime.Text) = "" Then
                Exit Sub
            End If
            MyGrade.LoadGradeToListView(LVStuDeta, CurMar.MarjoyID, Trim(combreyear.Text) & Trim(combretime.Text))
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim item1 As ListViewItem
        For Each item1 In LVStuDeta.SelectedItems
            LVStuDeta.Items.Remove(item1)
            LVver.Items.Add(item1)
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       
        Dim item1 As ListViewItem
        For Each item1 In LVStuDeta.Items
            LVStuDeta.Items.Remove(item1)
            LVver.Items.Add(item1)
        Next
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim item1 As ListViewItem
        For Each item1 In LVver.SelectedItems
            LVver.Items.Remove(item1)
            LVStuDeta.Items.Add(item1)
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim item1 As ListViewItem
        For Each item1 In LVver.Items
            LVver.Items.Remove(item1)
            LVStuDeta.Items.Add(item1)
        Next
    End Sub

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

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If RDBRetest.Checked = True Then
            If Int(Trim(combreyear.Text) & Trim(combretime.Text)) >= Int(Trim(combtestyear.Text) & Trim(combtesttime.Text)) Then
                MsgBox("请选择正确的考试时间", MsgBoxStyle.Exclamation, "大学语文考试系统V2.0")
                Exit Sub
            End If
        End If
        Dim item1 As ListViewItem
        For Each item1 In LVver.Items
            If Not MyGrade.IsInDB(Int(item1.Text), Trim(combtestyear.Text) & Trim(combtesttime.Text)) Then
                MyGrade.GradeID = MyGrade.GetNewID()
                MyGrade.StudentID = Int(item1.Text)
                MyGrade.TestDate = Trim(combtestyear.Text) & Trim(combtesttime.Text)
                MyGrade.Grade = -1
                If qflag Then
                    MyGrade.MarjoyID = marid
                    qflag = False
                Else
                    MyGrade.MarjoyID = CurMar.MarjoyID
                End If

                MyGrade.InsertDB()
            End If
            LVver.Items.Remove(item1)
        Next
        MsgBox("成功添加", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
    End Sub

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        If Trim(txtQuery.Text) = "" Then
            Exit Sub
        End If
        Dim tmpdbset As DataSet = MyGrade.QueryStuGrades(txtQuery.Text)
        Dim item1 As ListViewItem
        If Not tmpdbset Is Nothing Then
            Dim drow As DataRow
            LVStuDeta.Items.Clear()
            Dim i As Integer
            i = 0
            For Each drow In tmpdbset.Tables(0).Rows
                If Not IsDBNull(drow(1)) Then
                    LVStuDeta.Items.Add(drow(0))
                    LVStuDeta.Items(i).SubItems.Add(drow(1))
                    LVStuDeta.Items(i).SubItems.Add(drow(2))
                End If
                i = i + 1
            Next
            qflag = True
            marid = drow(9)
        Else
            qflag = False
            marid = CurMar.MarjoyID
        End If
    End Sub

    Private Sub frmverify_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        MyDep.Initials()
        CurDep.Initials()
        MyMar.Initials()
        CurMar.Initials()
        MyStu.Initials()
        CurStu.Initials()
        MyGrade.Initials()
        CurGrade.Initials()
        studbset = Nothing
    End Sub

    Private Sub frmverify_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate
        MyDep.Initials()
        CurDep.Initials()
        MyMar.Initials()
        CurMar.Initials()
        MyStu.Initials()
        CurStu.Initials()
        MyGrade.Initials()
        CurGrade.Initials()

        GbMarjoy.Text = "专业信息--当前专业[]"
        GbDepartment.Text = "院系信息--当前院系:[]"
        LVver.Items.Clear()

        LVStuDeta.Items.Clear()
        studbset = Nothing
    End Sub
End Class