newsinfo.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 99 行

Namespace NetShopForge.Library.News

    Public Class NewsInfo
        Public Sub New()
        End Sub
        Private _Newsid As Integer
        Private _Newscategoryid As Integer
        Private _subject As String
        Private _body As String
        Private _issiteNews As Boolean
        Private _updatedt As DateTime
        Private _status As String

        '''<summary>
        '''
        '''</summary>
        Public Property NewsID() As Integer
            Get
                Return _Newsid
            End Get
            Set(ByVal Value As Integer)
                _Newsid = value
            End Set
        End Property
        '''<summary>
        '''
        '''</summary>
        Public Property NewsCategoryID() As Integer
            Get
                Return _Newscategoryid
            End Get
            Set(ByVal Value As Integer)
                _Newscategoryid = value
            End Set
        End Property
        '''<summary>
        '''
        '''</summary>
        Public Property Subject() As String
            Get
                Return _subject
            End Get
            Set(ByVal Value As String)
                _subject = value
            End Set
        End Property
        '''<summary>
        '''
        '''</summary>
        Public Property Body() As String
            Get
                Return _body
            End Get
            Set(ByVal Value As String)
                _body = value
            End Set
        End Property
        '''<summary>
        '''
        '''</summary>
        Public Property IsSiteNews() As Boolean
            Get
                Return _issiteNews
            End Get
            Set(ByVal Value As Boolean)
                _issiteNews = value
            End Set
        End Property
        '''<summary>
        '''
        '''</summary>
        Public Property UpdateDT() As DateTime
            Get
                Return _updatedt
            End Get
            Set(ByVal Value As DateTime)
                _updatedt = value
            End Set
        End Property
        '''<summary>
        '''0:Queued;1:Send
        '''</summary>
        Public Property Status() As String
            Get
                Return _status
            End Get
            Set(ByVal Value As String)
                _status = Value
            End Set
        End Property
  

    End Class



End Namespace