ccoutgrade.vb

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

Public Class CCoutGrade
    Public TestDate As String
    Public Sub Initials()
        TestDate = Year(Now).ToString & "1"
    End Sub
    Public Function GetTestInfo() As DataSet
        Dim sqlstr As String
        sqlstr = "select 院系编号 from VCountGrades group by 院系编号,考试时间,所属院系编号  having 考试时间='" & _
                  MakeStr(TestDate) & "' and 所属院系编号=0"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetTestInfobychild() As DataSet
        Dim sqlstr As String
        sqlstr = "select 所属院系编号 as 院系编号  from VCountGrades group by 考试时间,所属院系编号  having 考试时间='" & _
                  MakeStr(TestDate) & "' and 所属院系编号>0"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function HaveChilds(ByVal tmpdepid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from VCountGrades where 所属院系编号=" & tmpdepid.ToString & " and 考试时间='" & _
                  MakeStr(TestDate) & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub Equal(ByVal tmpstr As String)
        TestDate = tmpstr
    End Sub
    Public Function GetTotalNum(ByVal tmpdepid As Integer) As Integer
        Dim sqlstr As String
        sqlstr = "select  * from VCountGrades where 考试时间='" & _
                  MakeStr(TestDate) & "' and 院系编号=" & tmpdepid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        Dim total As Integer
        total = 0
        If Not dbset Is Nothing Then
            total = dbset.Tables(0).Rows.Count
        Else
            total = 0
        End If
        total = total + GetChildNum(tmpdepid)
        Return total
    End Function
    Protected Function GetChildNum(ByVal tmpdepid As Integer) As Integer
        Dim sqlstr As String
        sqlstr = "select * from VCountGrades   where 考试时间='" & _
                  MakeStr(TestDate) & "' and 所属院系编号=" & tmpdepid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset.Tables(0).Rows.Count
        Else
            Return 0
        End If
    End Function
    Public Function GetPassNum(ByVal tmpdepid As Integer) As Integer
        Dim sqlstr As String
        sqlstr = "select * from VCountGrades where 考试时间='" & _
                  MakeStr(TestDate) & "' and 院系编号=" & tmpdepid.ToString & " and 成绩>=60"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        Dim total As Integer
        total = 0
        If Not dbset Is Nothing Then
            total = dbset.Tables(0).Rows.Count
        Else
            total = 0
        End If
        total = total + GetChildPassNum(tmpdepid)
        Return total
    End Function
    Protected Function GetChildPassNum(ByVal tmpdepid As Integer) As Integer
        Dim sqlstr As String
        sqlstr = "select * from VCountGrades   where 考试时间='" & _
                  MakeStr(TestDate) & "' and 所属院系编号=" & tmpdepid.ToString & " and 成绩>=60"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset.Tables(0).Rows.Count
        Else
            Return 0
        End If
    End Function
    Public Function GetPerfectedNum(ByVal tmpdepid As Integer, ByVal tmpperfected As Single) As Integer
        Dim sqlstr As String
        sqlstr = "select * from VCountGrades where 考试时间='" & _
                  MakeStr(TestDate) & "' and 院系编号=" & tmpdepid.ToString & " and 成绩>=" & tmpperfected.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        Dim total As Integer
        total = 0
        If Not dbset Is Nothing Then
            total = dbset.Tables(0).Rows.Count
        Else
            total = 0
        End If
        total = total + GetChildPerfectedNum(tmpdepid, tmpperfected)
        Return total
    End Function
    Protected Function GetChildPerfectedNum(ByVal tmpdepid As Integer, ByVal tmpperfected As Single) As Integer
        Dim sqlstr As String
        sqlstr = "select * from VCountGrades   where  考试时间='" & _
                  MakeStr(TestDate) & "' and 所属院系编号=" & tmpdepid.ToString & " and 成绩>=" & tmpperfected.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset.Tables(0).Rows.Count
        Else
            Return 0
        End If
    End Function
End Class