s_event.vb

来自「通版开发平台」· VB 代码 · 共 39 行

Public Class SEvent
    Private _EventID As Integer
    Private _EventTypeID As Integer
    Private _Remark As String


    Public Property EventID() As Integer
        Get
            Return _EventID
        End Get

        Set(ByVal value As Integer)
            _EventID = value
        End Set
    End Property


    Public Property EventTypeID() As Integer
        Get
            Return _EventTypeID
        End Get

        Set(ByVal value As Integer)
            _EventTypeID = value
        End Set
    End Property


    Public Property Remark() As String
        Get
            Return _Remark
        End Get

        Set(ByVal value As String)
            _Remark = value
        End Set
    End Property
End Class