DVD出租系统【6】完成DVD系统

2024-02-17 06:48
文章标签 系统 完成 出租 dvd

本文主要是介绍DVD出租系统【6】完成DVD系统，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

DVD出租系统【6】完成DVD系统

本节最后目的：完成出租DVD的功能，删除出租记录功能。

1、继续打开上节的工程，双击出租DVD按钮，进行代码修改。

2、打开CRentDVD类进行初始化代码添加，当打开出租DVD时候，自动读取数据库数据，将函数添加到初始化函数中。

void CRentDVD::InitListCtrl()
{HRESULT hr;_RecordsetPtr pDVDRecordset;hr = pDVDRecordset.CreateInstance(__uuidof(Recordset));if (FAILED(hr)) {MessageBox(_T("创建记录集对象失败."));return;}try{//直接把表明作为第一个参数，记录集中是该表中的所有记录，最后一个参数传递 adCmdTablepDVDRecordset->Open(_variant_t("tbDVDInfo"), m_pConnection.GetInterfacePtr(), adOpenDynamic, adLockOptimistic, adCmdTable);}catch (_com_error *e){MessageBox(e->ErrorMessage());return;}_variant_t var;CString strValue;int curItem = 0;try {while (!pDVDRecordset->GetadoEof()) {var = pDVDRecordset->Fields->GetItem(long(0))->GetValue();if (var.vt != NULL)strValue = (LPCTSTR)_bstr_t(var);m_DVDInfoList.InsertItem(curItem, strValue);var = pDVDRecordset->Fields->GetItem(long(1))->GetValue();if (var.vt != NULL)strValue = (LPCTSTR)_bstr_t(var);m_DVDInfoList.SetItemText(curItem, 1, strValue);var = pDVDRecordset->Fields->GetItem(long(2))->GetValue();if (var.vt != NULL)strValue = (LPCTSTR)_bstr_t(var);m_DVDInfoList.SetItemText(curItem, 2, strValue);var = pDVDRecordset->Fields->GetItem(long(3))->GetValue();if (var.vt != NULL)strValue = (LPCTSTR)_bstr_t(var);m_DVDInfoList.SetItemText(curItem, 3, strValue);pDVDRecordset->MoveNext();curItem++;}}catch (_com_error *e){MessageBox(e->ErrorMessage());return;}pDVDRecordset->Close();pDVDRecordset = NULL;
}

3、 双击租给他按钮，编辑代码：

void CRentDVD::OnBnClickedButtonRentit()
{// TODO: 在此添加控件通知处理程序代码UpdateData(TRUE);CString strDVDID, strDate;GetDlgItem(IDC_DATE_RENT)->GetWindowText(strDate);int sel = m_DVDInfoList.GetSelectionMark();if (sel < 0){MessageBox(_T("请选择要租借的DVD."));return;}else {strDVDID = m_DVDInfoList.GetItemText(sel, 0);}CString strLeftNum = m_DVDInfoList.GetItemText(sel, 2);int iLeftNum = _ttoi(strLeftNum);if (iLeftNum <= 0){MessageBox(_T("不好意思，该DVD已经没有存货了."));return;}if (m_rentName.IsEmpty()){MessageBox(_T("请填写租借人的姓名."), _T("提示"), MB_OK | MB_ICONINFORMATION);m_editRentName.SetFocus();return;}BOOL bRet = RentDVDByRecordset(strDVDID, m_rentName, strDate);   //增加数据方法一//BOOL bRet = RentDVDByCommand(strDVDID, m_rentName, strDate);   //增加数据方法二if (TRUE == bRet) {// m_bRent = TRUE;CDVDRentDlg *pParentWnd = (CDVDRentDlg *)GetParent();pParentWnd->ModDVDNum(strDVDID, -1);MessageBox(_T("租借成功！"), _T("提示"), MB_OK);}
}

4、增加数据添加函数：

//增加数据方法一
BOOL CRentDVD::RentDVDByRecordset(CString& strDVDID, CString& strRentName, CString& strRentDate)
{BOOL bRet = FALSE;_RecordsetPtr pRentRecordset;pRentRecordset.CreateInstance(__uuidof(Recordset));try {HRESULT hr = pRentRecordset->Open(_T("select * from tbRentInfo"),m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);if (SUCCEEDED(hr)){pRentRecordset->AddNew();pRentRecordset->PutCollect("sDVDID", _variant_t(strDVDID));pRentRecordset->PutCollect("sName", _variant_t(strRentName));pRentRecordset->PutCollect("sDate", _variant_t(strRentDate));pRentRecordset->Update();bRet = TRUE;}}catch (_com_error *e) {MessageBox(e->ErrorMessage());}pRentRecordset->Close();pRentRecordset = NULL;return bRet;
}//增加数据方法二
BOOL CRentDVD::RentDVDByCommand(CString& strDVDID, CString& strRentName, CString& strRentDate)
{BOOL bRet = FALSE;_CommandPtr pCommand;pCommand.CreateInstance(__uuidof(Command));pCommand->ActiveConnection = m_pConnection;CString strSQL;strSQL.Format(_T("insert into tbRentInfo(sDVDID,sName,sDate) values(\'%s\',\'%s\',\'%s\')"), strDVDID, strRentName, strRentDate);pCommand->CommandText = _bstr_t(strSQL);try {HRESULT hr = pCommand->Execute(NULL, NULL, adCmdText);if (SUCCEEDED(hr)) {bRet = TRUE;}}catch (_com_error *e) {MessageBox(e->ErrorMessage());}return bRet;
}

5、注意，新的类初始化一定要初始化新传递的参数：

6、回到主界面，双击删除出租记录，编辑代码：

void CDVDRentDlg::OnBnClickedButtonDel()
{// TODO: 在此添加控件通知处理程序代码int sel = m_rentInfoList.GetSelectionMark();if (sel >= 0 && MessageBox(_T("确定删除这条记录？"), _T("提示"), 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(_T("请先选中一条记录再进行删除操作。"));}
}

7、增加删除出租记录函数所用的函数：

void  CDVDRentDlg::DeleteRecord(CString& rentID, CString& dvdName)
{_bstr_t vSQL;vSQL = _T("delete from tbRentInfo where sID=") + rentID;_variant_t RecordsAffected;try{HRESULT hr = m_pConnection->Execute(_bstr_t(vSQL), &RecordsAffected, adCmdText);if (SUCCEEDED(hr)){CString strDVDID = QueryDVDId(dvdName);ModDVDNum(strDVDID,1);}}catch (_com_error *e){MessageBox(e->ErrorMessage());return;}
}BOOL CDVDRentDlg::ModDVDNum(CString & strDVDID,int SDVDNum)
{HRESULT hr;_RecordsetPtr pRentRecordset;hr = pRentRecordset.CreateInstance(__uuidof(Recordset));if (FAILED(hr)) {MessageBox(_T("创建记录集对象失败."));return FALSE;}try{CString strSQL;strSQL = _T("SELECT * FROM tbDVDInfo where sDVDID=" + strDVDID);hr = pRentRecordset->Open(_variant_t(strSQL), m_pConnection.GetInterfacePtr(), adOpenDynamic, adLockOptimistic, adCmdText);if (SUCCEEDED(hr)) {_variant_t var;CString strValue;var = pRentRecordset->GetCollect(_T("sNum"));if (var.vt != NULL) {strValue = (LPCTSTR)_bstr_t(var);int num;num = _ttoi(strValue);num = num + (SDVDNum);CString DVDNumStr;DVDNumStr.Format(_T("%d"),num);BOOL bRet = FALSE;_CommandPtr pCommand;pCommand.CreateInstance(__uuidof(Command));pCommand->ActiveConnection = m_pConnection;CString strSQL;strSQL.Format(_T("update tbDVDInfo set sNum=%s where sDVDID=(\'%s\')"), DVDNumStr,strDVDID);MessageBox(strSQL);pCommand->CommandText = _bstr_t(strSQL);try {HRESULT hr = pCommand->Execute(NULL, NULL, adCmdText);if (SUCCEEDED(hr)) {bRet = TRUE;}return bRet;}catch (_com_error *e) {MessageBox(e->ErrorMessage());}}}else {MessageBox(_T("打开结果记录集失败."));return FALSE;}}catch (_com_error &e) {MessageBox(e.ErrorMessage());return FALSE;}pRentRecordset->Close();pRentRecordset = NULL;
}

8、至此功能基本完成，运行图如下：

9、文中有一些小细节没有说到，有问题的可以留言。工程地址：

链接：https://pan.baidu.com/s/1d8R9tBBnRvZwvEULuUGt7A 
提取码：qh2y (本工程为完整性工程，索要密码请关注作者并联系作者QQ1967449842)
 

 

这篇关于DVD出租系统【6】完成DVD系统的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/716989。

相关文章

什么是cron? Linux系统下Cron定时任务使用指南

什么是cron? Linux系统下Cron定时任务使用指南

《什么是cron?Linux系统下Cron定时任务使用指南》在日常的Linux系统管理和维护中，定时执行任务是非常常见的需求，你可能需要每天执行备份任务、清理系统日志或运行特定的脚本，而不想每天... 在管理 linux 服务器的过程中，总有一些任务需要我们定期或重复执行。就比如备份任务，通常会选在服务器资
阅读更多...
TP-LINK/水星和hasivo交换机怎么选? 三款网管交换机系统功能对比

TP-LINK/水星和hasivo交换机怎么选? 三款网管交换机系统功能对比

《TP-LINK/水星和hasivo交换机怎么选?三款网管交换机系统功能对比》今天选了三款都是”8+1″的2.5G网管交换机，分别是TP-LINK水星和hasivo交换机，该怎么选呢？这些交换机功... TP-LINK、水星和hasivo这三台交换机都是”8+1″的2.5G网管交换机，我手里的China编程has
阅读更多...
基于Qt实现系统主题感知功能

基于Qt实现系统主题感知功能

《基于Qt实现系统主题感知功能》在现代桌面应用程序开发中,系统主题感知是一项重要的功能,它使得应用程序能够根据用户的系统主题设置（如深色模式或浅色模式）自动调整其外观,Qt作为一个跨平台的C++图形用... 目录【正文开始】一、使用效果二、系统主题感知助手类（SystemThemeHelper）三、实现细节
阅读更多...
CentOS系统使用yum命令报错问题及解决

CentOS系统使用yum命令报错问题及解决

《CentOS系统使用yum命令报错问题及解决》文章主要讲述了在CentOS系统中使用yum命令时遇到的错误,并提供了个人解决方法,希望对大家有所帮助,并鼓励大家支持脚本之家... 目录Centos系统使用yum命令报错找到文件替换源文件为总结CentOS系统使用yum命令报错http://www.cppc
阅读更多...
不懂推荐算法也能设计推荐系统

不懂推荐算法也能设计推荐系统

本文以商业化应用推荐为例，告诉我们不懂推荐算法的产品，也能从产品侧出发， 设计出一款不错的推荐系统。 相信很多新手产品，看到算法二字，多是懵圈的。 什么排序算法、最短路径等都是相对传统的算法（注：传统是指科班出身的产品都会接触过）。但对于推荐算法，多数产品对着网上搜到的资源，都会无从下手。特别当某些推荐算法 和 “AI”扯上关系后，更是加大了理解的难度。 但，不了解推荐算法，就无法做推荐系
阅读更多...
基于人工智能的图像分类系统

基于人工智能的图像分类系统

目录 引言项目背景环境准备 硬件要求软件安装与配置系统设计 系统架构关键技术代码示例 数据预处理模型训练模型预测应用场景结论 1. 引言 图像分类是计算机视觉中的一个重要任务，目标是自动识别图像中的对象类别。通过卷积神经网络（CNN）等深度学习技术，我们可以构建高效的图像分类系统，广泛应用于自动驾驶、医疗影像诊断、监控分析等领域。本文将介绍如何构建一个基于人工智能的图像分类系统，包括环境
阅读更多...
水位雨量在线监测系统概述及应用介绍

水位雨量在线监测系统概述及应用介绍

在当今社会，随着科技的飞速发展，各种智能监测系统已成为保障公共安全、促进资源管理和环境保护的重要工具。其中，水位雨量在线监测系统作为自然灾害预警、水资源管理及水利工程运行的关键技术，其重要性不言而喻。 一、水位雨量在线监测系统的基本原理 水位雨量在线监测系统主要由数据采集单元、数据传输网络、数据处理中心及用户终端四大部分构成，形成了一个完整的闭环系统。 数据采集单元：这是系统的“眼睛”，
阅读更多...
嵌入式QT开发：构建高效智能的嵌入式系统

嵌入式QT开发：构建高效智能的嵌入式系统

摘要： 本文深入探讨了嵌入式 QT 相关的各个方面。从 QT 框架的基础架构和核心概念出发，详细阐述了其在嵌入式环境中的优势与特点。文中分析了嵌入式 QT 的开发环境搭建过程，包括交叉编译工具链的配置等关键步骤。进一步探讨了嵌入式 QT 的界面设计与开发，涵盖了从基本控件的使用到复杂界面布局的构建。同时也深入研究了信号与槽机制在嵌入式系统中的应用，以及嵌入式 QT 与硬件设备的交互，包括输入输出设
阅读更多...
JAVA智听未来一站式有声阅读平台听书系统小程序源码

JAVA智听未来一站式有声阅读平台听书系统小程序源码

智听未来，一站式有声阅读平台听书系统 🌟&nbsp;开篇：遇见未来，从“智听”开始 在这个快节奏的时代，你是否渴望在忙碌的间隙，找到一片属于自己的宁静角落？是否梦想着能随时随地，沉浸在知识的海洋，或是故事的奇幻世界里？今天，就让我带你一起探索“智听未来”——这一站式有声阅读平台听书系统，它正悄悄改变着我们的阅读方式，让未来触手可及！ 📚&nbsp;第一站：海量资源，应有尽有 走进“智听
阅读更多...
【区块链 + 人才服务】可信教育区块链治理系统 | FISCO BCOS应用案例

【区块链 + 人才服务】可信教育区块链治理系统 | FISCO BCOS应用案例

伴随着区块链技术的不断完善，其在教育信息化中的应用也在持续发展。利用区块链数据共识、不可篡改的特性， 将与教育相关的数据要素在区块链上进行存证确权，在确保数据可信的前提下，促进教育的公平、透明、开放，为教育教学质量提升赋能，实现教育数据的安全共享、高等教育体系的智慧治理。 可信教育区块链治理系统的顶层治理架构由教育部、高校、企业、学生等多方角色共同参与建设、维护，支撑教育资源共享、教学质量评估、
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2