VB开发的ERP系统

            Tsxx = "操作日期不在当前会计期间(" + Trim(Str(Xtyear)) + "." + Trim(Str(PGNowmon)) + ")之内,请重新登录!"
            Call Xtxxts(Tsxx, 0, 1)
        Else
            Xtcdcs = "1"
            DJ_AdjustInbill.Show 1
            Security_Log "Chhs_AdjustInEdit", Xtczybm, 2, False  '用户退出时写上机日志
        End If
    End If
End Sub

Private Sub Chhs_AdjustInlist_Click()               '入库单调整列表
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_AdjustInList", Xtczybm, 1) Then
        Exit Sub
    End If
    LB_AdjustInBillList.Show
    LB_AdjustInBillCond.Show 1
    Security_Log "Chhs_AdjustInList", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_Adjustoutbill_Click()         '出库单调整
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_AdjustInEdit", Xtczybm, 1) Then
        Exit Sub
    End If
    If Xtyear <> PGKjYear Then
        Tsxx = "操作日期不在当前会计年度(" + Trim(Str(PGKjYear)) + ")之内,请重新登录!"
        Call Xtxxts(Tsxx, 0, 1)
    Else
        If Xtmm <> PGNowmon Then
            Tsxx = "操作日期不在当前会计期间(" + Trim(Str(Xtyear)) + "." + Trim(Str(PGNowmon)) + ")之内,请重新登录!"
            Call Xtxxts(Tsxx, 0, 1)
        Else
            Xtcdcs = "1"
            DJ_AdjustOutBill.Show 1
            Security_Log "Chhs_AdjustInEdit", Xtczybm, 2, False  '用户退出时写上机日志
        End If
    End If
End Sub

Private Sub Chhs_AdjustOutList_Click()         '出库单调整列表
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_AdjustOutList", Xtczybm, 1) Then
        Exit Sub
    End If
    LB_AdjustOutBillList.Show
    LB_AdjustOutBillCond.Show 1
    Security_Log "Chhs_AdjustOutList", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_Adjustplanbill_Click()         '计划价调整
    Xtcdcs = "1"
    DJ_AdjustPlan.Show 1
End Sub

Private Sub Chhs_Avgprice_Click()           '平均单价列表
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_AvgPrice", Xtczybm, 1) Then
        Exit Sub
    End If
    CL_AveragePrice.Show
    CL_AveragePriceFind.Show 1
    Security_Log "Chhs_AvgPrice", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_Ccpz_Click()          '生成凭证
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_Scpz", Xtczybm, 1) Then
        Exit Sub
    End If
    If Xtyear <> PGKjYear Then
        Tsxx = "操作日期不在当前会计年度(" + Trim(Str(PGKjYear)) + ")之内,请重新登录!"
        Call Xtxxts(Tsxx, 0, 1)
    Else
        If Xtmm <> PGNowmon Then
            Tsxx = "操作日期不在当前会计期间(" + Trim(Str(Xtyear)) + "." + Trim(Str(PGNowmon)) + ")之内,请重新登录!"
            Call Xtxxts(Tsxx, 0, 1)
        Else
            CL_MakeVoucher.Show
            CL_MakeVoucherFind.Show 1
            Security_Log "Chhs_Scpz", Xtczybm, 2, False  '用户退出时写上机日志
        End If
    End If
End Sub

Private Sub Chhs_Cyl_Click()              '差异率列表
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_Cyl", Xtczybm, 1) Then
        Exit Sub
    End If
    If Qmclcy Then
        CL_Discrepancy.Show
        CL_DiscrepancyFind.Show 1
        Security_Log "Chhs_Cyl", Xtczybm, 2, False  '用户退出时写上机日志
    Else
        Tsxx = "系统期末不处理差异!"
        Call Xtxxts(Tsxx, 0, 4)
    End If
End Sub

Private Sub Chhs_Dfacc_Click()         '对方科目
    Jcsz_Dfacc.Show 1
End Sub

Private Sub Chhs_Diffft_Click()             '差异分摊
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_Cyft", Xtczybm, 1) Then
        Exit Sub
    End If
    If Qmclcy Then
        Tjfx_Diff.Show
        Tjfx_DiffCond.Show 1
        Security_Log "Chhs_Cyft", Xtczybm, 2, False  '用户退出时写上机日志
    Else
        Tsxx = "系统期末不处理差异!"
        Call Xtxxts(Tsxx, 0, 4)
    End If
End Sub

