实体类_ett_tb_loginuser.vb

CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN

'DotNet DataAccess Code Helper V3.0
'By 阿宽,
'2006-3-4 16:26:48
Imports System.Data.OleDb
Public Class entity_TB_LoginUser

#Region "字段长度"
    Public Const COL_LEN_ABCDEF As Integer = 255
    Public Const COL_LEN_DEFAULT As Integer = 4
    Public Const COL_LEN_PASS As Integer = 50
    Public Const COL_LEN_QWERTOP As Integer = 10
    Public Const COL_LEN_USERID As Integer = 10
    Public Const COL_LEN_USERNAME As Integer = 50
#End Region

#Region "字段类型"
    Public Const COL_TYPE_ABCDEF As OleDbType = OleDbType.WChar
    Public Const COL_TYPE_DEFAULT As OleDbType = OleDbType.UnsignedTinyInt
    Public Const COL_TYPE_PASS As OleDbType = OleDbType.WChar
    Public Const COL_TYPE_QWERTOP As OleDbType = OleDbType.WChar
    Public Const COL_TYPE_USERID As OleDbType = OleDbType.WChar
    Public Const COL_TYPE_USERNAME As OleDbType = OleDbType.WChar
#End Region


    '名：ABCDEF<TB_LoginUser>/类型：WChar/长度：255
    '注释：CooKie中的ABCDEF
    Private _ABCDEF As String
    Public Property ABCDEF() As String
        Get 
            Return _ABCDEF
        End Get
        Set(ByVal Value As String)
            _ABCDEF = Value
        End Set
    End Property

    '名：Default<TB_LoginUser>/类型：UnsignedTinyInt/长度：4
    '注释：是不是默认
    Private _Default As Byte
    Public Property [Default]() As Byte
        Get
            Return _Default
        End Get
        Set(ByVal Value As Byte)
            _Default = Value
        End Set
    End Property

    '名：Pass<TB_LoginUser>/类型：WChar/长度：50
    '注释：密码
    Private _Pass As String
    Public Property Pass() As String
        Get 
            Return _Pass
        End Get
        Set(ByVal Value As String)
            _Pass = Value
        End Set
    End Property

    '名：QWERTOP<TB_LoginUser>/类型：WChar/长度：10
    '注释：CooKie中的QWERTOP
    Private _QWERTOP As String
    Public Property QWERTOP() As String
        Get 
            Return _QWERTOP
        End Get
        Set(ByVal Value As String)
            _QWERTOP = Value
        End Set
    End Property

    '名：Userid<TB_LoginUser>/类型：WChar/长度：10
    '注释：CooKie中的Userid
    Private _Userid As String
    Public Property Userid() As String
        Get 
            Return _Userid
        End Get
        Set(ByVal Value As String)
            _Userid = Value
        End Set
    End Property

    '名：UserName<TB_LoginUser>/类型：WChar/长度：50
    '注释：用户名
    Private _UserName As String
    Public Property UserName() As String
        Get
            Return _UserName
        End Get
        Set(ByVal Value As String)
            _UserName = Value
        End Set
    End Property

    Private _CheckLogin As Boolean
    Public Property CheckLogin() As Boolean
        Get
            Return _CheckLogin
        End Get
        Set(ByVal value As Boolean)
            _CheckLogin = value
        End Set
    End Property


End Class