影碟出租管理系统

1、精选优质文档-倾情为你奉上影碟出租管理系统 1 需求分析1.1 系统的名称影碟出租管理系统1.2 系统概述随着社会的发展，人民群众的生活水平的提高及其文化消费需求日益发展，音像制品出租业务也随之有了很大的发展，对于一般的中小城市和乡镇都有了很多的大小不等的提供音像制品出租业务的商家。但是伴随而来的是音像制品大量的增加，过去传统的手工记帐式的出租方式已经不可能满足日常大量的音像制品出租业务管理，所以有基于此，很有必要借助于计算机来帮助人们来完成这些很为烦索的事情。面随着计算机技术的发展，解决这个问题早已经不是难事了！本程序正是基于此而开发出来的面向一般的音像制品出租商家的程序。基于工业化标准的S

2、QL的数据库操作管理，使数据处理变的更为方便和容易，能提供相当丰富的功能以及友好的用户操作界面。 而随着科技的发展，传统录音带租售店租售产品由录影带扩及至VCD、DVD等影片媒体，所以本产品主要针对影碟出租管理而设计，抛弃了已经被淘汰录像带的管理。 由于现在各种影片繁多，数量巨大，用人工方法很难快速的找到用户所需要的影碟，针对这一问题，本系统设计了按影碟名查询的方法。只要输入用户想要租借的影碟名，即可快速的得到其相关信息。这既节约了顾客的时间，同时也大大的减少了管理人员的工作量。目前各地影碟出租店组织结构类似，供销运作过程和工作环境类似。各地影碟出租店间的相似性为软件的推广提供了有力的基础。如

3、果该系统建成并推广，将可以产生具有巨大的经济效益和社会效益。1.3 系统要实现那些功能，每个功能的具体描述我们所设计的影碟出租管理系统，主要能实现以下功能：1、影碟管理：包括新影碟的入库、旧影片的删除等；2、影碟租借：包括借影碟、更改影碟信息、归还影碟、更新影碟租借信息等。3、影碟的查询：按片名查询。4、帮助：显示系统的基本功能。 影碟管理影碟借租影碟查询帮助影碟管理系统2 概要设计2.1 系统概述本系统主要是应用在普通的影碟出租店,能够完成以下功能：新影片的入库、旧影片的删除、按片名查询、借影碟等。实现了PowerBuilder 9.0与SQL Server 2000的连接，能够在Power

4、Builder 9.0对SQL Server 2000中的数据库进行访问、添加、删除等操作。2.2 数据库设计2.2.1 数据库表结构设计根据本系统所要实现的功能，我们主要设计了两个表格，其结构如下：表1 影碟信息表videoinf列名数据类型可否为空说明Discidchar(10)No影碟编号（主键）Disnamevarchar(50)Yes影片名称Numberchar(10)Yes张数Starvarchar(50)Yes演员Buydate char(10)Yes日期Price float(8)Yes价格Ibstract varchar(100)Yes说明信息表2 租借信息表 hiredvd

5、列名数据类型可否为空说明Discnamevarchar(50)No影片编号（主键）Loandate char(10)Yes借出日期Return char(10)Yes应还日期Deposit float(8)Yes押金Hire float(8) Yes租金clientnaemchar(10)No顾客姓名2.2.2 E-R图影碟租借片名查询影碟查询查询影碟管理租借影碟编号影碟名称张数日期价格演员影片信息租借信息影碟名称借出日期应还日期押金租金2.2.3系统各功能模块如何实现系统开发的任务是实现各种信息的系统化，规范化和自动化。系统主要功能分析是在系统开发的总任务的基础上完成的，本系统应在普通的影碟

