curriculum.vb

学生信息管理系统

Imports CommonDB
Imports System.Text

'课表类
Public Class Curriculum

    Private m_iId As Integer
    Public m_sClassRoom As String
    Public m_iStudentAmount As Integer
    Public m_fCoefficient As Single
    Public m_sDay As String
    Public m_iCourseId As Integer
    Public m_iTypeId As Integer
    Public m_iTeacherId As Integer
    Public m_iTimeId As Integer

    Public Sub New()
        Me.m_iId = -1
    End Sub

    Public Sub New(ByVal iId As Integer)
        Dim drTmp As DataRow = DbBase.DataInterface.Execute4DS("select id,classroom,course_id,type_id,teacher_id,stu_amount,coefficient,time_id,class_day from curriculum where id = " & iId).Tables(0).Rows(0)
        Me.m_iId = drTmp(0)
        Me.m_sClassRoom = drTmp(1)
        Me.m_iCourseId = drTmp(2)
        Me.m_iTypeId = drTmp(3)
        Me.m_iTeacherId = drTmp(4)
        Me.m_iStudentAmount = drTmp(5)
        Me.m_fCoefficient = drTmp(6)
        Me.m_iTimeId = drTmp(7)
        Me.m_sDay = drTmp(8)
    End Sub

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

    '课程表中该门课的纯课程信息，如微积分、3个学分等信息，而不包括如上课老师等其它信息
    Public ReadOnly Property Course() As String
        Get
            Course = CStr(DbBase.DataInterface.Execute4Object("select name from course where id =" & Me.m_iCourseId))
        End Get
    End Property
    Public Property CourseId() As Integer
        Get
            CourseId = Me.m_iCourseId
        End Get
        Set(ByVal Value As Integer)
            Me.m_iCourseId = Value
        End Set
    End Property

    '课程类型：如选修课、必修课、辅修课等
    Public Property CourseType() As String
        Get
            CourseType = CStr(DbBase.DataInterface.Execute4Object("select name from course_type where id =" & Me.m_iTypeId))
        End Get

        Set(ByVal Value As String)
            Me.m_iTypeId = DbBase.DataInterface.Execute4Value("select id from course_type where name = '" & Value & "'")
        End Set
    End Property
    Public Property CourseTypeId() As Integer
        Get
            CourseTypeId = Me.m_iTypeId
        End Get
        Set(ByVal Value As Integer)
            Me.m_iTypeId = Value
        End Set
    End Property

    '上课时间
    Public Property ClassTime() As ClassTime
        Get
            ClassTime = New ClassTime(Me.m_iTimeId)
        End Get

        Set(ByVal Value As ClassTime)
            Me.m_iTimeId = Value.Id
        End Set
    End Property

    '上课老师
    Public Property Teacher() As Teacher
        Get
            Teacher = New Teacher(Me.m_iTeacherId)
        End Get

        Set(ByVal Value As Teacher)
            Me.m_iTeacherId = Value.Id
        End Set
    End Property
    Public Property TeacherId() As Integer
        Get
            TeacherId = Me.m_iTeacherId
        End Get
        Set(ByVal Value As Integer)
            Me.m_iTeacherId = Value
        End Set
    End Property

    '上课教室
    Public Property Classroom() As Classroom
        Get
            Classroom = New Classroom(Me.m_sClassRoom)
        End Get

        Set(ByVal Value As Classroom)
            Me.m_sClassRoom = Value.m_sAddress
        End Set
    End Property

    '上课日期时间
    Public ReadOnly Property DayTime() As String
        Get
            DayTime = Me.m_sDay & " " & Me.ClassTime.m_sCaption & " " & Me.ClassTime.m_sDuringTime
        End Get

    End Property

    '返回某位学生的课程表
    Public Shared Function Schedule(ByVal sStuNum As String) As DataSet
        Schedule = DbBase.DataInterface.Execute4DS("select * from v_curriculum_schedule where stu_num = '" & sStuNum & "'")
    End Function

    '开课
    Public Function GiveCourse() As Integer
        Try
            GiveCourse = DbBase.DataInterface.ExecuteSql("insert into curriculum (classroom, course_id, type_id, teacher_id, stu_amount, coefficient, time_id, class_day) values ('" & Me.m_sClassRoom & "'," & Me.m_iCourseId & "," & Me.m_iTypeId & "," & Me.m_iTeacherId & "," & Me.m_iStudentAmount & "," & Me.m_fCoefficient & "," & Me.m_iTimeId & ",'" & Me.m_sDay & "')")
        Catch ex As Exception
            Throw New Exception(ex.Message & "occurs when give course")
        End Try
    End Function

    '取消课程
    Public Function CancelCourse() As Integer
        CancelCourse = DbBase.DataInterface.ExecuteSql("delete from curriculum where id = " & Me.m_iId)
    End Function

    '修改课程
    Public Function EditCourse() As Integer
        Dim sbTmp As StringBuilder = New StringBuilder
        sbTmp.Append("update curriculum set ")
        sbTmp.Append("classroom = '" & Me.m_sClassRoom & "' ")
        sbTmp.Append("course_id = " & Me.m_iCourseId & " ")
        sbTmp.Append("type_id = " & Me.m_iTypeId & " ")
        sbTmp.Append("teacher_id = " & Me.m_iTeacherId & " ")
        sbTmp.Append("stu_amount = " & Me.m_iStudentAmount & " ")
        sbTmp.Append("coefficient = " & Me.m_fCoefficient & " ")
        sbTmp.Append("time_id = " & Me.m_iTimeId & " ")
        sbTmp.Append("class_day = '" & Me.m_sDay & "' ")
        sbTmp.Append("where id = " & Me.m_iId)
        EditCourse = DbBase.DataInterface.ExecuteSql(sbTmp.ToString())
    End Function

    '取消课程－静态方法
    Public Shared Sub CancelCourse(ByVal iId As Integer)
        Try
            DbBase.DataInterface.ExecuteSql("delete from curriculum where id = " & iId)
        Catch ex As Exception
            Throw New Exception(ex.Message & "ocurrs when cancel course")
        End Try
    End Sub

End Class