cgrades.vb

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

Public Class CGrades
    Public GradeID As Integer       '成绩编号
    Public StudentID As Integer     '学生编号
    Public Grade As Single          '成绩
    Public TestDate As String       '考试时间
    Public MarjoyID As Integer     '专业编号

    Public Sub Initials()           '初始化实例
        GradeID = 0
        StudentID = 0
        Grade = 0
        TestDate = ""
        MarjoyID = 0
    End Sub
    Public Sub LoadGradeToListView(ByVal LvGrade As ListView, ByVal tmpmarid As String, ByVal tmpdate As String)
        Dim sqlstr As String
        sqlstr = "select * from VGrades where " & _
                "  VGrades.考试时间='" & MakeStr(tmpdate) & "' and VGrades.专业编号=" & MakeStr(tmpmarid) & " and 成绩<60"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        LvGrade.Items.Clear()
        If Not dbset Is Nothing Then
            Dim i As Integer
            Dim drow As DataRow
            i = 0
            For Each drow In dbset.Tables(0).Rows
                LvGrade.Items.Add(drow(0))
                LvGrade.Items(i).SubItems.Add(drow(1))
                LvGrade.Items(i).SubItems.Add(drow(2))
                i = i + 1
            Next
        End If
    End Sub
    Public Function QueryStuGrades(ByVal tmpquery As String) As DataSet
        Dim sqlstr As String
        sqlstr = "select * from VGrades where 学号 like '%" & MakeStr(tmpquery) & _
                "%' or 姓名 like '%" & MakeStr(tmpquery) & "%'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetStuInfo(ByVal tmpstuid As String, ByVal tmpdate As String) As DataSet
        Dim sqlstr As String
        sqlstr = "select VGrades.* from VGrades where " & _
                " VGrades.考试时间='" & MakeStr(tmpdate) & "' and VGrades.学生编号=" & tmpstuid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetUnPassStu(ByVal tmpmarid As Integer, ByVal tmpdate As String) As DataSet
        Dim sqlstr As String
        sqlstr = "select 姓名,学号,性别,院系名称,专业名称 from VGrades where " & _
                " VGrades.考试时间='" & MakeStr(tmpdate) & "' and VGrades.专业编号=" & tmpmarid.ToString & _
                " and VGrades.成绩<60 order by VGrades.学号"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetStuDetailInfo(ByVal tmpstucardid As String, ByVal tmpdate As String)
        Dim sqlstr As String
        sqlstr = "select 姓名,学号,性别,院系名称,专业名称 from VGrades where " & _
                " VGrades.考试时间='" & MakeStr(tmpdate) & "' and VGrades.学号='" & tmpstucardid & _
                "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetPassStu(ByVal tmpmarid As Integer, ByVal tmpdate As String) As DataSet
        Dim sqlstr As String
        sqlstr = "select 姓名,学号,性别,院系名称,专业名称 from VGrades where " & _
                " VGrades.考试时间='" & MakeStr(tmpdate) & "' and VGrades.专业编号=" & tmpmarid.ToString & _
                " and VGrades.成绩>=60 order by VGrades.学号"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetStuGrade(ByVal tmpmarid As Integer, ByVal tmpdate As String) As DataSet
        Dim sqlstr As String
        sqlstr = "select VGrades.* from VGrades where " & _
                " VGrades.考试时间='" & MakeStr(tmpdate) & "' and VGrades.专业编号=" & tmpmarid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Sub Equal(ByVal tmpgrade As CGrades)    '给实例赋新值
        GradeID = tmpgrade.GradeID
        StudentID = tmpgrade.StudentID
        Grade = tmpgrade.Grade
        TestDate = tmpgrade.TestDate
        MarjoyID = tmpgrade.MarjoyID
    End Sub

    Public Sub GetInfo(ByVal tmpid As Integer)      '通过成绩编号，获取该编号的记录信息
        Dim sqlstr As String
        sqlstr = "select * from Grades where 成绩编号=" & tmpid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            GradeID = dbset.Tables(0).Rows(0).Item("成绩编号")
            StudentID = dbset.Tables(0).Rows(0).Item("学生编号")
            Grade = dbset.Tables(0).Rows(0).Item("成绩")
            TestDate = dbset.Tables(0).Rows(0).Item("考试时间")
            MarjoyID = dbset.Tables(0).Rows(0).Item("专业编号")
        Else
            Initials()
        End If
    End Sub

    Public Function GetInfoByStuID(ByVal tmpstuid As Integer) As DataSet    '通过学号，获取学生参加考试的信息
        Dim sqlstr As String
        sqlstr = "select * from Grades where 学生编号=" & tmpstuid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If

    End Function

    Public Function InsertDB() As Boolean    '添加
        Dim sqlstr As String
        sqlstr = "insert into Grades(成绩编号,学生编号,成绩,考试时间,专业编号)" _
                & "values(" & Str(GradeID) & "," _
                  & StudentID.ToString & "," & Grade.ToString & ",'" & MakeStr(TestDate) & "'," & MarjoyID.ToString & ")"
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Initials()
            Return False
        End If
    End Function

    Public Function IsInDB(ByVal tmpstuid As Integer, ByVal tmptestdate As String) As Boolean '判断是否一个学生在一定时间有成绩
        Dim sqlstr As String
        sqlstr = "select * from Grades where  学生编号=" & tmpstuid.ToString & " and 考试时间='" & MakeStr((tmptestdate)) & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            ' GradeID = dbset.Tables(0).Rows(0).Item("成绩编号")
            ' StudentID = dbset.Tables(0).Rows(0).Item("学生编号")
            ' Grade = dbset.Tables(0).Rows(0).Item("成绩")
            ' TestDate = dbset.Tables(0).Rows(0).Item("考试时间")
            Return True
        Else
            Return False
        End If
    End Function

    Public Function Delete() As Boolean    '删除一个记录
        Dim sqlstr As String
        sqlstr = "delete from Grades where 成绩编号=" & GradeID.ToString
        If UpdateDataBase(sqlstr) Then
            Initials()
            Return True
        Else
            Return False
        End If
    End Function

    Public Function Modify(ByVal tmpscore As Single) As Boolean  '修改分数
        Dim sqlstr As String
        sqlstr = "update Grades set 成绩=" & tmpscore.ToString & " where 学生编号=" & GradeID.ToString
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function DeleteGradeByStu(ByVal tmpStuid As Integer) As Boolean  '依照学生编号删除
        Dim sqlstr As String
        sqlstr = "delete  from Grades where 学生编号=" & tmpStuid.ToString
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function GetNewID() As Integer
        Dim i As Integer
        i = 1
        Dim sqlstr As String
        Dim dset As DataSet
        Dim drow As DataRow
        sqlstr = "select * from Grades order by 成绩编号"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("成绩编号") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
End Class