《计算机科学与技术毕业设计.doc》由会员分享，可在线阅读，更多相关《计算机科学与技术毕业设计.doc（50页珍藏版）》请在三一办公上搜索。
1、J I A N G S U U N I V E R S I Y本 科 毕 业 论 文 公路路政管理信息系统 Highway G Management Information System专 业： 计算机科学与技术 班 级： 04计本（4） 姓 名： 谢 立 人 指导教师姓名： 王新胜、巫宗宾 指导教师职称： 副教授、助教 2008年6 月公路路政管理信息系统专业班级：04计算机（4）班 学生姓名：谢立人指导教师：王新胜、巫宗宾 职称：副教授、助教【摘要】文章以某公路路政管理为例，对公路路政管理系统的设计与应用进行研究，旨在通过公路路政管理系统提高内部公路和桥梁的利用率及实现其最大的经济效益。文
2、中首先对公路路政管理的现状及其重要性进行了分析，提出设计公路路政管理信息系统的必要性与可行性。其次针对该日常业务流程，分析数据来源及数据处理流程，并根据收集到的资料设计适合该校的日常公路路政管理系统。最后，文章对系统的设计实现过程进行了阐述，同时简述了实现系统时的过程及注意事项，并提出其可维护性。【关键词】公路路政管理、系统分析、Visual Basic 6.0、accessHighway G Management Information System【Abstract】 Based on a highway bridge management as an example, the highw
3、ay bridge management system design and application of research, aimed at improving roads and bridges management system within the utilization of highway bridges and achieve its greatest economic benefits. In the first highway bridge on the management of the status quo and its importance to the analy
4、sis, management information systems highway bridge the necessity and feasibility. Second for the day-to-day business processes, analysis of data sources and data processing, and in accordance with the design of the information collected for the schools day-to-day highway bridge management system. Fi
5、nally, the article on the system design and implementation process were also discussed, briefly described the process of realization of the system and pay attention to issues and put forward its maintainability.【Key Word】Highway G management, systems analysis，Visual Basic 6.0、access 目 录第一章、绪论411系统开发
6、的背景412课题中涉及的相关技术及概念4第二章、系统开发的目的、意义6第三章、系统开发的要求831公路路政与配置832所用的开发软件、应用软件平台及语言8第四章、系统的功能特点941系统的功能942系统的组成结构及其流程图9第五章、结构设计1151系统开发的思想及原则1152系统软件的结构设计12第六章、详细设计1661界面设计1662代码设计18第七章、系统评价3771系统测试3772系统的特点3773 系统总结37致谢38参考文献39第一章 绪 论11系统开发的背景目前国内公路桥梁管理不规范。大多数公路桥梁的管理办法是建设完毕以后，将其相关档案存档。但是以后信息基本就没人维护，即公路桥梁跟
7、踪信息不能及时体现在公路路政档案上。本系统针对此缺陷而设计，完整了国内对公路和桥梁的管理需要。本系统将会提高办公效率和公路路政信息可靠性，提高的现代化管理水平。这就是本论文写作的背景和立题意义所在。12课题中涉及的相关技术及概念121相关技术系统采用了先进的access数据库技术，面向对象的编程方法学以及软件工程方法学122Visual Basic概念简介visual Basic 6.0中文版是一种应用程序开发工具。Visual Basic 6.0是在原有的Basic语言的基础上的进一步发展，他包含了数百条语句。函数及关键词，其中很多与Windows GUI有直接的关系。Visual Basi
8、c 语言简单易学，只要稍有语言基础就可以很快的掌握并进而精通。可视化的用户界面设计功能，把程序设计人员从繁琐复杂的截面设计中解脱出来；可视化编程环境的“所见即所得（WYSIWYG）”功能，是界面设计如积木游戏一般，编程变成了一种享受；强大的多媒体功能可轻而易举地开发出集声音，动画，影像和图片于一体的多媒体应用程序；新增的网络功能提供了编写Internet程序的能力。Visual Basic 6.0 还支持用户自己开发ActiveX控件和制作ActiveX文档。VB的基本特点有两个：1） VB提供可视化的编程工具2） VB向程序员提供图形对象（窗体，控件，菜单等）进行应用程序的界面设计，应用程序
9、的界面相当于用工具画出来的，大大简化了程序员的编程工作。3） 程序采取“事件驱动”方式4） VB改变了程序的机制，没有传统意义上的主程序，使程序执行的基本方法是有“事件”来驱动子程序（或过程）的运行，如用鼠标点击命令按扭，就产生了一个命令按扭的“单击事件”，响应的执行一段程序（事件过程：Command1_Click()）。5） 为什么要选择VB6.06） 微软Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程
10、，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。第二章 系统开发的目的和意义目前公路桥梁自动化管理水平不是很高，某些使用公路桥梁管理系统的单位，对公路桥梁的跟踪信息即使能体现在公路桥梁档案上，但公路桥梁的缺陷处理及公路桥梁缺陷等功能没有实施。整个公路桥梁管理信息化仍处于较低水平。将管理任务分成小块，落实到个人并能随时查询公路桥梁当前情况和历史情况，对公路桥梁的可靠性分析有直接作用，使管理人员从手工计算、统计工作中解脱出来。现在，科学技术的飞速发展把人类社会推向了一个崭新的时代信息时代。这已是无可争议的事实；信息对社会经济发展的巨大推动作用，使其与物质能源
11、一起并列为现代社会的三大支柱，这已在全社会达到共识。随着对信息作为一种资源来管理的需求日益加强，信息研究领域出现了一种新的管理思想和模式信息管理。因此，就诞生了“信息管理”这样一个概念。由于信息是普遍存在的，人类信息管理活动的范围也是十分广泛的，信息管理不仅是信息工作的一部分，而且已被认为是现代管理的重要组成部分。信息管理的概念源于西方，也是在世界信息量迅速增长、信息技术日新月异、信息产业强劲发展的六七十年代出现的。时至今日，信息管理已不仅仅是一个概念，而是信息学和管理学中的重要内容了。对信息管理的理解，一种认为是，信息管理 就是对信息的管理。在此，信息管理是指狭义的信息资源管理，实际上就是对
12、信息本身的管理；另一种认为，信息管理不仅是对信息的管理，而是对涉及信息活动的各种要素，如信息、技术、人员、组织进行合理的组织和有效的控制，从而满足社会的信息需求。在此，信息管理是指广义的信息资源管理。综合两种理解，信息管理是指对人类信息活动所产生的社会信息进行管理，信息管理是管理的一种，既要对信息进行管理，也要对信息活动进行管理。信息和信息活动都是信息管理的客体。简而言之，信息管理就是对信息和信息活动的管理，这就是我们对信息管理的全面理解。世界经济发展已进入一个激烈竞争的年代，可以说，谁先获得信息，谁就有可能抓住发展经济的机遇。同样，谁能很好地管理和利用信息，谁就有可能占领市场，获得效益。国内
13、外大量事实已说明：在目前这个激烈竞争的市场经济中，谁的信息管理现代化水平高，谁重视信息资源的开发和利用，谁就能抓住机遇，在竞争中取胜。本信息管理系统合理的某些企业公路桥梁管理现状，并通过对各行业公路桥梁管理情况的长期研究，以灵活、通用为主要设计思想，开发适合于公路桥梁管理的信息系统。使用本系统之后，将会提高办公效率和公路桥梁可靠性，减少工作人员的劳动强度，减少办公耗材，提高的现代化管理水平。做这个课题是为了方便公路桥梁进行统计及管理工作，减少每天需要涉及到的相关工作量，尽可能的提高工作效率，可以节省人力物力的浪费。第三章 系统开发的要求31硬件配置及外设公路桥梁与配置工硬件环境：硬件平台是指开
14、发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的管理系统，因此对计算机硬件的要求不高，比较经济，只要配备如下所示的就可以。内容 最低配置 建议配置主机 P/200 PII/266以上内存 64MB 128MB以上硬盘 10GB 20GB以上显示器 VGA以上 32所用的开发软件、应用软件平台及语言 软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的Windows XP中文专业版和Visual Basic6.0作为开发语言，由于这些软件产品都是Microsoft产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。 VB6.0中文版，它是运
15、行于Windows95和Windows NT平台的32位数据库系统，充分发挥了32位微处理器强大的32位数据处理性能。它功能强大，直观易用，支持客户/服务器结构和面向对象编程，提供多种可视化编程工具，支持最新Internet技术， WWW数据库的设计，最新流行的ActiveX等。 Visual basic 6.0 与其它access 工具可以很好的配合，例如，运用Visual InterDev 创建Web应用程序的开发人员可以很容易地使用Visual Basic 来创建组件。用Visual Basic创建的 ActiveX 控件可以在程序中使用。第四章 系统的功能特点41系统的功能本系统主要完
16、成新增公路路政中公路和桥梁的入库记录、新增公路桥梁的维护、公路桥梁领用登记和维护、公路桥梁使用与维修登记和维护、信息检索、系统管理功能。42系统的组成结构及其流程图本系统主要有以下模块：新增公路桥梁、公路桥梁的信息维护、公路桥梁使用与维修登记和维护、信息检索、系统管理。为了美化系统界面，本系统加上一个图片在主界面上。系统的整体结构如下：管理系统公路管理桥梁管理设备配件管理退出系统图41信息录入流程图：信息录入数据合法否保存到数据库YN非法字符处修改图4-2下面分别论述本系统的各个功能模块的作用：（1）公路桥梁建设管理：本应用模块的主要功能是实现对公路桥梁的入库管理工作，包括记录添加、编辑、删除
17、等操作。（2）公路桥梁维修和使用：本应用模块的主要功能是实现对教学的还库管理工作，包括记录添加、编辑、删除等操作。（3）信息查询：本应用模块集成了本系统的所有数据库文件，可以跟据公路桥梁的编号，名称等进行查询。 （4）退出系统：退出本系统，恢复系统的实始状态。第五章 结构设计51系统开发的思想及原则511、数据库设计概述Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如DBASE，FoxPro，Para
18、dox等，这些数据库格式都可以用Visual Basic编辑和处理。 数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和一直性。同时，一个合理的数据库结构有利于程序的实现。这里选用Access 2000作为后台数据库。 数据库是某个企业、组织或部门所设计的数据的一个综合，它不仅要反映数据本身的内容，而且要反映数据之间的联系。在数据库中用数据模型这个工具来抽象、表示和处理现实世界中的数据和信息。简单地说，数据模型是现实世界的模拟。 512系统的开发的
19、方法在软件的编制当中，各个模块的设计以vb语言实现，采用visual basic6.0开发环境进行编译，数据库的连接采用ADO技术，而数据库部分则由Access2000开发。辅助软件配置：Wiondows2000、Office2000、visual basic6.0。513、系统、可行性分析 可靠性分析概述 可靠性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行，最后完成可行性分析。可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判
20、断它是否可行。(1)可行性分析阶段的主要工作包括以下几个方面：新系统目标可行性分析：分析新系统的目标是否符合某此小发展的需要。社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符合国家法律、政策。技术可行性分析：技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术。管理可行性分析：管理可行性分析主要是分析现行的管理体制和领导是否具有现代化的管理意识和管理水平。、技术可行性分析技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。（1）技术支持：首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。
21、这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。（2）硬件资源：开发管理信息系统所需的硬件资源包含以下两个方面：系统开发人员在管理信息系统的开发过程中所需要的计算机公路桥梁及其有关的外部公路桥梁；管理信息系统开发成功投入使用后，使用单位所应具备的计算机公路桥梁及其有关的外围公路桥梁。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输出公路桥梁，外存储器和联网数据通信公路桥梁的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。（3）软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求：操作系
22、统的选择；编译系统的选择；数据库管理系统的选择；高级编程语言的选择；汉字处理系统的选择；本系统在开发前，与相关的部门的领导和具体的操作人员密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上具有一定的先进性和合理性。52系统软件的结构设计 通过对本系统的详细分析，软件模块结构设计目标如下： 系统主要应完成的功能如下：公路桥梁的建设，公路桥梁的领用，公路桥梁数据记录的维护，数据资料资料的查询，系统管理（包括修改密码及增删用户等）。521、结构设计： 本系统在运行时，可以根据不同的使用需要，选择不同的功能模块进入相当的系统使用；同时，为了方便对系统的快速操作，本系统设
23、计了几个功能集成模块，可以对一些数据进行统一的快速操作；并为了系统的安全考虑，本系统设立了密码修改等功能。总体上来说，本系统属于事务型系统，其系统示意图如下图所示：接受数据登记管理维修管理信息查询退出系统图5-1522系统数据库结构（E-R表示） 为了使E-R图表示得更加清晰，现将E-R图分成实体及其属性图和实体及其联系图。分别如下几个图所示：公路信息公路名称公路编号通车日期所属区域公路级别竣工日期总里程收费站数量公路桥梁入库：图5-2桥梁信息：桥梁信息管理桥梁名称桥梁编号桥梁长度所属公路备注说明所属区域图5-3公路桥梁维修：维修登记维修编号使用情况维修纪录路桥名称维修费用维修日期图5-4本公
24、路桥梁管理系统功能需求可以用二层的IDEF0图来表示。下图是第一层IDEF0图，它表示该系统所需要完成的四大功能：公路桥梁基础信息管理、公路桥梁桥梁管理、公路桥梁维修管理功能。生产工单财务公路运行时间公路信息 公路信息路政基础信息管理桥梁信息公路信息折旧信息 维修科公路开通时间生产工单公路报表打印维修报告公路维修报表维修报告财务设备科图5-5523整个管理系统的流程图否是管理部门录入运行状态信息是否需维修管理各项标准查看故障树，进行破损维修填写破损维修报告生成周期性预防维修计划是否发生破损生成路政计划是否需进行周期性预防维修供应填写预防维修报告报告是是否否结束图5-6第六章 详细设计61界面设
25、计系统的主界面：图6-1新增公路桥梁界面：图6-2公路桥梁信息维护图6-3桥梁登记图6-4桥梁的查询图6-5公路桥梁的使用与维护图6-6公路桥梁的使用与维修信息维护：图6-7公路桥梁信息的查询图6-862代码设计本软件采用面向对象的vb语言，同时结合非过程化语言SQL编写而成。数据库与程序的连接采用微软数据访问组件ADO来实现。 公路桥梁管理信息系统主窗体的实现一个程序的主窗体主要是由窗体、菜单栏、工具栏、状态栏等组成。设计时一般先设计窗体背景和窗体标题。菜单栏主要通过VB中工具菜单项下的菜单编辑器进行设计。状态栏通过设计statusbar控件实现。下面是公路桥梁管理信息系统主窗体的具体步骤：
26、（1）新建一个标准工程，默认名为工程1。在该工程中会自动创建一个窗体，默认名为form1.(2)将form1窗体设为作用中的窗体，然后选取VB菜单中工具菜单项下的菜单编辑器，接着会出现菜单编辑器对话框。如图：图6-9（3）在菜单编辑器中的标题栏内输入菜单项目公路桥梁建设管理，在名称栏内输入x1，然后依次输入新增公路桥梁、公路桥梁信息维护、公路桥梁维修与使用管理、信息查询、退出管理等菜单项，单击确定按钮，菜单即可编辑完成。（4）单击工程菜单下的部件选项，在弹出的列表中选中Microsoft windows common control 6.0选项，然后单击确定按钮，imagelist控件、too
27、lbar控件、statusbar控件将被添加到工具箱中。（5）在form1窗体中放置1个statusbar控件、1个timer控件等。（6）添加如下程序代码。Private Sub Form_Resize()Label1.Left = (Form1.Width - Label1.Width) / 2Label1.Top = Form1.Height / 2End SubPrivate Sub Timer1_Timer()ST.Panels(1).Text = Format(Date, long date) & & TimeEnd SubPrivate Sub Form_Load()ST.Pan
28、els(2).Text = 欢迎使用公路桥梁管理系统End SubPrivate Sub u2_Click()EndEnd SubPrivate Sub xx1_Click()Form3.ShowEnd SubPrivate Sub xx2_Click()Form6.ShowEnd SubPrivate Sub yy1_Click()Form5.ShowEnd SubPrivate Sub yy2_Click()Form8.ShowEnd SubPrivate Sub yy3_Click()Form9.ShowEnd Sub下面介绍公路桥梁管理系统的其他模块的制作步骤：form3的创建，单击添
29、加窗体，得到一个窗体form3，在属性栏caption里面输入新增公路桥梁入库，在窗体中放置7个label控件，7个text控件，二个command控件，二个dtpicker，并分别输入相应的属性值。控件名 属性 属性值text1name 公路桥梁名称text2name 建设人text3name 出产厂家text4name 出厂日期text5name 金额text6name 建设日期text7name 建设数量text8name 公路桥梁编号Command1name 保存到数据库Command2 name 退出流程图：NY开始增加操作是否继续退出图6-10添加如下程序代码：Dim rs As
30、New ADODB.RecordsetDim conn As ADODB.ConnectionPrivate Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入公路桥梁名称, , -提示Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox 请输入公路桥梁建设人, , -提示Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入出产厂家, , -提示Text3.SetFocusExit SubEnd IfIf Text4.Text
31、 = ThenMsgBox 请输入出厂日期Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox 请输入公路桥梁金额, , -提示Text5.SetFocusExit SubEnd IfIf Text6.Text = ThenMsgBox 请输入公路桥梁建设日期Text6.SetFocusExit SubEnd IfIf Text7.Text = ThenMsgBox 请输入建设数量, , -提示Text7.SetFocusExit SubEnd IfIf Text8.Text = ThenMsgBox 请输入公路桥梁编号, , -提示Te
32、xt8.SetFocusExit SubEnd Ifrs.Open select * from cginfo, conn, adOpenKeyset, adLockOptimisticrs.AddNewrs(公路桥梁的名称) = Text1.Textrs(建设人) = Text2.Textrs(出产厂家) = Text3.Textrs(出厂日期) = DTPicker1.Valuers(金额) = Text5.Textrs(建设日期) = DTPicker2.Valuers(建设数量) = Text7.Textrs(公路桥梁编号) = Text8.Textrs(公路桥梁规格) = Text9.
33、Textrs.UpdateText1.Text = Text1.SetFocusText2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = MsgBox 数据已经成功保存到数据库!, , -提示rs.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()DTPicker1.Value = DateDTPicker2.Value = DateSet
34、 conn = New ADODB.Connection Set rs = New ADODB.Recordsetconn.Open Provider=Microsoft.Jet.OLEDB.4.0; & Data Source=sbinfo.mdb; & User Id=admin; & Password=;End SubPrivate Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer)If (KeyCode 57 And KeyCode 190) Or (KeyCode 33 And KeyCode 48) ThenIf Text5.
35、Text Then Text5.Text = Left(Text5.Text, Len(Text5.Text) - 1)MsgBox (公路桥梁金额输入错误,你所输入的数据可能含有非法字符,请重新输入!), , -提示End IfEnd Sub窗体form5，在属性栏caption里面输入公路桥梁使用与维修登记，在窗体中放置6个label控件，5个text控件，2个command控件 , 1个combol ，并分别输入相应的属性值。公路桥梁使用与维修登记如下：控件名 属性 属性值text1 name 公路桥梁编号text2name 使用情况text3 name 维修记录text4 name 维
36、修日期text5 name 维修费用text6 name 公路桥梁编号combolrowsource良/差Command1name保存到数据库Command2name退出NY开始登记是否继续退出流程图：图6-11添加如下程序代码：Dim rs As New ADODB.RecordsetDim conn As ADODB.ConnectionPrivate Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入公路桥梁编号, , -提示Text1.SetFocusExit SubEnd IfIf Combo1.Text = ThenMsgBox 请
37、选择使用情况, , -提示Combo1.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请输入维修记录,若无记录请输入无, , -提示Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox 请输入维修日期,若无维修,请输入无Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox 请输入维修费用,若无费用,则请输入0, , -提示Text5.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox 请
38、输入公路桥梁名称, , -提示Text2.SetFocusExit SubEnd Ifrs.Open select * from wxinfo, conn, adOpenKeyset, adLockOptimisticrs.AddNewrs(公路桥梁编号) = Text1.Textrs(使用情况) = Combo1.Textrs(维修记录) = Text3.Textrs(维修日期) = DTPicker1.Valuers(维修费用) = Text5.Textrs(公路桥梁名称) = Text2.Textrs.UpdateText1.Text = Text1.SetFocusCombo1.Tex
39、t = Text3.Text = Text4.Text = Text5.Text = Text2.Text = MsgBox 数据已经成功保存到数据库!, , -提示rs.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()DTPicker1.Value = DateSet conn = New ADODB.Connection Set rs = New ADODB.Recordsetconn.Open Provider=Microsoft.Jet.OLEDB.4.0; & Data So
40、urce=sbinfo.mdb; & User Id=admin; & Password=;Combo1.AddItem (良)Combo1.AddItem (差)End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text3.SetFocusrs.Open select * from cginfo where 公路桥梁编号= + Trim(Text1.Text), conn, adOpenKeyset, adLockOptimisticIf rs.EOF Then
41、 MsgBox 没有此公路桥梁！, , -提示Else Text2.Text = rs(公路桥梁的名称)End Ifrs.CloseEnd IfEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)If (KeyCode 57) Or (KeyCode 33 And KeyCode 48) ThenIf Text1.Text Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)MsgBox 公路桥梁编号输入错误,该编号仅为数字编号,请重新输入!, , -提
42、示End IfEnd SubPrivate Sub Text2_GotFocus()rs.Open select * from cginfo where 公路桥梁编号= + Trim(Text1.Text), conn, adOpenKeyset, adLockOptimisticIf rs.EOF Then MsgBox 没有此公路桥梁！, , -提示Else Text2.Text = rs(公路桥梁的名称)End Ifrs.CloseEnd SubPrivate Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer)If (KeyCode 57 And KeyCode 190) Or (KeyCode 33 And KeyCode 48) ThenIf Text5.Text Then Text5.Text = Left(Text5.Text, Len(Text5.Text) - 1)MsgBox 维修费用输入错误,你所输入的数据可能含有非法字符,请重新输入!, , -提示End IfEnd Sub窗体form6，在属性栏caption里面输入公路桥梁信息查询维护
