毕业设计（论文）-VB+Access仪器库管理系统（附源程序） .doc

《毕业设计（论文）-VB+Access仪器库管理系统（附源程序） .doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）-VB+Access仪器库管理系统（附源程序） .doc（49页珍藏版）》请在三一文库上搜索。

1、北京理工大学现代远程教育 学院毕业设计(论文) 第 1 页 摘 要 随着管理信息系统（MIS）的发展，和相应开发软件的商品化，使得用户不必 大量投资就可以建立一个满意的库存管理系统。国家和社会各界投巨资，建立信息 高速公路，制定了各项政策，鼓励政府、事业和用户部门使用信息高速公路。各部 门只需弄清本部门的需求，制定库存设计方案，自己或请技术部门进行系统设计， 购买有限的设备和应用软件，编制系统运行的规则，培训员工掌握系统的使用，一 个进销存管理系统就初步建成了。购买软件和开发应用程序的投入可以承受的，而 通过库存管理系统运行给用户带来的实际效益大于投资. 关键词： 信息技术；Visual Ba

2、sic；Access；数据库；DBA；JET 全套源程序代码，联系全套源程序代码，联系 153893706153893706 北京理工大学现代远程教育 学院毕业设计(论文) 第 2 页 目录 摘摘 要要1 ABSTRACT2 目录目录3 前言前言5 第一章第一章库存管理系统分析库存管理系统分析.5 1.1 系统分析.5 1.1.1 系统需求5 1.1.2 系统功能5 1.2 借助信息技术加强施工用户管理.5 第二章第二章 计算机系统在当代计算机系统在当代 MIS 中的应用中的应用 7 2.1 MIS 的概念及解释.8 2.1.1 MIS的对象就是信息8 2.1.2 管理信息由信息的采集、信息的

3、传递、信息的储存、信息的加工、信息的维护和信 息的使用五个方面组成。9 2.1.4 系统目标和内容的确立9 2.1.5 按计算机的特点组织系统10 第三章第三章应用系统开发工具应用系统开发工具.11 3.1 实现菜单选项.11 3.2 实现工具栏.11 第四章第四章 系统简介及运行系统简介及运行环环境境12 4.1 系统简介.12 北京理工大学现代远程教育 学院毕业设计(论文) 第 3 页 4.1.1 数据维护13 4.1.2出入库管理.13 4.1.3报表输出.13 第五章第五章 总体设计总体设计14 5.1 系统功能模块图14 5.2.1 数据库设计15 5.2.2 界面设计16 5.2.

4、3 功能设计17 第六章第六章 结论结论20 附录附录21 北京理工大学现代远程教育 学院毕业设计(论文) 第 4 页 前言 第一章 库存管理系统分析 1.1 系统分析系统分析 1.1.11.1.1 系统需求系统需求 本方案将把库存管理传统的静态扩展到动态。所谓静态其实是一种账目管理， 通过构造模型，取得账目上“进、出”的平衡。这不仅仅使公司运转效率提高，还 由于业务行为的规范化，起码可以挽回一些操作上的失误;还能及时获得(或称动态 获得)有关信息，及早发现决策中的问题。 在改变观念后，通过库存系统将把注意力放在过程和监督。系统数据的采集将 分散在各个职能部门随时进行。也就是，每一个数据在它产

5、生之日就输入到系统中， 并随着业务行为的进展，数据的属性也在改变，计划中的数据变成结果数据。比如 计划采购的物品变成已经采购的物品，计划采购物品的数量和价格变成已经采购物 品的数量和价格。 为此，系统为为库房建立原仪器设备、半成品和成品入出库系统在上述各系统 的基础上，建立库存综合查询和统计报表系统。 1.1.21.1.2 系统功能系统功能 库存概念主要指入出库管理，其主要功能有: 原仪器设备、半成品、成品入 北京理工大学现代远程教育 学院毕业设计(论文) 第 5 页 出库通知管理、物品状态(入出库时间、存放地点、物品外观、性能状态等)管理等。 库存的概念主要指上述子系统的综合平衡管理，其主要

