汽车维修企业客户管理系统毕业设计

毕 业 设 计题 目： 汽车维修企业客户管理系统作 者： 毕业届期： 指导老师： 院 系： 交通与工程系 专 业： 交 通 运 输 2011年5月15日目录摘 要2第一章 概述31.1 系统设计背景31.2 系统设计简介3第二章 系统需求分析4第三章 系统设计53.1系统功能规划53.2数据库设计5第四章 系统界面设计84.1 登录界面84.2维修客户界面104.3管理员系统界面114.4 用户基本信息系统124.5 客户基本信息录入窗体134.6 客户基本信息修改窗体144.7 客户基本信息删除窗体154.8维修基本信息窗体15第五章 系统模块的实现175.1公用模块175.2用户登录模块185.3管理员菜单模块195.4用户基本信息编辑模块215.5维修信息模块22第六章 系统测试246.1 测试目的与测试方法246.2软件测试过程246.3 测试总结25参考文献25致谢26汽车维修企业客户管理系统毕业设计摘 要汽车维修企业客户管理系统是因企业原始的手工操作已不适应现代高速运转的社会节奏而设计的。原始的手工操作服务运行速度慢，手工操作失误率高、人力需求大，造成公司很大的人力资源浪费。汽车维修企业管理系统以可视化操作平台为输入浏览桌面，以数据库存储数据为支撑，操作简单易行，功能强大。设计系统提供了客户维修信息数据的录入、浏览、修改、查询、统计、报表等六大主要功能，实现了维修客户信息管理的规范化、系统化、自动化。在维修企业客户管理系统中维修管理人员能够轻松录入维修信息，提高了服务运行速度；用户能够及时了解维修信息，提高了客户对公司的认可度。汽车维修企业客户管理系统可以成为汽车企业和客户之间的纽带，缩短汽车企业的维修周期、降低企业运行成本、增加收入、拓展市场、全面提升汽车企业的赢利能力和竞争力，为汽车维修企业带来了更大的利润，同时它也不断的满足了客户更多的个性化的服务，提高了客户信赖与认可。设计系统主要面向汽车维修企业管理人员和汽车维修客户两大用户。为管理人员提供信息录入、修改、浏览、查询、统计、报表六大功能，服务人员操作程序简单、失误率低，大大提高了服务水平与服务运行速度。为汽车客户提供浏览、查询等两大主要功能，客户能够查询该车近期维修的项目，维修费用。系统使管理人员、汽车客户之间的联系更加密切，信息反馈更加及时准确。设计过程中多次引用ADO控件、SQL语言，解决了可视化操作界面与数据库信息频繁录入与调用的困难问题，提高了数据库数据录入调用的可靠性与方便性。系统中运用access查询功能的SQL查询语句解决了系统浏览界面日期查询功能实现的关键技术难点，提高了管理人员与汽车客户的查询搜索速度。本系统使用Visual Basic来开发编程，后台数据库则采用access创建，合理将可视化事件触发操作界面与数据库数据联系起来。关键词：管理信息系统，汽车维修管理， 数据库，ADO控件，SQL 第一章 概述1.1 系统设计背景质量是生命，服务是保障。现今世界是一个信息的世界，提高服务质量就是运用信息技术提高服务企业的运行速度，简化服务操作流程，实现企业的信息化。计算机科学作为信息领域的领头羊一直处于发展的最前列。计算机技术尤其是网络计算技术的迅猛发展，使部门和企业的信息管理面临着一场深刻的革命，数据库系统的成败决定着企业信息化的成败。随着经济的高速发展，各单位走向信息化工作也在迅速地进行，由于汽车修理厂的业务规模的不断扩大，因此以前的原始的手工操作方式就不能适应企业快速发展的需要，在计算机科学技术日益发展和成熟的今天，运用其先进的技术性来管理日常工作中的各类信息数据，就可以极大地提高工作效率，研究汽车维修企业客户管理系统具有现实必要性与可行性。让维修管理人员轻松录入维修信息，提高服务运行速度；让用户及时了解维修信息成为当务之急，设计研发可视化操作平台与数据库结合的维修客户管理系统具有必要性与必须性。汽车维修企业客户管理系统正是在这样的环境中应运而生。它己经逐渐成为汽车企业和客户之间的纽带，缩短了汽车企业的维修周期、降低了企业运行成本、增加了收入、拓展了市场、全面提升了汽车企业的赢利能力和竞争力，为汽车维修企业带来了更大的利润，同时它也不断的满足了客户更多的个性化的服务，提高了客户的忠诚度。1.2 系统设计简介汽车维修客户管理系统具有客户信息浏览、编辑、统计、查询、报表五大功能。汽车维修客户管理系统用户分为两大类，一类是维修企业管理人员，他们的工作就是与汽车维修客户打交道，为汽车拥有者提供快速便捷的维修服务；另一类就是汽车拥有者，通过这个平台，汽车拥有者能和维修部门建立联系，及时得到自己的汽车近期的维修保养项目与消费情况。下面就这两种用户的操作分别说明如下：1. 企业管理人员操作顾客维修信息的编辑：录入、修改、删除用户最新的车辆维护信息；录入、修改、删除客户基本信息。顾客维修信息的查询：顾客基本信息的日期查询；顾客维修信息的日期段查询。新顾客户的开户：新用户基本信息的录入，新客户信息的修改，新顾客账号、密码的设置。系统维护：系统初始化使用。退出系统：退出系统的使用。2普通客户的操作：查询系统：浏览自己汽车所有维修记录；日期段汽车维修记录查询 第二章 系统需求分析原始的手工操作服务运行速度慢，手工操作失误率高、人力需求大，造成公司很大的人力资源浪费。汽车维修企业管理系统应以可视化操作平台为输入浏览桌面，以数据库存储数据为支撑，操作更简单易行，功能更强大。设计系统应提供客户维修信息数据的录入、浏览、修改、查询、统计、报表等六大主要功能，应实现维修客户信息管理的规范化、系统化、自动化。根据对用户的需求研究，得出下面的具体需求说明文本：1、由于客户的车牌号、身份证号、电话号码等信息涉及个人隐私，因此数据库数据应具有绝对的保密性。为了便于管理，应该为用户设置账号和密码，登录系统界面时密码输入应具有保护隐藏性。例如以“*”代替密码原文本，实现密码展现文本与真实文本的明显差异，提高系统数据的安全可靠性。2、系统能够对客户的维修信息进行记录，并能够非常方便的浏览、添加、编辑和查询客户的维修信息。当客户对维修信息有异议时能够利用模糊查询快速搜索到相关信息进行核实查证。被确认确实存在问题的记录要具有修改、删除功能。客户能够通过系统及时了解最近的汽车维护情况。同时系统应能够提供客户维修信息、基本信息报表输出的功能。3、系统能够进行简单的计算，减少服务人员的工作量，并将维修信息及时录入数据库，简单明了，不易出错。4、系统应将可视化操作平台与数据库合理结合，相互补充优势，实现界面可视化、易操作与数据库信息存储方便可靠完美结合。系统应具有具有很强的适应性，以符合不同用户不同运行环境的满足要求。5、在维修机件输入时，系统应采用下拉式复选框，用户只要选中选项即可，如果缺少应有选项可以即时添加、修改、删除。可以重复使用，运用方便，能够明显减少用户的输入工作量。数据库应随时对数据进行修改保存，保证数据安全可靠。6、在维修机师输入时，系统应采用下拉式复选框，用户只要选中选项即可，如果缺少应有选项可以即时添加、修改、删除。可以重复使用，运用方便，能够明显减少用户的输入工作量。数据库应随时对数据进行修改保存，保证数据安全可靠。7、维修管理人员可以随时对用户进行日期、日期段查询。通过模糊查询提高管理人员的寻找效率。8、系统应具有数据库维护功能，系统运行在Windows平台上，应该具有较好的图形用户界面，还应有较好的可扩展性9、用户进入系统的登录界面后系统应根据用户的登录身份进行数据库信息分析判断，将管理人员与维修客户进行数据分流，管理人员可以进行系统的维护。维修客户根据自己的身份进入系统只能浏览、查询自己的维修记录，不能浏览其他用户的信息，使维修信息具有保护性。10、系统运行到一定阶段后需要信息格式化，系统中应设置系统初始化，使数据库清空，登录账号和密码要有默认值，供新用户激活开通。第三章 系统设计3.1系统功能规划系统整体分为三大部分。一、登录系统登录系统可以进行身份验证，不同的访问权限可以登陆不同的系统界面。二、汽车顾客用户系统一般用户登陆后可以浏览自己汽车近期的维修信息，进行日期查询。三、企业管理员用户系统 管理员登陆后可以浏览本企业客户的基本注册信息并可以对基本信息进行添加、修改、删除，根据条件进行模糊查询；可以浏览客户汽车维修信息并进行添加、修改、删除，同样根据条件进行模糊查询；可以对新的用户开户，以往的用户密码的设置等功能。 系统功能模块图3-1如下：维修顾客用户系统汽车维修客户管理系统企业管理员用户系统登录系统顾客维修记录的查询顾客维修记录信息浏览客户维修信息的查询客户维修信息的编辑客户维修信息的报表客户权限验证界面分流图3-13.2数据库设计数据库在信息管理系统中占有重要地位，数据库结构设计的好坏将直接对应用系统的效率和实现的效果产生影响。合理的数据库设计可以提高数据存储的效率，保证数据的完整和一致。一、 数据库模型设计汽车维修客户管理系统数据库中所存在的实体是维修信息实体、维修机件实体、维修技师实体、客户基本信息实体、登录身份实体。实体之间具有映射关系。实体关系如下：客户基本信息实体与维修机件实体为一对多的映射关系客户基本信息实体与维修技师实体为一对多的映射关系客户基本信息实体与维修信息实体是一一对应的映射关系二、 数据库各表属性设置 用Microsoft Office Access 建立各个实体对应表设计属性如下所示： 维修基本信息表字段名称数据类型字段大小说明车牌号文本50主键维修技师文本50维修机件文本50日期日期时间50数量数字50单价数字50总计数字50 表3-1 维修机件表字段名称数据类型字段大小说明编号文本45主键机件名称文本45 表3-2 维修技师表字段名称数据类型字段大小说明编号文本48主键姓名文本48 表3-3客户基本信息表字段名称数据类型字段大小说明车牌号文本50主键身份证号文本50姓名文本50性别文本50电话文本50车型文本50注册日期日期时间50 表3-4 登录身份表字段名称数据类型字段大小说明账号文本45主键密码文本45姓名文本45级别文本45 表3-5三、数据库中表属性设置说明在建表时要设立主键，设立主键后表中记录都会有唯一的标识具有区分记录作用，即主索引的作用。如果不设置系统会自动添加编号作为主键。在登录身份表中将账号字段数据类型设为文本型可以提高运算速度，便于筛选验证信息。在客户信息表中将注册日期数据类型设为日期型可以根据注册日期信息进行筛选查询记录，查询记录快捷方便。可以运用Access的查询语句进行查询，形成SQL语句。将ADO的记录源属性设为SQL语句可以实现多个数据库信息结合所形成的新数据库的连接。这种方式是解决数据库内存中的经典运用。四、数据库表中记录存在形式 登录身份表 账号密码姓名身份123123张三管理员234234李四普通用户 表3-6 客户信息表车牌号身份证号姓名性别电话车型注册日期青A4567李四男77788比亚迪F62001-3-3鲁B456张飒女99000雪铁龙2010-3-4 表3-7维修信息表车牌号维修技师维修机件数量单价总计青A567霍楠离合器1200200 表3-8第四章 系统界面设计4.1 登录界面一、界面设计 登录界面是管理信息系统必不可少的，登录界面主要作用就是使用户能够安全地进入维修管理信息系统。系统启动后进入登陆界面，用户就可以根据自己的账户和密码进行登录，密码信息以 * 代替，起到保密的功能。VB中每一控件都是具有自己属性、事件和方法的对象。属性、事件、方法构成对象的三要素。可以把属性看作对象的性质，把事件看作对象的相应，把方法看作对象的动作。在此界面中用到三个标签（Label）控件、两个按钮(CommandButton)控件、一个画线（Line）控件、两个文本框（text）控件、一个ADO数据控件。二、控件设计与功能说明1.标签 标签主要是用来显示（输出）文本信息，但是不能作为输入信息的界面，也就是标签控件的内容只能用Caption属性来设置或修改，不能直接编辑。2.文本框文本框是一个文本编辑区域，用户可以在该区域输入、编辑、修改和显示正文内容，即用户可以创建一个文本编辑器。3.按钮 在应用程序中，命令按钮的应用十分广泛。在程序执行期间，当用户选择某个命令按钮时就会执行相应的事件过程。4.Line(画线工具) Line控件可以用来画线。5.ADO数据控件 ADO数据对象(ActiveX Data Objects)是Visual Basic 的数据访问接口。它解决了应用程序对数据源的访问、修改功能。 在使用ADO数据控件前，必须先通过“工程部件”菜单命令选择“Microsoft ADO Data Control 6.0(OLE DB)”选项，将ADO数据控件添加工具箱。 ADO数据控件与Visual Basic的内部数据控件相似，它允许使用ADO数据控件的基本属性快速地创建与数据库的连接。简而言之，ADO数据控件是可视化VB界面与数据库连接的桥梁。窗体控件布置如图4-1：图4-1三、主要控件属性设置1、标签Label1.caption=“欢迎使用汽车维修客户管理系统”Label2.caption=“账号”Label3.caption=“密码”2、文本框 Text1(0).text=“” Text1(1).text=“” Text1(1).passwordChar=“*”3、按钮 Command1.caption=“登录” Command2.caption=“关闭”4、窗体 pass.caption=“汽车维修客户管理系统” 四、登录系统功能说明 登录系统通过对用户输入信息与数据库信息的对比实现不同权限的筛选判定后进入不同的用户界面。如果数据库没有对应的信息，系统自动跳出提示对话框。界面如图4-2：图4-2单击确定后，账户输入框和密码输入框将变为空，供用户再次输入。如果连续输入三次密码错误，系统将弹出提醒对话框，单击确定后系统自动退出，禁止用户再次输入。界面如图4-3： 图4-3 4.2维修客户界面一、界面设计本界面中设置一个DataGrid控件、一个Frame控件、一个标签Label控件、三个按钮Command控件、三个文本框控件。二、主要控件功能与创建说明Datagrid控件允许用户同时浏览或修改多个记录的数据。在使用前必须先通过“工程部件”菜单命令选择“Microsoft DataGrid Control 6.0 (OLE DB)”选项，将其添加到工具箱。在窗体创建并绑定在ADO上即可。 窗体控件布置如图4-4：图4-4三、系统功能说明 当用户身份是客户时系统自动筛选后进入维修客户系统界面，在此界面中用户不仅可以浏览自己汽车近期的维护情况，还可以进行日期查询。4.3管理员系统界面一、界面设计管理员系统界面是复合菜单窗体，利用菜单编辑器设置菜单层次如下：信息录入基本信息录入查询维修记录录入查询统计管理账目统计明细统计系统设置用户设置系统初始化 退出窗体界面布置如图4-5：图4-5二、系统功能说明此菜单窗体可以通过菜单调用相应窗体实现相应功能，此窗体采用菜单式比采用按钮式布局更合理，使用更快捷简单。当管理员选中“系统设置”中的“系统初始化”时，系统会自动提醒。“确定”后系统将清空所有数据库，并将用户设为默认状态。即账号：123 ；密码：123 。如图4-6所示： 图4-6 4.4 用户基本信息系统一、界面设计 管理员通过窗体选择性进入用户基本信息系统后，将会浏览到注册本企业所有用户的基本信息。本界面有一个DataGrid、一个ADO、一个Frame、四个按钮Command组成。界面布局如图4-7所示：图4-7二、主要控件的设计1、ADO控件 利用ADO控件绑定数据库中的表，建立数据库与可视化界面的联系。在此界面中ADO的Visble属性设为False,在程序运行时ADO将会自动隐藏，如上图所示。ADO绑定数据库中表的具体步骤如下：（1）:单击ADO控件属性窗口中的ConnectionString属性右边的“”按钮，弹出“属性页”对话框。在该对话框中通过“使用连接字符串”后的“生成”按钮，打开“数据链接属性”对话框。完成数据库与ADO的链接。（2）：将窗体中的DataGrid的DataSource属性设为ADODC1即可建立ADO与窗体的联系。2、Frame控件 Frame控件中可以创建一系列控件，相当于一个创建对象平台。在窗体上Frame作为一个整体对象存在。 4.5 客户基本信息录入窗体一、窗体设计 此窗体设有三个Frame控件、七个标签控件、两个单选按钮控件、六个文本框控件、三个按钮控件、一个ADO控件。二、窗体功能说明 通过文本框输入设置条件信息，单击“确定”按钮后会自动录入到数据库中进行保存。再此过程中ADO依然起到桥梁作用。但操作人员发现有输入错误时可以单击“重置”按钮使文本清空。性别单选框默认为“男”。单击“返回”按钮时，界面会返回到上一窗体界面。窗体中控件布局如图4-8所示：图4-84.6 客户基本信息修改窗体系统功能说明：客户基本信息修改窗体与其添加窗体为同一窗体。但在调用修改窗体时系统通过ADO控件将上一窗体的一览表中选定的记录信息调入相应文本框。其中“性别”单选框涉及属性值的转换。这是此窗体的设计难点。修改完成后信息自动修改录入数据库中，在上一窗体的一览表中自动修改显示。单击“确定”后信息自动修改；单击“重置”按钮后个文本框后清空，“性别”单选框会默认为“男”以备重新输入，单击“返回”按钮时系统会返回上一窗体。界面如图4-9所示：图4-94.7 客户基本信息删除窗体管理员删除部分无效记录时，窗体会弹出提醒对话框，单击“确定”后系统自动删除选中记录。界面如图4-10所示：图4-104.8维修基本信息窗体一、窗体设计 本窗体设有两个ADO控件、三个Frame控件、七个标签控件、五个文本框控件、六个按钮控件、两个Datalist控件。二、窗体功能说明维修客户管理人员通过菜单窗体进入维修基本信息窗体后可以添加、修改、删除维修客户资料信息，本窗体即为维修基本信息编辑的主窗体也是本系统的核心窗体，其他窗体围绕其作辅助作用。本窗体具有添加“维修技师”、“维修机件”可选项的功能。本窗体具有计算统计功能，此窗体采用两个ADO控件，分向将数据录入数据库中，实现了数据分流录入，根据情况选择性录入可选数据。从而整体上简化简化了工作流程，节省了服务时间，提高了工作效率。三、窗体控件属性设置ADODC1、ADODC2均绑定相应数据库表。并将各控件绑定相应ADO控件。Frame1.Caption=“基本信息” Frame2.Caption=“维修信息” Label1.Caption=“车牌号” Label2.Caption=“日期”Label3.Caption=“维修机件”Label4.Caption=“数量”Label5.Caption=“单价”Label6.Caption=“总计” Command11.Caption=“”Command12.Caption=“”Command13.Caption=“计算”Command11.Caption=“清零”Command11.Caption=“录入”Command11.Caption=“返回”ADODC1.visble=“falseADODC2.visble=“ture”四、主要控件功能 1、frame控件 本窗体两个frame控件，每个控件作为一个输入信息单元，作为一个创建平台。创建在同一frame上的控件相对位置是不变的，当frame移动时其内部控件作为整体移动。 2、ADO控件 ADO数据控件与Visual Basic的内部数据控件相似，它允许使用ADO数据控件的基本属性快速地创建与数据库的连接。简而言之，ADO数据控件是可视化VB界面与数据库连接的桥梁。 ADO数据对象(ActiveX Data Objects)是Visual Basic 的数据访问接口。它解决了应用程序对数据源的访问、修改功能。控件布局如图4-11所示：图4-11第五章 系统模块的实现5.1公用模块公用模块存放工程项目中公用的函数，全局变量等。整个工程项目中的任何一方都可以调用公用模块中的函数、变量，这会提高代码效率。首先在项目中添加一个Module，名称为Module.base 。双击并在其中添加要的代码。代码如下：Public userlevel As StringPublic flag As IntegerPublic recs As IntegerPublic order As String定义全局变量Public Function exesql(ByVal sql As String) As Adodb.Recordset Dim conn As Adodb.Connection Dim rst As Adodb.Recordset sql = Trim(sql) Set conn = New Adodb.Connection Set rst = New Adodb.Recordset conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=维修客户管理系统.mdb;Persist Security Info=False” Set rst.ActiveConnection = conn rst.LockType = adLockOptimistic rst.CursorType = adOpenKeyset rst.Open sql Set exesql = rst Set rst = Nothing Set conn = NothingEnd Function 此模块定义全局函数，当局域程序调用时建立记录集对象Public Sub deldata(ByVal tn As String) Dim sql As String Dim conn As Adodb.Connection Set conn = New Adodb.Connection conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=维修客户管理系统.mdb;Persist Security Info=False” sql = “delete from “ & Trim(tn) conn.Execute sql If Trim(tn) = “oper” Then sql = “insert into oper values(123,123,张三,管理员)” conn.Execute sql Else conn.Execute sql End If conn.CloseEnd Sub 定义全局函数，当局域函数调用时将对系统初始化，登录账号为：123，密码为：123 。.5.2用户登录模块用户输入账号和密码之后，系统通过调用数据库信息将判断用户名和密码的正确性，如果正确则登录到系统，否则要求用户自动登录，登录出现3次错误后系统中止。程序代码如下： Private Sub Command1_Click()Dim mrc As New Adodb.Recordset txtsql = “select * from oper where 用户名=” & Trim(Text1(0).Text) & “” & “and 密码=” & Trim(Text1(1).Text) & “” Set mrc = exesql(txtsql) If mrc.RecordCount = 0 Then n = n + 1 If n 3 Then MsgBox “没有这个用户，请继续登录！”, vbOKOnly + vbExclamation, “信息提示” Text1(0).Text = “” Text1(1).Text = “” Text1(0).SetFocus Else MsgBox “已登录失败三次，退出系统！”, vbOKOnly + vbExclamation, “信息提示” mrc.Close Unload MeEnd If Else userlevel = Trim(mrc.Fields(“级别”) order = Trim(mrc.Fields(“用户名”)If userlevel = “管理员” Then Unload Me menu1.ShowElse Unload Me menu2.ShowEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Text1(0).Text = “”Text1(1).Text = “”End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()n = 0End Sub5.3管理员菜单模块当用户通过登录界面后，如果使用者是管理员，系统会自动进入管理员菜单界面，管理员可以进行系统信息的录入编辑管理工作。管理员窗体是一多重调用主窗体，通过菜单项可以调用不同的窗体进行编辑查询信息。代码如下：Private Sub menu110_Click()base1.ShowEnd Sub调用base1窗体Private Sub menu111_Click()sql1.ShowEnd Sub调用sql1窗体Private Sub menu120_Click()base2.ShowEnd Sub调用base2窗体Private Sub menu20_Click()zhangmu.ShowEnd Sub调用zhangmu窗体Private Sub menu21_Click()mingxi.ShowEnd Sub调用mingxi窗体Private Sub menu211_Click()sql2.ShowEnd Sub调用sql2窗体Private Sub menu30_Click()user.ShowEnd Sub调用user窗体Private Sub menu31_Click()If MsgBox(“本功能要清除系统中的所有数据，真的初始化吗？”, vbYesNo, “确认初始化操作”) = vbYes ThenCall deldata(“oper”)Call deldata(“base1”)Call deldata(“base2”)Call deldata(“jijian”)Call deldata(“jishi”)End IfEnd Sub系统初始化Private Sub menu4_Click()EndEnd Sub5.4用户基本信息编辑模块 管理员进入用户基本信息录入窗体后可以进行新用户的开户、已有用户信息的修改编辑工作。代码如下： Private Sub encomm() If recs = 0 Then Command2.Enabled = False Command3.Enabled = False Else Command2.Enabled = True Command3.Enabled = True End IfEnd Sub定义局域函数，进行数据选择判断，以此决定按钮的可用性。Private Sub Command1_Click()flag = 1 add1.Show vbModalEnd SubPrivate Sub Command2_Click()flag = 2 add1.Show vbModalEnd SubPrivate Sub Command3_Click() If MsgBox(真的要删除 + Trim(Adodc1.Recordset.Fields(姓名) + 吗?, vbYesNo, 提示信息) = vbYes Then Adodc1.Recordset.Delete recs = recs - 1 Call encomm End IfEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateBatchAdodc1.Recordset.Closebase1.Adodc1.RefreshUnload MeEnd SubPrivate Sub Form_Activate()DataGrid1.SetFocus Call encommEnd Sub用户信息的修改、录入、删除工作。Private Sub Form_Load()recs = Adodc1.Recordset.RecordCountEnd Sub 窗体加载时进行记录集数目判断。5.5维修信息模块 管理员进入维修信息编辑窗体后可以进行客户维修信息的录入工作，代码如下： Private Sub encomm() If recs = 0 Then Command2.Enabled = False Command3.Enabled = False Else Command2.Enabled = True Command3.Enabled = True End IfEnd SubPrivate Sub Command1_Click()flag = 1 add2.Show vbModalEnd SubPrivate Sub Command2_Click()flag = 2 add2.Show vbModalEnd SubPrivate Sub Command3_Click()If MsgBox(真的要删除 + Trim(Adodc1.Recordset.Fields(车牌号) + 吗?, vbYesNo, 提示信息) = vbYes Then Adodc1.Recordset.Delete recs = recs - 1 Call encomm End IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Command5_Click()If Trim(Text1) = Or Trim(Text2) = Or Trim(Text3) = Or Trim(Text4) = Or Trim(Text5) = Then MsgBox 条件不能为有空，请重新设置, vbOKOnly, 信息提示 Exit Sub End IfDim Str As StringDim riqi As Stringriqi = # & Trim(Text4) & / & Trim(Text5) & / & Trim(Text3) & # Str = If Trim(Text1.Text) Then If Str = Then Str = (车牌号= + Trim(Text1.Text) + ) Else Str = Str + and 车牌号= + Trim(Text1.Text) + End If End If If Trim(Text2.Text) Then If Str = Then Str = 维修技师= + Trim(Text2.Text) + Else Str = Str + or (维修技师= + Trim(Text2.Text) + ) End If End If Str = Str + or (日期= + riqi + ) If Str Then Adodc1.RecordSource = select * from base1 where + Str Adodc1.Refresh Else Adodc1.RecordSource = select * from base2 Adodc1.Refresh End If recs = Adodc1.Recordset.RecordCount If recs = 0 Then MsgBox 没有任何满足条件的记录, vbOKOnly, 信息提示 End IfEnd SubPrivate Sub Command6_Click()Text1 = Text2 = Text3 = End Sub第六章 系统测试6.1 测试目的与测试方法一、测试目的基于不同的立场，存在着两种完全不同的测试目的。从用户的角度出发，普遍希望通过软件的测试暴露软件隐藏的错误和缺陷，以考虑是否可以接受该产品。而系统设计的角度出发，则希望测试成为表明系统中不存在错误的过程，验证该