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

'*    最后修改时间:2001/08/21
'**************************************

Dim Tsxx As String                           '系统提示信息

'Private Sub cwfx_gnbmjsq_Click()
'  Call Xt_Control.Zxxymk(Me.cwfx_gnbmjsq.Name)
'End Sub

'Private Sub cwfx_gnbmkmrl_Click()
'  Call Xt_Control.Zxxymk(Me.cwfx_gnbmkmrl.Name)
'End Sub

Private Sub cwfx_gy_Click()
 Call Xt_Control.Zxxymk(Me.cwfx_gy.Name)
End Sub

Private Sub cwfx_quit_Click()
  Call Xt_Control.Zxxymk(Me.cwfx_quit.Name)
End Sub

Private Sub cwfx_wshxxd_Click()
 Call Xt_Control.Zxxymk(Me.cwfx_wshxxd.Name)
End Sub

Private Sub cwfx_xtbz_Click()
 Call Xt_Control.Zxxymk(Me.cwfx_xtbz.Name)
End Sub

Private Sub cwfx_AccntBudget_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_AccntBudget.Name)

End Sub

Private Sub cwfx_AccountBudgetA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_AccountBudgetA.Name)

End Sub

Private Sub cwfx_AccountDeptA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_AccountDeptA.Name)

End Sub

Private Sub cwfx_AccountStruA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_AccountStruA.Name)

End Sub

Private Sub cwfx_Balacen_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_Balacen.Name)
End Sub

Private Sub cwfx_BalDb_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_BalHb.Name)

End Sub

Private Sub cwfx_BalDj_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_BalDb.Name)

End Sub

Private Sub cwfx_BalHb_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_BalHb.Name)

End Sub

Private Sub cwfx_BalJds_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_BalJds.Name)

End Sub

Private Sub cwfx_BalJg_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_BalJg.Name)

End Sub

Private Sub cwfx_BaseProjSet_Click()
 Call Xt_Control.Zxxymk(Me.cwfx_BaseProjSet.Name)
End Sub

Private Sub cwfx_CashChangeA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_CashChangeA.Name)

End Sub

Private Sub cwfx_CashIncomeCost_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_CashIncomeCost.Name)

End Sub

Private Sub cwfx_CashStrucA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_CashStrucA.Name)

End Sub

Private Sub cwfx_CashTableA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_CashTableA.Name)

End Sub

Private Sub cwfx_CostBudgetA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_CostBudgetA.Name)

End Sub

Private Sub cwfx_CostChangeA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_CostChangeA.Name)

End Sub

Private Sub cwfx_CostStruA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_CostStruA.Name)

End Sub

Private Sub cwfx_DeptBudget_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_DeptBudget.Name)

End Sub

Private Sub cwfx_DeptBudgetA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_DeptBudgetA.Name)

End Sub

Private Sub cwfx_DeptCostStruA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_DeptCostStruA.Name)

End Sub

Private Sub cwfx_DeptInComeStruA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_DeptInComeStruA.Name)

End Sub

Private Sub cwfx_factor_Click()
    'Call Xt_Control.Zxxymk(Me.cwfx_factor.Name)

End Sub

Private Sub cwfx_IncDb_Click()
    'Call Xt_Control.Zxxymk(Me.cwfx_factor.Name)

End Sub

Private Sub cwfx_IncDj_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_IncDj.Name)

End Sub

Private Sub cwfx_IncHb_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_IncHb.Name)

End Sub

Private Sub cwfx_IncJds_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_IncJds.Name)

End Sub

Private Sub cwfx_IncJg_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_IncJg.Name)

End Sub

Private Sub cwfx_Income_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_Income.Name)
End Sub

Private Sub cwfx_IncomeBudgetA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_IncomeBudgetA.Name)

End Sub

Private Sub cwfx_InComeChangeA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_InComeChangeA.Name)

End Sub

Private Sub cwfx_InComeStruA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_InComeStruA.Name)

End Sub

Private Sub cwfx_Ite_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_Ite.Name)

End Sub

Private Sub cwfx_IteFx_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_IteFx.Name)

End Sub

Private Sub cwfx_ItemBudget_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_ItemBudget.Name)

End Sub

Private Sub cwfx_ItemBudgetA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_ItemBudgetA.Name)

