1、武汉工程大学邮电与信息工程学院毕业设计（ 论 文）说明书论文题目 汽车维修服务站管理系统的设计 学 号 0841530205 学生姓名 陈龙 专业班级 计算机应用 02 班（专） 指导教师 朱思斯 总评成绩 2011 年 5 月 20 日武汉工程大学邮电与信息工程学院 毕业设计（论文）- I -目 录摘要 IIAbstract.III第一章 绪论 11.1 本次毕业设计课题的研究背景和目的 11.2 本次课题研究的意义 1第二章 Vi sual Basic 企业版简介 .22.1 Visual Basic 发展历史 .22.2 Visual Basic 语 言 特 性 32.3 Visual
2、Basic 术 语 32.4 VB 的局限性 .4第三章 数据库 设计( mdb ) 53.1 数据的概念 53.2 利用 DATA 控件访问数据库 .63.3 连接数据 63.4 引用 ADO 连接 数据库 6第四章 系 统设计 .74.1 系统目标设计 74.2 开发设计思想 74.3 系统功能分析 74.4 系统功能模块设计 84.5 数据库需求分析 84.6 数据库概念结构设计 94.7 数据库逻辑结构设计 .10第五章 各个功 能模块的设计 .125.1 身份验证界面的设计 .125.2“密码修改”界面的设计 135.3 主界面的设计 .165.4 单据录入界面设计 .185.5 单
3、据查询界面的设计 .225.6 客户管理界面的设计 .255.7 零件管理界面的设计 .31总结 37致谢 38参考文献. 39武汉工程大学邮电与信息工程学院 毕业设计（论文）- II -摘 要汽车维修服务站管理系统目前在汽车维修服务站已经普及。通过一个汽车维修服务站管理系统的例子，介绍了现代企业管理信息化的一般解决方案，其重要性不言而喻。但是，目前依然有少数汽车服务站在具体的业务流程处理过程中仍然使用手工操作的方式来实施，不仅费时、费力，效率低下，而且无法达到理想的效果。本系统是根据维修服务站的特点，提供汽车服务站配件销售维修单据的录入和打印；单据的查询和统计；客户基本信息和各个零件的信息的
4、添加、修改、删除、查找、打印等；为汽车维修服务站量身定做的管理软件。在设计过程中最大限度满足用户的要求，因此，该系统具有较强的实用性和针对性。本系统界面友好，操作简单，可维护性强，功能完备。本论文介绍了汽车维修服务站管理系统开发的全过程，主要从管理思想、系统分析说明、系统设计说明、系统使用说明、技巧与体会等方面对本管理系统加以论述。前言部分指明了选题背景和开题意义；而后又详细介绍了系统的分析、系统的开发与设计说明等内容；最后给出了系统的使用说明和系统设计的心得体会。 关键词：系统设计；系统分析；管理系统；汽车服务站管理系统武汉工程大学邮电与信息工程学院 毕业设计（论文）- III -Abstr
5、actAuto maintenance service station management systems currently in automobile maintenance service station has popularity. Through a vehicle maintenance service station management system example, presents a modern enterprise management informationization generally solutions, its importance is self-e
6、vident. However, there are still a few car service station in specific business process process, still use manual operation of the way to carry out, not only time-consuming, tedious, inefficient, and unable to achieve the ideal effect. This system is according to the characteristics of servicing sta
7、tions, provide automobile service station accessories sales maintenance documents typing and print; Docs query and statistics; The basic information about the clients and the information of each part of add, modify and delete, search, printing, etc; For car maintenance service stations, made-to-meas
8、ure management software. In the design process to satisfy users requirements, therefore, this system has strong practicability and pertinence. This system friendly interface, easy to operate, and maintainability strong, function complete. This paper introduces the car maintenance service station man
9、agement system development entire process, mainly from the management idea, system analysis, how, system design description, system instructions, skill and experience this management system aspects were expounded. An introduction to choose a background and pointed out the proposal meaning; Then deta
10、iled introduction of system analysis, system development and design specifications content; The use of the system is given instructions and system design experience. Keywords: system design; System analysis; Management system; Auto service station management system 武汉工程大学邮电与信息工程学院 毕业设计（论文）- 1 -第一章 绪
11、论1.1 本次毕业设计课题的研究背景和目的随着计算机技术的飞速发展，计算机在汽车维修站的管理中应用的普及，利用计算机实现汽车服务站的管理势在必行。对于汽车服务站管理来说，汽车服务站信息管理是一项琐碎、复杂而又十分细致的工作，工作量很大，一般不允许出错，如果实行手工操作，须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机在单据计算工作，单据核算准确无误、快速输出，而且还可以利用计算机对汽车服务站各种信息进行统计，同时计算机具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高企汽车服务站管理的效率,也是汽车服
12、务站的科学化、正规化管理,与世界接轨的重要条件。1.2本次课题研究的意义国内外研究现状、水平和发展趋势随着我国国民经济建设的蓬勃发展和具有中国特色的社会主义市场经济体制的迅速完善，各个行业都在积极使用现代化的手段，不断改善服务质量，提高工作效率，这些都在很大程度上给汽车服务站提出越来越严峻的挑战，对汽车服务站体系管理水平以及优质服务上都提出更高的要求。建设一个科学高效的信息管理系统是解决这一问题的必由之路。汽车服务站内部信息是运用现代化技术创造更多更高的经济效益的主要因素之一。由于汽车服务站职工信息、客户信息、配件信息都不尽相同。如果没有一个完整的管理系统来进行管理，那么势必会给管理人员带来种
13、种麻烦，因此类似管理系统之类的软件的开发势在必。现在中国维修企业已进入“新管理时代“，维修企业管理在经历了计划经济时期的“生产管理“时代,计划经济与市场经济相结合时期的“混合管理“时代后,从九十年代末进入全面市场经济时期的“新管理“时代。新管理时代的中国维修企业管理是面向市场,基于现代企业制度,是中国模式,价值化,系统化,电脑化,国际化和普遍化管理的时代。 新管理时代的中国维修企业管理以建立竞争优势,提高维修企业竞争力为核心.要提高维修企业的竞争力就必须整合企业经营,全面强化维修企业管理,形成维修企业持久发展的“内功“.越来越多的质优维修企业舍得在管理系统上投资的举动,足以说明这一趋势。 在市
14、场竞争日益激烈,用户需求不断趋向多样化,维修企业间关联程度越来越密切的今天,要求维修企业行动必须快捷,灵敏,在管理的思想观念,方式方法上不断创新.人力已经很难完全达到要求,必须借助当代信息科技的最新成果,优化和加强维修企业的运营和管理。武汉工程大学邮电与信息工程学院 毕业设计（论文）- 2 -第二章 Visual Basic 企业版简介Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB 都是世界上使用人数最多的语言不仅是盛赞 VB 的开发者还是抱怨 VB 的开发者的数量。它源自于 BASIC 编程语言。VB 拥有图形用户界面（GUI）
15、和快速应用程序开发（RAD）系统，可以轻易的使用 DAO、RDO、ADO 连接数据库，或者轻松的创建 ActiveX 控件。程序员可以轻松的使用 VB 提供的组件快速建立一个应用程序。2.1 Visual Basic发展历史1991 年，微软公司推出了 Visual Basic 1.0 版。这在当时引起了很大的轰动。这个连接编程语言和用户界面的进步被称为 Tripod（有些时候叫做 Ruby） ，最初的设计是由阿兰库珀（Alan Cooper）完成的。许多专家把 VB 的出现当做是软件开发史上的一个具有划时代意义的事件。其实，以我们现在的目光来看，VB1.0 的功能实在是太弱了；（不过最近 V
16、B6.0, VB.NET 的功能相当大！） 。但在当时，它是第一个“可视”的编程软件。这使得程序员欣喜之极，都尝试在 VB 的平台上进行软件创作。微软也不失时机地在四年内接连推出 VB2.0，VB3.0，4.0 三个版本。并且从 VB3 开始，微软将ACCESS 的数据库驱动集成到了 VB 中，这使得 VB 的数据库编程能力大大提高。从 VB4开始，VB 也引入了面向对象的程序设计思想。VB 功能强大，学习简单。而且，VB 还引入了“控件”的概念，使得大量已经编好的 VB 程序可以被我们直接拿来使用。VB1.0的 DOS 版本 VB1.0 于 1991 年发布。这个连接编程语言和用户界面的进步
17、被称为Tripod（有些时候叫做 Ruby） ，最初的设计是由阿兰库珀（Alan Cooper）完成的 【1】 。2002 年 Visual Basic .NET 2002 (v7.0)问世，2003 年 Visual Basic .NET 2003 (v7.1)问世，2005 年 11 月 7 日 Visual Basic 2005 (v8.0)问世，同时间推出 Visual Basic 2005 的免费简化版本 Visual Basic 2005 Express Edition 给 Visual Basic 初学者及学生使用。VB 2005 的“显著”优点是，可以直接编写出 XP 风格的按
18、钮，以及其他的控件。但是其编写的小程序占用近 10MB 的内存。2007 年 12 月,微软推出了Visual Studio 2008 Beta 2 （v9） ，在代码输入上可比 VB2005 快很多,在非特殊的情况下,VB2008 会自动开启、自动完成关键字，而且支持最新的.NET Framework 3.5 Beta 2。通过几年的发展，它已成为一种专业化的开发语言和环境。用户可用 Visual Basic 快速创建 Windows 程序，现在还可以编写企业水平的客户端/服务器程序及强大的数据库应用程序。武汉工程大学邮电与信息工程学院 毕业设计（论文）- 3 -VB 会吸引更多的赞誉和批评
19、，也会继续为广大的用户和程序员使用。它非常适合用来开发拥有友好界面的程序（比如针对终端的数据） ，但是不适合开发其它程序（比如联合计算程序） 。现在还有某一些 VB 软件的精简版，比如 VB6 的精简版。2.2 Visual Basic语 言 特 性VB 的中心思想就是要便于程序员使用，无论是新手或者专家。VB 使用了可以简单建立应用程序的 GUI 系统，但是又可以开发相当复杂的程序。VB 的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面 VB 程序的
20、性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。VB 的程序可以包
21、含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。VB 的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。VB 使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组建的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB 对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能 【2】 。VB 使得大
22、量的外界控件有了自己的生存空间。大量的第三方控件针对 VB 提供。VB 也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。2.3 Visual Basic术 语在讨论 Visual Basic 时，经常可以听到以下这些术语，因此对这些术语的基本理解十分有帮助。武汉工程大学邮电与信息工程学院 毕业设计（论文）- 4 -控件简单的说，控件就是构成或者说建造 Visual Basic 应用程序的图形化工具，包括窗体、按钮、复选框、列表框、数据控件、表格控件和图片控件等等.。事件由用户或操作系统引发的动作。事件的示例有击键、单击鼠标(Click)、双击鼠标(
23、DblClick)、一段时间的限制，或从端口接收数据。方法嵌入在对象定义中的程序代码，它定义对象怎样处理信息并响应某事件。例如，数据库对象有打开纪录集并从一个记录移动到另一个记录的方法程序的基本元素，它含有定义其特征的属性，定义其任务和识别它可以响应的事件的方法。控件和窗体是 Visual Basic 中所有对象的示例 【3】 。对象一个控件、窗体等都可被看作一个对象。过程为完成某些特定的任务而编写的代码段，过程通常用于响应特定的事件，也可以当作应用程序的用户自定义函数来使用。属性属性是组成用户界面的各对象的性质的具体描述。例如上述“对象”中所提到的尺寸、位置、颜色、宽度、高度等等都称为控件的
24、 属性。属性决定对象的外观，有时也决定对象的行为。对象的属性绝大部分是 VB 中已经事先定义好的，但也有的属性是需要在应用 过程中才去定义的。属性即可为对象提供数据，也能从对象取回信息。2.4 VB的局限性VB5 和 VB6 都是面向对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。VB.net 包含了所有面向对象的特性。多线程支持 (VB.Net 2002 以及之后的版本，都支持多线程技术。)异常处理。VB.net 中使用了 Try-Catch-Finally 来处理异常。而 VB 中只有“On Error Goto line“语句 【4】 。对
25、指针的支持非常有限：VB 只能支持 8 到 32 位的整形，很多语言都有无限制的支持。VB 不允许在任何数组内存在不变的变量。VB 不支持以上特性，程序员需要自己建构方法来实现相似的功能武汉工程大学邮电与信息工程学院 毕业设计（论文）- 5 -第三章 数据库设计( mdb )3.1 数据的概念办公软件 Office 套件中，最为广大用户熟悉的是 Word 和 Excel，因为它们功能强大且方便易用，更因为它们不仅可用于办公，还可用于个人写作和家庭记帐理财等。同为 Office 套件中一部分的 Access，虽然有着同样强大的功能，但使用的人却相对少些，不像 Word 和 Excel 那样广泛。
26、事实上，真正用过 Access 的用户，对其强大功能和灵活应用均称赞有加。 Access 数据库管理系统是 Microsoft Office 套件的重要组成部分，适用于小型商务活动，用以存贮和管理商务活动所需要的数据。Access不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单） ，查询，报表和应用程序等。 有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。 Access 一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，
27、每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接） ，以便查询相关联的信息。Access 数据库以文件形式保存，文件的扩展名是 MDB【5】 。 Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。 1. 表(Table)表是数据库的基本对象，是创建其他 5 种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。 2. 数据查询(Query)查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。 3. 数据窗体(Form)窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建
28、子窗体显示相关联的表的内容。窗体也称表单。 数据报表(Report)报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。5. 数据宏(Macro)宏相当于 DOS 中的批处理，用来自动执行一系列操作。Access 列出了一些常用的操作供用户选择，使用起来十分方便。 6. 数据模块(Module)模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块使用 Visual Basic 编程 【6】武汉工程大学邮电与信息工程学院 毕业设计（论文）- 6 -3.2利用 DATA控件访问数据库该软件是利用 ACCESS 数据库，操作方便，简单。在 ACCESS
29、数据库中不需要创建数据连接，因为它是 VB 中默认的数据库形式。这里的数据库采用 Access，用 ADO 作为连接数据对象 【7】 。3.3连接数据在 Visual Basic 环境下，选择“工程”“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.8 Library”，然后单击“确定”按钮，如下图 3.1 所示:图 3.1 引用工程文件3.4引用 ADO连接数据库在程序设计的公共模块中，先定义 ADO 连接对象。语句如下:Public conn As New ADODB.Connection 标记连接对象然后在子程序中，用如下的语句即可
30、打开数据库:Dim connectionstring As Stringconnectionstring = “provider=Microsoft.Jet.oledb.4.0;“ &_“data source= ComputerBookmanage .mdb“conn.Open connectionstring武汉工程大学邮电与信息工程学院 毕业设计（论文）- 7 -第四章 系统设计4.1 系统目标设计通过该汽车维修服务站管理系统，利用计算机软件技术，使得、客户、零件等功能能够有利的结合起来，提高维修服务站效率和效益从而达到提高服务站管理效率的目的。系统开发的总体任务是服务站工作人员可以轻松
31、快捷地完成对账户管理的任务。4.2 开发设计思想本系统开发设计思想：通过完成这个汽车维修服务站管理系统，实现服务站单据、客户、货物管理的稳定性，易操作性，可维护性，安全性等，从而达到提高货物管理效率的目的。可行性分析就是对项目开发的可能性和必要性进行分析，避免盲目投资。主要是必要性分析和效益分析，组织管理可行性分析，建立是否存在否定项目的可能性。服务站管理系统需要投资费用和未来的运营维护费用，尤其投资费用主要包括设备费用，人员费用，材料费用和其他费用，如由于工作方式改变需要增加的其他开支，通常保证新系统运行的可靠性，要求手工和计算机处理在长时间并存。系统的收益主要通过新系统销售来实现，但有些指
32、标也是难以计算的，例如如下指标：1. 单据、客户、配件管理中节省的人力，减轻的劳动强度。2. 降低成本及其他费用。3. 改进薄弱环节，提高工作效率。4. 提高数据处理的及时性和准确性。5. 其他各种有利方面。4.3 系统功能分析系统功能分析是在系统开发的总体任务的基础上完成的。本课题要完成的功能主要有：（1） 信息管理，信息查询，系统管理。（2） 客户信息管理（3） 配件信息管理（4） 客户维修记录单据添加、修改、删除、查找、打印武汉工程大学邮电与信息工程学院 毕业设计（论文）- 8 -（5） 管理人员登陆、密码修改4.4系统功能模块设计华星龙迪汽车维修服务站管理系统登陆界面 密码修改单据录入
33、单据查询客户管理零件管理单据保存单据打印添加修改删除查找打印图 4.1 功能模块单据录入模块：便于新单据各类信息的录入。单据查询模块：用于查询过去但单据，可通过多种方式查找，更加方便快捷的查找出您所需要的信息。客户管理模块：用于客户基本信息的添加、修改、删除、查找、打印。零件管理模块：用于零件基本信息的添加、修改、删除、查找、打印。4.5 数据库需求分析数据库需求分析是数据库结构设计的第一个阶段，是收集基本、数据结构以及数据武汉工程大学邮电与信息工程学院 毕业设计（论文）- 9 -处理的流程。针对本次设计，通过对服务站的内容和数据流程分析，总结以下需求分析：（1） 单据的基本信息（2） 客户的
34、基本信息（3） 零件的基本信息（4） 系统的管理权限通过上述系统功能和需求总结，设计如下所示的数据项和数据结构:单据信息：单据号、单据日期、零件的使用及数量、车牌照、车型客户信息：客户名称、客户电话、客户地址、客户简介零件信息：零件编号、零件名称、零件单价、零件备注访问权限：设置用户名和密码。4.6数据库概念结构设计根据上面的需求分析，得到相应的 E-R 图：“单据信息“实体的 E-R 图如下图 3.2单据号日期车辆牌照车辆型号零件客户单据信息 零件数量图 3.2 单据信息实体 E-R 图“客户信息“实体的 E-R 图如下图 3.3武汉工程大学邮电与信息工程学院 毕业设计（论文）- 10 -客
35、户客户简介客户地址 客户电话客户名称图 3.3 客户信息实体 E-R 图“零件信息“实体的 E-R 图如下图 3.4零件零件编号 零件单价 零件名称零件备注图 3.4 零件信息实体 E-R 图4.7 数据库逻辑结构设计我们需要将上面的数据库概念结构设计转化为 Microsoft Access 2000 数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。“单据信息”表的字段设置如下表 4-1：武汉工程大学邮电与信息工程学院 毕业设计（论文）- 11 -表 4-1 单据信息表字段名 类型 可否为空 默认值 说明单据编号 字符串 否 主索引字段车辆牌照 字符串 否 主索引字段单据日期 日期/时
36、间 否车型 字符串 否零件 字符串 否零件数量 数字 否 两位小数“零件信息”表的字段设置如下表 4-2 ：表 4-2 零件信息表字段名 类型 可否为空 默认值 说明零件编号 字符串 否 主索引字段零件单价 货币 否零件备注 字符串零件名称 字符串 否 主索引字段“客户信息”表的字段设置如下表 4-3 ：表 4-3 客户信息表字段名 类型 可否为空 默认值 说明客户姓名 字符串 否 主索引字段客户电话 数字 否客户简介 字符串客户地址 字符串 否 主索引字段“登陆信息”表的字段设置如下表 4-4：表 4-4 登陆信息表字段名 类型 可否为空 默认值 说明用户名 字符串 否 admin 主索引字
37、段密码 字符串 否然后在相应的表中设置索引字并输入记录。武汉工程大学邮电与信息工程学院 毕业设计（论文）- 12 -第五章 各个功能模块的设计整个软件由十四个窗体模块三个标准模块和两个数据库文件组成。两个数据库文件分别为 data.mdb 和 db1.mdb。data.mdb 相对应的是登陆界面和修改密码界面所用到的数据库，对帐号密码进行验证或修改。db1.mdb 是单据、客户、零件的一个数据库。其他各项界面的操做都离不开这个数据库。三个标准模块中 module1 是对数据库的一个引用。 module2 和 module3 是对各种数值的转换的所建立的两个模块，如对日期的转换，货币大小写的转换
38、等。十四的窗体模块构成了可视化的界面，这十四个界面分别为：登陆界面、密码修改界面、主界面、关于界面、单据录入界面、单据查询界面、单据界面、客户管理界面、零件管理界面、客户查找界面、零件查找界面、客户添加界面、零件添加界面、打印选择界面。这里相对重要的几个界面做简单的介绍。5.1身份验证界面的设计当进入程序以后会弹出登陆界面，这里需要输入帐号和密码。这里的帐号只有默认 admin，无法在此界面新建其他帐号！当帐号与密码相对应的时候点击登陆会弹出主界面且登陆界面关闭，若不对应则会弹出密码错误窗，要求重新输入！如需修改密码，可直接点击“密码修改”按钮进入密码修改界面！如需退出单击“退出”按钮即可！设
39、计“登陆界面”的用户验证界面如下图 5.1 所示。图 5.1 登陆界面相应事件的代码如下：Private Sub Command1_Click()武汉工程大学邮电与信息工程学院 毕业设计（论文）- 13 -If Trim(Text1.Text) = “ ThenMsgBox “用户名不能为空！“, vbInformation, “系统登陆提示“Text1.SetFocus 光标位置Exit SubEnd IfIf Trim(Text2.Text) = “ ThenMsgBox “密码不能为空！“, vbInformation, “系统登陆提示“Text2.SetFocusExit SubEnd
40、 IfSql = “select * from username where 用户名=“ & Trim(Text1.Text) & “Set Rs = ExeSQL(Sql)If Rs.Fields(1) = Trim(Text2.Text) ThenRs.CloseUnload Me 卸载本界面main.Show 显示主程序ElseMsgBox “用户名或密码有误！“, vbInformation, “系统登陆提示“Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Comman
41、d3_Click()F2.ShowUnload MeEnd Sub5.2“密码修改”界面的设计在进入修改页面界面以后，会出现 4 个文本框，对应的分别是帐号、旧密码、新密码和确认新密码。帐号和密码必须对应正确才能进行密码修改。两次输入的新密码必须相同而且不能为空，填写正确以后点击确定可进行密码修改。若输入错误，则会弹出相对应的错误提示窗口！“密码修改”界面如下图所示 5.2：武汉工程大学邮电与信息工程学院 毕业设计（论文）- 14 -图 5.2 密码修改界面相应事件的代码如下：Private Sub Command1_Click()Dim Sql As StringIf Text1.Text
42、= “ ThenMsgBox “帐号不能为空“, vbOKOnly + vbExclamationText1.SetFocusExit SubEnd IfIf Text2.Text = “ ThenMsgBox “旧密码为空“, vbOKOnly + vbExclamationText1.SetFocusExit SubEnd IfIf Text3.Text = “ ThenMsgBox “新密码为空“, vbOKOnly + vbExclamationText2.SetFocusExit SubEnd IfIf Text4.Text = “ ThenMsgBox “校验码为空“, vbOKO
43、nly + vbExclamationText3.SetFocusExit SubEnd IfIf Text3.Text = Text4.Text ThenElse: MsgBox “新密码与校验码不一致“, vbOKOnly + vbExclamation武汉工程大学邮电与信息工程学院 毕业设计（论文）- 15 -Exit SubEnd IfSql = “select * from username where 用户名=“ & Text1.Text & “Set Rs = ExeSQL(Sql)If Rs.Fields(1) Trim(Text2.Text) ThenMsgBox “旧帐号或
44、密码有误“, vbOKOnly + vbExclamationExit SubElseRs.Fields(1) = Trim(Text3.Text)Rs.UpdateRs.RequeryMsgBox “密码修改成功“, vbOKOnly + vbInformationEnd IfRs.CloseF1.ShowUnload MeEnd SubPrivate Sub Command2_Click()F1.ShowUnload MeEnd SubPrivate Sub Form_Load()PasswordClearEnd SubSub PasswordClear() 初始化Text1.Text =
45、 “Text2.Text = “Text3.Text = “End Sub武汉工程大学邮电与信息工程学院 毕业设计（论文）- 16 -5.3主界面的设计单击主界面的中的图片会弹出关于本软件的介绍。主界面上有 5 个按钮点击按钮分别进入相对应的界面且主界面不会退出，只有单击“退出”按钮后才会退出主界面。设计主界面如下图 5.3：图 5.3 主界面相应事件代码如下：Private Sub Form_Click()andyou.ShowEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
46、 Y As Single)For i = 0 To 4Image1(i).Visible = FalseImage2(i).Visible = FalseImage3(i).Visible = TrueNext i武汉工程大学邮电与信息工程学院 毕业设计（论文）- 17 -End SubPrivate Sub Form_Load()Timer1.Interval = 1000Timer1.Enabled = TrueSet db = OpenDatabase(App.Path & “db1.mdb“)ldpic Image1(0), “input.gif“ldpic Image1(1), “d
47、jcx.gif“ldpic Image1(2), “khgl.gif“ldpic Image1(3), “ljgl.gif“ldpic Image1(4), “exit.gif“ldpic Image3(0), “input.gif“ldpic Image3(1), “djcx.gif“ldpic Image3(2), “khgl.gif“ldpic Image3(3), “ljgl.gif“ldpic Image3(4), “exit.gif“For i = 0 To 4ldpic Image2(i), “shadow.gif“Next iMe.ShowDim bTD As Booleanb
48、TD = CBool(GetSetting(App.EXEName, “Option“, “Today“, 0)If bTD = False Thenandyou.Show 1End IfEnd SubPrivate Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)Image3(Index).Visible = TrueImage2(Index).Visible = FalseImage1(Index).Visible = FalseEnd
49、SubPrivate Sub Image1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)Image2(Index).Visible = TrueImage1(Index).Visible = TrueImage3(Index).Visible = FalseSelect Case Index武汉工程大学邮电与信息工程学院 毕业设计（论文）- 18 -Case 0Form1.Show (1)Case 1Form3.Show (1)Case 3ljgl.Show (1)Case 4EndCase 2khgl.Show (1)End SelectEnd SubPrivate Sub Image3_MouseMove(Index As Integer, Button As Integer, Shift As Integer,
