生产管理系统源代码

大小: 3.54MB

文件类型: .rar

金币: 1

下载: 0 次

发布日期: 2023-10-30
语言: 其他
标签:

高速下载

资源简介

生产管理软件针对中小型制造企业的生产应用而开发，能够帮助企业建立一个规范准确即时的生产数据库，同时实现轻松、规范、细致的生产业务、库存业务一体化管理工作。提高管理效率、掌握及时、准确、全面的生产动态，有效控制生产过程。适用于所有从事产品制造及有库存管理的企业。

资源截图

小图大图

代码片段和文件信息

//Download by http://www.NewXing.com
//
//Math.cpp
//

#include 
#include “math.h“

//
//Math class implementation
//
Math::Math（）
{
	m_lRef=0;
	//Increment the global object count
	InterlockedIncrement（&g_lObjs）;
}

//the destructor
Math::~Math（）
{
	//Decrement the global object count
	InterlockedDecrement（&g_lObjs）;
}
STDMETHODIMP Math::QueryInterface（REFIID riidvoid ** ppv）
{
	*ppv=0;
	if（riid==IID_IUnknown）
		*ppv=（IMath*）this;
	else if（riid==IID_IMath）
		*ppv=（IMath*）this;
	else if（riid==IDD_IAdvanecedMath）
		*ppv=（IAdvancedMath*）this;
	if（*ppv）
	{
		AddRef（）;
		return（S_OK）;
	}
	return （E_NOINTERFACE）;
}

STDMETHODIMP_（ULONG） Math::AddRef（）
{
	return InterlockedIncrement（&m_lRef）;
}
STDMETHODIMP_（ULONG） Math::Release（）
{
	if（InterlockedDecrement（&m_lRef）==0）
	{
		delete this;
		return 0;
	}
	return m_lRef;
}
STDMETHODIMP Math::Add（long lOp1long lOp2long* pResult）
{
	*pResult=lOp1+lOp2;
	return S_OK;
}

STDMETHODIMP Math::Subtract（long lOp1long lOp2long* pResult）
{
	*pResult=lOp1-lOp2;
	return S_OK;
}
STDMETHODIMP Math::Multiply（long lOp1long lOp2long* pResult）
{
	*pResult=lOp1*lOp2;
	return S_OK;
}
STDMETHODIMP Math::Divide（long lOp1long lOp2long* pResult）
{
	*pResult=lOp1/lOp2;
	return S_OK;
}
//IAdvancedMath interface
static long calcFactorial（short n）
{
	//The factorial of 0 is 1
	if（n<=1）
		return 1;
	return n*calcFactorial（n-1）;
}
STDMETHOD Math::Factorial（short sOplong* pResult）
{
	*pResult=calcFactorial（sOp）;
	return S_OK;
}
static long calcFibonacci（short n）
{
	if（n<=1）
		return 1;
	return calcFibonacci（n-1）+calcFibonacci （n-2）;
}
STDMETHOD Math::Fibonacci（short sOplong* pResult）
{
	*pResult=calcFibonacci（sOp）;
	return S_OK;
}


MathClassFactory::MathClassFactory（）
{
	m_lRef=0;
}
MathClassFactory::~MathClassFactory（）
{
}
STDMETHODIMP MathClassFactory::QueryInterface（REFIID riidvoid** ppv）
{
	*ppv=0;
	if（riid==IID_IUnknown||riid==IID_IClassFactory）
		*ppv=this;
	if（*ppv）
	{
		AddRef（）;
		return S_OK;
	}
	return （E_NOINTERFACE）;
}

STDMETHODIMP_（ULONG） MathClassFactory::AddRef（）
{
	return InterlockedIncrement（&m_lRef）;
}
STDMETHODIMP_（ULONG） MathClassFactory::Release（）
{
	if（InterlockedDecrement（&m_lRef）==0）
	{
		delete this;
		return 0;
	}
	return m_lRef;
}

STDMETHODIMP MathClassFactory::CreateInstance
	（LPUNKNOWN pUnkOuterREFIID riidvoid** ppvObj）
{
	Math* pMath;
	HRESULT hr;
	*ppvObj=0;

	pMath=new Math;
	if（pMath==0）
		return（E_OUTOFMEMORY）;
	hr=pMath->QueryInterface（riidppvObj）;
	if（FAILED（hr））
		delete pMath;
	return hr;
}

STDMETHODIMP MathClassFactory::LockServer（BOOL fLock）
{
	if（fLock）
		InterlockedIncrement（&g_lLocks）;
	else
		InterlockedDecrement（&g_lLocks）;
	return S_OK;
}

属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

    .......         0  2002-10-29 01:51  www.NewXing.com\ERPSourceCode\第三方控件\DOCKMAGIC\Demo\Install.bat.bak

    .......         0  2002-10-29 01:51  www.NewXing.com\ERPSourceCode\所需组件\DOCKMAGIC\Demo\Install.bat.bak

    .......        23  2002-10-29 01:52  www.NewXing.com\ERPSourceCode\第三方控件\DOCKMAGIC\Demo\UnInstall.bat.bak

    .......        23  2002-10-29 01:52  www.NewXing.com\ERPSourceCode\所需组件\DOCKMAGIC\Demo\UnInstall.bat.bak

     文件        126  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\SaleBill\base.bas

     文件        143  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\BePrint\base.bas

     文件        166  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\DataCreate\base.bas

     文件        256  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\Common\ListSelect\List\base.bas

     文件        256  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\DBA\baseDataTools\base.bas

     文件        830  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\PersistentConnectionlayer\base.bas

     文件        863  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\Column\base.bas

     文件        865  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\Filter\base.bas

     文件        974  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\Common\BillListSelect\List\base.bas

     文件        974  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\List\base.bas

     文件        986  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\Common\Accountbase\base.bas

     文件       3233  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\PurchaseBill\base.bas

     文件       3233  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\StockBill\base.bas

     文件       4023  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\ProductionBill\base.bas

     文件       4740  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\BeBillTemplate\base.bas

     文件      14031  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\baseCard\base.bas

     文件      13431  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\所需组件\mdiactivex107svb6\Definitionen.bas

     文件      14149  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\第三方控件\mdiactivex107svb6\Definitionen.bas

    .......     28897  2001-08-28 18:57  www.NewXing.com\ERPSourceCode\所需组件\mdiactivex107svb6\Funktionen.bas

    .......     29615  2011-04-07 10:47  www.NewXing.com\ERPSourceCode\第三方控件\mdiactivex107svb6\Funktionen.bas

     文件        400  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\DatabaseInputOutput\mdlMain.bas

     文件       9370  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\Main\mdlMain.bas

     文件       4302  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\第三方控件\jcMDITabs13\jcMDITabs\modSystem.bas

     文件        177  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\第三方控件\DOCKMAGIC\Demo\Module1.bas

     文件        177  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\所需组件\DOCKMAGIC\Demo\Module1.bas

     文件       1327  2011-07-06 20:16  www.NewXing.com\ERPSourceCode\第三方控件\jcMDITabs13\TEST\modUniCaption.bas

............此处省略839个文件信息

共有条评论

生产管理系统源代码

资源简介

资源截图

代码片段和文件信息

评论

相关资源