End Sub

Private Sub cwfx_Pro_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_Pro.Name)

End Sub

Private Sub cwfx_ProfitBudget_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_ProfitBudget.Name)

End Sub

Private Sub cwfx_ProfitBudgetA_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_ProfitBudgetA.Name)

End Sub

Private Sub cwfx_ProFx_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_ProFx.Name)

End Sub

Private Sub cwfx_QsFx_Click()
Call Xt_Control.Zxxymk(Me.cwfx_QsFx.Name)
End Sub

Private Sub Cwfx_Register_Click()
 XT_login.Show 1
End Sub

Private Sub cwfx_Tag_Click()
    Call Xt_Control.Zxxymk(Me.cwfx_Tag.Name)

End Sub

'主窗体击活
Private Sub MDIForm_Activate()
   Timer1.Enabled = True
End Sub

Private Sub MDIForm_Load()
   
    '调入主操作界面
   Xt_Control.Show
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error Resume Next
    Dim Jsqte As Integer
    If Not Tcxt Then
       Cancel = True
    Else
       Unload_TF = True
       For Jsqte = 0 To Forms.count - 1
           Unload Forms(Jsqte)
       Next Jsqte
       End
    End If
End Sub



Private Sub mnuWindowArrangeIcons_Click()                                   '窗口排列图标
    Me.Arrange vbArrangeIcons
End Sub

Private Sub mnuWindowTileVertical_Click()                                   '窗口横向平铺
    Me.Arrange vbTileVertical
End Sub
Private Sub mnuWindowTileHorizontal_Click()                                 '窗口纵向平铺
    Me.Arrange vbTileHorizontal
End Sub
Private Sub mnuWindowCascade_Click()                                        '窗口层叠
    Me.Arrange vbCascade
End Sub

'************************'以下为程序固定不变部分*********************'

Private Function Tcxt() As Boolean                                       '退出系统提示
   Dim Answer As Integer
   Tsxx = "请确认是否退出系统？"
   Answer = Xtxxts(Tsxx, 2, 2)
   If Answer = 1 Then
      Tcxt = True
   Else
      Tcxt = False
   End If
End Function

Private Sub Timer1_Timer()                                        '在窗体激活后调入程序
   Timer1.Enabled = False
   If XT_login.QdCheck.Value = 1 Then
      Call Xtcsh
      XT_login.QdCheck.Value = 0
   End If
End Sub

Private Sub Xtcsh()                                               '系统主控制台及全局变量初始化
  With XT_login
    Xtczybm = Trim(Mid(.CzyCombo.Text, 1, InStr(1, .CzyCombo.Text, "-") - 1))
    Xtczy = Trim(Mid(.CzyCombo.Text, InStr(1, .CzyCombo.Text, "-") + 1, Len(.CzyCombo.Text)))
    Xtztbm = Trim(Mid(.ZtCombo.Text, 1, InStr(1, .ZtCombo.Text, "-") - 1))
    Xtdwm = Trim(Mid(.ZtCombo.Text, InStr(1, .ZtCombo.Text, "-") + 1, Len(.ZtCombo.Text)))
    
     '用户选择系统年度
    Xtyear = Val(.KjyearCombo.Text)
    '用户选择系统会计期间
    Set Xtrlrec = Cw_DataEnvi.DataConnect.Execute("Select * From xt_kjrlb where qsrq<='" + .CzrqText.Text + "' and zzrq>='" + .CzrqText.Text + "'")
    If Not Xtrlrec.EOF Then
       Xtmm = Xtrlrec.Fields("mm")
    End If
     '会计期间划分个数
    Xtkjqjgs = 12
    '业务操作日期
    Xtrq = CDate(.CzrqText.Text)
  End With
    
  With XT_Main.StatusBar1
    .Panels("OperStatus") = "就绪"
    .Panels("zt").Text = Xtdwm
    .Panels("czy").Text = Xtczy
    .Panels("rq").Text = "业务日期:" + Format(Xtrq, "yyyy-mm-dd")
    .Panels("rjbb").Text = "【新世纪/ERP】"
  End With
End Sub

Private Sub ZBFX_BaseGuideLine_Click()
    Call Xt_Control.Zxxymk(Me.ZBFX_BaseGuideLine.Name)

End Sub