数据库adodlg.cpp

这是一款用MFC ADO编写的数据库软件

// 数据库ADODlg.cpp : implementation file
//

#include "stdafx.h"
#include "数据库ADO.h"
#include "数据库ADODlg.h"
#include "DlgProxy.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()

/////////////////////////////////////////////////////////////////////////////
// CADODlg dialog

IMPLEMENT_DYNAMIC(CADODlg, CDialog);

CADODlg::CADODlg(CWnd* pParent /*=NULL*/)
	: CDialog(CADODlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CADODlg)
	//}}AFX_DATA_INIT
	// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
	m_pAutoProxy = NULL;
	catcherror=false;
	
}

CADODlg::~CADODlg()
{
	// If there is an automation proxy for this dialog, set
	//  its back pointer to this dialog to NULL, so it knows
	//  the dialog has been deleted.
	if (m_pAutoProxy != NULL)
		m_pAutoProxy->m_pDialog = NULL;
}

void CADODlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CADODlg)
	DDX_Control(pDX, IDC_LIST1, m_basic);
	//DDX_Radio(pDX, IDC_RADIO1, m_radio);
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CADODlg, CDialog)
	//{{AFX_MSG_MAP(CADODlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_WM_CLOSE()
	ON_BN_CLICKED(IDC_BUTTON_FIND, OnButtonFind)
	ON_BN_CLICKED(IDC_BUTTON_ADD, OnButtonAdd)
	ON_BN_CLICKED(IDC_BUTTON_ORDER, OnButtonOrder)
	ON_BN_CLICKED(IDC_BUTTON_DELET, OnButtonDelet)
	ON_NOTIFY(NM_CLICK, IDC_LIST1, OnClickList1)
	ON_WM_DESTROY()
	ON_BN_CLICKED(IDC_BUTTON_SHOWALL, OnButtonShowall)
	ON_NOTIFY(NM_DBLCLK, IDC_LIST1, OnDblclkList1)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CADODlg message handlers

BOOL CADODlg::OnInitDialog()
{
	 CDialog::OnInitDialog();
	 m_DBCnt= theApp.m_pConnection;
	 MySet.CreateInstance (_uuidof(Recordset));
	 strSQL="SELECT *FROM score";
  	try
	{
		MySet->Open(strSQL,theApp.m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText); 	
	}
	catch(_com_error e) 
	{
		MessageBox(e.ErrorMessage());
	} 
     m_basic.InsertColumn(0,"编号");
     m_basic.InsertColumn(1,"学号");
	 m_basic.InsertColumn(2,"姓名");
	 m_basic.InsertColumn(3,"性别");
	 m_basic.InsertColumn(4,"专业");
	 m_basic.InsertColumn(5,"语文");
	 m_basic.InsertColumn(6,"数学");
	 m_basic.InsertColumn(7,"物理");
	 m_basic.InsertColumn(8,"英语");
	 
	 CRect rectbasic;
	 m_basic.GetWindowRect(&rectbasic);
	 int widbasic=rectbasic.right -rectbasic.left ;
	 m_basic.SetColumnWidth(0,0);
	 m_basic.SetColumnWidth(1,widbasic/4);
	 m_basic.SetColumnWidth(2,widbasic/8);
	 m_basic.SetColumnWidth(3,widbasic/8);
	 m_basic.SetColumnWidth(4,widbasic/8);
	 m_basic.SetColumnWidth(5,widbasic/8);
     m_basic.SetColumnWidth(6,widbasic/8);
	 m_basic.SetColumnWidth(7,widbasic/8);
	 m_basic.SetColumnWidth(8,widbasic/8);
	 m_basic.SetExtendedStyle(LVS_EX_FULLROWSELECT);
	 Refresh();
	 
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CADODlg::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 CADODlg::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 CADODlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}

// Automation servers should not exit when a user closes the UI
//  if a controller still holds on to one of its objects.  These
//  message handlers make sure that if the proxy is still in use,
//  then the UI is hidden but the dialog remains around if it
//  is dismissed.

void CADODlg::OnClose() 
{
	if (CanExit())
		CDialog::OnClose();
}

void CADODlg::OnOK() 
{
	if (CanExit())
		CDialog::OnOK();
}

