VB开发的ERP系统

'*    程序员姓名  : 张建忠
'*    最后修改人  : 李海祥
'*    最后修改时间:2000/08/11
'**************************************
Dim Tsxx As String                           '系统提示信息

Private Sub c_gy_Click()
    XT_frmAbout.Show
End Sub

Private Sub c_quit_Click()
    On Error Resume Next
    
    Dim jsqte As Integer
    If Tcxt Then
        
        Unload_TF = True
        For jsqte = 0 To Forms.count - 1
            Unload Forms(jsqte)
        Next jsqte
        End
    End If
End Sub



Private Sub Cg_areasort_Click()
    Call Xt_Control.Zxxymk(Me.Cg_areasort.Name)
End Sub

Private Sub Cg_jsq_Click()
    Call Xt_Control.Zxxymk(Me.Cg_jsq.Name)
End Sub

Private Sub Cg_kjrl_Click()
    Call Xt_Control.Zxxymk(Me.Cg_kjrl.Name)
End Sub

Private Sub Cg_Material_Click()
    Call Xt_Control.Zxxymk(Me.Cg_Material.Name)
End Sub

Private Sub Cg_Register_Click()
    XT_login.Show 1
End Sub

Private Sub Cg_account_Click()
    Call Xt_Control.Zxxymk(Me.Cg_Account.Name)
End Sub


Private Sub Cg_bjfx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_bjfx.Name)
End Sub

Private Sub Cg_cancelaccount_Click()
    Call Xt_Control.Zxxymk(Me.Cg_cancelaccount.Name)
End Sub

Private Sub Cg_ddwlfx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_ddwlfx.Name)
End Sub

Private Sub Cg_fpmxb_Click()
    Call Xt_Control.Zxxymk(Me.Cg_fpmxb.Name)
End Sub

Private Sub Cg_fptjb_Click()
    Call Xt_Control.Zxxymk(Me.Cg_fptjb.Name)
End Sub

Private Sub Cg_fyfx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_fyfx.Name)
End Sub

Private Sub Cg_gysjgdbfx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_gysjgdbfx.Name)
End Sub



Private Sub Cg_hfpinput_Click()
    Call Xt_Control.Zxxymk(Me.Cg_hfpinput.Name)
End Sub



Private Sub Cg_hzcx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_hzcx.Name)
End Sub

Private Sub Cg_hzfpinput_Click()
    Call Xt_Control.Zxxymk(Me.Cg_hzfpinput.Name)
End Sub

Private Sub Cg_hzgl_Click()
    Call Xt_Control.Zxxymk(Me.Cg_hzgl.Name)
End Sub

Private Sub Cg_Invoicetype_Click()
    Call Xt_Control.Zxxymk(Me.Cg_Invoicetype.Name)
End Sub

Private Sub Cg_jhzxqk_Click()
    Call Xt_Control.Zxxymk(Me.Cg_jhzxqk.Name)
End Sub

Private Sub Cg_mxgl_Click()
    Call Xt_Control.Zxxymk(Me.Cg_mxgl.Name)
End Sub

Private Sub Cg_orderhzcx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_orderhzcx.Name)
End Sub

Private Sub Cg_orderinput_Click()
    Call Xt_Control.Zxxymk(Me.Cg_OrderInput.Name)
End Sub

Private Sub Cg_orderlist_Click()
    Call Xt_Control.Zxxymk(Me.Cg_OrderList.Name)
End Sub

Private Sub Cg_ordermxcx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_ordermxcx.Name)
End Sub

Private Sub Cg_ordertype_Click()
    Call Xt_Control.Zxxymk(Me.Cg_ordertype.Name)
End Sub

Private Sub Cg_pfpinput_Click()
    Call Xt_Control.Zxxymk(Me.Cg_pfpinput.Name)
End Sub

Private Sub Cg_pfplist_Click()
    Call Xt_Control.Zxxymk(Me.Cg_pfplist.Name)
End Sub

Private Sub Cg_planch_Click()
    Call Xt_Control.Zxxymk(Me.Cg_planch.Name)
End Sub

Private Sub Cg_planinput_Click()
    Call Xt_Control.Zxxymk(Me.Cg_PlanInput.Name)
End Sub

