计算机科学与技术毕业设计

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、access highway g management information system 【abstract】 based on a highway bridge management

3、 as an example, the highway 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 it

4、s importance to the analysis, 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 bri

5、dge management system. finally, 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、6.0、access 目目 录录 第一章、绪论第一章、绪论.4 11 系统开发的背景 .4 12 课题中涉及的相关技术及概念 .4 第二章、系统开发的目的、意义第二章、系统开发的目的、意义.6 第三章、系统开发的要求第三章、系统开发的要求.8 31 公路路政与配置 .8 32 所用的开发软件、应用软件平台及语言 .8 第四章、系统的功能特点第四章、系统的功能特点.9 41 系统的功能 .9 42 系统的组成结构及其流程图 .9 第五章、结构设计第五章、结构设计.11 51 系统开发的思想及原则 .11 52 系统软件的结构设计 .12 第六章、详细设计第六章、详细设计.16 61 界面设计 .

7、16 62 代码设计 .18 第七章、系统评价第七章、系统评价.37 71 系统测试 .37 72 系统的特点 .37 73 系统总结 .37 致谢致谢.38 参考文献参考文献.39 第一章 绪 论 11 系统开发的背景 目前国内公路桥梁管理不规范。大多数公路桥梁的管理办法是建设完毕以 后，将其相关档案存档。但是以后信息基本就没人维护，即公路桥梁跟踪信息 不能及时体现在公路路政档案上。 本系统针对此缺陷而设计，完整了国内对公 路和桥梁的管理需要。本系统将会提高办公效率和公路路政信息可靠性，提高 的现代化管理水平。这就是本论文写作的背景和立题意义所在。 12 课题中涉及的相关技术及概念 121

8、相关技术 系统采用了先进的 access 数据库技术，面向对象的编程方法学以及软件工 程方法学 122visual basic 概念简介 visual basic 6.0 中文版是一种应用程序开发工具。visual basic 6.0 是在原有的 basic 语言的基础上的进一步发展，他包含了数百条语句。函数及 关键词，其中很多与 windows gui 有直接的关系。visual basic 语言简单易学， 只要稍有语言基础就可以很快的掌握并进而精通。可视化的用户界面设计功能， 把程序设计人员从繁琐复杂的截面设计中解脱出来；可视化编程环境的“所见 即所得（wysiwyg） ”功能，是界面设计

9、如积木游戏一般，编程变成了一种享受； 强大的多媒体功能可轻而易举地开发出集声音，动画，影像和图片于一体的多 媒体应用程序；新增的网络功能提供了编写 internet 程序的能力。visual basic 6.0 还支持用户自己开发 activex 控件和制作 activex 文档。 vb 的基本特点有两个： 1） vb 提供可视化的编程工具 2） vb 向程序员提供图形对象（窗体，控件，菜单等）进行应用程 序的界面设计，应用程序的界面相当于用工具画出来的，大大简化了程 序员的编程工作。 3） 程序采取“事件驱动”方式 4） vb 改变了程序的机制，没有传统意义上的主程序，使程序执行 的基本方法

10、是有“事件”来驱动子程序（或过程）的运行，如用鼠标点 击命令按扭，就产生了一个命令按扭的“单击事件” ，响应的执行一段 程序（事件过程：command1_click()） 。 5） 为什么要选择 vb6.0 6）微软 visual basic 6.0 是 windows 应用程序开发工具，使 目前最为广泛的、易学易用的面向对象的开发工具。visual basic 提供 了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程 人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的 运行效率和可靠性。故而，实现本系统 vb 是一个相对较好的选择。 第二章 系统开发的目的和意义 目前

11、公路桥梁自动化管理水平不是很高，某些使用公路桥梁管理系统的单 位，对公路桥梁的跟踪信息即使能体现在公路桥梁档案上，但公路桥梁的缺陷 处理及公路桥梁缺陷等功能没有实施。整个公路桥梁管理信息化仍处于较低水 平。将管理任务分成小块，落实到个人并能随时查询公路桥梁当前情况和历史 情况，对公路桥梁的可靠性分析有直接作用，使管理人员从手工计算、统计工 作中解脱出来。 现在，科学技术的飞速发展把人类社会推向了一个崭新的时代信息时 代。这已是无可争议的事实；信息对社会经济发展的巨大推动作用，使其与物 质能源一起并列为现代社会的三大支柱，这已在全社会达到共识。随着对信息 作为一种资源来管理的需求日益加强，信息研

