-
大小: 4.5MB文件類型: .rar金幣: 2下載: 2 次發(fā)布日期: 2023-11-17
- 語言: VB
- 標(biāo)簽: 生產(chǎn)管理??ERP??VB源碼??樂樂源碼??
資源簡介
內(nèi)容索引:VB源碼,數(shù)據(jù)庫應(yīng)用,生產(chǎn)管理,ERP
一套生產(chǎn)管理方面的ERP源代碼,使用的第三方控件比較多,而且也附帶控件的源代碼,系統(tǒng)比較大,代碼也比較多,以前的功能無比這些強大,現(xiàn)在重點把其修改成了ERP系統(tǒng),里面還有一些測試數(shù)據(jù),你可好好參考感覺一番。
注:控件路徑什么的要對,要不然打開工程時候會提示錯誤,或找不到類庫。

代碼片段和文件信息
//
//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;
}
?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件?????156160??2008-04-02?08:49??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\3.31發(fā)貨.doc
?????文件?????168448??2008-04-06?10:57??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\4.1發(fā)貨.doc
?????文件?????115200??2008-04-21?17:13??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\4.21發(fā)貨.doc
?????文件?????104448??2008-04-06?15:04??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\4.6發(fā)貨.doc
?????文件??????59392??2008-04-08?14:17??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\4.8發(fā)貨.doc
?????文件?????122368??2008-04-09?15:44??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\4.9發(fā)貨.doc
?????文件??????13688??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件???????2499??2011-04-11?07:34??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件????????980??2011-04-11?07:28??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件???????9250??2011-04-11?07:53??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件????????246??2007-05-27?10:22??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????20936??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????41504??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件?????????56??2011-04-07?10:42??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????11970??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????19882??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件?????????56??2011-04-07?10:42??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????39716??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件????????112??2011-04-07?10:42??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????11970??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????39188??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件?????????84??2011-04-07?10:42??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????36754??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件?????????56??2011-04-07?10:42??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????76303??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件?????????56??2011-04-07?10:42??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????12104??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????12611??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????18699??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
?????文件??????43760??2011-04-11?07:32??Lelecode.com\碧海藍天生產(chǎn)管理系統(tǒng)ERP源代碼\ba
............此處省略666個文件信息
評論
共有 條評論