doc/setTemp.txt

（开头部分） 6KB

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

		 '********************
        '系统设置：账套管理、用户管理、打印设置、备份数据、恢复数据、修改密码、科目转换工具、初始设置、年度结转、清空总账、历史数据
        '================================================
        '006 - 生成第六个标题按钮 系统管理
        '================================================
        '
        '01 - 定义分组布局
        Dim panelSysManage As FlowLayoutPanel = New FlowLayoutPanel()
        panelSysManage.Anchor = AnchorStyles.Left Or AnchorStyles.Top
        '02 - 定义标题按钮标签
        Dim btnTitleSysManage As NavTitleButton = New NavTitleButton()
        '03 - 设置标题按钮标签属性
        With btnTitleSysManage
            .Text = NAV_TITLE_SYS_MANAGE_TEXT '= "系统管理"
            .Image = Image.FromFile(IO.Path.Combine(IO.Path.Combine(appCurrentPath, "pic"), "nav_title_bg_sys_manage.png"))
            .Tag = NAV_TITLE_SYS_MANAGE_TAG '"TitleSysSetup"
        End With
        '04 - 添加点击事件
        AddHandler btnTitleSysManage.Click, AddressOf ShowAndHideGroup
        '05 - 放入词典
        btnTitleDic.Add(NAV_TITLE_SYS_MANAGE_TAG, panelSysManage)
        '06 - 将按钮标题加入到窗体控件中
        Me.FlowLayoutPanel1.Controls.Add(btnTitleSysManage) ' 001
        '07 - 将布局栏目组控件加入到窗体控件中
        Me.FlowLayoutPanel1.Controls.Add(panelSysManage)

		'0801 - 账套管理 栏目
        '1--添加具体按钮 - 账套管理
        Dim btnLedgersSysManage As NavItemButton = New NavItemButton()
        '2--添加到词典中
        btnItemDic.Add(NAV_ITEM_LEDGERS_SYS_MANAGE_TAG, GetType(frmSysManageLedgers))
        '3--设置属性
        With btnLedgersSysManage
            .Tag = NAV_ITEM_LEDGERS_SYS_MANAGE_TAG  '"ItemAcctFinancialSetup"
            .Text = NAV_ITEM_LEDGERS_SYS_MANAGE_TEXT  '"账套管理"
        End With
        '4--添加按钮点击事件
        AddHandler btnLedgersSysManage.Click, AddressOf OpenButtonItemForm
        '5--添加条目按钮到panel控件组中
        panelSysManage.Controls.Add(btnLedgersSysManage) '01

        '0802 - 用户管理 栏目
        '1--添加具体按钮 - 用户管理
        Dim btnUsersSysManage As NavItemButton = New NavItemButton()
        '2--添加到词典中
        btnItemDic.Add(NAV_ITEM_USERS_SYS_MANAGE_TAG, GetType(frmSysManageUsers))
        '3--设置属性
        With btnUsersSysManage
            .Tag = NAV_ITEM_USERS_SYS_MANAGE_TAG  '"ItemUsersFinancialSetup"
            .Text = NAV_ITEM_USERS_SYS_MANAGE_TEXT  '"用户管理"
        End With
        '4--添加按钮点击事件
        AddHandler btnUsersSysManage.Click, AddressOf OpenButtonItemForm
        '5--添加条目按钮到panel控件组中
        panelSysManage.Controls.Add(btnUsersSysManage) '02
		
		'0803 - 科目转换工具栏目
        '1--添加具体按钮 - 科目转换工具
        Dim btnAcctConvertSysManage As NavItemButton = New NavItemButton()
        '2--添加到词典中
后面还有 69 行代码，解锁后查看完整代码

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

AI 解读

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

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