student.vb

学生信息管理系统

Imports CommonDB
Imports CommonSystem
Imports System.Text

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