📄 rentdlg.cpp

📁 基于ADO的简单图书借阅数据库程序
💻 CPP
字号:
// RentDlg.cpp : 实现文件
//

#include "stdafx.h"
#include "Rent.h"
#include "RentDlg.h"
#include ".\rentdlg.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()


// CRentDlg 对话框



CRentDlg::CRentDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CRentDlg::IDD, pParent)
	, m_check_Date(FALSE)
	, m_name(_T(""))
{
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CRentDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	DDX_Check(pDX, IDC_CHECK_DATE, m_check_Date);
	DDX_Control(pDX, IDC_DATETIMEPICKER_FROM, m_DateFrom);
	DDX_Control(pDX, IDC_DATETIMEPICKER_TO, m_DateTo);
	DDX_Text(pDX, IDC_EDIT_NAME, m_name);
	DDX_Control(pDX, IDC_EDIT_NAME, m_editName);
	DDX_Control(pDX, IDC_LIST_RENT, m_rentInfoList);
	DDX_Control(pDX, IDC_COMBO_DVD, m_comboDVD);
}

BEGIN_MESSAGE_MAP(CRentDlg, CDialog)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	//}}AFX_MSG_MAP
	ON_BN_CLICKED(IDC_CHECK_DATE, OnCheckDate)
	ON_BN_CLICKED(IDC_BUTTON_RENT, OnButtonRent)
	ON_BN_CLICKED(IDC_BUTTON_QUERY, OnButtonQuery)
	ON_BN_CLICKED(IDC_BUTTON_DELE, OnButtonDelete)
END_MESSAGE_MAP()


// CRentDlg 消息处理程序

BOOL CRentDlg::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: 在此添加额外的初始化代码


	m_rentInfoList.InsertColumn(0,"ID",LVCFMT_CENTER,62);
	m_rentInfoList.InsertColumn(1,"租借人",LVCFMT_CENTER,100);
	m_rentInfoList.InsertColumn(2,"租借DVD名",LVCFMT_CENTER,160);
	m_rentInfoList.InsertColumn(3,"租借日期",LVCFMT_CENTER,135);
	m_rentInfoList.SetExtendedStyle(LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES);
	
	m_DateFrom.SetFormat("yyyyMMdd");
    m_DateTo.SetFormat("yyyyMMdd");

	m_check_Date=FALSE;
	m_DateFrom.EnableWindow(FALSE);
	m_DateTo.EnableWindow(FALSE);


	HRESULT hr;
	try
	{
		hr=m_pConnection.CreateInstance(__uuidof(Connection));
		if (SUCCEEDED(hr))
		{          
			hr=m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\Admin 的文档\\Visual Studio Projects\\练习小程序\\Rent\\DVDRentDB.mdb","","",adConnectUnspecified);
			if (FAILED(hr))
			{
				AfxMessageBox("open fail!");
				return TRUE;
			}
			else
			{
				AfxMessageBox("成功连接到数据库!");
			}
		} 
		else
		{
			AfxMessageBox("createinstance of Connection fail!");
			return TRUE;
		}
	}
	catch (_com_error e)
	{
		_bstr_t bstrSource(e.Source());
		_bstr_t bstrDescription(e.Description());
		AfxMessageBox(bstrSource+bstrDescription);
		return TRUE;	
	}
    

	InitListCtr();
	InitComboCtr();

	
	return TRUE;  // 除非设置了控件的焦点，否则返回 TRUE
}

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

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

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

void CRentDlg::OnCheckDate()
{
	// TODO: 在此添加控件通知处理程序代码
	if (m_check_Date==FALSE)
	{
		m_check_Date=TRUE;
		m_DateFrom.EnableWindow(TRUE);
		m_DateTo.EnableWindow(TRUE);
	} 
	else
	{
		m_check_Date=FALSE;
		m_DateFrom.EnableWindow(FALSE);
		m_DateTo.EnableWindow(FALSE);
	}
}