6、的功能有: 将上述子 系统作为自身的数据源并根据需要从中汲取数据;提供综合查询和统计报表功能;根 据创建的模型进进行用户物流管理方面的预测和提供决策支持方面所需的信息。 1.2 借助信息技术加强施工用户管理借助信息技术加强施工用户管理 当前，建筑市场逐渐规范，施工用户间的激烈竞争、市场覆盖区域的逐渐扩大； 再加上工程建设周期的缩短、经济环境的错综复杂等，都使建筑施工用户面临着越 来越大的压力和风险。如何有效的规避风险，加强建筑施工用户的综合素质，提高 用户的竞争力，并在新的市场环境中健康、快速的发展，已成为施工用户管理者不 停思考的课题。 首先，地域间楚河汉界变通途和经济的全球化的趋势越来越明

7、显，地理距离对 施工用户的市场扩张的限制已经越来越小了，各地的施工用户乃至世界的各路诸侯 都在全国范围内不断的扩张、渗透。身处此境，施工用户的组织结构、业务流程、 管理手段、人力资源等方面皆面临着前所未有的冲击和挑战。 其次，进入新的经济时代以来，施工用户间的竞争正在转化为基于用户核心能 力的竞争。麦肯锡咨询公司曾对核心竞争力的定义：一个组织内部将具有互补性的 技术和知识进行整合，使得组织内的一项业务或者多项业务能够成为竞争行业的领 先者，具有明显优势，这便叫核心竞争力。施工用户现都面临着互补性知识间整合 的问题，新知识的掌握和应用正成为用户构筑这种核心竞争力的焦点。 同时，在整合之际，也为用

8、户的发展和壮大提供了难得的机遇。正如达尔文的 进化论曾指出的那样：能够在不断变化的环境中生存下来的生物，不是那些最强大 或最凶猛的动物，而是那些最能适应变化的动物。用户的兴与衰也是如此，诸多用 户在市场竞争中的此消彼长就印证了这个道理：谁主动应对、主动变革，谁就能基 北京理工大学现代远程教育 学院毕业设计(论文) 第 6 页 业常青；谁漠视变化、不善应对，则在市场竞争中谁就会陷入越来越被动的境地。 环顾全国范围乃至世界范围内的成功用户，他们共同的特点就是一直不断的审 视和改进自身的业务流程；不断的发展员工的技能和能力；不断的将新技术应用到 所在领域中，并向管理广度和深度进军，从而持续提高用户的

9、工作效率，并最终获 得竞争优势。从过去到今天，施工用户对于提高运作效率和经营效益的追求一直没 有改变过。保证施工项目运作效率的是业务流程及相应的组织架构，监控和反映经 营效益的是会计体系和绩效管理机制，而能支撑用户这些业务活动的正是用户的信 息管理系统。 迅猛发展的信息技术给社会的发展带来了巨大的能量，有效的推动了社会的进 步，已经或正在改变着我们的工作、学习、生活和思想。信息技术在社会各个领域 的广泛应用，实际上就是信息系统的应用。使用信息系统完善和加强传统的管理方 式，重新认识和再造各种用户原有的业务流程，成为了用户在激烈的市场竞争中取 胜的战略手段。 信息管理系统的概念示意如图 0-2

10、所示。从组织的角度看，信息管理系统是组 织的一个组成部分或是组织的自然延伸；从管理的角度看，信息管理系统是用户的 管理人员应对市场环境的一种解决方案；从技术的角度看，信息管理系统实际上是 用户组织的管理人员为了解决面临的各种问题而采用的一种集成了计算机硬件和软 件的工具。 信息管理系统的应用，目前在我国的建筑行业还处于起步阶段，要谨慎对待 “全面建设、一步到位”的做法。其他行业初期建设信息化管理系统时给我们留下 了很多可供借鉴的经验和教训。面对复杂问题，寄希望于捷径，往往会进入雷区， 欲速而不达。因为，一个用户全体员工的意识、技能都不是一朝一夕就可具备的， 需要培育、需要发展。用户与周边环境的

