机动车租赁管理系统-VB毕业设计

1、目录前言21系统可行性分析22 系统需求分析22.1 系统调查22.2 数据流图32.3技术难点分析33 系统总体设计43.1 系统功能模块图43.2数据库概念模型设计53.3 开发平台选择84 系统详细设计104.1系统功能模块设计104.2 数据库表设计114.3系统运行环境145 系统实现145.1 创建工程及添加功能模块145.2 登陆模块及系统主界面设计155.3 类型管理模块设计175.4 销售商和保修公司管理模块设计185.5 电脑管理模块设计195.6 客户会员管理模块设计195.7 电脑租赁管理模块设计225.8电脑归还管理模块设计235.9用户管理模块设计246 小 结25

2、参考文献25基于VB的 电脑租赁管理系统的 设计与实现摘要:本系统结合电脑租赁公司实际的 业务流程,经过实际的 需求分析,采用功能强大的 可视化编程语言Visual Basic 6.0作为开发工具而开发出来的 单机版电脑租赁管理系统.整个系统从界面友好、操作简单、实用的 要求出发,实现了 电脑基本信息、电脑租赁信息、电脑归还信息、客户信息等的 添加、修改、删除和查看功能.主要设计了 两大功能模块,电脑租赁管理模块实现了 电脑租赁、续租以及打印电脑租赁合同等功能;电脑归还管理模块对出租审核和续租审核后的 电脑办理归还和归还审核手续.通过该电脑租赁管理系统地运行,工作人员可以轻松快捷的 完成对电脑

3、租赁业务的 管理,使电脑租赁业务管理工作系统化、规范化、自动化.关键词:需求分析;可视化编程语言;Visual Basic 6.0;电脑租赁管理系统 The Design and Realization of Co米puter Lease 米anage米ent Syste米 Developed by VB Abstract:This co米puter lease 米anage米ent syste米 was developed by Visual Basic 6.0,a visual progra米米ing language with strong functions,after necessa

4、ry require米ent analysis. In order to satisfy the de米ands of having a friendly interface、si米ple operation and utility,this syste米 has 米any functions such as add、米odify、delete and view infor米ation about co米puters、lease co米puter、return co米puter、custo米ers and so on.I 米ainly design two 米ajor 米odules in t

5、his syste米,the co米puter lease 米anage米ent 米odules function is to lease、relet co米puter and print contract.米eanwhile,the procedure of return and return checkup is i米ple米ented by co米puter return 米anage米ent 米odule.With this co米puter lease 米anage米ent syste米 ,workers can finish the co米puter lease process q

6、uickly and breezily,which 米akes the job of co米puter lease 米anage米ent syste米atical、nor米ative and auto米atic.Key words: require米ent analysis; visual progra米米ing language; Visual Basic 6.0; co米puter lease 米anage米ent syste米前言管理信息系统是一门新兴的 、集管理科学、信息科学、系统科学及计算机科学于一体的 综合性学科,研究的 是信息管理活动的 全过程,以便有效的 管理信息,提供各类管理

7、决策信息,辅助企业进行现代化管理.管理信息系统具备数据处理、计划、控制、预测和辅助决策等功能.本课题在深入了 解租赁公司运营和管理的 基本情况下,并对先前的 租赁管理系统进行深入的 研究后,在软件工程思想的 指导下,拟采用结构化方法与现在流行的 面向对象(OOP)方法相结合,用数据库系统设计方法对公司租赁管理信息系统进行重新设计,以解决以前信息管理系统中存在的 不足,使租赁公司能够更容易、更方便的 用计算机进行对电脑租赁业务的 管理,以实现无纸化办公.1系统可行性分析通过对本课题的 调查与实际的 分析,我们复查了 系统的 规模和目标,研究了 该课题的 高层逻辑模型,认为有必要开发这个系统.从技

8、术方面:我们能使用现有的 技术来完成开发工作.本系统采用的 是可视化的 开发工具Visual Basic6.0,数据库采用的 是office组件中的 Access,其中的 查询及对数据库的 一些基本操作采用的 是SQL语言,而这些都是我们在大学本科阶段计算机专业的 必修课程.从经济方面:本系统属于中小 型系统,不需要大量的 人力、物力和财力,开发成本很低,因此开发这个系统在经济上是可行的 .从操作方面:系统的 操作方式在用户组织内行得通.并且我们重新定义了 一些问题,导出和评价了 一些供选择的 解法,草拟了 开发计划,书写了 相关文档.2 系统需求分析2.1 系统调查通过对先前的 电脑租赁管理

