shopdata.vb

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

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 ShopData
        Private _shopname As String
        Private _Login As String
        Private _manager As LogonOperator
        Private _shopid As Int32
        Private _password As String

        Public Sub New()
            _manager = New LogonOperator()
        End Sub

        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 _shopname
            End Get
            Set(ByVal Value As String)
                _shopname = Value
            End Set
        End Property

        Public Property ManagerName() As String
            Get
                Return _manager.Name
            End Get
            Set(ByVal Value As String)
                _manager.Name = Value
            End Set
        End Property

        Public Property ManagerLogin() As String
            Get
                Return _manager.Login
            End Get
            Set(ByVal Value As String)
                _manager.Login = Value
            End Set
        End Property

        Public Property NewPassword() As String
            Get
                Return _password
            End Get
            Set(ByVal Value As String)
                _password = Value
            End Set
        End Property
    End Class
End Namespace