logonoperator.vb

来自「我基于.netframwork1.0开发的一个B/S网络店铺（会员）销售管理系统」· VB 代码 · 共 89 行

Option Strict On
Option Explicit On 

Imports System
Imports System.Data
Imports System.Runtime.Serialization

Namespace Data

    '----------------------------------------------------------------
    ' Namespace: Common.Data
    '   
    '----------------------------------------------------------------
    <System.ComponentModel.DesignerCategory("Code"), SerializableAttribute()> Public Class LogonOperator
        Private _name As String
        Private _id As Int32
        Private _shopid As Int32
        Private _shop As String
        Private _role As String
        Private _login As String

        Public Sub New()
            _id = -1
            _name = ""
            _shopid = -1
            _shop = ""
            _role = ""
        End Sub

        Public Property ID() As Int32
            Get
                Return _id
            End Get
            Set(ByVal Value As Int32)
                _id = Value
            End Set
        End Property

        Public Property ShopID() As Int32
            Get
                Return _shopid
            End Get
            Set(ByVal Value As Int32)
                _shopid = Value
            End Set
        End Property

        Public Property Name() As String
            Get
                Return _name
            End Get
            Set(ByVal Value As String)
                _name = Value
            End Set
        End Property

        Public Property Login() As String
            Get
                Return _login
            End Get
            Set(ByVal Value As String)
                _login = Value
            End Set
        End Property

        Public Property Shop() As String
            Get
                Return _shop
            End Get
            Set(ByVal Value As String)
                _shop = Value
            End Set
        End Property
        Public Property Role() As String
            Get
                Return _role
            End Get
            Set(ByVal Value As String)
                _role = Value
            End Set
        End Property
        Public ReadOnly Property Label() As String
            Get
                Return _name & "(" & _shop & ")"
            End Get
        End Property
    End Class
End Namespace