daodbdlg.cpp

VC++高级编程技巧与示例

// DAODBDlg.cpp : implementation file
//

#include "stdafx.h"
#include "DAODB.h"
#include "DAODBDlg.h"

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

/////////////////////////////////////////////////////////////////////////////
// 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)
	//}}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()

/////////////////////////////////////////////////////////////////////////////
// CDAODBDlg dialog

CDAODBDlg::CDAODBDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CDAODBDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CDAODBDlg)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
	// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CDAODBDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CDAODBDlg)
	DDX_Control(pDX, IDC_TREE1, m_Tree1);
	DDX_Control(pDX, IDC_LIST1, m_List1);
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CDAODBDlg, CDialog)
	//{{AFX_MSG_MAP(CDAODBDlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_BN_CLICKED(IDC_BROWSE, OnBrowse)
	ON_WM_DESTROY()
	ON_NOTIFY(TVN_SELCHANGED, IDC_TREE1, OnSelchangedTree1)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CDAODBDlg message handlers

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

	// Add "About..." menu item to system menu.

	// IDM_ABOUTBOX must be in the system command range.
	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);
		}
	}

	// Set the icon for this dialog.  The framework does this automatically
	//  when the application's main window is not a dialog
	SetIcon(m_hIcon, TRUE);			// Set big icon
	SetIcon(m_hIcon, FALSE);		// Set small icon
	
	// TODO: Add extra initialization here
	return TRUE;  // return TRUE  unless you set the focus to a control
}

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

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CDAODBDlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // device context for painting

		SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

		// Center icon in client rectangle
		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;

		// Draw the icon
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

// The system calls this to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CDAODBDlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}

void CDAODBDlg::OnBrowse() 
{
	// TODO: Add your control notification handler code here
	int i;
	HTREEITEM hi;
	CFileDialog fd(TRUE,NULL,NULL,
		           OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,
				   "Microsoft Access Database(*.mdb)|"
				   "*.mdb|All Files(*.*)|*.*||"
				   );

	if(fd.DoModal()==IDOK)
	{
		CString fn;
		fn=fd.GetPathName();
		if(m_Db.IsOpen())
		{
			m_Db.Close();
			m_Tree1.DeleteAllItems();
			m_hTr=0;
		}
		try
		{
	 		m_Db.Open(fn);
			CString nDb;
			nDb=m_Db.GetName();
			m_hTr=m_Tree1.InsertItem(nDb);
			m_Nt=m_Db.GetTableDefCount();
			if(m_Nt!=0)
			{
				CDaoTableDefInfo tinfo;
				CDaoTableDef td(&m_Db);
				CDaoFieldInfo fi;
				for(i=0;i<m_Nt;i++)
				{
					m_Db.GetTableDefInfo(i,tinfo);
					if (tinfo.m_lAttributes&dbSystemObject)
					{
						continue;
					}
					hi=m_Tree1.InsertItem(tinfo.m_strName,m_hTr);
					//读取每一个表的字段信息：
					td.Open(tinfo.m_strName);
					short nFields = td.GetFieldCount();
					for(short i=0;i<nFields;i++)
					{
						td.GetFieldInfo(i,fi);
						m_Tree1.InsertItem(fi.m_strName,hi);
					}
					td.Close();
				}
			}
			ShowDatabaseInfo();
		}
		catch(CDaoException* e)
		{
			if(m_Db.IsOpen())
			{
				m_Db.Close();
			}
			m_List1.DeleteAllItems();
			while(m_List1.DeleteColumn(0));
			AfxMessageBox(e->m_pErrorInfo->m_strDescription,
				          MB_ICONEXCLAMATION);
			e->Delete();
			return;
		}
	}
}

void CDAODBDlg::OnDestroy() 
{
	CDialog::OnDestroy();
	// TODO: Add your message handler code here
	if(m_Db.IsOpen())
	{
		m_Db.Close();
	}
}

CString CDAODBDlg::GetVariantString(COleVariant var)
{
	CString str;
	switch(var.vt)
	{
	case VT_BSTR:
		str=(LPCTSTR)var.bstrVal;
		break;
	case VT_I2:
		str.Format("%d",(int)var.iVal);
		break;
	case VT_I4:
		str.Format("%d",var.lVal);
		break;
	case VT_R4:
		str.Format("%10.5f",(double)var.fltVal);
		break;
	case VT_R8:
		str.Format("%10.5f",var.dblVal);
		break;
	case VT_CY:
		str=COleCurrency(var).Format();
		break;
	case VT_DATE:
		str=COleDateTime(var).Format();
		break;
	case VT_BOOL:
		str=(var.boolVal==0)?"FALSE":"TRUE";
		break;
	case VT_NULL:
		str="----";
		break;
	default:
		str.Format("Unknown type %d",var.vt);
		TRACE("Unknown type %d",var.vt);
	}
	return str;
}

