VB开发的ERP系统

Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :财务总帐系统主窗体
'*    功 能 描 述 :作为系统主界面
'*    程序员姓名  : 张建忠
'*    最后修改人  : 张建忠
'*    最后修改时间:2000/08/11
'**************************************
Dim Tsxx As String                           '系统提示信息

Private Sub c_khdasz_Click()
 KF_FrmMateChoice.Show
End Sub

Private Sub c_gy_Click()
    XT_frmAbout.Show
End Sub

Private Sub c_quit_Click()
    Unload Me
End Sub

Private Sub c_xtbz_Click()
    SendKeys "{F1}"
End Sub

Private Sub KF_Collate_Click()
    Call Xt_Control.Zxxymk("KF_Collate")
End Sub

Private Sub Kf_Counter_Click()
    Call Xt_Control.Zxxymk("Kf_Counter")
End Sub

Private Sub KF_Material_Click()
    Call Xt_Control.Zxxymk("KF_Material")
End Sub

Private Sub Kf_Register_Click()
    Call Xt_Control.Zxxymk("Kf_Register")
End Sub

Private Sub Kf_SysDefine_Click()
    Call Xt_Control.Zxxymk("Kf_SysDefine")
End Sub

Private Sub KF_Warehouse_Click()
    Call Xt_Control.Zxxymk("KF_Warehouse")
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 Kf_BalanceMateIn_Click()
    Call Xt_Control.Zxxymk("Kf_BalanceMateIn")
End Sub

Private Sub mnuAge_Click()
    Call Xt_Control.Zxxymk("Kf_AgeAssay")
End Sub

Private Sub mnuArea_Click()
    Call Xt_Control.Zxxymk("Kf_Area")
End Sub

Private Sub mnuAuto_Click()
    Call Xt_Control.Zxxymk("Kf_AutoBanlance")
End Sub

Private Sub mnuBanlanceList_Click()
    Call Xt_Control.Zxxymk("Kf_BanlanceList")
End Sub

Private Sub mnuBatchLedger_Click()
    Call Xt_Control.Zxxymk("Kf_BatchLedger")
End Sub

Private Sub mnuBatchMate_Click()
    Call Xt_Control.Zxxymk("Kf_BatchSum")
End Sub

Private Sub mnuCaiLiao_Click()
    Call Xt_Control.Zxxymk("Kf_MaterialLedger")
End Sub

Private Sub mnuCost_Click()
    Call Xt_Control.Zxxymk("Kf_Cost")
End Sub

Private Sub mnuDay_Click()
    Call Xt_Control.Zxxymk("KF_DayReport")
End Sub

Private Sub mnuDbd_Click()
    Call Xt_Control.Zxxymk("Kf_DBD")
End Sub

Private Sub mnuDbdList_Click()
    Call Xt_Control.Zxxymk("Kf_DbbList")
End Sub

Private Sub mnuDeskLedger_Click()
    Call Xt_Control.Zxxymk("Kf_DeskLedger")
End Sub

Private Sub mnuDzjy_Click()
    Call Xt_Control.Zxxymk("Kf_DzjyAssay")
End Sub

Private Sub mnuGetMaterial_Click()
    Call Xt_Control.Zxxymk("Kf_GetMaterial")
End Sub

Private Sub mnuHand_Click()
    Call Xt_Control.Zxxymk("Kf_HandBalance")
End Sub

Private Sub mnuInOutSum_Click()
    Call Xt_Control.Zxxymk("Kf_InOutSum")
End Sub

Private Sub mnuInOutType_Click()
    Call Xt_Control.Zxxymk("Kf_InOutTypeSum")
End Sub

Private Sub mnuInSum_Click()
    Call Xt_Control.Zxxymk("Kf_InSum")
End Sub

Private Sub mnuKjrlb_Click()
    Call Xt_Control.Zxxymk("Kf_Kjrlb")
End Sub

Private Sub mnuLowAlart_Click()
    Call Xt_Control.Zxxymk("Kf_LowerAlart")
End Sub

Private Sub mnuMateBatch_Click()
    Call Xt_Control.Zxxymk("Kf_MaterialSum")
End Sub

Private Sub mnuMateOutList_Click()
    Call Xt_Control.Zxxymk("Kf_MaterialOutList")
End Sub

Private Sub mnuMateReq_Click()
    Call Xt_Control.Zxxymk("KF_IssueApply")
