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