listdlg.cpp

电子尺源程序说明 本程序使用ADO访问Access2000的数据库。

// ListDlg.cpp : implementation file
//

#include "stdafx.h"
#include "new ruler.h"
#include "ListDlg.h"

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

/////////////////////////////////////////////////////////////////////////////
// CListDlg dialog


CListDlg::CListDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CListDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CListDlg)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
	try
	{
		m_pCn.CreateInstance("ADODB.Connection");
		m_pCn->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb","","",adModeUnknown);
	}
	catch(_com_error e)///捕捉异常
	{
//		AfxMessageBox("读取数据库失败!");///显示错误信息
		CString errormessage;
		errormessage.Format("连接错误!\r\n错误信息:%s",e.ErrorMessage());
		AfxMessageBox(errormessage);///显示错误信息
	}

}


void CListDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CListDlg)
	DDX_Control(pDX, IDC_LIST_MEASURE, m_list);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CListDlg, CDialog)
	//{{AFX_MSG_MAP(CListDlg)
	ON_NOTIFY(LVN_ITEMCHANGED, IDC_LIST_MEASURE, OnItemchangedListMeasure)
	ON_BN_CLICKED(ID_BUTTON_DEL, OnButtonDel)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CListDlg message handlers

CListDlg::CListDlg(_ConnectionPtr pCn, CWnd* pParent /*=NULL*/)
:CDialog(CListDlg::IDD, pParent), m_pCn(pCn), m_CurrentSel("")
{
}

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

	HRESULT hr=0;
	
	// TODO: Add extra initialization here
	::SendMessage(m_list.m_hWnd, LVM_SETEXTENDEDLISTVIEWSTYLE,LVS_EX_FULLROWSELECT, LVS_EX_FULLROWSELECT);
	//为列表控件添加列
	m_list.InsertColumn(0,"ID",LVCFMT_LEFT,60);
	m_list.InsertColumn(1,"名称",LVCFMT_LEFT,100);
	m_list.InsertColumn(2,"保存时间",LVCFMT_LEFT,100);
	m_list.InsertColumn(3,"描述",LVCFMT_LEFT,60);
	//读取数据库中的信息添加到列表控件
	int nItem;
	_variant_t vName,vDesc,vID,vTime;
	try
	{
		hr=m_pRs.CreateInstance("ADODB.Recordset");
		hr=m_pRs->Open("Select ID,Name,Desc,SaveDate From Measure Order by SaveDate DESC",
					_variant_t((IDispatch *)m_pCn,true),
					adOpenDynamic,
					adLockOptimistic,
					adCmdText);
		while(!m_pRs->adoEOF)
		{
			vID = m_pRs->GetCollect("ID");
			vName = m_pRs->GetCollect("Name");
			vDesc = m_pRs->GetCollect("Desc");
			vTime = m_pRs->GetCollect("SaveDate");
			nItem=m_list.InsertItem(0xffff,(_bstr_t)vID);
			m_list.SetItem(nItem,1,1,(_bstr_t)vName,NULL,0,0,0);
			m_list.SetItem(nItem,2,1,(_bstr_t)vTime,NULL,0,0,0);
			m_list.SetItem(nItem,3,1,(_bstr_t)vDesc,NULL,0,0,0);

			m_pRs->MoveNext();
		}
		m_pRs->Close();

	}
	catch(_com_error e)///捕捉异常
	{
//		AfxMessageBox("读取数据库失败!");///显示错误信息
		CString errormessage;
		errormessage.Format("错误!\r\n错误信息:%s",e.ErrorMessage());
		AfxMessageBox(errormessage);///显示错误信息
	}

	
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}

void CListDlg::OnItemchangedListMeasure(NMHDR* pNMHDR, LRESULT* pResult) 
{
	NM_LISTVIEW* pNMListView = (NM_LISTVIEW*)pNMHDR;
	// TODO: Add your control notification handler code here
	if(pNMListView->uNewState&LVIS_SELECTED)
	{
		m_CurrentSel=m_list.GetItemText(pNMListView->iItem, 0);
		m_CurrentItem=pNMListView->iItem;
	}
	
	*pResult = 0;
}

void CListDlg::OnOK() 
{
	// TODO: Add extra validation here
	if(m_CurrentSel.GetLength()==0)
		AfxMessageBox("请在列表中选择！");
	else
		CDialog::OnOK();
}

void CListDlg::OnButtonDel() 
{
	// TODO: Add your control notification handler code here
	if(m_CurrentSel.GetLength()==0)
		AfxMessageBox("请选中记录再删除！");
	else
	{
		int ret=AfxMessageBox("是否真的要删除？",MB_OKCANCEL);
		if(ret==IDOK)
		{
			//生成SQL命令
			CString cmd;
			cmd="Delete From Measure Where ID=";
			cmd+=m_CurrentSel;

			//执行删除命令
			m_pCn->Execute((_bstr_t)cmd,NULL,adCmdText);

			//删除列表中已删除的项
			m_list.DeleteItem(m_CurrentItem);
			//当前未选中
			m_CurrentSel="";
		}
	}
}