12、究领域出现了一种新的管理思想 和模式信息管理。因此，就诞生了“信息管理”这样一个概念。由于信息 是普遍存在的，人类信息管理活动的范围也是十分广泛的，信息管理不仅是信 息工作的一部分，而且已被认为是现代管理的重要组成部分。信息管理的概念 源于西方，也是在世界信息量迅速增长、信息技术日新月异、信息产业强劲发 展的六七十年代出现的。时至今日，信息管理已不仅仅是一个概念，而是信息 学和管理学中的重要内容了。对信息管理的理解，一种认为是，信息管理 就是 对信息的管理。在此，信息管理是指狭义的信息资源管理，实际上就是对信息 本身的管理；另一种认为，信息管理不仅是对信息的管理，而是对涉及信息活 动的各种要素

13、，如信息、技术、人员、组织进行合理的组织和有效的控制，从 而满足社会的信息需求。在此，信息管理是指广义的信息资源管理。综合两种 理解，信息管理是指对人类信息活动所产生的社会信息进行管理，信息管理是 管理的一种，既要对信息进行管理，也要对信息活动进行管理。信息和信息活 动都是信息管理的客体。简而言之，信息管理就是对信息和信息活动的管理， 这就是我们对信息管理的全面理解。 世界经济发展已进入一个激烈竞争的年代，可以说，谁先获得信息，谁就 有可能抓住发展经济的机遇。同样，谁能很好地管理和利用信息，谁就有可能 占领市场，获得效益。国内外大量事实已说明：在目前这个激烈竞争的市场经 济中，谁的信息管理现代

14、化水平高，谁重视信息资源的开发和利用，谁就能抓 住机遇，在竞争中取胜。 本信息管理系统合理的某些企业公路桥梁管理现状，并通过对各行业公路 桥梁管理情况的长期研究，以灵活、通用为主要设计思想，开发适合于公路桥 梁管理的信息系统。使用本系统之后，将会提高办公效率和公路桥梁可靠性， 减少工作人员的劳动强度，减少办公耗材，提高的现代化管理水平。做这个课 题是为了方便公路桥梁进行统计及管理工作，减少每天需要涉及到的相关工作 量，尽可能的提高工作效率，可以节省人力物力的浪费。 第三章 系统开发的要求 31 硬件配置及外设公路桥梁与配置 工硬件环境：硬件平台是指开发与运行所需要的硬件环境，主 要包括计算机机

15、型及硬件配置。由于本系统是一个小型的管理系统， 因此对计算机硬件的要求不高，比较经济，只要配备如下所示的就 可以。 内容 最低配置 建议配置 主机 p/200 pii/266 以上 内存 64mb 128mb 以上 硬盘 10gb 20gb 以上 显示器 vga 以上 32 所用的开发软件、应用软件平台及语言 软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性 较强的 windows xp 中文专业版和 visual basic6.0 作为开发语言，由于这些软 件产品都是 microsoft 产品，因此彼此之间的兼容性较好，开发出的应用系统 稳定性较高。 vb6.0 中文版，它是

16、运行于 windows95 和 windows nt 平台的 32 位数据 库系统，充分发挥了 32 位微处理器强大的 32 位数据处理性能。它功能强大， 直观易用，支持客户/服务器结构和面向对象编程，提供多种可视化编程工具， 支持最新 internet 技术， www 数据库的设计，最新流行的 activex 等。 visual basic 6.0 与其它 access 工具可以很好的配合，例如，运用 visual interdev 创建 web 应用程序的开发人员可以很容易地使用 visual basic 来创建组件。用 visual basic 创建的 activex 控件可以在程序中使

17、用。 第四章 系统的功能特点 41 系统的功能 本系统主要完成新增公路路政中公路和桥梁的入库记录、新增公路桥梁的 维护、公路桥梁领用登记和维护、公路桥梁使用与维修登记和维护、信息检索、 系统管理功能。 42 系统的组成结构及其流程图 本系统主要有以下模块：新增公路桥梁、公路桥梁的信息维护、公路桥梁 使用与维修登记和维护、信息检索、系统管理。为了美化系统界面，本系统加 上一个图片在主界面上。系统的整体结构如下： 管理系统 公 路 管 理 桥 梁 管 理 设 备 配 件 管 理 退 出 系 统 图 41 信息录入流程图： 图 4-2 下面分别论述本系统的各个功能模块的作用： （1）公路桥梁建设管理