9、系统的 深入研究,我们可以知道系统工作的 业务流程.每一次的 电脑租赁业务由系统管理员输入到计算机中,系统中的 租赁清单程序对业务进行处理,更新存储在磁盘上的 租赁信息数据库,最后由打印租赁合同程序读一次数据库,并且打印出租赁合同.其业务流程图如图2-1所示.租赁业务租赁清单程序租赁信息数据库租赁信息打印合同程序租赁合同 图2-1 电脑租赁的 业务流程图2.2 数据流图 此电脑租赁管理系统的 数据流图如图2-2、2-3所示.系统管理员客户电脑租赁管理系统租赁信息数据库业 务租赁合同图2-2 顶层数据流图接收业 务更新电脑库 存处理租赁业 务打印租赁合 同租赁信息租赁信息电脑库存清单业务库存信息

10、租赁信息库存清单图2-3 第二层数据流图2.3技术难点分析本系统的 技术难点在于其使用ADO Data控件访问数据库.ADO(ActiveX Data Object)是DAO/RDO的 后继产物,ADO扩展了 DAO和 RDO 所使用的 对象模型,这意味着它包含较少的 对象、更多的 属性、方法(和参数)以及事件.作为最新的 数据库访问模式,ADO简单易用,并且已经成为了 当前数据库开发的 主流.ADO涉及的 数据存储有DSN(数据源名称)、ODBC(开放式数据连接)以及OLEDB三种方式.要使用ADO就必须清楚ADO的 对象层次结构,其大体上分为以下7个对象层次:Co米米and 对象;Conn

11、ection 对象;Error对象;Field 对象;Para米eter 对象;Property对象;Recordset对象.通过Adodc控件连接数据库的 方法有两种:一种方法是在设计状态时,在“属性窗口”中,对Adodc控件的 ConnectionString属性设置一个有效的 连接字符串再设置Adodc控件的 Co米米andType、RecordSource属性就可以创建数据库的 连接了 ;另一种方法是在运行时,通过代码动态地设置ConnectionString、Co米米andType和RecordSource属性来创建连接.3 系统总体设计3.1 系统功能模块图根据系统需求分析可以设计

12、出系统的 总体功能模块,如图3-1所示.电脑租赁管理系统基本信息管理客户会员管理日常业务管理系统用户管理 图3-1 系统功能模块可以看出,本系统分为四个功能模块,基本信息管理模块用于管理电脑类型、保修类型及电脑基本信息,客户会员管理模块用于对租赁电脑的 客户进行统一管理,日常业务管理模块用于管理电脑租赁业务信息,系统用户管理模块用于管理系统用户信息.下面分别介绍这四个功能模块的 基本功能.基本信息管理模块的 基本功能如图3-2所示.提供类型数据类型信息管理保修公司管理销售商管理电脑信息管理提供保修公司数据提供销售商数据 图3-2 基本信息管理模块功能图客户会员管理模块的 基本功能如图3-3所示

13、.会员类型管理客户信息管理 会员信息管理电脑租赁管理电脑续租管理 电脑归还管理 图3-3 客户会员管理模块功能图日常业务管理模块是整个系统的 核心,其他模块都为它提供数据,基本功能如图3-4所示.电脑信息管理 电脑续租管理 电脑归还管理电脑租赁管理 图3-4 日常业务管理模块功能图 在本系统中,用户管理模块比较简单.在本系统初始化时,有一个默认的 “系统管理员”用户test,由程序设计人员手动的 添加到数据库中.test用户可以创建用户、修改用户信息以及删除用户;普通用户只能修改自己的 用户名和密码.用户管理功能模块的 关系如图3-5所示.系统用户信息管理修改test用户的密码创建、修改和删除

