影碟出租管理系统

影碟出租管理系统1需求分析1.1系统的名称影碟出租管理系统1.2系统概述随着社会的发展，人民群众的生活水平的提高及其文化消费需求日益发展，音像制品出租业务也随之有了很大的发展，对于一般的中小城市和乡镇都有了很多的大小不等的提供音像制品出租业务的商家。但是伴随而来的是音像制品大量的增加，过去传统的手工记帐式的出租方式已经不可能满足日常大量的音像制品出租业务管理，所以有基于此，很有必要借助于计算机来帮助人们来完成这些很-1-为烦索的事情。面随着计算机技术的发展，解决这个问题早已经不是难事了！本程序正是基于此而开发出来的面向一般的音像制品出租商家的程序。基于工业化标准的SQL的数据库操作管理，使数据处理变的更为方便和容易，能提供相当丰富的功能以及友好的用户操作界面。而随着科技的发展，传统录音带租售店租售产品由录影带扩及至VCD、DVD等影片媒体，所以本产品主要针对影碟出租管理而设计，抛弃了已经被淘汰录像带的管理。由于现在各种影片繁多，数量巨大，用人工方法很难快速的找到用户所需要的影碟，针对这一问题，本系统设计了按影碟名查询的方法。只要输入用户想要租借的影碟名，即可快速的得到其相关信息。这既节约了顾客的时间，同时也大大的减少了管理人员的工作量。目前各地影碟出租店组织结构类似，供销运作过程和工作环境类似。各地影碟出租店间的相似性为软件的推广提供了有力的基础。如果该系统建成并推广，将可以产生具有巨大的经济效益和社会效益。1.3系统要实现那些功能，每个功能的具体描述我们所设计的影碟出租管理系统，主要能实现以下功能：1、影碟管理：包括新影碟的入库、旧影片的删除等；2、影碟租借：包括借影碟、更改影碟信息、归还影碟、更新影碟租借信息等。3、影碟的查询：按片名查询。4、帮助：显示系统的基本功能。2概要设计2.1系统概述本系统主要是应用在普通的影碟出租店,能够完成以下功能：新影片的入库、旧影片的删除、按片名查询、借影碟等。实现了PowerBuilder9.0与SQLServer2000的连接，能够在PowerBuilder9.0对SQLServer2000中的数据库进行访问、添加、删除等操作。影碟管理影碟借租影碟查询帮助影碟管理系统-2-2.2数据库设计2.2.1数据库表结构设计根据本系统所要实现的功能，我们主要设计了两个表格，其结构如下：表1影碟信息表videoinf列名数据类型可否为空说明Discidchar(10)No影碟编号（主键）Disnamevarchar(50)Yes影片名称Numberchar(10)Yes张数Starvarchar(50)Yes演员Buydatechar(10)Yes日期Pricefloat(8)Yes价格Ibstractvarchar(100)Yes说明信息表2租借信息表hiredvd列名数据类型可否为空说明Discnamevarchar(50)No影片编号（主键）Loandatechar(10)Yes借出日期Returnchar(10)Yes应还日期Depositfloat(8)Yes押金Hirefloat(8)Yes租金clientnaemchar(10)No顾客姓名2.2.2E-R图-3-2.2.3系统各功能模块如何实现租借信息影碟名称借出日期应还日期押金租金影碟编号影碟名称张数日期价格演员影片信息影碟租借片名查询影碟查询查询影碟管理租借-4-系统开发的任务是实现各种信息的系统化，规范化和自动化。系统主要功能分析是在系统开发的总任务的基础上完成的，本系统应在普通的影碟出租店，它的主要功能及模块如何实现如下：1．影碟管理功能模块：包括新影片的入库、旧影片的删除等；1）新影片的入库：将新碟信息添加到影碟信息表中；2）旧影片的删除：将旧影片信息从影碟信息表中删除。2．影碟租借功能模块：租借影碟，即将租借信息写入出租影片情况表，并在影碟信息表中做相应的更改；3．影碟归还功能模块：归还影碟，通过输入影碟名和顾客姓名，即可找出该租借用户租借影碟的相关信息，在确认归还后，由管理员在影碟租借信息表中对有关信息做出相应的更新；4．影碟查询功能模块：按片名查询，通过输入影片名称，即可在相应的窗口中显示出与之对应的主演、现有碟片张数、租金等信息；5．统计售量功能模块：对登记月租用户租借数量进行统计。2.2.4开发的平台，使用的数据库及开发工具WindowXP，PowerBuilder9.0，SQLServer2000，Visio2003等。3系统开发3.1登录窗口的设计依次单击file-new-window命令建立如图1所示的登录窗口（win窗口）。在应用程序对象的open事件中写入如下语句：sqlca.dbms=odbcsqlca.autocommit=falsesqlca.dbparm=connectsting='dsn=zuoye'connect;open(win)win窗口各控件的代码如下cb_1(确认)的clicked事件代码：图1登录窗口-5-ifsle_1.text=622thenifsle_2.text=622thenopen(w_mdi)close(win)elsemessagebox(警告,密码错误,请重新输入!)endifendifcb_2(退出)的clicked事件代码：close(win)3.2应用程序主窗口的设计系统应用程序的主要功能是在主窗口w_main（如图2所示）中完成的。其各事件代码如下m_影片管理.m_新片入库的clicked事件代码：open(new)m_影片管理.m_旧片删除的clicked事件代码：open(w_del)m_影碟查询的clicked事件代码：open(w_check)m_影片租借的clicked事件代码：open(w_return)m_帮助的clicked事件代码：open(w_help)3.3影碟管理模块的设计3.3.1新片入库窗口的设计影碟入库窗口（new）如图3所示，它主要实现了从PowerBuilder9.0添加数据到SQLServer2000中数据库的功能。图2主窗口-6-其各控件的代码如下cb_1(添加)的clicked事件代码：longll_currentrowll_currentrow=dw_1.getrow()dw_1.insertrow(ll_currentrow)cb_2(保存)的clicked事件代码：ifdw_1.update()=1thencommitusingsqlca;messagebox(提示,数据库更新成功)elserollbackusingsqlca;messagebox(提示,数据库更新不成功)endifcb_3(退出)的clicked事件代码：close(parent)3.3.2旧影片删除窗口的设计选择“影片管理—旧片删除”就会看到如图4所示的旧影片删除窗口（w_del），该窗口主要实现从PowerBuilder9.0删除和更新SQLServer2000中数据库中数据的功能。图3新片入库窗口-7-其各控件的代码如下cb_1(检索)的clicked事件代码：dw_1.retrieve()cb_2(删除)的clicked事件代码：longll_currentrow,ll_rtnll_currentrow=dw_1.getrow()ll_rtn=messagebox(提示,你将要删除纪录，是否继续,question!,yesno!,1)ifll_rtn=1thendw_1.deleterow(ll_currentrow)endifcb_2(确定)的clicked事件代码：ifdw_1.update()=1thencommitusingsqlca;messagebox(提示,数据库更新成功)elserollbackusingsqlca;messagebox(提示,数据库更新不成功)endifcb_4(退出)的clicked事件代码：close(parent)图4旧片删除窗口-8-3.4影碟查询窗口的设计对影片可以按照不同的索引进行查询，在本系统中，我们只设计了按“影片名查询”，其查询窗口如图5所示，它主要实现通过PowerBuilder9.0访问SQLServer2000中数据库里数据的功能。其各控件的代码如下w_check窗口open事件代码：dw_1.settransobject(sqlca)dw_1.retrieve()cb_1(查询)的clicked事件代码：sle_2.text=sle_3.text=sle_4.text=sle_5.text=sle_6.text=selectvideoinfo.discname,videoinfo.discid,videoinfo.discname,videoinfo.star,videoinfo.price,videoinfo.numberinto:sle_1.text,:sle_2.text,:sle_3.text,:sle_4.text,:sle_5.text,:sle_6.textfromvideoinfo图5查询窗口-9-wherevideoinfo.discname=:sle_1.text;ifsle_1.text=thenmessagebox(警告,请输入影片名!)endifsle_1.setfocus()cb_2(退出)的clicked事件代码：close(parent)3.5影碟租借模块的设计影碟租借模块主要实现以下功能：借出影碟录入影碟租借信息更改影碟信息3.5.1租借影碟窗口的设计我们设计的影碟租借窗口（w_return）如图6所示，在该窗口下，主要能完成对顾客欲要租借影碟的初步信息以及将相关租借信息写入到租借信息表hiredvd中去。其各控件的代码如下w_return窗口open事件代码：dw_1.settransobject(sqlca)“查询”按钮clicked事件代码：sle_2.text=sle_3.text=sle_4.text=selectvideoinfo.discname,videoinfo.star,图6租借影碟窗口-10-videoinfo.number,videoinfo.priceinto:sle_1.text,:sle_2.text,:sle_3.text,:sle_4.textfromvideoinfowherevideoinfo.discname=:sle_1.text;ifsle_1.text=thenmessagebox(警告,请输入影片名!)endifsle_1.setfocus()“借碟信息”按钮clicked事件代码：longll_currentrowll_currentrow=dw_1.getrow()dw_1.insertrow(ll_currentrow)“确定”按钮clicked事件代码：ifdw_1.update()=1thencommitusingsqlca;messagebox(提示,数据库更新成功)elserollbackusingsqlca;messagebox(提示,数据库更新不成功)endifopen(w_del)“退出”按钮clicked事件代码：Close(parent)3.5.2租借信息更新窗口的设计与旧片删除窗口的设计方法类似，我们设计了如图7所示的租借信息更新窗口，通过它能对影碟租借信息表中的信息进行更新。-11-其各控件的代码如下窗口open事件代码：dw_1.settransobject(sqlca)dw_1.retrieve()“删除”按钮代码：longll_currentrow,ll_rtnll_currentrow=dw_1.getrow()ll_rtn=messagebox(提示,你将要删除纪录，是否继续,question!,yesno!,1)ifll_rtn=1thendw_1.deleterow(ll_currentrow)endif“确定”按钮代码：ifdw_1.update()=1thencommitusingsqlca;messagebox(提示,数据库更新成