Imports System.Data
Imports CommonDBPublic 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 FunctionEnd Class