VB开发的ERP系统

      Begin VB.Menu c_gy 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "XT_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :销售系统主窗体
'*    功 能 描 述 :作为系统主界面
'*    程序员姓名  : 李建伟
'*    最后修改人  : 李建伟
'*    最后修改时间:2000/08/11
'**************************************
Dim Tsxx As String                           '系统提示信息

Private Sub c_gnbmjsq_Click()
    Shell App.Path & "\calc.exe", vbNormalNoFocus
End Sub

Private Sub c_gnbmkmrl_Click()
    Call Xt_Control.Zxxymk(Me.c_gnbmkmrl.Name)
End Sub

Private Sub c_gy_Click()
    Call Xt_Control.Zxxymk(Me.c_gy.Name)
End Sub

Private Sub c_quit_Click()
    Unload Me
End Sub

Private Sub c_xtbz_Click()
    Call Xt_Control.Zxxymk(Me.c_xtbz.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 0
End Sub

Private Sub mnuWindowTileHorizontal_Click()
    Me.Arrange 1
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 mnuWindowTileVertical_Click()
    Me.Arrange 2
End Sub

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 = 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
    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 = "【百利/ERP5.0】"
    End With

End Sub

Private Sub Xs_A_FlowAnalysis_Click()
    Call Xt_Control.Zxxymk(Me.Xs_A_FlowAnalysis.Name)
End Sub

Private Sub Xs_A_FrameAnalysis_Click()
    Call Xt_Control.Zxxymk(Me.Xs_A_FrameAnalysis.Name)
End Sub

Private Sub Xs_A_MarketAnalysis_Click()
    Call Xt_Control.Zxxymk(Me.Xs_A_MarketAnalysis.Name)
End Sub

Private Sub Xs_A_RiseAnalysis_Click()
    Call Xt_Control.Zxxymk(Me.Xs_A_RiseAnalysis.Name)
End Sub

Private Sub Xs_A_WareAnalysis_Click()
    Call Xt_Control.Zxxymk(Me.Xs_A_WareAnalysis.Name)
End Sub

Private Sub Xs_B_AreaSet_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_AreaSet.Name)
End Sub

Private Sub Xs_B_ContractType_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_ContractType.Name)
End Sub

Private Sub Xs_B_Custmer_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_Custmer.Name)
End Sub

Private Sub Xs_B_Deptset_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_Deptset.Name)
End Sub

Private Sub Xs_B_Person_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_Person.Name)
End Sub

Private Sub Xs_B_PriceList_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_PriceList.Name)
End Sub

Private Sub Xs_B_ReturnMoneyType_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_ReturnMoneyType.Name)
End Sub

Private Sub Xs_B_SellType_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_SellType.Name)
End Sub

Private Sub Xs_B_TradeSet_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_TradeSet.Name)
End Sub

Private Sub Xs_B_trans_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_trans.Name)
End Sub

Private Sub Xs_B_TransferCompany_Click()
    Call Xt_Control.Zxxymk(Me.Xs_B_TransferCompany.Name)
End Sub

Private Sub Xs_C_ConsignBill_Click()
    Call Xt_Control.Zxxymk(Me.Xs_C_ConsignBill.Name)
End Sub

Private Sub Xs_C_ConsignDisp_Click()
    Call Xt_Control.Zxxymk(Me.Xs_C_ConsignDisp.Name)
End Sub

Private Sub Xs_C_ConsignList_Click()
    Call Xt_Control.Zxxymk(Me.Xs_C_ConsignList.Name)
End Sub

Private Sub Xs_C_Contract_Click()
    Call Xt_Control.Zxxymk(Me.Xs_C_Contract.Name)
End Sub

Private Sub Xs_C_ContractList_Click()
    Call Xt_Control.Zxxymk(Me.Xs_C_ContractList.Name)
End Sub


Private Sub Xs_I_InvoiceBill_Click()
    Call Xt_Control.Zxxymk(Me.Xs_I_InvoiceBill.Name)
End Sub

Private Sub Xs_I_InvoiceList_Click()
    Call Xt_Control.Zxxymk(Me.Xs_I_InvoiceList.Name)
End Sub

Private Sub Xs_I_RedInvoice_Click()
    Call Xt_Control.Zxxymk(Me.Xs_I_RedInvoice.Name)
End Sub

Private Sub Xs_I_UseInvoice_Click()
    Call Xt_Control.Zxxymk(Me.Xs_I_UseInvoice.Name)
End Sub

Private Sub Xs_I_UseInvoicelist_Click()
    Call Xt_Control.Zxxymk(Me.Xs_I_UseInvoicelist.Name)
End Sub