void CDAODBDlg::OnSelchangedTree1(NMHDR* pNMHDR, LRESULT* pResult) 
{
	NM_TREEVIEW* pNMTreeView = (NM_TREEVIEW*)pNMHDR;
	// TODO: Add your control notification handler code here
	if(!m_Db.IsOpen())
	{
		return;
	}

	HTREEITEM hi=m_Tree1.GetSelectedItem();
	CString tn;
	//如果选择的是表名：
	if(m_Tree1.GetParentItem(hi)==m_hTr)
	{
		ShowTable(hi);
	}
	//如果选择的是数据库名：
    else if(hi==m_hTr)
	{
		ShowDatabaseInfo();
		return;
	}
	//如果选择的是字段名：
	else
	{
		ShowFieldInfo(hi);
		return;
	}
	*pResult = 0;
}

void CDAODBDlg::ShowDatabaseInfo()
{
		m_List1.SetRedraw(FALSE);
		m_List1.DeleteAllItems ();
		while(m_List1.DeleteColumn(0));

		CDaoDatabaseInfo di;
		m_Db.m_pWorkspace->GetDatabaseInfo(0,di);
	//1. 添加列：
		LV_COLUMN lc;
		lc.mask = LVCF_FMT | LVCF_WIDTH |
				  LVCF_TEXT | LVCF_SUBITEM;
		lc.fmt = LVCFMT_CENTER;
		lc.cx = 75;
		lc.iSubItem = 0;
		lc.pszText = "项目名称";
		m_List1.InsertColumn(0, &lc);
		lc.pszText = "属性";
		m_List1.InsertColumn(1, &lc);
	//2. 添加各个项目（各行）：
		LVITEM Item;
		CString Info;
		Item.mask=LVIF_TEXT;
		Item.iSubItem=0;

		Item.iItem=0;
		Item.pszText=_T("数据库名称：");
		m_List1.InsertItem(&Item);

		Item.iItem=1;
		Item.pszText=_T("是否可写：");
		m_List1.InsertItem(&Item);
		Item.iItem=2;
		Item.pszText=_T("是否允许事务处理：");
		m_List1.InsertItem(&Item);

	//3. 设置各个子项的字符串：
		Info=di.m_strName;
		m_List1.SetItemText(0,1,Info);

		if(di.m_bUpdatable)
		{
			Info="可写";
		}
		else
		{
			Info="只读";
		}
		m_List1.SetItemText(1,1,Info);

		if(di.m_bTransactions)
		{
			Info="允许";
		}
		else
		{
			Info="不允许";
		}
		m_List1.SetItemText(2,1,Info);
		m_List1.SetRedraw();
		m_List1.Invalidate();
}

void CDAODBDlg::ShowTable(HTREEITEM hi)
{
	//读取表名：
	UINT i;
	CString tn;
    tn=m_Tree1.GetItemText(hi);
	m_List1.SetRedraw(FALSE);
	m_List1.DeleteAllItems ();
    while(m_List1.DeleteColumn(0));

	CDaoTableDef td(&m_Db);
	CDaoFieldInfo fi;
	td.Open(tn);
	m_set.Open(&td);
//1. 添加列：
	LV_COLUMN lc;
	lc.mask = LVCF_FMT | LVCF_WIDTH |
		      LVCF_TEXT | LVCF_SUBITEM;
	lc.fmt = LVCFMT_CENTER;
	lc.cx = 75;
	lc.iSubItem = 0;
	for(i=0;i<m_set.GetFieldCount();i++)
	{
		m_set.GetFieldInfo(i,fi);
		lc.pszText = fi.m_strName.GetBuffer(fi.m_strName.GetLength());
		m_List1.InsertColumn(i, &lc);
	}

//2. 添加各个项目（各行）：
	LVITEM Item;
	CString str;
	long nItem;
	COleVariant var;
	m_set.MoveFirst();
	nItem=0;
	while(!m_set.IsEOF())
	{
		Item.mask=LVIF_TEXT;
		Item.iItem=i;
		Item.iSubItem=0;
		m_set.GetFieldValue(0,var);
		str=GetVariantString(var);
		Item.pszText=str.GetBuffer(str.GetLength());
		m_List1.InsertItem(&Item);
		for(i=1;i<m_set.GetFieldCount();i++)
		{
//3. 设置各个子项的字符串：
			m_set.GetFieldValue(i,var);
			str=GetVariantString(var);
			m_List1.SetItemText(nItem,i,str);
		}
		m_set.MoveNext();
		nItem++;
	}
	m_set.Close();
	m_List1.SetRedraw();
	m_List1.Invalidate();
}

