⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ͸

📁 VB财务软件系统下载源代码提供自由下载使用学习
💻
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmCadSet.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmCadSet.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0103"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmSettlePrice.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmSettlePrice.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0104"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmAccUnit.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmAccUnit.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0105"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmOption.Show vbModal
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmOption.Show vbModal
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0201"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmAccGrp.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmAccGrp.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0202"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmAccDef.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmAccDef.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD020201"
        Case "FD020202"
        Case "FD020203"
        Case "FD020204"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmAccSet.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmAccSet.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0203"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmAccUpgrade.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmAccUpgrade.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0204"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmAccInfo.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmAccInfo.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0205"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmAccMgr.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmAccMgr.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD020501"
        Case "FD020502"
        Case "FD0301"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                If frmEstItem.check_open_Form Then
                    frmEstItem.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    If credstat.proctype = "jlzb" Then
                        frmEstItem.WindowState = vbMaximized
                    End If
                End If

            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    If frmEstItem.check_open_Form Then
                        frmEstItem.Show
                        zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                        zjLogInfo.ClearError
                    Else
                        If credstat.proctype = "jlzb" Then
                            frmEstItem.WindowState = vbMaximized
                        End If
                    End If
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0302"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                If frmEstModal.check_open_Form Then
                    frmEstModal.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    If credstat.proctype = "jlmx" Then
                        frmEstModal.WindowState = vbMaximized
                    End If
                End If
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    If frmEstModal.check_open_Form Then
                        frmEstModal.Show
                        zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                        zjLogInfo.ClearError
                    Else
                        If credstat.proctype = "jlmx" Then
                            frmEstModal.WindowState = vbMaximized
                        End If
                    End If
                Else
                    Gen_Msg
                End If
            End If
        Case "FD030201"
        Case "FD030202"
        Case "FD0303"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                If frmCreEstamate.check_open_Form Then
                    frmCreEstamate.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    If credstat.proctype = "xypj" Then
                        frmCreEstamate.WindowState = vbMaximized
                    End If
                End If
           Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    If frmCreEstamate.check_open_Form Then
                        frmCreEstamate.Show
                        zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                        zjLogInfo.ClearError
                    Else
                        If credstat.proctype = "xypj" Then
                            frmCreEstamate.WindowState = vbMaximized
                        End If
                    End If
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0304"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                If frmBorQuaLim.check_open_Form Then
                    frmBorQuaLim.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    If credstat.proctype = "dked" Then
                        frmBorQuaLim.WindowState = vbMaximized
                    End If
                End If
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    If frmBorQuaLim.check_open_Form Then
                        frmBorQuaLim.Show
                        zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                        zjLogInfo.ClearError
                    Else
                        If credstat.proctype = "dked" Then
                            frmBorQuaLim.WindowState = vbMaximized
                        End If
                    End If
                Else
                    Gen_Msg
                End If
            End If
            Case "FD0401"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                m_objAddon.Show zjLogInfo
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    m_objAddon.Show zjLogInfo
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0402"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmPrjDef.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmPrjDef.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0403"
        Case "FD040301"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmBudget.SetHead "smode", "0"
                frmBudget.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmBudget.SetHead "smode", "0"
                    frmBudget.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD04030101"
            
        Case "FD04030102"
            
        Case "FD040302"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmBudget.SetHead "smode", "1"
                frmBudget.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmBudget.SetHead "smode", "1"
                    frmBudget.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD04030201"
        Case "FD04030202"
        Case "FD04030203"
        Case "FD040303"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmPlan.SetHead "smode", "0"
                frmPlan.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmPlan.SetHead "smode", "0"
                    frmPlan.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD04030301"
        Case "FD04030302"
        Case "FD040304"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmPlan.SetHead "smode", "1"
                frmPlan.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmPlan.SetHead "smode", "1"
                    frmPlan.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD04030401"
        Case "FD04030402"
        Case "FD04030403"
        Case "FD0404"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmCollectionQuery.Show vbModal
                If frmCollectionQuery.where <> "" Then
                    frmCollection.Show
                    frmCollection.Cur = frmCollectionQuery.Cur
                    frmCollection.where = frmCollectionQuery.where
'                    frmCollection.Show
'                    Unload frmCollectionQuery
                End If
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -