汽车租赁管理系统的设计(共30页).doc

《汽车租赁管理系统的设计(共30页).doc》由会员分享，可在线阅读，更多相关《汽车租赁管理系统的设计(共30页).doc（30页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上汽车租赁管理系统的设计摘要：最近这些年,计算机技术和数据库技术向成熟化发展，社会的各个领域基本上都开始在应用信息管理系统。汽车租赁管理系统就是以信息系统为基础开发出来的。本文主要介绍了Visual Basic 6.0和Access的一般性原理，详细的论述了该系统是如何生成的，展示了整个系统的制作步骤以及阐述了它的工作原理；设计包含以下几个程序模块：系统用户管理、基本信息管理、会员管理等，分析了系统的可行性并解决了可能存在的问题。关键词：数据库；Visual Basic 6.0；汽车租赁管理专心-专注-专业Design of car rental management

2、systemAbstract：In recent years, with the development of the technology of computer and database, information management system has stretched into every field of our society. Based on the development theory of the information management system then developed another management system- the automobile

3、lend-lease.This paper mainly introduces the develop background of the system and the basic theory of Visual Basic 6.0 and Access Visual. It tells the structure of the automobile lend-lease management system and its working theory; it analyzes the specialty, difficulty and important things in system

4、realization. The design realizes the management of the system users, the basic information, the business, and the members management.Keywords: Database; Visual Basic 6.0;The automobile lend-lease management目录3320 第一章 绪论1.1系统背景 如今，人们生活的水平在不断的提升，汽车已进入千家万户。一种新兴行业迅速崛起于消费市场，并成为最具潜力的行业，这就是汽车租赁。现在的社会，人人视时间

5、为金钱，加快生活节奏，提高生活效率刻迫在眉睫。因此，出现了一种被人们广泛接受的选择，即向汽车公司租赁汽车。这种社会需求带动了汽车租赁公司的发展，使其业务量迅速提升起来。然而，租赁公司以人工方式来处理业务信息时，还是会出现了很多问题，其中典型的弊端就是管理混乱，效率低下，失误增多。通过反复的实践，在租赁行业中借助计算机引入信息管理的重要性被越来越多的租赁公司所熟知，为了改善信息管理，提高服务质量，汽车租赁行的业主们开始不断提高自身素质，同时在工作中加大投入高科技。 众所周知，车辆信息以及客户信息是多而且杂的，为了对这些信息进行科学合理的管理与分析，我们设计开发出了汽车租赁管理系统。该系统主要包括

6、以下几个内容：车辆的基本信息、车辆的出租状态、车辆的投保情况、客户信息的管理等。该系统的开发基本满足了汽车租赁行业对信息的需求。1.2系统功能简介 汽车租赁公司向客户提供各种服务时，会面临许多问题，为了有效地解决这些问题，我们开发的汽车租赁管理系统能够自动处理公司的业务信息，这样一来，车辆租赁管理就会变得高效率。此系统有以下几个功能：客户信息管理、车辆信息管理、汽车租赁归还管理、会员类型管理、会员信息管理、保险公司管理、汽车销售商管理等。同时还可以对这些管理进行添加、修改、删除、查询等操作。1.3开发工具1.3.1.VisualBasic6.0简介 VisualBasic是一种结构化的编程语言

7、1，它把一个应用程序开发坏境完整的集成在一起，且具有功能强大。它最大的特点就是操作简单、易学、实用，使程序设计简单化。“visual”即GUI,指的是开发图形用户界面的一种方法。只要在屏幕上加上事先建立好的对象，一点即可，界面的外观以及位置不需要通过编写大量的代码去实现。“Basic”是一种语言，在整个计算机技术发展史上，它有着举足轻重的的地位。 另外，在VisualBasic中引入了控件的概念，控件在windows中随处可见，我们平时所熟知的按钮，文本框都属于控件。 VisualBasic是数据库工具，它不但可以集成，还具有可视性。VisualBasic6.0提供了一整套工具，在任何应用程序

8、中都可以通过它来集成数据库。ADO等数据库工具可以通过它来修改，也可以通过它来设计。如果表格和报告绑有数据的话，那我们也可以通过拖放方式创建这些表格和报告。1.3.2Access2003简介 MicrosoftAccess数据库管理系统基于Windows平台，是MicrosoftOffice系列应用软件其中的一部分2。传统数据库管理软件所具有的功能它都具备，另外与Internet的集成进一步加强，如此一来，Access数据库的内容用户可以借助这个媒介来共享。这一系列的改进使得它功能齐全，操作简单，使用便捷。 Access 2003由Microsoft公司出品。它的设计介面简洁直观，不用编写程序

9、。 Access2003由如下组成： 资料表：是Access储存资料的地方,所有资料都来源于此，每个资料库至少都有一个资料表。 查询：根据用户的需要，提取出对用户有用的资料。 表单：是一个操作画面，可以让使用者完成输入，查询，修改资料的操作。 报表：一种制作工具，可以通过它将资料库里的资料做成有价值的画面资料。 资料页：当我们把资料发至网路的时候，需要经过资料页这个桥梁才能完成。HTML档会在资料页的建立完成以后，自动生成在资料库档案外。 巨集：它会自动建立简单易操作的资料指令，执行一系列的动作。主要应用在一些频率较高的动作上，当使用者自定义工作环境时也用它。 模组：开发应用系统的工具。使用者

10、可以根据自身具体需求去控制系统。1.4可行性研究与需求分析 1.4.1可行性研究 我们通过调研，发现，以往的汽车租赁管理系统需要重新构架整个系统，才能进行功能模块的修改。这不仅增加了后期系统更新和维护的难度，也浪费财力物力。本系统在基本信息管理模块和日常任务模块里面，可以增加、删除、修改车辆、客户以及驾驶员的信息。对租赁和归还信息的管理也在日常任务模块中一一实现。我们还可以在基础数据管理中打印租赁合同，这个做的非常周到细致，也切合实际情况。 本系统基本特点包括以下内容：操作便捷，用户界面简洁；可实现企业程序化、条理化、规范化、高效化的管理；提供及时、可靠的数据资料，并自动对数据进行分析；多数操

11、作选项采用人工选择的方式，避免了用户记忆一些不必要的指令，减轻用户操作负担。1.4.2需求分析 汽车租赁管理系统简化了客户租车过程，又使得租赁公司信息走上更规范，易管理的道路，让租赁公司能更好的为客户服务，且在工作上节约了大量的时间和精力。 本系统最后确定的整体方案，是经过了短期的可行性市场调查，同时分析了所有的可行性，并通过长期的实践操作，综合了各项软件指标。在这些前提都满足的情况下认真完成了该系统的设计与开发。第二章 系统分析2.1数据库管理系统简介数据库是计算机科学里最重要的一个分支，它奠定了信息管理系统的基础。长期储存在计算机内的数据，最后集合成数据库。在数据库中，我们对数据的组织、描

12、述以及存储是根据固定的数据模型来进行的。它的数据独立性高，冗余度小、容易扩展，用户都可以共享。MicrosoftSQLServer3、MicrosoftAccess等数据库操作系统为数据库的建立，使用和维护进行配置的时候都是在它的支持下进行的。数据库系统是一层数据管理软件，它的位置在用户和操作系统中间，我们以操作系统为基础，管理并控制数据库。另外，也可以直接利用数据库管理系统提供的一系列现成的命令，实现对数据库的基本操作（如建表、向表中添加记录、删除记录和修改记录等）。通过数据库管理系统，用户可以使用各种数据库命令，也可以运行数据库应用程序。另外，该系统还得确保数据的安全以及数据的完整，多用户

13、对数据库的并发使用以及发生故障后系统的回复等任务。 在信息资源已成为财富源泉的今天，一个企业或是组织想要得到生存与发展，就必须对信息进行准确的处理，一个满足各个部门信息处理要求的信息系统也因此应运而生。因此，作为信息系统核心，数据库已得到越来越广泛的应用，新的应用领域采用数据库存储和处理信息资源。2.2 ADO数据库访问技术 Visual Basic是一种面对用户的编程工具4-9，它的语言通俗易懂、使用起来灵活，方便。因此它越来越多的用作数据库应用程序的前端开发工具。在VisualBasic中，可以通过ActiveX数据对象，数据访问对象，ODBC直接连接到数据库。其中ADO是使用起来更加简单

14、，灵活的对象模型。本系统就是基于这种技术开发的。ADO在工程的创建过程中的操作的方式如下10：1、连接到数据源。2、指定命令，不但可以带变量参数而且能优化执行。一般情况下涉及到的都是ADO的Command对象。3、执行命令，例如一个SELECT脚本。4、如果这个命令中的数据按表的返回形式是按行进行的话，那么这些行将存储在缓存中，这个缓存区有个优势，就是它方便检查，易于操作和更改。5、有些时候，更新数据源时，我们可以把缓存行的更改内容重新写回到数据库中。 6、提供一些比较常见的，常规的方法来检测ADO在创建过程中出现的错误，涉及到的对象是ADO的Error。2.3系统功能分析研究 开发人员通过对

15、市场需求的具体调研和分析,确定本系统应具备以下几个功能模块：基础数据管理、系统管理、日常业务管理、客户会员管理等.下面向大家一一介绍一下各个模块的功能特点。1、基础数据管理模块 该模块可以添加、修改、删除汽车销售公司和车保公司的相关信息，同时也可以对车辆类型和保险类型进行设置。2、系统管理模块 该模块可以修改用户登录密码，添加新用户，找回密码以及退出系统等。3、日常业务管理模块 从该模块中，我们可以查询到车辆的出租状态，审核车的完好情况，还车的功能也可在这模块里实现，另外，不仅在这个模块可以查询到租赁合同，甚至可以打印出来。4、客户会员管理模块 该模块可以设置会员的等级，添加、修改、删除客户和

16、会员的信息。图2.3.1为汽车租赁管理信息系统的系统功能结构图。图2.3.1系统功能结构图2.4数据字典 数据字典作为分析阶段的工具，它把所有的数据信息集合在一起，其目的就是为了在分析设计软件的时候给人提供关于数据的描述信息11-13，在数据字典里，如果想要改进分析员和用户之间的通信，那么必须建立一组严密一致的定义才可以。这样才能消除可能的误解。数据字典里，每个数据元素都应该包含名字，别名，描述，定义，位置这五个必不可少的控制信息。数据字典中包含的每个数据元素的控制信息是很有价值的。当我们列出了使用一个给定的数据元素的所有程序的时候，那么我们就很容易估计出，有一个数据发生变化时，将会产生什么样

17、的影响，那么我们就能够对所有受影响的程序或者模块做出相应的调整。本系统的数据字典如下：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+comme

18、nt位置：车辆管理，汽车租赁，车辆归还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+wworkplac

19、e4、名字：membertype别名：会员类型描述：记录会员类型的编号，名称，折扣率定义：membertype=id+typename+rate位置：会员类型定义，会员信息，汽车租赁，车辆归还5、名字：company别名：公司信息描述：车保公司和车辆销售商的公司名称，公司地址，公司的联系方式等信息定义：company=id+company+telephone+zipcode+fax+address+email+contact+typeid+comment位置：销售商信息，车保公司的信息，车辆的信息 6、名字：types别名：类型信息描述：车辆品牌类型以及保险种类定义：types=id+type

20、name+typeid+description 7、名字：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位置：车辆租赁，车辆归还2.5数据库各表的数据结构 本系统的数

21、据库名称命名为CarMIS，它包括：用户信息表（users）车辆信息表（Cars）公司信息表（Company）客户信息表（Customer）车辆和保险类型信息表（Types）会员类型信息表（MenberType）租赁信息表（Lease）。各表数据结构如下：表2.5.1 用户信息表的数据结构表名：Users 说明：用户信息表字段名类型大小空值描述Usernamenvarchar20用户名userpwdnvarchar40用户密码表 2.5.2 车辆信息表的数据结构表名：Cars说明：车辆信息表字段名类型大小空值描述Carnonvarchar20Y汽车编号Typeidsmallint2Y烈性编号c

22、arnamenvarchar50Y汽车名称colornvarchar20Y颜色oilnonvarchar30Y燃油编号enginenonvarchar50Y发动机标号carcasenvarchar50Y车架编号Saleidint2Y销售商Buydatesmalldatetime10Y购买日期Insurnonvarchar50Y保险公司insuridint4Y保单号insurtypenvarchar50Y保险类型Insursdatesmalldatetime10Y保险开始日期Insuredatesmalldatetime10Y保险结束日期Depositsmallint4Y押金Daypricesm

23、allint4Y日租金Weekend-pricesmallint4Y周末日租金Weekpricesmallint4Y周租金monthpricesmallint4Y月租金daykmsmallint4Y日限公里overtimepricesmallint4Y超时单位费用overkmpricesmallint14Y超公里单位费用statusnvarchar10Y状态commentntext10Y备注表2.5.3 公司信息表的数据结构表名：Company说明：公司信息表字段名类型大小空值描述Idint4公司编号Companynvarchar100Y公司名称Telephonenvarchar50Y电话Zi

24、pcodenvarchar8Y邮编Faxnvarchar50Y传真Addessnvarchar50Y地址Emailnvarchar50Y电邮Contactnvarchar50Y联系人Typeidtinyint1Y类型编号commentntext16Y备注表2.5.4 客户信息表的数据结构字段名类型大小空值描述Idnvarchar20Y客户编号Namenvarchar50Y名称表名：Customer说明：客户信息表Sexnvarchar2Y性别Agesmallint2Y年龄Idcardnvarchar30Y会员卡号Telephonenvarchar30Y电话Workplacenvarchar30

25、Y工作地点Addressnvarchar50Y地址Zipcodenvarchar50Y邮编Emailnvarchar10Y电邮Licensenonvarchar30Y驾照IDLicensetypenvarchar20Y驾照类型Getdatenvarchar20Y驾照获得日期Expireddatenvarchar20Y驾照过期日期Driveragesmallint2Y驾龄Flagtinyint2Y折扣Typeidint4Y会员类型编号Certificatenvarchar40Y抵押证件Warrantornvarchar50Y担保人Widcardnvarchar30Y担保人身份证wworkplac

26、envarchar100Y担保人工作地点表2.5.5 车辆和保险类型信息表的数据结构表名：Types说明：车辆和保险类型信息表字段名类型大小空值描述Idint4编号typenamenvarchar50Y类型名称Typeidtinyint2类型编号descriptionnvarchar100Y描述表2.5.6 会员类型信息表的数据结构表名MemberType说明：会员类型信息表字段名类型大小空值描述Idint4会员编号Typenamenvarchar20Y类型名称Ratereal8Y享受折扣表 2.5.7 租赁信息表的数据结构表名：Lease说明：租赁信息表字段名类型大小空值描述Contracn

27、onvarchar50Y合同编号Carnonvarchar20Y车辆编号Custidnvarchar20Y客户编号Leasetimesmalldatetime10Y租赁日期Leasemodenvarchar10Y租赁方式Price1smallint4Y价格1Price2smallint4Y价格2Workdayssmallint2Y工作天数Weekendcountsmallint2Y周末天数Depositint4Y押金Daykmsmallint2Y超限时间数Outkmsmallint4Y超限费用Oprice1smallint4Y日限时间超限费用Oprice2smallint4Y日限公里超限费用R

28、eturntimesmalldatetime10还车时间returnkmint4实际公里Othercostint4Y其他费用Ratereal4Y享受折扣Paymentint4实际支付Totalint4费用总额Statusnvarchar10Y状态Createdatesmalldatetime10创建日期Usernamenvarchar20经办人realrtimesmalldatetime10Y实际还车时间 第三章 系统功能设计3.1登录功能模块设计 进入系统后的第一个界面是登录模块，在该模块里我们设置了身份验证功能，以提高系统的安全性。 图3.1.1为登录流程图。输入用户名和密码判断用户是否存

29、在 N Y判断密码是否正确 N Y Y登录成功图3.1.1登录流程图 图3.1.2为登录模块窗体示意图，它包括一个框架，三个标签控件，两个命令按钮以及两个文本框。 图3.1.2 登陆界面它的制作过程如下： 第一步：单击工程菜单命令，选择“添加窗体”按钮，在新建的工程对话框里内添加一个空窗体，画出一个适当的框架。 第二步：添加两个标签控件和文本框在画好的框架内，然后把另一个标签和两个命令按钮画在下面，设置各个控件属性，最后编写源代码。3.2 主程序界面设计 主界面即用户登录成功后进入的界面。大方简洁的外观，合理的布局，便捷的操作是主界面的特征。它的窗体布局包括，菜单栏内的四个子菜单栏，工具栏内的