void CADODlg::OnCancel() 
{
	if (CanExit())
		CDialog::OnCancel();
}

BOOL CADODlg::CanExit()
{
	// If the proxy object is still around, then the automation
	//  controller is still holding on to this application.  Leave
	//  the dialog around, but hide its UI.
	if (m_pAutoProxy != NULL)
	{
		ShowWindow(SW_HIDE);
		return FALSE;
	}

	return TRUE;
}

void CADODlg::Refresh()
{
//	if(!OnIniting)
//	{
//	try
// 	{	
//	MySet=m_DBCnt->Execute (strSQL,NULL,adCmdText);
//	}
//	catch(_com_error e)
//	{
//		catcherror=true;
//		MessageBox(e.ErrorMessage());
//	    m_basic.SetRedraw (TRUE);
//		if(MySet->adoEOF)
//		{
//			strSQL="SELECT *FROM score";
//			MySet=m_DBCnt->Execute (strSQL,NULL,adCmdText);
//		}
//	
//	}
//
//	}
	MySet->MoveFirst ();
	m_basic.DeleteAllItems ();
	m_basic.SetRedraw (FALSE);
	int i=0;
	_variant_t Holder;
	while(!MySet->adoEOF)
	{
		Holder=MySet->GetCollect("ID");
		if(Holder.vt!=VT_NULL)
		m_basic.InsertItem(i,(char*)(_bstr_t)Holder);
		
       	Holder=MySet->GetCollect("stuID");		
		if(Holder.vt!=VT_NULL)
		m_basic.SetItemText(i,1,(char*)(_bstr_t)Holder);
		
		Holder=MySet->GetCollect("name");		
		if(Holder.vt!=VT_NULL)
		m_basic.SetItemText(i,2,(char*)(_bstr_t)Holder);
		
		Holder=MySet->GetCollect("sex");		
		if(Holder.vt!=VT_NULL)
		m_basic.SetItemText(i,3,(char*)(_bstr_t)Holder);

	    Holder=MySet->GetCollect("subject");		
		if(Holder.vt!=VT_NULL)
		m_basic.SetItemText(i,4,(char*)(_bstr_t)Holder);
		
		Holder=MySet->GetCollect("chinese");		
		if(Holder.vt!=VT_NULL)
		m_basic.SetItemText(i,5,(char*)(_bstr_t)Holder);

		Holder=MySet->GetCollect("math");		
		if(Holder.vt!=VT_NULL)
		m_basic.SetItemText(i,6,(char*)(_bstr_t)Holder);

		Holder=MySet->GetCollect("physics");		
		if(Holder.vt!=VT_NULL)
		m_basic.SetItemText(i,7,(char*)(_bstr_t)Holder);

		Holder=MySet->GetCollect("english");		
		if(Holder.vt!=VT_NULL)
		m_basic.SetItemText(i,8,(char*)(_bstr_t)Holder);
		MySet->MoveNext ();
		i++;
	}
	m_basic.SetRedraw (TRUE);

}

void CADODlg::OnButtonAdd() 
{
	CString sql;
	CAddDialog *AddDialog=new CAddDialog;
	if(AddDialog->DoModal()==IDOK)
	{		 
		sql.Format ("INSERT INTO score (stuID,name,sex,subject,chinese,math,physics,english)VALUES(%d,'%s','%s','%s',%d,%d,%d,%d)",AddDialog->m_id,AddDialog->m_name 
			,AddDialog->m_sex ,AddDialog->m_subject ,AddDialog->m_chinese ,AddDialog->m_math ,AddDialog->m_physics ,AddDialog->m_english );
		strSQL=sql;
		try
		{
			m_DBCnt->Execute (strSQL,NULL,adCmdText);
		}
		catch(_com_error&e)
		{
			AfxMessageBox(e.ErrorMessage());
			return;
			
		}
		
		strSQL="SELECT *FROM score";
		try
		{
		 MySet= m_DBCnt->Execute (strSQL,NULL,adCmdText);
		}
		catch(_com_error&e)
		{
			AfxMessageBox(e.ErrorMessage());
			return;
			
		}
   	   Refresh();
	}
}

