毕业论文-VB6.0+Access工程材料管理系统（附源程序）.doc

北京理工大学现代远程教育 学院毕业设计(论文 第 1 页 摘 要 在工程成本中，工程材料费一般占工程总造价的 70%左右。由于工程材料费用 所占比重很大，就意味者节约材料用量、减少材料的损失和降低材料费用，可以有 效地降低工程成本。随着建筑业地改革与发展，材料管理对企业经济效益地影响已 经越来越得到重视，其中一个行之有效的手段就是：利用计算机技术来提高建筑材 料的科学管理水平、最大限度地发挥企业物资的经济效益。 关键词： 信息技术；Visual Basic；Access；数据库；DBA；JET 全套源程序代码，联系全套源程序代码，联系 153893706153893706 北京理工大学现代远程教育 学院毕业设计(论文 第 2 页 目录 摘摘 要要1 ABSTRACT2 目录目录3 前言前言5 第一章第一章 工程材料管理系统的需求分析工程材料管理系统的需求分析5 1.1 建筑施工企业项目部需要什么样的材料管理软件.5 1.1.1实用性.5 1.1.2易操作性.5 1.1.3先进性.6 1.1.4可维护性.6 1.1.5可升级性.6 1.1.6强大的统计查询、核算、分析功能.6 1.1.7完善的材料价格采集、比选功能.6 1.1.8数据安全性.6 1.2 借助信息技术加强施工企业管理.7 第二章第二章 编程环境的选择编程环境的选择10 2.1 编程工具.10 2.2 关系型数据库的实现.10 2.3 二者的结合（DBA）.10 北京理工大学现代远程教育 学院毕业设计(论文 第 3 页 第三章第三章 系统简介及运行环境系统简介及运行环境11 3.1 系统简介.11 3.1.1 数据维护11 3.1.2出入库管理.11 3.1.3报表输出.11 3.2 系统运行环境.12 第四章第四章 总体设计总体设计13 4.1 系统功能模块图13 4.2.1 数据库设计14 4.2.2 界面设计15 4.2.3 功能设计16 第四章第四章 结论结论32 附录附录33 北京理工大学现代远程教育 学院毕业设计(论文 第 4 页 前言 一个施工企业项目管理的核心是控制进度、质量、成本。三者又是相互影响， 相互促进的。在很长一段时间内，建筑施工企业对进度、质量高度重视但是忽 视对于成本的控制或者没有很好的手段去控制，造成普遍利润水平较低，甚至 亏损的状况，出现 “没活着急，有活更着急 ”的情况。 项目成本控制并不仅是财务部门的工作，要想控制好成本就要从相关业务 入手：材料管理、机械管理、劳务管理、分包管理等；还要注重尽量精细，不 仅通过财务、材料、机械、劳务、分包等部门了解到工程整体成本状况，更要 了解到工程细部成本状况。这样才能为成本控制提供真实准确的数据基础。 工程材料管理系统 通过对工程材料进行科学的分类、实时动态的统计 来提高工程项目中材料的使用率和周转效率，降低工程成本。其最终目标是实 现项目现场及相关企业工程材料管理的科学化、规范化。本系统在单机上运行， 能够满足中、小型施工企业的实际需求。 第一章 工程材料管理系统的需求分析 1.1 建筑施工企业项目部需要什么样的材料管理软件建筑施工企业项目部需要什么样的材料管理软件 目前，市场中已经出现了一些材料管理软件，那么，对于施工项目部来说究竟 需要什么样的材料管理软件呢？ 北京理工大学现代远程教育 学院毕业设计(论文 第 5 页 1.1.11.1.1 实用性实用性 材料管理软件应适合当前施工企业项目部材料管理工作的实际业务流程，能够 满足客户的合理需求，解决实际问题。 1.1.21.1.2 易操作性易操作性 施工企业现场工作人员受客观条件限制，计算机的操作水平有限，如果软件操 作步骤复杂，难于掌握，势必也会影响工作效率，要求材料管理人员在不影响正常 工作的前提下花费很大精力学习软件的使用是不太现实的。因此就要求软件界面直 观，操作简单，容易理解和掌握。 1.1.31.1.3 先进性先进性 企业所选择的材料管理软件不应该仅仅是作为进、销、存工具软件来使用，软 件中应融入先进的材料管理思想，只有这样，才能有助于施工企业项目部提高材料 管理水平。 1.1.41.1.4 可维护性可维护性 不同企业对于材料管理的业务模式、管理机制、岗位设置等是千差万别的，甚 至是在同一企业的不同项目部间都会有所差别，各自有适合本企业的一套管理经验。 这就要求材料管理软件可维护性比较强，具有一定的伸缩性，可以根据不同的业务 需求，来灵活地配置软件系统的模块、功能。 1.1.51.1.5 可升级性可升级性 由于用户需求会发生变化，不可避免的带来软件升级的问题，软件应预留接口， 方便日后升级及软件功能的扩展，满足企业未来发展的需求。 1.1.61.1.6 强大的统计查询、核算、分析功能强大的统计查询、核算、分析功能 材料管理过程中会产生大量的数据，需要相关人员做统计查询、核算、分析工 北京理工大学现代远程教育 学院毕业设计(论文 第 6 页 作，以便实时、动态地监控材料成本的发生，辅助管理层进行决策。材料管理软件 应在这方面提供强大的功能，改变过去手工统计查询的低效率状况。利用软件的统 计、分析功能为企业编制内部材料消耗定额及建立材料价格库提供基础数据，指导 企业投标。 1.1.71.1.7 完善的材料价格采集、比选功能完善的材料价格采集、比选功能 软件应该提供多种途径帮助用户实时采集材料市场价格，进行价格比较，使用 户购买到质优价廉的材料，降低采购成本。 1.1.81.1.8 数据安全性数据安全性 在实现信息化管理过程中，数据安全性显得尤为重要。如果软件的数据安全性 得不到保障，一旦遇到突发情况，如断电、操作系统崩溃、电脑病毒等，用户辛辛 苦苦建立起的重要数据信息无法得到恢复，那损失将是惨重的。因此，软件应具有 较高的数据安全策略，提供数据实时备份与恢复功能，用来保证数据安全。 基于以上的选择标准，施工企业一定能够优选出适合本企业施工项目部使用的 材料管理软件系统，从而加快工作效率，规范材料管理制度，控制和节约材料成本， 最终提高项目部的材料管理水平。 1.2 借助信息技术加强施工企业管理借助信息技术加强施工企业管理 当前，建筑市场逐渐规范，施工企业间的激烈竞争、市场覆盖区域的逐渐扩大； 再加上工程建设周期的缩短、经济环境的错综复杂等，都使建筑施工企业面临着越 来越大的压力和风险。如何有效的规避风险，加强建筑施工企业的综合素质，提高 企业的竞争力，并在新的市场环境中健康、快速的发展，已成为施工企业管理者不 停思考的课题。 首先，地域间楚河汉界变通途和经济的全球化的趋势越来越明显，地理距离对 北京理工大学现代远程教育 学院毕业设计(论文 第 7 页 施工企业的市场扩张的限制已经越来越小了，各地的施工企业乃至世界的各路诸侯 都在全国范围内不断的扩张、渗透。身处此境，施工企业的组织结构、业务流程、 管理手段、人力资源等方面皆面临着前所未有的冲击和挑战。 其次，进入新的经济时代以来，施工企业间的竞争正在转化为基于企业核心能 力的竞争。麦肯锡咨询公司曾对核心竞争力的定义：一个组织内部将具有互补性的 技术和知识进行整合，使得组织内的一项业务或者多项业务能够成为竞争行业的领 先者，具有明显优势，这便叫核心竞争力。施工企业现都面临着互补性知识间整合 的问题，新知识的掌握和应用正成为企业构筑这种核心竞争力的焦点。 同时，在整合之际，也为企业的发展和壮大提供了难得的机遇。正如达尔文的 进化论曾指出的那样：能够在不断变化的环境中生存下来的生物，不是那些最强大 或最凶猛的动物，而是那些最能适应变化的动物。企业的兴与衰也是如此，诸多企 业在市场竞争中的此消彼长就印证了这个道理：谁主动应对、主动变革，谁就能基 业常青；谁漠视变化、不善应对，则在市场竞争中谁就会陷入越来越被动的境地。 环顾全国范围乃至世界范围内的成功企业，他们共同的特点就是一直不断的审 视和改进自身的业务流程；不断的发展员工的技能和能力；不断的将新技术应用到 所在领域中，并向管理广度和深度进军，从而持续提高企业的工作效率，并最终获 得竞争优势。从过去到今天，施工企业对于提高运作效率和经营效益的追求一直没 有改变过。保证施工项目运作效率的是业务流程及相应的组织架构，监控和反映经 营效益的是会计体系和绩效管理机制，而能支撑企业这些业务活动的正是企业的信 息管理系统，如图 0-1 所示。 北京理工大学现代远程教育 学院毕业设计(论文 第 8 页 迅猛发展的信息技术给社会的发展带来了巨大的能量，有效的推动了社会的进 步，已经或正在改变着我们的工作、学习、生活和思想。信息技术在社会各个领域 的广泛应用，实际上就是信息系统的应用。使用信息系统完善和加强传统的管理方 式，重新认识和再造各种企业原有的业务流程，成为了企业在激烈的市场竞争中取 胜的战略手段。 信息管理系统的概念示意如图 0-2 所示。从组织的角度看，信息管理系统是组 织的一个组成部分或是组织的自然延伸；从管理的角度看，信息管理系统是企业的 管理人员应对市场环境的一种解决方案；从技术的角度看，信息管理系统实际上是 企业组织的管理人员为了解决面临的各种问题而采用的一种集成了计算机硬件和软 北京理工大学现代远程教育 学院毕业设计(论文 第 9 页 件的工具。 信息管理系统的应用，目前在我国的建筑行业还处于起步阶段，要谨慎对待 “全面建设、一步到位”的做法。其他行业初期建设信息化管理系统时给我们留下 了很多可供借鉴的经验和教训。面对复杂问题，寄希望于捷径，往往会进入雷区， 欲速而不达。因为，一个企业全体员工的意识、技能都不是一朝一夕就可具备的， 需要培育、需要发展。企业与周边环境的配套与适应也是重要问题，否则会出现， 一面高精尖、一面小米步枪，在接口处卡脖子的现象。随着问题的积累，甚至会导 致系统被废弃，巨额投资浪费的严重后果。我们要遵循规律，防止陷阱，就要从最 基础、最根本的做起，层层推进，依次改善，最终实现“通过全面应用信息管理系 北京理工大学现代远程教育 学院毕业设计(论文 第 10 页 统，大幅提高企业效益”的目标。 第二章 编程环境的选择 2.1 编程工具编程工具 微软公司的 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广 泛的、易学易用的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控 件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计 过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统 VB 是 一个相对较好的选择。 2.2 关系型数据库的实现关系型数据库的实现 Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存 储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据 表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外， Access 允许创建自定义报表用于打印或输出数据库中的信息。Access 也提供了数 据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网 络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通 北京理工大学现代远程教育 学院毕业设计(论文 第 11 页 用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以 在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 2.3 二者的结合（二者的结合（DBA） 微软的 JET 数据库引擎提供了与数据库打交道的途径，我们是通过它以及 Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access 以及其 他微软的软件产品都是通过共用 JET 数据库引擎，从而给用户提供了丰富的数据类 型。 DATA 控件在数据库中的信息与将信息显示给用户看的 Visual Basic 程序之间 架起了一座桥梁。我们可以设置 DATA 控件的各个属性，告诉它要调用那个数据库 的哪个部分。缺省情况下，DATA 控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的记录集合。DATA 控件还提供了用来浏览不同记录 的各种跳转按钮。将 DATA 控件放置在窗体中之后，我们还必须在该控件与要处理 的数据库之间建立联系。 第三章 系统简介及运行环境 3.1 系统简介系统简介 工程材料管理系统是为了满足广大建筑企业对工程材料的管理需求而开发 的，既能管理普通材料，又能对周转材料进行管理；能够满足对多个仓库材料自动 盘点和按工程项目的材料使用情况进行核算。 系统采用 Visual Basic 6.0 开发，用户权限管理保证了系统与数据的安全。 北京理工大学现代远程教育 学院毕业设计(论文 第 12 页 工程材料管理系统主要包括以下几个方面的功能： 3.1.13.1.1 数据维护数据维护 对系统的用户及权限、材料分类及编码、仓库信息、供应商信息、客户信息等 进行初始化设置。 3.1.23.1.2 出入库管理出入库管理 能够方便地录入和管理出入库各种材料的数据信息。 3.1.33.1.3 报表输出报表输出 能够准确地自动生成仓库材料期段报表。 3.2 系统运行环境系统运行环境 P2 以上微机； 北京理工大学现代远程教育 学院毕业设计(论文 第 13 页 操作系统： 中文 Windows95/98 或以上的版本， 系统要求预装 Office2000 套件中的 Access2000 文字编辑程序； 主 存： 最低 64MB，建议增设到 128MB 以上； 硬盘空间： 剩余空间 100MB 以上； 鼠 标： Microsoft 及其兼容类鼠标。 打 印 机： 支持 Windows95 下的所有打印机 北京理工大学现代远程教育 学院毕业设计(论文 第 14 页 第四章 总体设计 4.14.1 系统功能模块图系统功能模块图 北京理工大学现代远程教育 学院毕业设计(论文 第 15 页 系统设计包括登陆界面设计、数据库设计、主界面设计、菜单设计和功能设计。 北京理工大学现代远程教育 学院毕业设计(论文 第 16 页 功能设计包括输入设计、查询设计。 4.2.14.2.1 数据库设计数据库设计 数据库采用 Access 数据库，使用 VisData 或在 Access 环境中创建数据库 表单： 1.材料分类表 2.库存材料表 3.出库表 4.入库表 5.客户表 6.供应商表 7.员工表 （如图） 北京理工大学现代远程教育 学院毕业设计(论文 第 17 页 （图 1） 4.2.24.2.2 界面设计界面设计 主界面是用户打开系统首先见到的界面，也是进入其他模块的入口。 主界面将常用菜单项设计为工具栏，在工具栏上有项目、出库、入库、报表等 菜单。 主界面运行如下： 北京理工大学现代远程教育 学院毕业设计(论文 第 18 页 （图 2） 实现代码： Private Sub CoolBar1_Resize() MovingText1.Width = CoolBar1.Width End Sub Private Sub MDIForm_Load() Unload FrmSet Unload frmRK Unload frmPrint Unload frmCK Unload FrmHY End Sub Private Sub _Click() frmPrint.Show End Sub Private Sub_Click() frmCK.Show End Sub Private Sub_Click() frmRK.Show End Sub Private Sub _Click() FrmSet.Show End Sub 4.2.34.2.3 功能设计功能设计 项目模块项目模块 北京理工大学现代远程教育 学院毕业设计(论文 第 19 页 项目模块分为员工管理、供应管理、客户管理、材料分类、材料管理五个部分， 用来输入各项信息。 运行界面如下图所示： （图 3） 实现代码： Private Sub asPopup1_Click(Cancel As Boolean) asPopup5.BackColor = pwd=lee1012“ Data1.RecordSource = “ Data1.Refresh Data1.Visible = False Data2.DatabaseName = App.Path pwd=lee1012“ Data2.RecordSource = “ Data2.Refresh Data2.Visible = False Data3.DatabaseName = App.Path pwd=lee1012“ Data3.RecordSource = “ Data3.Refresh Data3.Visible = False Data4.DatabaseName = App.Path pwd=lee1012“ Data4.RecordSource = “ Data4.Refresh Data4.Visible = False Data5.DatabaseName = App.Path pwd=lee1012“ 北京理工大学现代远程教育 学院毕业设计(论文 第 23 页 Data5.RecordSource = “ Data5.Refresh Data5.Visible = False Toolbar5.Buttons(5).Visible = False Toolbar5.Buttons(6).Visible = False End Sub Private Sub Image1_Click() End Sub Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMinimize_Click() Me.WindowState = 1 End Sub Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub 北京理工大学现代远程教育 学院毕业设计(论文 第 24 页 Private Sub imgTitleClose_Click() Unload Me End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Data1.Recordset.MovePrevious If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst End If Case 2 Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End If Case 4 On Error GoTo add_error Data1.Recordset.AddNew Data1.Recordset(“) = Date add_error: If Err.Number = 3426 Then MsgBox “ “ pwd=lee1012“ Data1.RecordSource = “材料分类表“ Data1.Refresh 北京理工大学现代远程教育 学院毕业设计(论文 第 47 页 Data1.Visible = False Data2.DatabaseName = App.Path pwd=lee1012“ Data2.RecordSource = “库存材料表“ Data2.Refresh Data2.Visible = False Data3.DatabaseName = App.Path pwd=lee1012“ Data3.RecordSource = “客户表“ Data3.Refresh Data3.Visible = False Data4.DatabaseName = App.Path pwd=lee1012“ Data4.RecordSource = “员工表“ Data4.Refresh Data4.Visible = False Data5.DatabaseName = App.Path pwd=lee1012“ Data5.RecordSource = “出库表“ Data5.Refresh Data5.Visible = False asPopup4.Enabled = False End Sub 北京理工大学现代远程教育 学院毕业设计(论文 第 48 页 Private Sub Form_Unload(Cancel As Integer) Dim MyStr As String MyStr = “通用库存管理由秦通电子有限公司开发“ MDIFrmMain.MovingText1.MsgChar = MyStr End Sub Private Sub imgTitleClose_Click() Unload Me End Sub Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMinimize_Click() Me.WindowState = 1 北京理工大学现代远程教育 学院毕业设计(论文 第 49 页 End Sub Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub Timer1_Timer() Data2.Recordset.FindFirst “名称 =“ pwd=lee1012“ Data1.RecordSource = “材料分类表“ Data1.Refresh Data1.Visible = False Data2.DatabaseName = App.Path pwd=lee1012“ Data2.RecordSource = “库存材料表“ Data2.Refresh Data2.Visible = False Data3.DatabaseName = App.Path pwd=lee1012“ Data3.RecordSource = “供应商表“ Data3.Refresh Data3.Visible = False Data4.DatabaseName = App.Path pwd=lee1012“ Data4.RecordSource = “员工表“ 北京理工大学现代远程教育 学院毕业设计(论文 第 57 页 Data4.Refresh Data4.Visible = False Data5.DatabaseName = App.Path pwd=lee1012“ Data5.RecordSource = “入库表“ Data5.Refresh Data5.Visible = False asPopup4.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) Dim MyStr As String MyStr = “通用库存管理由秦通电子有限公司开发“ MDIFrmMain.MovingText1.MsgChar = MyStr End Sub Private Sub imgTitleClose_Click() Unload Me End Sub Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me 北京理工大学现代远程教育 学院毕业设计(论文 第 58 页 End Sub Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMinimize_Click() Me.WindowState = 1 End Sub Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub Label4_Click() End Sub Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me 北京理工大学现代远程教育 学院毕业设计(论文 第 59 页 End Sub Private Sub Timer1_Timer() Data2.Recordset.FindFirst “名称 =“ pwd=lee1012“ Data1.RecordSource = “员工表“ Data1.Refresh Data1.Visible = False Data2.DatabaseName = App.Path pwd=lee1012“ Data2.RecordSource = “供应商表“ Data2.Refresh Data2.Visible = False Data3.DatabaseName = App.Path pwd=lee1012“ Data3.RecordSource = “客户表“ Data3.Refresh 北京理工大学现代远程教育 学院毕业设计(论文 第 66 页 Data3.Visible = False Data4.DatabaseName = App.Path pwd=lee1012“ Data4.RecordSource = “材料分类表“ Data4.Refresh Data4.Visible = False Data5.DatabaseName = App.Path pwd=lee1012“ Data5.RecordSource = “库存材料表“ Data5.Refresh Data5.Visible = False Toolbar5.Buttons(5).Visible = False Toolbar5.Buttons(6).Visible = False End Sub Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me 北京理工大学现代远程教育 学院毕业设计(论文 第 67 页 End Sub Private Sub imgTitleMinimize_Click() Me.WindowState = 1 End Sub Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleClose_Click() Unload Me End Sub Private Sub SSTab1_DblClick() End Sub 北京理工大学现代远程教育 学院毕业设计(论文 第 68 页 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 前进 Data1.Recordset.MovePrevious If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst End If Case 2 后退 Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End If Case 4 增加 On Error GoTo add_error Data1.Recordset.AddNew Data1.Recordset(“建户时间“) = Date add_error: If Err.Number = 3426 Then MsgBox “已经使用过添加记录！ 错误：“ & Err & “，“ & Err.Description, 0, “提示“ Unload Me 北京理工大学现代远程教育 学院毕业设计(论文 第 69 页 End If Toolbar1.Buttons(1).Visible = False Toolbar1.Buttons(2).Visible = False Toolbar1.Buttons(4).Visible = False Toolbar1.Buttons(5).Visible = True Toolbar1.Buttons(6).Visible = True Toolbar1.Buttons(7).Visible = False Case 5 确定 On Error GoTo update_error If Text3.Text = “ Then MsgBox “必须填写售电员！“, 0, “提示“ Exit Sub End If Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified update_error: If Err.Number = 3020 Then MsgBox “请先添加记录！ 错误：“ & Err & “，“ & Err.Description, 0, “提示“ Unload Me End If Toolbar1.Buttons(1).Visible = True Toolbar1.Buttons(2).Visible = True 北京理工大学现代远程教育 学院毕业设计(论文 第 70 页 Toolbar1.Buttons(4).Visible = True Toolbar1.Buttons(5).Visible = True Toolbar1.Buttons(6).Visible = True Toolbar1.Buttons(7).Visible = True Case 6 取消 On Error GoTo CanceErr Data1.Recordset.Edit Data1.Recordset.CancelUpdate Toolbar1.Buttons(1).Visible = True Toolbar1.Buttons(2).Visible = True Toolbar1.Buttons(4).Visible = True Toolbar1.Buttons(5).Visible = True Toolbar1.Buttons(6).Visible = True Toolbar1.Buttons(7).Visible = True CanceErr: If Err.Number = 3021 Then MsgBox “没有记录！ 错误：“ & Err & “，“ & Err.Description, 0, “提示“ End If Case 7 删除 On Error GoTo del_error a = MsgBox(“真的删除吗？“, vbExclamation + vbOKCancel + vbApplicationModal, “删除记录“) If a = 1 Then 北京理工大学现代远程教育 学院毕业设计(论文 第 71 页 Data1.Recordset.Delete Data1.Recordset.MoveLast End If If a = 2 Then Exit Sub del_error: If Err.Number = 3426 Then MsgBox “已经全部删除！ 错误：“ & Err & “，“ & Err.Description, 0, “ 提示“ Unload Me End If End Select End Sub Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 前进 Data2.Recordset.MovePrevious If Data2.Recordset.BOF = True Then Data2.Recordset.MoveFirst End If Case 2 后退 Data2.Recordset.MoveNext 北京理工大学现代远程教育 学院毕业设计(论文 第 72 页 If Data2.Recordset.EOF = True Then Data2.Recordset.MoveLast End If Case 4 增加 On Error GoTo add_error Data2.Recordset.AddNew Data1.Recordset(“建户时间“) = Date add_error: If Err.Number = 3426 Then MsgBox “已经使用过添加记录！ 错误：“ & Err & “，“ & Err.Description, 0, “提示“ Unload Me End If Toolbar2.Buttons(1).Visible = False Toolbar2.Buttons(2).Visible = False Toolbar2.Buttons(4).Visible = False Toolbar2.Buttons(5).Visible = True Toolbar2.Buttons(6).Visible = True Toolbar2.Buttons(7).Visible = False Case 5 确定 On Error GoTo update_error If Text3.Text = “ Then MsgBox “必须填写售电员！“, 0, “提示“ 北京理工大学现代远程教育 学院毕业设计(论文 第 73 页 Exit Sub End If Data2.UpdateRecord Data2.Recordset.Bookmark = Data2.Recordset.LastModified update_error: If Err.Number = 3020 Then MsgBox “请先添加记录！ 错误：“ & Err & “，“ & Err.Description, 0, “提示“ Unload Me End If Toolbar2.Buttons(1).Visible = True Toolbar2.Buttons(2).Visible = True Toolbar2.Buttons(4).Visible = True Toolbar2.Buttons(5).Visible = True Toolbar2.Buttons(6).Visible = True Toolbar2.Buttons(7).Visible = True Case 6 取消 On Error GoTo CanceErr Data2.Recordset.Edit Data2.Recordset.CancelUpdate Toolbar2.Buttons(1).Visible = True Toolbar2.Buttons(2).Visible = True Toolbar2.Buttons(4).Visible = True 北京理工大学现代远程教育 学院毕业设计(论文 第 74 页 Toolbar1.Buttons(5).Visible = True Toolbar2.Buttons(6).Visible = True Toolbar2.Buttons(7).Visible = True CanceErr: If Err.Number = 3021 Then MsgBox “没有记录！ 错误：“ & Err & “，“ & Err.Description, 0, “提示“ End If Case 7 删除 On Error GoTo del_error a = MsgBox(“真的删除吗？“, vbExclamation + vbOKCancel + vbApplicationModal, “删除记录“) If a = 1 Then Data2.Recordset.Delete Data2.Recordset.MoveLast End If If a = 2 Then Exit Sub del_error: If Err.Number = 3426 Then MsgBox “已经全部删除！ 错误：“ & Err & “，“ & Err.Description, 0, “ 提示“ Unload Me End If End Select 北京理工大学现代远程教育 学院毕业设计(论文 第 75 页 End Sub Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 前进 Data3.Recordset.MovePrevious If Data3.Recordset.BOF = True Then Data3.Recordset.MoveFirst End If Case 2 后退 Data3.Recordset.MoveNext If Data3.Recordset.EOF = True Then Data3.Recordset.MoveLast End If Case 4 增加 On Error GoTo add_error Data3.Recordset.AddNew Data1.Recordset(“建户时间“) = Date add_error: If Err.Number = 3426 Then MsgBox “已经使用过添加记录！ 错误：“ & Err & “，“ & Err.Description, 0, “提示“ 北京理工大学现代远程教育 学院毕业设计(论文 第 76 页 Unload Me End If Toolbar3.Buttons(1).Visible = False Toolbar3.Buttons(2).Visible = False Toolbar3.Buttons(4).Visible = False Toolbar3.Buttons(5).Visible = True Toolbar3.Buttons(6).Visible = True Toolbar3.Buttons(7).Visible = False Case 5 确定 On Error GoTo update_error If Text3.Text = “ Then MsgBox “必须填写售电员！“, 0, “提示“ Exit Sub End If Data3.UpdateRecord Data3.Recordset.Bookmark = Data3.Recordset.LastModified update_error: If Err.Number = 3020 Then MsgBox “请先添加记录！ 错误：“ & Err & “，“ & Err.Description, 0, “提示“ Unload Me End If Toolbar3.Buttons(1).Visible = True 北京理工大学现代远程教育 学院毕业设计(论文 第 77 页 Toolbar3.Buttons(2).Visible = True Toolbar3.Buttons(4).Visible = True Toolbar3.