classes/ClsTCustomer.vb

微信扫码关注公众号，代码整理好后第一时间通知你。

Public Class ClsTCustomer
    'T_Customer

    Private m_CustomerId As Integer '0
    Private m_CustomerName As Integer '1
    Private m_CustomerType As String '2 客户类型：供应商 采购商
    Private m_Charger As String '3 负责人
    Private m_Contact As String '4 联系方式

    Public Property CustomerId As Integer
        Get
            Return m_CustomerId
        End Get
        Set(value As Integer)
            m_CustomerId = value
        End Set
    End Property

    Public Property CustomerName As Integer
        Get
            Return m_CustomerName
        End Get
        Set(value As Integer)
            m_CustomerName = value
        End Set
    End Property

    Public Property CustomerType As String
        Get
            Return m_CustomerType
        End Get
        Set(value As String)
            m_CustomerType = value
        End Set
    End Property

    Public Property Charger As String
        Get
            Return m_Charger
        End Get
        Set(value As String)
            m_Charger = value
        End Set
    End Property

    Public Property Contact As String
        Get
            Return m_Contact
        End Get
        Set(value As String)
            m_Contact = value
        End Set
    End Property
End Class