11、配套与适应也是重要问题，否则会出现， 一面高精尖、一面小米步枪，在接口处卡脖子的现象。随着问题的积累，甚至会导 致系统被废弃，巨额投资浪费的严重后果。我们要遵循规律，防止陷阱，就要从最 北京理工大学现代远程教育 学院毕业设计(论文) 第 7 页 基础、最根本的做起，层层推进，依次改善，最终实现“通过全面应用信息管理系 统，大幅提高用户效益”的目标。 第二章 计算机系统在当代 MIS 中的应用 管理信息系统（Management Information Systems 简称 MIS）在现代社会已深 入到各行各业，由于计算机技术的迅速发展和普及，MIS 事实上已成为计算机 MIS。 计算机应用已经

12、渗透到日常工作的许多方面，无论是其自身还是所发挥的作用， 计算机都标志着一种高科技、高效率和高水平。为了企业创先进、争一流，为了企 业的明天，许多企业的领导已经或正准备投入高额资金，建立大规模的计算机管理 信息系统(MIS)。 就系统开发的某一具体问题来说，主要是开发用于数据处理的程序，一般是比 较容易实现的。因而很少出现因网络或程序调试不通而中止开发的情况，并且大都 采用最新的、高性能的计算机软硬件平台，由优秀的计算机技术人员实施开发，但 预期的目标常常难以达到。就从系统目标和内容的确立、开发过程的组织与控制、 按计算机的特点组织系统等几个方面分析，强调 MIS 建设的同时面对用户和计算机

13、系统两个方面，仅仅注重计算机技术和程序开发是不够的。 实现管理信息化，未来企业别无选择。就像我们建设一个厂房，作为我们赖以 从事生产工作的基础设施一样，企业管理信息化是在建设一个我们赖以从事管理工 作的基础设施。我们可以回头看一下管理工具的发展，从算盘、传真机、计算机网 络到财务软件，它们从辅助人们从事管理工作的简单工具，逐渐向具有部分智能化 的方向发展，在每一个阶段都对管理工作的改进分别起到了十分重要的作用。 企业管理信息化是历史上到目前为止一次最为深刻的管理基础设施变革，必然 给成功企业带来管理的创新和管理水平的提高。根据联想集团的介绍，实施信息化 建设带来了可喜的成果：每年降低成本 6

14、亿元，总体费用率由 1995 年的 20%降低到 北京理工大学现代远程教育 学院毕业设计(论文) 第 8 页 2000 年的 9%。 2.1 MIS 的概念及解释的概念及解释 MIS 是一个不断发展的新型学科，MIS 的定义随着计算机技术和通讯技术的进 步也在不断更新，在现阶段普遍认为 MIS 是由人和计算机设备或其他信息处理手段 组成并用于管理信息的系统。 2.1.12.1.1 MISMIS 的对象就是信息的对象就是信息 信息是经过加工的数据，信息是对决策者有价值的数据。信息的主要特征是来 源分散，数量庞大。信息来源于生产第一线，来源于社会环境，来源于市场，来源 于行政管理等部门。信息具有时

15、间性。信息的加工方式有多种形式。 企业从信息管理的角度可划分为物流和信息流。生产过程是一个物流的投入产 出过程，且是不可逆的过程。管理过程是信息流的过程，且具有信息反馈的特征。 系统是由相互联系、相互作用的若干要素按一定的法则组成并具有一定功能的 整体。 系统有两个以上要素，各要素和整体之间，整体和环境之间存在一定的有机联 系。系统由输入、处理、输出、反馈、控制五个基本要素组成。信息系统是输入的 数据，经过处理，输出的是信息的系统。 2.1.22.1.2 管理信息由信息的采集、信息的传递、信息的储存、信息的加工、信息管理信息由信息的采集、信息的传递、信息的储存、信息的加工、信息 的维护和信息的

