classes/clsLedger.vb

（完整代码） 1KB 

''' <summary>
''' 账套类，对应表S_Ledger
''' </summary>
Public Class ClsLedger

    'S_Ledger
    'LedgerId,LedgerName,LedgerCompanyName,LedgerWorkYear

    Private mLedgerId As Integer
    Private mLedgerName As String
    Private mLedgerCompanyName As String
    Private mLedgerDataRealPath As String



    Public Property LedgerId As Integer
        Get
            Return mLedgerId
        End Get
        Set(value As Integer)
            mLedgerId = value
        End Set
    End Property

    Public Property LedgerName As String
        Get
            Return mLedgerName
        End Get
        Set(value As String)
            mLedgerName = value
        End Set
    End Property

    Public Property LedgerCompanyName As String
        Get
            Return mLedgerCompanyName
        End Get
        Set(value As String)
            mLedgerCompanyName = value
        End Set
    End Property


    Public Property LedgerDataRealPath As String
        Get
            Return mLedgerDataRealPath
        End Get
        Set(value As String)
            mLedgerDataRealPath = value
        End Set
    End Property

End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。