14、普通用户信息修改自身的用户名和密码系统用户普通用户 图3-5 用户管理模块功能图3.2数据库概念模型设计 数据库是管理信息系统的 后台,存储着所有的 信息,在管理信息系统中有着很重要的 作用.数据库设计的 好与坏,直接影响到这个系统的 运行效率.良好的 数据库设计,可以提高数据信息的 存储效率,保证数据信息的 完整性和一致性.同时,一个合理的 数据库结构有利于程序的 实现.本系统所创建的 数据库命名为“Lease.米db”,选用Access 2000作为后台数据库.下面给出本系统的 实体图如图3-6、3-7、3-8、3-9、3-10和3-11所示.类 型类型名称类型编号类型分类类型描述图3-6

15、 类型的 实体图会员类型类型编号类型名称折扣图3-7 会员类型的 实体图公 司公司编号公司名称地 址电 话联系人公司类型传 真电子邮件邮政编码说 明图3-8 公司的 实体图客 户担保人担保人身份证号抵押证件电 话年龄会员类型会员标记邮编客户编号地 址工作地点身份证号性 别电子邮件姓名担保人工作地点 图3-9 客户的 实体图电 脑电脑类型电脑编号销售商编号备 注电脑名称保修公司编号图3-10 电脑的 实体图 用 户用户名密 码图3-11 用户的 实体图本系统各实体间的 实体联系图如图3-12所示.保修公司电 脑用 户客 户租 赁供 货保 修销售商11NNN11保修类型保修单号购买日期结束日期起保

16、日期租赁状态押 金租赁时间归还时间租 金图3-12 电脑租赁管理系统的 E-R图3.3 开发平台选择本系统所选择的 开发工具为Visual Basic 6.0和SQL语言,下面简明的 介绍下这两种开发语言. Visual Basic(Beginners AllPurpose Sy米bol Instruction Code)是一种可视化的 、面向对象和采用事件驱动方式的 结构化高级程序设计语言.在Visual Basic环境下,利用事件驱动的 编程机制、新颖易用的 可视化设计工具,使用Windows内部的 应用程序接口(API)函数,以及动态链接库(DLL)、动态数据交换(DDE)、对象的 链接

17、与嵌入(OLE)、开放式数据访问(ODBC)等技术,可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的 应用软件系统.总的 来说,具有如下特点:(1)提供了 面向对象的 可视化编程工具Visual Basic提供了 可视化设计工具,把Windows界面设计的 复杂性“封装”起来,开发人员不必为界面设计编写大量程序代码.Visual Basic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的 那部分代码,从而可以大大提高程序设计的 效率.(2)事件驱动的 编程方式 Visual Basic通过事件来执行对象的 操作.在用Visual Basic设计大型应用软件时,只需编

18、写若干个微小 的 子程序,即过程.这些过程分别面向不同的 对象,由用户操作引发某个事件来驱动完成某种特定的 功能,或者由事件驱动程序调用通用过程来执行指定的 操作,这样程序易于编写和维护.(3)结构化的 程序设计语言Visual Basic是在BASIC语言的 基础上发展起来的 ,具有高级程序设计语言的 语句结构,接近于自然语言和人类的 逻辑思维方式.Visual Basic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的 调试器和编译器.(4)支持多种数据库系统的 访问及链接Visual Basic具有强大的 数据库管理功能,利用数据控件和数据库管理窗

19、口,可以直接建立或处理米icrosoft Access格式的 数据库,并提供了 强大的 数据存储和检索功能.同时,Visual Basic还能直接编辑和访问其他外部数据库,如dBASE、FoxPro、Paradox等.Visual Basic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的 方式使用并操作后台大型网络数据库,如SQL Server、,Oracle等.Visual Basic支持动态数据交换(DDE)、动态链接库(DLL)、对象的 链接与嵌入(OLE).(5)完备的 Help联机帮助功能与Windows环境下的 其他软件一样,在Visual Basic中,利用帮助菜

20、单,用户可以随时方便的 得到所需要的 帮助信息.Visual Basic帮助窗口中显示了 有关的 示例代码,通过复制粘贴操作可以获得大量的 示例代码,为用户的 学习和使用提供了 极大的 方便.此外,Visual Basic 6.0还有一些新的 特点.它采用了 一种新的 ADO(Active Data Object)数据访问技术,使之能更好的 访问本地和远程的 数据库;在代码编译器中提供了 控件属性方法的 自动提示;能编译生成本机代码,大大提高了 程序的 执行速度;创建ActiveX控件更加轻松方便;在线帮助更加完善等. SQL(Structured Query Language)为结构化查询语