16、使用五个方面组成。的维护和信息的使用五个方面组成。 任何地方只要有管理就必然有信息，如果形成系统就形成 MIS。计算机设备使 MIS 更有效，尤其是现代社会，MIS 已和计算机设备不可分离，因此一般来说 MIS 就是计算机 MIS。MIS 包括计算机、网络通讯设备等硬件成份，包括操作系统、应 用软件包等软件成份。并随着计算机技术和通讯技术的迅速发展还会出现更多的内 容。计算机设备并不是 MIS 的必要条件。 2.1.42.1.4 系统目标和内容的确立系统目标和内容的确立 MIS 的建设中，系统的最终目标和内容常常难以确定。比如：设备管理系统， 北京理工大学现代远程教育 学院毕业设计(论文) 第

17、 9 页 设备的种类成千上万，规格型号、归属部门、安装位置等千差万别。 MIS 要管理的内容、达到的效果及运行后的状态等涉及的内容很多，很难通过 调研完全确定所有的内容。事实上，MIS 建设和一般工程的根本区别就是不能在开 发前完全确立系统的目标和内容，即不可能期望有一个详尽的设计去简单地、方便 地组织和控制系统的建设，这是 MIS 建设的最大特点，也最易引起比较大的问题。 MIS 建设应从实际需要和可能出发，确立适度的开发目标和内容，使企业的决 策者和系统的开发者都对系统建设心中有数，以便有效地安排和布署开发工作，并 且在开发过程中逐步确立新的工作方式。系统的目标和内容涉及因素很多，而应考

18、虑相应的策略和方法：(1)系统分解。系统建设的规模一般较大，不易掌握和控制， 可以将其分解为多个子系统，以降低系统的复杂性。原有方式总是按照工作相关的 程度分为多个部门，因此，划分子系统是方便的，关键是要制定描述子系统间联系 的约束规范，以此保证各子系统最终能形成一个统一的系统。(2)全面评估。对于 各子系统，全面评估系统开发的目的、内容、效果、条件相运行后的维护扩展等因 素，这些因素关系到系统建设的成败，应从实际需要和可能出发，要从大局着眼进 行认真的分析。盲目求大求全就会导致图虚名而招实祸，达不到预期的效果。(3) 逐步迫近。在满足系统约束规范的基础上，用快速原形法开发各子系统。这样就不

19、必首先进行详尽的需求分析，以完全掌握原有的方式，而是通过试运行把用户的需 求不断吸收进去，让系统直接逼近开发目标。这样做有许多益处：可以降低开发者 掌握原有系统的难度；可以更准确地了解用户的需求、确立新的工作模式；开发过 程中，用户已经接受了新的系统。 2.1.52.1.5 按计算机的特点组织系统按计算机的特点组织系统 原有的方式一般是以适应人的工作特点逐步形成的，常常是分散的、不规范的、 其处理过程也较长。而计算机系统适合处理大批量的、规范的数据，并且处理过程 力求简明。按计算机的特点组织新的系统，不单单提供了数据的处理而且能使工作 方式变得规范、简明。因此，MIS 的开发不是在模拟原有的方

20、式，而是根据计算机 的特点重新设计出一种新的工作模式。实际工作中，对这一点常常比较忽视，甚至 北京理工大学现代远程教育 学院毕业设计(论文) 第 10 页 完全根据人工方式的特点设计计算机的功能。就象如果用工匠们手工生产方式设计 汽车工业的生产线，实际上并不能真正提高效率一样，这样的 MIS 建设并不能发挥 出应有的作用。 计算机系统的“基础结构”是对企业的数据进行总体的规划和组织，建立起统 一的数据平台。以数据平台为中心，将系统开发划分为形成数据平台和由数据平台 变换出结果两个部分，在整体上使系统结构简单明了。建立数据平台是面向计算机 的有效方法，但不适于直接面对用户及其所使用的工作方式。作

21、为种开发方法， 它适用于目标及所包含的数据内容明确的系统，如：民航及铁路售票系统。这种系 统可以直接从组织数据入手实施开发。而对于目标及所包含的数据内容隐蔽的系统， 如电厂的设备管理系统，首先要面对的是用户及其所使用的比较模糊的工作方式， 对此开发人员在短期内完全掌握是不可能的。此时应采取分解的方式，通过试运行 把用户的需求不断的吸收到系统中去。在这个过程中，开发者要注意以数据平台为 中心建立起新的系统结构。 MIS 建设要实现以计算机系统为中心的新的工作方式，其结果无论是计算机系 统内部还是人的工作都将是明确的、规范的。MIS 建设面对的是原有方式和计算机 系统两个截然不同的问题，决不能忽视

