forms/financialsetup/frmFinancialSetupVoucherType.vb

（开头部分） 13KB

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

Imports System.ComponentModel

Public Class frmFinancialSetupVoucherType
    Private m_VoucherGroupList As List(Of ClsTVoucherGroup)
    Private m_State As Int16 '当前编辑状态
    Private m_Saving As Boolean '当前是否正在保存
    Private m_Dirty As Boolean '当前数据是否修改
    Private m_Row As Integer '当前列表中选择的行

    Private m_CurGroup As ClsTVoucherGroup '保存当前正在处理的类对象

    Private m_Broker As ClsBroker = New ClsBroker() '新增或修改后，发出事件广播

    Private Sub frmFinancialSetupVoucherType_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '注册订阅事件
        AddHandler ClsBroker.OnCustomCtrolContentChange, AddressOf DataDirty

        '载入全部凭证类别集合
        LoadGroupData()
        '数据装入控件列表
        LoadListView()
        '状态初值 
        m_State = 0 '浏览
        m_Saving = False
        m_Dirty = False
        m_Row = -1
        '控件状态
        CheckControlState()

    End Sub

    Private Sub CheckControlState()
        '检查按钮
        CheckButtonState()
        '检查文本框
        CheckTextBoxState()
    End Sub

    Private Sub CheckTextBoxState()
        Select Case m_State
            Case 0
                Me.txtGroupName.ReadOnly = True
                Me.txtShortName.ReadOnly = True
            Case 1
                Me.txtGroupName.ReadOnly = IIf(m_Saving, True, False)
                Me.txtShortName.ReadOnly = IIf(m_Saving, True, False)
            Case 2
                Me.txtShortName.ReadOnly = IIf(m_Saving, True, False)
                Me.txtGroupName.ReadOnly = IIf(m_Saving, True, False)
        End Select
    End Sub
    Private Sub CheckButtonState()
        Select Case m_State
            Case 0 '浏览
                Me.btnAdd.Enabled = True
                Me.btnModify.Enabled = IIf(m_CurGroup Is Nothing, False, True)
                Me.btnSave.Enabled = False
                Me.btnClose.Enabled = True
                Me.btnAdd.Text = "新建"
                Me.btnModify.Text = "编辑"
后面还有 376 行代码，解锁后查看完整代码

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

AI 解读

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

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