人工智能——产生式系统——植物识别

小小的植物识别系统，用vc做的，给大家分享一下，呵呵，学习学习

// AdoModule.cpp: implementation of the CAdoModule class.
//
//////////////////////////////////////////////////////////////////////

#include “stdafx.h“
//#include “BookBorrowReturnSys.h“
#include “AdoModule.h“

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

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

CAdoModule::CAdoModule（）
{

}

CAdoModule::~CAdoModule（）
{

}

void CAdoModule::OnInitADOConn（CString mdb）
{
	::CoInitialize（NULL）;
	try
	{
		m_pConnection.CreateInstance（“ADODB.Connection“）;
		
//			CString strConnect=“DRIVER={Microsoft Access Driver（*.mdb）};\
//				uid=;pwd=;DBQ=C:\\Program Files\\Common Files\\ODBC\\Data Sources\\wq.mdb“;//+mdb;
CString strConnect=“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“+mdb+“;Persist Security Info=False“;
//m_pConnection->CursorLocation=adUseClient;
m_pConnection->Open（（_bstr_t）strConnect““““adModeUnknown）;

	}
	catch（_com_error e）
	{
		
		AfxMessageBox（e.Description（））;
	}
}

_RecordsetPtr& CAdoModule::OpenRecordset（CString sql）
{   
	ASSERT（!sql.IsEmpty（））;
	try{

    m_pRecordset.CreateInstance（_uuidof（Recordset））;
	m_pRecordset->CursorLocation=adUseClient;
	///*_variant_t（m_pConnectiontrue）*/////adLockReadOnly
    m_pRecordset->Open（_bstr_t（sql）m_pConnection.GetInterfacePtr（）
	                   adOpenDynamicadLockOptimisticadCmdText）;
	//AfxMessageBox（“ok“）;
	}
	catch（_com_error e）
	{
		AfxMessageBox（e.Description（））;
	}
	//AfxMessageBox（“ok yes“）;
	return m_pRecordset;
}

void CAdoModule::ExitConnect（）
{
	if（m_pRecordset!=NULL）
	m_pRecordset->Close（）;
	//m_pConnection->Close（）;
}

void CAdoModule::CloseConn（）
{
	m_pConnection->Close（）;
	
	::CoUninitialize（）;
}

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

     文件       9882  2009-06-26 08:35  plant\plant2\plant2.rc

     文件       4700  2009-06-25 23:33  plant\plant2\plant2.dsp

     文件       1865  2009-06-26 00:21  plant\plant2\plant2Dlg.h

     文件     298520  2009-06-28 19:33  plant\plant2\plant2.aps

     文件       2244  2009-06-26 00:19  plant\plant2\Resource.h

     文件     222208  2009-06-28 21:53  plant\plant2\plant2.ncb

     文件      90619  2008-04-14 20:00  plant\plant2\msado15.tlh

     文件       2124  2009-06-24 11:27  plant\plant2\plant2.cpp

     文件      76614  2008-04-14 20:00  plant\plant2\msado15.tli

     文件       3142  2009-06-28 21:53  plant\plant2\plant2.clw

     文件       3579  2009-06-19 09:33  plant\plant2\ReadMe.txt

     文件       1324  2009-06-19 09:33  plant\plant2\plant2.h

     文件          0  2009-06-24 14:01  plant\plant2\~VC149.tmp

     文件        208  2009-06-19 09:33  plant\plant2\StdAfx.cpp

     文件      25600  2009-06-21 20:24  plant\plant2\新建 Microsoft Word 文档.doc

     文件        520  2009-06-19 09:33  plant\plant2\plant2.dsw

     文件     123925  2004-07-06 08:58  plant\plant2\XPCorona.ssk

     文件        718  2009-06-15 20:10  plant\plant2\AdoModule.h

     文件       1902  2009-06-17 16:19  plant\plant2\AdoModule.cpp

     文件     851968  2009-06-28 21:34  plant\plant2\plant.mdb

     文件       3858  2004-07-13 22:05  plant\plant2\SkinPlusPlus.h

     文件     798720  2004-07-25 17:02  plant\plant2\SkinPlusPlusDLL.dll

     文件       5232  2009-06-24 11:27  plant\plant2\SkinPlusPlusDLL.lib

     文件      43520  2009-06-23 00:26  plant\plant2\SkinPlusPlusDLL.opt

     文件       2256  2009-06-28 19:39  plant\plant2\plant2.plg

     文件       1155  2009-06-19 10:07  plant\plant2\StdAfx.h

     文件        398  2009-06-19 09:33  plant\plant2\res\plant2.rc2

     文件       1078  2009-06-19 09:33  plant\plant2\res\plant2.ico

     文件      42278  2009-06-23 17:00  plant\plant2\res\DlgSample.ico

     文件      97258  2009-06-24 20:32  plant\plant2\res\截图未命名.bmp

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