汽车租赁管理系统VB

课程设计论文题目：基于VB的汽车租赁管理系统作者：唐星星班级：08工业A1学号：084810819摘要近年来，计算机技术日趋成熟，数据库技术不断发展，管理信息系统的应用已延伸到社会的各个领域。结合管理信息系统的开发方法及步骤，以此为理论基础，开发出一个小型的信息管理系统——汽车租赁管理系统。汽车租赁管理是汽车租赁公司开展日常运营活动的必须的环节。传统的手工管理方式不但浪费人力、时间，而且管理复杂，易出差错。基于计算机技术的完备的汽车租赁管理系统把一些繁琐的数据计算、信息处理化为简单的指令操作。完全实现数据信息的电算化管理，彻底把人从手工管理中解放出来。经过艰苦的努力,我终于实现了预期的设计目标,开发出这套具有一定实用价值的汽车租赁管理系统,使用这套系统有利于提高汽车租赁公司的劳动生产率，节约生产成本，增加经济效益。本文主要介绍了该系统生成的背景及VisualBasic6.0和Access的一般原理。阐述了整个汽车租赁管理系统的结构及工作原理；分析了系统实现中的特殊性、难点和重点；设计实现了系统用户管理、基本信息管理、业务管理、会员管理等程序模块；分析并解决了现实中的若干技术问题。关键词：数据库；VisualBasic6.0；汽车租赁管理ABSTRACTInrecentyears,thecomputertechniquehasbecomemoreandmoreripe;thedatabasetechniquedevelopsconstantlyandtheapplicationoftheinformationmanagementsystemhasstretchedintoeveryfieldofoursociety.Combiningthemethodsandstepsoftheinformationmanagementsystemandbasingonthetheoryofit,Idevelopedasmallinformationmanagementsystem--theautomobilelend-leasemanagementsystem.Themanagementofautomobilelendingandleasingisanecessarypartofthecompany'sdailyoperation.Traditionalwayisawasteofhumanresourcesandtime,anditiscomplicatedandoftenrunswithmistakes.Basedonthecomputertechnique,theperfectautomobilelend-leasemanagementturnsthosecomplicateddatacalculationandinformationprocessingintosimpleinstructions.Itrealizedtheelectronicmanagementofdatainformationcompletely.Itliberatespeoplefromthehumanmanagemententirely.Afterhardwork,Ifinallyrealizedmydesignasexpected,anddevelopedthispracticalandvaluableautomobilelend-leasemanagementsystem.Usingitwillraisetheworkingrate,reducethecostandraisetheeconomicbenefitofthecompany.ThispapermainlyintroducesthedevelopbackgroundofthesystemandthebasictheoryofVisualBasic6.0andAccessVisual.Ittellsthestructureoftheautomobilelend-leasemanagementsystemanditsworkingtheory;itanalyzesthespecialty,difficultyandimportantthingsinsystemrealization.Thedesignrealizesthemanagementofthesystemusers,thebasicinformation,thebusiness,andthemembers'management.Keywords:Database；VisualBasic6.0；Theautomobilelend-leasemanagement目录摘要 IABSTRACT II1绪论 11.1课题研究背景及意义 11.2课题实现的基本功能 11.3编程环境的介绍 21.3.1Access2003简介 21.3.2VisualBasic6.0简介 21.3.3数据库管理系统简介 31.3.4SQL语言简介 31.3.5ADO数据库访问技术 41.4数据库设计基础 51.4.1VisualBasic中的数据访问 51.4.2VisualBasic数据库体系结构. 52系统的需求分析和可行性研究 62.1组织结构及职能分析 62.2业务流程分析 72.3功能分析 82.4数据结构分析 93系统总体设计. 113.1系统目标设计 113.2系统功能分析 123.2.1系统功能模块设计 123.2.2系统功能模块图 123.3数据库逻辑结构设计 133.3.1数据字典 133.3.2数据库中表的设计 154系统详细设计与实现 184.1主控程序流程设计 184.2登录模块设计 194.3主界面设计 204.4基本信息管理菜单设计 214.4.1类型信息窗体设计 214.4.2销售商信息窗体设计 23保险公司信息窗体设计 24车辆信息窗体设计 264.5客户会员管理菜单实现 274.5.1客户信息窗口实现 274.5.2会员信息窗体实现 294.5.3会员类型定义窗体实现 314.6日常业务管理菜单实现 324.6.1车辆租赁窗体实现 324.6.2车辆归还窗体实现 344.7系统用户管理菜单实现 354.7.1用户信息窗体的实现 364.8系统帮助信息菜单实现 374.8.1系统帮助信息模块 374.8.2关于的实现 385系统测试 395.1软件测试过程 39参考文献 44结束语 45致谢 461绪论1.1课题研究背景及意义现代科学的发展，使计算机进入了几乎一切领域。从科学研究到工农业生产，从企业生产管理到家庭生活，各行各业都广泛地使用着计算机。当今社会的数据信息管理离不开计算机技术的支持。如何实现对数据信息快捷、有效、实用的管理，是软件开发业追求的目标。今天，随着社会生产的发展，人民生活水平的提高，汽车租赁已成为一个极具市场潜力的行业，面对飞速发展的租赁市场，传统的人工租赁管理方式在进行繁多的业务信息处理时显得极不适应，因此，人们对于运用计算机来辅助协调和管理租赁工作的需求正在逐步提高。随着社会物质条件的改善，生产生活节奏的加快，人们越来越意识到时间的重要性，在工作中，生活中越来越注重如何节省时间，提高效率。因为工作和生活的缘故，在必要的时候向汽车出租公司提出租赁车辆的服务要求，已成为大众广为认可和接受的行为和选择。在这种社会需求的强力带动下，汽车租赁市场出现了前所未有的一片繁荣景象。各个汽车租赁公司门庭若市，业务激增。然而在繁忙的景象背后，却也暴露出汽车租赁公司在处理业务信息时以人工方式为主所带来的诸如：效率低下，管理混乱，失误增多等诸多弊端。在实践中，汽车租赁行业的业主们逐渐意识到在租赁行业中借助计算机引入信息管理的重要性，并开始不断提高自身的素质和高科技在工作中的投入，以改善信息的管理，提高服务效率。汽车租赁管理就是对车辆信息和客户信息的管理，主要包括车辆的出租状态、车辆的基本信息、车辆的投保情况、车辆的出厂情况、客户信息的管理等。由于这些过程间的关系复杂，有一对一的关系，一对多的关系，也有多对多的关系，所有这些工作使汽车管理工作变得量大而又复杂，以前包括现在还有很多租赁公司采用人工管理，直接导致了错误的产生，服务质量的低下。汽车租赁管理系统的开发使得这一状况得到了根本的改善。这套管理系统包括涵盖了车辆租赁业务的各个方面。使得汽车租赁服务可以快速、规范地完成，节省了人力物力，提高了服务质量和经济效益。1.2课题实现的基本功能汽车租赁管理系统针对的是汽车租赁公司在向客户提供出租车辆服务过程中面对的各种问题，对其业务信息进行自动化、信息化处理，使车辆租赁管理变得规范、快捷、高效。基于各方面的研究，同时针对汽车租赁公司的实际情况，在刘旭东老师的悉心指导和帮助下，我查阅并应用数据库、管理信息系统、软件工程的一些基本原理和理论思想，以具有强大的应用程序开发功能和数据库开发功能的VisualBasic6.0为开发工具，设计开发了这套汽车租赁管理系统。在Windows环境下，此系统具有比较友好的界面和基本完善的功能，使用轻松方便，易于维护，适应性强。本系统包括客户信息管理、车辆信息管理、汽车租赁归还管理、会员类型管理、会员信息管理、保险公司管理、汽车销售商管理等。具有添加、修改、删除、查询等功能，通过这些管理模块，可以使汽车租赁服务更加清晰，更加便捷，提高了服务质量，减少了操作人员的工作量。为规范操作流程，降低劳动强度使租赁业务走向标准化和科学化，设计开发了这套管理系统，它的使用将有利于提高租赁公司的劳动生产率，节约生产成本，增加经济效益，希望它能为业内人员的工作提供一定的帮助。1.3编程环境的介绍1.3.1Access2003简介Microsoft公司出品的关联式资料库套装软体。它提供视觉化的设计介面，不必撰写程式，即可快速，简单地开发出美观实用的资料库管理系统。access的结构:资料(data)→栏位(field)→记录(record)→档案(file)→资料库(database)；资料(data)→资料项(item)→资料录(record)→资料表(table)→资料库(database)Access2003有以下组成：资料表：为access储存资料的地方，亦为资料的根本来源，一个资料库至少要存在一个资料表。查询：可依使用者需求，以一些限制条件（筛选,过滤…）来选取资料表中。表单：建立一个让使用者输入，查询，修改资料的操作画面。报表：将资料库里的资料运用报表做成有利用价值的画面资料。资料页：为access2003的新增物件，资料发布至网路的媒介。此物件完成建立后，将会在资料库档案外，再产生一个HTML档。巨集：建立简单的资料操作指令与将一连串的执行动作自动化。应用于一些重复性高的动作或者用于使用者自订工作环境上。模组：开发应用系统的工具。是让使用者能更随心所欲的去控制系统。1.3.2VisualBasic6.0简介20世纪60年代初，美国Dartmouth学院的两位学者G.Keneny和ThomosE.Kurty发明了一种称为“BASIC”的语言，它的诞生称得上是计算机语言发展史上的一件大事，对计算机的推广应用起到了重要的作用。自从Basic语言问世以来，“Basic”已经成为了编程入门者学习语言的代名词。Basic语言以其易学易用的特点风靡全球。然而自从微软公司推出了划时代的VisualBasic，Basic又从一门“玩具语言”一跃而成为功能强大的应用软件开发语言。它功能强大，语法简单，执行代码效率高。据统计，开发同样的应用软件，采用VB开发要比用VC++的效率提高70％。因此，VB已经成为每一个编程工作者学习时的首选语言。1991年，微软推出了VisualBasic1.0版。这在当时引起了很大的轰动。接着于1992年微软推出VisualBasicB2.0，1993年推出VisualBasic3.0，1995年推出VisualBasic4.0，1997年推出VisualBasic5.0，1998年推出VisualBasic6.0。并且从VisualBasic3.0开始，微软将ACCESS的数据库驱动集成到了VisualBasic中，这使得VisualBasic的数据库编程能力大大提高。从VisualBasic4.0开始，VisualBasic也引入了面向对象的程序设计思想。而且，VisualBasic还引入了“控件”的概念，使得大量已经编好的VisualBasic程序可以被我们直接拿来使用，如今，VisualBasic已经有了6.0版。VisualBasic已逐渐成为简单易学、功能强大的编程工具。它不但在一般程序设计方面比传统的程序设计语言具有明显的优势，而且可作为多媒体创作工具，支持程序跳转，具有脱机播放动画的能力，并采用了动画过渡技术等。它的软件费用支出低，易学习的突出特点，使其易于被许多非专业人员掌握使用。通过几年的发展，它已成为一种真正专业化的开发语言和环境。用户可用VisualBasic快速创建Windows程序，在现在还可以编写企业水平的客户／服务器程序及强大的数据库应用程序。1.3.3数据库管理系统简介数据库是数据管理的最新技术，是计算机科学的重要分支。数据库是指长期储存在计算机内的、有组织的、可共享的数据集合。数据库中的数据按一定的数据模型组织、描述和储存，具有较小的冗余度、较高的数据独立性和易扩展性，并可为各种用户共享。数据库管理系统是位于用户与操作系统之间的一层数据管理软件。主要有数据定义功能、数据操纵功能、数据库的运行管理和数据库的建立和维护功能。它是数据库系统的一个重要组成部分。十余年来，数据库管理系统已从专用的应用程序包发展成为通用的系统软件。由于数据库具有数据结构化、最低冗余度、较高的程序与数据独立性、易于扩充、易于编制应用程序等优点，较大的信息系统都是建立在数据库设计之上的。因此，不仅大型计算机及中小型计算机，甚至微型机都配有数据库管理系统。目前，对数据库各种模型的研究以及理论上的探讨都还在蓬勃开展，其应用也从一般管理扩大到计算机辅助设计、人工智能以及科技计算等领域。今天，信息资源已成为各个部门的重要财富和资源。建立一个满足各级部门信息处理要求的行之有效的信息系统也成为一个企业或组织生存和发展的重要条件。因此，作为信息系统核心和基础的数据库技术得到越来越广泛的应用，从小型单项事务处理系统到大型信息系统，从联机事务处理到联机分析处理，从一般企业管理到计算机辅助设计与制造（CAD/CAM）、计算机集成制造系统（CIMS）、办公信息系统（OIS）、地理信息系统（GIS）等，越来越多新的应用领域采用数据库存储和处理他们的信息资源。对于一个国家来说，数据库的建设规模、数据库信息量的大小和使用频度已成为衡量这个国家信息化程度的重要标志。1.3.4SQL语言简介SQL（StructuredQueryLanguage）语言是1974年由Boyce和Chamberlin提出的。1975年~1979年IBM公司SanJoseResearchLaboratory研制了著名的关系数据库管理系统原形SystemR并实现了这种语言。由于它功能丰富，语言简捷倍受用户及计算机工业界欢迎，被众多计算机公司和软件公司所采用。经各公司的不断修改、扩充和完善，SQL语言最终发展成为关系数据库的标准语言。1986年10月美国国家标准局（AmericanNationalStandardInstitute，简称ANSI）的数据库委员会X3H2批准了SQL作为关系数据库语言的美国标准。同年公布了SQL标准文本（简称SQL-86）。1987年国际标准化组织（InternationalOrganizationforStandardization，简称ISO）也通过了这一标准。此后，ANSI不断修改和完善SQL标准，并于1989年公布了SQL-89标准，1992年又公布了SQL-92标准。自SQL成为国际标准语言以后，各个数据库厂家纷纷推出各自的SQL软件或与SQL的接口软件。这就使大多数数据库均用SQL作为共同的数据存取语言和标准接口，使不同数据库系统之间的互操作有了共同的基础。这个意义十分重大。因此，有人把确立SQL为关系数据库语言标准及其后的发展称为是一场革命。SQL成为国际标准，对数据库以外的领域也产生了很大影响，有不少软件产品将SQL语言的数据查询功能与图形功能、软件工程工具、软件开发工具、人工智能程序结合起来。SQL是一种介于关系代数与关系演算之间的结构化查询语言，其功能并不仅仅是查询。SQL是一个通用的、功能极强的关系数据库语言。SQL语言集数据查询、数据操纵、数据定义和数据控制功能于一体，主要特点包括：综合统一、高度非过程化、面向集合的操作方式、以同一种语法结构提供两种使用方式、语言简捷，易学易用。SQL已成为数据库领域中一个主流语言。1.3.5ADO数据库访问技术ADO的全称是ActiveXDataObjects。ADO支持用于建立基于客户端/服务器和Web的应用程序的主要功能。ADO是最新的数据库访问技术，它是使用更为简单，而又更加灵活的对象模型。对于新工程，应该使用ADO作为数据访问接口。其主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。ADO提供执行以下操作的方式：连接到数据源。指定访问数据源的命令，同时可带变量参数或优化执行。通常涉及ADO的Command对象。执行命令，例如一个SELECT脚本。如果这个命令使数据库按表中行的形式返回，则将这些行存储在易于检查、操作或更改的缓存中。适当情况下，可以把缓存行的更改内容写回数据库中，更新数据源。提供常规方法检测错误（错误通常由建立连接或执行命令造成），涉及ADO的Error对象。表1数据库连接数据源类型ConnectionString参数设置标准访问ODBC数据 Provider=MSDASQL;DSN=dsnName;UID=username;PWD=userPassword;访问Oracle数据库Provider=MSDAORA;DataSource=serverName;UserID=username;Password=userPassword;访问MSSQL数据库Provider=SQLOLEDB;DataSource=serverName;InitialCatalog=databaseName;UserID=username;PWD=userPassword;访问ACCESS数据库 Provider=Microsoft.Jet.OLEDB.4.0;DataSource=databaseName;UserID=userName;Password=userPassword;1.4数据库设计基础1.4.1VisualBasic中的数据访问VisualBasic提供的数据库引擎叫Jet。VisualBasic提供了三种与Jet数据库引擎接口的方法：Data控件（DataControl）、数据访问对象（DAO）和ActiveX数据对象（ADO）。Data控件只提供了有限的不需编程就能访问现存数据库的功能，DAO模型则是全面控制数据库的完整编程接口，而ADO则是为Microsoft最新和最强大的数据访问范例OLEDB而设计的。VisualBasic中的数据库编程就是创建数据访问对象，这些数据访问对象对应于被访问的物理数据库的不同部分，如Database（数据库）、Table（表）、Field（字段）和Index（索引）对象。用这些对象的属性和方法来实现对数据库的操作。VisualBasic通过DAO和Jet引擎可以识别三类数据库：1.VisualBasic数据库：也称为本地数据库，这类数据库文件使用与MicrosoftAccess相同的格式。Jet引擎直接创建和操作这些数据库并且提供了最大程度的灵活性和速度。2.外部数据库：VisualBasic可以使用几种比较流行的“索引顺序访问文件方法（ISAM）数据库”，包括：dDaseIII、dBaseIV、FoxPro2.0和2.5以及Paradox3.x和4.x。在VisualBasic中可以创建和操作所有这些格式的数据库，也可以访问文本文件数据库和Excel或Lotusl-2-3电子表格文件。3.ODBC数据库：包括符合ODBC标准的客户机／服务器数据库，如MicrosoftSQLServer。如果要在VisualBasic中创建真正的客户机／服务器应用程序，可以使用ODBCDirect直接把命令传递给服务器处理1.4.2VisualBasic数据库体系结构.VisualBasic提供了基于MicrosoftJet数据库引擎的数据访问能力，Jet引擎负责处理存储、检索、更新数据的结构，并提供了功能强大的面向对象的DAO编程接口。VB数据库应用程序的组成：VB数据库应用程序包含三部分，即用户界面和应用程序代码、Jet引擎、数据库。数据库引擎位于程序和物理数据库文件之间。这把用户与正在访问的特定数据库隔离开来，实现“透明”访问。不管这个数据库是本地的VB数据库，还是所支持的其他任何格式的数据库，所使用的数据访问对象和编程技术都是相同的。（1）用户界面和应用程序代码：用户界面是用户所看见的用于交互的界面，它包括显示数据并允许用户查看或更新数据的窗体。驱动这些窗体的是应用程序的VB代码，包括用来请求数据库服务的数据访问对象和方法，比如添加或删除记录，或执行查询等。（2）Jet引擎：Jet引擎被包含在一组动态链接库（DLL）文件中。在运行时，这些文件被链接到VisualBasic程序。它把应用程序的请求翻译成对.mdb（Access文件后缀）文件或其他数据库的物理操作。它真正读取、写入和修改数据库，并处理所有内部事务，如索引、锁定、安全性和引用完整性。它还包含一个查询处理器，接收并执行SQL查询，实现所需的数据操作。另外，它还包含一个结果处理器，用来管理查询所返回的结果。（3）数据库：数据库是包含数据库表的一个或多个文件。对本地VB或Access数据库来说，就是．mdb文件。对于ISAM数据库，它可能是包含.dbf（dBASE文件后缀）文件或其他扩展名的文件。或者，应用程序可能会访问保存在几个不同的数据库文件或格式中的数据。但无论在什么情况下，数据库本质上都是被动的，它包含数据但不对数据作任何操作。数据操作是数据库引擎的任务2系统的需求分析和可行性研究2.1组织结构及职能分析随着行业的发展，汽车租赁行业已经逐步走上规模化，规范化管理的经营之路，在公司内部，已经明确划分了若干部门，各部门各职其责，紧密结合，来开展公司的日常业务，然而各部门必然存在紧密的联系，对公司领导者的统筹协调能力提出了严峻的考验，只有引入计算机管理系统，来协调日常业务的处理，才能提高生产效率，这这更凸显了汽车租赁管理系统对租赁公司生存与发展的重要影响，通过租赁公司的组织结构图，可以分析公司内部各部门之间的这种紧密联系。公司部经理后勤部市场部公司部经理后勤部市场部客户部采购部各部门的职能如下：公司经理部：负责下属各部门之间的协调调度，总体把握公司全局，制定长期的公司发展计划。后勤部：负责公司内部汽车的维护，保险。保障车辆处于良好状态，为业务的发展提供坚实的后盾。市场部：负责公司日常租赁业务的处理，管理车辆租赁的信息，开拓市场。客服部：负责对公司客户及会员的管理，及时周到地向客户及会员提供服务，努力维护既得市场。采购部：负责采购新款汽车，处理废旧汽车，保障公司与汽车销售商之间的紧密联系。行业的发展为计算机管理系统提供了强大的市场需求。应用一套涵盖车辆租赁业务的各个方面，能为租赁公司的业务拓展提供坚实后盾和强力保障的汽车租赁管理系统，使得汽车租赁服务可以快速、规范地完成，节约人力资源，提高服务质量和公司竞争力，这已成为当今汽车租赁行业的必然选择。2.2业务流程分析汽车租赁公司在正常开展业务之前，需要先行积累并整理大量的基础资料，包括：汽车销售商、保险公司、客户、会员和公司现有车辆的信息，并且还必须要考虑保险种类，汽车种类及会员类型的变化对业务流程的影响。各种信息之间的关系比较复杂，很多信息的改变是互相影响的。当发生租赁业务时，需要有客户、汽车、及该租赁行为是否是续租行为三个方面的信息支持，而当要处理一辆汽车的信息时，更是要涉及到销售商、保险公司、保险种类、汽车种类及汽车自身的基本信息等多方面的信息资源。分析业务行为中诸多方面信息之间的关系，是开发一个实用有效的管理系统的关键，而借助于数据流图来进行分析，则是一个十分科学有效的方法。数据流图（DFD）是一种图形化技术，它描绘信息流和数据从输入移动到输出的过程中所经受的变换。在数据流图中没有任何具体的物理部件，它只是描绘数据在软件中流动和被处理的逻辑过程。用户用户汽车租赁管理系统反馈业务用户用户汽车租赁管理系统反馈业务根据基本系统模型，对其逐步细化，得到描绘逻辑系统细化后的数据流图。图2-3逻辑系统细化后的数据流图2.3功能分析在对租赁行业的组织结构及职能充分调查了解后，依据对租赁行业的数据流动特点的分析，现在可以进行系统的功能分析，根据软件工程的原理，需求分析的任务是确定系统必须完成的工作。经过详细的调研分析之后，可以得出汽车租赁管理系统必须具备的功能下：1、基本信息管理功能：应该包括类型信息、销售商信息、保险公司信息、车辆信息；2、客户会员管理功能：应该包括客户信息、会员信息、会员类型定义；3、日常业务管理功能：应该包括汽车租赁、汽车归还；4、系统用户管理功能：管理对系统拥有使用权的用户信息。2.4数据结构分析客户信息实体汽车信息实体类型信息实体客户信息实体汽车信息实体类型信息实体销售商实体保修公司实体会员类型实体租赁选择选择投保购买客户信息实体基本信息驾驶证信息抵押保信息会员信息客户信息实体基本信息驾驶证信息抵押保信息会员信息图2-5客户信息实体E-R图类型信息实体名称描述销售商信息实体公司名称类型信息实体名称描述销售商信息实体公司名称联系地址联系电话传真邮编电子邮箱联系人备注汽车信息实体基本信息租赁价格信息保险信息汽车信息实体基本信息租赁价格信息保险信息图2-8车辆信息实体E-R图保修公司信息实体保修公司信息实体公司名称联系地址联系电话传真邮编电子邮箱联系人备注图2-9保险公司信息实体E-R图会员类型实体会员类型实体名称折扣率图2-10会员类型信息实体E-R图3系统总体设计.3.1系统目标设计系统开发的总体任务是实现汽车租赁公司各种信息的系统化。范化和自动化，从而达到提高管理效率的目的：从用户的观点来看，要求系统能够达到以下目标：（1）及时收集保存信息（2）快速传递信息（3）实现数据共享设计员从技术观点上看，要求系统能达到以下目标：（1）方便用户使用（2）具有较高的可靠性（3）具有较好的运行效果（4）具有较高的可维护性和可扩充性，能够适应用户新的业务要求。3.2系统功能分析3.2.1系统功能模块设计主要完成的功能如下=1\*GB3①类型信息:包括汽车类型的添加、修改、删除；汽车保险类型的添加、修改、删除。具体信息包括分类名称、具体描述=2\*GB3②销售商信息:包括销售商信息的添加、修改、删除、查询、查看销售汽车。具体信息包括销售商的公司名称、联系地址、联系电话、传真、邮政编码、电子邮箱、联系人、备注；