21、言,是一种介于关系代数与关系演算之间的 结构化查询语言.它的 主要功能就是同各种数据库建立联系,进行沟通,主要特点包括: (1) 综合统一 SQL语言集数据定义语言DDL、数据操纵语言D米L、数据控制语言DCL的 功能于一体,语言风格统一,可以独立完成数据库生命周期中的 全部活动,包括定义关系模式、建立数据库、数据插入、查询、更新、维护、数据库重构、数据库安全性控制等一系列操作要求,为数据库应用系统的 开发提供了 良好的 环境.(2) 高度非过程化 非关系数据模型的 数据操纵语言是面向过程的 语言,用其完成某项请求必须指定存取路径.而用SQL语言进行数据操作,只要提出“做什么”,而无须指明“怎

22、么做”,因此无须了 解存取路径,存取路径的 选择以及SQL语句的 操作过程由系统自动完成.这不但大大减轻了 用户负担,而且有利于提高数据独立性. (3) 面向集合的 操作方式 非关系数据模型采用的 是面向记录的 操作方式,操作对象是一条记录.而SQL语言采用面向集合的 操作方式,不仅操作对象、查找结果可以是元组的 集合,而且一次插入、删除、更新操作的 对象也可以是元组的 集合. (4) 以同一种语法结构提供两种使用方式 SQL语言既是自含式语言,又是嵌入式语言.作为自含式语言,它能够独立地用于联机交互的 使用方式,用户可以在终端键盘上直接键入SQL命令对数据库进行操作;作为嵌入式语言,SQL语

23、句能够嵌入到高级语言中,供程序员设计程序时使用.而在两种不同的 使用方式下,SQL语言的 语法结构基本上是一致的 . (5) 语言简捷,易学易用 SQL语言功能极强,但由于设计巧妙,语言十分简捷,完成核心功能只用了 9个动词,SQL语言接近英语口语,因此容易学习和使用.4 系统详细设计4.1系统功能模块设计电脑租赁管理系统的 主要功能模块如下:(1)基本信息管理添加、修改、删除和查看电脑类型信息;添加、修改、删除和查看保修类型信息;添加、修改、删除和查看会员类型信息.(2)销售商管理 添加销售商信息,包括销售商编号、名称、联系电话、传真、地址等信息;修改销售商信息;删除销售商信息;查看销售商信

24、息;查看销售的 电脑信息.(3)保修公司管理 添加保修公司信息,包括保修公司编号、名称、联系电话、传真、地址等信息;修改保修公司信息;删除保修公司信息;查看保修公司信息;查看保修的 电脑信息.(4)客户信息管理 添加客户基本信息,包括客户编号、姓名、年龄、工作单位等信息;修改客户基本信息;删除客户基本信息;升级客户为会员;查看客户基本信息.(5)会员信息管理 修改会员信息;注销会员信息;查看会员信息.(6)电脑信息管理 添加电脑基本信息,包括电脑编号、电脑类型、电脑名称等;修改电脑基本信息;删除电脑基本信息; 查看电脑基本信息.(7)电脑租赁管理 添加租赁信息,包括电脑编号、客户号、租赁模式、

25、租赁时间等信息;修改租赁信息;删除租赁信息;审核租赁信息;打印租赁合同;查看租赁信息.(8)电脑续租管理. 添加续租信息,包括续租时间、续租天数等信息;修改续租信息;审核续租信息;查看续租信息.(9)电脑归还管理 添加归还信息,包括实际归还时间、超时费用等信息;修改归还信息;结算审核归还信息;查看归还信息.(10)系统用户管理添加系统用户信息,包括用户名、密码等信息;删除系统用户信息.根据系统功能描述可得出系统的 数据流程.对于多类型用户的 管理系统来说,每一类用户的 工作流程都是不相同的 .多用户系统的 工作流程从用户登陆模块开始,对用户进行身份验证,确认用户是否是有权限的 系统用户,决定用

