📄 usermembership.vb
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -