财务分析 财财务分析务分析

    If Len(Trim(.Fields("sjgnbm"))) <= 2 Then
       nodX.EnsureVisible
    End If
    .MoveNext
  Loop
 End With
End Sub

'系统功能树操作
Private Sub tvTreeView_BeforeLabelEdit(Cancel As Integer)                     '屏蔽编辑
  Cancel = 1
End Sub
Private Sub tvTreeView_Collapse(ByVal Node As MSComctlLib.Node)               '功能树收缩
 If Node.Index <> 1 And Node.Key <> "T51" Then
    Node.Image = "stb"
 End If
 
End Sub
Private Sub tvTreeView_Expand(ByVal Node As MSComctlLib.Node)                 '功能树展开
 If Node.Index <> 1 And Node.Key <> "T51" Then
   Node.Image = "szk"
 End If
End Sub
Private Sub tvTreeView_DblClick()                                             '选择功能
  If tvTreeView.SelectedItem.Children = 0 Then
     Set Xtgnbrec = Cw_DataEnvi.DataConnect.Execute("SELECT * FROM xt_xtgnb where gnbm='" + Mid(Trim(tvTreeView.SelectedItem.Key), 2, Len(Trim(tvTreeView.SelectedItem.Key)) - 1) + "'")
     If Not Xtgnbrec.EOF Then
        gnsyte = Trim(Xtgnbrec.Fields("gnsy"))
        Call Zxxymk(gnsyte)
     End If
  End If
End Sub
Public Sub Zxxymk(gnsy As String)                                          '根据用户选择执行相应程序
    Dim RecTemp As New ADODB.Recordset     '临时使用动态集
    Dim SqlStr As String                   '临时查询字符串
    
    If Len(Trim(gnsy)) = 0 Then
       Exit Sub
    End If
  
  '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  If Not Security_Log(gnsy, Xtczybm, 1, True) Then
     Exit Sub
  End If
    
    '===========bsj=================================
    'DEBUG_FLAG为调试标志，为True时：正在调试
    'If DEBUG_FLAG = False Then On Error GoTo Cwcl:
    '================================================
    Select Case gnsy
        Case "cwfx_BaseProjSet"     '基本项目设置
            JC_FrmBaseProjSet.Show vbModal
        Case "cwfx_Balacen"         '资产负债表设置
            JC_FrmBalSetup.Show vbModal
        Case "cwfx_Income"          '损益表设置
            JC_FrmIncSetup.Show vbModal
        Case "cwfx_Tag"             '指标设置
            JC_FrmTagSetup.Show vbModal
        Case "cwfx_Pro"             '产品毛利率设置
            JC_FrmProSetup.Show vbModal
        Case "cwfx_Ite"             '项目毛利率设置
            JC_FrmIteSetup.Show vbModal
            
        '*************预算设置表
        Case "cwfx_DeptBudget"      '部门预算表
            Unload_TF = True
            YS_FrmDeptBudgetC.Show 1
        Case "cwfx_ItemBudget"      '项目预算表
            Unload_TF = True
            YS_FrmItemBudgetC.Show 1
        Case "cwfx_AccntBudget"     '科目预算表
            Unload_TF = True
            YS_FrmAccntBudgetC.Show 1
        Case "cwfx_ProfitBudget"    '利润预算表
            Unload_TF = True
            YS_FrmProfitBudgetC.Show 1
        '*************预算设置表
            
        Case "cwfx_CashIncomeCost"  '现金收支设置表
            Unload_TF = True
            JC_FrmCashIncomeCostC.Show 1
            
        Case "ZBFX_BaseGuideLine"   '指标分析
            ZBFX_BaseGuideLine.Show
            ZBFX_BaseGuideLineSeach.Show vbModal
        Case "cwfx_ProFx"           '产品分析
            ZBFX_ProFx.Show
        Case "cwfx_IteFx"           '项目分析
            ZBFX_IteFx.Show '
        Case "cwfx_BalJds"          '资产负债表分析-绝对数分析
            Call BalFx(gnsy)
        Case "cwfx_BalDj"           '资产负债表分析-定基分析
            Call BalFx(gnsy)
        Case "cwfx_BalHb"           '资产负债表分析-环比分析
            Call BalFx(gnsy)
        Case "cwfx_BalDb"           '资产负债表分析-对比分析
            Call BalFx2(gnsy)
        Case "cwfx_BalJg"           '资产负债表分析-结构分析
            Call BalFx2(gnsy)
        '-----------------------------------------------------
        Case "cwfx_IncJds"          '损益表分析-绝对数分析
            Call IncFx(gnsy)
        Case "cwfx_IncDj"           '损益表分析-定基分析
            Call IncFx(gnsy)
        Case "cwfx_IncHb"           '损益表分析-环比分析
            Call IncFx(gnsy)
        Case "cwfx_IncDb"           '损益表分析-对比分析
            Call IncFx(gnsy)
        Case "cwfx_IncJg"           '损益表分析-结构分析
            Call IncFx(gnsy)
        '===================================================
        
        
        '*************预算分析表
        Case "cwfx_DeptBudgetA"     '部门预算分析
            If bln_FrmBudgetA = True Then
                Unload YF_FrmAnalysis
            End If
            bln_FrmBudgetA = True
            Str_Title = "部门"
            Str_ReportSubTitle = "部门"
            Set Frm_AnalysisC = YF_FrmDeptC
            YF_FrmAnalysis.Show
            YF_FrmDeptC.Show vbModal
        Case "cwfx_ItemBudgetA"     '项目预算分析
             If bln_FrmBudgetA = True Then
                Unload YF_FrmAnalysis
            End If
            bln_FrmBudgetA = True
           Str_ReportSubTitle = "项目"
            Str_Title = "项目"
            Set Frm_AnalysisC = YF_FrmItemC
            YF_FrmAnalysis.Show
            YF_FrmItemC.Show vbModal
        Case "cwfx_AccountBudgetA"  '科目预算分析
            If bln_FrmBudgetA = True Then
                Unload YF_FrmAnalysis
            End If
            bln_FrmBudgetA = True
            Str_ReportSubTitle = "科目"
            Str_Title = "科目"
            str_BudgetProc = "cwfx_AccountBudget "
            Set Frm_AnalysisC = YF_FrmAccountC
            YF_FrmAnalysis.Show
            YF_FrmAccountC.Show vbModal
        Case "cwfx_IncomeBudgetA"   '收入预算分析
            If bln_FrmBudgetA = True Then
                Unload YF_FrmAnalysis
            End If
            bln_FrmBudgetA = True
            Str_Title = "收入"
            Str_ReportSubTitle = "收入"
            str_BudgetProc = "cwfx_IncomeBudget "
            Set Frm_AnalysisC = YF_FrmAccountC
            YF_FrmAnalysis.Show
            YF_FrmAccountC.Show vbModal
        Case "cwfx_CostBudgetA"     '成本费用预算分析
            If bln_FrmBudgetA = True Then
                Unload YF_FrmAnalysis
            End If
            bln_FrmBudgetA = True
            Str_Title = "成本"
            Str_ReportSubTitle = "成本"
            str_BudgetProc = "cwfx_CostBudget "
            Set Frm_AnalysisC = YF_FrmAccountC
            YF_FrmAnalysis.Show
            YF_FrmAccountC.Show vbModal
        Case "cwfx_ProfitBudgetA"   '利润预算分析
            YF_FrmProfitA.Show
            YF_FrmProfitC.Show vbModal
        '*************预算分析表
        
        '*************收入和成本分析表
        Case "cwfx_InComeChangeA"   '收入对比分析
            Set Frm_AnalysisA = SC_FrmIncomeCostChangeA
            str_AnalysisProc = "cwfx_IncomeCompare "
            Str_Title = "收入对比分析"
            Frm_AnalysisA.Show
            SC_FrmIncomeCostC.Show vbModal
        
        Case "cwfx_InComeStruA"     '收入结构分析
            Set Frm_AnalysisA = SC_FrmIncomeCostStruA
            str_AnalysisProc = "cwfx_IncomeCompare "
            Str_Title = "收入结构分析"
            Frm_AnalysisA.Show
            SC_FrmIncomeCostC.Show vbModal
        
        Case "cwfx_CostChangeA"     '成本费用对比分析
            Set Frm_AnalysisA = SC_FrmIncomeCostChangeA
            str_AnalysisProc = "cwfx_CostCompare "
            Str_Title = "成本费用对比分析"
            Frm_AnalysisA.Show
            SC_FrmIncomeCostC.Show vbModal
        
        Case "cwfx_CostStruA"       '成本费用结构分析
            Set Frm_AnalysisA = SC_FrmIncomeCostStruA
            str_AnalysisProc = "cwfx_CostCompare "
            Str_Title = "成本费用结构分析"
            Frm_AnalysisA.Show
            SC_FrmIncomeCostC.Show vbModal
        
        '*************收入和成本分析表
        
        
        '*************现金收支表分析
        Case "cwfx_CashTableA"      '现金收支表分析
            XJ_FrmCash.Show
            XJ_FrmCashC.Show vbModal
        Case "cwfx_CashStrucA"      '现金收支结构表分析
            Set Frm_AnalysisC = XJ_FrmCashStruA
            Frm_AnalysisC.Show
            XJ_FrmCashChangeC.Show vbModal
        Case "cwfx_CashChangeA"     '现金收支增减表分析
            Set Frm_AnalysisC = XJ_FrmCashChangeA
            Frm_AnalysisC.Show
            XJ_FrmCashChangeC.Show vbModal
        '*************现金收支表分析
        
        
        '*************因素分析
        Case "cwfx_QsFx" '因素趋势分析
            YSFX_FrmQsFx.Show
            YSFX_FrmQsSeach.Show vbModal
            '----查询窗体显示-------
        Case "cwfx_AccountStruA"        '科目结构分析
            YX_FrmAccountStruA.Show
            YX_FrmAccountStruC.Show vbModal
        Case "cwfx_DeptInComeStruA"     '部门收入分析
            str_AnalysisProc = "cwfx_DeptIncomeA "
            Str_Title = "部门收入科目分析表"
            YX_FrmDeptAccountA.Show
            YX_FrmDeptAccountC.Show vbModal
        Case "cwfx_DeptCostStruA"       '部门支出分析
            str_AnalysisProc = "cwfx_DeptCostA "
            Str_Title = "部门支出科目分析表"
            YX_FrmDeptAccountA.Show
            YX_FrmDeptAccountC.Show vbModal
        Case "cwfx_AccountDeptA"        '科目按部门分析
            YX_FrmAccountDeptA.Show
            YX_FrmAccountDeptC.Show vbModal
        '*************因素分析 end
        '文件
          Case "cwfx_register"                       '用户重新注册
             XT_login.HelpContextID = 1101
             XT_login.Show 1
          Case "c_quit"
            Unload XT_Main
        '工具
          Case "cwfx_gnbmkmrl"                       '会计日历
             XT_kjrlFrm.HelpContextID = 9802
             XT_kjrlFrm.Show 1
          
          Case "cwfx_gnbmjsq"                        '计算器
             Shell App.Path & "\calc.exe", vbNormalFocus
             
        '帮助
          Case "cwfx_wshxxd"                         '网上华夏新达
             XT_frmBrowser.Show 1
          Case "c_xtbz"                           '系统帮助
             Call F1bz
          Case "cwfx_gy"                             '关于
             XT_frmAbout.Show
        
        
    End Select
    
    Exit Sub
