毕业论文范文——基于VB的电脑租赁管理系统的设计与实现

目录前言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参考文献25基于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)方法相结合，用数据库系统设计方法对公司租赁管理信息系统进行重新设计，以解决以前信息管理系统中存在的不足，使租赁公司能够更容易、更方便的用计算机进行对电脑租赁业务的管理，以实现无纸化办公。1系统可行性分析通过对本课题的调查与实际的分析，我们复查了系统的规模和目标，研究了该课题的高层逻辑模型，认为有必要开发这个系统。从技术方面：我们能使用现有的技术来完成开发工作。本系统采用的是可视化的开发工具Visual Basic6.0，数据库采用的是office组件中的Access，其中的查询及对数据库的一些基本操作采用的是SQL语言，而这些都是我们在大学本科阶段计算机专业的必修课程。从经济方面：本系统属于中小型系统，不需要大量的人力、物力和财力，开发成本很低，因此开发这个系统在经济上是可行的。从操作方面：系统的操作方式在用户组织内行得通。并且我们重新定义了一些问题，导出和评价了一些供选择的解法，草拟了开发计划，书写了相关文档。2 系统需求分析2.1 系统调查通过对先前的电脑租赁管理系统的深入研究，我们可以知道系统工作的业务流程。每一次的电脑租赁业务由系统管理员输入到计算机中，系统中的租赁清单程序对业务进行处理，更新存储在磁盘上的租赁信息数据库，最后由打印租赁合同程序读一次数据库，并且打印出租赁合同。其业务流程图如图2-1所示。租赁业务租赁清单程序租赁信息数据库租赁信息打印合同程序租赁合同 图2-1 电脑租赁的业务流程图2.2 数据流图 此电脑租赁管理系统的数据流图如图2-2、2-3所示。系统管理员客户电脑租赁管理系统租赁信息数据库业 务租赁合同图2-2 顶层数据流图接收业 务更新电脑库 存处理租赁业 务打印租赁合 同租赁信息租赁信息电脑库存清单业务库存信息租赁信息库存清单图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 系统功能模块可以看出，本系统分为四个功能模块，基本信息管理模块用于管理电脑类型、保修类型及电脑基本信息，客户会员管理模块用于对租赁电脑的客户进行统一管理，日常业务管理模块用于管理电脑租赁业务信息，系统用户管理模块用于管理系统用户信息。下面分别介绍这四个功能模块的基本功能。基本信息管理模块的基本功能如图3-2所示。提供类型数据类型信息管理保修公司管理销售商管理电脑信息管理提供保修公司数据提供销售商数据 图3-2 基本信息管理模块功能图客户会员管理模块的基本功能如图3-3所示。会员类型管理客户信息管理 会员信息管理电脑租赁管理电脑续租管理 电脑归还管理 图3-3 客户会员管理模块功能图日常业务管理模块是整个系统的核心，其他模块都为它提供数据，基本功能如图3-4所示。电脑信息管理 电脑续租管理 电脑归还管理电脑租赁管理 图3-4 日常业务管理模块功能图 在本系统中，用户管理模块比较简单。在本系统初始化时，有一个默认的“系统管理员”用户test,由程序设计人员手动的添加到数据库中。test用户可以创建用户、修改用户信息以及删除用户；普通用户只能修改自己的用户名和密码。用户管理功能模块的关系如图3-5所示。系统用户信息管理修改test用户的密码创建、修改和删除普通用户信息修改自身的用户名和密码系统用户普通用户 图3-5 用户管理模块功能图3.2数据库概念模型设计 数据库是管理信息系统的后台，存储着所有的信息，在管理信息系统中有着很重要的作用。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和一致性。同时，一个合理的数据库结构有利于程序的实现。本系统所创建的数据库命名为“Lease.mdb”，选用Access 2000作为后台数据库。下面给出本系统的实体图如图3-6、3-7、3-8、3-9、3-10和3-11所示。类 型类型名称类型编号类型分类类型描述图3-6 类型的实体图会员类型类型编号类型名称折扣图3-7 会员类型的实体图公 司公司编号公司名称地 址电 话联系人公司类型传 真电子邮件邮政编码说 明图3-8 公司的实体图客 户担保人担保人身份证号抵押证件电 话年龄会员类型会员标记邮编客户编号地 址工作地点身份证号性 别电子邮件姓名担保人工作地点 图3-9 客户的实体图电 脑电脑类型电脑编号销售商编号备 注电脑名称保修公司编号图3-10 电脑的实体图 用 户用户名密 码图3-11 用户的实体图本系统各实体间的实体联系图如图3-12所示。保修公司电 脑用 户客 户租 赁供 货保 修销售商11NNN11保修类型保修单号购买日期结束日期起保日期租赁状态押 金租赁时间归还时间租 金图3-12 电脑租赁管理系统的E-R图3.3 开发平台选择本系统所选择的开发工具为Visual Basic 6.0和SQL语言，下面简明的介绍下这两种开发语言。 Visual Basic（Beginners AllPurpose 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的功能于一体，语言风格统一，可以独立完成数据库生命周期中的全部活动，包括定义关系模式、建立数据库、数据插入、查询、更新、维护、数据库重构、数据库安全性控制等一系列操作要求，为数据库应用系统的开发提供了良好的环境。(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)电脑续租管理。 添加续租信息，包括续租时间、续租天数等信息；修改续租信息；审核续租信息；查看续租信息。(9)电脑归还管理 添加归还信息，包括实际归还时间、超时费用等信息；修改归还信息；结算审核归还信息；查看归还信息。(10)系统用户管理添加系统用户信息，包括用户名、密码等信息；删除系统用户信息。根据系统功能描述可得出系统的数据流程。对于多类型用户的管理系统来说，每一类用户的工作流程都是不相同的。多用户系统的工作流程从用户登陆模块开始，对用户进行身份验证，确认用户是否是有权限的系统用户，决定用户能否进入系统。本系统的流程图如图4-1所示。开 始用户登陆失败超过3次退出系统读取用户类型管理自己的用户信息管理自己的用户信息管理普通用户的信息信息基本信息管理销售商管理客户信息管理保修公司管理电脑信息管理会员信息管理电脑租赁管理电脑归还管理电脑续租管理重试否是成功系统用户是否 图4-1系统流程图进入系统后，这些操作可以笼统的分为用户管理模块和租赁管理模块。4.2 数据库表设计 本系统的数据库包括以下7张表：类型表Types、会员类型表MemberTypes、公司信息表Company、客户信息表Customer、电脑信息表Computers、电脑租赁表Lease和用户信息表Users。(1)类型表Types用来保存电脑分类和保修分类，结构如表4-1所示。表4-1 Types数据库表的结构 编号字段名称数据类型说明1Id自动编号，长整型类型编号，主键2TypeName文本，长度为50类型名称3TypeId数字，字节类型分类，1-电脑类型2-保修类型4Description文本，长度为100类型职能描述(2)会员类型表MemberTypes用来保存会员的类型信息，结构如表4-2所示。表4-2 MemberTypes数据库表的结构编号字段名称数据类型说明1Id数字，长整型类型编号，主键2TypeName文本，长度为50类型名称3Rate数字，单精度型享受的折扣(3)公司信息表Company用来保存销售商和保修公司的基本信息，结构如表4-3所示。 表4-3 Company数据库表的结构 编号字段名称数据类型说明1Id自动编号，长整型公司编号，主键2Company文本，长度为100公司名称3Telephone文本，长度为50联系电话4ZipCode文本，长度为10邮政编码5Fax文本，长度为40传真6Address文本，长度为50地址7Email文本，长度为50电子邮件8Contact文本，长度为50联系人姓名9TypeId数字，字节公司类型，1-销售商2-保修公司10Comment备注说明(4) 客户信息表Customer结构如表4-4所示。表4-4 Customer数据库表的结构编号字段名称数据类型说明1Id文本，长度为20客户编号，主键2Name文本，长度为50姓名3Sex文本，长度为2性别4Age数字，整型年龄5IdCard文本，长度为30身份证号6Telephone文本，长度为30电话7WorkPlace文本，长度为50工作地点8Address文本，长度为50家庭住址9ZipCode文本，长度为10邮政编码10Email文本，长度为30电子邮件11Flag数字，字节会员标记，0-非会员，1-会员12TypeId数字，长整型会员类型13Certificate文本，长度为40抵押证件14Warrantor文本，长度为50担保人姓名15WIdCard文本，长度为30担保人身份证号16WWorkPlace文本，长度为100担保人工作单位(5) 电脑信息表Computers用来保存电脑的基本信息，结构如表4-5所示。表4-5 Computers数据库表的结构编号字段名称数据类型说明1ComputerNo文本，长度为20电脑编号，主键2TypeId数字，整型电脑类型3ComputerName文本，长度为50电脑名称4SaleId数字，长整型销售商编号5BuyDate日期/时间购买日期6MendNo文本，长度为50保修单编号7MendId数字，长整型保修公司编号8MendType文本，长度为50保修类型9MendSDate日期/时间起保日期10MendEDate日期/时间结束日期11Deposit数字，整型押金12DayPrice数字，整型日租金13WeekEndPrice数字，整型周末租金14WeekPrice数字，整型周租金15OverTimePrice数字，整型超时租金16MonthPrice数字，整型月租金17Status文本，长度为10状态18Comment备注备注(6) 电脑租赁表Lease用来保存电脑租赁的日常业务信息，结构如表4-6所示。表4-6 Lease数据库表的结构编号字段名称数据类型说明1ContractNo文本，长度为50合同编号，主键2ComputerNo文本，长度为20电脑编号3CustId文本，长度为20客户编号4LeaseTime日期/时间租赁时间5LeaseMode文本，长度为10租赁模式6Price1数字，整型租赁价格7Price2数字，整型按日租赁时的周末租赁价格8WorkDays数字，整型租赁工作日、周、月的数量9WeekEndCount数字，整型租赁周末个数10Deposit数字，整型押金11OPrice数字，整型超时每小时价格12ReturnTime日期/时间应归还时间13OtherCost数字，整型其他费用14Rate数字，单精度型折扣15Payment数字，长整型实际支付金额16Total数字，长整型总金额17Status文本，长度为10状态18CreateDate日期/时间创建日期19UserName文本，长度为20创建人20RealRTime日期/时间实际归还时间(7) 用户信息表Users用来保存系统用户信息，结构如表4-7所示。表4-7 Users数据库表的结构编号字段名称数据类型说明1UserName文本，长度为40用户名，主键2UserPwd文本，长度为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 功能模块划分原则，我们将分别创建以下几个模块：l Const用来管理工程中的常量。l DbFunc用来管理工程中与数据库操作相关的声明、变量和函数。l GeneralFunc用来管理工程中一些通用的自定义函数。l Variable用来管理工程中的全局变量。具体操作如下：打开菜单栏中的“工程”选项，选择“添加模块”后出现“添加模块”对话框，确定后将其分别命名为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 修改指定的用户记录。 这些模块均保存在与工程同一个文件夹中。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级计科一班 侯利娟StatusBar1.Panels(2) = 当前日期: & DateStatusBar1.Panels(3) = 当前时间: & Time5.3 类型管理模块设计类型管理模块可以添加、修改、删除和查看类型记录，它包含电脑类型和保修类型两部分。编辑类型信息的窗体可以用来添加和修改类型信息。创建一个新窗体命名为FrmType，窗体布局如图5-3所示。 图5-3 类型设置窗体布局 DataRefresh过程的功能是根据种类编号显示列表中的信息，对应代码如下：Adodc1.ConnectionString = Conn 设置连接字符串Adodc1.RecordSource = SELECT * FROM Types WHERE TypeId= + Trim(nTypeId)Adodc1.RefreshSet DataList1.RowSource = Adodc1 设置数据源DataList1.ListField = TypeName 设置显示字段DataList1.BoundColumn = Id 设置绑定字段当用户单击“添加”按钮时，触发Cmd_Add_Click事件，对应代码如下：FrmTypeEdit.nTid = nTypeIdIf 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 索引值加1DataRefresh 根据类型种类值刷新类型名称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 查看保修电脑窗体布局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 SubEnd If5.6 客户会员管理模块设计客户会员管理中包含以下三个部分：l 客户管理：可以添加、修改、删除和查看客户记录，并且加入会员。l 会员管理：可以修改、注销和查看会员记录。l 会员类型管理：可以添加、修改、删除和查看会员类型记录。会员类型管理窗体的布局如图5-7所示。 图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 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) .UpdateToMember (OriId)End With会员管理窗体布局如图5-9所示。 图5-9 会员管理窗体布局其主要代码如下：取消会员资格 If Adodc1.Recordset.EOF = True Then MsgBox 请选择记录 Exit Sub End If If MsgBox(是否确定要注销会员资格 , vbYesNo, 请确认) = vbNo Then Exit Sub End If MyCustomer.TypeId = 0 MyCustomer.UpdateToCustomer (Trim(Adodc1.Recordset.Fields(0) GridRefresh 刷新DataGrid表格的内容5.7 电脑租赁管理模块设计电脑租赁管理模块可以添加、修改、删除、审核和查看电脑租赁信息，并可以实现电脑续租、审核续租以及打印电脑租赁合同的功能。电脑租赁管理的窗体的名称为FrmLease，窗体布局如图5-10所示。 图5-10 电脑租赁管理窗体布局编辑电脑租赁信息的窗体布局如图5-11所示。 图5-11编辑电脑租赁信息窗体布局 主要代码如下：更改时间同时计算租电脑的总费用查看租赁模式，如果为日，则按天价格计算总费用；如果按周，则将计算日期相差的天数；如果按月，则计算日期相差的月份而后乘以月价格 nCnt = Val(txtWorkDays) 租赁的工作日个数或周个数或月个数 nECnt = Val(txtWeekEndCount) 租赁的周末个数 If Trim(cob_Mode.Text) = 日 Then 总费用=工作日租赁价格*工作日个数+周末租金*周末个数 lCost = Val(AdoPrice.Recordset.Fields(1) * nCnt + Val(AdoPrice.Recordset.Fields(2) * nECnt Else If Trim(cob_Mode.Text) = 周 Then 总费用=周租金*周数 lCost = Val(AdoPrice.Recordset.Fields(3) * nCnt 以日为单位将周个数*7=天数 添加到租赁日期而计算返回时间 txtReturnTime = Trim(DateAdd(d, nCnt * 7, CDate(txtLeaseTime) E