classes.vb

毕业设计+图书管理系统+源码 需要的人下载。

Imports Microsoft.VisualBasic
Public Class Classes
#Region "属性"
    Dim ClassNoValue, ClassTutorValue As String
    Public Property ClassNo() '班级编号
        Get
            Return ClassNoValue
        End Get
        Set(ByVal value)
            ClassNoValue = value
        End Set
    End Property
    Public Property ClassTutor() '班主任姓名
        Get
            Return ClassTutorValue
        End Get
        Set(ByVal value)
            ClassTutorValue = value
        End Set
    End Property
#End Region
#Region "方法"
    Dim db As New DBObject
    '添加班级
    Public Sub AddClass()
        db.cmdText = "insert into class (ClassNo,ClassTutor) values('" + ClassNo + "','" + ClassTutor + "')"
        db.SQL()
    End Sub
    '删除班级
    Public Sub DeleteClass()
        db.cmdText = "delete from class where ClassNO='" + ClassNo + "'"
        db.SQL()
    End Sub
    '班主任变更
    Public Sub ChangeTutor(ByVal NewClassTutor As String)
        db.cmdText = "update class set ClassTutor='" + NewClassTutor + "' where ClassNo='" + ClassNo + "'"
        db.SQL()
    End Sub
#End Region

End Class