18、：本应用模块的主要功能是实现对公路桥梁的入库 管理工作，包括记录添加、编辑、删除等操作。 （2）公路桥梁维修和使用：本应用模块的主要功能是实现对教学的还库管 理工作，包括记录添加、编辑、删除等操作。 （3）信息查询：本应用模块集成了本系统的所有数据库文件，可以跟据公 路桥梁的编号，名称等进行查询。 （4）退出系统：退出本系统，恢复系统的实始状态。 信息录入 数据合法否 保存到数据库 y n 非法字符处修改 第五章 结构设计 51 系统开发的思想及原则 511、数据库设计概述 visual basic 具有强大的数据库管理功能，利用数据控件和数据库管理窗 口，可以直接建立或处理 microsof

19、t access 格式的数据库，并提供了强大的数 据存储和检索功能。同时，visual basic 还能直接编辑和访问其他外部数据库， 如 dbase，foxpro，paradox 等，这些数据库格式都可以用 visual basic 编辑 和处理。 数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有 着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良 好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和一 直性。同时，一个合理的数据库结构有利于程序的实现。这里选用 access 2000 作为后台数据库。 数据库是某个企业、组织或部门所设计的数据

20、的一个综合，它不仅要反映 数据本身的内容，而且要反映数据之间的联系。在数据库中用数据模型这个工 具来抽象、表示和处理现实世界中的数据和信息。简单地说，数据模型是现实 世界的模拟。 512 系统的开发的方法 在软件的编制当中，各个模块的设计以 vb 语言实现，采用 visual basic6.0 开发环境进行编译，数据库的连接采用 ado 技术，而数据库部分则由 access2000 开发。辅助软件配置：wiondows2000、office2000、visual basic6.0。 513、系统、可行性分析 可靠性分析概述 可靠性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发 从社

21、会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、 不可行，最后完成可行性分析。可行性分析一般可定义为：可行性分析是在建 设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技 术、经济能力的调查，判断它是否可行。 (1)可行性分析阶段的主要工作包括以下几个方面： 新系统目标可行性分析：分析新系统的目标是否符合某此小发展的需要。 社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符 合国家法律、政策。 技术可行性分析：技术可行性分析是根据新系统的目标来衡量是否具备 所需要的技术。 管理可行性分析：管理可行性分析主要是分析现行的管理体制和领导是 否具有现代化

22、的管理意识和管理水平。 、技术可行性分析 5 技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统； 新系统开发人员的数量和水平，即人力资源；硬件和软件资源。 （1）技术支持： 首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。 这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。 （2）硬件资源： 开发管理信息系统所需的硬件资源包含以下两个方面： 系统开发人员在管理信息系统的开发过程中所需要的计算机公路桥梁及 其有关的外部公路桥梁；管理信息系统开发成功投入使用后，使用单位所应 具备的计算机公路桥梁及其有关的外围公路桥梁。对硬件资源进行可行性分 析时主

23、要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以 及输入/输出公路桥梁，外存储器和联网数据通信公路桥梁的配置、功能、效 率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。 （3）软件资源 软件资源的可行性分析主要考虑以下几点是否满足用户的要求： 操作系统的选择； 编译系统的选择； 数据库管理系统的选择； 高级编程语言的选择； 汉字处理系统的选择； 本系统在开发前，与相关的部门的领导和具体的操作人员密切沟通，认 真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程 度上具有一定的先进性和合理性。 52 系统软件的结构设计 通过对本系统的详细分析，软件模

24、块结构设计目标如下： 系统主要应完成的功能如下：公路桥梁的建设，公路桥梁的领用，公路 桥梁数据记录的维护，数据资料资料的查询，系统管理（包括修改密码及增 删用户等） 。 521、结构设计： 本系统在运行时，可以根据不同的使用需要，选择不同的功能模块进入相 当的系统使用；同时，为了方便对系统的快速操作，本系统设计了几个功能集 成模块，可以对一些数据进行统一的快速操作；并为了系统的安全考虑，本系 统设立了密码修改等功能。总体上来说，本系统属于事务型系统，其系统示意 图如下图所示： 图 5-1 522系统数据库结构（e-r 表示） 为了使 e-r 图表示得更加清晰，现将 e-r 图分成实体及其属性图