30、六个按钮，它们分别连接常用的功能。 菜单栏内的四个子菜单栏分别是【基本信息管理】、【客户会员管理】【日常业务管理】【系统用户管理】，工具栏内的六个按钮分别是【类型管理】【销售商管理】【保险公司管理】【汽车租赁】【汽车归还】【会员信息】。图3.2.1为主程序界面的的示意图。 图 3.2.1主程序界面主程序界面的制作过程如下： 第一步：单击新建工程按钮， 第二步：在生成的窗体上单击鼠标右键，即会弹出一个菜单栏上，在该菜单栏单击“菜单编辑器”命令，打开该编辑器。 第三步：设计好程序各级菜单。 第四步：在窗体上添加“图像列表控件”，工具栏按钮所使用的图像都保存在这个控件上；在窗体上添加“工具栏控件”，

31、并把它关联至“图像控制列表控件”，同时加入代表耽搁按钮的“按钮对象”。 第五步：最后编写工具栏对应的源代码。工具栏单击事件源代码如下： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case aa Load FrmType FrmType.Show vbModal Case bb Load FrmSales FrmSales.Show vbModal Case cc Load FrmInsurance FrmInsurance.Show vbModal Ca

32、se dd Load FrmLease FrmLease.Show vbModal Case ee Load FrmReturn FrmReturn.Show vbModal Case gg Load FrmMembers FrmMembers.Show vbModalEnd SelectEnd Sub3.3 基础数据管理模块的实现3.3.1 车辆和保险类型管理窗体的设计该窗体上设有两个单选按钮，一个datalist控件，四个命令按钮，其窗体如下图所示： 图3.3.1车辆和保险类型设置界面它的制作过程如下：首先，添加窗体，把各控件的位置安排好。其次，各个控件的属性分别设置好。例如：将“单选按钮

33、”名称属性设置成“optsel”,caption属性设置成“汽车型号”,Indexs属性设置成“0”，字体属性设置成“黑体”，value值设为“True”。命令按钮的设置方法和上面的方法一样。3.3.2汽车销售商管理窗体的设计 此窗体用于操作车辆销售商的信息，如：销售商名称，联系电话，传真，地址，邮编，电子邮箱等操作。另外用户还可以根据自己选择的销售商名称，来查询该厂商旗下汽车租赁情况。窗体设计如图3.3.2：图3.3.2汽车销售商管理界面 此窗体上一共有六个命令按钮，一个Datagrid控件，一个标签控件和一个文本框。 首先根据设计好的模板个添加窗体，安排好各控件的位置，把各个控件相应属性设

34、置好，如：datagrid控件名称属性设置为“datagrid1”,dragmode属性设置为“1”，allowaddnew属性设为“False”,Allowdelete 属性设置为“False”,allowupdate属性设为“False”。字体设置为“黑体”，Enable和Visible属性均设为“True”。 其添加命令按钮单击事件源代码如下： Private Sub Cmd_Add_Click() FrmCompanyEdit.Modify = False FrmCompanyEdit.nTid = 1 FrmCompanyEdit.txtCompany = FrmCompanyEdi

35、t.lblType = 销售商 FrmCompanyEdit.txtTelephone = FrmCompanyEdit.txtFax = FrmCompanyEdit.txtAddress = FrmCompanyEdit.txtContact = FrmCompanyEdit.txtComment = FrmCompanyEdit.txtZipCode = FrmCompanyEdit.txtEmail = FrmCompanyEdit.Show 1 GridRefresh End Sub3.3.3 保险公司管理窗体的设计 此窗体用于对保险公司的信息进行查询，添加，修改和删除。如保险公司的