6、出租店，它的主要功能及模块如何实现如下：1影碟管理功能模块：包括新影片的入库、旧影片的删除等；1）新影片的入库：将新碟信息添加到影碟信息表中； 2）旧影片的删除：将旧影片信息从影碟信息表中删除。2影碟租借功能模块：租借影碟，即将租借信息写入出租影片情况表，并在影碟信息表中做相应的更改；3影碟归还功能模块：归还影碟，通过输入影碟名和顾客姓名，即可找出该租借用户租借影碟的相关信息，在确认归还后，由管理员在影碟租借信息表中对有关信息做出相应的更新；4影碟查询功能模块：按片名查询，通过输入影片名称，即可在相应的窗口中显示出与之对应的主演、现有碟片张数、租金等信息； 5统计售量功能模块： 对登记月租用户

7、租借数量进行统计。2.2.4 开发的平台，使用的数据库及开发工具Window XP， PowerBuilder 9.0，SQL Server 2000，Visio 2003等。3 系统开发3.1 登录窗口的设计依次单击file-new-window命令建立如图1所示的登录窗口（win窗口）。 图1 登录窗口在应用程序对象的open事件中写入如下语句：sqlca.dbms="odbc"sqlca.autocommit=falsesqlca.dbparm="connectsting='dsn=zuoye'"connect;open(win)w

8、in窗口各控件的代码如下cb_1(确认)的clicked事件代码：if sle_1.text="622" thenif sle_2.text="622" then open(w_mdi)close(win)elsemessagebox("警告","密码错误,请重新输入!")end ifend ifcb_2(退出)的clicked事件代码：close(win)3.2 应用程序主窗口的设计系统应用程序的主要功能是在主窗口w_main（如图2所示）中完成的。 图2 主窗口其各事件代码如下m_影片管理 .m_新片

9、入库的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所示，它主要实现了从PowerBuilder 9.0添加数据到SQL Server 2000中数据库的功能。 图3 新片入库窗口 其各控件的代码如下cb_1(添加)的clicked事件代码：lon

10、g ll_currentrowll_currentrow=dw_1.getrow()dw_1.insertrow(ll_currentrow)cb_2(保存)的clicked事件代码：if dw_1.update()=1 thencommit using sqlca;messagebox("提示","数据库更新成功")elserollback using sqlca;messagebox("提示","数据库更新不成功")end ifcb_3(退出)的clicked事件代码：close(parent)3.3.2旧影片

11、删除窗口的设计选择“影片管理旧片删除”就会看到如图4所示的旧影片删除窗口（w_del），该窗口主要实现从PowerBuilder 9.0删除和更新SQL Server 2000中数据库中数据的功能。图4 旧片删除窗口 其各控件的代码如下cb_1(检索)的clicked事件代码：dw_1.retrieve()cb_2(删除)的clicked事件代码：long ll_currentrow,ll_rtnll_currentrow=dw_1.getrow()ll_rtn=messagebox("提示","你将要删除纪录，是否继续",question!,yesno

12、!,1)if ll_rtn=1 thendw_1.deleterow(ll_currentrow)end ifcb_2(确定)的clicked事件代码： if dw_1.update()=1 thencommit using sqlca;messagebox("提示","数据库更新成功")elserollback using sqlca;messagebox("提示","数据库更新不成功")end ifcb_4(退出)的clicked事件代码：close(parent)3.4 影碟查询窗口的设计对影片可以按照不同的

13、索引进行查询，在本系统中，我们只设计了按“影片名查询”，其查询窗口如图5所示，它主要实现通过PowerBuilder 9.0访问SQL Server 2000中数据库里数据的功能。图5 查询窗口 其各控件的代码如下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="&quo

14、t;select "videoinfo"."discname", "videoinfo"."discid","videoinfo"."discname","videoinfo"."star","videoinfo"."price","videoinfo"."number"into :sle_1.text, :sle_2.text, :sle_3.text,

15、:sle_4.text, :sle_5.text, :sle_6.textfrom "videoinfo"where "videoinfo"."discname"=:sle_1.text;if sle_1.text="" thenmessagebox("警告","请输入影片名!")end ifsle_1.setfocus()cb_2(退出)的clicked事件代码：close(parent)3.5 影碟租借模块的设计影碟租借模块主要实现以下功能：借出影碟录入影碟租借信息更改影