25、和实体及其 联系图。分别如下几个图所示： 公路桥梁入库： 接受数据 登记管理 维修管理 信息查询退出系统 公路信息 公路名称 公路编号 通车日期 所属区域 公路级别 竣工日期 总里程 收费站数 量 图 5-2 桥梁信息： 图 5-3 公路桥梁维修： 图 5-4 桥梁信息管理 桥梁名称 桥梁编号桥梁长度 所属公路 备注说明 所属区域 维修登记 维修编号 使用情况维修纪录 路桥名称 维修费用 维修日期 本公路桥梁管理系统功能需求可以用二层的 idef0 图来表示。下图是第一 层 idef0 图，它表示该系统所需要完成的四大功能：公路桥梁基础信息管 理、公路桥梁桥梁管理、公路桥梁维修管理功能。 图

26、5-5 公路维修 财务 路政基础 信息管理 公路信息 公路信息 桥梁信息 公路信息 折旧信息 财务 公路 公路运行时间 公路开通时间 生产工单 设备科 维修科 维修报告 报表 维修报告 报表打印 生产工单 523整个管理系统的流程图 图 5-6 否 是 管理部门 录入运行状 态信息 是否需维 修 管理各项标准 查看故障树， 进行破损维修 填写破损 维修报告 生成周期性预 防维修计划 是否发 生破损 生成路政计 划 是否需 进行周期性 预防维修 供应 填写预防 维修报告 报告 是是 否 否 结束 第六章第六章 详细设计详细设计 61 界面设计 系统的主界面： 图 6-1 新增公路桥梁界面： 图

27、6-2 公路桥梁信息维护 图 6-3 桥梁登记 图 6-4 桥梁的查询 图 6-5 公路桥梁的使用与维护 图 6-6 公路桥梁的使用与维修信息维护： 图 6-7 公路桥梁信息的查询 图 6-8 62 代码设计 本软件采用面向对象的 vb 语言，同时结合非过程化语言 sql 编写而成。数 据库与程序的连接采用微软数据访问组件 ado 来实现。 公路桥梁管理信息系统主窗体的实现 一个程序的主窗体主要是由窗体、菜单栏、工具栏、状态栏等组成。设计时 一般先设计窗体背景和窗体标题。菜单栏主要通过 vb 中工具菜单项下的菜单编 辑器进行设计。状态栏通过设计 statusbar 控件实现。 下面是公路桥梁管

28、理信息系统主窗体的具体步骤： （1）新建一个标准工程，默认名为工程 1。在该工程中会自动创建一个窗体， 默认名为 form1. (2)将 form1 窗体设为作用中的窗体，然后选取 vb 菜单中工具菜单项下的 菜单编辑器，接着会出现菜单编辑器对话框。如图： 图 6-9 （3）在菜单编辑器中的标题栏内输入菜单项目公路桥梁建设管理，在名 称栏内输入 x1，然后依次输入新增公路桥梁、公路桥梁信息维护、公路桥梁维 修与使用管理、信息查询、退出管理等菜单项，单击确定按钮，菜单即可编辑 完成。 （4）单击工程菜单下的部件选项，在弹出的列表中选中microsoft windows common contro

29、l 6.0选项，然后单击确定按钮，imagelist 控件、toolbar 控 件、statusbar 控件将被添加到工具箱中。 （5）在 form1 窗体中放置 1 个 statusbar 控件、1 个 timer 控件等。 （6）添加如下程序代码。 private sub form_resize() label1.left = (form1.width - label1.width) / 2 label1.top = form1.height / 2 end sub private sub timer1_timer() st.panels(1).text = format(date, lo

30、ng date) end sub private sub text5_keyup(keycode as integer, shift as integer) if (keycode 57 and keycode 190) or (keycode 33 and keycode 48) then if text5.text then text5.text = left(text5.text, len(text5.text) - 1) msgbox (公路桥梁金额输入错误,你所输入的数据可能含有非法字符,请重 新输入!), , -提示 end if end sub 窗体 form5，在属性栏 cap

31、tion 里面输入公路桥梁使用与维修登记，在 2 窗体中放置 6 个 label 控件，5 个 text 控件，2 个 command 控件 , 1 个 combol ，并分别输入相应的属性值。 公路桥梁使用与维修登记如下： 控件名 属性 属性值 text1 name 公路桥梁编号 text2name 使用情况 text3 name 维修记录 text4 name 维修日期 text5 name 维修费用 text6 name 公路桥梁编号 combolrowsource良/差 command1name保存到数据库 command2name退出 流程图： n y 开始 登记 是否继续 退出 图

32、 6-11 添加如下程序代码： dim rs as new adodb.recordset dim conn as adodb.connection private sub command1_click() if text1.text = then msgbox 请输入公路桥梁编号, , -提示 text1.setfocus exit sub end if if combo1.text = then msgbox 请选择使用情况, , -提示 combo1.setfocus exit sub end if if text3.text = then msgbox 请输入维修记录,若无记录请输入无

