classes/clsIndustryAccountType.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

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

Public Class ClsIndustryAccountType
    'sys.mdb数据库，表名：S_IndustryAccountType
    ',
    Private mIndustryId As Integer
    Private mIndustry As String
    Private mNewAcctLength As Int16
    Private mOneLevelAcctLength As Int16
    Private mCashCode As String
    Private mBankCode As String
    Private mAssetsCode As String
    Private mDepCode As String
    Private mRecieveCode As String
    Private mPayCode As String
    Private mGainCode As String
    Private mIncAndDecCode As String
    Private mStockCode As String
    Private mDevCode As String

    Public Property IndustryId As Integer
        Get
            Return mIndustryId
        End Get
        Set(value As Integer)
            mIndustryId = value
        End Set
    End Property

    Public Property Industry As String
        Get
            Return mIndustry
        End Get
        Set(value As String)
            mIndustry = value
        End Set
    End Property

    Public Property NewAcctLength As Short
        Get
            Return mNewAcctLength
        End Get
        Set(value As Short)
            mNewAcctLength = value
        End Set
    End Property

    Public Property OneLevelAcctLength As Short
        Get
            Return mOneLevelAcctLength
        End Get
        Set(value As Short)
            mOneLevelAcctLength = value
        End Set
    End Property

    Public Property CashCode As String
        Get
            Return mCashCode
        End Get
        Set(value As String)
            mCashCode = value