dbclass.vb

来自「通用学籍管理软件 vb开发access数据库的实例」· VB 代码 · 共 34 行

Public Class DBClass
    Inherits DBOperation
    Shared Sub DelClass(ByVal ClassName As String)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "DELETE FROM tbClass WHERE ClassName ='" & ClassName & "'"
        DBOperate(SQLString, MSG)
    End Sub



    Shared Function AddClass(ByVal ClassName As String) As Boolean
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT * FROM tbClass WHERE ClassName='" & ClassName & "'"
        Dim UserTable As DataTable = DBOperation.DBOperate(SQLString, MSG)
        If UserTable.Rows.Count >= 1 Then    '判断用户是否存在
            MsgBox("输入的班级名称已存在，请重试", MsgBoxStyle.Exclamation, "信息框")
            Return False
        Else
            SQLString = "INSERT INTO tbClass VALUES('" & ClassName & "','" & Date.Now & "')"
            DBOperate(SQLString, MSG)
            Return True
        End If
    End Function

    Shared Function LoadClass() As DataTable
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT ClassName AS 班级名称, CreateDate AS 创建日期  FROM tbClass"
        Return DBOperate(SQLString, MSG)
    End Function
End Class