teacher.vb

学生信息管理系统

Imports System.Data
Imports CommonDB

Public Class Teacher

    Private m_iId As Integer
    Public m_sName As String
    Private m_iProfessionId As Integer

    Public Sub New()

    End Sub

    Public Sub New(ByVal iId As Integer)
        Dim drTmp As DataRow = DbBase.DataInterface.Execute4DS("select name,profession_id from teacher where id = " & iId).Tables(0).Rows(0)
        Me.m_iId = iId
        Me.m_sName = drTmp(0)
        Me.m_iProfessionId = drTmp(1)
    End Sub

    '只读属性
    Public ReadOnly Property Id() As Integer
        Get
            Id = m_iId
        End Get
    End Property

    '教室专业
    Public ReadOnly Property Profession() As Profession
        Get
            Profession = New Profession(m_iProfessionId)
        End Get
    End Property
    Public Property ProfessionId() As Integer
        Get
            ProfessionId = Me.m_iProfessionId
        End Get
        Set(ByVal Value As Integer)
            Me.m_iProfessionId = Value
        End Set
    End Property

    '增加教师
    Public Function AddTeacher() As Integer
        AddTeacher = DbBase.DataInterface.ExecuteSql("insert into teacher (name,profession_id) values ('" & Me.m_sName & "'," & Me.m_iProfessionId & ")")
    End Function

    '修改教师
    Public Function EditTeacher() As Integer
        EditTeacher = DbBase.DataInterface.ExecuteSql("update teacher set name = '" & Me.m_sName & "' where id = " & Me.m_iId)
    End Function

    '删除教师
    Public Function DeleteTeacher() As Integer
        DeleteTeacher = DbBase.DataInterface.ExecuteSql("delete from teacher where id = " & Me.m_iId)
    End Function
End Class