CString CRentDlg::QueryDVDName(CString DVDID)
{
	_RecordsetPtr pDVDNameRecordset;
	pDVDNameRecordset.CreateInstance(__uuidof(Recordset));
	CString strValue;
	_variant_t var;
	_bstr_t vSQL;
	vSQL="SELECT DVDName FROM tbDVDInfo WHERE DVDID="+DVDID;
	try
	{
		HRESULT hr;
		hr=pDVDNameRecordset->Open(vSQL,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
		if (!FAILED(hr))
		{
			var=pDVDNameRecordset->GetCollect("DVDName");
			if(var.vt!=VT_NULL)
				strValue=(LPCTSTR)_bstr_t(var);
		} 
		else
           strValue="";
	}
	catch (_com_error *e)
	{
		AfxMessageBox(e->ErrorMessage());
		strValue="";
	}
    pDVDNameRecordset->Close();
	pDVDNameRecordset=NULL;
    return strValue;
}

int CRentDlg::QueryDVDID(CString dvdName)
{
	_RecordsetPtr pDVDIDRecordset;
    pDVDIDRecordset.CreateInstance(__uuidof(Recordset));

	int value;
    CString strSQL,strValue;
	strSQL.Format("SELECT DVDID FROM tbDVDInfo WHERE DVDName='%s'",dvdName);
	try
	{
		pDVDIDRecordset->Open(_variant_t(strSQL),m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);

	}
	catch (_com_error *e)
	{
		AfxMessageBox(e->ErrorMessage());
		value=-1;
		return value;
	}

	_variant_t var;
	var=pDVDIDRecordset->GetCollect("DVDID");
	if (var.vt!=NULL)
	{
		strValue=(LPCSTR)_bstr_t(var);
		value=atoi(strValue);
	}
	else
		value=-1;

	pDVDIDRecordset->Close();
	pDVDIDRecordset=NULL;
	return value;
}
void CRentDlg::InitListCtr()
{
	HRESULT hr;
	_RecordsetPtr pRentRecordset;
	hr=pRentRecordset.CreateInstance(__uuidof(Recordset));
	if (FAILED(hr))
	{
		AfxMessageBox("createinstance of Recordset failed!\ncan't initiate List control!");
		return;
	}
	CString strsql;
	_variant_t var;
	CString strValue;
	int curItem=0;
	strsql="SELECT * FROM tbRentInfo";
	try
	{
		hr=pRentRecordset->Open(_variant_t(strsql),m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
        if (SUCCEEDED(hr))
        {
			while (!pRentRecordset->adoEOF)
			{
				var=pRentRecordset->GetCollect((long)0);
				if (var.vt!=VT_NULL)
					strValue=(LPCTSTR)_bstr_t(var);
				m_rentInfoList.InsertItem(curItem,strValue);
				
				var=pRentRecordset->GetCollect("Name");
				if(var.vt!=VT_NULL)
					strValue=(LPCTSTR)_bstr_t(var);
				m_rentInfoList.SetItemText(curItem,1,strValue);

				var=pRentRecordset->GetCollect("DVDID");
				if(var.vt!=VT_NULL)
					strValue=(LPCTSTR)_bstr_t(var);
				m_rentInfoList.SetItemText(curItem,2,QueryDVDName(strValue));

				var=pRentRecordset->GetCollect("Date");
				if(var.vt!=VT_NULL)
					strValue=(LPCTSTR)_bstr_t(var);
				m_rentInfoList.SetItemText(curItem,3,strValue);

				pRentRecordset->MoveNext();
				curItem++;
			}
        } 
        else
        {
			AfxMessageBox("Open recordset fail!");
        }
	}
	catch (_com_error *e)
	{
		AfxMessageBox(e->ErrorMessage());
		return;
	}
	pRentRecordset->Close();
	pRentRecordset=NULL;

}

void CRentDlg::InitComboCtr()
{
	_RecordsetPtr PDVDNameRecordset;
	PDVDNameRecordset.CreateInstance(__uuidof(Recordset));
	try
	{
		PDVDNameRecordset->Open("SELECT DVDName FROM tbDVDInfo",m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
	}
	catch (_com_error *e)
	{
		AfxMessageBox(e->ErrorMessage());
		return;
	}

	_variant_t var;
	CString strValue;
	m_comboDVD.AddString("");
	try
	{
		while (!PDVDNameRecordset->adoEOF)
		{
			var=PDVDNameRecordset->GetCollect("DVDName");
			if(var.vt!=VT_NULL)
				strValue=(LPCSTR)_bstr_t(var);
			m_comboDVD.AddString(strValue);
			PDVDNameRecordset->MoveNext();
		}
		PDVDNameRecordset->Close();
		PDVDNameRecordset=NULL;
	}
	catch (_com_error *e)
	{
		AfxMessageBox(e->ErrorMessage());
	}

}
void CRentDlg::OnButtonQuery()
{
	// TODO: 在此添加控件通知处理程序代码
	UpdateData(TRUE);
	_RecordsetPtr pQueryRecordset;
	pQueryRecordset.CreateInstance(__uuidof(Recordset));
	CString strDateFrom,strDateTo,strDVD;
	CString strSQL,temp;
	m_comboDVD.GetWindowText(strDVD);
	if ((!m_check_Date)&&(m_name.IsEmpty())&&(strDVD.IsEmpty()))
         strSQL="select * from tbRentInfo";
	else
         strSQL="select * from tbRentInfo where ";//注意where后面一定要有空格！！！！！！

	if (m_check_Date)
	{
		CTime timeFrom,timeTo;
		m_DateFrom.GetTime(timeFrom);
		m_DateTo.GetTime(timeTo);
		m_DateFrom.GetWindowText(strDateFrom);
		m_DateTo.GetWindowText(strDateTo);
		if (timeFrom.GetMonth()>timeTo.GetMonth())
		{  
			MessageBox("Date set is wrong!");
			return;
		} 
		else if(timeFrom.GetMonth()==timeTo.GetMonth())
		{
             if (timeFrom.GetDay()>timeTo.GetDay())
             {
				 MessageBox("Date set is wrong!");
				 return;
             }
		}

		temp.Format("Date>='%s' and Date<='%s'",strDateFrom,strDateTo);
		strSQL+=temp;
	}
	if (!m_name.IsEmpty())
	{
       if (m_check_Date)
           temp.Format("and Name='%s'",m_name);
       else
           temp.Format("Name='%s'",m_name);
	   strSQL+=temp;
	}
	if (!strDVD.IsEmpty())
	{
		if ((!m_check_Date)&&(m_name.IsEmpty()))
		     temp.Format("DVDID=%d",QueryDVDID(strDVD)); 
		else
		     temp.Format("and DVDID=%d",QueryDVDID(strDVD));
		strSQL+=temp;
	}
	try
	{   
		pQueryRecordset->Open(_variant_t(strSQL),m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
	}
	catch (_com_error *e)
	{
		AfxMessageBox(e->ErrorMessage());
		return;
	}

	if ((pQueryRecordset->BOF)&&(pQueryRecordset->adoEOF))
	{
		MessageBox("there is no records!");
	} 
	else
	{
		_variant_t var;
		CString strValue;
		int curItem=0;
		m_rentInfoList.DeleteAllItems();
		try
		{
			while (!pQueryRecordset->adoEOF)
			{
				var=pQueryRecordset->GetCollect("ID");
				if (var.vt!=VT_NULL)
				    strValue=(LPCSTR)_bstr_t(var);
				m_rentInfoList.InsertItem(curItem,strValue);

				var=pQueryRecordset->GetCollect("Name");
				if (var.vt!=NULL)
				    strValue=(LPCSTR)_bstr_t(var);
				m_rentInfoList.SetItemText(curItem,1,strValue);

				var=pQueryRecordset->GetCollect("DVDID");
				if (var.vt!=NULL)
					strValue=(LPCSTR)_bstr_t(var);
				m_rentInfoList.SetItemText(curItem,2,QueryDVDName(strValue));

				var=pQueryRecordset->GetCollect("Date");
				if (var.vt!=NULL)
					strValue=(LPCSTR)_bstr_t(var);
				m_rentInfoList.SetItemText(curItem,3,strValue);

				pQueryRecordset->MoveNext();
				curItem++;
			}
		}
		catch (_com_error *e)
		{
			AfxMessageBox(e->ErrorMessage());
		}

	}

	pQueryRecordset->Close();
	pQueryRecordset=NULL;UpdateData(FALSE);
}


void CRentDlg::UpdateList()
{
	m_rentInfoList.DeleteAllItems();
	InitListCtr();
}
void CRentDlg::OnButtonRent()
{
	// TODO: 在此添加控件通知处理程序代码
	CRentDVDDlg rentDvdDlg;
	if (rentDvdDlg.DoModal()==IDOK)
	{
		UpdateList();
	}

}

void CRentDlg::AddDVDNum(CString strDVDID)
{
	_RecordsetPtr pDVDRecordset;
	pDVDRecordset.CreateInstance(__uuidof(Recordset));

	_bstr_t vSQL;
	vSQL="select *from tbDVDInfo where DVDID="+strDVDID;
	try
	{
		pDVDRecordset->Open(vSQL,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);

	}
	catch (_com_error *e)
	{
		AfxMessageBox(e->ErrorMessage());
		return;
	}
	if ((pDVDRecordset->BOF)&&(pDVDRecordset->adoEOF))
	{
		MessageBox("error!");
		pDVDRecordset->Close();
		pDVDRecordset=NULL;
		return;
	}

	_variant_t var;
	CString strValue;
	int dvdNum;
	var=pDVDRecordset->GetCollect("Num");
	if (var.vt!=VT_NULL)
	{
		strValue=(LPCSTR)_bstr_t(var);
		dvdNum=atoi(strValue);
		dvdNum+=1;
		strValue.Format("%d",dvdNum);
		pDVDRecordset->PutCollect("Num",_variant_t(strValue));
		pDVDRecordset->Update();
	}

	pDVDRecordset->Close();
	pDVDRecordset=NULL;
}

void CRentDlg::DeleteRecord(CString ID,CString dvdName)
{
	HRESULT hr;
	_bstr_t vSQL;
	vSQL="delete from tbRentInfo where ID="+ID;
	_variant_t RecordsAffected;
	try
	{
		hr=m_pConnection->Execute(_bstr_t(vSQL),&RecordsAffected,adCmdText);
		if (SUCCEEDED(hr))
		{
			int dvdID=QueryDVDID(dvdName);
			CString strDVDID;
			strDVDID.Format("%d",dvdID);
			AddDVDNum(strDVDID);
		}
	}
	catch (_com_error *e)
	{
		AfxMessageBox(e->ErrorMessage());
		return;
	}

}
void CRentDlg::OnButtonDelete()
{
	// TODO: 在此添加控件通知处理程序代码
	int sel=m_rentInfoList.GetSelectionMark();//选种行的行号！！！
	if (sel>0&&AfxMessageBox("是否删除？",MB_YESNO)==IDYES)
	{
		CString rentid=m_rentInfoList.GetItemText(sel,0);
        CString dvdName=m_rentInfoList.GetItemText(sel,2);
        DeleteRecord(rentid,dvdName);
		m_rentInfoList.DeleteItem(sel);

	}
	else if(sel<0)
		MessageBox("列表中无选中纪录!");
}
💿 文件大小 1482 K
👤 上传用户 villyc
📂 所属分类数据库系统
🏷️ 相关标签

#ADO #图书 #数据库 #程序
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -