forms/sysmanage/frmSysManageLedgers.vb

（开头部分） 65KB

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

Imports System.ComponentModel

Public Class frmSysManageLedgers

    Private m_curLedgerEditor As ClsLedgerEditor '当前正在编辑或输入的账套
    Private m_editState As Int16 '当前窗体编辑状态，0 - 浏览，1 - 新增，2 - 编辑
    Private m_curRow As Int32 '当前列表所在行，未选中时为 -1
    Private m_ifEditing As Boolean '当前编辑区数据是否修改的标识
    Private m_dirty As Boolean '当前是否有数据修改
    Private m_saving As Boolean '当前是否正在保存数据

    '定义一个委托，用来将账套对象加入到列表中
    Private Delegate Sub PushLedgerToList(ByVal ledger As ClsLedgerEditor)
    Private m_pushLedger As PushLedgerToList = New PushLedgerToList(AddressOf AddOneLedgerToList)
    '定义一个委托，用来将用户对象加入到用户列表中
    Private Delegate Sub AddUserToListView(ByVal user As ClsUser)
    Private m_addUserToListView As AddUserToListView = New AddUserToListView(AddressOf AddOneUserTListView)
    '定义一个委托，用来在数据保存到表中以后修改列表中的内容，
    Private Delegate Sub EditLedgerInList(ByVal ledger As ClsLedger)
    Private m_editLedger As EditLedgerInList
    '定义一个委托，用来从listview控件中删除一行数据
    Private Delegate Sub DeleteRowFromListView(ByVal mRow As Integer)
    Private m_deleteRow As DeleteRowFromListView = New DeleteRowFromListView(AddressOf DeleteRow)

    '定义一个委托，用来在数据保存完毕后通知窗体进程
    Private Delegate Sub SaveDoneDelegate()
    Private m_SaveDone As SaveDoneDelegate = New SaveDoneDelegate(AddressOf SaveLedgerDone)
    '定义一个委托，用来在主窗体上显示 当前的工作进程信息
    Private Delegate Sub SetNotifyInfo(ByVal s As String)
    Private m_ShowNotify As SetNotifyInfo = New SetNotifyInfo(AddressOf sysFrmMdiMain.SetNotifyText)

    '全部账套的集合列表
    Private m_ledgerList As List(Of ClsLedger)
    Private m_ledgerEditList As List(Of ClsLedgerEditor)

    '定义一个中间订阅变量，关注编辑区控件内容修改
    Private m_broker As ClsBroker

    '全部用户集合列表
    Private m_userList As List(Of ClsUser)

    '新建账套的模板类对象
    Private m_IndustryAcctType As ClsIndustryAccountType
    Private m_IndustryAcctList As List(Of ClsIndustryAccount)

    Private Sub frmSysManageLedgers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '为窗体变量赋初值 
        m_curLedgerEditor = Nothing
        m_editState = 0
        m_curRow = -1

        '窗体集合列表
        m_userList = New List(Of ClsUser)
        m_ledgerEditList = New List(Of ClsLedgerEditor)
        m_ledgerList = New List(Of ClsLedger)

        '委托变量赋值
        'm_pushLedger = New PushLedgerToList(AddressOf AddOneLedgerToList)

        '订阅变量赋值并开启订阅
后面还有 1599 行代码，解锁后查看完整代码

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

AI 解读

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

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