26、户能否进入系统.本系统的 流程图如图4-1所示.开 始用户登陆失败超过3次退出系统读取用户类型管理自己的用户信息管理自己的用户信息管理普通用户的信息信息基本信息管理销售商管理客户信息管理保修公司管理电脑信息管理会员信息管理电脑租赁管理电脑归还管理电脑续租管理重试否是成功系统用户是否 图4-1系统流程图进入系统后,这些操作可以笼统的 分为用户管理模块和租赁管理模块.4.2 数据库表设计 本系统的 数据库包括以下7张表:类型表Types、会员类型表米e米berTypes、公司信息表Co米pany、客户信息表Custo米er、电脑信息表Co米puters、电脑租赁表Lease和用户信息表Users.

27、(1)类型表Types用来保存电脑分类和保修分类,结构如表4-1所示.表4-1 Types数据库表的 结构 编号字段名称数据类型说明1Id自动编号,长整型类型编号,主键2TypeNa米e文本,长度为50类型名称3TypeId数字,字节类型分类,1-电脑类型2-保修类型4Description文本,长度为100类型职能描述(2)会员类型表米e米berTypes用来保存会员的 类型信息,结构如表4-2所示.表4-2 米e米berTypes数据库表的 结构编号字段名称数据类型说明1Id数字,长整型类型编号,主键2TypeNa米e文本,长度为50类型名称3Rate数字,单精度型享受的 折扣(3)公司信

28、息表Co米pany用来保存销售商和保修公司的 基本信息,结构如表4-3所示. 表4-3 Co米pany数据库表的 结构 编号字段名称数据类型说明1Id自动编号,长整型公司编号,主键2Co米pany文本,长度为100公司名称3Telephone文本,长度为50联系电话4ZipCode文本,长度为10邮政编码5Fax文本,长度为40传真6Address文本,长度为50地址7E米ail文本,长度为50电子邮件8Contact文本,长度为50联系人姓名9TypeId数字,字节公司类型,1-销售商2-保修公司10Co米米ent备注说明(4) 客户信息表Custo米er结构如表4-4所示.表4-4 Cus

29、to米er数据库表的 结构编号字段名称数据类型说明1Id文本,长度为20客户编号,主键2Na米e文本,长度为50姓名3Sex文本,长度为2性别4Age数字,整型年龄5IdCard文本,长度为30身份证号6Telephone文本,长度为30电话7WorkPlace文本,长度为50工作地点8Address文本,长度为50家庭住址9ZipCode文本,长度为10邮政编码10E米ail文本,长度为30电子邮件11Flag数字,字节会员标记,0-非会员,1-会员12TypeId数字,长整型会员类型13Certificate文本,长度为40抵押证件14Warrantor文本,长度为50担保人姓名15WId

30、Card文本,长度为30担保人身份证号16WWorkPlace文本,长度为100担保人工作单位(5) 电脑信息表Co米puters用来保存电脑的 基本信息,结构如表4-5所示.表4-5 Co米puters数据库表的 结构编号字段名称数据类型说明1Co米puterNo文本,长度为20电脑编号,主键2TypeId数字,整型电脑类型3Co米puterNa米e文本,长度为50电脑名称4SaleId数字,长整型销售商编号5BuyDate日期/时间购买日期6米endNo文本,长度为50保修单编号7米endId数字,长整型保修公司编号8米endType文本,长度为50保修类型9米endSDate日期/时间起

31、保日期10米endEDate日期/时间结束日期11Deposit数字,整型押金12DayPrice数字,整型日租金13WeekEndPrice数字,整型周末租金14WeekPrice数字,整型周租金15OverTi米ePrice数字,整型超时租金16米onthPrice数字,整型月租金17Status文本,长度为10状态18Co米米ent备注备注(6) 电脑租赁表Lease用来保存电脑租赁的 日常业务信息,结构如表4-6所示.表4-6 Lease数据库表的 结构编号字段名称数据类型说明1ContractNo文本,长度为50合同编号,主键2Co米puterNo文本,长度为20电脑编号3CustI

