VB开发的ERP系统

            End If
            Xs_B_ContractType.HelpContextID = 1402010
            Xs_B_ContractType.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_B_PriceList"                 '价格清单设置
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_B_PriceList", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_B_PriceList.HelpContextID = 1402011
            Xs_B_PriceList.Show
            Xs_B_PriceListQuery.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_Q_Quotation"                 '报价单编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_Q_QuotationEdit", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_Q_Quotation.HelpContextID = 1405001
            Xs_Q_Quotation.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_Q_QuotationList"             '报价单列表"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_Q_QuotationList", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_Q_QuotationList.HelpContextID = 1405002
            Xs_Q_QuotationList.Show
            Xs_Q_QuotationQuery.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_C_Contract"                    '合同编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_C_ContractEdit", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_C_Contract.HelpContextID = 1406001
            Xs_C_Contract.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_C_ContractList"                 '合同列表"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_C_ContractList", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_C_ContractList.HelpContextID = 1406002
            Xs_C_ContractList.Show
            Xs_C_ContractQuery.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        'P 销售计划
        Case "Xs_P_DeptPlan"                  '部门销售计划编制
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_P_DeptPlan", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_P_DeptPlan.HelpContextID = 1404001
            Xs_P_DeptPlanQuery.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_P_PersonPlan"                '销售员/货物销售计划编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_P_PersonPlan", Xtczybm, 1, True) Then
                Exit Sub
            End If
            FrmString = "Xs_P_PersonPlan"
            Xs_P_PersonPlan.HelpContextID = 1404002
            Xs_P_PersonPlanQuery.Show
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_P_WarePlan"                  '货物销售计划编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_P_WarePlan", Xtczybm, 1, True) Then
                Exit Sub
            End If
            FrmString = "Xs_P_WarePlan"
            Xs_P_WarePlan.HelpContextID = 1404003
            Xs_P_PersonPlanQuery.Show
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_P_CustPlan"                  '客户销售计划编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_P_CustPlan", Xtczybm, 1, True) Then
                Exit Sub
            End If
            FrmString = "Xs_P_CusPlan"
            Xs_P_CusPlan.HelpContextID = 1404004
            Xs_P_PersonPlanQuery.Show
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_P_DepExecute"                '部门销售计划执行情况"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_P_DepExecute", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_P_DepExecute.HelpContextID = 1404005
            Xs_P_DepExecute.Show
            Xs_P_DepExecuteQuery.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_P_PersonExecute"             '销售员/货物销售计划执行情况"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_P_PersonExecute", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_P_PersonExecute.HelpContextID = 1404006
            Xs_P_PersonExecute.Show
            Xs_P_PersonExecuteQuery.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_P_WareExecute"               '货物销售计划执行情况"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_P_WareExecute", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_P_WareExecute.HelpContextID = 1404007
            Xs_P_WareExecute.Show
            Xs_P_WareExecuteQuery.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_P_CustplanExecute"           '客户销售计划执行情况"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_P_CustplanExecute", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_P_CusExecute.HelpContextID = 1404008
            Xs_P_CusExecute.Show
            Xs_P_CusExecuteQuery.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        
        'O 订单
        Case "Xs_O_OrderBill"                 '订单编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_O_OrderBillEdit", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_O_OrderBill.HelpContextID = 1407001
            Xs_O_OrderBill.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_O_OrderList"                 '订单列表"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_O_OrderList", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_O_OrderList.HelpContextID = 1407002
            Xs_O_OrderList.Show
            Xs_O_OrderQuery.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_O_OrderExec"                 '订单执行情况"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_O_OrderExec", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_O_OrderExec.HelpContextID = 1407003
            Xs_O_OrderExec.Show
            Xs_O_OrderExecQuery.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        'C 发货单
        Case "Xs_C_ConsignBill"               '发货单编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_C_ConsignBillEdit", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_C_ConsignBill.HelpContextID = 1408001
            Xs_C_ConsignBill.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_C_ConsignList"               '发货单列表"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_C_ConsignList", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_C_ConsignList.HelpContextID = 1408002
            Xs_C_ConsignList.Show
            Xs_Ccx_ConsignList.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_C_ConsignDisp"               '发货单回执处理"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_C_ConsignDisp", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_C_ConsignDisp.HelpContextID = 1408003
            Xs_C_ConsignDisp.Show
            Xs_Ccx_ConsignDisp.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        
        'Q 退货单
        Case "Xs_Q_QuitWare"                  '退货单编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_Q_QuitWareEdit", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_Q_QuitWare.HelpContextID = 1409001
            Xs_Q_QuitWare.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_Q_QuitWareList"              '退货单列表"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_Q_QuitWareList", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_Q_QuitWareList.HelpContextID = 1409002
            Xs_Q_QuitWareList.Show
            Xs_Qcx_QuitWareList.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        
        'I 发票
        Case "Xs_I_InvoiceBill"               '普通发票编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_I_InvoiceBillEdit", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_I_InvoiceBill.HelpContextID = 1410001
            Xs_I_InvoiceBill.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_I_RedInvoice"                '普通红字发票编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_I_RedInvoiceEdit", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_I_RedInvoice.HelpContextID = 1410002
            Xs_I_RedInvoice.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_I_InvoiceList"               '普通发票列表"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_I_InvoiceList", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_I_InvoiceList.HelpContextID = 1410003
            Xs_I_InvoiceList.Show
            Xs_Icx_InvoiceList.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_I_UseInvoice"                '专用发票编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_I_UseInvoiceEdit", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_I_UseInvoice.HelpContextID = 1410004
            Xs_I_UseInvoice.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_I_UseRedInvoice"             '专用红字发票编制"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_I_UseRedInvoiceEdit", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_I_UseRedInvoice.HelpContextID = 1410005
            Xs_I_UseRedInvoice.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_I_UseInvoicelist"            '专用发票列表"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_I_UseInvoicelist", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_I_UseInvoicelist.HelpContextID = 1410006
            Xs_I_UseInvoicelist.Show
            Xs_Icx_UseInvoicelist.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        
        'M 回款
        Case "Xs_M_ReturnMoney"               '回款处理"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_M_ReturnMoneyEdit", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_M_ReturnMoney.HelpContextID = 1411001
            Xs_M_ReturnMoney.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_M_ReturnMoneyList"           '回款列表"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_M_ReturnMoneyList", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_M_ReturnMoneyList.HelpContextID = 1411002
            Xs_M_ReturnMoneyList.Show
            Xs_Mcx_ReturnMoneyList.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        Case "Xs_M_MoneyWareList"             '回款核销明细"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_M_MoneyWareList", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_M_MoneyWareList.HelpContextID = 1411003
            Xs_M_MoneyWareList.Show
            Xs_Mcx_MoneyWareList.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        
            
        '成品库存查询
        Case "Xs_StockQuery"                  '成品库存查询"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_StockQuery", Xtczybm, 1, True) Then
                Exit Sub
            End If
            KF_FrmNowQuan.HelpContextID = 1412001
            KF_FrmNowQuan.Show
            KF_FrmNowQuanCxtj.Show 1
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
        
        'C 结帐
        Case "Xs_Z_MonthAccount"              '月末结帐"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_Z_MonthAccount", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_Z_MonthAccount.BlTemp = True
            Xs_Z_MonthAccount.HelpContextID = 1415001
            Xs_Z_MonthAccount.Show
            Security_Log gnsy, Xtczybm, 2, False  '用户退出时写上机日志
            
        Case "Xs_Z_UnMonthAccount"            '取消结帐"
            '判断用户是否有此功能执行权限,如有则写上机日志(进入)
            If Not Security_Log("Xs_Z_UnMonthAccount", Xtczybm, 1, True) Then
                Exit Sub
            End If
            Xs_Z_MonthAccount.BlTemp = False
            Xs_Z_MonthAccount.HelpContextID = 1415002
            Xs_Z_MonthAccount.Show