Private Sub Chhs_Djjz_Click()              '单据记帐
 Dim Rectemp As Recordset
    
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_Djjz", Xtczybm, 1) Then
        Exit Sub
    End If
    If Xtyear <> PGKjYear Then
        Tsxx = "操作日期不在当前会计年度(" + Trim(Str(PGKjYear)) + ")之内,请重新登录!"
        Call Xtxxts(Tsxx, 0, 1)
    Else
        If Xtmm <> PGNowmon Then
            Tsxx = "操作日期不在当前会计期间(" + Trim(Str(Xtyear)) + "." + Trim(Str(PGNowmon)) + ")之内,请重新登录!"
            Call Xtxxts(Tsxx, 0, 1)
        Else
            Set Rectemp = Cw_DataEnvi.DataConnect.Execute("select Gy_WareHouse.whcode from Gy_WareHouse left outer join Gy_Whlimit on Gy_WareHouse.whcode=Gy_Whlimit.whcode where Gy_Whlimit.czybm='" & Xtczybm & "' ")
            If Rectemp.EOF Then
                Tsxx = "没有进行仓库设置!"
                Call Xtxxts(Tsxx, 0, 4)
                Exit Sub
            Else
                Set Rectemp = Cw_DataEnvi.DataConnect.Execute("select Gy_WareHouse.whcode from Gy_WareHouse left outer join Gy_Whlimit on Gy_WareHouse.whcode=Gy_Whlimit.whcode where Gy_Whlimit.czybm='" & Xtczybm & "' and Gy_WareHouse.EndDealFlagChhs=0")
                If Rectemp.EOF Then
                    Tsxx = "仓库已全部期末处理,不允许进行记帐或恢复记帐操作!"
                    Call Xtxxts(Tsxx, 0, 4)
                    Exit Sub
                End If
            End If
            Set Rectemp = Nothing
            CL_BillChalkitup.Show
            CL_BillChalkitupCond.Show 1
            Security_Log "Chhs_Djjz", Xtczybm, 2, False  '用户退出时写上机日志
        End If
    End If
    
    Set Rectemp = Nothing
    
End Sub

Private Sub Chhs_Eval_Click()          '暂估存货设置
    If Xtclzg Then
        Jcsz_InterimMaterial.Show 1
    Else
        Tsxx = "系统不处理暂估!"
        Call Xtxxts(Tsxx, 0, 4)
    End If
End Sub

Private Sub Chhs_Evalfx_Click()             '暂估成本分析
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_EvalFx", Xtczybm, 1) Then
        Exit Sub
    End If
    If Xtclzg Then
        Tjfx_EvalFx.Show
        Tjfx_EvalFxCond.Show 1
        Security_Log "Chhs_EvalFx", Xtczybm, 2, False  '用户退出时写上机日志
    Else
        Tsxx = "系统不处理暂估!"
        Call Xtxxts(Tsxx, 0, 4)
    End If
End Sub

Private Sub Chhs_EvalPrice_Click()        '暂估单价处理
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_EvalPrice", Xtczybm, 1) Then
        Exit Sub
    End If
    CL_InterimMaterialPrice.Show
    CL_InterimMaterialFind.Show 1
    Security_Log "Chhs_EvalPrice", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_gnbmjsq_Click()        '计算器
    Shell App.Path & "\calc.exe", vbNormalFocus
End Sub

Private Sub Chhs_gnbmkmrl_Click()       '日历表
    XT_kjrlFrm.Show 1
End Sub

Private Sub Chhs_gy_Click()             '关于
    XT_frmAbout.Show
End Sub

Private Sub Chhs_Incbfx_Click()               '入库成本分析
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_InCbfx", Xtczybm, 1) Then
        Exit Sub
    End If
    Tjfx_IncbFx.Show
    Tjfx_IncbFxCond.Show 1
    Security_Log "Chhs_InCbfx", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_Inoutclasssum_Click()          '收发类别汇总表
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_InOutClassSum", Xtczybm, 1) Then
        Exit Sub
    End If
    Tjfx_InOutClassSum.Show
    Tjfx_InOutClassSumCond.Show 1
    Security_Log "Chhs_InOutClassSum", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_Insum_Click()            '入库单汇总表
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_InbillSum", Xtczybm, 1) Then
        Exit Sub
    End If
    Tjfx_InBillSum.Show
    Tjfx_InBillSumCond.Show 1
    Security_Log "Chhs_InbillSum", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_lsz_Click()             '流水帐
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_Lsz", Xtczybm, 1) Then
        Exit Sub
    End If
    Zbfx_InOut.Show
    Zbfx_InOutCond.Show 1
    Security_Log "Chhs_Lsz", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_Macc_Click()            '存货科目
    Jcsz_Macc.Show 1
End Sub