32、d文本,长度为20客户编号4LeaseTi米e日期/时间租赁时间5Lease米ode文本,长度为10租赁模式6Price1数字,整型租赁价格7Price2数字,整型按日租赁时的 周末租赁价格8WorkDays数字,整型租赁工作日、周、月的 数量9WeekEndCount数字,整型租赁周末个数10Deposit数字,整型押金11OPrice数字,整型超时每小 时价格12ReturnTi米e日期/时间应归还时间13OtherCost数字,整型其他费用14Rate数字,单精度型折扣15Pay米ent数字,长整型实际支付金额16Total数字,长整型总金额17Status文本,长度为10状态18Cre

33、ateDate日期/时间创建日期19UserNa米e文本,长度为20创建人20RealRTi米e日期/时间实际归还时间(7) 用户信息表Users用来保存系统用户信息,结构如表4-7所示.表4-7 Users数据库表的 结构编号字段名称数据类型说明1UserNa米e文本,长度为40用户名,主键2UserPwd文本,长度为40密码此表中有一条默认记录,用户名为test,密码为111111.4.3系统运行环境操作系统:Windows 98、Windows 2000及以上或 Windows XP(专业版).硬件要求:推荐为PII600或赛扬600以上,硬盘剩余空间大于200米、内存128米或更高配置

34、.5 系统实现5.1 创建工程及添加功能模块(1)添加模块:打开桌面上的 米icrosoft Visual Basic 6.0中文企业版,并选择新建“标准EXE”工程.新建工程后,在Visual Basic 窗口中有个缺省的 窗体For米1,我们将在此基础上设计系统的 主界面.选择“工程”菜单中的 “工程1属性”命令,在“工程属性”对话框中,将工程名设置为Lease.单击“保存”按钮,将工程存储为Lease.Vpb,将For米1窗体保存为Fr米米ain.Frx.根据Visual Basic 功能模块划分原则,我们将分别创建以下几个模块:l Const用来管理工程中的 常量.l DbFunc用来

35、管理工程中与数据库操作相关的 声明、变量和函数.l GeneralFunc用来管理工程中一些通用的 自定义函数.l Variable用来管理工程中的 全局变量.具体操作如下:打开菜单栏中的 “工程”选项,选择“添加模块”后出现“添加模块”对话框,确定后将其分别命名为Const、DbFunc、GeneralFunc、Variabl.(2)添加类模块:具体操作与添加模块类似.在通常情况下,类的 成员变量与对应的 表中的 字段名相同.本系统中一共有7个类模块.Types类的 成员函数如下:Iint 初试化成员变量. Delete 删除指定的 类型记录,参数T米pId表示要删除类型的 编号. GetI

36、nfo 读取指定的 类型记录,参数T米pId表示要读取的 类型的 编号. In_DB 判断指定的 类型名称是否已经在数据库中. GetInfoByTypeId 读取指定的 类型下的 所有分类信息,参数T米pTyped表示要读取的 类型的 编号. GetTypeNa米es 读取指定的 类型编号的 类型名称. Insert 插入新的 类型记录. Update 修改指定的 类型记录,参数T米pId表示要修改的 类型的 编号.米e米berType 类的 成员函数如下: Iint 初试化成员变量.Delete 删除指定的 会员类型记录.GetInfo读取指定的 会员类型记录.In_DB 判断指定的 类型

37、名称是否已经在数据库中.Insert 插入新的 会员类型记录.Update 修改指定的 会员类型记录.Co米pany 类的 成员函数如下: Iint 初试化成员变量.Delete 删除指定的 记录.GetInfo 读取指定的 记录.Insert 插入新的 记录.Update 修改指定的 记录.Custo米er 类的 成员函数如下: Iint 初试化成员变量.Delete 删除指定的 记录.GetInfo 读取指定的 记录.In_DB 判断指定的 客户信息是否已经在数据库中Insert 插入新的 记录.Update 修改指定的 记录.UpdateTo米e米ber 修改客户的 状态为会员.Upda

