VB开发的ERP系统

                    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
        Case "Chhs_ProdInBill"                      '产品入库单
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Chhs_ProdInEdit", Xtczybm, 1) Then
                Exit Sub
            End If
            
            If Xt_XtJc Then
                If Not Sub_Records(Xtrq, "chhs_V_ProductInBill") Then
                    Tsxx = CStr(Format(Xtrq, "yyyy-mm-dd")) + " 无单据!"
                    Call Xtxxts(Tsxx, 0, 4)
                Else
                    Xtcdcs = "1"
                    DJ_ProdInBill.Show 1
                    Security_Log "Chhs_ProdInEdit", Xtczybm, 2, False  '用户退出时写上机日志
                End If
            Else
                Xtcdcs = "1"
                DJ_ProdInBill.Show 1
                Security_Log "Chhs_ProdInEdit", Xtczybm, 2, False  '用户退出时写上机日志
            End If
        Case "Chhs_OtherInBill"                     '其它入库单
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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
        Case "Chhs_MateOutBill"                     '材料出库单
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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
        Case "Chhs_SellOutBill"                     '销售出库单
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Chhs_SellOutEdit", Xtczybm, 1) Then
                Exit Sub
            End If
            
            If Xt_XtJc Then
               If Not Sub_Records(Xtrq, "Chhs_V_SellOutBill") Then
                   Tsxx = CStr(Format(Xtrq, "yyyy-mm-dd")) + " 无单据!"
                   Call Xtxxts(Tsxx, 0, 4)
               Else
                   Xtcdcs = "1"
                   DJ_SellOutBill.Show 1
                   Security_Log "Chhs_SellOutEdit", Xtczybm, 2, False  '用户退出时写上机日志
               End If
            Else
               Xtcdcs = "1"
               DJ_SellOutBill.Show 1
               Security_Log "Chhs_SellOutEdit", Xtczybm, 2, False  '用户退出时写上机日志
            End If
        Case "Chhs_OtherOutBill"                    '其它出库单
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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
            
            
        '单据列表
        Case "Chhs_MateInBillList"                  '材料入库单列表
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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  '用户退出时写上机日志
        Case "Chhs_ProdInBillList"                  '产品入库单列表
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Chhs_ProdInBillList", Xtczybm, 1) Then
                Exit Sub
            End If
            LB_ProdInBillList.Show
            LBCX_ProdInBillListFind.Show 1
            Security_Log "Chhs_ProdInBillList", Xtczybm, 2, False  '用户退出时写上机日志
        Case "Chhs_OtherInBillList"                 '其它入库单列表
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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  '用户退出时写上机日志
        Case "Chhs_MateOutBillList"                 '材料出库单列表
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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  '用户退出时写上机日志
        Case "Chhs_SellOutBillList"                 '销售出库单列表
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Chhs_SellOutBillList", Xtczybm, 1) Then
                Exit Sub
            End If
            LB_SellOutBillList.Show
            LBCX_SellOutBillListFind.Show 1
            Security_Log "Chhs_SellOutBillList", Xtczybm, 2, False  '用户退出时写上机日志
        Case "Chhs_OtheOutBillList"                '其它出库单列表
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Chhs_OtheOutBillList", Xtczybm, 1) Then
                Exit Sub
            End If
            LB_OtherOutBillList.Show
            LBCX_OtherOutBillListFind.Show 1
            Security_Log "Chhs_OtheOutBillList", Xtczybm, 2, False  '用户退出时写上机日志
        Case "Chhs_AdjustInBill"                     '入库单调整
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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_AdjustInbill.Show 1
                    Security_Log "Chhs_AdjustInEdit", Xtczybm, 2, False  '用户退出时写上机日志
                End If
            End If
        Case "Chhs_AdjustOutBill"                    '出库单调整
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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
        Case "Chhs_AdjustPlan"                       '计划价调整
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Chhs_AdjustPlan", Xtczybm, 1) Then
                Exit Sub
            End If
            Xtcdcs = "1"
            DJ_AdjustPlan.Show 1
            Security_Log "Chhs_AdjustPlan", Xtczybm, 2, False  '用户退出时写上机日志
        Case "Chhs_AdjustInList"                     '入库单调整列表
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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  '用户退出时写上机日志
        Case "Chhs_AdjustOutList"                    '出库单调整列表
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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  '用户退出时写上机日志
        
        '处理
        Case "Chhs_Djjz"                             '单据记帐
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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 gnsy, Xtczybm, 2, False  '用户退出时写上机日志
                End If
            End If
        Case "Chhs_Cyl"                              '差异率列表
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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
        Case "Chhs_AvgPrice"                         '平均单价列表
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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  '用户退出时写上机日志
        Case "Chhs_ProdPrice"                        '产品成本调整
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Chhs_ProdPrice", Xtczybm, 1) Then
                Exit Sub
            End If
            Cl_ProdPrice.Show
            Cl_ProdPriceCond.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Chhs_EvalPrice"                        '暂估单价处理
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Chhs_EvalPrice", Xtczybm, 1) Then
                Exit Sub
            End If
            CL_InterimMaterialPrice.Show
            CL_InterimMaterialFind.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Chhs_Qmcl"                             '期末处理
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Chhs_Qmcl", Xtczybm, 1) Then
                Exit Sub
            End If
            If Xtyear <> PGKjYear Then
                Tsxx = "操作日期不在当前会计年度(" + Trim(Str(PGKjYear)) + ")之内,请重新登录!"
                Call Xtxxts(Tsxx, 0, 1)
            Else
                CL_EndDispose.Show 1
                Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
            End If
        Case "Chhs_Scpz"                             '生成凭证
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            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