minedabse.cpp

基于专家系统应用的程序代码 使用vc编程,access为数据库的程序

// mineDabse.cpp : Defines the class behaviors for the application.
//

#include "stdafx.h"
#include "mineDabse.h"

#include "MainFrm.h"
#include "mineDabseDoc.h"
#include "mineDabseView.h"

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

/////////////////////////////////////////////////////////////////////////////
// CMineDabseApp

BEGIN_MESSAGE_MAP(CMineDabseApp, CWinApp)
	//{{AFX_MSG_MAP(CMineDabseApp)
	ON_COMMAND(ID_APP_ABOUT, OnAppAbout)

	//}}AFX_MSG_MAP
	// Standard file based document commands
	ON_COMMAND(ID_FILE_NEW, CWinApp::OnFileNew)
	ON_COMMAND(ID_FILE_OPEN, CWinApp::OnFileOpen)
	// Standard print setup command
	ON_COMMAND(ID_FILE_PRINT_SETUP, CWinApp::OnFilePrintSetup)
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CMineDabseApp construction

CMineDabseApp::CMineDabseApp()
{
	// TODO: add construction code here,
	// Place all significant initialization in InitInstance
}

/////////////////////////////////////////////////////////////////////////////
// The one and only CMineDabseApp object

CMineDabseApp theApp;

/////////////////////////////////////////////////////////////////////////////
// CMineDabseApp initialization

BOOL CMineDabseApp::InitInstance()
{
	AfxEnableControlContainer();

		AfxOleInit();///初始化COM库
	////////////连接数据库//////////////
	HRESULT hr;	
    CString adoDNS="E:\mineDabse\mine.mdb"; 

	/*CString str="扇风机开 or (扇风机流量不正常 and 扇风机功率不正常 and 扇风机转速不正常 and 扇风机位置不正确)";
    int find;
	CString tempAnd;
	find=str.Find("or");
	str.TrimLeft();
	find=str.Find("and");
	while (find)
	{
		
        tempAnd=str.Left(find+3);
		str.Delete(0,find+3);	
		str.TrimLeft();
		find=str.Find("and");
	}
   str.TrimLeft();
   find=str.Find("or");
   CString strResult,tempOr;
   while (find){
	  tempOr=str.Left(find+2);
	  strResult=tempAnd+
	  str.Delete(0,find+2);
	  str.TrimLeft();
	  find=str.Find("or");
   }
*/
	
	try
	{
		hr = m_pConnection.CreateInstance("ADODB.Connection");///创建Connection对象
		if(SUCCEEDED(hr))
	{
		hr=m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mine.mdb","","",adModeUnknown);
//	hr = m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=auditor.mdb","","",adModeUnknown);///连接数据库
	///上面一句中连接字串中的Provider是针对ACCESS2000环境的，对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51;  }
	//hr=m_DBCnt->Open("DSN=userinfo;Provider=MSDASQL","sa","",adConnectUnspecified);		
	}
	}
	catch(_com_error e)///捕捉异常
	{
		CString errormessage;
		errormessage.Format(_T("连接数据库失败!\r\n错误信息:%s"),e.ErrorMessage());
		AfxMessageBox(errormessage);///显示错误信息
		return false;
	} 
 
	// Standard initialization
	// If you are not using these features and wish to reduce the size
	//  of your final executable, you should remove from the following
	//  the specific initialization routines you do not need.

#ifdef _AFXDLL
	Enable3dControls();			// Call this when using MFC in a shared DLL
#else
	Enable3dControlsStatic();	// Call this when linking to MFC statically
#endif

	// Change the registry key under which our settings are stored.
	// TODO: You should modify this string to be something appropriate
	// such as the name of your company or organization.
	SetRegistryKey(_T("Local AppWizard-Generated Applications"));

	LoadStdProfileSettings();  // Load standard INI file options (including MRU)

	// Register the application's document templates.  Document templates
	//  serve as the connection between documents, frame windows and views.

	CSingleDocTemplate* pDocTemplate;
	pDocTemplate = new CSingleDocTemplate(
		IDR_MAINFRAME,
		RUNTIME_CLASS(CMineDabseDoc),
		RUNTIME_CLASS(CMainFrame),       // main SDI frame window
		RUNTIME_CLASS(CMineDabseView));
	AddDocTemplate(pDocTemplate);

	// Parse command line for standard shell commands, DDE, file open
	CCommandLineInfo cmdInfo;
	ParseCommandLine(cmdInfo);

	// Dispatch commands specified on the command line
	if (!ProcessShellCommand(cmdInfo))
		return FALSE;

	// The one and only window has been initialized, so show and update it.
	m_pMainWnd->ShowWindow(SW_SHOWMAXIMIZED);
	m_pMainWnd->UpdateWindow();
	return TRUE;
}


/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
	CAboutDlg();

// Dialog Data
	//{{AFX_DATA(CAboutDlg)
	enum { IDD = IDD_ABOUTBOX };
	//}}AFX_DATA

	// ClassWizard generated virtual function overrides
	//{{AFX_VIRTUAL(CAboutDlg)
	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
	//}}AFX_VIRTUAL

// Implementation
protected:
	//{{AFX_MSG(CAboutDlg)
		// No message handlers
	//}}AFX_MSG
	DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
	//{{AFX_DATA_INIT(CAboutDlg)
	//}}AFX_DATA_INIT
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CAboutDlg)
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
	//{{AFX_MSG_MAP(CAboutDlg)
		// No message handlers
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

// App command to run the dialog
void CMineDabseApp::OnAppAbout()
{
	CAboutDlg aboutDlg;
	aboutDlg.DoModal();
}

/////////////////////////////////////////////////////////////////////////////
// CMineDabseApp message handlers


int CMineDabseApp::ExitInstance() 
{
	// TODO: Add your specialized code here and/or call the base class
		if(m_pConnection->State)
		 m_pConnection->Close(); ///如果已经打开了连接则关闭它
	return CWinApp::ExitInstance();
}