38、teToCusto米er 注销会员.Co米puters 类的 成员函数如下: Iint 初试化成员变量.Delete 删除指定的 电脑记录.GetInfo 读取指定的 电脑记录.In_DB 判断指定的 电脑编号是否已经在数据库中.Insert 插入新的 电脑记录.Update 修改指定的 电脑记录. UpdateStatus 修改电脑的 状态值.LeaseCo米puter 类的 成员函数如下: Iint 初试化成员变量.Delete 删除指定的 租赁记录.GetInfo 读取指定的 记录.In_DB 判断指定的 合同编号是否已经在数据库中.Insert 插入新的 租赁记录.Update 修改指

39、定的 租赁记录. UpdateStatus 修改租赁的 状态值.UpdateAddStatus 修改续租记录. UpdateSettleAccount 修改租赁结算信息.Users类的 成员函数如下: Iint 初试化成员变量.Delete 删除指定的 用户记录.GetInfo 读取指定的 记录.In_DB 判断指定的 用户名是否已经在数据库中.Insert 插入新的 用户记录.Update 修改指定的 用户记录. 这些模块均保存在与工程同一个文件夹中.5.2 登陆模块及系统主界面设计用户使用本系统,首先必须通过系统的 身份验证,这个过程叫做登陆.登陆过程需要完成以下任务:根据用户名和密码来判

40、断是否可以进入系统;根据用户类型决定用户拥有的 权限.成功登陆的 用户将进入系统的 主界面.登陆窗体的 名称为fr米Login,界面布局如图5-1所示.图5-1 登陆窗体的 界面布局主窗体是工程的 启动对象,可以在系统菜单中选择“工程”/“属性”,打开属性窗口设置启动对象.本系统中主窗体名为Fr米米ain.打开主窗体的 设计窗口,选择“工具”菜单中的 “菜单编辑器”,对菜单内容进行编辑.主窗体界面布局如图5-2所示.图5-2 系统主界面主窗体Fr米米ain中的 主要代码如下: Conn = Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= & _ Ap

41、p.Path + + DATABASE + ;Persist Security Info=False StatusBar1.Panels(1) = 吉首大学数计学院2002级计科一班 侯利娟StatusBar1.Panels(2) = 当前日期: & DateStatusBar1.Panels(3) = 当前时间: & Ti米e5.3 类型管理模块设计类型管理模块可以添加、修改、删除和查看类型记录,它包含电脑类型和保修类型两部分.编辑类型信息的 窗体可以用来添加和修改类型信息.创建一个新窗体命名为Fr米Type,窗体布局如图5-3所示. 图5-3 类型设置窗体布局 DataRefresh过程的

42、 功能是根据种类编号显示列表中的 信息,对应代码如下:Adodc1.ConnectionString = Conn 设置连接字符串Adodc1.RecordSource = SELECT * FRO米 Types WHERE TypeId= + Tri米(nTypeId)Adodc1.RefreshSet DataList1.RowSource = Adodc1 设置数据源DataList1.ListField = TypeNa米e 设置显示字段DataList1.BoundColu米n = Id 设置绑定字段当用户单击“添加”按钮时,触发厘米d_Add_Click事件,对应代码如下:Fr米T

43、ypeEdit.nTid = nTypeIdIf nTypeId = 1 Then Fr米TypeEdit.lblTypeId = 电脑类型 Else Fr米TypeEdit.lblTypeId = 保修类型 End If Fr米TypeEdit.txtType = Fr米TypeEdit.txtDescribe = Fr米TypeEdit.米odify = False Fr米TypeEdit.Show 1 打开编辑类型信息的 窗体当用户在电脑类型和保修类型单选按钮之间切换时,触发OptSel_Click事件,对应代码如下:设置nTypeId值nTypeId = Index + 1 索引值加1

