clsstudent.vb

vb2005电子书籍——vb.net项目开发宝典源码

Imports System.Data
Public Class ClsStudent
    Inherits ClsOperation
    Private _Student As Student

    Sub New(ByVal AStudent As Student)
        _Student = AStudent
    End Sub
    Sub AddStudent()
        Dim SQLString As String
        SQLString = "SELECT * FROM tbStudent WHERE StudentNo='" & _Student.StudentNo & "'"
        Dim MSG As String
        Dim UserTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        If UserTable.Rows.Count >= 1 Then    '判断用户是否存在
            MsgBox("该学生学号已存在，请重试", MsgBoxStyle.Exclamation, "信息框")
        Else
            SQLString = "INSERT INTO tbStudent VALUES('" & _Student.StudentNo & "','"
            SQLString += _Student.Name & "','" & _Student.BirthDate & "','"
            SQLString += _Student.Gender & "','" & _Student.Politic & "','"
            SQLString += _Student.FamilyAddress & "','" & _Student.Graduate & "','"
            SQLString += _Student.FatherName & "','" & _Student.Phone & "','"
            SQLString += _Student.RecruitName & "','" & _Student.ClassName & "','"
            SQLString += _Student.Fee & "','" & _Student.Memo & "')"
            DBOperate(SQLString, MSG)
            MsgBox(MSG, MsgBoxStyle.Exclamation, "信息框")
        End If
    End Sub

    Shared Function LoadStudent(ByVal Field As String, ByVal Value As String, ByVal DBOperator As String) As DataTable
        Dim SQLString As String
        Dim MSG As String
        Dim Column As String = ""
        Column += "StudentNo AS 学号, Name AS 姓名,BirthDate AS 出生年月,"
        Column += "Gender AS 性别, Politic AS 政治面貌,"
        Column += "FamilyAddress AS 家庭住址, GraduateSchool AS 毕业学校,"
        Column += "FatherName AS 父亲姓名, Phone AS 联系电话,"
        Column += "RecruitName AS 招生人员姓名, ClassName AS 班级,"
        Column += "Fee AS 收费金额, Memo AS 备注"

        If Field = "" Then
            SQLString = "SELECT " & Column & " FROM tbStudent"
        ElseIf DBOperator = "" Then
            SQLString = "SELECT " & Column & " FROM tbStudent WHERE " & Field & "= '" & Value & "'"
        ElseIf DBOperator = "LIKE" Then
            SQLString = "SELECT " & Column & " FROM tbStudent WHERE " & Field & " " & DBOperator & "'" & "%" & Value & "%" & "'"
        Else
            SQLString = "SELECT " & Column & " FROM tbStudent WHERE " & Field & " " & DBOperator & Val(Value)
        End If
        Return DBOperate(SQLString, MSG)
    End Function

    Shared Sub DelStudent(ByVal StudentNo As String)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "DELETE FROM tbStudent WHERE StudentNo ='" & StudentNo & "'"
        DBOperate(SQLString, MSG)
    End Sub

End Class

Public Structure Student
    Dim StudentNo As String
    Dim Name As String
    Dim Gender As String
    Dim BirthDate As Date
    Dim Politic As String
    Dim ClassName As String
    Dim RecruitName As String
    Dim Graduate As String
    Dim Fee As Double
    Dim FatherName As String
    Dim Phone As String
    Dim FamilyAddress As String
    Dim Memo As String
End Structure