Private Sub Cg_planlist_Click()
    Call Xt_Control.Zxxymk(Me.Cg_PlanList.Name)
End Sub

Private Sub Cg_PurTypeSet_Click()
    Call Xt_Control.Zxxymk(Me.Cg_PurTypeSet.Name)
End Sub

Private Sub Cg_qkfk_Click()
    Call Xt_Control.Zxxymk(Me.Cg_qkfk.Name)
End Sub

Private Sub Cg_scxqcx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_scxqcx.Name)

End Sub

Private Sub Cg_sllr_Click()
    Call Xt_Control.Zxxymk(Me.Cg_sllr.Name)
End Sub

Private Sub Cg_slmxb_Click()
    Call Xt_Control.Zxxymk(Me.Cg_slmxb.Name)
End Sub

Private Sub Cg_sltjb_Click()
    Call Xt_Control.Zxxymk(Me.Cg_sltjb.Name)
End Sub

Private Sub Cg_spinvoice_Click()
    Call Xt_Control.Zxxymk(Me.Cg_spinvoice.Name)
End Sub

Private Sub Cg_spinvoicelist_Click()
    Call Xt_Control.Zxxymk(Me.Cg_spinvoicelist.Name)
End Sub

Private Sub Cg_Supplier_Click()
    Call Xt_Control.Zxxymk(Me.Cg_Supplier.Name)
End Sub

Private Sub Cg_SupplierSort_Click()
    Call Xt_Control.Zxxymk(Me.Cg_SupplierSort.Name)
End Sub

Private Sub Cg_syshelp_Click()
    Call Xt_Control.Zxxymk(Me.Cg_syshelp.Name)
End Sub

Private Sub Cg_szinvoice_Click()
    Call Xt_Control.Zxxymk(Me.Cg_szinvoice.Name)
End Sub

Private Sub Cg_szinvoicelist_Click()
    Call Xt_Control.Zxxymk(Me.Cg_szinvoicelist.Name)
End Sub

Private Sub Cg_thlb_Click()
    Call Xt_Control.Zxxymk(Me.Cg_thlb.Name)
End Sub

Private Sub Cg_thlr_Click()
    Call Xt_Control.Zxxymk(Me.Cg_thlr.Name)
End Sub





Private Sub Cg_Tradesort_Click()
    Call Xt_Control.Zxxymk(Me.Cg_Tradesort.Name)
End Sub

Private Sub Cg_wljgdbfx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_wljgdbfx.Name)
End Sub

Private Sub Cg_wlsort_Click()
    Call Xt_Control.Zxxymk(Me.Cg_wlsort.Name)
End Sub

Private Sub Cg_xjlb_Click()
    Call Xt_Control.Zxxymk(Me.Cg_xjlb.Name)
End Sub

Private Sub Cg_xjlr_Click()
    Call Xt_Control.Zxxymk(Me.Cg_xjlr.Name)
End Sub

Private Sub Cg_xllb_Click()
    Call Xt_Control.Zxxymk(Me.Cg_xllb.Name)
End Sub

Private Sub Cg_ymjz_Click()
    Call Xt_Control.Zxxymk(Me.Cg_ymjz.Name)
End Sub

Private Sub Cg_zfpinput_Click()
    Call Xt_Control.Zxxymk(Me.Cg_zfpinput.Name)
End Sub

Private Sub Cg_zfplist_Click()
    Call Xt_Control.Zxxymk(Me.Cg_zfplist.Name)
End Sub

Private Sub Cg_zhtjfx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_zhtjfx.Name)
End Sub

Private Sub Cg_zjbzfx_Click()
    Call Xt_Control.Zxxymk(Me.Cg_zjbzfx.Name)
End Sub

Private Sub Cg_zjys_Click()
    Call Xt_Control.Zxxymk(Me.Cg_zjys.Name)
End Sub



Private Sub Cg_zthwyeb_Click()
    Call Xt_Control.Zxxymk(Me.Cg_zthwyeb.Name)
End Sub

Private Sub Cg_zttjb_Click()
    Call Xt_Control.Zxxymk(Me.Cg_zttjb.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)))
        Xtkjqjgs = 12
        '业务操作日期
        Xtrq = CDate(.CzrqText.Text)
        '用户选择系统年度
        Xtyear = S2N(.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
    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