teacher.vb

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

Imports Microsoft.VisualBasic

Public Class Teacher : Inherits User
#Region "属性"
    Dim TitleValue, DepartmentValue As String
    Public Property TeacherNo() '教师号
        Get
            Return UserID
        End Get
        Set(ByVal value)
            UserID = value
        End Set
    End Property
    Public Property Title() '职称
        Get
            Return TitleValue
        End Get
        Set(ByVal value)
            TitleValue = value
        End Set
    End Property
    Public Property Department() '部门
        Get
            Return DepartmentValue
        End Get
        Set(ByVal value)
            DepartmentValue = value
        End Set
    End Property
#End Region
#Region "方法"
    '构造函数
    Public Sub New()
        MyBase.New()
    End Sub

    Dim db As New DBObject
    '修改教师职称
    Public Sub ChangeTitle(ByVal NewTitle As String)
        db.cmdText = "update teacher set Title='" + NewTitle + "' where TeacherNo='" + TeacherNo + "'"
        db.SQL()

    End Sub
    '添加新教师
    Public Function AddTeacher() As Integer
        db.cmdText = "insert into teacher (TeacherNo,Department,Title)" _
        + "values('" + TeacherNo + "','" + Department + "','" + Title + "')"
        db.SQL()

        UserID = TeacherNo
        AddTeacher = AddUser()
    End Function
    '删除教师
    Public Sub DeleteTeacher()
        db.cmdText = "delete from teacher where TeacherNo='" + TeacherNo + "'"
        db.SQL()
        UserID = TeacherNo
        DeleteUser()
    End Sub
#End Region
End Class