Imports CommonDBImports CommonSystemImports System.TextPublic Class Student    Inherits Person    '需要修改Person從DbObject繼承，從而使得Student類可以使用CDBStr函數，參考Student.Business屬性    Private m_sStuNum As String    Private m_iProfessionId As Integer    Private m_sDorm As String    Private m_sPhone As String    Private m_iBusinessId As Integer    Private m_sEnterDate As String    Private m_sEmail As String	'構造函數    Public Sub New()        m_sStuNum = ""    End Sub	'構造函數    Public Sub New(ByVal sStuNum As String)        Try            Dim drStu As DataRow = DbBase.DataInterface.Execute4DS("select * from student where stu_num = '" & sStuNum & "'").Tables(0).Rows(0)            Me.m_sStuNum = drStu("stu_num")
            Me.Name = drStu("name")
            Me.Sex = drStu("sex")
            Me.Birthday = drStu("birthday")
            Me.iNationId = drStu("nation_id")
            Me.NativePlace = drStu("native_place")
            Me.m_iProfessionId = drStu("profession_id")
            Me.m_sDorm = drStu("dorm")
            Me.m_sPhone = drStu("phone")
            Me.m_iBusinessId = drStu("business_id")
            Me.HomeAddress = drStu("home_address")
            Me.HomePhone = drStu("home_phone")
            Me.Postalcode = drStu("postalcode")
            Me.m_sEmail = drStu("email")
            Me.m_sEnterDate = drStu("enter_date")
            Me.Intro = drStu("intro")
        Catch ex As Exception
            Throw New Exception("Exception occurs when new Student")
        End Try    End Sub    '學生專業    Public ReadOnly Property Profession() As Profession        Get            Profession = New Profession(m_iProfessionId)        End Get    End Property    Public Sub SetProfessionId(ByVal iId As Integer)        Me.m_iProfessionId = iId
    End Sub    '學生職務    Public Property Business() As String        Get            '使用DbObject.CDbStr函數處理DBNull            Business = CStr(DbBase.DataInterface.Execute4Object("select name from business where id = " & m_iBusinessId))        End Get        Set(ByVal Value As String)            m_iBusinessId = DbBase.DataInterface.Execute4Value("select id from business where name = '" & Value & "'")        End Set    End Property    '學生寢室    Public Property Dorm() As String        Get            Dorm = m_sDorm        End Get        Set(ByVal Value As String)            m_sDorm = Value        End Set    End Property    '學生學號    Public Property StudentNumber() As String        Get            StudentNumber = m_sStuNum        End Get        Set(ByVal Value As String)            m_sStuNum = Value        End Set    End Property    '家庭住址    Public Property HomeAddress() As String
        Get
            HomeAddress = Me.Address
        End Get
        Set(ByVal Value As String)
            Me.Address = Value
        End Set
    End Property    '電話    Public Property Phone() As String
        Get
            Phone = m_sPhone
        End Get
        Set(ByVal Value As String)
            m_sPhone = Value
        End Set
    End Property    '學生入學日期    Public Property EnterDate() As String        Get            EnterDate = m_sEnterDate        End Get        Set(ByVal Value As String)            m_sEnterDate = Value        End Set    End Property    '電子郵件    Public Property Email() As String        Get            Email = m_sEmail        End Get        Set(ByVal Value As String)            m_sEmail = Value        End Set    End Property    '學生注冊    Public Function Enroll() As Integer        Dim sbSql As StringBuilder = New StringBuilder        sbSql.Append("insert into student (stu_num,name,sex,birthday,nation_id,native_place,profession_id,dorm,phone,business_id,home_address,home_phone,postalcode,email,enter_date,intro) values (")        sbSql.Append("'" & Me.m_sStuNum & "',")        sbSql.Append("'" & Me.Name & "',")        sbSql.Append("'" & Me.Sex & "',")        sbSql.Append("'" & Me.Birthday & "',")        sbSql.Append(Me.iNationId & ",")        sbSql.Append("'" & Me.NativePlace & "',")        sbSql.Append(Me.m_iProfessionId & ",")        sbSql.Append("'" & Me.m_sDorm & "',")        sbSql.Append("'" & Me.Phone & "',")        sbSql.Append(Me.m_iBusinessId & ",")        sbSql.Append("'" & Me.HomeAddress & "',")        sbSql.Append("'" & Me.HomePhone & "',")        sbSql.Append("'" & Me.Postalcode & "',")        sbSql.Append("'" & Me.m_sEmail & "',")        sbSql.Append("'" & Me.EnterDate & "',")        sbSql.Append("'" & Me.Intro & "')")        Enroll = DbBase.DataInterface.ExecuteSql(sbSql.ToString)    End Function    '修改學生信息    Public Function Update() As Integer        Dim sbSql As StringBuilder = New StringBuilder
        sbSql.Append("update student set ")        sbSql.Append("name = '" & Me.Name & "',")        sbSql.Append("sex = '" & Me.Sex & "',")        sbSql.Append("birthday = '" & Me.Birthday & "',")        sbSql.Append("nation_id = " & Me.iNationId & ",")        sbSql.Append("native_place = '" & Me.NativePlace & "',")        sbSql.Append("profession_id = " & Me.m_iProfessionId & ",")        sbSql.Append("dorm = '" & Me.m_sDorm & "',")        sbSql.Append("phone = '" & Me.Phone & "',")        sbSql.Append("business_id = " & Me.m_iBusinessId & ",")        sbSql.Append("home_address = '" & Me.HomeAddress & "',")        sbSql.Append("home_phone = '" & Me.HomePhone & "',")        sbSql.Append("postalcode = '" & Me.Postalcode & "',")        sbSql.Append("email = '" & Me.m_sEmail & "',")        sbSql.Append("enter_date = '" & Me.EnterDate & "',")        sbSql.Append("intro = '" & Me.Intro & "'")        sbSql.Append(" where stu_num = '" & Me.m_sStuNum & "'")        Update = DbBase.DataInterface.ExecuteSql(sbSql.ToString)    End Function    '學生離校    Public Function Leave() As Integer        Leave = DbBase.DataInterface.ExecuteSql("delete * from student where stu_num = '" & Me.m_sStuNum & "'")    End Function    '學生選課    Public Shared Function SelectCurriculum(ByVal iCurriculumId As Integer, ByVal sStuNum As String) As Integer        SelectCurriculum = DbBase.DataInterface.ExecuteSql("insert into curriculum_schedule (curriculum_id,stu_num) values (" & iCurriculumId & ",'" & sStuNum & "')")
    End Function    '學生退課    Public Shared Function QuitCurriculum(ByVal iCurriculumId As Integer, ByVal sStuNum As String) As Integer        QuitCurriculum = DbBase.DataInterface.ExecuteSql("delete from curriculum_schedule where curriculum_id = " & iCurriculumId & "and stu_num = '" & sStuNum & "')")    End Function    '學生改換專業    Public Function ChangeProfession(ByVal iProfessionId As Integer) As Integer        ChangeProfession = Student.ChangeProfession(Me.m_sStuNum, iProfessionId)    End Function	'共享方法，學生改換專業    Public Shared Function ChangeProfession(ByVal sStuNum As String, ByVal iProfessionId As Integer) As Integer
        ChangeProfession = DbBase.DataInterface.ExecuteSql("update student set profession_id = " & iProfessionId & " where stu_num = '" & sStuNum & "'")    End FunctionEnd Class