33、, , -提示 text3.setfocus exit sub end if if text4.text = then msgbox 请输入维修日期,若无维修,请输入无 text4.setfocus exit sub end if if text5.text = then msgbox 请输入维修费用,若无费用,则请输入 0, , -提示 text5.setfocus exit sub end if if text2.text = then msgbox 请输入公路桥梁名称, , -提示 text2.setfocus exit sub end if rs.open select * from

34、wxinfo, conn, adopenkeyset, adlockoptimistic rs.addnew rs(公路桥梁编号) = text1.text rs(使用情况) = combo1.text rs(维修记录) = text3.text rs(维修日期) = dtpicker1.value rs(维修费用) = text5.text rs(公路桥梁名称) = text2.text rs.update text1.text = text1.setfocus combo1.text = text3.text = text4.text = text5.text = text2.text =

35、 msgbox 数据已经成功保存到数据库!, , -提示 rs.close end sub private sub command2_click() unload me end sub private sub form_load() dtpicker1.value = date set conn = new adodb.connection set rs = new adodb.recordset conn.open provider=microsoft.jet.oledb.4.0; combo1.additem (良) combo1.additem (差) end sub private s

36、ub text1_keydown(keycode as integer, shift as integer) if keycode = 13 then text3.setfocus rs.open select * from cginfo where 公路桥梁编号= + trim(text1.text), conn, adopenkeyset, adlockoptimistic if rs.eof then msgbox 没有此公路桥梁！, , -提示 else text2.text = rs(公路桥梁的名称) end if rs.close end if end sub private su

37、b text1_keyup(keycode as integer, shift as integer) if (keycode 57) or (keycode 33 and keycode 48) then if text1.text then text1.text = left(text1.text, len(text1.text) - 1) msgbox 公路桥梁编号输入错误,该编号仅为数字编号,请重新输入!, , -提示 end if end sub private sub text2_gotfocus() rs.open select * from cginfo where 公路桥梁编

38、号= + trim(text1.text), conn, adopenkeyset, adlockoptimistic if rs.eof then msgbox 没有此公路桥梁！, , -提示 else text2.text = rs(公路桥梁的名称) end if rs.close end sub private sub text5_keyup(keycode as integer, shift as integer) if (keycode 57 and keycode 190) or (keycode 33 and keycode 48) then if text5.text then

39、 text5.text = left(text5.text, len(text5.text) - 1) msgbox 维修费用输入错误,你所输入的数据可能含有非法字符,请重新输 入!, , -提示 end if end sub 窗体 form6，在属性栏 caption 里面输入公路桥梁信息查询维护，在窗 体中放置 1 个 datagrid 控件，1 个 text 控件，4 个 command 控件 , 1 个 adodc ，并分别输入相应的属性值。 仓库公路桥梁信息维护如下： 控件名 属性 属性值 datagridendabled.f. adodcname command1name检索 co

40、mmand2name退出 command3name删除当前修改 command4name保存当前修改 流程图： 图 6-12 新增代码如下： private sub command1_click() if text1.text = then msgbox 请输入公路桥梁编号 text1.setfocus n y 开始 查找/修改/删除记录 是否继续 退出 exit sub end if adodc1.recordsource = select * from cginfo where 公路桥梁编号= + text1.text adodc1.refresh end sub private sub

41、command2_click() unload me end sub private sub command3_click() dim myval as string myval = msgbox(是否确定删除该记录, vbyesno) if myval = vbyes then adodc1.recordset.delete end if end sub private sub command4_click() dim myval as string myval = msgbox(是否保存已经修改的记录, vbyesno) if myval = vbyes then adodc1.recor

42、dset.update end if end sub private sub text1_keyup(keycode as integer, shift as integer) if (keycode 57) or (keycode 33 and keycode 48) then if text1.text then text1.text = left(text1.text, len(text1.text) - 1) msgbox (公路桥梁编号输入错误,该编号仅为数字编号,请重新输入!) end if end sub 窗体 form8 在属性栏 caption 里面输入公路桥梁使用维修信息维

43、护，在 窗体中放置 1 个 datagrid 控件，1 个 text 控件，4 个 command 控件 , 1 个 adodc ，并分别输入相应的属性值 公路桥梁使用维修信息维护： 控件名 属性 属性值 datagriddatagridendabledendabled.f.f. adodcadodcnamename command1name检索 command2name退出 command3name删除当前修改 command4name保存当前修改 流程图： 图 6-13 新增代码如下： private sub command1_click() if text1.text = then ms