=3\*GB3③保险公司信息:包括保险公司信息的添加、修改、删除、查询、查看保险汽车。具体信息包括保险公司的公司名称、联系地址、联系电话、传真、邮政编码、电子邮箱、联系人、备注；

=4\*GB3④车辆信息:包括车辆信息的查找、修改、添加、删除。具体信息包括车辆的（1）基本信息，有车牌号码、车辆类型、车辆名称、车辆颜色、发动机号、车架编号、燃油编号、购买日期、销售商、状态，（2）保险信息，有保险公司、保单号、开始日期、结束日期、保险种类，（3）租赁价格信息，有押金、日租金、周末租金、周租金、月租金、日限公里数、超时费用、超公里费用、车辆描述；

=5\*GB3⑤客户信息:包括客户信息的查找、修改、添加、删除、加入会员。具体信息包括（1）基本信息，有客户编号、姓名、性别、年龄、身份证号、电话、工作单位、地址、邮编、EMAIL，（2）驾驶证信息，有驾驶证号、驾照类型、驾龄、发证日期、失效日期，（3）抵押担保信息，有抵押证件、担保人、担保人身份证、担保人单位；

=6\*GB3⑥会员信息:包括会员信息的查找、修改、注销。具体信息包括（1）基本信息，有客户编号、姓名、性别、年龄、身份证号、电话、工作单位、地址、邮编、EMAIL，（2）驾驶证信息，有驾驶证号、驾照类型、驾龄、发证日期、失效日期，（3）抵押担保信息，有抵押证件、担保人、担保人身份证、担保人单位，（4）会员信息，有会员类型、享受折扣；

