毕业设计（论文）-VB6.0计算机维修管理系统设计.doc

第 - 59 - 页摘 要本系统主要是用于辅助孟家沟港计算机中心对全港计算机的维修进行管理，使得计算机的维修脱离一种散乱的状况。系统使用后，可以对本月各种故障维修进行记录，并可在任何时候对历史维修记录进行统计。另外，在新的维修任务发生时，技术员还可以在历史资料时浏览发生故障的机器的历史维修情况，大大方便了技术员的维修工作。本系统使用目前比较流行的VB6.0编程语言进行编写，开发过程按软件工程的基本要求分为七个步骤，即可行性报告、需求分析、项目开发计划、概要设计、详细设计、测试计划、测试分析报告。在程序开发的过程中，充分使用了VB6.0的优秀控件，例如：ListView、TreeView等控件，使得程序更加贴近系统操作人员。关键词微机管理软件工程VB控件 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目 录绪 论 1第一章 可行性分析报告 21.1引言 21.2可行性研究的前提 21.3技术可行性分析 31.4经济可行性分析 41.5社会因素可行性分析 4第二章 需求分析 5 2.1需求概述 52.2孟家沟港计算机维修管理系统的功能需求 52.3孟家沟港计算机维修管理系统的性能需求 62.4孟家沟港计算机维修管理系统的数据需求 72.4孟家沟港计算机维修管理系统的数据字典 7第三章 概要设计说明书 83.1编写目的 83.2计算机维修流程图 83.3接口设计 93.4数据结构设计10第四章 详细设计说明书 134.1编写目的134.2处理流程134.3总体结构和模块外部设计144.4系统模块功能详细设计15第五章 代码设计215.1系统登录代码215.2系统操作代码265.3维修日志代码285.4机站配置代码475.5故障维修代码47第六章 测试计划 526.1引言526.2计划526.3测试设计说明536.4测试评价准则53第七章 测试分析报告 547.1引言547.2测试概要547.3测试结果567.4软件功能的结论56参考文献57致 谢58绪 论孟家沟港计算机维修管理系统是我在矿大成教院学习四年做为毕业设计独立开发的针对本单位应用的小型数据库管理系统。在开发这个系统的过程中始终得到指导老师的关心和同学们的帮助，使我对三年所学的知识应运到实际开发有了更加深刻的领悟。在开发的过程中，对VB6.0语言进行了大量的学习，这也是我在四年学习后锻炼出的自学能力的体现。从对VB6.0一无所知，到对这门语言的入门与深入，这一切都来自四年学习的积累。衷心的感谢老师们四年来的教导。第一章 可行性分析报告1.1引言1.1.1编写目的可行性研究是在投资之前，对拟议中的建设项目进行全面的综合的技术经济分析和论证，从而为项目投资决策提供可靠依据的一种科学方法。通过可行性研究，分析其中存在的风险，成功的可能性如何，确定该项目是否值得去解决，以减少投资风险。1.1.2项目背景开发软件名称： 孟家沟港计算机维修管理系统项目任务提出者：孟家沟港微机室项目开发者： 孟家沟港微机室用户： 孟家沟港微机室实现软件单位： 孟家沟港项目与其他软件、系统的关系：本项目根据客户的要求采用单机版，工作站操作系统采用WIN98，编程语言采用VISUALBASIC6，数据库采用ACCESS。 1.2可行性研究的前提1.2.1要求主要功能：为孟家沟港计算机维修人员提供维修日志平台，方便日常的计算机维修工作，提高服务质量和工作效率。性能要求：各种维修信息必须准确无误的存储在数据库中，以备日后查验及积累维修经验。输出要求：数据完整、详实。输出要求：方便、快捷、安全、高效。完成期限：预计一个月，即截止2007年5月28日。1.2.2目标：系统运行成功后，有效提高目前孟家沟港微机室的工作质量和工作效率，同时积累大量的维护信息，为今后港口的计算机与网络维护提供相关资料。1.2.3条件、假定和限制建议软件寿命：5年。硬件条件： pc机。运行环境：Windows98数据库：Access投入运行最迟时间：2007/12/281.2.4决定可行性的主要因素成本/效益分析结果：效益大于成本。技术可行度：现有技术可完全承担开发任务。操作可行度：软件能被现有工作人员迅速接受并付诸操作。1.3技术可行性分析1.3.1系统简要描述孟家沟港计算机管理系统主要是在技术员接到报修电话的同时，输入故障信息，打印出故障维修单。根据故障维修单到对应部门的故障设备开展维修工作。维修结束后由部门报修人员签字验收。技术员持故障维修单将故障内容及处理措施输入计算机维修管理系统，由系统统计工时。1.3.2处理流程和数据流程报修故障输入调度员数据库打印维修单给技术员故障维修 单维修情况技术员技术员查询请求图表 1 处理流程和数据流程图1.4经济可行性分析硬件设备由孟家沟港提供软件开发不收费1.5社会因素可行性分析1.5.1法律因素所有软件都选用正版.所有技术资料都由提出方保管。合同制定确定违约责任。1.5.2用户使用可行性本软件的设计开发者同时也是日后的使用者，具有较好的计算机专业知识并对系统极为熟悉。1.5.3结论意见该系统的使用将有效提高孟家沟港计算机管理工作的质量和效率，在工作方式方法等诸多方面形成质的改变。同时，该系统在技术、经济等各方面均有可行性，可以进行开发。第二章 需求分析2.1需求概述为方便管理，节约成本，提高维修效率，孟家沟港微机室需开发本系统。要求系统能有效、快速、安全、无误的完成对计算机故障的记录，回馈信息进行操作，并要求人机界面要清晰，易于操作，利于维护。2.2 孟家沟港计算机管理系统的功能要求（1）计算机设备维修信息的输入和统计 由调度员将故障部门的报修信息输入系统。这部分功能是本系统的基本部分，是后续各步骤的基础。此环节与最终的数据输入属同一操作界面，应提供方便的手工输入方式。（2）故障信息的存储： 调度员将故障部门的故障信息存储到本系统中，在数据库中产生一条记录。（3）故障信息的传递： 将故障信息分派到技术员，并接受技术员反馈的故障信息，然后存储起来。（4）故障维修单的生成和打印： 将已存储的故障报修信息生成故障维修单打印出来交给指派的技术员。（5）故障信息的统计这一功能是在一项项故障维修记录的基础上，根据各项工作的维修情况，进行工时、维修质量等信息的统计。2.3孟家沟港计算机管理系统的性能需求2.3.1系统配置为了保证系统能够长期、安全、稳定、可靠、高效的运行，孟家沟港计算机管理系统将在一部专用管理机上做单机运行，应该满足以下的性能需求：硬件环境：l 处理器：Inter Pentium 或更高。l 内存：128MB。l 硬盘空间：40GB。l 光驱：CDROM 52X。l 显卡：VGA显示适配器。软件环境：l 操作系统：Windows 98/ME/2000/XP/2003。l 数据库：Microsoft Access 2000。2.3.2系统处理的准确性和及时性系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应时间能够满足企业对信息处理的需求。2.3.3系统的开放性和可扩充性孟家沟港计算机管理系统在开发过程中，应该充分考虑未来发展的可扩充性。例如，部门、技术员的变动与更新，查询需求的不断变换与补充等等。所有这些，都要求系统提供足够的手段进行功能的调整和扩充，进一步完善系统的使用。2.3.4系统的标准性系统在设计开发使用过程中要涉及到诸多计算机硬件与软件，因此，在自主开发本系统时，要进行良好的设计工作，制定行之有效的软件工程规范，保证代码的易读性、可操作性和可移植性。2.4孟家沟港计算机系统的数据需求孟家沟港计算机系统的数据需求包括如下几点：2.4.1数据录入和处理的准确性和实时性输入数据的准确性是数据处理的前提。数据的输入来源是手工输入，而手工输入要通过系统界面上的安排，错误的输入会导致系统输出的不正确和不可用，从而使系统的工作失去意义，因此系统应具有较高的容错性。在系统中，数据的输入往往是大量的，因此系统要有迅速处理数据的能力，以保证处理数据的实时性。2.4.2独立性孟家沟港计算机管理系统能够独立运行，不依托其它计算机。2.5孟家沟港计算机管理系统的数据字典表格 1 系统中的数据元素名字：故障信息别名：描述：报修部门提供的故障内容，用于报修部门负责人确认定义：故障信息=报修部门设备名称报修故障 位置：输入到故障报修页名字：维修信息别名：描述：用于记录维修过程定义：维修信息=报修部门设备名称故障原因采取措施位置：输入到维修页第三章 概要设计说明书3.1编写目的本阶段将在系统需求分析的基础上，对孟家沟港计算机管理系统做概要设计，主要解决实现该系统需求的程序模块设计问题。其中包括如何把该系统划分成若干个模块，决定各个模块之间的接口，模块之间传递的信息，以及数据结构、模块结构的设计等问题。以下内容将对在本阶段中,对系统所做的所有概要设计进行详细的说明。在下一阶段的详细设计中，程序设计员可参考此概要设计报告，在概要设计对计算机管理系统所做的模块结构设计的基础上，对系统进行详细设计。在以后的软件测试以及软件维护阶段也可参考此说明书，以便于了解在概要设计过程中所完成的各模块设计结构，或在修改时找出在本阶段设计的不足或错误。3.2计算机维修流程图： 调度员 接电话维修故障记录 11故障信息记录 故障信息 故障信息 维修单1 1 故障部门2 2技术人员 13故障维修记录 调度员 维修信息图表 2 计算机维修流程图3.3接口设计3.3.1外部接口（1） 用户界面在用户界面部分，根据需求分析的结果，需要一个用户友善界面。因此，在界面设计上，首先应做到简单明了、易于操作；在界面布局方面，应突出的显示重要以及出错信息；在外观方面，考虑到用户多对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, 系统主要需要维护以下数据表：表格 2 报修表单维修单号报修部门报修设备报修故障报修单表保存了报修部门的基本报修信息，它的主键为维修单号。表格 3维修信息表维修单号故障原因采取措施表格 4部门资料表部门代号部门名称部门资料表保存目前存在的各部室，它的主键为部门代号表格 5设备信息表设备代号部门名称设备信息表保存各计算机状况，它的内部主键为设备代号。3.4.2物理数据结构设计物理数据结构设计主要是设计数据在模块中的表示形式。数据在模块中都是以结构的方式表示。1 报修单表1 维修单号int2 报修部门int3 报修设备int4 报修故障String2 维修信息表1. 维修单号 int2. 故障原因String3. 采取措施 string3 部门资料表1. 部门代号INT2. 部门名称String4 设备信息表1. 设备代号INT2. 部门名称String第四章 详细设计说明书4.1编写目的在前一阶段（概要设计说明书）中，已解决了实现该系统需求的程序模块设计问题，包括如何把该系统划分成若干个模块、决定各个模块之间的接口、模块之间传递的信息，以及数据结构、模块结构的设计等。在以下的详细设计报告中将对在本阶段中，对系统所做的所有详细设计进行说明。在本阶段中，确定应该如何具体地实现所要求的系统，从而在编码阶段可以把这个描述直接翻译成用具体的程序语言书写的程序。主要的工作有：根据在需求分析说明书中所描述的数据、功能、运行、性能等方面的需求，并依照概要设计说明书所确定的处理流程、总体结构和模块外部设计等，从而进行软件系统的结构设计、逐个模块的程序描述（包括各模块的功能、性能、输入、输出、算法、程序逻辑、接口等等），解决如何接受、输出，以便进行数据库的查询、修改工作。 在以下各个阶段中，用户操作手册将与本阶段的工作紧密结合，努力做到易懂易学，便于客户掌握使用。测试报告和维护报告也将参考本说明书，检验本系统的各项性能指标，及时发现纰漏及时修补，确保计算机管理系统稳定可靠，运行高效，便于维护。4.2处理流程下面将使用（结构化设计）面向数据流的方法对孟家沟港计算机管理系统的处理流程进行分析。管理机上的输入信息为调度员输入的报修故障和技术员反馈的维修情况，还包括自动工时统计的菜单选项。输出内容为打印维修单或维修日志。其内部处理流程如下：462报修故障135维修情况图表 3内部处理流程图下面对各模块（以数字表示）进行功能说明： 1 读入部门报修资料：读取所输入的报修故障。2 检验部门代码：检验格式化输入的部门，并将部门名反馈。3 检验设备代码：检验格式化输入的设备代码，并将设备名反馈。4 打印维修单：根据1产生的数据，打印维修单。5 读入维修信息和报修信息：送数据库存储。6 维修日志查询输出:由5得到数据，供查询打印。4.3 总体结构和模块外部设计计算机管理系统的软件总体结构如下图所示。方框内文字为模块的名字；方框之间的直线表示模块的调用关系。计算机管理系统接收输入数据维修情况确信？报修信息确认？报修信息读入报修信息输入维修情况打印日志确认显示打印维修单确认显示维修日志维修单图表 4系统总体结构图44系统模块功能详细设计441用户登陆模块的设计与实现本模块初始界面及登录界面如图5所示。图表 5用户初始及登录界面其操作如下：点击“孟家沟港计算机维修管理系统”，即进入用户登录窗口。该界面中的“操作员号”及“密码”与用户信息数据表use相关联，在用户凭初始密码进入主界面之后，在操作员号与登录密码和用户数据信息表use中的字段完全一致时，才能进入主界面，否则会如图表5显示的错误信息。当点击确定后，回到登录窗口。如图6所示。图表 6系统主界面系统主界面由：菜单栏、工具栏、状态栏组成，为进入各个模块的入口。4.4.2.维修日志设计与使用维修日志：可以在本模块中添加、修改、删除以及查询维修记录。左边为列表框，方便选择，右边为维修日志详细界面：报修部门、设备编号、完成情况、报修故障；报修日期、报修时间、维修人员、修复日期、修复时间、故障类型、故障原因、故障原因等；采用多种控件（textbox、combox、optionbutton等）。如图表7所示。图表 7报修及维修日志界面44. 3故障统计模块说明 故障统计：实现对计算机日常故障的分类汇总统计。如图表8所示。图表 8故障统计界面4.4.4机站配置模块说明机站配置：实现对各部门硬件配置的管理。如图9所示。图表 9机站配置界面4.4.5 基础档案管理设计说明基础档案管理：包括部门档案、人员档案。如图表10所示。图表 10基础档案管理界面系统退出：退出系统。第五章 代码设计5.1系统登录代码图表 11系统登录界面系统登录界面，验证登陆用户是否合法，用户信息保存在数据表rygl，验证采用把用户信息读取到数据集中，然后和TEXT框内容进行循环比较，这样做可以防止SQL漏洞攻击。实现代码如下：定义数据库连接变量Dim cn As ConnectionDim rs As RecordsetDim i As IntegerPrivate Sub Command1_Click()登陆验证If rs.RecordCount 0 Then rs.MoveFirstDo 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 LoopIf operatorcode = Then 如果找不到弹出对话框 MsgBox 操作员号或密码出错，请重新输入！, vbExclamation, 提示 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2) Else Exit Sub End IfEnd If3次退出If i = 3 Then rs.Close Set rs = Nothing cn.Close Set cn = Nothing EndEnd Ifi = i + 1End SubPrivate Sub Command2_Click()退出Unload MeEnd SubPrivate Sub Form_Activate()自动获得焦点Text1.SetFocusEnd SubPrivate Sub Form_Load()Me.Caption = 孟家沟信息中心微机设备管理系统系统图标Me.Icon = LoadPicture(App.Path & icokey.ico)数据库连接Set cn = New ConnectionSet rs = New RecordsetApp.Path:-取得相对路径cn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & comp_manage.mdb;Persist Security Info=Falsers.CursorLocation = adUseClientrs.CursorType = adOpenKeyset读取人员信息rs.Open select * from rygl , cn, adOpenKeyset, adLockOptimisticDim operatorpass As Stringoperatorpass = operatorname = operatormanage = Falsei = 1End SubPrivate Sub Form_Unload(Cancel As Integer)退出时关闭数据库连接rs.CloseSet rs = Nothingcn.CloseSet cn = NothingEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)回车键 Ascii = 13If KeyAscii = 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)回车键 Ascii = 13If KeyAscii = 13 Then Command1.SetFocusEnd IfEnd Sub5.2系统操作代码图表 12系统操作界面系统主操作界面，实现到各个具体功能模块的入口，由菜单栏、工具栏、状态栏组成；菜单设计采用VB菜单设计器实现，工具栏采用Toolbar控件，工具栏采用StatusBar控件，显示问候文字、当前操作员信息、当前日期、时间，其中当前日期、时间采用Timer控件每1000毫秒刷新。实现代码如下：Private Sub BMBM_Click()部门档案界面F_BMDA.Show 1, MeEnd SubPrivate Sub Form_Load() -初始化信息加载 Me.Caption = 孟家沟信息中心微机设备管理系统 Me.Icon = LoadPicture(App.Path & icoBOOKS04.ICO) StatusBar1.Panels.Item(1).Text = 欢迎使用计算机维修管理系统 StatusBar1.Panels.Item(4).Text = 操作员： & operatorname StatusBar1.Panels.Item(5).Text = & Year(Date) & 年 & Month(Date) & 月 & Day(Date) & 日 StatusBar1.Panels.Item(6).Text = & Format(Time, h时mm分ss秒)End SubPrivate Sub GZTJ_Click()故障统计界面F_GZYJ.Show 1, MeEnd SubPrivate Sub RYDA_Click()人员档案界面F_RYDA.Show 1, MeEnd SubPrivate Sub RZGL_Click()维修日志界面F_WXRZ.Show 1, MeEnd SubPrivate Sub SBCS_Click()End SubPrivate 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 SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)工具栏定义Select Case Button.Key Case 日志管理 Call RZGL_Click Case 故障统计 Call GZTJ_Click Case 机站配置 Call YJPZ_Click Case 系统退出 Call XTTC_ClickEnd SelectEnd SubPrivate Sub XTTC_Click()退出Unload MeEnd SubPrivate Sub YJPZ_Click()硬件配置界面F_YJPZ.Show 1, MeEnd Sub5.3维修日志代码图表 13维修日志界面维修日志：左边为列表框，采用TreeView控件，右边为维修日志详细界面，采用Frame控件分成多个操作区域，并用TabStrip实现维修信息和历史记录的分页显示，录入采用多种控件（textbox、combox、optionbutton等），维修日志存储在数据表wxrz，采用ADO实现对数据库的操作，用Recordset 的AddNew方法实现插入操作，Update提交数据更新，Delete删除数据，代码如下：定义数据库连接变量Dim cn As ConnectionDim rs As RecordsetDim parenttemp As StringDim childtemp As StringPrivate Sub BMPX_Click()If BMPX.Checked = True Then BMPX.Checked = FalseElse BMPX.Checked = TrueEnd IfBXRQ.Checked = FalseXFRQ.Checked = FalseEnd SubPrivate Sub BXRQ_Click()If BXRQ.Checked = True Then BXRQ.Checked = FalseElse BXRQ.Checked = TrueEnd IfBMPX.Checked = FalseXFRQ.Checked = FalseEnd SubPrivate Sub Combo1_Click()Text3(2).Text = Combo1.TextCombo1.Visible = FalseEnd SubPrivate Sub Combo1_LostFocus()Combo1.Visible = FalseEnd SubPrivate Sub Combo2_LostFocus()Combo2.Visible = FalseEnd SubPrivate Sub Combo3_LostFocus()Combo3.Visible = FalseEnd SubPrivate Sub Combo3_click()Text3(1).Text = Mid(Trim(Combo3.Text), 1, 5)Combo3.Visible = FalseEnd SubPrivate 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 .UpdateEnd With刷新列表Call fulltree清框Call cleartextEnd SubPrivate Sub Command2_Click()删除If rs.RecordCount = 1 Then With rs .Delete .Update End With Call fulltreeEnd IfEnd SubPrivate 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 !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 .UpdateEnd WithEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Command5_Click()Call cleartextEnd SubPrivate Sub Form_Load()Dim bmbmrs As Recordset完成情况 Combo1 插入内容Combo1.AddItem 未完成Combo1.AddItem 已完成报修部门 Combo2 插入内容Set cn = New Connectioncn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & comp_manage.mdb;Persist Security Info=FalseSet rs = New Recordsetrs.CursorLocation = adUseClientrs.CursorType = adOpenKeysetrs.Open select * from wxrz , cn, adOpenKeyset, adLockOptimisticrs.MoveFirstSet bmbmrs = New Recordsetbmbmrs.CursorLocation = adUseClientbmbmrs.CursorType = adOpenKeysetbmbmrs.Open select * from bmbm , cn, adOpenKeyset, adLockOptimistica = bmbmrs.RecordCountbmbmrs.MoveFirstDo While Not bmbmrs.EOF Combo2.AddItem bmbmrs!bmm & bmbmrs!bmmc bmbmrs.MoveNextLoopbmbmrs.CloseSet bmbmrs = Nothing刷新列表Call fulltree Text1(1).Text = Format(Date, yyyymmdd) Text1(2) = Format(Time, hh:mm)date1 = DateAdd(d, -2, Date)End SubPrivate Sub Combo2_Click()下拉框选择部门Dim sbdmrs As Recordset根据所选部门 插入设备Combo3Combo3.ClearSet sbdmrs = New Recordsetsbdmrs.CursorLocation = adUseClientsbdmrs.CursorType = adOpenKeysetsbdmrs.Open select * from sbbh where bmm= & Mid(Trim(Combo2.Text), 1, 2) & , cn, adOpenKeyset, adLockOptimisticIf sbdmrs.RecordCount = 0 Then MsgBox 您所选择的部门无计算机或请在机站配置中输入该计算机的信息。, vbInformation,