VB开发的ERP系统

'************************************************************************
'*    模 块 名 称 :系统主窗体
'*    功 能 描 述 :作为系统主界面
'*    程序员姓名  :魏永生
'*    最后修改人  :
'*    最后修改时间:2002/1/21
'************************************************************************

Dim Tsxx As String                           '系统提示信息

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_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_IncDb_Click()
    Call XT_Control.Zxxymk(Me.cwfx_IncDb.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 gy_kjrlb where qsrq<='" + .CzrqText.Text + "' and zzrq>='" + .CzrqText.Text + "'")
        If Not Xtrlrec.EOF Then
            Xtmm = Xtrlrec.Fields("period")
        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
    '----------bsj 10月10日---------------------------
    Call XT_Control.TreeInit '刷新树型菜单
    '-------------------------------------------------
End Sub

Private Sub ZBFX_BaseGuideLine_Click()
    Call XT_Control.Zxxymk(Me.ZBFX_BaseGuideLine.Name)
    
End Sub