ctempstudents.vb

来自「代码：是由本人自主开发完成的」· VB 代码 · 共 92 行

Public Class CTempStudents
    Public StudentCardID As String      '学号
    Public StudentName As String        '姓名
    Public Sexy As String               '性别
    Public MarjoyName As String         '院系
    Public DepartmentName As String     '专业

    Public Sub Initials()
        StudentName = ""
        StudentCardID = ""
        Sexy = "男"
        MarjoyName = ""
        DepartmentName = ""
    End Sub
    Public Function DeleteAllDB() As Boolean
        Dim sqlstr As String
        sqlstr = "DELETE FROM TempStudents "
        If UpdateDataBase(sqlstr) Then
            Initials()
            Return True
        Else
            Return False
        End If
    End Function
    Public Function DeleteDB() As Boolean
        Dim sqlstr As String
        sqlstr = "DELETE FROM TempStudents WHERE 学号='" & MakeStr(StudentCardID) & "'"
        If UpdateDataBase(sqlstr) Then
            Initials()
            Return True
        Else
            Return False
        End If
    End Function
    Public Function GetMarjoys(ByVal tmpdepname As String) As DataSet
        Dim sqlstr As String
        sqlstr = "select 专业 from VStuDepAndMar where 院系='" & MakeStr(tmpdepname) & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetDepartments() As DataSet
        Dim sqlstr As String
        sqlstr = "select * FROM VTempDepartments "
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetStudents(ByVal tmpdepname As String, ByVal tmpmarname As String) As DataSet
        Dim sqlstr As String
        sqlstr = "select 学号,姓名,性别 FROM TempStudents where 院系='" & MakeStr(tmpdepname) & _
                "' and 专业='" & MakeStr(tmpmarname) & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetFailStudents() As DataSet
        Dim sqlstr As String
        sqlstr = "select * FROM TempStudents "
        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 TempStudents(学号,姓名,性别,院系,专业)" & _
                 " VALUES('" & MakeStr(StudentCardID) & "','" & MakeStr(StudentName) & "','" & _
                  MakeStr(Sexy) & "','" & MakeStr(DepartmentName) & "','" & MakeStr(MarjoyName) & "')"
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
End Class