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

📄 ͸

📁 VB财务软件系统下载源代码提供自由下载使用学习
💻
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD040401"
        Case "FD040402"
        Case "FD040403"
        Case "FD040404"
        Case "FD0405"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmPlan.SetHead "smode", "2"
                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", "2"
                    frmPlan.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0406"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmBudget.SetHead "smode", "2"
                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", "2"
                    frmBudget.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD040407"
        Case "FD040408"
        Case "FD0501"
        Case "FD050101"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmVchStyle.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmVchStyle.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD050102"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmVchDefine.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmVchDefine.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0502"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmVchInput.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmVchInput.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0503"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmExportList.Show
                frmExportList.SetSql ""
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmExportList.Show
                    frmExportList.SetSql ""
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
'        Case "FD050302"
'            If zjloginfo.TaskExec(cAuthId, -1, zjloginfo.cIYear) Then
'                frmExportList.Show
'                frmExportList.SetSql ""
'                zjloginfo.TaskExec cAuthId, 0, zjloginfo.cIYear
'                zjloginfo.ClearError
'            Else
'                If mdlZhangjf.TaskExec(zjloginfo.cAcc_Id, zjloginfo.cUserId, cAuthId, zjloginfo.cIYear) Then
'                    frmExportList.Show
'                    frmExportList.SetSql ""
'                    zjloginfo.TaskExec cAuthId, 0, zjloginfo.cIYear
'                    zjloginfo.ClearError
'                Else
'                    Gen_Msg
'                End If
'            End If
        Case "FD0504"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmVchQueryFilter.Show vbModal
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmVchQueryFilter.Show vbModal
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0505"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmVouchf.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmVouchf.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0601"
        Case "FD0602"
            If DemoDataIsExpired Then Exit Sub
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmBook.Show 1
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmBook.Show 1
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0603"
        Case "FD0604"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                If checkPara Then
                    FrmAutoReturn.Show
                End If
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    If checkPara Then
                        FrmAutoReturn.Show
                    End If
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0605"
            Dim ofrmTuning As frmTuneJS
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                Set ofrmTuning = New frmTuneJS
                ofrmTuning.Show vbModal
                Set ofrmTuning = Nothing
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    Set ofrmTuning = New frmTuneJS
                    ofrmTuning.Show vbModal
                    Set ofrmTuning = Nothing
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0606"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                zjGen_arr.FD0606 = True
                zjLogInfo.ClearError
                frmLxjs.Show
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    zjGen_arr.FD0606 = True
                    zjLogInfo.ClearError
                    frmLxjs.Show
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0607"
        Case "FD0608"
        Case "FD0609"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                'frmVouchsXz.Show vbModal
                frmVouchsTj.Show
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    'frmVouchsXz.Show vbModal
                    frmVouchsTj.Show
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0610"
        Case "FD0611"
            Dim ofrmUnbook As frmUnBook
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                Set ofrmUnbook = New frmUnBook
                ofrmUnbook.Show 1
                Set ofrmUnbook = Nothing
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    Set ofrmUnbook = New frmUnBook
                    ofrmUnbook.Show 1
                    Set ofrmUnbook = Nothing
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0701"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmItem.Show 1
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmItem.Show 1
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0702"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmReportXz.Quitfs = True
                frmReportXz.strReportType = "Jszx"
                frmReportXz.Show vbModal
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmReportXz.Quitfs = True
                    frmReportXz.strReportType = "Jszx"
                    frmReportXz.Show vbModal
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0703"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmReportXz.Quitfs = True
                frmReportXz.strReportType = "Khye"
                frmReportXz.Show vbModal
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmReportXz.Quitfs = True
                    frmReportXz.strReportType = "Khye"
                    frmReportXz.Show vbModal
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0704"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmReportXz.Quitfs = True
                frmReportXz.strReportType = "Khdt"
                frmReportXz.Show vbModal
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmReportXz.Quitfs = True
                    frmReportXz.strReportType = "Khdt"
                    frmReportXz.Show vbModal
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0705"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmReportXz.Quitfs = True
                frmReportXz.strReportType = "Yhdt"
                frmReportXz.Show vbModal
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmReportXz.Quitfs = True
                    frmReportXz.strReportType = "Yhdt"
                    frmReportXz.Show vbModal
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0706"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmXShFind.Quitfs = True
                frmXShFind.Show vbModal
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmXShFind.Quitfs = True
                    frmXShFind.Show vbModal
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
                    Gen_Msg
                End If
            End If
        Case "FD0707"
            If zjLogInfo.TaskExec(cAuthId, -1, zjLogInfo.cIYear) Then
                frmRzhyeXz.Quitfs = True
                frmRzhyeXz.Show vbModal
                zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                zjLogInfo.ClearError
            Else
                If mdlZhangjf.TaskExec(zjLogInfo.cAcc_Id, zjLogInfo.cUserId, cAuthId, zjLogInfo.cIYear) Then
                    frmRzhyeXz.Quitfs = True
                    frmRzhyeXz.Show vbModal
                    zjLogInfo.TaskExec cAuthId, 0, zjLogInfo.cIYear
                    zjLogInfo.ClearError
                Else
12345

⌨️ 快捷键说明

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