16、碟信息3.5.1租借影碟窗口的设计我们设计的影碟租借窗口（w_return）如图6所示，在该窗口下，主要能完成对顾客欲要租借影碟的初步信息以及将相关租借信息写入到租借信息表 hiredvd中去。图6 租借影碟窗口其各控件的代码如下w_return窗口open事件代码：dw_1.settransobject(sqlca)“查询” 按钮clicked事件代码：sle_2.text=""sle_3.text=""sle_4.text=""select "videoinfo"."discname",&q

17、uot;videoinfo"."star","videoinfo"."number","videoinfo"."price"into :sle_1.text, :sle_2.text, :sle_3.text, :sle_4.textfrom "videoinfo"where "videoinfo"."discname"=:sle_1.text;if sle_1.text="" thenmessagebox

18、("警告","请输入影片名!")end ifsle_1.setfocus()“借碟信息”按钮clicked事件代码：long ll_currentrowll_currentrow=dw_1.getrow()dw_1.insertrow(ll_currentrow)“确定”按钮clicked事件代码：if dw_1.update()=1 thencommit using sqlca;messagebox("提示","数据库更新成功")elserollback using sqlca;messagebox("

19、提示","数据库更新不成功")end if open(w_del)“退出”按钮clicked事件代码：Close(parent)3.5.2 租借信息更新窗口的设计 与旧片删除窗口的设计方法类似，我们设计了如图7所示的租借信息更新窗口，通过它能对影碟租借信息表中的信息进行更新。图7 租借信息更新窗口其各控件的代码如下窗口open事件代码：dw_1.settransobject(sqlca)dw_1.retrieve()“删除” 按钮代码：long ll_currentrow,ll_rtnll_currentrow=dw_1.getrow()ll_rtn=messag

20、ebox("提示","你将要删除纪录，是否继续",question!,yesno!,1)if ll_rtn=1 thendw_1.deleterow(ll_currentrow)end if“确定”按钮代码：if dw_1.update()=1 thencommit using sqlca;messagebox("提示","数据库更新成功")elserollback using sqlca;messagebox("提示","数据库更新不成功")end if“退出”按钮代码：c

21、lose(parent)3.6 影碟归还窗口的设计 根据需要，我们设计的影碟归还窗口如图8所示，输入影碟名和顾客名后点击查询按钮可以查找出该租借用户租借该影碟的相关信息，点击张数更新按钮可以跳转到对相应的窗口对影碟信息表中该影碟张数进行更新。 图8 影碟归还窗口其各控件代码如下“查询”按钮代码：sle_3.text=""sle_4.text=""sle_5.text=""select "hiredvd"."discname", "hiredvd"."clientna

22、me", "hiredvd"."discname", "hiredvd"."clientname","hiredvd"."number"into :sle_1.text, :sle_2.text, :sle_3.text, :sle_4.text, :sle_5.textfrom "hiredvd"where "hiredvd"."discname"=:sle_1.text and "hiredv

23、d"."clientname"=:sle_2.text;if sle_1.text="" or sle_2.text=""thenmessagebox("警告","请同时输入影片名和顾客用户名!")end ifsle_1.setfocus()sle_2.setfocus()“更新张数”按钮代码：open(w_return)“退出”按钮代码：close(parent)3.7 帮助窗口的设计帮助窗口（w_help）如图7所示，它主要提供一些对本系统基本功能的介绍信息。 图9 帮助窗口其“退出”按钮的代码：Close(parent)4 总结分工情况：需求分析：韦显望概要分析：王炳文开发：饶玉泉总结：刘礼仙通过全体成员近一周的共同努力，我们小组顺利完成影碟出租系统的开发。在系统的开发过程中，我们主要用到的工具是SQL Server 2000和PowerBuilder 9.0。该系统实现了前述两种开发