End Sub

Private Sub mnuMateReqList_Click()
    Call Xt_Control.Zxxymk("Kf_MRList")
End Sub

Private Sub mnuMaterial_Click()
'    Call Xt_Control.Zxxymk("Kf_MaterialIn")
End Sub

'Private Sub mnuMaterialList_Click()
'    Call Xt_Control.Zxxymk("Kf_MaterialInList")
'End Sub

Private Sub mnuMaterialOut_Click()
    Call Xt_Control.Zxxymk("Kf_MaterialOut")
End Sub

Private Sub mnuMateSort_Click()
    Call Xt_Control.Zxxymk("Kf_MateSort")
End Sub

Private Sub mnuMonthCheck_Click()
    Call Xt_Control.Zxxymk("Kf_MonthCheck")
End Sub

Private Sub mnuNowQuan_Click()
    Call Xt_Control.Zxxymk("Kf_NowQuan")
End Sub

Private Sub mnuOtherIn_Click()
    Call Xt_Control.Zxxymk("Kf_OtherIn")
End Sub

Private Sub mnuOtherInList_Click()
    Call Xt_Control.Zxxymk("Kf_OtherInList")
End Sub

Private Sub mnuOtherOut_Click()
    Call Xt_Control.Zxxymk("Kf_OtherOut")
End Sub

Private Sub mnuOtherOutList_Click()
    Call Xt_Control.Zxxymk("Kf_OtherOutList")
End Sub

Private Sub mnuOutSum_Click()
    Call Xt_Control.Zxxymk("Kf_OutSum")
End Sub

Private Sub mnuOverAlart_Click()
    Call Xt_Control.Zxxymk("Kf_OverAlart")
End Sub

Private Sub mnuPdd_Click()
    Call Xt_Control.Zxxymk("Kf_PDD")
End Sub

Private Sub mnuPddList_Click()
    Call Xt_Control.Zxxymk("Kf_PddList")
End Sub

Private Sub mnuProductIn_Click()
    Call Xt_Control.Zxxymk("Kf_ProductIn")
End Sub

Private Sub mnuProductInList_Click()
    Call Xt_Control.Zxxymk("Kf_ProductInList")
End Sub

Private Sub mnuProject_Click()
    Call Xt_Control.Zxxymk("Kf_Project")
End Sub

Private Sub mnuProjectType_Click()
    Call Xt_Control.Zxxymk("Kf_ProjectType")
End Sub

Private Sub mnuQuanAlart_Click()
    Call Xt_Control.Zxxymk("Kf_QualityAlart")
End Sub

Private Sub mnuRepair_Click()
    Call Xt_Control.Zxxymk("Kf_RepariNowQuan")
End Sub

Private Sub mnuSafeAlart_Click()
    Call Xt_Control.Zxxymk("Kf_SafeAlart")
End Sub

Private Sub mnuSellOut_Click()
    Call Xt_Control.Zxxymk("Kf_SellOut")
End Sub

Private Sub mnuSellOutList_Click()
    Call Xt_Control.Zxxymk("Kf_SellOutList")
End Sub

Private Sub mnuStartChalk_Click()
    Call Xt_Control.Zxxymk("Kf_StartChalk")
End Sub

Private Sub mnuStartFinish_Click()
    Call Xt_Control.Zxxymk("Kf_StartFinish")
End Sub

Private Sub mnuStartInput_Click()
    Call Xt_Control.Zxxymk("Kf_StartInput")
End Sub

Private Sub mnuStartInputList_Click()
    Call Xt_Control.Zxxymk("Kf_StartInputList")
End Sub

Private Sub mnuStartStockIn_Click()
    Call Xt_Control.Zxxymk("Kf_StartStockIn")
End Sub

Private Sub mnuStartStockInList_Click()
    Call Xt_Control.Zxxymk("Kf_StartStockInList")
End Sub

Private Sub mnuStockIn_Click()
    Call Xt_Control.Zxxymk("Kf_StockIn")
End Sub

Private Sub mnuStockInList_Click()
    Call Xt_Control.Zxxymk("Kf_StockInList")
End Sub


Private Sub mnuWasteLedger_Click()
    Call Xt_Control.Zxxymk("Kf_WaterLedger")
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 mnuYeWu_Click()
    Call Xt_Control.Zxxymk("Kf_TransactSum")
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