22、和混淆。用计算机本身的技术方式去对待整 个 MIS 建设是一种根本性的错误。信息技术正在全球引发一场革命，MIS 建设是这 场革命的重要内容，是今后企业实现科学化管理获取高效益的基础性工作。MIS 建 设要涉及用户、原有工作方式、计算机软硬件、程序开发等许多因素，这不是借助 某项具体的、特定的技术所能完成的，本质上是一个系统性的问题。 管理信息系统不只是计算机的应用，计算机也只是工具。管理信息系统也不是 “计算机辅助企业管理” ，管理信息系统是企业的神经系统，是一个人一机系统， 是每个企业不能没有的系统。管理信息系统涉及到管理、信息和系统，对于它们的 知识是非常重要的，在未来也是非常具有前景的

23、。 北京理工大学现代远程教育 学院毕业设计(论文) 第 11 页 第三章 应用系统开发工具 微软公司的 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广 泛的、易学易用的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控 件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计 过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统 VB 是 一个相对较好的选择。 Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有 一些特性和行为（属性、事件和 方法） 。开发人员可以最有效利用所

24、创建的每一个 对象。使用应用程序具有可通用性可说扩展性和强有力的功能。 Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、 用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些 对象和控件都可在许多应用中重复使用。 3.1 实现菜单选项实现菜单选项 菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序 易于使用和维护，Visual Basic 也提供了强大的创建菜单功能是程序更加标准。 您可以使用 Visual Basic 的 Application Wizard 也可以使用 Visual Basic 的菜单编辑器建立菜

25、单或者修改已经存在的菜单。 3.2 实现工具栏实现工具栏 CoolBar 控件与 Office97 种看到的 CoolBar 是类似的。CoolBar 就是一个可以 在窗体上浮动的工具，同时也是其他 ActiveX 的容器。通过在 CoolBar 中迁入其他 空间你局可以向用户提供更好的灵活性和义用性。 Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标 北京理工大学现代远程教育 学院毕业设计(论文) 第 12 页 题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。 Toolbar 也是一个控件容器且具有 Style 属性，并可以为其增加下拉按

26、钮和平滑按 钮等。 选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件” 选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加 改控件。其属性及对象如下： 1.Align 属性定义工具条在窗体中的位置 2.ToolTipText 属性是字符串类型，定义控件的提示字符 3.Style 属性定义按钮外观。 4.ImageList 属性定义与数据条对应的 ImageList 控件名，该控件定义工具条 按钮显示的图像。 4.HotImangeList 属性设置一个 ImageList 控件名，该控件定义按钮获得热点 时显示的图像。

27、 5.DisabledImageList 属性定义工具条按钮无效时显示的图像。 创建工具条包括 ImageList 和 Toolbar 控件 ImageList 用于为其他控件提供图像库，将 ImageList 控件加入到工具箱的操 作于前述 Toolbar 控件相同。 北京理工大学现代远程教育 学院毕业设计(论文) 第 13 页 第四章 系统简介及运行环境 4.1 系统简介系统简介 仪器库管理系统是为了满足广大建筑用户对仪器的管理需求而开发的，既 能管理普通仪器设备，又能对周转仪器设备进行管理；能够满足对多个仓库仪器设 备自动盘点和按工程项目的仪器设备使用情况进行核算。 系统采用 Visua

28、l Basic 6.0 开发，用户权限管理保证了系统与数据的安全。 工程仪器设备管理系统主要包括以下几个方面的功能： 4.1.14.1.1 数据维护数据维护 对系统的用户及权限、仪器设备分类及编码、仓库信息、供应商信息、客户信 息等进行初始化设置。 4.1.24.1.2 出入库管理出入库管理 能够方便地录入和管理出入库各种仪器设备的数据信息。 4.1.34.1.3 报表输出报表输出 能够准确地自动生成仓库仪器设备期段报表。 北京理工大学现代远程教育 学院毕业设计(论文) 第 14 页 北京理工大学现代远程教育 学院毕业设计(论文) 第 15 页 第五章 总体设计 5.15.1 系统功能模块图系