Private Sub Xs_I_UseRedInvoice_Click()
    Call Xt_Control.Zxxymk(Me.Xs_I_UseRedInvoice.Name)
End Sub

Private Sub Xs_M_MoneyWareList_Click()
    Call Xt_Control.Zxxymk(Me.Xs_M_MoneyWareList.Name)
End Sub

Private Sub Xs_M_ReturnMoney_Click()
    Call Xt_Control.Zxxymk(Me.Xs_M_ReturnMoney.Name)
End Sub

Private Sub Xs_M_ReturnMoneyList_Click()
    Call Xt_Control.Zxxymk(Me.Xs_M_ReturnMoneyList.Name)
End Sub

Private Sub Xs_O_OrderBill_Click()
    Call Xt_Control.Zxxymk(Me.Xs_O_OrderBill.Name)
End Sub

Private Sub Xs_O_OrderExec_Click()
    Call Xt_Control.Zxxymk(Me.Xs_O_OrderExec.Name)
End Sub

Private Sub Xs_O_OrderList_Click()
    Call Xt_Control.Zxxymk(Me.Xs_O_OrderList.Name)
End Sub

Private Sub Xs_P_CustPlan_Click()
    Call Xt_Control.Zxxymk(Me.Xs_P_CustPlan.Name)
End Sub

Private Sub Xs_P_CustplanExecute_Click()
    Call Xt_Control.Zxxymk(Me.Xs_P_CustplanExecute.Name)
End Sub

Private Sub Xs_P_DepExecute_Click()
    Call Xt_Control.Zxxymk(Me.Xs_P_DepExecute.Name)
End Sub

Private Sub Xs_P_DeptPlan_Click()
    Call Xt_Control.Zxxymk(Me.Xs_P_DeptPlan.Name)
End Sub

Private Sub Xs_P_PersonExecute_Click()
    Call Xt_Control.Zxxymk(Me.Xs_P_PersonExecute.Name)
End Sub

Private Sub Xs_P_PersonPlan_Click()
    Call Xt_Control.Zxxymk(Me.Xs_P_PersonPlan.Name)
End Sub

Private Sub Xs_P_WareExecute_Click()
    Call Xt_Control.Zxxymk(Me.Xs_P_WareExecute.Name)
End Sub

Private Sub Xs_P_WarePlan_Click()
    Call Xt_Control.Zxxymk(Me.Xs_P_WarePlan.Name)
End Sub
Private Sub Xs_Q_QuitWare_Click()
    Call Xt_Control.Zxxymk(Me.Xs_Q_QuitWare.Name)
End Sub

Private Sub Xs_Q_QuitWareList_Click()
    Call Xt_Control.Zxxymk(Me.Xs_Q_QuitWareList.Name)
End Sub

Private Sub Xs_Q_Quotation_Click()
    Call Xt_Control.Zxxymk(Me.Xs_Q_Quotation.Name)
End Sub

Private Sub Xs_Q_QuotationList_Click()
    Call Xt_Control.Zxxymk(Me.Xs_Q_QuotationList.Name)
End Sub

Private Sub Xs_R_consignlist_Click()
    Call Xt_Control.Zxxymk(Me.Xs_R_consignlist.Name)
End Sub

Private Sub Xs_R_ConsignThing_Click()
    Call Xt_Control.Zxxymk(Me.Xs_R_ConsignThing.Name)
End Sub

Private Sub Xs_R_GeneralAccount_Click()
    Call Xt_Control.Zxxymk(Me.Xs_R_GeneralAccount.Name)
End Sub

Private Sub Xs_R_returnlist_Click()
    Call Xt_Control.Zxxymk(Me.Xs_R_returnlist.Name)
End Sub

Private Sub Xs_R_SaleAccount_Click()
    Call Xt_Control.Zxxymk(Me.Xs_R_SaleAccount.Name)
End Sub

Private Sub Xs_R_SaleList_Click()
    Call Xt_Control.Zxxymk(Me.Xs_R_SaleList.Name)
End Sub

Private Sub Xs_R_SaleThing_Click()
    Call Xt_Control.Zxxymk(Me.Xs_R_SaleThing.Name)
End Sub

Private Sub Xs_Register_Click()
    Call Xt_Control.Zxxymk(Me.Xs_Register.Name)
End Sub

Private Sub Xs_StockQuery_Click()
    Call Xt_Control.Zxxymk(Me.Xs_StockQuery.Name)
End Sub

Private Sub Xs_Z_MonthAccount_Click()
    Call Xt_Control.Zxxymk(Me.Xs_Z_MonthAccount.Name)
End Sub

Private Sub Xs_Z_UnMonthAccount_Click()
    Call Xt_Control.Zxxymk(Me.Xs_Z_UnMonthAccount.Name)
End Sub