VB开发的ERP系统

Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :财务总帐系统主窗体
'*    功 能 描 述 :作为系统主界面
'*    程序员姓名  : 奚俊峰
'*    最后修改人  : 奚俊峰
'*    最后修改时间:2002/01/02
'**************************************

Dim Tsxx As String                           '系统提示信息
                                            
   
Private Sub Cwzz_bmsz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_bmsz.Name)
End Sub

Private Sub Cwzz_cyzysz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_cyzysz.Name)
End Sub

Private Sub Cwzz_dlzlmsz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_dlzlmsz.Name)
End Sub

Private Sub Cwzz_ExchangeTran_Click()
    AutoTran_TranList.TranClassCode = "03"
    Call Xt_Control.Zxxymk(Me.Cwzz_ExchangeTran.Name)
End Sub

Private Sub Cwzz_gszysz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_gszysz.Name)
End Sub

Private Sub Cwzz_hxyhz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_hxyhz.Name)
End Sub

Private Sub Cwzz_ImportVouch_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_ImportVouch.Name)
End Sub

Private Sub Cwzz_jsfssz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_jsfssz.Name)
End Sub

Private Sub Cwzz_kjkmsz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_kjkmsz.Name)
End Sub

Private Sub Cwzz_ModelTran_Click()
    AutoTran_TranList.TranClassCode = "05"
    Call Xt_Control.Zxxymk(Me.Cwzz_ModelTran.Name)
End Sub

Private Sub Cwzz_pzlbsz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_pzlbsz.Name)
End Sub

Private Sub Cwzz_qcye_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_qcye.Name)
End Sub

Private Sub Cwzz_UserDefineTran_Click()
    AutoTran_TranList.TranClassCode = "01"
    Call Xt_Control.Zxxymk(Me.Cwzz_UserDefineTran.Name)
End Sub

Private Sub Cwzz_ProfitTran_Click()
    AutoTran_TranList.TranClassCode = "04"
    Call Xt_Control.Zxxymk(Me.Cwzz_ProfitTran.Name)
End Sub

Private Sub Cwzz_dlsmxz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_dlsmxz.Name)
End Sub

Private Sub Cwzz_dlzcx_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_dlzcx.Name)
End Sub

Private Sub Cwzz_fzbm_bmslmxz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzbm_bmslmxz.Name)
End Sub

Private Sub Cwzz_fzbm_bmslzz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzbm_bmslzz.Name)
End Sub

Private Sub Cwzz_fzbm_bmyeb_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzbm_bmyeb.Name)
End Sub

Private Sub Cwzz_fzbm_kmyeb_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzbm_kmyeb.Name)
End Sub

Private Sub Cwzz_fzgr_grslzz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzgr_grslzz.Name)
End Sub

Private Sub Cwzz_fzgrwl_grslmxz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzgrwl_grslmxz.Name)
End Sub

Private Sub Cwzz_fzgrwl_gryeb_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzgrwl_gryeb.Name)
End Sub

Private Sub Cwzz_fzgrwl_kmyeb_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzgrwl_kmyeb.Name)
End Sub

Private Sub Cwzz_fzgys_gysslzz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzgys_gysslzz.Name)
End Sub

Private Sub Cwzz_fzgyswl_gysslmxz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzgyswl_gysslmxz.Name)
End Sub

Private Sub Cwzz_fzgyswl_gysyeb_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzgyswl_gysyeb.Name)
End Sub

Private Sub Cwzz_fzgyswl_kmyeb_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzgyswl_kmyeb.Name)
End Sub

Private Sub Cwzz_fzkh_khslzz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzkh_khslzz.Name)
End Sub

Private Sub Cwzz_fzkhwl_khslmxz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzkhwl_khslmxz.Name)
End Sub

Private Sub Cwzz_fzkhwl_khyeb_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzkhwl_khyeb.Name)
End Sub

Private Sub Cwzz_fzkhwl_kmyeb_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_fzkhwl_kmyeb.Name)
End Sub

Private Sub Cwzz_gnbmjsq_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_gnbmjsq.Name)
End Sub

Private Sub Cwzz_gnbmkmrl_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_gnbmkmrl.Name)
End Sub

Private Sub Cwzz_gy_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_gy.Name)
End Sub

Private Sub Cwzz_hfjz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_hfjz.Name)
End Sub

Private Sub Cwzz_jzcl_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_jzcl.Name)
End Sub

Private Sub Cwzz_jzpzcl_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_jzpzcl.Name)
End Sub

Private Sub Cwzz_jzpzcx_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_jzpzcx.Name)
End Sub

Private Sub Cwzz_jzpzhz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_jzpzhz.Name)
End Sub

Private Sub Cwzz_kmyebcx_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_kmyebcx.Name)
End Sub

Private Sub Cwzz_mxzcx_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_mxzcx.Name)
End Sub

Private Sub Cwzz_quit_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_quit.Name)
End Sub

Private Sub Cwzz_Register_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_register.Name)
End Sub

Private Sub Cwzz_rjzcx_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_rjzcx.Name)
End Sub

Private Sub Cwzz_wbjhlsz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_wbjhlsz.Name)
End Sub

Private Sub Cwzz_wldwsz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_wldwsz.Name)
End Sub

Private Sub Cwzz_wlgysfl_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_wlgysfl.Name)
End Sub

Private Sub Cwzz_wlgyssz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_wlgyssz.Name)
End Sub

Private Sub Cwzz_xjllbbxm_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_xjllbbxm.Name)
End Sub

Private Sub Cwzz_xjllbcx_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_xjllbcx.Name)
End Sub

Private Sub Cwzz_xjllsjfp_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_xjllsjfp.Name)
End Sub

Private Sub Cwzz_xmmlsz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_xmmlsz.Name)
End Sub

Private Sub Cwzz_xtbz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_xtbz.Name)
End Sub

Private Sub Cwzz_yhdzd_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_yhdzd.Name)
End Sub

Private Sub Cwzz_yhDzdCx_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_yhDzdCx.Name)
End Sub

Private Sub Cwzz_yhdzqc_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_yhdzqc.Name)
End Sub

Private Sub Cwzz_yhgdqk_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_yhgdqk.Name)
End Sub

Private Sub Cwzz_yhye_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_yhye.Name)
End Sub

Private Sub Cwzz_yhzddz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_yhzddz.Name)
End Sub

Private Sub Cwzz_ymcl_nmjz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_ymcl_nmjz.Name)
End Sub

Private Sub Cwzz_ymcl_ymfjz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_ymcl_ymfjz.Name)
End Sub

Private Sub Cwzz_ymcl_ymjz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_ymcl_ymjz.Name)
End Sub

Private Sub Cwzz_zflz_Click()
    Call Xt_Control.Zxxymk(Me.Cwzz_zflz.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 mnuWindowCascade_Click()
    Me.Arrange vbCascade
End Sub

Private Sub mnuWindowTileHorizontal_Click()
    Me.Arrange vbTileHorizontal
End Sub

Private Sub mnuWindowTileVertical_Click()                                   '窗口横向平铺
    Me.Arrange vbTileVertical
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
End Sub

Private Sub mnu()
    
End Sub