Imports CommonDB
Public Class Profession    Inherits DbObject    Private m_sName As String    Private m_sIntro As String    Private m_iId As Integer    Private m_iCollegeId As Integer    Public Sub New()        Me.m_iId = -1    End Sub    Public Sub New(ByVal iId As Integer)        Dim drTemp As DataRow = DbBase.DataInterface.Execute4DS("select id,name,college_id,intro from profession where id =" & iId).Tables(0).Rows(0)        Me.m_iId = drTemp(0)        Me.m_sName = drTemp(1)        Me.m_iCollegeId = drTemp(2)        Me.m_sIntro = CDBstr(drTemp(3))    End Sub    Public ReadOnly Property Id() As Integer
        Get
            Id = m_iId
        End Get
    End Property    Public Property Name() As String
        Get
            Name = Me.m_sName
        End Get
        Set(ByVal Value As String)
            Me.m_sName = Value
        End Set
    End Property    Public Property Intro() As String
        Get
            Intro = Me.m_sIntro
        End Get
        Set(ByVal Value As String)
            Me.m_sIntro = Value
        End Set
    End Property    '專業所屬的學院    Public ReadOnly Property College() As College        Get            College = New College(Me.m_iCollegeId)        End Get    End Property    Public Property CollegeId() As Integer        Get            CollegeId = Me.m_iCollegeId
        End Get        Set(ByVal Value As Integer)
            Me.m_iCollegeId = Value
        End Set
    End Property    '更新專業信息：增加專業、修改專業    Public Function Update() As Integer        If DbBase.DataInterface.Execute4Value("select count(id) from profession where id = " & Me.m_iId) = 0 Then            DbBase.DataInterface.ExecuteSql("insert into profession (name,college_id,intro) values ('" & Me.m_sName & "'," & Me.m_iCollegeId & ",'" & Me.m_sIntro & "')")
        Else
            DbBase.DataInterface.ExecuteSql("update profession set name = '" & Me.m_sName & "', college_id = " & Me.m_iCollegeId & "', intro = '" & Me.m_sIntro & "'")
        End If    End Function    '刪除專業    Public Function Delete() As Integer        Delete = DbBase.DataInterface.ExecuteSql("delete from profession where id = " & Me.m_iId)    End FunctionEnd Class