快递系统源代码

MFC快递系统源代码

// AdoConnect.cpp: implementation of the CAdoConnect class.
//
//////////////////////////////////////////////////////////////////////

#include “stdafx.h“
#include “cdw.h“
#include “AdoConnect.h“

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CAdoConnect::CAdoConnect（）
{

}

CAdoConnect::~CAdoConnect（）
{

}

BOOL CAdoConnect::OnInitDBConnect（）
{
::CoInitialize（NULL）;        //初始化OLE/COM环境
	HRESULT hr;
	try
	{
		hr = m_pConnection.CreateInstance（“ADODB.Connection“）;      //创建Connection对象
		if（SUCCEEDED（hr））
		{
			_bstr_t strConnect;
			strConnect=“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=userinfo.mdb;Persist Security Info=False;Jet OLEDB:Database Password=“;
			m_pConnection->ConnectionTimeout =30;                      //设置超时时间为5秒
			hr = m_pConnection->Open（strConnect““““adModeUnknown）;
		}
	}
	catch（_com_error e）         //捕捉异常
	{
		CString errormessage;
		errormessage.Format（“连接数据库失败!\r\n错误信息:%s“e.ErrorMessage（））;
		AfxMessageBox（errormessage）;
		return false;
	}

	return true;
}
void CAdoConnect::ExitConnect（）
{
	//关闭记录集和连接
    if（m_pRecordset!=NULL）
		m_pRecordset->Close（）;
	m_pConnection->Close（）;
}
BOOL CAdoConnect::ExecuteSQL（_bstr_t bstrSQL）//执行参数bstrSQL所指定的SQL语句
{
	_variant_t RecordsAffected;
	try
	{
		if（m_pConnection==NULL）
			OnInitDBConnect（）;
		m_pConnection->Execute（bstrSQL&RecordsAffectedadCmdText）;
		return true;
	}
	catch（_com_error e）
	{
		CString errormessage;
		errormessage.Format（“执行语句失败!\r\n错误信息:%s“e.ErrorMessage（））;
		AfxMessageBox（errormessage）;
		return false;
	}	
}
_RecordsetPtr& CAdoConnect::GetRecordSet（_bstr_t bstrSQL）//从数据库中获得记录
{
	try
	{
		if（m_pConnection==NULL）      //连接数据库，如果Connection对象为空，则重新连接数据库
			OnInitDBConnect（）;
		m_pRecordset.CreateInstance（“ADODB.Recordset“）;   

		m_pRecordset->Open（bstrSQL_variant_t（（IDispatch *）m_pConnectiontrue）adOpenDynamicadLockOptimisticadCmdText）;      //取得表中的记录
	}
	catch（_com_error e）       //捕捉异常
	{
		CString errormessage;
		errormessage.Format（“获取数据库记录失败!\r\n错误信息:%s“e.ErrorMessage（））;
		AfxMessageBox（errormessage）;    
	}
	return m_pRecordset;       //返回结果集
}

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

     文件       2518  2007-12-24 17:58  快递系统代码\源代码\AdoConnect.cpp

     文件        911  2007-12-24 17:45  快递系统代码\源代码\AdoConnect.h

     文件        918  2007-12-25 22:33  快递系统代码\源代码\bgcx.cpp

     文件       1123  2007-12-25 22:33  快递系统代码\源代码\bgcx.h

     文件        992  2007-12-24 18:27  快递系统代码\源代码\bgzhuangtai.cpp

     文件       1193  2007-12-24 18:25  快递系统代码\源代码\bgzhuangtai.h

     文件      24816  2008-01-06 18:13  快递系统代码\源代码\cdw.aps

     文件       2440  2008-01-06 18:30  快递系统代码\源代码\cdw.clw

     文件       2021  2007-12-24 16:50  快递系统代码\源代码\cdw.cpp

     文件       4684  2007-12-24 18:28  快递系统代码\源代码\cdw.dsp

     文件        514  2007-12-24 16:50  快递系统代码\源代码\cdw.dsw

     文件       1291  2007-12-24 16:50  快递系统代码\源代码\cdw.h

     文件     263168  2008-01-06 18:30  快递系统代码\源代码\cdw.ncb

     文件      58880  2008-01-06 18:30  快递系统代码\源代码\cdw.opt

     文件       1161  2008-01-06 18:29  快递系统代码\源代码\cdw.plg

     文件       7331  2007-12-25 22:38  快递系统代码\源代码\cdw.rc

     文件       6848  2008-01-06 18:29  快递系统代码\源代码\cdwDlg.cpp

     文件       1393  2007-12-24 17:33  快递系统代码\源代码\cdwDlg.h

     文件       1096  2007-12-25 21:11  快递系统代码\源代码\JISONG.cpp

     文件       1201  2007-12-25 21:11  快递系统代码\源代码\JISONG.h

     文件       3525  2007-12-24 16:50  快递系统代码\源代码\ReadMe.txt

     文件       1078  2007-12-24 16:50  快递系统代码\源代码\res\cdw.ico

     文件        395  2007-12-24 16:50  快递系统代码\源代码\res\cdw.rc2

     文件       3262  2007-12-24 18:00  快递系统代码\源代码\res\richman8.ico

    ..A.SH.      3072  2008-01-04 21:57  快递系统代码\源代码\res\Thumbs.db

     文件       1138  2007-12-24 18:00  快递系统代码\源代码\Resource.h

     文件        205  2007-12-24 16:50  快递系统代码\源代码\StdAfx.cpp

     文件       1180  2007-12-24 17:46  快递系统代码\源代码\StdAfx.h

     文件    1064960  2008-01-06 18:25  快递系统代码\源代码\userinfo.mdb

     目录          0  2008-01-07 00:02  快递系统代码\源代码\res

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