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。

相关文章

Linux系统中查询JDK安装目录的几种常用方法

Linux系统中查询JDK安装目录的几种常用方法

《Linux系统中查询JDK安装目录的几种常用方法》：本文主要介绍Linux系统中查询JDK安装目录的几种常用方法,方法分别是通过update-alternatives、Java命令、环境变量及目... 目录方法 1：通过update-alternatives查询（推荐）方法 2：检查所有已安装的 JDK方
阅读更多...
Linux系统之lvcreate命令使用解读

Linux系统之lvcreate命令使用解读

《Linux系统之lvcreate命令使用解读》lvcreate是LVM中创建逻辑卷的核心命令,支持线性、条带化、RAID、镜像、快照、瘦池和缓存池等多种类型,实现灵活存储资源管理,需注意空间分配、R... 目录lvcreate命令详解一、命令概述二、语法格式三、核心功能四、选项详解五、使用示例1. 创建逻
阅读更多...
使用Python构建一个高效的日志处理系统

使用Python构建一个高效的日志处理系统

《使用Python构建一个高效的日志处理系统》这篇文章主要为大家详细讲解了如何使用Python开发一个专业的日志分析工具,能够自动化处理、分析和可视化各类日志文件,大幅提升运维效率,需要的可以了解下... 目录环境准备工具功能概述完整代码实现代码深度解析1. 类设计与初始化2. 日志解析核心逻辑3. 文件处
阅读更多...
golang程序打包成脚本部署到Linux系统方式

golang程序打包成脚本部署到Linux系统方式

《golang程序打包成脚本部署到Linux系统方式》Golang程序通过本地编译（设置GOOS为linux生成无后缀二进制文件）,上传至Linux服务器后赋权执行,使用nohup命令实现后台运行,完... 目录本地编译golang程序上传Golang二进制文件到linux服务器总结本地编译Golang程序
阅读更多...
Linux系统性能检测命令详解

Linux系统性能检测命令详解

《Linux系统性能检测命令详解》本文介绍了Linux系统常用的监控命令（如top、vmstat、iostat、htop等）及其参数功能,涵盖进程状态、内存使用、磁盘I/O、系统负载等多维度资源监控,... 目录toppsuptimevmstatIOStatiotopslabtophtopdstatnmon
阅读更多...
Navicat数据表的数据添加,删除及使用sql完成数据的添加过程

Navicat数据表的数据添加,删除及使用sql完成数据的添加过程

《Navicat数据表的数据添加,删除及使用sql完成数据的添加过程》：本文主要介绍Navicat数据表的数据添加,删除及使用sql完成数据的添加过程,具有很好的参考价值,希望对大家有所帮助,如有... 目录Navicat数据表数据添加,删除及使用sql完成数据添加选中操作的表则出现如下界面，查看左下角从左
阅读更多...
linux重启命令有哪些? 7个实用的Linux系统重启命令汇总

linux重启命令有哪些? 7个实用的Linux系统重启命令汇总

《linux重启命令有哪些?7个实用的Linux系统重启命令汇总》Linux系统提供了多种重启命令，常用的包括shutdown-r、reboot、init6等，不同命令适用于不同场景，本文将详细... 在管理和维护 linux 服务器时，完成系统更新、故障排查或日常维护后，重启系统往往是必不可少的步骤。本文
阅读更多...
Mac系统下卸载JAVA和JDK的步骤

Mac系统下卸载JAVA和JDK的步骤

《Mac系统下卸载JAVA和JDK的步骤》JDK是Java语言的软件开发工具包,它提供了开发和运行Java应用程序所需的工具、库和资源,：本文主要介绍Mac系统下卸载JAVA和JDK的相关资料,需... 目录1. 卸载系统自带的 Java 版本检查当前 Java 版本通过命令卸载系统 Java2. 卸载自定
阅读更多...
基于Python实现一个简单的题库与在线考试系统

基于Python实现一个简单的题库与在线考试系统

《基于Python实现一个简单的题库与在线考试系统》在当今信息化教育时代,在线学习与考试系统已成为教育技术领域的重要组成部分,本文就来介绍一下如何使用Python和PyQt5框架开发一个名为白泽题库系... 目录概述功能特点界面展示系统架构设计类结构图Excel题库填写格式模板题库题目填写格式表核心数据结构
阅读更多...
Linux系统中的firewall-offline-cmd详解(收藏版)

Linux系统中的firewall-offline-cmd详解(收藏版)

《Linux系统中的firewall-offline-cmd详解(收藏版)》firewall-offline-cmd是firewalld的一个命令行工具,专门设计用于在没有运行firewalld服务的... 目录主要用途基本语法选项1. 状态管理2. 区域管理3. 服务管理4. 端口管理5. ICMP 阻断
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2