profession.vb

学生信息管理系统

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 Function
End Class