44、gbox 请输入公路桥梁编号, , -提示 text1.setfocus exit sub end if adodc1.recordsource = select * from wxinfo where 公路桥梁编号= + text1.text n y 开始 使用维修信息维护 是否继续 退出 adodc1.refresh end sub private sub command2_click() unload me end sub private sub command3_click() dim myval as string myval = msgbox(是否确定删除该记录, vbyesno,

45、 -提示) if myval = vbyes then adodc1.recordset.delete end if end sub private sub command4_click() dim myval as string myval = msgbox(是否保存已经修改的记录, vbyesno, -提示) if myval = vbyes then adodc1.recordset.update end if end sub private sub text1_keyup(keycode as integer, shift as integer) if (keycode 57) or

46、(keycode 33 and keycode 48) then if text1.text then text1.text = left(text1.text, len(text1.text) - 1) msgbox 公路桥梁编号输入错误,该编号仅为数字编号,请重新输入!, , -提示 end if end sub 窗体 form9 在属性栏 caption 里面输入公路桥梁信息查询，在窗体中放 置 3 个 datagrid 控件，1 个 text 控件，2 个 command 控件 , 3 个 adodc ，1 个 combo1 并分别输入相应的属性值 公路桥梁信息查询如下： 控件名 属性

47、 属性值 datagrid1datagrid1 endabledendabled .f.f. datagrid2datagrid2endabledendabled.f.f. datagrid3datagrid3endabledendabled.f.f. combo1combo1rowsourcerowsource公路桥梁编号，公路桥梁名称，公路桥梁编号，公路桥梁名称， 建设人，出产厂家，领取人，领取单位，使用情况，维修记录建设人，出产厂家，领取人，领取单位，使用情况，维修记录 adodc1adodc1 adodc2adodc2 adodc3adodc3 command1name检索 comma

48、nd2name退出 流程图： 图 6-14 新增代码如下 private sub command1_click() if (combo1.text = 公路桥梁编号) or (combo1.text = 公路桥梁名称) or (combo1.text = 建设人) or (combo1.text = 出产厂家) then adodc1.recordsource = select * from cginfo where (cginfo. & combo1.text & like+ %+ + text1.text + +%) adodc1.refresh adodc3.recordsource =

49、 select cginfo.公路桥梁编号 as 公路桥梁编号, wxinfo.公路桥梁名称 as 公路桥梁名称 ,wxinfo.使用情况 as 使用情况,wxinfo. n y 开始 设置查询信息显示查询结果 是否继续 退出 维修记录 as 维修记录,wxinfo.维修日期 as 维修日期,wxinfo.维修费用 as 维修 费用 from cginfo,wxinfo where (wxinfo.公路桥梁编号=cginfo.公路桥梁编号) and (cginfo. & combo1.text & like+ %+ + text1.text + +%) adodc3.refresh exit

50、sub end if if combo1.text = 领取人 or combo1.text = 领取单位 then adodc1.recordsource = select cginfo.公路桥梁编号 as 公路桥梁编号,cginfo.公 路桥梁名称 as 公路桥梁名称,cginfo.建设人 as 建设人,cginfo.出产厂家 as 出产 厂家,cginfo.出厂日期 as 出厂日期,cginfo.金额 as 金额,cginfo.建设日期 as 建 设日期,cginfo.建设数量 as 建设数量 from cginfo,tzinfo where (cginfo.公路桥梁 编号=tzinfo

51、.公路桥梁编号) and (tzinfo. & combo1.text & like+ %+ + text1.text + +%) adodc1.refresh adodc3.recordsource = select wxinfo.公路桥梁编号 as 公路桥梁编号, wxinfo.公路桥梁名称 as 公路桥梁名称 ,wxinfo.使用情况 as 使用情况,wxinfo. 维修记录 as 维修记录,wxinfo.维修日期 as 维修日期,wxinfo.维修费用 as 维修 费用 from tzinfo,wxinfo where (tzinfo.公路桥梁编号=wxinfo.公路桥梁编号) and (tzinfo. & combo1.text & like+ %+ + text1.text + +%) adodc3.refresh exit sub end if if combo1.text = 使用情况 or combo1.text = 维修记录 then adodc1.recordsource = select cginfo.公路桥梁编号 as 公路桥梁编号,cginfo.公 路桥梁名称 as 公路桥梁名称,cginfo.建设人 as 建设人,c