void CADODlg::OnButtonFind() 
{
	CFindDialog *FindDialog=new CFindDialog;
	if(FindDialog->DoModal()==IDOK)
	{
		
		CString str=FindDialog->FindStr();
	     strSQL  =str;
		
	try
 	{	
	MySet=m_DBCnt->Execute (strSQL,NULL,adCmdText);
	if(MySet->adoEOF)
	{
		MessageBox("找不到所需数据");
		strSQL="SELECT *FROM score";
		MySet=m_DBCnt->Execute (strSQL,NULL,adCmdText);
	}
	}
	catch(_com_error e)
	{
		MessageBox(e.ErrorMessage());
	
	}			
		Refresh();
	}
}


void CADODlg::OnButtonOrder() 
{
	COrderDialog *OrderDialog=new COrderDialog;
	if(OrderDialog->DoModal ()==IDOK)
	{
		CString str =OrderDialog->orderstr();
		CString sql="SELECT *FROM score ORDER BY "+str;
		strSQL=sql;
		try
		{
			MySet=m_DBCnt->Execute (strSQL,NULL,adCmdText);
		}
		catch(_com_error&e)
		{
			AfxMessageBox(e.ErrorMessage());
			return;
		}
		Refresh();	
	}	
}

void CADODlg::OnButtonDelet() 
{
	CString sql;	
	CString str="是否要删除学号为 ‘"+SelectID+"’  的全部信息";	
	if(SelectID=="")
		MessageBox("请先选择需要删除的对象");
	else
	{
		if(MessageBox(str,NULL,MB_OKCANCEL)==IDOK)
		{
			long n=atoi(SelectID);
			sql.Format("DELETE FROM score WHERE stuID=%d",n);
			strSQL=sql;
			try
			{
				MySet=m_DBCnt->Execute (strSQL,NULL,adCmdText);
			}
			catch(_com_error&e)
			{
				AfxMessageBox(e.ErrorMessage());
				return;
			}
			strSQL="SELECT *FROM score";
				try
			{
				MySet=m_DBCnt->Execute (strSQL,NULL,adCmdText);
			}
			catch(_com_error&e)
			{
				AfxMessageBox(e.ErrorMessage());
				return;
			}

		Refresh();
		}
		
	}	
}

void CADODlg::OnClickList1(NMHDR* pNMHDR, LRESULT* pResult) 
{

	NMLISTVIEW *pLV=(NMLISTVIEW*) pNMHDR;
	if(pLV->iItem <0)return;
	SelectID=m_basic.GetItemText(pLV->iItem,1);
	*pResult = 0;	
}

void CADODlg::OnDestroy() 
{
if(m_DBCnt->State)
MySet->Close();
MySet.Release ();
if(m_DBCnt->State);
theApp.m_pConnection  ->Close ();
theApp.m_pConnection.Release ();
::CoUninitialize();
CDialog::OnDestroy();	
}

void CADODlg::OnButtonShowall() 
{
	strSQL="SELECT *FROM score";
	MySet=m_DBCnt->Execute(strSQL,NULL,adCmdText);
	Refresh();
	
}

void CADODlg::OnDblclkList1(NMHDR* pNMHDR, LRESULT* pResult) 
{
	NMLISTVIEW *pLV=(NMLISTVIEW*) pNMHDR;
	if(pLV->iItem <0)return;
	CAddDialog *showdialog=new CAddDialog;
	showdialog->m_id=atoi(m_basic.GetItemText(pLV->iItem,1));
	showdialog->m_name=m_basic.GetItemText(pLV->iItem ,2);
	showdialog->m_sex=m_basic.GetItemText(pLV->iItem ,3);
	showdialog->m_subject=m_basic.GetItemText(pLV->iItem ,4);
	showdialog->m_chinese=atoi(m_basic.GetItemText(pLV->iItem ,5));
	showdialog->m_math=atoi(m_basic.GetItemText(pLV->iItem ,6));
	showdialog->m_physics=atoi(m_basic.GetItemText(pLV->iItem ,7));
	showdialog->m_english=atoi(m_basic.GetItemText(pLV->iItem ,8));
	showdialog->DoModal();
	*pResult = 0;
}