Cwcl:
    Tsxx = "此项系统功能有待完善!"
    Call Xtxxts(Tsxx, 0, 4)
    Exit Sub
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)        '用户关闭窗体
  If Unload_TF = False Then
     Cancel = 1
     Me.WindowState = 1
  End If
End Sub
Private Sub Form_Load()
    bln_FrmBudgetA = False       '公用变量代表窗体是否已经打开

    Me.Left = 0
    Me.Top = 0
    Me.Width = XT_Main.Width - 60
    Me.Height = XT_Main.Height - 760 - 690
    Call Cshgns
    
    '启动调入数据等待提示
    Load Xt_Wait
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    Dim i As Integer
    For i = Forms.count - 1 To 1 Step -1
        Unload Forms(i)
    Next
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    SaveSetting App.Title, "Settings", "ViewMode", lvListView.View
End Sub
Private Sub Form_Resize()
    On Error Resume Next
    If Me.Width < 3000 Then Me.Width = 3000
    SizeControls imgSplitter.Left
End Sub
Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With imgSplitter
        picSplitter.Move .Left, .Top, .Width \ 2, .Height - 20
    End With
    picSplitter.Visible = True
    mbMoving = True
End Sub
Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim sglPos As Single
    If mbMoving Then
        sglPos = X + imgSplitter.Left
        If sglPos < sglSplitLimit Then
            picSplitter.Left = sglSplitLimit
        ElseIf sglPos > Me.Width - sglSplitLimit Then
            picSplitter.Left = Me.Width - sglSplitLimit
        Else
            picSplitter.Left = sglPos
        End If
    End If
End Sub
Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    SizeControls picSplitter.Left
    picSplitter.Visible = False
    mbMoving = False
    lvListView.Refresh
End Sub
Private Sub TreeView1_DragDrop(Source As Control, X As Single, Y As Single)
    If Source = imgSplitter Then
        SizeControls X
    End If
End Sub
Sub SizeControls(X As Single)
    On Error Resume Next

    '设置 Width 属性
    If X < 3500 Then X = 3500
    If X > (Me.Width - 1500) Then X = Me.Width - 1500
    tvTreeView.Width = X
    imgSplitter.Left = X
    lvListView.Left = X + 40
    lvListView.Width = Me.Width - (tvTreeView.Width + 140)
    lblTitle(0).Width = tvTreeView.Width
    lblTitle(1).Left = lvListView.Left + 20
    lblTitle(1).Width = lvListView.Width - 40

    '设置 Top 属性

    tvTreeView.Top = tbToolBar.Height + picTitles.Height

    lvListView.Top = tvTreeView.Top

    '设置 height 属性
    tvTreeView.Height = Me.ScaleHeight - (picTitles.Top + picTitles.Height)
    
    lvListView.Height = tvTreeView.Height
    imgSplitter.Top = tvTreeView.Top
    imgSplitter.Height = tvTreeView.Height
End Sub
Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "返回"
            tvTreeView.SetFocus
              SendKeys "{up}", True
        Case "向前"
             tvTreeView.SetFocus
              SendKeys "{DOWN}", True
        Case "大图标"
            lvListView.View = lvwIcon
        Case "小图标"
            lvListView.View = lvwSmallIcon
        Case "列表"
            lvListView.View = lvwList
        Case "详细资料"
            lvListView.View = lvwReport
    End Select
End Sub