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 SubEnd Class