Private Sub Chhs_Matebill_Click()        '材料入库单
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_MateInEdit", Xtczybm, 1) Then
        Exit Sub
    End If
    If ClrkdKfsc Then
        If Not Sub_Records(Xtrq, "Chhs_V_MateInBill") Then
            Tsxx = CStr(Format(Xtrq, "yyyy-mm-dd")) + " 无单据!"
            Call Xtxxts(Tsxx, 0, 4)
        Else
            Xtcdcs = "1"
            DJ_MateInBill.Show 1
            Security_Log "Chhs_MateInEdit", Xtczybm, 2, False  '用户退出时写上机日志
        End If
    Else
        Xtcdcs = "1"
        DJ_MateInBill.Show 1
        Security_Log "Chhs_MateInEdit", Xtczybm, 2, False  '用户退出时写上机日志
    End If
End Sub

Private Sub Chhs_Mateinbilllist_Click()  '材料入库单列表
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_MateInBillList", Xtczybm, 1) Then
        Exit Sub
    End If
    LB_MateInBillList.Show
    LBCX_MateInBillListFind.Show 1
    Security_Log "Chhs_MateInBillList", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_Mateoutbill_Click()     '材料出库单
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_MateOutEdit", Xtczybm, 1) Then
        Exit Sub
    End If
    If Xt_XtJc Then
        If Not Sub_Records(Xtrq, "Chhs_V_MateOutBill") Then
            Tsxx = CStr(Format(Xtrq, "yyyy-mm-dd")) + " 无单据!"
            Call Xtxxts(Tsxx, 0, 4)
        Else
            Xtcdcs = "1"
            DJ_MateOutBill.Show 1
            Security_Log "Chhs_MateOutEdit", Xtczybm, 2, False  '用户退出时写上机日志
        End If
    Else
        Xtcdcs = "1"
        DJ_MateOutBill.Show 1
        Security_Log "Chhs_MateOutEdit", Xtczybm, 2, False  '用户退出时写上机日志
    End If
End Sub

Private Sub Chhs_Mateoutbilllist_Click()                '材料出库单列表
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_MateOutBillList", Xtczybm, 1) Then
        Exit Sub
    End If
    LB_MateOutBillList.Show
    LBCX_MateOutBillListFind.Show 1
    Security_Log "Chhs_MateOutBillList", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_Mxz_Click()                     '明细帐
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_Mxz", Xtczybm, 1) Then
        Exit Sub
    End If
    Zbfx_List.Show
    Zbfx_ListCond.Show 1
    Security_Log "Chhs_Mxz", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_Otherinbill_Click()        '其它入库单
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_OtherInEdit", Xtczybm, 1) Then
        Exit Sub
    End If
    If Xt_XtJc Then
        If Not Sub_Records(Xtrq, "Chhs_V_OtherInBill") Then
            Tsxx = CStr(Format(Xtrq, "yyyy-mm-dd")) + " 无单据!"
            Call Xtxxts(Tsxx, 0, 4)
        Else
            Xtcdcs = "1"
            DJ_OtherInBill.Show 1
            Security_Log "Chhs_OtherInEdit", Xtczybm, 2, False  '用户退出时写上机日志
        End If
    Else
        Xtcdcs = "1"
        DJ_OtherInBill.Show 1
        Security_Log "Chhs_OtherInEdit", Xtczybm, 2, False  '用户退出时写上机日志
    End If
End Sub

Private Sub Chhs_Otherinbilllist_Click()               '其它入库单列表
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_OtherInBillList", Xtczybm, 1) Then
        Exit Sub
    End If
    LB_OtherInBillList.Show
    LBCX_OtherInBillListFind.Show 1
    Security_Log "Chhs_OtherInBillList", Xtczybm, 2, False  '用户退出时写上机日志
End Sub

Private Sub Chhs_Otheroutbill_Click()                  '其它出库单
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_OtherOutEdit", Xtczybm, 1) Then
        Exit Sub
    End If
    If Xt_XtJc Then
        If Not Sub_Records(Xtrq, "Chhs_V_OtherOutBill") Then
            Tsxx = CStr(Format(Xtrq, "yyyy-mm-dd")) + " 无单据!"
            Call Xtxxts(Tsxx, 0, 4)
        Else
            Xtcdcs = "1"
            DJ_OtherOutBill.Show 1
            Security_Log "Chhs_OtherOutEdit", Xtczybm, 2, False  '用户退出时写上机日志
        End If
    Else
        Xtcdcs = "1"
        DJ_OtherOutBill.Show 1
        Security_Log "Chhs_OtherOutEdit", Xtczybm, 2, False  '用户退出时写上机日志
    End If
End Sub

Private Sub Chhs_Otheroutbilllist_Click()                '其它出库单列表
    '判断用户是否有此功能执行权限,如有则写上机日志(进入)
    If Not Security_Log("Chhs_OtheOutBillList", Xtczybm, 1) Then
        Exit Sub
    End If