29、统功能模块图 （图 1） 北京理工大学现代远程教育 学院毕业设计(论文) 第 16 页 系统设计包括登陆界面设计、数据库设计、主界面设计、菜单设计和功能设计。 功能设计包括输入设计、查询设计。 5.2.15.2.1 数据库设计数据库设计 数据库采用 Access 数据库，使用 VisData 或在 Access 环境中创建数据库 表单：（如图） （图 1） 1.仪器设备分类表 表内包括 ID、材料分类两个字段名，分别用于编号和定义材料分类。 2.库存仪器设备表 字段同上 3.出库表 包括 ID、名称、数量、经手人、用途、日期、时间七个字段名。用于记录出库 的各种信息。 北京理工大学现代远程教育

30、 学院毕业设计(论文) 第 17 页 4.入库表 字段同上 5.客户表 包括 ID、名称、地址、电话、联系人、产品、单位、备注、数量九个字段名。 用于记录客户信息。 6.供应商表 包括 ID、名称、地址、电话、联系人、级别、备注七个字段名。记录供应商的 各种信息。 7.员工表 包括 ID、名称、职务、电话、密码五个字段名。记录员工信息。 5.2.25.2.2 界面设计界面设计 主界面是用户打开系统首先见到的界面，也是进入其他模块的入口。 主界面将常用菜单项设计为工具栏，在工具栏上有项目、出库、入库、报表四 项菜单。 主界面运行如下： 北京理工大学现代远程教育 学院毕业设计(论文) 第 18 页

31、 （图 2） 这里使用了一个 CoolBar 控件： Private Sub CoolBar1_Resize() MovingText1.Width = CoolBar1.Width End Sub 5.2.35.2.3 功能设计功能设计 项目模块项目模块 项目模块分为员工管理、供应管理、客户管理、仪器设备分类、仪器设备管理 五个部分，用来输入各项信息。 运行界面如下图所示： （图 3） 功能要求； 在窗体上通过不同的按钮可以向数据库中增删除、修改各种信息。 北京理工大学现代远程教育 学院毕业设计(论文) 第 19 页 “添加”按钮用于新增记录，在信息表中新增记录，从而数据表中的记 录数目会自

32、动增加。 “删除”按钮用于删除数据表中的某些记录，从而数据表中的记录也相 应地被删除。 “修改”按钮用于修改某些数据的基本信息情况，从而数据表中的记录 相应地也被修改。 “上一条” 、 “下一条”按钮用于移动显示记录。 “退出”按钮用于返回到主界面。 入库模块入库模块 通过主界面进入入库窗体，入库模块用于在数据库中加入新数据。 运行界面如下图所示 （图 4） 在窗体内可以输入各项入库信息，分类、名称、供应商和经手人选择框里 可选择定义好各种类别，数量和单价输入数字信息。 出库模块出库模块 北京理工大学现代远程教育 学院毕业设计(论文) 第 20 页 （图 5） 在窗体内可以输入各项出库信息，分

33、类、名称、服务客户和经手人 以上各项信息与数据库内的出库、入库表单对应，相应信息也可以使用 Access 进行修改。 报表模块：报表模块： 模块可实现各种期段报表（包括出库、入库、意向和拜访）供打印和检索,上 方选择框可以选择开始时间和结束时间。 运行效果图如下： 北京理工大学现代远程教育 学院毕业设计(论文) 第 21 页 （图 6） 窗体调用了数据环境链结，下设两个阶段性报表 Command1、 Command2，分别 为出库报表、入库报表和一个打印报表 CmdPrint。 这里使用 ADODB 数据控件连接 Access 数据库。数据库文件“库存管理.mdb” 使用了密码，引入使用了代码

