forms/system/frmMdiMain.vb

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

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Windows.Forms

Public Class frmMdiMain

    Private m_ChildFormNumber As Integer
    Private mCurrentUserLedger As ClsUserLedger
    Private mCurrentLedgerSetting As ClsTLedgerSetting '当前指定的操作账套参数

    Private Sub frmMdiMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim frmLogin As New frmLogin
        Dim tmpList As List(Of ClsUserLedger) = Nothing
        Dim tmpUserLedgerDbAccess As ClsUserLedgerDbAccess = Nothing  'New clsUserLedgerDbAccess(appInfoConnectionString)
        '隐藏自身
        Me.Hide()
        '打开登录窗体
        If frmLogin.ShowDialog() = DialogResult.OK Then
            '登录窗体退出
            '正常进入系统，即选择了账套，
            Me.Show()
            '取出当前用户的账套权限信息
            tmpUserLedgerDbAccess = New ClsUserLedgerDbAccess(sysAppInfoConnectionString)
            tmpList = tmpUserLedgerDbAccess.GetUserLederByUserIdAndLedgerId(sysCurrentClsUser.UserId, sysCurrentClsLedger.LedgerId)
            '保存当前用户权限到窗体变量
            mCurrentUserLedger = tmpList.Item(0)
            '指定状态栏内容
            CheckStatus()
            '取出当前用户指定的账套参数信息
            OpenCurrentTLedgerSetting()
            '准备菜单显隐
            CheckMainMenu()
            '准备导航窗体
            OpenNavigateForm()

            ''如果当前操作账套未启用，则显示启用窗体
            If sysCurrentLedgerSetting IsNot Nothing AndAlso Not sysCurrentLedgerSetting.LedgerIfOpened Then
                Dim tmpOpenForm As frmFinancialSetupGlobalPrint = New frmFinancialSetupGlobalPrint()
                tmpOpenForm.ShowDialog()
            End If
        Else
            '没有账套可以选择，
            Me.Show()

            '指定状态栏内容
            CheckStatus()

            '准备菜单显隐
            CheckMainMenu()
            '准备导航窗体
            OpenNavigateForm()
        End If



    End Sub

    Private Sub OpenCurrentTLedgerSetting()
        Try

            '判断当前是否选择了账套
            If sysCurrentClsLedger Is Nothing Then