36、公司名称，联系电话，传真，地址，邮编，电子邮箱等。设计窗体如图3.3.3：图3.3.3 保险公司管理界面 首先根据设计好的模式添加窗体，把各控件的位置安排好，各控件的相应属性设置好，如：名称属性为“label1”，alignment属性设置为“0”，文本框对其方式为“两端对齐”，Caption属性设置为“车保公司名称”，字体设置为“黑体”。查保险车辆按钮的单击事件源代码如下： Private Sub Cmd_ViewCars_Click() FrmSaleCars.nType = 2 FrmSaleCars.sSaleName = Trim(Adodc1.Recordset.Fields(1)

37、 FrmSaleCars.nSaleId = Adodc1.Recordset.Fields(0) FrmSaleCars.txtSaleName = Trim(Adodc1.Recordset.Fields(1) FrmSaleCars.Caption = 查看保险公司保险汽车 FrmSaleCars.Label1 = 保险公司名称 FrmSaleCars.Show 1End Sub3.3.4车辆管理窗体的设计 本窗体用于提供对车辆信息的添加，修改和删除功能，可处理的信息包括车辆的基本信息如车牌号，状态，车辆类型，颜色，押金，日租金等。设计界面如图3.3.4所示： 图3.3.4 车辆管理界面

38、3.4 客户会员管理模块的实现3.4.1 客户信息管理窗体的设计 客户信息管理窗体用于对客户信息如：编号、姓名、性别、年龄、驾驶证编号、驾龄等的查找、添加、修改、删除等操作。并且提供将普通客户加入会员的服务。 本窗体上一共设置有六个命令按钮，一个Adodc控件，一个Datagrid控件，一个标签控件和一个文本框。命令按钮分别为“添加”“修改”“删除”“查找”“加入会员”“退出”。窗体设计如图3.4.1： 图 3.4.1 客户信息管理界面 点击“工程”菜单，选择“添加窗体”，在窗体上画出所需控件，把这些控件移动至窗体内适当位置，并设置各个控件的属性，最后编写各个控件相应事件过程。如，对于命令按钮

39、：“删除”，先把该按钮放置在合适的位置上，再将它的名称属性改为“Cmd_del”，对于Caption属性则设置为“删除”，字体属性设置为“黑体”，Enabled和Visible属性设置为true。 进行删除操作时，首先在列表框上显示出来的客户信息条目中将要删除一条选中（如果不选择，系统则默认为选择了第一条）做出选择后，单击“删除”按钮，显示一个对话框，选中用户是否确认删除，选“是”，则系统从数据库中删除该项，并弹出一个信息框，告知用户操作成功。命令按钮“删除”单击事件源代码如下： Private Sub Cmd_Del_Click() If Adodc1.Recordset.EOF = Tru

40、e Then MsgBox 请选择记录 Exit Sub End If If MsgBox(是否确定要删除 , vbYesNo, 请确认) = vbNo Then Exit Sub End If MyCustomer.Delete (Trim(Adodc1.Recordset.Fields(0) MsgBox 成功, vbInformation GridRefresh End Sub3.4.2 会员信息管理窗体设计 会员信息管理窗体用于对会员信息如，编号，姓名，年龄驾驶证编号，驾龄，登记日期等的查找、修改及注销功能。 本窗体上共设有四个命令按钮，一个Datagrid控件，一个标签控件和一个文本

41、框。窗体设计如图3.4.2所示： 图3.4.2会员信息管理界面 鼠标单击“工程”菜单栏，选择“添加窗体”按钮，在新建工程内，添加一个空窗体，把窗体的名称属性设置为“Frmmembers”，StartUpPosition属性设置为“2”，那么窗体首次出现的位置是在屏幕中心，Font属性设置成“黑体”，Caption属性设置成“会员管理”。然后对其它控件的属性进行相应的设置。 命令按钮“注销会员”的作用是删除客户信息表中用户选定的会员条目，（如果不选择的话，系统将会默认是选择了第一条）选择了之后，鼠标单击“注销会员”按钮，将会弹出一个对话框，该对话框会询问用户“是否确定要注销会员资格”，如果选择“

42、是”的话，那么系统将会执行注销操作，同时弹出一个信息框，该信息框会显示“注销会员成功”。最后，系统会更新Datagrid控件里面的会员信息条目。命令按钮“注销会员”单击事件源代码如下： Private Sub Cmd_OffMember_Click() If Adodc1.Recordset.EOF = True Then MsgBox 请选择记录 Exit Sub End If If MsgBox(是否确定要注销会员资格 , vbYesNo, 请确认) = vbNo Then Exit Sub End If MyCustomer.TypeId = 0 MyCustomer.UpdateToMember