userinfo.vb

asp做的网上书店销售系统数据库采用sqlserver

Public Class UserInfo
    Private _UserId As String
    Private _UserName As String
    Private _NiceName As String
    Private _Tel As String
    Private _Addr As String
    Private _EMail As String
    Private _Zip As String
    Private _Role As Integer
    Private _State As Integer

    Public Property UserId() As String
        Get
            Return _UserId
        End Get
        Set(ByVal Value As String)
            _UserId = Value
        End Set
    End Property
    Public Property UserName() As String
        Get
            Return _UserName
        End Get
        Set(ByVal Value As String)
            _UserName = Value
        End Set
    End Property
    Public Property NiceName() As String
        Get
            Return _NiceName
        End Get
        Set(ByVal Value As String)
            _NiceName = Value
        End Set
    End Property
    Public Property Tel() As String
        Get
            Return _Tel
        End Get
        Set(ByVal Value As String)
            _Tel = Value
        End Set
    End Property

    Public Property Addr() As String
        Get
            Return _Addr
        End Get
        Set(ByVal Value As String)
            _Addr = Value
        End Set
    End Property

    Public Property EMail() As String
        Get
            Return _EMail
        End Get
        Set(ByVal Value As String)
            _EMail = Value
        End Set
    End Property

    Public Property Zip() As String
        Get
            Return _Zip
        End Get
        Set(ByVal Value As String)
            _Zip = Value
        End Set
    End Property


    Public Property State() As Integer
        Get
            Return _State
        End Get
        Set(ByVal Value As Integer)
            _State = Value
        End Set
    End Property

    Public Property Role() As Integer
        Get
            Return _Role
        End Get
        Set(ByVal Value As Integer)
            _Role = Value
        End Set
    End Property

End Class