userinfo.vb

C#语言制作asp.net网上商店的

Imports Microsoft.VisualBasic

Namespace NetShopForge.Library.User

    Public Class UserInfo
        Private _userid As Integer
        Private _usertype As UserType
        Private _username As String
        Private _title As String
        Private _shipname As String
        Private _shipcounTry As String
        Private _shipstate As String
        Private _shipcity As String
        Private _shipaddress As String
        Private _shippostalcode As String
        Private _shipphone As String
        Private _billingname As String
        Private _billingcounTry As String
        Private _billingstate As String
        Private _billingcity As String
        Private _billingaddress As String
        Private _billingpostalcode As String
        Private _billingphone As String
        Private _email As String
        Private _qq As String
        Private _msn As String
        Private _mobilephone As String
        Private _LastActivityDate As Date

        Public Sub New()
            _username = ""
            _title = ""
            _shipname = ""
            _shipcounTry = ""
            _shipstate = ""
            _shipcity = ""
            _shipaddress = ""
            _shippostalcode = ""
            _shipphone = ""
            _billingname = ""
            _billingcounTry = ""
            _billingstate = ""
            _billingcity = ""
            _billingaddress = ""
            _billingpostalcode = ""
            _billingphone = ""
            _email = ""
            _qq = ""
            _msn = ""
            _mobilephone = ""
        End Sub

        Public Property UserID() As Integer
            Get
                Return _userid
            End Get
            Set(ByVal Value As Integer)
                _userid = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property UserType() As Usertype
            Get
                Return _usertype
            End Get
            Set(ByVal Value As Usertype)
                _usertype = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property UserName() As String
            Get
                Return _username
            End Get
            Set(ByVal Value As String)
                _username = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Title() As String
            Get
                Return _title
            End Get
            Set(ByVal Value As String)
                _title = Value
            End Set
        End Property

        Public Property ShipName() As String
            Get
                Return _shipname
            End Get
            Set(ByVal Value As String)
                _shipname = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ShipCounTry() As String
            Get
                Return _shipcounTry
            End Get
            Set(ByVal Value As String)
                _shipcounTry = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ShipState() As String
            Get
                Return _shipstate
            End Get
            Set(ByVal Value As String)
                _shipstate = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ShipCity() As String
            Get
                Return _shipcity
            End Get
            Set(ByVal Value As String)
                _shipcity = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ShipAddress() As String
            Get
                Return _shipaddress
            End Get
            Set(ByVal Value As String)
                _shipaddress = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ShipPostalcode() As String
            Get
                Return _shippostalcode
            End Get
            Set(ByVal Value As String)
                _shippostalcode = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property ShipPhone() As String
            Get
                Return _shipphone
            End Get
            Set(ByVal Value As String)
                _shipphone = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property BillingName() As String
            Get
                Return _billingname
            End Get
            Set(ByVal Value As String)
                _billingname = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property BillingCounTry() As String
            Get
                Return _billingcounTry
            End Get
            Set(ByVal Value As String)
                _billingcounTry = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property BillingState() As String
            Get
                Return _billingstate
            End Get
            Set(ByVal Value As String)
                _billingstate = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property BillingCity() As String
            Get
                Return _billingcity
            End Get
            Set(ByVal Value As String)
                _billingcity = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property BillingAddress() As String
            Get
                Return _billingaddress
            End Get
            Set(ByVal Value As String)
                _billingaddress = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property BillingPostalCode() As String
            Get
                Return _billingpostalcode
            End Get
            Set(ByVal Value As String)
                _billingpostalcode = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property BillingPhone() As String
            Get
                Return _billingphone
            End Get
            Set(ByVal Value As String)
                _billingphone = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property Email() As String
            Get
                Return _email
            End Get
            Set(ByVal Value As String)
                _email = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property QQ() As String
            Get
                Return _qq
            End Get
            Set(ByVal Value As String)
                _qq = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property MSN() As String
            Get
                Return _msn
            End Get
            Set(ByVal Value As String)
                _msn = Value
            End Set
        End Property
        ''' <summary>
        ''' 
        ''' </summary>
        Public Property MobilePhone() As String
            Get
                Return _mobilephone
            End Get
            Set(ByVal Value As String)
                _mobilephone = Value
            End Set
        End Property


        Public Property LastActivityDate() As Date
            Get
                Return _LastActivityDate
            End Get
            Set(ByVal value As Date)
                _LastActivityDate = value
            End Set
        End Property

    End Class
    Public Enum UserRegistrationStatus
        AddUser = 0
        AddUserRoles = -1
        UsernameAlreadyExists = -2
        UserAlreadyRegistered = -3
        UnexpectedError = -4
    End Enum

    Public Enum UserType
        Administrator = 0
        Customer = 1
    End Enum

End Namespace