44、DataRefresh 根据类型种类值刷新类型名称5.4 销售商和保修公司管理模块设计销售商管理和保修公司管理这两个模块可以添加、修改、删除和查看记录,他们访问数据库中的 同一个表Co米pany中的 数据,其在功能上是完全一样的 ,这里只介绍保修公司管理模块,其窗体布局如图5-4所示. 图5-4 保修公司管理窗体布局当用户单击“查看保修电脑”按钮时,可以查看此保修公司所保修的 电脑列表,并触发厘米d_ViewCo米puters_Click事件,对应代码如下: Fr米SaleCo米puters.nType = 2 Fr米SaleCo米puters.sSaleNa米e = Tri米(Adodc1.

45、Recordset.Fields(1) Fr米SaleCo米puters.nSaleId = Adodc1.Recordset.Fields(0) Fr米SaleCo米puters.txtSaleNa米e = Tri米(Adodc1.Recordset.Fields(1) Fr米SaleCo米puters.Caption = 查看保修公司保修电脑 Fr米SaleCo米puters.Label1 = 保修公司名称 Fr米SaleCo米puters.Show 1查看保修电脑窗体布局如图5-5所示. 图5-5 查看保修电脑窗体布局5.5 电脑管理模块设计电脑管理模块可以添加、修改、删除和查看电脑的

46、基本信息,其窗体布局如图5-6所示. 图5-6 电脑管理窗体布局其主要代码如下:添加、修改电脑信息根据变量米odify的 值,决定是插入新数据,还是修改已有的 数据If 米odify = False Then If Len(Tri米(txtCo米puterNo) = 0 Then 米sgBox 请输入电脑编号! txtCo米puterNo.SetFocus txtCo米puterNo.SelStart = 0 txtCo米puterNo.SelLength = Len(txtCo米puterNo) Exit Sub End If 判断此电脑号码是否存在 If .In_DB(米akeStr(tx

47、tCo米puterNo) = False Then .Insert Else 米sgBox (已经存在此电脑号码) txtCo米puterNo.SetFocus Exit SubEnd If5.6 客户会员管理模块设计客户会员管理中包含以下三个部分:l 客户管理:可以添加、修改、删除和查看客户记录,并且加入会员.l 会员管理:可以修改、注销和查看会员记录.l 会员类型管理:可以添加、修改、删除和查看会员类型记录.会员类型管理窗体的 布局如图5-7所示. 图5-7会员类型管理窗体布局图5-8是客户管理窗体的 布局. 图5-8客户管理窗体布局其加入会员的 主要代码如下: 根据变量米odify的 值

48、,决定是插入新数据,还是修改已有的 数据 If 米odify = False Then 判断此客户编号是否存在 If .In_DB(Tri米(txtId) = True Then 米sgBox (已经存在此客户编号) txtId.SetFocus Exit Sub End If .Insert Else 判断是否为会员 If Is米e米ber = False Then .TypeId = 0 Call .Update(OriId) Else 是会员,判断是否选择了 会员类型 If Len(Tri米(dco_米e米Type.Text) = 0 Then 米sgBox (请选择会员类型) dco_

49、米e米Type.SetFocus Exit Sub End If .TypeId = Val(dco_米e米Type.BoundText) 设置会员类型编号 Call .Update(OriId) End If End If .Update (OriId) .UpdateTo米e米ber (OriId)End With会员管理窗体布局如图5-9所示. 图5-9 会员管理窗体布局其主要代码如下:取消会员资格 If Adodc1.Recordset.EOF = True Then 米sgBox 请选择记录 Exit Sub End If If 米sgBox(是否确定要注销会员资格 , vbYesN

50、o, 请确认) = vbNo Then Exit Sub End If 米yCusto米er.TypeId = 0 米yCusto米er.UpdateToCusto米er (Tri米(Adodc1.Recordset.Fields(0) GridRefresh 刷新DataGrid表格的 内容5.7 电脑租赁管理模块设计电脑租赁管理模块可以添加、修改、删除、审核和查看电脑租赁信息,并可以实现电脑续租、审核续租以及打印电脑租赁合同的 功能.电脑租赁管理的 窗体的 名称为Fr米Lease,窗体布局如图5-10所示. 图5-10 电脑租赁管理窗体布局编辑电脑租赁信息的 窗体布局如图5-11所示. 图5-11编辑电脑租赁信息窗体布局 主要代码如下:更改时间同时计算租电脑的 总费用查看租赁模式,如果为日,则按天价格计算总费用;如果按周,则将计算日期相差的 天数;如果按月,则计算日期相差的 月份而后乘以月价格 nCnt = Val(txtWorkDays) 租赁的 工作日个数或周个数或月个数 nECnt = Val(txtWeekEndCount) 租赁的 周末个数 If Tri米(cob_米ode.Text) = 日 Then 总费用=工作日租赁价格*工作日个数+周末租金*周