=7\*GB3⑦会员类型:包括会员类型的添加、修改、删除。具体信息包括类型名称、折扣率；

=8\*GB3⑧汽车租赁:包括汽车租赁信息的添加、修改、删除、租赁审核、续租、续租审核。具体信息包括合同编号、车牌号码、客户编号、租赁模式、工作日数、周末数、出车公里数、租车时间、还车时间、租车费用、经办人、享受折扣；

=9\*GB3⑨汽车归还:包括汽车归还信息的归还、修改、结算审核。具体信息包括合同编号、回车公里数、=10\*GB3⑩系统用户信息：包括添加用户和删除用户，具体信息包括用户名，密码，确认密码。系统帮助信息：包含软件使用过程中的一些重要的，需要注意的使用方法和其他一些必要的信息。3.2.2系统功能模块图汽车租赁管理系统基本信息管理用户会员管理业务管理系统用户管理汽车租赁管理系统基本信息管理用户会员管理业务管理系统用户管理系统帮助信息车辆信息会员信息退出系统客户信息会员类型信息车辆租赁车辆归还用户信息帮助关于类型信息保修公司信息销售商品信息 3.3数据库逻辑结构设计3.3.1数据字典数据字典是关于数据信息的集合，它为分析阶段的工具，其作用就是在软件分析和设计的过程中给人提供关于数据的描述信息，在数据字典中，建立一组严密一致的定义很有助于改进分析员和用户之间的通信，因此将消除可能的误解。数据字典主要应该包括的每个数据元素的控制信息有：名字，别名，描述，定义，位置。数据字典中包含的每个数据元素的控制信息是很有价值的。因为列出了使用一个给定的数据元素的所有程序（或者模块），所以很容易估计改变一个数据将产生的影响，并且能对所有受影响的程序或者模块做出相应的调整。依据上面分析得出实体以及实体之间的关系，写出本系统的数据字典如下：1.名字：car别名：车辆信息描述：车辆的购买，保险。技术信息。使用，价格等信息。定义：car=carno+cartype+arname+color+oilno+engineno+carcase+saleid+buydate+insurno+insured+insurtype+insurSdate+insurEdate+deposit+dayprice+weekendprice+weekprice+monthprice+Daykm+overtimeprice+overkmprice+status+comment位置：车辆管理，汽车租赁，车辆归还2.名字：users别名：用户信息描述：系统用户的名称定义：users=username+userpwd位置：用户信息3.名字：customer别名：客户信息描述：记录客户的名字，年龄，联系方式等各种信息定义：customer=id+name+sex+age+idcard+telephone+workplace+address+zipcode+email+licenseno+licensetype+gedate+expiredate+diverage+flag+typeid+certificate+warrantor+wildcard+wworkplace4.名字：membertype别名：会员类型描述：记录会员类型的编号，名称，折扣率定义：membertype=id+typename+rate位置：会员类型定义，会员信息，汽车租赁，车辆归还5.名字：company别名：公司信息描述：保险公司和车辆销售商的名称，地址，联系方式等信息定义：company=id+company+telephone+zipcode+fax+address+email+contact+typeid+comment位置：销售商信息，保险公司信息，车辆信息7.名字：types别名：类型信息描述：车辆品牌类型以及保险种类定义：types=id+typename+typeid+description8.名字：lease别名：租赁业务信息描述：合同编号，租赁模式。租还车时间等业务信息定义：lease=contractno+carno+custid+leasetime+leasemode+price1+price2+workdays+weekendcount+deposit+daykm+oprice1+oprice2+returntime+returnkm+othercost+rate+dayment+total+status+createdate+username+realtime位置：车辆租赁，车辆归还3.3.2数据库中表的设计依据以上的分析，完成数据库德逻辑结构。其各个表的设计结果如下：表3-1车辆信息表字段名类型宽度索引Carno字符串型20有Typeid整型2有carname字符串型50无color字符串型20无oilno字符串型30无engineno字符串型50无carcase字符串型50无Saleid整型2有Buydate字符串型10无Insurno字符串型50无insurid长整型4有insurtype字符串型50无Insursdate字符串型10无Insursdate字符串型10无Deposit长整型4无Dayprice长整型4无weekendprice长整型4无Weekprice长整型4无monthprice长整型4无daykm长整型4无overtimeprice长整型4无overkmprice长整型14无status字符串型10无comment字符串型10无表3-2客户信息表字段名类型宽度索引Id字符串型20有Name字符串型50无Sex字符串型2无Age整型2无Idcard字符串型30有Telephone字符串型30无Workplace字符串型30无Address字符串型50无Zipcode字符串型50有Email字符串型10无Licenseno字符串型30无Licensetype字符串型20无Getdate字符串型20无Expireddate字符串型20无Driverage整型2无Flag整型2有Typeid长整型4有Certificate字符串型40无Warrantor字符串型50无Widcard字符串型30有wworkplace字符串型100无表3-3用户信息表字段名类型宽度索引Username字符串型20有userpwd字符串型40无表3-4公司信息表字段名类型宽度索引Id长整型4有Company字符串型100无Telephone字符串型50无Zipcode字符串型8无Fax字符串型50无Addess字符串型50无Email字符串型50无Contact字符串型50无Typeid整型2有comment字符串型50无表3-5类型信息表字段名类型宽度索引Id长整型4有typename字符串型50无Typeid整型2有description字符串型100无表3-6租赁信息表字段名类型宽度索引Contracno字符串型50有Carno字符串型20无Custid字符串型20有Leasetime字符串型10无Leasemode字符串型10无Price1长整型4无Price2长整型4无Workdays整型2无Weekendcount整型2无Deposit长整型4无Daykm整型2无Outkm长整型4无Oprice1长整型4无Oprice2长整型4无Returntime字符串型10无returnkm长整型4无Othercost长整型4无Rate长整型4无Payment长整型4无Total长整型4无Status字符串型10无Createdate字符串型10无Username字符串型20无realrtime字符串型10无表3-7会员类型信息表字段名类型宽度索引Id长整型4有Typename字符串型20无Rate双精度型8无4系统详细设计与实现以系统的总体设计为基础，现在可以开始系统的实现工作，系统的实现包括编码和测试，关于测试，将在下一章做具体说明。本章主要叙述前者。编码就是把软件设计结果翻译成用某种程序设计语言书写的程序。座位软件工程的一个阶段，编码是对设计的进一步具体化。因此，程序的质量主要取决于软件设计的质量。而所选用的程序设计语言的特点及编码风格也将对程序的可靠性、可读性、可测试性和可维护性也将产生深远的影响。适宜的程序设计语言能使根据设计去完成编码时困难最少，减少程序测试量，得出更容易阅读和维护的程序。Visualbasic6.0正是这样一种合适的语言，而在程序的编码过程中，应遵循源程序的逻辑简明，易读易懂的原则。4.1主控程序流程设计基本信息管理客户会员管理基本信息管理客户会员管理系统用户管理业务管理系统帮助信息结束开始继续操作选择是图4-1主控程序流程图4.2登录模块设计登录模块是进入本系统遇到的第一个界面，是用户身份验证部分，主要是用于用户进入系统的身份验证。为了提高数据的安全性，系统设置了防止非法人员进入系统的功能。系统在开始运行的时候。首先进入用户登陆界面，在由操作人员输入用户名和密码后，系统进行判定其进入系统的合法身份，此后，方可正式进入该系统。如果用户名输入有错，系统将显示“用户名不存在”提示，如果密码输入有误，系统将显示“密码错误”提示，等待操作人员重新输入用户名或者密码。如果连续三次输入错误，则退出登录，程序流程如下：密码正确结束开始密码正确结束开始主界面密码是否输入超过三次否下图是登录模块窗体：窗体上设有三个变迁空间，两个命令按钮，一个加框，两个文本框和一个框架。图4-3登录窗体截图首先点击工程菜单，选择添加窗体，在新建工程内添加一个空窗体，现在设当的位置画出一个框架，然后再框架内添加两个标签控件和两个文本框，然后把另一个标签和两个命令按钮画在预定位置，设置各个控件属性，最后编写源代码。例如：将第二个命令按钮的控制名设为“cmd_cancel“,caption属性设为”取消“，字体设为”华文行楷“，enable和eisible属性均设为”ture“,编写按钮单击时间源代码如下：PrivateSubCmd_Cancel_Click()EndEndSub4.3主界面设计用户登录成功后，即进入系统主界面。主界面的外观设计应该大方美观，布局合格，方便用户的下一步操作，其窗体布局如下，菜单栏内设有五个子菜单栏，工具栏内设有六个按钮，分别连接常用的功能。图4-4主界面窗体首先点击工具栏内新建工具按钮，新建一个工程，自动产生了一个空窗体，在窗体上单击右键，在弹出的菜单栏上点击“菜单编辑器”命令，打开菜单编辑器。按计划设计好程序各级菜单。在窗体上添加“图像列表控件“，用于保存工具栏按钮所使用的图像，在窗体上添加”工具栏控件“，将其与“”图像控制列表控件“相关联。并加入代表耽搁按钮的“按钮对象“，最后编写工具栏对应的源代码。工具栏单击事件源代码如下：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase"aa"LoadFrmTypeFrmType.ShowvbModalCase"bb"LoadFrmSalesFrmSales.ShowvbModalCase"cc"LoadFrmInsuranceFrmInsurance.ShowvbModalCase"dd"LoadFrmLeaseFrmLease.ShowvbModalCase"ee"LoadFrmReturnFrmReturn.ShowvbModalCase"gg"LoadFrmMembersFrmMembers.ShowvbModalEndSelectEndSub4.4基本信息管理菜单设计4.4.1类型信息窗体设计进入该窗体，用户先选择要操作的对象是车辆还是保险，选择后，文本框内将出现数据库内现存的有关该类型的资料，用户即可执行对车辆类型或者保险类型的添加。修改删除操作。其程序流程图如下保险类型操作车辆类型操作开始结束保险类型操作车辆类型操作开始结束选择类型信息窗体上设有一个datalist控件，两个单选按钮，一个adodc控件，四个名利按钮，其窗体如下：图4-6类型信息窗体首先按设计添加窗体，做好各控件的布局，设置相应属性，例如：将左边的“单选按钮”名称属性设为“optsel”,caption属性设为“车辆类型“,indexs属性设为0，字体属性设为”华文行楷“，value值设为”True“，而命令按钮设置也如此，如对”添加“按钮的设置，设置完成后编写源代码。4.4.2销售商信息窗体设计此窗体用于向用户提供对车辆销售商信息如：销售商的公司名称，联系地址，联系电话，传真，邮政编码，电子邮箱，联系人，备注等的添加，修改，删除，查询操作，另外还可以根据用户选择的销售商名称查询该厂商向公司出售的车辆信息，其程序流程图如下：开始开始结束选择修改添加删除查询查看销售车辆图4-7销售商信息模块程序流程图窗体布局如下：图4-8销售商窗口此窗体上设置六和命令按钮，一个ADODC控件，一个Datagrid控件，一个标签控件和一个文本框。首先按设计添加窗体，做好各控件的布局，设置相应属性，如：datagrid控件名称属性设置为datagrid1,dragmode属性设置为0，allowaddnew属性设为False,Allowdelete属性设置为False,allowupdate属性设为False.字体设置为“宋体“，Enable和Visible属性均设为Ture.其添加命令按钮单击事件源代码如下：PrivateSubCmd_Add_Click()FrmCompanyEdit.Modify=FalseFrmCompanyEdit.nTid=1FrmCompanyEdit.txtCompany=""FrmCompanyEdit.lblType="销售商"FrmCompanyEdit.txtTelephone=""FrmCompanyEdit.txtFax=""FrmCompanyEdit.txtAddress=""FrmCompanyEdit.txtContact=""FrmCompanyEdit.txtComment=""FrmCompanyEdit.txtZipCode=""FrmCompanyEdit.txtEmail=""FrmCompanyEdit.Show1GridRefreshEndSub4.4.3保险公司信息窗体设计此窗体用于向用户提供对保险公司信息如：保险公司的公司名称，联系地址，联系电话，传真，邮政编码，电子邮箱，联系人。备注等的添加，修改，删除，查询等操作。另外还可根据用户选择的保险公司名称查询已在其处办理了保险业务的车辆保险信息，其程序流程图如：开始结束选择修改开始结束选择修改添加删除查询查看保险车辆此窗体设有六个命令按钮。一个ADODC控件，一个Datagrid控件，一个标签控件和一个文本框，其窗体布局如下：图4-10保险公司信息窗体首先按设计添加窗体，做好各控件的布局，设置相应属性，如：标签控件的属性设置是，名称属性为“label1”，alignment属性设置为0，即文本框对其方式为左对齐，Caption属性设置为“保险公司名”，字体属性设置为“华文行楷”。查看保险车辆按钮的单机时间源代码如下：PrivateSubCmd_ViewCars_Click()FrmSaleCars.nType=2FrmSaleCars.sSaleName=Trim(Adodc1.Recordset.Fields(1))FrmSaleCars.nSaleId=Adodc1.Recordset.Fields(0)FrmSaleCars.txtSaleName=Trim(Adodc1.Recordset.Fields(1))FrmSaleCars.Caption="查看保险公司保险汽车"FrmSaleCars.Label1="保险公司名称"FrmSaleCars.Show1EndSub4.4.4车辆信息窗体设计本窗体用来向用户提供对车辆信息的查找，修改，添加，删除功能，可处理的信息包括车辆的基本信息如车牌号码，车辆类型。保险信息如保险公司，保单号，租赁价格信息如押金，日租金，其工作流程图如下：开始结束选择修改开始结束选择修改添加删除查找此窗体上设这有五个命令按钮。一个ADODC控件，一个Datagrid控件，一个标签控件和一个文本框，其窗体布局如下图：图4-12车牌号窗口Adodc控件的使用，可以为控件和数据库之间快速建立连接，它提供了一个易于使用的界面，使用户用较少的代码创建数据库应用程序，以实现对数据库的访问，本模块对ADODC控件connectionstring和recordsource属性的设置在本窗体的privatesubgridrefresh()过程中完成。4.5客户会员管理菜单实现客户会员管理菜单树如图：图4-13客户会员管理菜单树4.5.1客户信息窗口实现 客户信息窗体为用户提供了对客户信息如基本信息、驾驶证信息、抵押担保信息的查找、修改、添加、删除功能。并且提供将普通客户加入会员的服务。其程序流程图如下：开始开始结束选择修改添加删除查询加入会员图4-14客户信息模块程序流程图本窗体上设置有六个命令按钮，一个Adodc控件，一个Datagrid控件，一个标签控件和一个文本框。命令按钮分别取名为“添加”“修改”“删除”“查找”“加入会员”“退出”。其窗体布局如下图：图4.15客户信息窗体点击工程菜单，选择添加窗体，在工程内添加一个空窗体，在窗体上画出各个所需控件，把这些控件移动至窗体中适当的位置，设置各个控件的属性，最后编写各个控件相应的事件过程。如对于命令按钮：“删除”，当放置好按钮位置后，将其名称属性设置为“Cmd_del”，对于Caption属性则设置为：“删除”，字体属性设置为“华文行楷”，Enabled和Visible属性设置为true。 删除操作时，首先由用户在列表框上显示出来的客户信息条目中选择一条将要删除的，如果不选择，系统则默认为选择了第一条，作出选择后，被选条目呈高亮显示，单击“删除”按钮，显示一个对话框，旋舞用户是否确认删除，选“是”，则系统从数据库中删除该项，并淡出一个信息框，告知用户操作成功。 命令按钮“删除”单击事件源代码如下：PrivateSubCmd_Del_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"请选择记录"ExitSubEndIfIfMsgBox("是否确定要删除",vbYesNo,"请确认")=vbNoThenExitSubEndIfMyCustomer.Delete(Trim(Adodc1.Recordset.Fields(0)))MsgBox"成功",vbInformationGridRefreshEndSub4.5.2会员信息窗体实现 会员信息窗体为用户提供了对会员信息如基本信息、驾驶证信息、抵押担保信息、会员类型信息的查找、修改、注销功能。而会员的添加有客户信息窗体模块实现，这种设计有利于操作人员的操作，符合业务流程规范化的要求。 会员信息窗体程序流程图如下：开始开始结束选择修改注销会员查找图4-16会员信息模块程序流程图本窗体上设置有四个命令按钮，一个Adodc控件，一个Dategrid控件，一个标签控件和一个文本框。其窗体布局如图：图4-17会员管理窗口点检工程菜单，选择添加窗体，在新建工程内添加一个空窗体，先设置窗体容器的属性，名称属性设置为Frmmembers，StartUpPosit属性设置为2，即窗体首次出现时在屏幕中心显示，Font属性设置为“宋体”，Caption属性设置为“会员管理”。接着对其它控件的属性进行设置。 命令按钮“注销会员”的功能是将用户选定的会员条目从客户信息表中删除，如果不选择，系统默认为选择了第一条，作出哦炫蓝后，备选条目呈高亮显示，单击“注销会员”按钮，弹出对话框，询问用户“是否确定要注销会员资格”，选择“是”，系统执行注销操作，并弹出一个信息框，显示“注销会员成功”，最后系统更新Datagrid控件中显示的会员信息条目。命令按钮“注销会员”单击事件策划年供需源代码如下：PrivateSubCmd_OffMember_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"请选择记录"ExitSubEndIfIfMsgBox("是否确定要注销会员资格",vbYesNo,"请确认")=vbNoThenExitSubEndIfMyCustomer.TypeId=0MyCustomer.UpdateToMember(Trim(Adodc1.Recordset.Fields(0)))MsgBox"注销会员成功",vbInformationGridRefreshEndSub4.5.3会员类型定义窗体实现 本窗体用来实现对会员类型的定义，即对会员等级进行分类，比如分为钻石卡用户，金卡用户，银卡用户等，不同等级的用户享受的租赁价格的折扣不同。通过“添加”功能可定义新的等级的用户，及其享受的折扣率，通过“修改”功能可修改既有的会员类型的名称和折扣率。“删除”与之前描述的“注销会员”操作类似，这里就不讲了。 会员类型定义模块的程序流程图如图4-20： 本窗体上设置有四个命令按钮，一个Adodc控件，一个Datagrid控件，其窗体布局如图：图4-18会员类型定义窗体结束结束选择添加修改删除开始图4-19会员类型定义模块程序流程图 首先添加窗体，设置各个控件在窗体中的布局，然后设置窗体及各个控件的属性。最后编写窗体及各个空间的源代码。 当窗体载入是，触发form_load()事件，即窗体载入事件。该载入事件的源代码： PrivateSubForm_load() GridRefresh EndSub 其中，GridRefresh为一个函数条用语句，这个函数是在窗体模块内部定义的一个私有过程，在过程中设置了Adodc控件的两个属性，分别为Connectionstring属性和Recordsource属性。该过程的作用为在DataGrid控件上向用户显示会员类型的即存信息。4.6日常业务管理菜单实现日常业务管理菜单树如图：图4-21日常业务管理菜单树4.6.1车辆租赁窗体实现 车辆租赁的实现是本系统的关键，要客户提出出租车的要求时，租赁公司通过系统的这一模块向数据库的Lease表中添加新的租赁记录。在车辆处于特定的状态时，可执行对记录信息的修改、删除、审核、续租等操作。车辆的状态由Lease表中状态字段指定，车辆租赁模块的系统流程如图：开始开始结束选择修改添加删除出租审核续租续租审核图4-21车辆租赁模块程序流程图 本窗体上设置有一个Adodc控件，一个DataGrid控件，一个组合框，一个标签控件，七个命令按钮控件。车辆租赁窗体如下：图4-22租赁状态窗口 在工程中添加一个控件后，在窗体上设置上述控件的布局。完成后，进行各个控件的属性设置、如对于组合框，组合框是一个独立的控件，但它兼有列表框和文本框的功能。它可以像列表框一样，让用户通过鼠标选择所需要的项目，也可以像文本框一样，用键入的方式选择项目，在本窗体中，组合框的Style属性设置为2，即组合框的类型取为下拉式表框，名称属性设置为Cob_status，字体属性设置为宋体。 当执行“添加”操作并成功添加一条心的租赁信息后，将在DataGrid控件中显示出这条新的记录，其中“状态”栏内卫“出租”，此时，可对这一条记录执行“删除”“修改”操作，添加车辆出租信息后，确定所添数据无误，则应执行“出租审核”命令，“审核”意为确定。当单击“出租审核”命令按钮后，将弹出一个对话框，询问用户是否确执行出租审核，选择“是”后，车辆“状态”变为“出租审核”，此后，用户将不能对该记录执行“修改”“删除”命令。当车辆处于“出租审核”状态后，可对车辆执行“续租”命令，执行续租后，车辆状态变“续租”。确定续租信息无误后，应执行“续租审核”命令予确定。 当单击“添加”命令按钮后，将触发“添加”命令按钮的单击事件。此时将打开“编辑车辆出租信息”窗体，如图：图4-23编辑车辆出租信息窗体窗体上设有三个Datagrid控件和三个ADODC控件，系统将在程序执行中为ADODC控件设置connectionstring属性和recordsource属性，为datagrid控件设置datasource属性，以达到降datagrid控件与数据库相连，在datagrid控件中显示相关信息的目的。4.6.2车辆归还窗体实现本模块设计用来对车辆归还业务的实现，通过本模块可对已租车辆实现归还，信息修改，结算审核和查询操作，，其程序流程图如下：开始开始结束选择修改添加删除查找图4-24车辆归还模块程序流程图其窗体布局如图：图4-25车辆租赁归还窗体当有一项新的归还业务发生时，打开此窗体，单击命令按钮“归还”，打开“车辆归还结算审核”，之后按发生租赁业务时所创建的合同编号，查找到相应的车辆信息，即可尽心归还操作。当处理完归还信息后，返回“车辆租赁归还”窗体，在datagrid控件中显示出刚处理完的归还业务信息，车辆状态为“归还”，只有对“归还”状态的信息记录，才能执行“结算审核”操作予以确定，单击“结算审核”命令按钮，将弹出一个对话框，询问用户是否确认结算审核信息，选择“是”，将最后完成车辆的归还业务处理，此时车辆状态为“结算审核”。当添加完窗体上的各个控件后，进行窗体布局，属性设置。最后完成代码编写。如将窗体的名称属性设为Frmreturn,caption属性设为“车辆租赁归还管理”，字体设置为“宋体”，Startupposit属性设为2，即窗体首次出现时位置在屏幕中心，，然后编写代码如下：PrivateSubForm_Load()GridRefreshcob_Status.AddItem"归还",0cob_Status.AddItem"归还审核",1Cmd_RntCheck.Enabled=FalseEndSub4.7系统用户管理菜单实现系统用户菜单树如图：图4-26系统用户管理菜单树4.7.1用户信息窗体的实现本模块用来实现对系统用户信息的添加和删除。其程序流程图如下：开始开始结束选择添加删除图2-27用户信息模块程序流程图本窗体设这有一个框架控件，一个ADODC控件，一个datalist控件，三个命令按钮控件，窗体布局如图：图4-28用户信息窗体首先点击工程菜单，选择添加窗体，在新建工程内添加一个空窗体，先在适当位置画一个框架，然后再框架内添加datalist控件，框架Caption属性设为“用户列表”。依次设置各个控件属性，最后编写代码。如：“删除”按钮的源代码如下：PrivateSubCmd_Del_Click()IfDataList1.Text=""ThenMsgBox"请选择要删除的用户"ExitSubEndIfIfMyUser.UserName="Admin"ThenMsgBox"此用户不能删除"ExitSubEndIfIfMsgBox("是否删除当前用户",vbYesNo,"请确认")=vbYesThenMyUser.Delete(DataList1.Text)MsgBox"成功删除"DataRefreshEndIfEndSub如果未选择用户，弹出对话框提示“请选择要删除的用户”，如果选择了名为“admin”的用户，则弹出对话框“此用户不能删除”。如果选择一个其他的用户，则弹出对话框提示“是否删除当前用户”，选择“是”，则系统删除选择的记录