testdlg.cpp

跟数据库密切相关的各种典型操作VC例程源代码

// TestDlg.cpp : 实现文件
//

#include "stdafx.h"
#include "Test.h"
#include "TestDlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif


// 用于应用程序“关于”菜单项的 CAboutDlg 对话框

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

// 对话框数据
	enum { IDD = IDD_ABOUTBOX };

	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV 支持

// 实现
protected:
	DECLARE_MESSAGE_MAP()
};

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

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

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
END_MESSAGE_MAP()


// CTestDlg 对话框



CTestDlg::CTestDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CTestDlg::IDD, pParent)
{
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CTestDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
}

BEGIN_MESSAGE_MAP(CTestDlg, CDialog)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	//}}AFX_MSG_MAP
	ON_BN_CLICKED(IDC_BTNFIRST, OnBnClickedBtnfirst)
	ON_BN_CLICKED(IDC_BTNPRE, OnBnClickedBtnpre)
	ON_BN_CLICKED(IDC_BTNNEXT, OnBnClickedBtnnext)
	ON_BN_CLICKED(IDC_BTNEND, OnBnClickedBtnend)
	ON_BN_CLICKED(IDC_BTNADD, OnBnClickedBtnadd)
	ON_BN_CLICKED(IDC_BTNDELETE, OnBnClickedBtndelete)
	ON_BN_CLICKED(IDC_BTNEDIT, OnBnClickedBtnedit)
	ON_BN_CLICKED(IDC_BTNSORT, OnBnClickedBtnsort)
	ON_BN_CLICKED(IDC_BTNFILTER, OnBnClickedBtnfilter)
	ON_BN_CLICKED(IDC_BTNADOEXCEPTION, OnBnClickedBtnadoexception)
END_MESSAGE_MAP()


// CTestDlg 消息处理程序

BOOL CTestDlg::OnInitDialog()
{
	CDialog::OnInitDialog();

	// 将\“关于...\”菜单项添加到系统菜单中。

	// IDM_ABOUTBOX 必须在系统命令范围内。
	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
	ASSERT(IDM_ABOUTBOX < 0xF000);

	CMenu* pSysMenu = GetSystemMenu(FALSE);
	if (pSysMenu != NULL)
	{
		CString strAboutMenu;
		strAboutMenu.LoadString(IDS_ABOUTBOX);
		if (!strAboutMenu.IsEmpty())
		{
			pSysMenu->AppendMenu(MF_SEPARATOR);
			pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
		}
	}

	// 设置此对话框的图标。当应用程序主窗口不是对话框时，框架将自动
	//  执行此操作
	SetIcon(m_hIcon, TRUE);			// 设置大图标
	SetIcon(m_hIcon, FALSE);		// 设置小图标

	// TODO：在此添加额外的初始化代码
	::CoInitialize(NULL);//初始化COM环境
	try
	{
		m_Connection.CreateInstance(__uuidof(Connection));//初始化Connection对象实例
		m_Set.CreateInstance(__uuidof(Recordset));//初始化Recordset对象实例
		m_Connection->Open(L"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyDBAccess.mdb",L"",L"",adOpenUnspecified);
		m_Set->Open("SELECT * FROM 雇员",m_Connection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);	
	}
	catch(_com_error &e)
	{			
		m_Set->Close();//关闭数据集
		m_Connection->Close();//关闭数据库的连接
		::CoUninitialize();	//关闭COM环境	
	}	
	return TRUE;  // 除非设置了控件的焦点，否则返回 TRUE
}

void CTestDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	if ((nID & 0xFFF0) == IDM_ABOUTBOX)
	{
		CAboutDlg dlgAbout;
		dlgAbout.DoModal();
	}
	else
	{
		CDialog::OnSysCommand(nID, lParam);
	}
}

// 如果向对话框添加最小化按钮，则需要下面的代码
//  来绘制该图标。对于使用文档/视图模型的 MFC 应用程序，
//  这将由框架自动完成。

void CTestDlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // 用于绘制的设备上下文

		SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);

		// 使图标在工作矩形中居中
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// 绘制图标
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

