classes/clsLedgerEditor.vb

（完整代码） 1KB 

''' <summary>
''' 账套编辑时用类，主要用来保存账套编辑时的状态和内容
''' 包括同步账套的信息和用户使用情况
''' </summary>
Public Class ClsLedgerEditor

    Private m_LedgerClass As ClsLedger '用来保存账套信息
    Private m_IfOpened As Boolean '用来保存账套是否已启用
    Private m_IfHaveVoucher As Boolean '用来保存账套是否已输入凭证，已输入凭证的账套是不可以删除的
    'Private m_UserList As List(Of ClsUser) '用来保存账套相关管理用户列表
    Private m_UserIdS As List(Of Int32) '用来存放管理用户的编号列表

    Public Property LedgerClass As ClsLedger
        Get
            Return m_LedgerClass
        End Get
        Set(value As ClsLedger)
            m_LedgerClass = value
        End Set
    End Property

    Public Property IfOpened As Boolean
        Get
            Return m_IfOpened
        End Get
        Set(value As Boolean)
            m_IfOpened = value
        End Set
    End Property

    Public Property IfHaveVoucher As Boolean
        Get
            Return m_IfHaveVoucher
        End Get
        Set(value As Boolean)
            m_IfHaveVoucher = value
        End Set
    End Property

    'Public Property UserList As List(Of ClsUser)
    '    Get
    '        Return m_UserList
    '    End Get
    '    Set(value As List(Of ClsUser))
    '        m_UserList = value
    '    End Set
    'End Property

    Public Property UserIdS As List(Of Integer)
        Get
            Return m_UserIdS
        End Get
        Set(value As List(Of Integer))
            m_UserIdS = value
        End Set
    End Property
End Class

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

AI 解读

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

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