34、： OLEDB:Database Password=lee1012 第六章 结论 流程符合仪器设备管理的要求。界面友好，输入信息方便（信息系统自动生成） ，系统扩充容易。由于资料有限，有很多地方还需要更好的完善。即面向开发人员， 又面向用户。由于时间的原因，输出报表不完善。网络功能欠缺，本系统只能在单 机上运行，不能实现网络连接，资源共享。容错性不高。系统的抗错，容错性不高， 这方面有待加强。由于资料有限，有很多地方还设计的不够详细，还需要更好的完 善。 北京理工大学现代远程教育 学院毕业设计(论文) 第 22 页 参考文献参考文献 1 Visual Basic 6.0 使用指南 作者：Bob

35、 Reselman , Richard Peasley , Wayne Pruchniak. 出版社：电子工业出版社 2 中文版 Microsoft Office 97 自学通 作者：Ned Snell 出版社：机械工业出版社 3 Visual Basic 6.0 中文版控件大全 作者：Microsoft 出版社；电子工业出版社 4 中文 Access 2000 24 学时教程 作者：Craig Eddy ，Timothy Buchanan 出版社：机械工业出版社 附录 主界面代码： Private Sub CoolBar1_Resize() MovingText1.Width = CoolB

36、ar1.Width End Sub Private Sub MDIForm_Load() Unload FrmSet Unload frmRK Unload frmPrint Unload frmCK Unload FrmHY End Sub 北京理工大学现代远程教育 学院毕业设计(论文) 第 23 页 Private Sub MovingText1_GotFocus() End Sub Private Sub M 报表输出_Click() frmPrint.Show End Sub Private Sub M 出库操作_Click() frmCK.Show End Sub Private S

37、ub M 入库操作_Click() frmRK.Show End Sub Private Sub M 设置_Click() FrmSet.Show End Sub 项目管理代码： 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 MovingText1_GotFocus(

38、) End Sub 北京理工大学现代远程教育 学院毕业设计(论文) 第 24 页 Private Sub M 报表输出_Click() frmPrint.Show End Sub Private Sub M 出库操作_Click() frmCK.Show End Sub Private Sub M 入库操作_Click() frmRK.Show End Sub Private Sub M 设置_Click() FrmSet.Show End Sub 出入库表单代码： Private Sub asPopup3_Click(Cancel As Boolean) If Val(Label4.Capt

39、ion) - Val(Text1.Text) 0 Then MsgBox “库存量不够！请及时采购。“ Exit Sub End If If DBCombo2.Text = “ Then MsgBox “请选择出库仪器设备名称！“ Exit Sub End If If DBCombo4.Text = “ Then MsgBox “请选择经手人！“ Exit Sub End If Dim a As Integer a = MsgBox(“*你确定此操作吗？*“ pwd=lee1012“ Data1.RecordSource = “仪器设备分类表“ Data1.Refresh Data1.Visi

40、ble = False Data2.DatabaseName = App.Path pwd=lee1012“ Data2.RecordSource = “库存仪器设备表“ 北京理工大学现代远程教育 学院毕业设计(论文) 第 27 页 Data2.Refresh Data2.Visible = False Data3.DatabaseName = App.Path pwd=lee1012“ Data3.RecordSource = “客户表“ Data3.Refresh Data3.Visible = False Data4.DatabaseName = App.Path pwd=lee1012

41、“ 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 Private Sub Form_Unload(Cancel As Integer) Dim MyStr As String MyStr = “通用库存管理由秦通电子有限公司开发“ MDIFr

42、mMain.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

43、Single) DoDrag Me 北京理工大学现代远程教育 学院毕业设计(论文) 第 28 页 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 Int

44、eger, 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

45、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 北京理

46、工大学现代远程教育 学院毕业设计(论文) 第 33 页 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_Mo

47、useDown(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_Mouse

48、Down(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 北京理工大学现代远程教育 学院毕业设计(论文) 第 34 页 As Single) DoDrag Me End Sub Private Sub Timer1_Timer() Data2.Rec

49、ordset.FindFirst “名称 =“ pwd=lee1012“ Data1.RecordSource = “员工表“ Data1.Refresh Data1.Visible = False 北京理工大学现代远程教育 学院毕业设计(论文) 第 38 页 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 =