cstudents.vb

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

Public Class CStudents
    Public StudentID As Integer       '学生编号
    Public StudentName As String      '姓名
    Public StudentCardID As String    '学号
    Public Sexy As String             '性别
    Public MarjoyID As Integer        '专业编号
    Public Sub Initials()
        StudentID = 0
        StudentName = ""
        StudentCardID = ""
        Sexy = "男"
        MarjoyID = 0
    End Sub
    Public Sub Equal(ByVal tmpstu As CStudents)
        StudentID = tmpstu.StudentID
        StudentName = tmpstu.StudentName
        StudentCardID = tmpstu.StudentCardID
        Sexy = tmpstu.Sexy
        MarjoyID = tmpstu.MarjoyID
    End Sub

    Public Function IsInDB(ByVal tmpstucardid As String) As Boolean
        Dim sqlstr As String
        sqlstr = "SELECT * FROM Students WHERE 学号='" & tmpstucardid & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not (dbset Is Nothing) Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Overloads Function GetStudentsByMar(ByVal tmpmarid As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select * from VStudents where 专业编号=" & tmpmarid.ToString & " order by 学号"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Overloads Function GetStudentsByMar(ByVal tmpmarid As Integer, ByVal tmpendate As String) As DataSet
        Dim sqlstr As String
        sqlstr = "select * from VStudents where 专业编号=" & tmpmarid.ToString & _
                 " and 学号 like '" & MakeStr(tmpendate) & "%' order by 学号"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Sub LoadStudentsToListView(ByVal LvStu As ListView, ByVal tmpmarid As Integer, ByVal tmpendate As String)
        Dim sqlstr As String
        sqlstr = "select * from VStudents where 专业编号=" & tmpmarid.ToString & _
                 " and 学号 like '" & MakeStr(tmpendate) & "%' order by 学号"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        LvStu.Items.Clear()
        If Not dbset Is Nothing Then
            Dim drow As DataRow
            Dim i As Integer
            i = 0
            For Each drow In dbset.Tables(0).Rows
                LvStu.Items.Add(drow.Item(0))
                LvStu.Items(i).SubItems.Add(drow.Item(1))
                LvStu.Items(i).SubItems.Add(drow.Item(2))
                i = i + 1
            Next
        End If
    End Sub
    Public Function GetStuInfo(ByVal tmpstuid As String)
        Dim sqlstr As String
        sqlstr = "select * from VStudents where 学号='" & MakeStr(tmpstuid) & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            StudentID = dbset.Tables(0).Rows(0).Item("学生编号")
            StudentName = dbset.Tables(0).Rows(0).Item("姓名")
            StudentCardID = dbset.Tables(0).Rows(0).Item("学号")
            Sexy = dbset.Tables(0).Rows(0).Item("性别")
            MarjoyID = dbset.Tables(0).Rows(0).Item("专业编号")
        Else
            Initials()
        End If
    End Function
    Public Function DeleteDB() As Boolean
        Dim sqlstr As String
        sqlstr = "DELETE FROM Students WHERE 学生编号=" & StudentID.ToString
        If UpdateDataBase(sqlstr) Then
            Initials()
            Return True
        Else
            Return False
        End If
    End Function
    Public Function QueryStu(ByVal tmpquery As String) As DataSet
        Dim sqlstr As String
        sqlstr = "select * from VStudents 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 ModifyDB() As Boolean
        Dim sqlstr As String
        sqlstr = "UPDATE Students SET 姓名='" & MakeStr(StudentName) & "',学号='" & _
                 StudentCardID & "',性别='" & MakeStr(Sexy) & "',专业编号=" & _
                  MarjoyID.ToString & " WHERE 学生编号=" & StudentID.ToString
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Initials()
            Return False
        End If
    End Function
    Public Function InsertDB() As Boolean
        Dim sqlstr As String
        sqlstr = "INSERT INTO Students(学生编号,姓名,学号,性别,专业编号)" & _
                 " VALUES(" & StudentID.ToString & ",'" & MakeStr(StudentName) & "','" & _
                  MakeStr(StudentCardID) & "','" & MakeStr(Sexy) & "'," & MarjoyID.ToString & ")"
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Initials()
            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  Students 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