资源描述
摘 要玩具租赁是以玩具为实物进行借贷的一种经济行为，在这种经济行为中，出租人将自己所拥有的玩具交与承租人使用，承租人由此获得在一段时期内使用该玩具的权利，但玩具的所有权仍保留在出租人手中，承租人为其所获得的玩具使用权需向出租人支付一定的费用(租金)玩具是儿童的必需品，家长每年都会给孩子购买少则几百多则几千的玩具，但是由于孩子对玩具喜新 厌旧，一个几百元的玩具几天就不感兴趣了，而市场上层出不穷的高价玩具及孩子对玩具永不满足的渴求，都在促使家长对玩具出租行业的强烈需求【1】好的玩具不仅能给孩子带来快乐，更能开发其智力，激发想象力，锻炼动手能力，促进其健康成长然而，面对日新月异品种繁多的玩具世界，许多家长却有着相同的烦恼：即玩具品种越来越多，价格越来越高，孩子的好奇心越来越大，同时对玩具“喜新厌旧”的速度也越来越快结果，一面是不断购进新玩具以满足孩子的欲望，另一面却是家里新旧玩具不断堆积，弃之可惜，留之无用，造成了很大浪费玩具出租业的诞生，为广大家长带来了福音，解决了难题如今，只要花一件玩具的钱，就可以让自己的孩子享受到十件，甚至几十件玩具的快乐，即充分满足了孩子们永无止境的好奇心，又为家长节省了开支，更免除了玩具维修、存放等后顾之忧关键词：玩具租赁，玩具出租市场分析，MISABSTRACTLeasing is a toy for the toy to borrow a kind of economic behavior, in which economic behavior, the lessor will have their own toys with the lessee to pay to use, the lessee within a period of time thus obtained to use the right toys , But the toys remain in ownership of the hands of the lessor, the lessee for the toys they have acquired the right to use the lessor is required to pay a fee (rent). Toys are a necessity for children, parents and children every year to buy as little as a few hundred to as many as thousands of toys, children toys, but because grass is always greener, a few hundred dollars of toys is not interested in a few days, but the endless stream of high-priced toys on the market And children toys, insatiable desire for all parents in the promotion of toy rental industry, the strong demand. Good toys bring joy not only to give the child to better develop their intelligence, imagination, exercise ability, to promote their healthy growth. However, faced with ever-changing world, a wide variety of toys, but many parents have the same worry: that more and more toy breed, the price higher and higher, increasing the childs curiosity, while Toys grass is always greenerspeed And fast. Result, one side is constantly buying new toys to meet the childs desires, but the other side of the family continued accumulation of old and new toys, but wasteful to discard, leaving the useless, causing a great waste. Toy rental industry was born, for the majority of the parents brought the gospel to solve the problem. Now, as long as the money spent a toy, you can make your child a ten, even dozens of pleasure toys, that fully satisfy the endless curiosity of children, but also save costs for parents, more Remove the toy repair, storage and other worries.Keywords: Toy Rental,toy market,MIS目 录摘 要IABSTRACTII第1章 绪论11.1 开发背景11.2 系统要求21.3 系统开发方法2第2章 相关理论32.1 本系统编程语言的介绍32.2 本系统开发工具的介绍42.3 本系统数据库的介绍5第3章 系统分析63.1 可行性分析63.1.1 管理上的可行性63.1.2 技术上的可行性63.1.3 经济上的可行性63.2 需求分析73.2.1 编写目的与研究范围73.2.2 系统设计思想73.2.3 系统功能分析8第4章 数据库设计104.1 E-R图104.2 数据字典134.3 数据关系图15第5章 系统功能设计165.1 登入165.2 玩具信息查询及修改175.3会员信息查询及修改185.4 玩具入库195.5 玩具的销售及出租205.6 玩具租赁查询及退还215.7 普通管理员权限修改225.8 数据备份与恢复23第6章 关键技术246.1 登入功能实现246.2 玩具出租功能实现276.3 数据备份功能30第7章 系统测试317.1 系统测试及其特点317.2 具体功能测试32结 论34参考文献35致 谢36IV第1章 绪论1.1 开发背景现在我国租赁行业恰出在起步阶段，市场空间庞大，蕴藏着巨大商机玩具租赁市场也在悄然打开，越来越多的家长开始把注意力转向了出租的玩具，不再一味地追求购买玩具的品种越来越多，价位也越来越高，而小孩都有喜新厌旧的特点，许多价格不菲的玩具玩不了几天就扔在一边，玩具多了占用家庭大量空间，随意扔掉又觉得可惜，这让家长感到头疼不已针对这一市场需求，玩具租赁店应运而生，主要是向顾客出租玩具商品，从中赚取租金以获得利润玩具租赁店所推行的“用一定的钱换来更多的玩具”理念，正逐渐为越来越多的家长所接受玩具对小孩子来说是一种消费速度非常快的商品，小孩不会对一种玩具保持长时间的兴趣，因此，家长一般不愿意在买玩具上花费太多的钱，租赁玩具既能给孩子提供玩更多玩具的机会，也能为家长省下不少钱世纪之初，当玩具租赁业在我国崭露头角之初，曾有市场分析专家及教育界人士指出，玩具出租行业必将会在五年内酝酿每年200亿的产业，谁先抓住机遇，谁就能在这项行业中取得巨大利益作为卖家，一方面要扩大自己的经营规模和销售渠道，另一方面更要方便快捷地对玩具进行管理、检索、出租等玩具租售管理系统是专门针对新兴的玩具租赁市场而开发的管理信息系统，其开发目标旨在提高管理者对玩具信息的检索效率，方便对玩具的销售和出租该系统的开发主要包括后台数据库的建立、维护以及前端应用程序的开发两方面的内容，数据库的建立和维护要求其管理数据的一致性、完整性、安全性等特点，而前台的应用程序开发则要求做到各项功能完备、操作要简便、易学易用等特点【2】 1.2 系统要求随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用 作为计算机应用的一部分，使用计算机对玩具租赁的各项事务进行科学化的管理有着无法比拟的优点例如：查找方便、迅速，可靠性高，存储量大，保密性好，寿命长，成本低等这些优点能搞极大地提高玩具超市的工作效率，也是玩具超市管理科学化、正规化并与世界接轨的重要条件本系统基本功能有：1、可以存储玩具有关的全部信息和会员信息，还有超市营业员相关信息2、玩具的入库管理，销售，出租3、已出租玩具的结账，玩具出租情况查询4、数据库的备份和恢复1.3 系统开发方法该系统采用C/S模式，采用原型法进行开发在开发之前，先实地走访了若干个玩具超市，询问了他们超市每天的运营情况和工作特点经过严格的需求分析后，以及参考了影碟租赁系统，最终确定了本系统的开发方法和基本功能原型法开发分四步进行：首先快速分析，弄清用户的基本信息需求；然后构造原型，开发初始原型系统；之后，用户使用并评价原型；最后开发人员修改和完善原型系统第2章 相关理论2.1 本系统编程语言的介绍模块Pascal是一种计算机通用的高级程序设计语言它由瑞士Niklaus Wirth教授于六十年代末设计并创立Pascal也可以是指人名，它的取名原本就是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal，而不是编程工具以法国数学家命名的pascal语言现已成为使用最广泛的基于DOS的语言之一，主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强 Pascal语言还是一种自编译语言，这就使它的可靠性大大提高了 Pascal具有简洁的语法，结构化的程序结构Pascal有5个主要的版本，分别是Unextended Pascal、Extended Pascal、Object-Oriented Extensions to Pascal、Borland Pascal和Delphi Object Pascal其中，Unextended Pascal、Extended Pascal和Object-Oriented Extensions to Pascal是由Pascal标准委员会所创立和维护的，Unextended Pascal类似于瑞士Niklaus Wirth教授和K.Jensen于1974年联名发表的Pascal用户手册和报告，而Extended Pascal则是在其基础上进行了扩展，加入了许多新的特性，它们都属于正式的Pascal标准；Object-Oriented Extensions to Pascal是由Pascal标准委员会发表的一份技术报告，在Extended Pascal的基础上增加了一些用以支持面向对象程序设计的特性，但它属于非正式的标准Borland Pascal和Delphi Object Pascal是由Borland公司专门为其开发的编译工具设计的Pascal语言，前者是用于DOS的Turbo Pascal系列和Windows 3.x的Turbo Pascal for Windows的传统高级语言，后者是用于Windows的Delphi和Linux的Kylix的面向对象程序设计语言，它们都不是正式的Pascal标准，具有专利性但由于Turbo Pascal系列和Delphi功能强大并且广为流行，Borland Pascal和Delphi Object Pascal已自成为一种标准，为许多人所熟悉根据本系统的开发方法和体系结构，Pascal语言比较适合此系统的开发Pascal语言的简易、结构性强、功能强大，且提供了大量的API函数，对采用原型法开发的程序而言，开发难度小，效率高，Pascal语言是种极佳的选择2.2 本系统开发工具的介绍Delphi开发工具由Borland公司推出的Delphi是全新的可视化编程环境，为我们提供了一种方便、快捷的Windows应用程序开发工具它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编译器、最为领先的数据库技术对于广大的程序开发人员来讲，使用Delphi开发应用软件，无疑会大大地提高编程效率，而且随着应用的深入，您将会发现编程不再是枯燥无味的工作Delphi的每一个设计细节，都将带给您一份欣喜 Delphi是Borland公司研制的新一代可视化开发工具，可在Windows3.x、Windows95、WindowsNT、WindowsXP、Windows Vista、Windows7等环境下使用当前，DELPHI 也可以在LINUX平台上开发应用，其在LINUX上的对应产品KylixDELPHI 拥有一个可视化的集成开发环境(IDE)，采用面向对象的编程语言ObjectPascal和基于部件的开发结构框架Delphi它提供了500多个可供使用的构件，利用这些部件，开发人员可以快速地构造出应用系统开发人员也可以根据自己的需要修改部件或用Delphi本身编写自己的部件Delphi2010内置的Direct 2D模块及开发库，其新加的功能：拥有一个能同时运作于x86和x64的IDE，在此IDE下将会有跨平台编译器，能够编译用于linux和MAC的应用程序；将会支持windows7下的触摸式编程；强化的DataSnap；将支持云计算；将支持函数式编程正是因为Delphi的可视化集成开发环境，且采用了面向对象的编程语言Pascal，结合本系统的特点，所以选用了Delphi2010开发工具2.3 本系统数据库的介绍美国Microsoft公司推出的一种关系型数据库系统SQLServer是一个可扩展的、高性能的、为分布式客户机/服务器计算所设计的数据库管理系统，实现了与WindowsNT的有机结合，提供了基于事务的企业级信息管理系统方案其主要特点如下：(1)高性能设计，可充分利用WindowsNT的优势(2)系统管理先进，支持Windows图形化管理工具，支持本地和远程的系统管理和配置(3)强大的事务处理功能，采用各种方法保证数据的完整性(4)支持对称多处理器结构、存储过程、ODBC，并具有自主的SQL语言【3】SQL Server 2005包括了一些在安全性能上的改进，例如数据库加密、设置安全默认值、增强密码政策、缜密的许可控制、以及一个增强型的安全模式对于分布式数据库而言，SQL Server 2005提供了全面的方案修改（DDL）复制、下一代监控性能、从甲骨文（Oracle）到SQL Server的内置复制功能、对多个超文本传输协议（http）进行合并复制，以及就合并复制的可升级性和运行，进行了重大的改良另外，新的对等交易式复制性能，通过使用复制，改进了其对数据向外扩展的支持第3章 系统分析3.1 可行性分析3.1.1 管理上的可行性玩具大型超市都有若干个营业员和一个主管（或者说销售经理），若干个营业员相当于本系统上的普通管理员，主管等同于超级管理员普通管理员可以进行玩具的入库、结账、查询等业务，而超级管理员除了包括普通管理员所有的功能外，还具有数据库的备份与恢复，对普通管理员进行新增、删除等功能这完全符合实际玩具超市人员的工作安排和要求此外，该系统还具有玩具过期统计功能，可以统计哪些玩具用户超过了该退还其所租的玩具的截止日期此系统源于实际的玩具管理，而又优越于实际管理，对于玩具超市来说，此系统可节省大量的人力财力，方便业务的办理3.1.2 技术上的可行性系统采用C/S架构，数据库用的SQL2005，开发工具则是最新的DELPHI2010SQL2005对于中型数据库应用系统来说，它的简单灵活、可靠稳定直接受益于开发者的程序开发和用户的使用DELPHI2010采用可视化编程，界面漂亮整洁，便于快速开发，并且对于用DELPHI2010开发一个数据库应用系统来说，问题不大在开发的过程中，主要难点有两个：1、如何建立数据冗余度小、数据高度安全性的数据库，根据实际需要，满足第三范式的关系模式大体可以解决以上难题；2、采用什么开发方法来进行开发呢，结合实际功能需求，原型法的快速高效开发是首选方法【4】3.1.3 经济上的可行性玩具租售管理系统的开发费用是主要的支出，而其他的系统维护费用、超市员工的培训费等开销很小系统开发费用则是用在开发者的酬劳上面，系统开发完成经测试投入使用之后，系统的维护、升级则都是免费的.本系统在实际应用中，将大大提高管理的效率，从而提高了在同行业中的竞争力，长远来看，将创造巨大的经济效益3.2 需求分析3.2.1 编写目的与研究范围该需求分析将在下面叙述中详细向用户描述该系统实现的功能以及该系统的特点及运行环境，使用户在看到该系统之前能对系统有个初步形象的了解本课题研究的目的和意义就是想建立信息化的玩具租赁管理体系，使数据管理更现代化，自动化，智能化减轻了人工管理的工作量，使其变得更有条理性，科学性【5】3.2.2 系统设计思想在系统选择开发方法时，首先要考虑是否符合行业标准，是否具有良好的可扩展性，以便充分保护前期投入通过玩具租售管理系统，使其他喜欢玩具方面的朋友在为孩子购买和查找时能够方便快捷，不会耗费太多时间，也可以给每个单位或公司带来很好的效益，员工也可以将省下来的时间投入到工作中，大大提高了工作效率随着科学技术的发展，计算机可以说是现在生活的一大重要部分，使用计算机对玩具超市管理做这样一个管理系统也可以使管理者方便许多管理信息系统在企业中存在三个要素，就是人、计算机、和数据人指企业领导者、管理人员、技术人员等，他们在系统中起主导作用管理信息系统是一项系统工程，不是只靠一些计算机开发人员就可以完成的，必须有企业管理人员，尤其是领导者的参与计算机是管理信息系统得以实施的主要技术在这些技术中，软件开发则是系统开发的重点数据是管理信息系统正常运行的基础，应用程序进行各种处理的对象都是抽象化的数据【6】3.2.3 系统功能分析图3.1玩具租售管理系统功能框图 每一个管理员（包括普通管理员和超级管理员）可以通过输入正确的用户名和密码进行登入，普通管理员可以进行玩具入库、玩具销售、玩具出租、综合查询，还可以修改玩具相关信息，如库存、价格等超级管理员除了普通管理员所有的权限外，还具有权限修改（针对普通管理员）、数据备份与恢复，其中权限修改包括普通管理员的系统登入权限，会员信息修改权限等登入：管理员进入玩具租售管理系统时，必须通过的模块以管理员账号和密码进行登入，密码输入次数最多三次权限修改：超级管理员可以对普通管理员进行各种权限设置，包括系统登入权限、玩具会员信息修改权限、玩具信息修改权限若普通管理员的系统登入权限设置为no_access的话，则该普通管理员不能登入本系统若普通管理员的会员信息修改权限和玩具信息修改权限设置为no_access的话，则其不能修改会员信息和玩具信息会员管理：对于玩具租赁用户，其可以办理会员业务，会员用户具有玩具租金较少的优惠超级管理员可以进行会员管理，包括新增会员，修改会员信息，删除会员，普通管理员想要拥有该权限，必须要经过超级管理员的授权玩具入库：对于新购入的玩具，要经过系统登记才能存入仓库.如果仓库中原来存有该玩具，则只需修改该玩具的库存量即可；若不存在该玩具，则要新增该玩具，填写相关信息.玩具销售：该系统除了对玩具出租进行管理，还可以对玩具的销售进行管理.用户首先把自己喜爱的玩具放到购物车上，然后进行付款即可.当某种玩具库存量不足时，购买便失败，否则修改库存，购买成功.玩具出租：首先用户挑选了自己喜爱的玩具放到租赁车上，并且可以在租赁车上再次删除已放入租赁车上的玩具.付款时，会有提示是否会员，是否会员则要输入相关会员信息，按会员价进行出租；不是会员则按正常的玩具租赁价进行出租.租赁成功后，该玩具的相关租赁情况便存入数据库，待用户退还玩具时，再清除该玩具租赁的相关信息.玩具结账：对于已被出租出去的玩具，当其租赁者退还玩具时，便要根据用户当初出租该玩具所交的押金来进行补退.对于那些已过了玩具截止退还日期的用户，营业员可以对其进行相应的处罚，如罚款、没收押金等，由该玩具超市自行规定这类规则.综合查询：玩具的信息、会员的信息、已出租玩具的信息都可以通过关键字等其他查找方法进行查找，该功能模块旨在提高管理元检索信息的效率.数据备份和恢复：超级管理员可以定期对数据库进行备份，且最好备份放在外部存储器里，以防止计算机（数据库所在的计算机）硬件故障或系统的瘫痪数据恢复就是超级管理员可以把以前备份的数据库进行恢复.第4章 数据库设计4.1 E-R图图4.1管理员实体图4.2玩具会员实体图4.3玩具实体图4.4玩具出售关系图4.5玩具出租关系4.2 数据字典表4.1管理员表字段名类型长度备注管理员_IDNumeric(10,0)10唯一标识某一管理员，为主键姓名Varchar(50)自动管理员姓名作为系统登入的用户名密码Varchar(50)自动系统登入的密码权限int11表示超级管理员，0代表普通管理员注册时间datetime自动普通管理员注册的时间玩具修改Varchar(20)自动标识管理员是否有玩具修改的权限会员修改Varchar(20)自动标识管理员是否有会员修改的权限查询玩具出租Varchar(20)自动标识管理员是否有查询玩具租赁信息的权限系统登入Varchar(20)自动标识管理员是否有系统登入的权限表4.2玩具表字段名类型长度备注玩具_IDNumeric(10,0)10唯一标识某一类玩具，为主键名称Varchar(50)自动玩具名称类型Varchar(50)自动玩具类型位置Varchar(50)自动玩具存放在仓库中的具体位置进货时间datetime自动玩具购入时的时间数量Int自动某一玩具的的库存量入库员工Varchar（50)自动玩具购入时的登记管理员产品描述Varchar(500)自动玩具的其他描述表4.3会员表字段名类型长度备注会员_IDNumeric(10,0)10唯一标识某一玩具会员，为主键会员姓名Varchar(50)自动会员姓名电话Varchar(50)自动玩具会员的联系方式卡上现有金额Float自动会员卡上的金额其他Varchar(500)自动会员的其他描述信息表4.4玩具出售记录表字段名类型长度备注序列号Numeric(10,0)10唯一标识某一玩具出售记录，为主键玩具_IDNumeric(10,0)10已销售出去的玩具_ID号出售时间datetime自动玩具销售出去的时间管理员姓名Varchar(20)自动卖出此玩具的营业员（普通管理员）姓名表4.5玩具出租记录表字段名类型长度备注租赁流水号Numeric(10,0)10唯一标识某一玩具出租记录，为主键玩具_IDNumeric(10,0)10已出租出去的玩具_ID号出租时间datetime自动玩具出租出去的时间租赁价格Float自动玩具出租的价格管理员姓名Varchar(50)自动出租此玩具的营业员（普通管理员）姓名退还截止日期datetime自动玩具退还时的截止日期是否会员int11表示用户是会员，0代表否会员_IDNumeric(10,0)10是会员则为会员_ID,否则为0000000000会员租赁价float自动会员出租某一玩具的价格4.3 数据关系图管理员、会员、玩具三张表的主键分别为管理员_ID、会员_ID、玩具_ID，玩具出租、玩具销售的主键分别为租赁流水号、序列号玩具出租表通过管理员姓名、会员_ID、玩具_ID与管理员、会员、玩具表连接，且会员_ID、玩具_ID是玩具出租的外键玩具销售通过玩具_ID、管理员_ID与玩具、管理员表连接，且玩具_ID、管理员_ID是玩具销售的外键当被参照表的相关记录被删除时，参照表的有关记录也会级联删除图4.6玩具租售管理系统数据关系图第5章 系统功能设计5.1 登入数据输入：管理员姓名和密码数据输出：该管理员相应的权限权限，管理员姓名功能描述：在登陆时需要判断是普通管理员（营业员）登陆还是超级管理员（超市主管）登陆，而且还要输入正确的用户名和密码，输入完后点击“确 定” 按钮即可如果用户名或密码错误，则会给出提示还有几次输入机会（最多 有三次输入机会，超过了则退出登入）如果正确，可登录点击“取消”按钮， 即可退出登录图5.1系统登入界面5.2 玩具信息查询及修改数据输入：玩具名称或玩具类型或入库管理员的姓名或入库时间数据输出：玩具信息包括名称、类型、仓库中位置、数量、单价、信息录入人、进购日期功能描述：当管理员想要查找某一玩具的相关信息时，其可以通过本系统方便、快捷地找到其想要的信息玩具信息查找时，可以有多种方法：1、通过玩具名称查找；2、通过玩具类型查找；3、通过当初该玩具入库登记时的管理员姓名进行查找；4、通过玩具进购时的时间查找当管理员什么查询条件都不选择时，单击“确认”按钮，系统将显示所有玩具的信息当管理员想修改玩具信息时，首先找到想要修改的玩具再单击可修改按钮，之后便可以去玩具信息显示表中直接修改，修改完成后，点击保存即可图5.2玩具查询及修改界面5.3会员信息查询及修改数据输入：会员编号或会员姓名数据输出：会员信息包括会员编号、姓名、电话、卡上金额、备注、办卡日期功能描述：对于玩具出租的客户，其可以办理会员业务，会员具有玩具租赁价格更少的优惠新客户想注册会员时，只需提供姓名（必提供）即可，刚开始会员卡上必须要有金额（金额没限制），会员注册成功后，系统会提供惟一的会员_ID号（惟一标志该会员）该管理模块还提供了会员信息修改功能，可以修改会员电话和会员卡上金额，还可添加其他额外信息当某会员想注销时，只需提供会员_ID或者姓名即可作为会员管理，其中必不可少的是会员信息查询功能，该模块提供了三种查询会员信息方法，三种不同角度的方法只需选择其一即可图5.3会员管理窗口5.4 玩具入库数据输入：玩具名称、玩具类型、所在位置、单价、进购数量、入库管理员和其他描述数据输出：相关信息录入数据库中，弹出录入成功对话框功能描述：对于新购入的玩具，要经过系统登记才能存入仓库.如果仓库中原来存有该玩具，则只需修改该玩具的库存量即可；若不存在该玩具，则要新增该玩具，填写相关信息.入库时，玩具的名称、单价、进购数量都必须输入，且玩具名称不能和数据库中已有玩具名称重复点击“确定”后，若该玩具输入信息满足录入要求，则入库成功 图5.4玩具入库界面5.5 玩具的销售及出租数据输入：玩具名称或玩具类型数据输出：客户购买或出租某一玩具的相关信息录入数据库功能描述：客户首先选择自己喜爱的玩具放入购物车或者租赁车如果是买，客户只需交付现金即可，管理员点击结账对于出租玩具的哭胡，还要确定租赁日期和退还玩具截止日期，出租时，还要确认该客户是否为玩具会员（会员和非会员租赁价格不一样），都选择好之后，单击确认，即可出租不论玩具是销售还是出租，如果库存量小于客户购买量或出租量，即购买或出租失败图5.5玩具销售及出租窗口5.6 玩具租赁查询及退还数据输入：玩具ID或玩具名称或出租日期或玩具退还日期，对于会员还有会员ID或会员姓名数据输出：某一玩具出租的所有信息功能描述：管理员根据某一个查询条件查询某一玩具的租赁信息，单击该条记录后，在右下方会弹出该玩具的名称，此时即可办理玩具退还业务，按下确定即可该功能模块还有个统计过期功能，点击“统计过期”按钮，会出现一个小型选择今天日期的窗口，随即选择今天的日期，单击小型窗口上的确定按钮，即可查询所有超过了玩具退还截止日期的租赁信息图5.6玩具租赁查询及退还窗口5.7 普通管理员权限修改数据输入：普通管理员姓名数据输出：该普通管理员所有权限信息功能描述：该系统既考虑了小型玩具店的工作环境，又吻合了大型超市或商场的管理方式系统设置一个超级管理员，其拥有系统的全部使用权限；若干个普通管理员（由超级管理员增加），普通管理员只有系统的基本使用权限当超级管理员新增普通管理员时，普通管理员则需提供姓名和密码，还可添加其他额外信息，增加成功后，该管理员就拥有了基本的管理操作权限若想要更高的操作权限，则必须经过超级管理员的许可授权才行图5.7普通管理员权限修改界面5.8 数据备份与恢复数据输入：备份数据库的存储路径数据输出：备份后的成功或失败提示功能描述：备份数据库只有超级管理员才具有此操作权限，超级管理员单击“备份”按钮，随即弹出备份路径选择框，选择好文件夹之后，单击“确定”即可恢复数据库时，超级管理员点击“恢复”按钮，再选择已备份好的数据的bak类型文件，确定即可图5.8数据备份与恢复路径选择界面第6章 关键技术6.1 登入功能实现/*模块名称：登录窗体*技术简述：管理员登入时，其登入次数不能超过三次，登入次数通过全局变量进行控制；管理员的操作权限控制，是通过类（一个类相当于一个Form窗体）的数据成员进行控制的，在Public数据成员中添加若干属性来保存管理员的权限，并进行判断*开发人：雷林凯*开发时间：2011-3-15*/“确定”按钮下的代码procedure TForm3.Button1Click(Sender: TObject);var ss:integer;begin ss:=10; /控制权限的变量 dataform.adoquery1.Close; dataform.adoquery1.SQL.Clear; dataform.adoquery1.SQL.Add(select * from 管理员 where 姓名=+#39+combobox1.Text+#39+and 密码=+#39+edit2.Text+#39); dataform.adoquery1.Open; if dataform.adoquery1.RecordCount=0 then /登入失败 begin sanci:=sanci+1; if sanci=3 then begin guanliyuan:=; application.Terminate; exit; end; showmessage(密码错误,还有+inttostr(3-sanci)+次输入机会！); end else /登入成功 begin if dataform.ADOQuery1.FieldByName(系统登入).AsString=available then begin if dataform.ADOQuery1.FieldByName(会员修改).AsString=no_access then begin mainform.N6.Enabled:=false; mainform.N13.Enabled:=false; end else begin mainform.N6.Enabled:=true; mainform.N13.Enabled:=true; end; if dataform.ADOQuery1.FieldByName(查询玩具出租).AsString=no_access then begin mainform.SpeedButton4.Enabled:=false; mainform.N16.Enabled:=false; mainform.N15.Enabled:=false; end else begin mainform.SpeedButton4.Enabled:=true; mainform.N16.Enabled:=true; mainform.N15.Enabled:=true; end; if dataform.ADOQuery1.FieldByName(玩具修改).AsString=no_access then begin mainform.Button7.Enabled:=false; mainform.Button8.Enabled:=false; mainform.Button9.Enabled:=false; mainform.Button10.Enabled:=false; end else begin mainform.Button7.Enabled:=true; mainform.Button8.Enabled:=true; mainform.Button9.Enabled:=true; mainform.Button10.Enabled:=true; end; ss:=dataform.adoquery1.FieldByName(权限).Asinteger; /显示权限 if ss=0 then /控制普通管理员的使用权限 begin mainform.N7.Enabled:=false; mainform.N8.Enabled:=false; mainform.N9.Enabled:=false; mainform.N23.Enabled:=false; mainform.N24.Enabled:=false; end; if ss=1 then /高级管理员权限控制 begin mainform.N7.Enabled:=true; mainform.N8.Enabled:=true; mainform.N9.Enabled:=true; mainform.N23.Enabled:=true; mainform.N24.Enabled:=true; end; mainform.Panel3.Visible:=false;/玩具入库显示控制 guanbi:=1; /控制关闭窗口的变量 guanliyuan:=dataform.adoquery1.FieldByName(姓名).AsString; mainform.statusbar1.Panels1.Text:=mainform.statusbar1.Panels1.Text+form3.guanliyuan; form3.ModalResult:=mrok; end else begin showmessage(没有得到进入该系统的许可！); exit; end; end;end;6.2 玩具出租功能实现/*模块名称：玩具租赁窗体*技术简述：确定出租前，首先进行玩具库存量的判断，出租日期和退还日期的比较（退还日期应大于出租日期），会员出租的话，还要进行卡上余额是否足够的判断，这些都满足后，再计算应所交的押金，确认出租后，出租信息录入数据库，待客户退还玩具时再调出查看租赁车上的玩具种类、数量不限（小于库存量），统计租赁车上的玩具记录时，用到两个一维局部数组，分别存储玩具名称和对应的数量*开发人：雷林凯*开发时间：2011-3-17*/“确定”按钮下的代码procedure TForm6.Button8Click(Sender: TObject);var i,j,k1,k2,huiyuan,count:integer; zulinjine,zulinjine2,yajin,money:real; temp_string:string; aa:array0.50 of string; bb:array0.50 of integer;begin zulinjine:=0; yajin:=0; temp_string:=; count:=0; money:=0; for i := 0 to 50 do /初始化数组 begin aai:=; bbi:=0; end; if datetimepicker1.Datedatetimepicker2.Date then begin showmessage(玩具截止退还日期应大于玩具出租日期！); exit; end; if (datetimepicker2.Date-datetimepicker1.Date60) then begin showmessage(玩具租赁期不能大于60天，请减小退还日期！); exit; end; if (radiobutton4.Checked=false) and (radiobutton5.Checked=false) then begin showmessage(请选择顾客类型，会员或非会员？); exit; end;/*计算机总押金* for i := 0 to listbox2.Items.Count-1 do begin dataform.adoquery3.Close; dataform.adoquery3.SQL.Clear; dataform.adoquery3.SQL.Add(select * from 玩具 where 名称=+#39+listbox2.Items.Stringsi+#39); dataform.adoquery3.open; zulinjine:=zulinjine+dataform.ADOQuery3.FieldByName(单价).AsFloat; /总金额 end; yajin:=zulinjine; /押金/*计算机总押金* for k1 := 0 to listbox2.Items.Count-1 do begin for k2 := 0 to listbox2.Items.Count-1 do begin if listbox2.Items.Stringsk1=listbox2.Items.Stringsk2 then bbk1:=bbk1+1; end; aak1:=listbox2.Items.Stringsk1; end;/*会员租赁* if radiobutton4.Checked=true then begin edit5.Text:=floattostr(yajin); if form9.showmodal=mrcancel then begin *1*? if (form9.RadioButton2.Checked=false)and(form9.RadioButton1.Checked=false) then begin showmessage(没有选择输入会员信息，租赁费按照非会员价处理！); for j := 0 to listbox2.Items.Count-1 do begin dataform.adoquery3.Close; dataform.adoquery3.SQL.Clear;
展开阅读全文