void CDAODBDlg::ShowFieldInfo(HTREEITEM hi)
{
	CString tn,fn;
	int i;
	HTREEITEM phi;

	m_List1.SetRedraw(FALSE);
	m_List1.DeleteAllItems ();
	while(m_List1.DeleteColumn(0));

	phi=m_Tree1.GetParentItem(hi);
	//读取表名：
	tn=m_Tree1.GetItemText(phi);
	//读取字段名：
	fn=m_Tree1.GetItemText(hi);

	CDaoTableDef td(&m_Db);
	td.Open(tn);
	try
	{
		m_set.Open(&td);
		CDaoFieldInfo fi;//字段信息；
		m_set.GetFieldInfo(fn,fi);
	//1. 添加列：
		LV_COLUMN lc;
		lc.mask = LVCF_FMT | LVCF_WIDTH |
				  LVCF_TEXT | LVCF_SUBITEM;
		lc.fmt = LVCFMT_CENTER;
		lc.cx = 75;
		lc.iSubItem = 0;
		lc.pszText = "项目名称";
		m_List1.InsertColumn(0, &lc);
		lc.pszText = "属性";
		m_List1.InsertColumn(1, &lc);
	//2. 添加各个项目（各行）：
		LVITEM Item;
		Item.mask=LVIF_TEXT;
		Item.iSubItem=0;

		Item.iItem=0;
		Item.pszText=_T("字段名称：");
		m_List1.InsertItem(&Item);

		Item.iItem=1;
		Item.pszText=_T("字段数据类型：");
		m_List1.InsertItem(&Item);

		Item.iItem=2;
		Item.pszText=_T("字段所占字节数：");
		m_List1.InsertItem(&Item);

		Item.iItem=3;
		Item.pszText=_T("字段属性：");
		m_List1.InsertItem(&Item);
	//3. 设置各个子项的字符串：
		m_List1.SetItemText(0,1,fi.m_strName.GetBuffer(fi.m_strName.GetLength()));
		switch(fi.m_nType)
		{
			case dbBoolean:
			{
				m_List1.SetItemText(1,1,"BOOL");
				m_List1.SetItemText(2,1,"1");
				break;
			}
			case dbByte:
			{
				m_List1.SetItemText(1,1,"BYTE");
				m_List1.SetItemText(2,1,"1");
				break;
			}
			case dbInteger:
			{
				m_List1.SetItemText(1,1,"short");
				m_List1.SetItemText(2,1,"2");
				break;
			}
			case dbLong:
			{
				m_List1.SetItemText(1,1,"long");
				m_List1.SetItemText(2,1,"4");
				break;
			}
			case dbCurrency:
			{
				m_List1.SetItemText(1,1,"COleCurrency");
				m_List1.SetItemText(2,1,"8");
				break;
			}
			case dbSingle:
			{
				m_List1.SetItemText(1,1,"float");
				m_List1.SetItemText(2,1,"4");
				break;
			}
			case dbDouble:
			{
				m_List1.SetItemText(1,1,"double");
				m_List1.SetItemText(2,1,"8");
				break;
			}
			case dbDate:
			{
				m_List1.SetItemText(1,1,"COleDateTime");
				m_List1.SetItemText(2,1,"8");
				break;
			}
			case dbText:
			{
				m_List1.SetItemText(1,1,"CString");
				m_List1.SetItemText(2,1,"1-255");
				break;
			}
			case dbLongBinary:
			{
				m_List1.SetItemText(1,1,"CByteArray");
				m_List1.SetItemText(2,1,"0");
				break;
			}
			case dbMemo:
			{
				m_List1.SetItemText(1,1,"CString");
				m_List1.SetItemText(2,1,"0");
				break;
			}
			case dbGUID:
			{
				m_List1.SetItemText(1,1,"GUID");
				m_List1.SetItemText(2,1,"16");
				break;
			}
		}
		CString Info="";
		if(fi.m_lAttributes&dbFixedField)
		{
			Info+="dbFixedField ";
		}
		if(fi.m_lAttributes&dbVariableField)
		{
			Info+="dbVariableField ";
		}
		if(fi.m_lAttributes&dbAutoIncrField)
		{
			Info+="dbAutoIncrField ";
		}
		if(fi.m_lAttributes&dbUpdatableField)
		{
			Info+="dbUpdatableField ";
		}
		if(fi.m_lAttributes&dbDescending)
		{
			Info+="dbDescending ";
		}
		m_List1.SetItemText(3,1,Info);
		m_List1.SetRedraw();
		m_List1.Invalidate();
		m_set.Close();
		td.Close();
	}
	catch(CDaoException* e)
	{
		AfxMessageBox(e->m_pErrorInfo->m_strDescription,
			          MB_ICONEXCLAMATION);
		if(m_set.IsOpen())
		{
			m_set.Close();
		}
		if(td.IsOpen())
		{
			td.Close();
		}
		return;
	}
}