college.vb

学生信息管理系统

Imports CommonDB

Public Class College
    Inherits DbObject

    Public m_sName As String
    Public m_sAddress As String
    Public m_sPhone As String
    Public m_sMaster As String
    Public m_sIntro As String
    Private m_iId 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,address,phone,master,intro from college where id = " & iId).Tables(0).Rows(0)
        Me.m_iId = drTemp(0)
        Me.m_sName = drTemp(1)
        Me.m_sAddress = CDbStr(drTemp(2))
        Me.m_sPhone = CDbStr(drTemp(3))
        Me.m_sMaster = CDbStr(drTemp(4))
        Me.m_sIntro = CDbStr(drTemp(5))
    End Sub

    Public ReadOnly Property Id() As Integer
        Get
            Id = m_iId
        End Get
    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 Address() As String
        Get
            Address = Me.m_sAddress
        End Get
        Set(ByVal Value As String)
            Me.m_sAddress = Value
        End Set
    End Property

    Public Property Phone() As String
        Get
            Phone = Me.m_sPhone
        End Get
        Set(ByVal Value As String)
            Me.m_sPhone = Value
        End Set
    End Property

    Public Property Master() As String
        Get
            Master = Me.m_sMaster
        End Get
        Set(ByVal Value As String)
            Me.m_sMaster = Value
        End Set
    End Property

    Public Property Intro() As String
        Get
            Intro = Me.m_sIntro
        End Get
        Set(ByVal Value As String)
            Me.m_sIntro = Value
        End Set
    End Property

    '更新学院信息：增加学院、修改学院
    Public Function Update() As Integer
        If DbBase.DataInterface.Execute4Value("select count(id) from college where id = " & Me.m_iId) = 0 Then
            DbBase.DataInterface.ExecuteSql("insert into college (name,address,phone,master,intro) values ('" & Me.m_sName & "','" & Me.m_sAddress & "','" & Me.m_sPhone & "','" & Me.m_sMaster & "','" & Me.m_sIntro & "')")
        Else
            DbBase.DataInterface.ExecuteSql("update college set name = '" & Me.m_sName & "', address = '" & Me.m_sAddress & "', phone = '" & Me.m_sPhone & "', master = '" & Me.m_sMaster & "', intro = '" & Me.m_sIntro & "' where id =" & Me.Id)
        End If
    End Function

    '删除学院
    Public Function Delete() As Integer
        Delete = DbBase.DataInterface.ExecuteSql("delete from college where id = " & Me.m_iId)
    End Function

End Class