JSJ06-309@VB计算机维修管理系统设计(源代码+系统)
收藏
资源目录
压缩包内文档预览：(预览前20页/共62页)
编号：507631
类型：共享资源
大小：1.04MB
格式：ZIP
上传时间：2015-11-11
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
JSJ06-309@VB计算机维修管理系统设计(源代码+系统),毕业设计论文
- 内容简介：
-
1、故障报修： 当操作员输入报修部门所报的计算机编号时，计算机将会调出该机的各种参数，包括硬件配置、设置参数以及历史维修记录。 2、计算机归属管理： 将各部室的部门名称在下拉列表中排出，将全港所有计算机在列表中显示，可以按按钮将所选的计算机名添加到所选部室的列表中，这样就将计算机归属到一个部室中。 3、统计： （ 1）软件故障、硬件故障、其他故障的时间及次数 （ 2）统计工时 （ 3） 4、计算机更换 更换后，新机为按地点分配的编号，旧机将改为 bak1,bak2.bakn ，原来与旧机有关的历史记录，硬件 信息都应对应于 bak1,bak2.bakn 。 nts操作员号：05密码：adminnts 摘 要 本系统主要是用于辅助孟家沟港计算机中心对全港计算机的维修进行管理，使得计算机的维修脱离一种散乱的状况。系统使用后，可以对本月各种故障维修进行记录，并可在任何时候对历史维修记录进行统计。另外，在新的维修任务发生时，技术员还可以在历史资料时浏览发生故障的机器的历史维修情况，大大方便了技术员的维修工作。 本系统使用目前比较流行的 VB6.0 编程语言进行编写，开发过程按软件工程的基本要求分为七个步骤，即可行性报告、需求分析、项目开发计划、概要设计、详细设计、测试计划、测试分析报告。 在程序开发的过程中 ，充分使用了 VB6.0 的优秀控件，例如： ListView、TreeView 等控件，使得程序更加贴近系统操作人员。 关键词 微机管理 软件工程 VB 控件 nts ABSTRACT This system primarily is to used for lending support to Meng Jia Gou Port computer centers maintain the proceeding management to the whole port computers.Make computer maintained to escape from a kind of messy condition.The system can maintain to this month every kind of breakdown after using the proceeding records, combining can maintain to the history in any time the record proceeds the covar- iance. Moreover, at maintain the mission occurrence newly, techn- ician can also at history data hour view occurrence the history of the machine of the breakdown maintains the circumstance, consumedly convenient the technician maintains the work. This system usage current compare popular of VB6.0 plait the distance language proceed plait write, develop the basic request that process press software engineering is divided into seven steps, namely possibility report , need analysis , item development plan, essentials design, detailed design, test plan, test analysis repor- t. In procedure develop of process, used the VB6.0 well excellent to control piece, for example:The ListView, etc. of TreeView contr- ols piece, make the procedure come close more the system to operate the personnel. key word the comput management software engineering VB controls piece nts 目 录 绪 论 1 第一章 可行性分析报告 2 1.1 引言 2 1.2 可行性研究的前提 2 1.3 技术可行性 分析 3 1.4 经济可行性分析 4 1.5 社会因素可行性分析 4 第二章 需求分析 5 2.1 需求概述 5 2.2 孟家沟港计算机维修管理系统的功能需求 5 2.3 孟家沟港计算机维修管理系统的性能需求 6 2.4 孟家沟港计算机维修管理系统的数据需求 7 2.4 孟家沟港计算机维修管理系统的数据字典 7 第三章 概要设计说明书 8 3.1 编写目的 8 3.2 计算机维修流程图 8 3.3 接口设计 9 3.4 数据结构设计 10 第四章 详细设计说明书 13 4.1 编写目的 13 4.2 处理流程 13 4.3 总体结构和模块外部设计 14 nts 第 - 2 - 页 4.4 系统模块功能详细设计 15 第五章 代码设计 21 5.1 系统登录代码 21 5.2 系统操作代码 26 5.3 维修日志代码 28 5.4 机站配置代码 47 5.5 故障维修代码 47 第六章 测试计划 52 6.1 引言 52 6.2 计划 52 6.3 测试设计说明 53 6.4 测试评价准则 53 第七章 测试分析报告 54 7.1 引言 54 7.2 测试概要 54 7.3 测试结果 56 7.4 软件功能的结论 56 参考文献 57 致 谢 58 nts 第 - 1 - 页 绪 论 孟家沟港计算机维修管理系统是我 在矿大成教院学习四年做为毕业设计独立开发的针对本单位应用的小型数据库管理系统。在开发这个系统的过程中始终得到指导老师的关心和同学们的帮助，使我对三年所学的知识应运到实际开发有了更加深刻的领悟。 在开发的过程中，对 VB6.0 语言进行了大量的学习，这也是我在四年学习后锻炼出的自学能力的体现。从对 VB6.0 一无所知，到对这门语言的入门与深入，这一切都来自四年学习的积累。 衷心的感谢老师们四年来的教导。 nts 第 - 2 - 页 第一章 可行性分析报告 1.1 引言 1.1.1编写目的 可行性研究是在投资之前， 对拟议中的建设项目进行全面的综合的技术经济分析和论证，从而为项目投资决策提供可靠依据的一种科学方法。通过可行性研究，分析其中存在的风险，成功的可能性如何，确定该项目是否值得去解决，以减少投资风险。 1.1.2项目背景 开发软件名称： 孟家沟港计算机维修管理系统 项目任务提出者：孟家沟港微机室 项目开发者： 孟家沟港微机室 用户： 孟家沟港微机室 实现软件单位： 孟家沟港 项目与其他软件、系统的关系： 本项目根据客户的要求采用单机版，工作站操作系统采用 WIN98，编程语言采用 VISUALBASIC6，数据库采用 ACCESS。 1.2 可行性研究的前提 1.2.1要求 主要功能：为孟家沟港计算机维修人员提供维修日志平台，方便日常的计算机维修工作，提高服务质量和工作效率。 性能要求：各种维修信息必须准确无误的存储在数据库中，以备日后查验及积累维修经验。 nts 第 - 3 - 页 输出要求：数据完整、详实。 输出要求：方便、快捷、安全、高效。 完成期限：预计一个月，即截止 2007 年 5 月 28 日。 1.2.2目标： 系统运行成功后，有效提高目前孟家沟港微机室的工作质量和工作效率，同时积累大量的维护信息，为 今后港口的计算机与网络维护提供相关资料。 1.2.3条件、假定和限制 建议软件寿命： 5 年。 硬件条件： pc 机。 运行环境： Windows98 数据库： Access 投入运行最迟时间： 2007/12/28 1.2.4决定可行性的主要因素 成本 /效益分析结果：效益大于成本。 技术可行度：现有技术可完全承担开发任务。 操作可行度：软件能被现有工作人员迅速接受并付诸操作。 1.3 技术可行性分析 1.3.1系统简要描述 孟家沟港计算机管理系统主要是在技术员接到报修电话的同时，输入故障信息，打印出故障维修单。根 据故障维修单到对应部门的故障设备开展维修工作。维修结束后由部门报修人员签字验收。技术员持故障维修单将故障内容及处理措施输入计算机维修管理系统，由系统统计工时。 1.3.2处理流程和数据流程 nts 第 - 4 - 页 图表 1 处理流程和数据流程图 1.4 经济可行性分析 硬件设备由孟家沟港提供 软件开发不收费 1.5 社会因素可行性分析 1.5.1法律因素 所有软件都选用正版 . 所有技术资料都由提出方保管。 合同制定确定违约责任。 1.5.2用户使 用可行性 本软件的设计开发者同时也是日后的使用者，具有较好的计算机专业知识并对系统极为熟悉。 1.5.3结论意见 该系统的使用将有效提高孟家沟港计算机管理工作的质量和效率，在工作方式方法等诸多方面形成质的改变。同时，该系统在技术、经济等各方调度员 报修故 障输入 打印维修单给技术员 故障维 修 单 技术员 查询请求 数 据 库 技术员 维修情况 nts 第 - 5 - 页 面均有可行性，可以进行开发。 第二章 需求分析 2.1 需求概述 为方便管理，节约成本，提高维修效率，孟家沟港微机室需开发本系统。要求系统能有效 、 快速 、 安全 、 无误的完成对计算机故障的记录，回馈信息进行操作，并要求人机界面要清晰，易于操作，利于维护。 2.2 孟家沟港计 算机管理系统的功能要求 （ 1）计算机设备维修信息的输入和统计 由调度员将故障部门的报修信息输入系统。这部分功能是本系统的基本部分，是后续各步骤的基础。此环节与最终的数据输入属同一操作界面，应提供方便的手工输入方式。 （ 2）故障信息的存储： 调度员将故障部门的故障信息存储到本系统中，在数据库中产生一条记录。 （ 3）故障信息的传递： 将故障信息分派到技术员，并接受技术员反馈的故障信息，然后存储起来。 （ 4）故障维修单的生成和打印： 将已存储的故障报修信息生成故障维修单打印 出来交给指派的技术员。 （ 5）故障信息的统计 这一功能是在一项项故障维修记录的基础上，根据各项工作的维修情nts 第 - 6 - 页 况，进行工时、维修质量等信息的统计。 2.3 孟家沟港计算机管理系统的性能需求 2.3.1系统配置 为了保证系统能够长期、安全、稳定、可靠、高效的运行，孟家沟港计算机管理系统将在一部专用管理机上做单机运行，应该满足以下的性能需求： 硬件环境： 处理器： Inter Pentium 或更高。 内存： 128MB。 硬盘空间： 40GB。 光驱： CD ROM 52X。 显卡： VGA 显示适配器。 软件环境： 操作 系统： Windows 98/ME/2000/XP/2003。 数据库： Microsoft Access 2000。 2.3.2 系统处理的准确性和及时性 系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应时间能够满足企业对信息处理的需求。 2.3.3 系统的开放性和可扩充性 孟家沟港计算机管理系统在开发过程中，应该充分考虑未来发展的可扩充性。例如，部门、技术员的变动与更新，查询需求的不断变换与补充等等。所有这些，都要求系统提供足够 的手段进行功能的调整和扩充，进一步完善系统的使用。 nts 第 - 7 - 页 2.3.4 系统的标准性 系统在设计开发使用过程中要涉及到诸多计算机硬件与软件，因此，在自主开发本系统时，要进行良好的设计工作，制定行之有效的软件工程规范，保证代码的易读性、可操作性和可移植性。 2.4 孟家沟港计算机系统的数据需求 孟家沟港计算机系统的数据需求包括如下几点： 2.4.1数据录入和处理的准确性和实时性 输入数据的准确性是数据处理的前提。数据的输入来源是手工输入，而手工输入要通过系统界面上的安排，错误的输入会导致系统输出的不正确和不可用，从而使 系统的工作失去意义，因此系统应具有较高的容错性。 在系统中，数据的输入往往是大量的，因此系统要有迅速处理数据的能力，以保证处理数据的实时性。 2.4.2独立性 孟家沟港计算机管理系统能够独立运行，不依托其它计算机。 2.5 孟家沟港计算机管理系统的数据字典 表格 1 系统中的数据元素 名字：故障信息 别名： 描述：报修部门提供的故障内容，用于报修部门负责人确认 定义：故障信息 =报修部门设备名称报修故障 位置：输入到故障报修页 名字：维修信息 别名： 描述：用于记录维修过程 定义：维修信息 =报修部门设备名称故障原因采取措施 位置：输入到维修页 nts 第 - 8 - 页 第三章 概要设计说明书 3.1 编写目的 本阶段将在系统需求分析的基础上，对孟家沟港计算机管理系统做概要设计，主要解决实现该系统需求的程序模块设计问题。其中包括如 何把该系统划分成若干个模块，决定各个模块之间的接口，模块之间传递的信息，以及数据结构 、 模块结构的设计等问题。以下内容将对在本阶段中 ,对系统所做的所有概要设计进行详细的说明。 在下一阶段的详细设计中，程序设计员可参考此概要设计报告，在概要设计对计算机管理系统所做的模块结构设计的基础上，对系统进行详细设计。在以后的软件测试以及软件维护阶段也可参考此说明书，以便于了解在概要设计过程中所完成的各模块设计结构，或在修改时找出在本阶段设计的不足或错误。 3.2 计算机维修流程图： nts 第 - 9 - 页 接电话 维修故障记录 故障信息 故障信息 维修单 维修信息 图表 2 计算机维修流程图 3.3 接口设计 3.3.1外部接口 （ 1） 用户界面 在用户界面部分，根据需求分析的结果，需要一个用户友善界面。因此，在界面设计上，首先应做到简单明了、易于操作；在界面布局方面，1 1 故障信息记录 调度员 1 2 技术人员 2 1 故障部门 1 3 故障维修记 录 调度员 nts 第 - 10 - 页 应突出的显示重要以及出错信息；在外观方面，考 虑到用户多对 WINDOWS界面较熟悉，应尽量向这一风格靠拢。在设计语言上，已决定使用 MS VISUAL BASIC6 进行编程，在界面上可使用 VISUAL BASIC6 所提供的可视化组件，向 WINDOWS 风格靠近。在设计上采用下拉式菜单方式，在出错显示上可调用 VISUAL BASIC 的错误提示代码。 总的来说，系统的用户界面应做到可靠性与简单性相结合，易于学习和使用。 （ 2）软件接口 使用 VISUAL BASIC 提供的对式 ACCESS 的接口，进行对数据库的所有访问。 （ 3）硬件接口 在输入方面，对 于键盘 、 鼠标的输入，可用 VISUAL BASIC 的标准输入 /输出，对输入进行处理。 在输出方面，打印机的连接及使用，也可用 VISUAL BASIC 的标准输入 /输出对其进行处理。在网络传输部分，在网络硬件部分，为了实现高速传输，将使用高速 ATM。 3.3.2内部接口 内部接口方面，各模块之间采用函数调用 、 参数传递 、 返回值的方式进行信息传递。具体参数的结构将在下面数据结构设计的内容中说明。接口传递的信息将是以数据结构封装了的数据，以参数传递或返回值的形式在各模块间传输。 3.4 数据结构设计 3.4.1 数据库 数据结构设计 系统采用 ACCESS, 系统主要需要维护以下数据表： nts 第 - 11 - 页 表格 2 报修表单 维修单号 报修部门 报修设备 报修故障 报修单表保存了报修部门的基本报修信息，它的主键为维修单号。 表格 3维修信息表 维修单号 故障原因 采取措施 表格 4部门资料表 部门代号 部门名称 部门资料表保存目前存在的各部室，它的主键为部门代号 表格 5设备信息表 设备代号 部门名称 设备信息表保存各计算机状况，它的内部主键为设备代号。 3.4.2物理数据结构设计 物理数据结构设计主要是设计数据在模块中的表示形式。数据在模块中都是以结构的方式表示。 1 报修单表 1 维修单号 int 2 报修部门 int 3 报修设备 int 4 报修故障 String nts 第 - 12 - 页 2 维修信息表 3 部门资料表 4 设备信息表 1. 维修单号 int 2. 故障原因 String 3. 采取措施 string 1. 部门代号 INT 2. 部门名称 String 1. 设备代号 INT 2. 部门名称 String nts 第 - 13 - 页 第四章 详细设计说明书 4.1 编写目的 在前一阶段（概要设计说明书）中，已解决了实现该系统需求的程序模块设计问题，包括如何把该系统划分成若干 个模块 、 决定各个模块之间的接口 、 模块之间传递的信息，以及数据结构 、 模块结构的设计等。在以下的详细设计报告中将对在本阶段中，对系统所做的所有详细设计进行说明。 在本阶段中，确定应该如何具体地实现所要求的系统，从而在编码阶段可以把这个描述直接翻译成用具体的程序语言书写的程序。主要的工作有：根据在需求分析说明书中所描述的数据、功能、运行、性能等方面的需求，并依照概要设计说明书所确定的处理流程、总体结构和模块外部设计等，从而进行软件系统的结构设计、逐个模块的程序描述（包括各模块的功能、性能、输入、输出、算法 、程序逻辑、接口等等），解决如何接受、输出，以便进行数据库的查询、修改工作。 在以下各个阶段中，用户操作手册将与本阶段的工作紧密结合，努力做到易懂易学，便于客户掌握使用。测试报告和维护报告也将参考本说明书，检验本系统的各项性能指标，及时发现纰漏及时修补，确保计算机管理系统稳定可靠，运行高效，便于维护。 4.2 处理流程 下面将使用（结构化设计）面向数据流的方法对孟家沟港计算机管理系统的处理流程进行分析。 管理机上的输入信息为调度员输入的报修故障和技术员反馈的维修情nts 第 - 14 - 页 况，还包括自动工时统计 的菜单选项。输出内容为打印维修单或维修日志。其内部处理流程如下： 图表 3 内部处理流程图 下面对各模块（以数字表示）进行功能说明： 1 读入部门报修资料：读取所输入的报修故障。 2 检验部门代码：检验格式化输入的部门，并将部门名反馈。 3 检验设备代码： 检验格式化输入的设备代码，并将设备名反馈。 4 打印维修单：根据 1 产生的数据，打印维修单。 5 读入维修信息和报修信息：送数据库存储。 6 维修日志查询输出 :由 5 得到数据，供 查询打印。 4.3 总体结构和模块外部设计 计算机管理系统的软件总体结构如下图所示。方框内文字为模块的名字；方框之间的直线表示模块的调用关系。 1 5 2 3 报修故障 维修情况 4 6 nts 第 - 15 - 页 图表 4 系统总体结构图 4 4 系统模块功能详细设计 4 4 1 用户登陆模块的设计与实现 本模块初始界面及登录界面如图 5 所示。 计算机管理系统 接收输入数据 报修信息确认？ 维修情况确信？ 报修 信息 读入报修信息 输入维修情况 打印日志 确认显示 打印维修单 确认显示 维修日志 维修单 nts 第 - 16 - 页 图表 5用户初始及登录界面 其操作如下： 点击“孟家沟港计算机 维修管理系统”，即进入用户登录窗口。 该界面中的“操作员号”及“密码”与用户信息数据表 use 相关联，在用户凭初始密码进入主界面之后，在操作员号与登录密码和用户数据信息表 use 中的字段完全一致时，才能进入主界面，否则会如图表 5 显示的错误信息。当点击确定后，回到登录窗口。如图 6 所示。 nts 第 - 17 - 页 图表 6 系统主界面 系统主界面由： 菜单栏、工具栏、状态栏组成，为进入各个模块的入口。 4.4.2.维修日志设计与使用 维修日志：可以在本模块中添加、修改、删除以及查询维修记录。 左边为列表框，方便选择，右边为维修日志详细界面：报修部门、设备编号、完成情况、报修故障；报修日期、报修时间、维修人员、修复日期、修复时间、故障类型、故障原因、故障原因等；采用多种控件（ textbox、 combox、optionbutton 等）。如图表 7 所示。 nts 第 - 18 - 页 图表 7报修及维修日志界面 4 4. 3 故障统计模块说明 故障统计：实现对计算机日常故障的分类汇总统计。如图表 8 所示。 图表 8故障统计界面 nts 第 - 19 - 页 4.4.4 机站配置模块说明 机站配置：实现对各部门硬件配置的管理。如图 9 所示。 图表 9机站配置界面 4.4.5 基础档案管理设计说明 基础档案管理：包括部门档案、人员档案。如图表 10 所示。 nts 第 - 20 - 页 图表 10基础档案管理界面 系统退出：退出系统。 nts 第 - 21 - 页 第五章 代码设计 5.1 系统登录代码 图表 11 系统登录界面 系统登录界面，验证登陆用户是否合法，用户 信息保存在数据表 rygl，验证采用把用户信息读取到数据集中，然后和 TEXT 框内容进行循环比较，这样做可以防止 SQL 漏洞攻击。实现代码如下： 定义数据库连接变量 Dim cn As Connection Dim rs As Recordset Dim i As Integer nts 第 - 22 - 页 Private Sub Command1_Click() 登陆验证 If rs.RecordCount 0 Then rs.MoveFirst Do While Not rs.EOF 如果找到操作员姓名和密码都对应的 记录 登陆成功 If Trim(rs!gh) = Trim(Text1) And Trim(rs!oper_pass) = Trim(Text2) Then operatorcode = rs!gh operatorname = rs!oper_name If rs!manager = True Then operatormanage = True Else operatormanage = False End If 退出本窗口，进入主界面 Unload Me main.Show 1, Me Exit Do End If rs.MoveNext Loop If operatorcode = Then 如果找不到弹出对话框 MsgBox 操作员号或密码出错，请重新输入！ , nts 第 - 23 - 页 vbExclamation, 提示 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2) Else Exit Sub End If End If 3 次退出 If i = 3 Then rs.Close Set rs = Nothing cn.Close Set cn = Nothing End End If i = i + 1 End Sub Private Sub Command2_Click() 退出 Unload Me End Sub nts 第 - 24 - 页 Private Sub Form_Activate() 自动获得焦点 Text1.SetFocus End Sub Private Sub Form_Load() Me.Caption = 孟家沟信息中心微机设备管理系统 系统图标 Me.Icon = LoadPicture(App.Path & icokey.ico) 数据库连接 Set cn = New Connection Set rs = New Recordset App.Path:-取得相对路径 cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & comp_manage.mdb;Persist Security Info=False rs.CursorLocation = adUseClient rs.CursorType = adOpenKeyset 读取人员信息 rs.Open select * from rygl , cn, adOpenKeyset, adLockOptimistic Dim operatorpass As String operatorpass = operatorname = operatormanage = False i = 1 nts 第 - 25 - 页 End Sub Private Sub Form_Unload(Cancel As Integer) 退出时关闭数据库连接 rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) 回车键 Ascii = 13 If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) 回车键 Ascii = 13 If KeyAscii = 13 Then Command1.SetFocus End If End Sub nts 第 - 26 - 页 5.2 系统操作代码 图表 12 系统操作界面 系统主操作界面，实现到各个具体功能模块的入口，由 菜单栏、工具栏、状态栏组成；菜单设计采用 VB 菜单设计器实现，工具栏采用 Toolbar控件，工具栏采用 StatusBar 控件，显示问候文字、当前操作员信息、当前日期、时间，其中当前日期、时间采用 Timer 控件每 1000 毫秒刷新。实现代码如下： Private Sub BMBM_Click() 部门档案界面 F_BMDA.Show 1, Me End Sub Private Sub Form_Load() -初始化信息加载 Me.Caption = 孟家沟信息中心微机设备管理系统 Me.Icon = LoadPicture(App.Path & icoBOOKS04.ICO) StatusBar1.Panels.Item(1).Text = 欢迎使用计算机维修管理系统 StatusBar1.Panels.Item(4).Text = 操作员： & operatorname nts 第 - 27 - 页 StatusBar1.Panels.Item(5).Text = & Year(Date) & 年 & Month(Date) & 月 & Day(Date) & 日 StatusBar1.Panels.Item(6).Text = & Format(Time, h 时mm 分 ss 秒 ) End Sub Private Sub GZTJ_Click() 故障统计界面 F_GZYJ.Show 1, Me End Sub Private Sub RYDA_Click() 人员档案界面 F_RYDA.Show 1, Me End Sub Private Sub RZGL_Click() 维修日志界面 F_WXRZ.Show 1, Me End Sub Private Sub SBCS_Click() End Sub Private Sub Timer1_Timer() 状态栏时间显示 StatusBar1.Panels.Item(5).Text = & Year(Date) & 年 & Month(Date) & 月 & Day(Date) & 日 StatusBar1.Panels.Item(6).Text = & Format(Time, h 时mm 分 ss 秒 ) End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 工具栏定义 Select Case Button.Key nts 第 - 28 - 页 Case 日志管理 Call RZGL_Click Case 故障统计 Call GZTJ_Click Case 机站配置 Call YJPZ_Click Case 系统退出 Call XTTC_Click End Select End Sub Private Sub XTTC_Click() 退出 Unload Me End Sub Private Sub YJPZ_Click() 硬件配置界面 F_YJPZ.Show 1, Me End Sub 5.3 维修日志代码 图表 13 维修日志界面 nts 第 - 29 - 页 维修日志：左边为列表框，采用 TreeView 控件，右边为维修日志详细界面，采用 Frame 控件分成多个操作区域，并用 TabStrip 实现维修信息和历史记录的分页显示，录入采用多种控件（ textbox、 combox、 optionbutton等），维修日志存储在数据表 wxrz，采用 ADO 实现对数据库的操作，用Recordset 的 AddNew 方法实现插入操作， Update 提交数据更新， Delete 删除数据，代码如下： 定义数据库连接变量 Dim cn As Connection Dim rs As Recordset Dim parenttemp As String Dim childtemp As String Private Sub BMPX_Click() If BMPX.Checked = True Then BMPX.Checked = False Else BMPX.Checked = True End If BXRQ.Checked = False XFRQ.Checked = False End Sub Private Sub BXRQ_Click() If BXRQ.Checked = True Then BXRQ.Checked = False Else nts 第 - 30 - 页 BXRQ.Checked = True End If BMPX.Checked = False XFRQ.Checked = False End Sub Private Sub Combo1_Click() Text3(2).Text = Combo1.Text Combo1.Visible = False End Sub Private Sub Combo1_LostFocus() Combo1.Visible = False End Sub Private Sub Combo2_LostFocus() Combo2.Visible = False End Sub Private Sub Combo3_LostFocus() Combo3.Visible = False End Sub Private Sub Combo3_click() Text3(1).Text = Mid(Trim(Combo3.Text), 1, 5) Combo3.Visible = False End Sub nts 第 - 31 - 页 Private Sub Command1_Click() 保存新增记录 With rs .AddNew !bxbm = Text3(0).Text !sbbh = Text3(1).Text !wcqk = Text3(2).Text !bxgz = Text3(3).Text !bxsrq = Text3(4).Text !bxsj = Text3(5).Text !xfsrq = Text3(6).Text !xfsj = Text3(7).Text !wxry = Text3(8).Text !wxgs = Val(Text3(9).Text) If Option1.Value Then !gzlx = Option1.Caption Else If Option2.Value Then !gzlx = Option2.Caption Else If Option3.Value Then !gzlx = Option3.Caption End If End If End If !gzyy = Text1.Text !cqcs = Text2.Text .Update nts 第 - 32 - 页 End With 刷新列表 Call fulltree 清框 Call cleartext End Sub Private Sub Command2_Click() 删除 If rs.RecordCount = 1 Then With rs .Delete .Update End With Call fulltree End If End Sub Private Sub Command3_Click() 修改 With rs !bxbm = Text3(0).Text !sbbh = Text3(1).Text !wcqk = Text3(2).Text !bxgz = Text3(3).Text !bxsrq = Trim(Text3(4).Text) !bxsj = Text3(5).Text !xfsrq = Text3(6).Text nts 第 - 33 - 页 !xfsj = Text3(7).Text !wxry = Text3(8).Text !wxgs = Text3(9).Text If Option1.Value Then !gzlx = Option1.Caption Else If Option2.Value Then !gzlx = Option2.Caption Else If Option3.Value Then !gzlx = Option3.Caption End If End If End If !gzyy = Text1.Text !cqcs = Text2.Text .Update End With End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Command5_Click() Call cleartext End Sub nts 第 - 34 - 页 Private Sub Form_Load() Dim bmbmrs As Recordset 完成情况 Combo1 插入内容 Combo1.AddItem 未完成 Combo1.AddItem 已完成 报修部门 Combo2 插入内容 Set cn = New Connection cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & comp_manage.mdb;Persist Security Info=False Set rs = New Recordset rs.CursorLocation = adUseClient rs.CursorType = adOpenKeyset rs.Open select * from wxrz , cn, adOpenKeyset, adLockOptimistic rs.MoveFirst Set bmbmrs = New Recordset bmbmrs.CursorLocation = adUseClient bmbmrs.CursorType = adOpenKeyset bmbmrs.Open select * from bmbm , cn, adOpenKeyset, adLockOptimistic a = bmbmrs.RecordCount bmbmrs.MoveFirst Do While Not bmbmrs.EOF Combo2.AddItem bmbmrs!bmm & bmbmrs!bmmc bmbmrs.MoveNext nts 第 - 35 - 页 Loop bmbmrs.Close Set bmbmrs = Nothing 刷新列表 Call fulltree Text1(1).Text = Format(Date, yyyymmdd) Text1(2) = Format(Time, hh:mm) date1 = DateAdd(d, -2, Date) End Sub Private Sub Combo2_Click() 下拉框选择部门 Dim sbdmrs As Recordset 根据所选部门 插入设备 Combo3 Combo3.Clear Set sbdmrs = New Recordset sbdmrs.CursorLocation = adUseClient sbdmrs.CursorType = adOpenKeyset sbdmrs.Open select * from sbbh where bmm= & Mid(Trim(Combo2.Text), 1, 2) & , cn
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号