course.vb

学生信息管理系统

Imports CommonDB

Public Class Course

    Private m_iId As Integer
    Private m_sName As String
    Private m_fCreditHour As Single
    Private m_iProfessionId 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,credit_hour,profession_id from course where id =" & iId).Tables(0).Rows(0)
        Me.m_iId = drTemp(0)
        Me.m_sName = drTemp(1)
        Me.m_fCreditHour = drTemp(2)
        Me.m_iProfessionId = drTemp(3)
    End Sub

    Public Property Id() As Integer
        Get
            Id = Me.m_iId
        End Get
        Set(ByVal Value As Integer)
            Me.m_iId = Value
        End Set
    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 CreditHour() As Single
        Get
            CreditHour = Me.m_fCreditHour
        End Get
        Set(ByVal Value As Single)
            Me.m_fCreditHour = Value
        End Set
    End Property

    '开课专业
    Public ReadOnly Property Profession() As Profession
        Get
            Profession = New Profession(Me.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 Add() As Integer
        Add = DbBase.DataInterface.ExecuteSql("insert into course (name,credit_hour,profession_id) values ('" & Me.m_sName & "'," & Me.m_fCreditHour & "," & Me.m_iProfessionId & ")")
    End Function

    Public Function Edit() As Integer
        Edit = DbBase.DataInterface.ExecuteSql("update course set name = '" & Me.m_sName & "', credit_hour = " & Me.m_fCreditHour & ", profession_id =" & Me.m_iProfessionId & " where id =" & Me.m_iId)
    End Function

    Public Function Delete() As Integer
        Delete = DbBase.DataInterface.ExecuteSql("delete from course where id =" & Me.m_iId)
    End Function
End Class