forms/voucher/frmVoucherPost.vb

（开头部分） 27KB

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

Public Class frmVoucherPost

    Private m_voucherNumber As Integer '本期间凭证总数
    Private m_unCheckVoucherNumber As Integer '本期间未审核凭证数量
    Private m_unPostVoucherNumber As Integer '本期间未过账凭证数量
    Private m_CreditEqualDebit As Boolean '期间凭证借贷总数是否相等

    Private m_unPostVoucherList As List(Of ClsTVoucher) = New List(Of ClsTVoucher)()


    '窗体调用主窗体显示过程
    Private Delegate Sub SetMainShowInfo(ByVal info As String)
    Private m_showInfoInMainForm As SetMainShowInfo = New SetMainShowInfo(AddressOf SetMessageToMianForm)

    '窗体其他加载过程委托
    Private Delegate Sub PostDone()
    Private m_postDone As PostDone = New PostDone(AddressOf PostDoneSub)

    ''' <summary>
    ''' 过账完毕，处理窗体界面
    ''' </summary>
    Private Sub PostDoneSub()
        '过账完毕，恢复控件状态
        m_unPostVoucherNumber = 0
        Me.txtUnPostedNumber.Text = "0"
        '没有凭证
        btnPost.Enabled = False
        btnSettle.Enabled = True
        btnClose.Enabled = True
    End Sub


    ''' <summary>
    ''' 在MDI主窗体上显示信息
    ''' </summary>
    ''' <param name="info"></param>
    Private Sub SetMessageToMianForm(ByVal info As String)
        sysFrmMdiMain.SetNotifyText(info)
    End Sub

    Private Sub frmVoucherPost_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '会计期间
        Me.txtWorkPeriod.Text = sysCurrentLedgerSetting.LedgerWorkYear

        '显示状态
        sysFrmMdiMain.SetNotifyText("正在加载本期凭证数据...")

        '禁用按钮
        Me.btnPost.Enabled = False
        Me.btnSettle.Enabled = False
        Me.btnClose.Enabled = False

        '初始值
        m_voucherNumber = 0
        m_unCheckVoucherNumber = 0
        m_unPostVoucherNumber = 0
        m_CreditEqualDebit = True

        '加载数据
        Dim t As Threading.Thread = New Threading.Thread(AddressOf LoadDataFromDb)
后面还有 592 行代码，解锁后查看完整代码

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

AI 解读

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

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