//当用户拖动最小化窗口时系统调用此函数取得光标显示。
HCURSOR CTestDlg::OnQueryDragIcon()
{
	return static_cast<HCURSOR>(m_hIcon);
}
//首条记录
void CTestDlg::OnBnClickedBtnfirst()
{
	m_Set->MoveFirst();
	FieldsPtr m_FieldsPtr;
	m_FieldsPtr=m_Set->Fields;
	CString StrInfo;
	StrInfo.Format("姓名：%s,职务：%s",(char*)_bstr_t(m_FieldsPtr->Item["名字"]->Value),(char*)_bstr_t(m_FieldsPtr->Item["职务"]->Value));
	MessageBox(StrInfo,"信息提示",MB_OK);
}
//前一记录
void CTestDlg::OnBnClickedBtnpre()
{
	m_Set->MovePrevious();
	FieldsPtr m_FieldsPtr;
	m_FieldsPtr=m_Set->Fields;
	CString StrInfo;
	StrInfo.Format("姓名：%s,职务：%s",(char*)_bstr_t(m_FieldsPtr->Item["名字"]->Value),(char*)_bstr_t(m_FieldsPtr->Item["职务"]->Value));
	MessageBox(StrInfo,"信息提示",MB_OK);
}
//下一记录
void CTestDlg::OnBnClickedBtnnext()
{
	m_Set->MoveNext();
	FieldsPtr m_FieldsPtr;
	m_FieldsPtr=m_Set->Fields;
	CString StrInfo;
	StrInfo.Format("姓名：%s,职务：%s",(char*)_bstr_t(m_FieldsPtr->Item["名字"]->Value),(char*)_bstr_t(m_FieldsPtr->Item["职务"]->Value));
	MessageBox(StrInfo,"信息提示",MB_OK);
}
//尾条记录
void CTestDlg::OnBnClickedBtnend()
{
	m_Set->MoveLast();
	FieldsPtr m_FieldsPtr;
	m_FieldsPtr=m_Set->Fields;
	CString StrInfo;
	StrInfo.Format("姓名：%s,职务：%s",(char*)_bstr_t(m_FieldsPtr->Item["名字"]->Value),(char*)_bstr_t(m_FieldsPtr->Item["职务"]->Value));
	MessageBox(StrInfo,"信息提示",MB_OK);
}

void CTestDlg::OnBnClickedBtnadd()
{
	try
	{		
		//发出新增记录的通知
		m_Set->AddNew();								 
		FieldsPtr m_FieldPtr;
		m_FieldPtr=m_Set->Fields;		
		m_FieldPtr->Item["名字"]->Value="王彬";
		m_FieldPtr->Item["职务"]->Value="技术总监";
		//提交新增的记录
		m_Set->Update();									
		MessageBox("增加数据库记录操作成功！","信息提示",MB_OK);
	}
	catch(_com_error &e)
	{	
		MessageBox("增加数据库记录操作失败！","信息提示",MB_OK);
		return;
	}	
}

void CTestDlg::OnBnClickedBtndelete()
{
	try
	{
		//删除当前记录
		m_Set->Delete(adAffectCurrent);							
		//提交删除操作
		m_Set->Update();												
		MessageBox("删除当前记录操作成功！","信息提示",MB_OK);	
	}
	catch(_com_error &e)
	{	
		MessageBox("删除当前记录操作失败！","信息提示",MB_OK);	
		return;
	}
}

void CTestDlg::OnBnClickedBtnedit()
{
	FieldsPtr m_FieldPtr;
	m_FieldPtr=m_Set->Fields;		
	m_FieldPtr->Item["职务"]->Value="财务部长";		
	m_Set->Update();
	MessageBox("已经成功地修改了当前记录","信息提示",MB_OK);
}

void CTestDlg::OnBnClickedBtnsort()
{
	try
	{
		m_Set->Close();
		m_Set->Open("SELECT * FROM 雇员 ORDER BY '职务'",m_Connection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);	
		MessageBox("排序数据库记录操作成功！","信息提示",MB_OK);
	}
	catch(_com_error &e)
	{
		MessageBox("排序数据库记录操作失败！","信息提示",MB_OK);
		return;
	}	
}

void CTestDlg::OnBnClickedBtnfilter()
{
	try
	{
		m_Set->Close();
		m_Set->Open("SELECT * FROM 雇员 WHERE 雇员.职务 LIKE '销售经理'",m_Connection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);	
		MessageBox("查询数据库记录操作成功！","信息提示",MB_OK);
	}
	catch(_com_error &e)
	{
		MessageBox("查询数据库记录操作失败！","信息提示",MB_OK);
		return;
	}	
}
void GenerateError(HRESULT hr, PWSTR pwszDescription)
{
	CString strError;
	strError.Format("错误：%d(%x)",hr,hr);
	strError+="\n\n";
	strError+=pwszDescription;
	AfxMessageBox(strError);
}
void CTestDlg::OnBnClickedBtnadoexception()
{
	try
	{
		m_Connection.CreateInstance(__uuidof(Connection));//初始化Connection对象实例
		m_Set.CreateInstance(__uuidof(Recordset));//初始化Recordset对象实例
		m_Connection->Open(L"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyDBAccess.mdb",L"",L"",adOpenUnspecified);
		m_Set->Open("SELECT * FROM 雇",m_Connection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);	
	}
	catch(_com_error &e)
	{	
		GenerateError(e.Error(),e.Description());
		return;
	}
}