JSJ06-046@VB+ACCESS电脑租赁系统设计(源代码+系统)
收藏
资源目录
压缩包内文档预览：(预览前20页/共25页)
编号：508307
类型：共享资源
大小：25.93MB
格式：ZIP
上传时间：2015-11-10
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
JSJ06-046@VB+ACCESS电脑租赁系统设计(源代码+系统),毕业设计论文
- 内容简介：
-
电脑 租赁 (合同版本 ) 版权所有 翻版必纠 电脑 租赁合同 合同编号： 打印时间： 甲方 乙方 一、 电脑 信息 电脑编号 电脑 名称 电脑类型 购买日期 保 修 单号 保修 类型 保 修 开始日期 保修 结束日期 二、收费标准 押金 租赁模式 价格（元 /日） 超时价格（元 /小时） 租赁数量 折扣 价格（元 /周末） 周末个数 三、客户信息 客户编号 客户名称 性别 年龄 身份证号 联系电话 工作单位 地址 抵押证件 担保人姓名 担保人身份证号 担保人工作单位 四 、租赁信息 租 赁时间 应归还时间 五 、 特别说明 1、 电脑 租赁合同自租赁时间开时生效。 2、 会员享受的折扣只有在租车价格上有折扣，在其他费用上没有折扣。 nts 电脑 租赁 (合同版本 ) 版权所有 翻版必纠 六 、 备注 客人同意此合同 电脑 租赁公司 签名： _ （章） 年 月 日 年 月 日 nts您的应用程序压缩文件已经生成为 D:TOOLSVB98VB程序包工程1.CAB 。在支持的目录 (D:TOOLSVB98VB程序包Support工程1.BAT) 中还有一个批处理文件它将允许您 当您对一些文件进行更改时重新创建压缩文件。您在安装程序包中包含了 mdac_typ.exe 文件。如果您希望在 Windows 95/98 系统上安装此包，则要求必须装有DCOM98。nts目录 前言 . 1 1系统可行性分析 . 2 2 系统需求分析 . 2 2.1 系统调查 . 2 2.2 数据流图 . 2 2.3技术难点分析 . 3 3 系统总体 设计 . 3 3.1 系统功能模块图 . 3 3.2数据库概念模型设计 . 5 3.3 开发平台选择 . 8 4 系统详细设计 . 9 4.1系统功能模块设计 . 9 4.2 数据库表设计 . 10 4.3系统运行环境 . 13 5 系统实现 . 13 5.1 创建工程及添加功能模块 . 13 5.2 登陆模块及系统主界面设计 . 15 5.3 类型管理模块设计 . 16 5.4 销售商和保修公司管理模块设计 . 17 5.5 电脑管理模块设计 . 18 5.6 客户会员管理模块设计 . 18 5.7 电脑租赁管理模块设计 . 20 5.8电脑归还管理模块设计 . 22 5.9用户管理模块设计 . 23 6 小结 . 23 参考文献 . 24 nts 1 基于 VB 的 电脑租赁管理系统的设计与实现 摘 要： 本 系统 结合电脑租赁公司 实际 的业务流程， 经过实际的需求分析，采用功能强大的 可视化编程语言 Visual Basic 6.0作为开发工具而开发出来的单机版 电脑租赁管理 系统。 整个系统从 界面友好 、 操作简单 、 实用 的要求出发，实现了电脑基本信息 、 电脑租赁信息 、电脑归还信息 、 客户信息等 的添加、修改、删除和查看功能 。 主要设计了两大功能模块 ，电脑租赁管理模块实现了电脑 租赁 、续租以及打印电脑租赁合同 等 功能；电脑归还管理模块对出租审核和续租审核后的 电脑 办 理归还和归还审核手续。 通过该 电脑租赁 管理系统地运行，工作 人员可以轻松快捷的完成对 电脑租赁业务 的 管理 ，使 电脑租赁业务 管理工作系统化、规范化、自动化 。 关键 词 ：需求分析 ； 可视化编程语言 ； Visual Basic 6.0； 电脑租赁管理系统 The Design and Realization of Computer Lease Management System Developed by VB Abstract： This computer lease management system was developed by Visual Basic 6.0,a visual programming language with strong functions,after necessary requirement analysis. In order to satisfy the demands of having a friendly interface、 simple operation and utility,this system has many functions such as add、 modify、 delete and view information about computers、 lease computer、 return computer、 customers and so on.I mainly design two major modules in this system,the computer lease management modules function is to lease 、 relet computer and print contract.Meanwhile,the procedure of return and return checkup is implemented by computer return management module.With this computer lease management system ,workers can finish the computer lease process quickly and breezily,which makes the job of computer lease management systematical、 normative and automatic. Key words: requirement analysis; visual programming language; Visual Basic 6.0; computer lease management system 前言 管理信息系统是一门新兴的、集管理科学、信息科学、系统科学及计算机科学 于 一体的综合性学科，研究的是信息管理活动的全过程，以便有效的管理信息，提供各类管理决策信息，辅助企业进行现代化管理 。管理信息系统具备数据处理、计划、控制、预测和辅助决策等 功能 。 本课题在深入了解 租赁 公司 运营和 管理的基本情况下， 并 对先前的 租赁 管理系统 进行 深入 的 研究后，在软件工程思想的指导下，拟采用结构化方法与现在流行的 面向对象 (OOP)方nts 2 法相结合，用数据库系统设计方法对公司 租赁 管理信息系统进行重新设计，以解决以前信息管理系统中存在的不足，使 租赁 公司能够更容易、更方便的用计算机进行对 电脑租赁 业务 的管理，以实现无纸化 办公 。 1系统可行性分析 通过对 本 课题的调查与 实际的 分析，我们复查了系统的规模和目标 ， 研究了该课题的高层逻辑模 型，认为有必要开发这个系统 。 从技术方面：我们能使用现有的技术来完成开发工作 。 本系统采用的是可视化的开发工具 Visual Basic6.0， 数据库采用的是 office组件中的 Access，其中的查询及对数据库的一些基本操作采用的是 SQL 语言 ， 而这些都是我们在大学本科阶段计算机专业的必修课程。 从经济方面： 本系统属于中小型系统，不需要大量的人力、物力和财力， 开发成本很低，因此开发这个系统在经济上是可行的 。 从操作方面：系统的操作方式在用户组织内行得通。 并 且我们重新定义了一些问题 ， 导出和评价了一些供选择的解法 ， 草拟了开发计划， 书 写了相关文档。 2 系统需求分析 2.1 系统调查 通过对先前的电脑租赁管理系统的深入研究，我们可以知道系统工作的业务流程。每一次的电脑租赁业务由系统管理员输入到计算机中 ， 系统中的 租赁清单程序 对业务进行处理，更新存储在 磁盘上的 租赁 信息 数据库 ， 最后由打印 租赁 合同程序读一次数据库，并且打印出租赁合同。其 业务 流程图如图 2-1所示 。 图 2-1 电脑租赁 的业务 流程图 2.2 数据流图 此电脑租赁管 理系统的数据流图如图 2-2、 2-3所示 。 图 2-2 顶层数据流图 租赁业务 租赁清单程序 租赁信息数 据库 租赁信息 打印合同程序 租赁合同 系统管理员 客户 电脑租赁 管理系统 租赁信息数据库 业 务 租赁合同 nts 3 图 2-3 第 二 层 数据流图 2.3技术难点分析 本系统的技术难点在于其使用 ADO Data控件访问数据库。 ADO（ ActiveX Data Object）是 DAO/RDO的后继产物 ,ADO扩展 了 DAO 和 RDO 所使用的对象模型，这意味着它包含较少的对象、更多的属性、方法（和参数）以及事件。作为最新的数据库访问模式， ADO简 单易用， 并且 已经成为了当前数据库开发的主流。 ADO 涉及的数据存储有 DSN(数据源名称 )、 ODBC（开放式数据连接）以及 OLEDB 三种方式 。 要使用 ADO就 必须清楚 ADO的对象层次结构，其大体上分为以下 7个对象层次： Command 对象 ； Connection 对象 ； Error对象 ； Field 对象 ； Parameter 对象 ； Property 对象 ； Recordset对象 。 通过 Adodc控件连接数据库的方法有两种：一种方法是在设计状态时，在“属性窗口”中，对 Adodc控件的 ConnectionString属性 设置一个有效的连接字符串再设置 Adodc控件的 CommandType、 RecordSource属性就可以创建数据库的连接了；另一种方法是在运行时，通过代码动态地设置 ConnectionString、 CommandType 和 RecordSource属性来创建连接。 3 系统 总体设计 3.1 系统功能 模块 图 根据系统 需求分析 可以设计出系统的总体功能模块，如图 3-1所示 。 图 3-1 系统功能模块 电脑租赁管理系统 基本信息管理 客户会员管理 日常业务管理 系统用户管理 接收业 务 更新电脑库 存 处理租赁业 务 打印租赁合 同 租赁信息 租赁信息 电脑库存清单 业 务 库存信息 租赁信息 库存清单 nts 4 可以看出，本系统分为四个功能模块，基本信息管理模块用于管理电脑类型、保修类型及 电脑基本信息，客户会员管理 模块用于对租赁电脑的客户进行统一管理，日常业务管理 模块 用于管理电脑租赁业务信息，系统用户管理模块用于管理系统用户信息。下面分别 介绍 这四个功能模块的基本功能。 基本信息管理模块的基本功能如图 3-2所示 。 图 3-2 基本信息管理模块功能 图 客户会员管理模块的基本功能如图 3-3所示 。 图 3-3 客户会员管理模块功能 图 日常业务管理模块是整个系统的核心，其他模块都为它提供数据，基本功能如图 3-4所示 。 图 3-4 日常业务管理模块 功能图 在本系统中，用户管理模块比较简单。在本系统初始化 时 ，有一个默认的“系统管理员”用户 test,由程序设计人员手动的添加到数据库中。 test用 户可以创建用户、修改用户信息以及删除用户；普通用户只能修改 自己的 用户名和密码。用户管理功能模块的关系如图3-5所示 。 类型信息管 理 保修公司管理 销售商管理 电脑信息管理 提供保修公司数据 提供销售商数据 会员类型管理 客户信息管理 会员信息管理 电脑租赁管理 电脑续租管理 电脑归还管理 电脑信息管理 电脑续租管理 电脑归还管理 电脑租赁管理 提供类型数据 nts 5 图 3-5 用户管理模块功能 图 3.2数据库概念模型设计 数据库是管理信息系统的后台，存储着所有的信息，在管理信息系统中有着很重要的 作用 。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和 一致 性。同时， 一个合理的数据库结构有利于程序的实现。 本系统所创建的数据库命名为“ Lease.mdb”， 选用 Access 2000作为后台数据库。 下面给出本系统的实体图如图 3-6、 3-7、 3-8、 3-9、 3-10 和 3-11所示 。 图 3-6 类型 的实体图 图 3-7 会员类型 的实体图 会员类型 类型编号 类型名称 折扣 类 型 类型名称 类型编号 类型分类 类型描述 系统用户信息管理 修改 test用户的密码 创建、修改和删除普通用户信息 修改自身的用户名和密码 系统用户 普通用户 nts 6 图 3-8 公司 的实体图 图 3-9 客户 的实体图 客 户 担保人 担保人身份证号 抵押证件 电 话 年龄 会员类型 会员标记 邮编 客户编号 地 址 工作地点 身份证号 性 别 电子邮件 姓名 担保人工作地点 公 司 公司编号 公司名称 地 址 电 话 联系人 公司类型 传 真 电子邮件 邮政编码 说 明 nts 7 图 3-10 电脑 的实体图 图 3-11 用户 的实体图 本系统各实体间的实体 联系图如图 3-12所示 。 保修公司 电 脑 用 户 客 户 租 赁 供 货 保 修 销售商 1 1 N N N 1 1 保修类型 保修单号 购买日期 结束日期 起保日期 租赁状态 押 金 租赁时间 归还时间 租 金 用 户 用户名 密 码 电 脑 电脑类型 电脑编号 销售商编号 备 注 电脑名称 保修公司编号 nts 8 图 3-12 电脑租赁管理系统的 E-R图 3.3 开发平台选择 本系统所选择的开发工具为 Visual Basic 6.0 和 SQL语言，下面简明的介 绍下这两种 开发语言 。 Visual Basic（ Beginners All Purpose Symbol Instruction Code） 是一种可视化的、 面向 对象和 采用 事件驱动方式的结构化高级程序设计 语言 。在 Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用 Windows内部的应用程序接口(API)函数，以及动态链接库 (DLL)、动态数据交换 (DDE)、对象的链接与嵌入 (OLE)、开放式数据访问 (ODBC)等技术，可以高效、 快速地开发出 Windows环境下功能强大、图形界面丰富的应用软件系统。 总的来说 ,具有如下特点 : (1)提供了面向对象的可视化编程工具 Visual Basic 提供了可视化设计工具，把 Windows 界面设计的复杂性 “ 封装 ” 起来，开发人员不必为界面设计编写大量程序代码。 Visual Basic 自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。 (2)事件驱动的编程方式 Visual Basic通过事件来执行对象的操作。在用 Visual Basic设计大型应用 软件时，只需 编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样 程序易于编写和维护 。 (3)结构化的程序设计语言 Visual Basic 是在 BASIC 语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。 Visual Basic 语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。 (4)支持多种数据库系统的访问 及链接 Visual Basic 具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理 Microsoft Access 格式的数据库，并提供了强大的数据存储和检索功能。同时， Visual Basic还能直接编辑和访问其他外部数据库，如 dBASE、 FoxPro、 Paradox等。Visual Basic提供开放式数据连接，即 ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如 SQL Server、 ， Oracle 等 。 Visual Basic 支持 动态数据交换 (DDE)、 动 态链接库 (DLL)、 对象的链接与嵌入 (OLE)。 (5)完备的 Help联机帮助功能 与 Windows环境下的其他软件一样 ,在 Visual Basic中 ,利用帮助菜单 ,用户可以随时方便的得到所需要的帮助信息。 Visual Basic 帮助窗口中显示了有关的示例代码，通过复制粘贴操作可以获得大量的示例代码，为用户的学习和使用提供了极大的方便 。 此外， Visual Basic 6.0 还有一些新的特点。它采用了一种新的 ADO（ Active Data Object）数据访问技术，使之能更好的访问本地和远程的数据库；在代 码编译器中提供了控件属性方法的自动提示；能编译生成本机代码，大大提高了程序的执行速度；创建 ActiveX控件更加轻松方便；在线帮助更加完善等。 SQL(Structured Query Language)为结构化查询语言，是一种介于关系代数与关系演算之间的结构化查询语言。它的主要功能就是同各种数据库建立联系，进行沟通 ， 主要特点包括： (1) 综合统一 SQL语言集数据定义语言 DDL、数据操纵语言 DML、数据控制语言 DCL的功能于一体，语言风格统一，可以独立完成数据库生命周期中的全部活动，包 括定义关系模式、建立数据nts 9 库、数据插入、查询、更新、维护、数据库重构、数据库安全性控制等一系列操作要求，为数据库应用系统的开发提供了良好的环境。 (2) 高度非过程化 非关系数据模型的数据操纵语言是面向过程的语言，用其完成某项请求必须指定存取路径。而用 SQL语言进行数据操作，只要提出 “ 做什么 ” ，而无须指明 “ 怎么做 ” ，因此无须了解存取路径，存取路径的选择以及 SQL语句的操作过程由系统自动完成。这不但大大减轻了用户负担，而且有利于提高数据独立性。 (3) 面向集合的操作方式 非关系数据模型 采用的是面向记录的操作方式，操作对象是一条记录。而 SQL 语言采用 面向 集合 的 操作方式，不仅操作对象、查找结果可以是元组的集合，而且一次插入、删除、更新操作的对象也可以是元组的集合。 (4) 以同一种语法结构提供两种使用方式 SQL 语言既是自含式语言，又是嵌入式语言。作为自含式语言， 它 能够独立地用于联机交互的使用方式，用户 可 以在终端键盘上直接键入 SQL命令对数据库进行操作；作为嵌入式语言， SQL语句能够嵌入到高级语言中，供程序员设计程序时使用。而在两种不同的使用方式下， SQL语言的语法结构基本上 是一致的。 (5) 语言简捷，易学易用 SQL语言功能极强，但由于设计巧妙，语言十分简捷，完成核心功能只用了 9个动词，SQL语言接近英语口语，因此容易学习 和 使用。 4 系统详细设计 4.1系统 功能模块设计 电脑租赁管理系统的主要功能模块如下： (1)基本信息管理 添加、修改、删除和查看电脑类型信息；添加、修改、删除和查看保修类型信息；添加、修改、删除和查看会员类型信息。 (2)销售商管理 添加销售商信息，包括销售商编号、名称、联系电话、传真、地址等信息；修改销售商信息；删除销售商信息 ；查看销售商信息；查看销售的电脑信息。 (3)保修公司管理 添加保修公司信息，包括保修公司编号、名称、联系电话、传真、地址等信 息；修改保修公司信息；删除保修公司信息；查看保修公司信息；查看保修的电 脑信息。 (4)客户信息管理 添加客户基本信息，包括客户编号、姓名、年龄、工作单位等信息；修改客户基本信息；删除客户基本信息；升级客户为会员；查看客户基本信息。 (5)会员信息管理 修改会员信息；注销会员信息；查看会员信息。 (6)电脑信息管理 添加电脑基本信息，包括电脑编号、电 脑类型、电脑名称等；修改电脑基本信息；删除电脑基本信息； 查看电脑基本信息。 (7)电脑租赁管理 添加租赁信息，包括电脑编号、客户号、租赁模式、租赁时间等信息；修改租赁信息；删除租赁信息；审核租赁信息；打印租赁合同；查看租赁信息。 (8)电脑续租管理。 nts 10 添加续租信息，包括续租时间、续租天数等信息；修改续租信息；审核续租信息；查看续租信息。 (9)电脑归还管理 添加归还信息，包括实际归还时间、超时费用等信息；修改归还信息；结算审核归还信息；查看归还信息。 (10)系统用户管理 添加系统 用户信息，包括用户名、密码等信息；删除系统用户信息。 根据系统功能描述可得出系统的 数据流程。对于多类型用户的管理系统来说，每一类用户的工作流程都是不相同的。多用户系统的工作流程从用户登陆模块开始，对用户进行身份验证，确认用户是否是有权限的系统用户，决定用户能否进入系统。本系统的流程 图 如图 4-1所示 。 图 4-1系统 流程图 进入系统后，这些 操作 可以笼统的分为用户管理模块和租赁管理模块。 4.2 数据库表 设计 本系统的数据库包括以下 7 张表：类型表 Types、会员类型表 MemberTypes、公司信息表 Company、客户信息表 Customer、电脑信息表 Computers、电脑租赁表 Lease和用户信息表 Users。 (1)类型表 Types用来保存电脑分类和保修分类， 结构如 表 4-1所示 。 表 4-1 Types数据库表 的结构 编号 字段名称 数据类型 说明 1 Id 自动编号，长整 型 类型编号，主键 2 TypeName 文本，长度为 50 类型名称 开 始 用户登陆 失败超过 3次 退出系统 读取用户类型 管理自己的用户信息 管理自己的用户信息 管理普通用户的 信息信息 基本信息管理 销售商管理 客户信息管理 保修公司管理 电脑信息管理 会员信息管理 电脑 租赁管理 电脑归还管理 电脑续租管理 重试 否 是 成功 系统用户 是 否 nts 11 3 TypeId 数字，字节 类型分类 ， 1-电脑类型 2-保修类型 4 Description 文本，长度为 100 类型职能描述 (2)会员类型表 MemberTypes 用来保存会员的类型信息， 结构 如表 4-2所 示 。 表 4-2 MemberTypes数据库表 的结构 编号 字段名称 数据类型 说明 1 Id 数字，长整 型 类型编号，主键 2 TypeName 文本，长度为 50 类型名称 3 Rate 数字，单精度型 享受的折扣 (3)公司信息表 Company用来保存销售商和保修公司 的基本 信息， 结构如 表 4-3所示 。 表 4-3 Company数据库表 的结构 编号 字段名称 数据类型 说明 1 Id 自动编号，长整 型 公司编号，主键 2 Company 文本，长度为 100 公司名称 3 Telephone 文本，长度为 50 联系电话 4 ZipCode 文本，长度为 10 邮政编码 5 Fax 文本，长度为 40 传真 6 Address 文本，长度为 50 地址 7 Email 文本，长度为 50 电子邮件 8 Contact 文本，长度为 50 联系人 姓名 9 TypeId 数字，字节 公司类型， 1-销售商 2-保修公司 10 Comment 备注 说明 (4) 客户信息表 Customer结构如 表 4-4所示 。 表 4-4 Customer数据库表 的 结构 编号 字段名称 数据类型 说明 1 Id 文本，长度为 20 客户编号，主键 2 Name 文本，长度为 50 姓名 3 Sex 文本，长度为 2 性别 4 Age 数字，整 型 年龄 5 IdCard 文本，长度为 30 身份证号 6 Telephone 文本，长度为 30 电话 7 WorkPlace 文本，长度为 50 工作地点 8 Address 文本，长度为 50 家庭住 址 9 ZipCode 文本，长度为 10 邮政编码 10 Email 文本，长度为 30 电子邮件 11 Flag 数字，字节 会员标记， 0-非会员， 1-会员 12 TypeId 数字，长整 型 会员类型 nts 12 13 Certificate 文本，长度为 40 抵押证件 14 Warrantor 文本，长度为 50 担保人 姓名 15 WIdCard 文本，长度为 30 担保人身份证号 16 WWorkPlace 文本，长度为 100 担保人工作单位 (5) 电脑信息表 Computers 用来保存电脑的基 本信息， 结构如 表 4-5所示 。 表 4-5 Computers数据库表 的结构 编号 字段名称 数据类型 说明 1 ComputerNo 文本，长度为 20 电脑编号 ，主键 2 TypeId 数字，整 型 电脑类型 3 ComputerName 文本，长度为 50 电脑名称 4 SaleId 数字，长整 型 销售商编号 5 BuyDate 日期 /时间 购买日期 6 MendNo 文本，长度为 50 保修单编号 7 MendId 数字，长整 型 保修公司编号 8 MendType 文本，长度为 50 保修类型 9 MendSDate 日期 /时间 起保日期 10 MendEDate 日期 /时间 结束日期 11 Deposit 数字，整 型 押金 12 DayPrice 数字，整 型 日租金 13 WeekEndPrice 数字，整 型 周末租金 14 WeekPrice 数字，整 型 周租金 15 OverTimePrice 数字，整 型 超时租金 16 MonthPrice 数字，整 型 月租金 17 Status 文本，长度为 10 状态 18 Comment 备注 备注 (6) 电脑租赁表 Lease 用来 保存电脑租赁的日常业务信息，结构如表 4-6所示 。 表 4-6 Lease数据库表 的结构 编号 字段名称 数据类型 说明 1 ContractNo 文本，长度为 50 合同编号 ，主键 2 ComputerNo 文本，长度为 20 电脑编号 3 CustId 文本，长度为 20 客户编号 4 LeaseTime 日期 /时间 租赁时间 nts 13 5 LeaseMode 文本，长度为 10 租赁模式 6 Price1 数字，整型 租赁价格 7 Price2 数字，整型 按日租赁时的周末租赁价格 8 WorkDays 数 字，整型 租赁工作日、周、月的数量 9 WeekEndCount 数字，整型 租赁周末个数 10 Deposit 数字，整型 押金 11 OPrice 数字，整型 超时每小时价格 12 ReturnTime 日期 /时间 应归还时间 13 OtherCost 数字，整 型 其他费用 14 Rate 数字，单精度型 折扣 15 Payment 数字，长整型 实际支付金额 16 Total 数字，长整型 总金额 17 Status 文本，长度为 10 状态 18 CreateDate 日期 /时间 创建日期 19 UserName 文本，长度为 20 创建人 20 RealRTime 日期 /时间 实际归还时间 (7) 用户信息表 Users 用来保存系统用户信息，结构如表 4-7所示 。 表 4-7 Users数据库表 的结构 编号 字段名称 数据类型 说明 1 UserName 文本，长度为 40 用户名，主键 2 UserPwd 文本，长度为 40 密码 此表中有一条默认记录，用户名为 test,密码为 111111。 4.3系统运行环境 操作系统： Windows 98、 Windows 2000及以上 或 Windows XP（专业版） 。 硬件要求：推荐为 PII600或赛扬 600以上，硬盘剩余空间大于 200M、 内存 128M或更高配置。 5 系统 实现 5.1 创建工程及添加功能模块 (1)添加模块 ：打开桌面上的 Microsoft Visual Basic 6.0 中文企业版，并选择新建“标准 EXE”工程。新建工程后，在 Visual Basic 窗口中有个缺省的窗体 Form1，我们将在此基础上设计系统的主界面。 选择“工程”菜单中的“工程 1 属性”命令，在“工程属性”对话框中，将工程名设置为 Lease。单击“保存”按钮 ，将工程存储为 Lease.Vpb，将 Form1窗体保存为 FrmMain.Frx。 根据 Visual Basic 功能模块划分原则，我们将分别创建以下几个模块： Const用来管理工程中的 常量 。 DbFunc用来管理工程中与数据库操作相关的声明、变量和函数 。 GeneralFunc用来管理工程中一些通用的自定义函数 。 Variable用来管理工程中的全局变量。 nts 14 具体 操作如下：打开菜单栏中的“工程”选项，选择“添加模块”后出现“添 加模块”对话框，确定后将其分别命名为 Const、 DbFunc、 GeneralFunc、 Variabl。 (2)添加类模块：具体 操作 与添加模块类似。在通常情况下，类的成员变量 与对应的表中的字段名相同。本系统中 一共 有 7个类模块。 Types类的成员函数如下： Iint 初试化成员变量 。 Delete 删除指定的类型记录 ， 参数 TmpId表示要删除类型的编号 。 GetInfo 读取指定的类型记录 ， 参数 TmpId表示要读取的类型的编号 。 In_DB 判断指定的类型名称是否已经在数据库中。 GetInfoByTypeId 读取指定的类 型 下的 所有 分类 信息 ， 参数 TmpTyped表示要读取的类型的编号。 GetTypeNames 读取指定的类型编号的类型名称。 Insert 插入新的类型记录。 Update 修改指定的类型记录 ， 参数 TmpId 表示要修改的类型的编号。 MemberType 类的成员函数如下： Iint 初试化成员变量。 Delete 删除指定的 会员 类型记录。 GetInfo 读取指定的 会员 类型记录。 In_DB 判断指定的类型名称是否已经在数 据库中。 Insert 插入新的 会员 类型记录。 Update 修改指定的 会员 类 型记录。 Company 类的 成员函数如下： Iint 初试化成员变量。 Delete 删除指定的记录。 GetInfo 读取 指定的记录。 Insert 插入新的记录。 Update 修改指定的记录。 Customer 类的成员函数如下： Iint 初试化成员变量。 Delete 删除指定的记录。 GetInfo 读取 指定的记录。 In_DB 判断指定的客户信息是否已经在数据库中 Insert 插入新的记录。 Update 修改指定的记录。 UpdateToMember 修改客户的状态为会员。 UpdateToCustomer 注销会员。 Computers 类的成员函数如下： Iint 初试化成员变量。 Delete 删除指定的电脑记录。 GetInfo 读 取指定的电脑记录。 In_DB 判断指定的电脑编号是否已经在数据库 中。 Insert 插入新的电脑记录。 Update 修改指定的电脑记录。 UpdateStatus 修改电脑的状态值 。 LeaseComputer 类的成员函数如下： Iint 初试化成员变量。 Delete 删 除指定的租赁记录。 GetInfo 读 取指定的记录。 In_DB 判断指定的合同编号是否已经在数据库中。 Insert 插入新的租赁记录。 Update 修改指定的租赁记录。 UpdateStatus 修改租赁的状态值。 UpdateAddStatus 修改续租记录。 UpdateSettleAccount 修改租赁结算信息。 Users类的成员函数如下： Iint 初试化成员变量。 Delete 删除指定的用户记录。 GetInfo 读 取指定的记录。 In_DB 判断指定的用户名是否已经 在数据库中。 Insert 插入新的用户记录。 Update 修改指定的用户记录。 这些模块均保存在与工程同一个文件夹中。 nts 15 5.2 登陆模块及系统主界面设计 用户使用本系统，首先必须通过系统的身份验证，这个过程叫做登陆。登陆过程需要完成以下任务：根据用户名和密码来判断是否 可以 进入系统；根据用户类型决定用户拥有的权限。成功登陆的用户将进入系统的主界面。 登陆窗体的名称为 frmLogin，界面布局如 图 5-1所示 。 图 5-1 登陆窗体的界面布局 主窗体 是 工程的启动对象，可以在系统菜单中选择“工程” /“属性”，打开属性窗口设置启动对象。本系统中主窗 体 名为 FrmMain。 打开主窗体的设计窗口，选择“工具”菜单中的 “菜单编辑器”，对菜单内容进行编辑。主窗体 界面布局如图 5-2所示 。 图 5-2 系统主界面 主窗体 FrmMain中的主要代码如下： Conn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & _ App.Path + + DATABASE + ;Persist Security Info=False StatusBar1.Panels(1) = 吉首大学数计学院 2002级计科一班 侯利娟 nts 16 StatusBar1.Panels(2) = 当前日期 : & Date StatusBar1.Panels(3) = 当前时间 : & Time 5.3 类型管理模块设计 类型管理模块可以添加、修改、删除和查看类型记录，它包含电脑类型和保修类型两部分。 编辑类型信息的窗体可以用来添加和修改类型信息。创建一个新窗体命名为 FrmType，窗体布局如图 5-3所示 。 图 5-3 类型设置窗体布局 DataRefresh过程的功能是根据种类编号显示列表中的信息，对应代码如下： Adodc1.ConnectionString = Conn 设置连接字符串 Adodc1.RecordSource = SELECT * FROM Types WHERE TypeId= + Trim(nTypeId) Adodc1.Refresh Set DataList1.RowSource = Adodc1 设置数据源 DataList1.ListField = TypeName 设置显示字段 DataList1.BoundColumn = Id 设置绑定字段 当 用户单击 “ 添加 ” 按钮 时 ，触发 Cmd_Add_Click事件，对应代码如下： FrmTypeEdit.nTid = nTypeId If nTypeId = 1 Then FrmTypeEdit.lblTypeId = 电脑类型 Else FrmTypeEdit.lblTypeId = 保修类型 End If FrmTypeEdit.txtType = FrmTypeEdit.txtDescribe = FrmTypeEdit.Modify = False FrmTypeEdit.Show 1 打开编辑类型信息的窗体 当用户在电脑类型和保修类型单选按钮之间切换时，触发 OptSel_Click 事件，对应代码如下： 设置 nTypeId值 nTypeId = Index + 1 索引值加 1 nts 17 DataRefresh 根据类型种类值刷新类型名称 5.4 销售商和保修公司管理模块 设计 销售商管理和保修公司管理这两个模块可以添加、修改、删除和查看记录，他们访问 数据库 中的 同一个表 Company 中的数据，其在功能上是完全一样的 ，这里只 介绍 保修公司管理模块 ，其 窗体布局如 图 5-4所示 。 图 5-4 保修公司管理窗体布局 当用户单击“查看 保修 电脑”按钮时，可以查看此 保修公司 所 保修 的电脑列表，并触发Cmd_ViewComputers_Click 事件，对应代码如下： FrmSaleComputers.nType = 2 FrmSaleComputers.sSaleName = Trim(Adodc1.Recordset.Fields(1) FrmSaleComputers.nSaleId = Adodc1.Recordset.Fields(0) FrmSaleComputers.txtSaleName = Trim(Adodc1.Recordset.Fields(1) FrmSaleComputers.Caption = 查看保修公司保修电脑 FrmSaleComputers.Label1 = 保修公司名称 FrmSaleComputers.Show 1 查看保修电脑 窗体布局 如图 5-5所 示 。 图 5-5 查看保修电脑窗体布局 nts 18 5.5 电脑管理模块设计 电脑管理模块可以添加、修改、删除和查看电脑的基本信息 ，其 窗体布局如图 5-6 所示 。 图 5-6 电脑管理窗体布局 其主要代码如下： 添加、修改电脑信息 根据变量 Modify的值，决定是插入新数据，还是修改已有的数据 If Modify = False Then If Len(Trim(txtComputerNo) = 0 Then MsgBox 请输入电脑编号 ! txtComputerNo.SetFocus txtComputerNo.SelStart = 0 txtComputerNo.SelLength = Len(txtComputerNo) Exit Sub End If 判断此电脑号码是否存在 If .In_DB(MakeStr(txtComputerNo) = False Then .Insert Else MsgBox (已经存在此电脑号码 ) txtComputerNo.SetFocus Exit Sub End If 5.6 客户会员管理模块设计 客户会员管理中包含 以下 三个部分： 客户管理：可以添加、修改、删除和查看客户记录，并且加入会员 。 会员管理：可以修改、注销和查看会员记录 。 会员类型管理：可以添加、修改、删除和查看会员类型记录 。 会员类型管理窗体的布局 如图 5-7所示 。 nts 19 图 5-7会员类型管理窗体布局 图 5-8是客户管理 窗体的布局 。 图 5-8客户管理窗体布局 其 加入会员的 主要代码如下： 根据变量 Modify的值，决定是插入新数据，还是修改已有的数据 If Modify = False Then 判断此客户编号是否存在 If .In_DB(Trim(txtId) = True Then MsgBox (已经存在此客户编号 ) txtId.SetFocus Exit Sub End If .Insert Else 判断是否为会员 If IsMember = False Then .TypeId = 0 nts 20 Call .Update(OriId) Else 是会员，判断是否选择了会员类型 If Len(Trim(dco_MemType.Text) = 0 Then MsgBox (请选择会员类型 ) dco_MemType.SetFocus Exit Sub End If .TypeId = Val(dco_MemType.BoundText) 设置会员类型编号 Call .Update(OriId) End If End If .Update (OriId) .
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号