usermembership.vb

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

Namespace NetShopForge.Library.User
    Public Class UserMembership
        Private _Password As String
        Private _Email As String
        Private _Username As String
        Private _LastLoginDate As Date
        Private _LastLockoutDate As Date
        Private _CreatedDate As Date
        Private _Approved As Boolean
        Private _LockedOut As Boolean
        Private _ObjectHydrated As Boolean

        Public Sub New()
            _ObjectHydrated = False
        End Sub

        Public Property Password() As String
            Get
                Return _Password
            End Get
            Set(ByVal Value As String)
                _Password = Value
                If Not ObjectHydrated Then
                    ObjectHydrated = True
                End If
            End Set
        End Property

        Public Property Email() As String
            Get
                Return _Email
            End Get
            Set(ByVal Value As String)
                _Email = Value
                If Not ObjectHydrated Then
                    ObjectHydrated = True
                End If
            End Set
        End Property

        Public Property Username() As String
            Get
                Return _Username
            End Get
            Set(ByVal Value As String)
                _Username = Value
                If Not ObjectHydrated Then
                    ObjectHydrated = True
                End If
            End Set
        End Property

        Public Property LastLoginDate() As Date
            Get
                Return _LastLoginDate
            End Get
            Set(ByVal Value As Date)
                _LastLoginDate = Value
                If Not ObjectHydrated Then
                    ObjectHydrated = True
                End If
            End Set
        End Property

        Public Property LastLockoutDate() As Date
            Get
                Return _LastLockoutDate
            End Get
            Set(ByVal Value As Date)
                _LastLockoutDate = Value
                If Not ObjectHydrated Then
                    ObjectHydrated = True
                End If
            End Set
        End Property

        Public Property CreatedDate() As Date
            Get
                Return _CreatedDate
            End Get
            Set(ByVal Value As Date)
                _CreatedDate = Value
                If Not ObjectHydrated Then
                    ObjectHydrated = True
                End If
            End Set
        End Property

        Public Property Approved() As Boolean
            Get
                Return _Approved
            End Get
            Set(ByVal Value As Boolean)
                _Approved = Value
                If Not ObjectHydrated Then
                    ObjectHydrated = True
                End If
            End Set
        End Property

        Public Property LockedOut() As Boolean
            Get
                Return _LockedOut
            End Get
            Set(ByVal Value As Boolean)
                _LockedOut = Value
                If Not ObjectHydrated Then
                    ObjectHydrated = True
                End If
            End Set
        End Property

        Public Property ObjectHydrated() As Boolean
            Get
                Return _ObjectHydrated
            End Get
            Set(ByVal Value As Boolean)
                _ObjectHydrated = Value
                If Not ObjectHydrated Then
                    _ObjectHydrated = True
                End If
            End Set
        End Property

    End Class
End Namespace