《delphi碟片管理系统课程设计报告.doc》由会员分享，可在线阅读，更多相关《delphi碟片管理系统课程设计报告.doc（23页珍藏版）》请在三一办公上搜索。
1、 经济与管理学院课程设计报告课程设计名称 碟片出租管理系统设计 目 录一.碟片出租管理系统规划1.1开发背景31.2现行系统状况31.3新系统目标41.4系统总体结构以及可行性分析4二.碟片出租管理系统分析2.1 业务流程分析52.2 数据流程分析62.3 数据字典7三.碟片出租管理系统设计3.1 系统总体结构设计83.2 代码设计93.3 数据库设计103.4 输入/输出设计 123.5 物理配置方案设计12四.碟片出租管理系统实施 4.1 系统开发环境13 4.2 模块功能实现13五.系统评价5.1系统优点215.2系统缺点21六.总结 22七.参考文献22一.碟片出租管理系统规划1.1开
2、发背景中国计量学院亮苑影视协会自成立以来，让广大学生欣赏到了很多精彩的影视作品，受到了大家的一致好评。它以探讨电影艺术，诠释文化哩念，拓宽学生视野为宗旨，丰富学生们的业余文化生活，培养学生们的兴趣、能力，辅助学习，完善个性。在管理制度不断完善的同时，协会的活动也在逐渐完善。除了每周五、周六的电影放映，还举办了一些专题电影周。学生们对电影的兴趣不断增长，越来越多的学生已不满足于仅仅是在协会看电影，还有学生想通过碟片教程学一些他们感兴趣的东西，比如，社交舞等。于是，很多学生自己也会去购买一些碟片用于学习或者娱乐，但是大部分碟片的再使用率都不高，存放也不方便。协会的负责人发现了这个现象，所以出台了碟
3、片出租的规定，除了协会的碟片，更欢迎学生把自己闲置的碟片捐到协会跟大家一起分享，为大家建立了一个相互交流的平台。随着规模的扩大和人数的增多，碟片越来越多，还出现了有些同学一借不还的现象，而目前协会仍采用人工处理的方法，不仅工作量大，劳动效率低，也造成管理的困难。很显然，这样的管理已经不能适应发展的需要，建立碟片出租管理系统，用计算机管理代替手工处理成为趋势。1.2现行系统状况目前协会日常的碟片出租管理是一个较为繁琐的过程，它的业务主要集中在对碟片的管理和碟片的出租归还上。存在如下的弊端：1.由专人负责碟片的管理，并了解会员租借碟片的需求。将所有的碟片片名按照字母顺序排序，并编号，该编号唯一对应
4、一部影片，然后以后按照“哪里取，哪里还”的原则进行碟片的租借和归还。为了方便会员查找，租借人要将写有对应编号的电影的海报按照字母顺序装订成目录，会员可自由查询。这个处理过程是整个系统中最繁琐，处理量最大的一个环节。最初的建立要花很长的时间，而且这个过程不会停止，会员会时不时地向协会捐出碟片，协会也会购入新片，要随时添加，由人工来完成就会很繁琐。2.为了记录碟片的租借情况，还需准备一个记录簿。会员来租借碟片，管理员以首字母为目标到碟片架上的对应位置查找，这个过程效率很低，为了寻找一部片子往往要花很长的时间。而且，由于协会规模的限制，一般只有1到3个人负责，当会员较多的时候，这个过程会浪费会员的很
5、多时间。3.在会员归还碟片的时候，首先，对碟片进行初步检查，如有损坏，酌情处理，最后将碟片放还到原位置。这个过程比较简单，但是查找租借记录却需要花费很长的时间，消除记录的时候还可能出现疏漏或者错误，给出租方和租借方都造成很大的不便。1.3新系统目标系统实现后，用计算机系统代替原来繁琐的碟片出租管理，碟片及会员的一切信息都可以由计算机来处理并储存，相对于手工操作可以节省大量的时间，从而提高工作效率。还可以使管理者对碟片及会员的信息有更直观和全面的了解，完成以下功能：1.按照碟片的类型、种类、名称等信息建立数据库，以便进行碟片信息的查询。还设计有关于会员信息的数据库，包括会员姓名、编号、联系方式以
6、及和会员有关的租借信息。2.在系统中可完成出租、归还碟片信息的统计，碟片信息查询，客户及碟片的添加或删除等多项任务，减少管理者的工作量。3.通过统计租借情况，了解会员需求。1.4系统总体结构以及可行性分析1.4.1系统总体结构本系统由登陆窗体、主窗体、碟片信息窗体、会员信息窗体、租借信息窗体、统计窗体、打印窗体这些窗体组成。（1）碟片信息窗体第一页：碟片信息修改。数据表项目有碟片编号、碟片名、碟片播放格式、碟片类型、主演、导演和碟片描述，通过“增加、修改、删除、保存、取消、退出”来实现。第二页：碟片信息查询。按照碟片类型和状态进行查询，并可以将查询结果打印成报表。（2）会员信息窗体大体上，跟碟
7、片信息窗体类似，分为会员信息修改和会员信息查询两页。（3）租借窗体第一页：出租信息管理。对出租信息进行增加、修改、删除、保存、取消、退出。第二页：归还信息管理。按单据号查询出租记录，然后进行计费处理。（4）统计窗体统计碟片的捐赠以及借阅情况。1.4.2系统可行性分析1.系统开发的必要性目前协会采用的人工处理方法，对于大量碟片的管理有很大的局限性，且工作量大，劳动效率低，容易出错，处理过程也比较繁琐，不能提高会员的满意度，这样容易失去老会员，也不易吸引新的会员，对协会的发展造成一定的影响。所以，碟片出租管理系统应运而生。2.经济可行性由于本系统功能模块相对较少，功能复杂度不高，主要涉及到租借这一
8、核心模块。其他费用（比如设备费用、材料费用）也不涉及，所以开发本系统成本较低，只需两名熟悉计算机编程和数据库应用的程序员进行编程。3.技术可行性开发本系统主要使用Delphi7.0进行编程，以及运用Database desktop进行数据库管理，所以只要开发人员可以熟练运用Delphi7.0即可。4.组织管理可行性在原有的基础上，为了满足协会的发展需要，开发人员保持了很高的开发热情。另外，由于碟片出租本身是一个比较简单的经营活动，管理人员不需要太多，业务项目也不太多。在建立一个新的系统后，各自的工作性质也不会有太大的变动。但是，可以通过整个系统了解到其他人员的工作状况及整体的工作情况，因此，在
9、工作过程中更容易相互协调，也更容易进行管理。二.碟片出租管理系统分析2.1业务流程分析业务流程是指某项业务活动的工作流程。碟片出租管理系统日常的业务主要包括租借、归还和捐赠碟片三大部分。其中：（1）租借业务：会员根据碟片名找到碟片后，到外借处凭会员卡借出碟片。（具体业务流程图见图2.1.1）（2）归还业务：会员将碟片在归还处归还，操作员检查确认后，进行计费处理，若有损坏则需赔偿,费用自动在会员卡中扣除。（具体业务流程图见图2.1.2）（3）捐赠碟片业务：如果还不是会员，将碟片捐赠给协会，则成为会员；如果已是会员，则积分相应增加。同时，操作员记录相关碟片信息。（具体业务流程图见图2.1.3）会员
10、借碟片操作员碟片信息表会员卡碟片出租信息表图2.1.1 租借业务流程图会员归还碟片操作员出租信息表碟片信息表图2.1.2 归还业务流程图会员捐赠碟片操作员会员信息表碟片信息表图2.1.3 捐赠碟片业务流程图2.2数据流程分析数据流程图是描述某个业务中数据输入、处理、输出、存储情况的图。根据以上业务流程图有如下的数据流程图：会员P1租借处理会员卡D1 碟片信息D2 租借信息图2.2.1 租借处理数据流程图会员P2检查处理P3归还处理小票有损无损P4赔偿处理D2 租借信息D1 碟片信息图2.2.2 归还处理数据流程图会员P5捐赠处理D3 会员信息D1 碟片信息图2.2.3 捐赠处理数据流程图2.3
11、数据字典数据字典是对数据流程图里所有元素的详细解释。它包含数据流、数据项、数据结构、数据存储、处理逻辑和外部实体这6个内容。因篇幅有限，以下每个内容选取一个例子。2.3.1数据流1.数据流编号：F1 数据流名称：会员卡 来源：会员 去向：P1处理：进行碟片租借 组成：会员卡号、会员姓名、身份证号、积分、联系方式、地址2.3.2数据项1.数据编号：0001 名称：操作员工号数据类型：字符型长度：6取值范围：000001-9999992.3.3处理逻辑1.编号：P2名称：检查处理处理逻辑：检查碟片是否有损坏，若无损，则正常归还；若有损，则先进行赔偿处理再归还。输出：P3、P42.3.4数据存储1.
12、编号：D3 名称：会员信息 输入数据流：F1 输出数据流：无组成：会员卡号、会员姓名、身份证号、积分、联系方式、地址排列方式：按会员卡号排序2.3.5外部实体1.编号：01 名称：会员简述：租借碟片输入数据流：无输出数据流：无三.碟片出租管理系统设计3.1系统总体结构设计3.1.1系统功能描述本系统主要包括系统、基础信息、租借管理、捐赠管理、统计这五个模块，系统功能结构图,如图3.1.1：碟片出租管理系统系统登陆系统退出收费借阅查询碟片信息管理会员信息管理借阅归还借阅统计捐赠统计系统基础信息租借管理统计捐赠管理图3.1.1 碟片出租管理系统功能结构图（1）系统：进行系统的登陆与退出。（2）基础
13、信息：主要对碟片信息以及会员信息进行管理，可以进行碟片和会员信息的输入、浏览、更新等操作。（3）租借管理：是本系统的核心模块，完成出租和归还，并能按照要求进行查询，还可将查询结果通过报表显示。（4）捐赠管理：主要对会员捐赠碟片进行记录，包括捐赠碟片的所有信息以及会员积分的增加。捐赠碟片以后，会员积分相应地增加，其中，积分到一定数额，可以换取小礼品。（5）统计：主要目的是可以对协会的碟片出租情况和会员的捐赠情况进行统计。其中，可以统计碟片借出的总数和会员捐赠碟片的排行。3.2代码设计系统的分类编码工作主要有以下几个方面：碟片的编码、操作员的编码、日期编码等。3.2.1碟片编码碟片编码主要依据以下
14、原则：碟片编码由8位数字组成。第一位代表碟片的播放形式，如：1为VCD，2为DVD等。第二位代表碟片的类型，如：1为剧情片，2为动作片，3为科幻片，4为奇幻片，5为武侠片，6为爱情片，7为文艺片，8为动画片等，增加新类型就以此原则类推。第三位代表碟片的国别，如：1为中国影片，2为外国影片等。四至八位代表影片的顺序编号。例如：中国影片我的父亲母亲DVD的编号为21100001。3.2.2操作员编码操作员编码主要依据以下原则：操作员编码由6位数字组成。前两位代表入职时间，如：前两位数字为05，则代表该操作员05年入职。第三位代表操作员性别，如：1为男性，2为女性。后三位代表操作员的顺序编码。例如：
15、一位07年入职的女性操作员小香的编码为072001。3.2.3会员编码会员编码采用顺序码，由6位数字组成，按照入会的先后顺序确定其编码，从000001开始。3.2.4单据号编码 单据号编码采用顺序码，由3位数字组成，因为业务量还不是很大，从001开始编号，并且协会规定会员一次只能借出一张碟片。系统编码中其他编码的设计原则如下：应付租金、会员卡金额、会员卡余额、罚金采用货币字符码，日期采用日期型编码，姓名和身份证采用文本型编码。3.3数据库设计3.3.1数据库设计在Database desktop中直接可以创建数据库。3.3.2数据库概念结构设计E-R图：会员会员卡号地址积分会员姓名联系方式身份
16、证号租借归还日期出租日期单据号碟片碟片编号碟片名碟片类型状态导演主演碟片描述碟片播放格式每天租金会员卡金额会员卡余额应付租金罚金图3.3.1 碟片出租管理系统E-R图3.3.3数据库逻辑结构设计在数据的规范表达中，一般将一组相互关联的数据称为一个关系，而在这个关系下的每一个数据指标项，则称为数据元素。这种关系落实到具体数据库就是基本表（在Database desktop中是一个db文件）。本系统数据库的核心部分主要由操作员表、碟片信息表、会员信息表、碟片出租信息表这四张表组成。表3.3.1：操作员表（czyxx.db）字段名类型长度关键字否备注操作员工号Alpha6是姓名Alpha8密码Alp
17、ha6附：该表用于记录该系统操作者的信息。表3.3.2：碟片信息表（dpxx.db）字段名类型长度关键字否备注碟片编号Alpha8是碟片名Alpha70碟片播放格式Alpha3碟片类型Alpha6导演Alpha20主演Alpha30碟片描述Alpha250状态Alpha4附：该表由所有碟片的基本信息组成，操作员对碟片的增添、删除就是针对此表进行修改。表3.3.3：会员信息表（hyxx.db）字段名类型长度关键字否备注会员卡号Alpha6是会员姓名Alpha8身份证号Alpha18积分Alpha10联系方式Alpha13电话地址Alpha50附；该表用于记录会员的信息。表3.3.4：碟片出租信息
18、表（czxx.db）字段名类型长度关键字否备注单据号Alpha20是会员卡号Alpha6碟片编号Alpha8出租日期Date归还日期Date应付租金Number会员卡金额Number会员卡余额Number每天租金Number罚金Number附：该表用于记录会员的租借信息。3.4输入/输出设计3.4.1输入设计输入设计包括输入方式、输入格式、校验方式等。输入方式：本系统采用键盘输入的方式。比如本系统中，碟片信息这种灵活性比较大的输入内容，用键盘输入比较方便，也容易修改。输入格式：根据内容，采用规定好的格式。比如本系统中，日期的格式为yyyy-mm-dd。校验方式：静态校验，即用人工目测的方法对输
19、入的数据与原始数据进行校对。比如本系统中，一位操作员输入碟片信息以后，由另外一名操作员进行核对。3.4.2输出设计输出设计包括报表输出等。输出方式：显示器、打印机。报表可输出查询结果等。3.5物理配置方案设计3.5.1计算机硬件选择CPU：300MHz或更高的处理器内存：64MB以上磁盘空间分辨率：最低800*600像素，建议1024*768像素颜色：256色3.5.2网络选择由于本系统只需一台电脑进行操作，故无需进行网络选择。3.5.3软件选择操作系统：Windows XP数据库管理系统：Database Desktop四.碟片出租管理系统实施4.1系统开发环境系统开发工具为Delphi7.
20、0。4.2模块功能实现4.2.1窗体及代码设计1.创建工程dp.dpr2.登陆窗体图4.2.1 操作员登陆窗体 在操作员登陆窗体中，操作员输入自己的姓名和密码，确认以后，如果输入正确则登陆成功，否则提示有误；取消按钮则取消此次登陆。代码如下：with Q_czyxx dobeginclose; /关闭czyxx数据集sql.Clear; /消除sql.add(select*from czyxx where 姓名=:a and 密码=:b);parambyname(a).asstring:=trim(edit1.text); /在edit1中输入姓名parambyname(b).asstring
21、:=trim(edit2.text); /在edit2中输入密码open; /打开end;if q_czyxx.recordcount0 then /如果姓名和密码匹配，则显示主窗体；mainform.show 否则提示信息输入有误elseshowmessage(操作员姓名或密码错误，请再输入);3.主窗体图4.2.2 主窗体在主窗体中，操作员可以在菜单中选择自己需要进行的操作，例如在租借管理下拉菜单中有出租信息管理和归还信息管理。同时也对经常要使用到的操作做了快捷键设置，比如进行归还碟片操作时，可直接使用快捷键。代码如下：（1）租借管理下拉菜单有出租信息管理和归还信息管理，其中，显示出租信息
22、管理页面的代码为：czxxform.show; /显示租借信息窗体czxxform.pagecontrol1.activepage:=czxxform.tabsheet1; /显示出租信息管理页显示归还信息管理页面的代码为：czxxform.show; /显示租借信息窗体czxxform.pagecontrol1.activepage:=czxxform.tabsheet2;/显示归还信息管理页其余菜单中的操作都与以上操作类似，所以不赘述。（2）归还碟片快捷键czxxform.show; /显示租借信息窗体czxxform.pagecontrol1.activepage:=czxxform.t
23、absheet2; /显示归还信息管理页 其余快捷键操作也都类似，不赘述。（3）退出close;（4）窗体最下方显示的操作员信息以及当前日期和时间statusbar1.Panels1.Text:=碟片出租管理系统;statusbar1.Panels3.Text:=小香;statusbar1.Panels5.Text:=formatdatetime(yyyy-mm-dd,now); statusbar1.Panels7.Text:=formatdatetime(hh:mm:ss,now);4.碟片信息窗体图4.2.3 碟片信息修改在碟片信息修改中，操作员可以对碟片信息进行添加、修改、删除、保存、
24、取消、退出。代码如下：（1）添加t_dpxx.Append; /在表末尾增加一条空记录dbedit1.setfocus; /将光标自动落在dbedit1上（2）删除if messagedlg(确实要删除吗？,mtconfirmation,mbyes,mbno,0)=mryes then /提示是否删除begint_dpxx.Delete;showmessage(删除成功); endelseexit;（3）修改t_dpxx.Edit;dbedit1.setfocus;（4）保存t_dpxx.Post;showmessage(保存成功）;（5）取消t_dpxx.Cancel;（6）退出close;
25、图4.2.4 碟片信息查询在碟片信息查询中，可以按照碟片类型或者碟片状态进行查询，并且打印查询的结果。代码如下：（1）按碟片类型查询with Q_dpxx dobeginclose; /关闭dpxx数据集sql.Clear; /消除sql.Add(select * from dpxx where 碟片类型=:a);parambyname(a).AsString:=combobox1.Text; /按碟片类型查询open;end;（2）按碟片状态查询，与按碟片类型查询类似with Q_dpxx dobeginclose; /关闭dpxx数据集sql.Clear; /消除sql.Add(selec
26、t * from dpxx where 碟片状态=:a);parambyname(a).AsString:=combobox2.Text; /按碟片状态查询open;end;（3）打印reportform.show;5.打印窗体图4.2.5 打印窗体按照查询结果，打印出碟片信息报表，其中显示碟片编号、碟片名称、碟片类型、主演和状态这五项内容。代码如下：（1）implementationuses dpxx; /打印的数据来自dpxxform的查询结果（2）procedure Tsrdy1.FormShow(Sender: TObject);beginquickrep1.Preview; /预览q
27、uickrep1end;6.会员信息窗体图4.2.6 会员信息修改在会员信息修改中，利用DBNavigator实现对会员信息添加、修改、删除、保存、取消、退出的操作图4.2.7 会员信息查询在会员信息查询中，可以根据会员姓名进行查询，代码如下（跟按照碟片类型查询类似）：with Q_hyxx dobeginclose;sql.Clear;sql.Add(select * from hyxx where 会员姓名=:a);parambyname(a).AsString:=edit1.Text;open;end;7.租借信息窗体图4.2.8 出租信息管理在出租信息管理中，利用DBNavigator
28、实现对出租信息的添加、修改、删除、保存、取消、退出。图4.2.9 归还信息管理在归还信息查询中，先根据单据号查询出租信息，如果查到这条记录，然后归还日期中自动显示当前日期，操作员检查碟片后确定罚金以及应付租金，系统直接计算出会员卡余额。代码如下：（1）查询if T_czxx.locate(单据号,Edit1.text, )then T_czxx.Edit; /查询到单据号以后，进入编辑状态（2）归还日期中显示当前日期procedure TczxxForm.DBEdit5Enter(Sender: TObject);beginT_czxx.Fieldbyname(归还日期).AsString:=
29、datetostr(date);/当光标进入，归还日期中即显示当前日期end;（3）计算会员卡余额procedure TczxxForm.DBEdit6Enter(Sender: TObject);beginT_czxx.fieldbyname(会员卡余额).AsFloat:=T_czxx.Fieldbyname(会员卡金额).AsFloat-T_czxx.Fieldbyname(应付租金).AsFloat- T_czxx.Fieldbyname(罚金).AsFloat; /当光标进入。会员卡余额按照“会员卡余额=会员卡金额-应付租金-罚金”这个公式计算end;（4）归还T_czxx.post
30、; /即保存这条归还记录showmessage(归还成功); /并提示归还成功 8.统计窗体图4.2.10 统计窗体在统计窗体中，可以统计出当前借出碟片的总数，以及会员捐赠碟片数量的排行。由一个按钮完成，代码如下：（1）借出总数统计with Q_dpxx3 dobeginclose;sql.Clear;sql.Add(select * from dpxx where 状态=:a);parambyname(a).AsString:=借出; /查找碟片状态为借出的碟片open;end;if q_dpxx3.recordcount0 /对借出状态的碟片进行记数then edit1.Text:=int
31、tostr(Q_dpxx3.recordcount);（2）排序，因为会员每捐赠一张碟片，积分增加10分，而协会规定年末的时候会员根据积分可以换得小礼品，一年积分清零一次，所以积分的多少可以说明捐赠碟片数量的多少。with Q_hyxx2 dobeginclose;sql.Clear;sql.Add(select 积分,会员姓名,会员卡号 from hyxx order by 积分 desc);/按照积分进行降序排列open;end;五.系统评价5.1系统优点本系统是我们考察了实际需求以后确定的，应当说有一定的实用价值。利用两周的时间开发完成，初步达到可以实用的水平。业务流程符合现实，设计的程
32、序简单，运行流畅，操作方便。数据库设计中，碟片信息表、会员信息表、碟片出租信息表之间的数据关系非常紧密，既减少冗余，又确保了数据准确。可以进行查询，统计。用计算机代替了手工操作，基本实现了系统的目标。5.2系统缺点由于时间上的紧迫,系统难免存在着一些不足。系统采用的数据库管理系统是Delphi自带的Database Desktop，不适用于数据量较大的系统。另外，统计方面只做了借出总数以及会员捐赠情况的排序；查询的时候只能“或”查询，不能做到“并”查询；还可以考虑分用户级别进行操作限定的方法，使得系统更加完善。六.总结经过两个星期的努力，我们完成了碟片管理系统的开发。通过这次课程设计，我们不仅
33、巩固了以前所学的知识，理论联系实际，更加深了对整个管理信息系统开发过程的了解，尤其是系统的规划、分析和设计这几个部分，体会到了它们对于完成一个系统的重要性。在系统编程时，会经常遇到问题，这个时候我们也会觉得烦躁，但是最后我们通过努力，以及老师和同学的帮助，经过几次修改，完成了这个系统，使系统初步达到了可以实用的水平。整个开发过程是一个不断完善的过程，目前利用系统可以使碟片的出租、统计和整理由计算机完成，减轻了协会的管理工作量。随着协会的进一步发展，系统也一定会更趋于完善。七.参考文献1.管理信息系统 易荣华主编 中国计量出版社2.Delphi程序设计教程 杨长春主编 清华大学出版社3.管理信息系统开发案例分析 钟雁主编 清华大学出版社 北京交通大学出版社4.Delphi信息系统开发实例精选 赛奎春主编 机械工业出版社分工情况报告：杨少艾程序：尹芬附录A：指导教师评语及成绩指导教师评语：成绩评定： 指导教师： 年 月 日
