1、北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 1 页摘 要随着管理信息系统（MIS）的发展，和相应开发软件的商品化，使得用户不必大量投资就可以建立一个满意的库存管理系统。国家和社会各界投巨资，建立信息高速公路，制定了各项政策，鼓励政府、事业和用户部门使用信息高速公路。各部门只需弄清本部门的需求，制定库存设计方案，自己或请技术部门进行系统设计，购买有限的设备和应用软件，编制系统运行的规则，培训员工掌握系统的使用，一个进销存管理系统就初步建成了。购买软件和开发应用程序的投入可以承受的，而通过库存管理系统运行给用户带来的实际效益大于投资.关键词： 信息技术；Visual Basic；A
2、ccess；数据库；DBA；JET全套源程序代码，联系 153893706北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 2 页目录摘 要 1ABSTRACT 2目录 3前言 5第一章 库存管理系统分析 .51.1 系统分析 .51.1.1 系统需求 51.1.2 系统功能 51.2 借助信息技术加强施工用户管理 .5第二章 计算机系统在当代 MIS 中的应用 72.1 MIS 的概念及解释 .82.1.1 MIS 的对象就是信息 82.1.2 管理信息由信息的采集、信息的传递、信息的储存、信息的加工、信息的维护和信息的使用五个方面组成。 92.1.4 系统目标和内容的确立 92.
3、1.5 按计算机的特点组织系统 10第三章 应用系统开发工具 .113.1 实现菜单选项 .113.2 实现工具栏 .11第四章 系统简介及运行 环境 124.1 系统简介 .12北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 3 页4.1.1 数据维护 134.1.2 出入库管理 .134.1.3 报表输出 .13第五章 总体设计 145.1 系统功能模块图 145.2.1 数据库设计 155.2.2 界面设计 165.2.3 功能设计 17第六章 结论 20附录 21北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 4 页前言第一章 库存管理系统分析1.1 系统分析1
4、.1.1 系统需求本方案将把库存管理传统的静态扩展到动态。所谓静态其实是一种账目管理，通过构造模型，取得账目上“进、出”的平衡。这不仅仅使公司运转效率提高，还由于业务行为的规范化，起码可以挽回一些操作上的失误;还能及时获得(或称动态获得)有关信息，及早发现决策中的问题。在改变观念后，通过库存系统将把注意力放在过程和监督。系统数据的采集将分散在各个职能部门随时进行。也就是，每一个数据在它产生之日就输入到系统中，并随着业务行为的进展，数据的属性也在改变，计划中的数据变成结果数据。比如计划采购的物品变成已经采购的物品，计划采购物品的数量和价格变成已经采购物品的数量和价格。为此，系统为为库房建立原仪器
5、设备、半成品和成品入出库系统在上述各系统的基础上，建立库存综合查询和统计报表系统。1.1.2 系统功能库存概念主要指入出库管理，其主要功能有: 原仪器设备、半成品、成品入北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 5 页出库通知管理、物品状态(入出库时间、存放地点、物品外观、性能状态等)管理等。库存的概念主要指上述子系统的综合平衡管理，其主要的功能有: 将上述子系统作为自身的数据源并根据需要从中汲取数据;提供综合查询和统计报表功能;根据创建的模型进进行用户物流管理方面的预测和提供决策支持方面所需的信息。1.2 借助信息技术加强施工用户管理当前，建筑市场逐渐规范，施工用户间的激烈
6、竞争、市场覆盖区域的逐渐扩大；再加上工程建设周期的缩短、经济环境的错综复杂等，都使建筑施工用户面临着越来越大的压力和风险。如何有效的规避风险，加强建筑施工用户的综合素质，提高用户的竞争力，并在新的市场环境中健康、快速的发展，已成为施工用户管理者不停思考的课题。首先，地域间楚河汉界变通途和经济的全球化的趋势越来越明显，地理距离对施工用户的市场扩张的限制已经越来越小了，各地的施工用户乃至世界的各路诸侯都在全国范围内不断的扩张、渗透。身处此境，施工用户的组织结构、业务流程、管理手段、人力资源等方面皆面临着前所未有的冲击和挑战。其次，进入新的经济时代以来，施工用户间的竞争正在转化为基于用户核心能力的竞
7、争。麦肯锡咨询公司曾对核心竞争力的定义：一个组织内部将具有互补性的技术和知识进行整合，使得组织内的一项业务或者多项业务能够成为竞争行业的领先者，具有明显优势，这便叫核心竞争力。施工用户现都面临着互补性知识间整合的问题，新知识的掌握和应用正成为用户构筑这种核心竞争力的焦点。同时，在整合之际，也为用户的发展和壮大提供了难得的机遇。正如达尔文的进化论曾指出的那样：能够在不断变化的环境中生存下来的生物，不是那些最强大或最凶猛的动物，而是那些最能适应变化的动物。用户的兴与衰也是如此，诸多用户在市场竞争中的此消彼长就印证了这个道理：谁主动应对、主动变革，谁就能基北京理工大学现 代 远 程 教 育 学院毕业
8、设计(论文)第 6 页业常青；谁漠视变化、不善应对，则在市场竞争中谁就会陷入越来越被动的境地。环顾全国范围乃至世界范围内的成功用户，他们共同的特点就是一直不断的审视和改进自身的业务流程；不断的发展员工的技能和能力；不断的将新技术应用到所在领域中，并向管理广度和深度进军，从而持续提高用户的工作效率，并最终获得竞争优势。从过去到今天，施工用户对于提高运作效率和经营效益的追求一直没有改变过。保证施工项目运作效率的是业务流程及相应的组织架构，监控和反映经营效益的是会计体系和绩效管理机制，而能支撑用户这些业务活动的正是用户的信息管理系统。迅猛发展的信息技术给社会的发展带来了巨大的能量，有效的推动了社会的
9、进步，已经或正在改变着我们的工作、学习、生活和思想。信息技术在社会各个领域的广泛应用，实际上就是信息系统的应用。使用信息系统完善和加强传统的管理方式，重新认识和再造各种用户原有的业务流程，成为了用户在激烈的市场竞争中取胜的战略手段。信息管理系统的概念示意如图 0-2 所示。从组织的角度看，信息管理系统是组织的一个组成部分或是组织的自然延伸；从管理的角度看，信息管理系统是用户的管理人员应对市场环境的一种解决方案；从技术的角度看，信息管理系统实际上是用户组织的管理人员为了解决面临的各种问题而采用的一种集成了计算机硬件和软件的工具。信息管理系统的应用，目前在我国的建筑行业还处于起步阶段，要谨慎对待
10、“全面建设、一步到位”的做法。其他行业初期建设信息化管理系统时给我们留下了很多可供借鉴的经验和教训。面对复杂问题，寄希望于捷径，往往会进入雷区，欲速而不达。因为，一个用户全体员工的意识、技能都不是一朝一夕就可具备的，需要培育、需要发展。用户与周边环境的配套与适应也是重要问题，否则会出现，一面高精尖、一面小米步枪，在接口处卡脖子的现象。随着问题的积累，甚至会导致系统被废弃，巨额投资浪费的严重后果。我们要遵循规律，防止陷阱，就要从最北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 7 页基础、最根本的做起，层层推进，依次改善，最终实现“通过全面应用信息管理系统，大幅提高用户效益”的目标。
11、第二章 计算机系统在当代 MIS 中的应用管理信息系统（Management Information Systems 简称 MIS）在现代社会已深入到各行各业，由于计算机技术的迅速发展和普及，MIS 事实上已成为计算机MIS。计算机应用已经渗透到日常工作的许多方面，无论是其自身还是所发挥的作用，计算机都标志着一种高科技、高效率和高水平。为了企业创先进、争一流，为了企业的明天，许多企业的领导已经或正准备投入高额资金，建立大规模的计算机管理信息系统(MIS)。就系统开发的某一具体问题来说，主要是开发用于数据处理的程序，一般是比较容易实现的。因而很少出现因网络或程序调试不通而中止开发的情况，并且大都
12、采用最新的、高性能的计算机软硬件平台，由优秀的计算机技术人员实施开发，但预期的目标常常难以达到。就从系统目标和内容的确立、开发过程的组织与控制、按计算机的特点组织系统等几个方面分析，强调 MIS 建设的同时面对用户和计算机系统两个方面，仅仅注重计算机技术和程序开发是不够的。实现管理信息化，未来企业别无选择。就像我们建设一个厂房，作为我们赖以从事生产工作的基础设施一样，企业管理信息化是在建设一个我们赖以从事管理工作的基础设施。我们可以回头看一下管理工具的发展，从算盘、传真机、计算机网络到财务软件，它们从辅助人们从事管理工作的简单工具，逐渐向具有部分智能化的方向发展，在每一个阶段都对管理工作的改进
13、分别起到了十分重要的作用。企业管理信息化是历史上到目前为止一次最为深刻的管理基础设施变革，必然给成功企业带来管理的创新和管理水平的提高。根据联想集团的介绍，实施信息化建设带来了可喜的成果：每年降低成本 6 亿元，总体费用率由 1995 年的 20%降低到北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 8 页2000 年的 9%。2.1 MIS 的概念及解释MIS 是一个不断发展的新型学科，MIS 的定义随着计算机技术和通讯技术的进步也在不断更新，在现阶段普遍认为 MIS 是由人和计算机设备或其他信息处理手段组成并用于管理信息的系统。2.1.1 MIS 的对象就是信息信息是经过加工的
14、数据，信息是对决策者有价值的数据。信息的主要特征是来源分散，数量庞大。信息来源于生产第一线，来源于社会环境，来源于市场，来源于行政管理等部门。信息具有时间性。信息的加工方式有多种形式。企业从信息管理的角度可划分为物流和信息流。生产过程是一个物流的投入产出过程，且是不可逆的过程。管理过程是信息流的过程，且具有信息反馈的特征。系统是由相互联系、相互作用的若干要素按一定的法则组成并具有一定功能的整体。系统有两个以上要素，各要素和整体之间，整体和环境之间存在一定的有机联系。系统由输入、处理、输出、反馈、控制五个基本要素组成。信息系统是输入的数据，经过处理，输出的是信息的系统。2.1.2 管理信息由信息
15、的采集、信息的传递、信息的储存、信息的加工、信息的维护和信息的使用五个方面组成。任何地方只要有管理就必然有信息，如果形成系统就形成 MIS。计算机设备使MIS 更有效，尤其是现代社会，MIS 已和计算机设备不可分离，因此一般来说 MIS就是计算机 MIS。MIS 包括计算机、网络通讯设备等硬件成份，包括操作系统、应用软件包等软件成份。并随着计算机技术和通讯技术的迅速发展还会出现更多的内容。计算机设备并不是 MIS 的必要条件。2.1.4 系统目标和内容的确立MIS 的建设中，系统的最终目标和内容常常难以确定。比如：设备管理系统，北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 9 页
16、设备的种类成千上万，规格型号、归属部门、安装位置等千差万别。MIS 要管理的内容、达到的效果及运行后的状态等涉及的内容很多，很难通过调研完全确定所有的内容。事实上，MIS 建设和一般工程的根本区别就是不能在开发前完全确立系统的目标和内容，即不可能期望有一个详尽的设计去简单地、方便地组织和控制系统的建设，这是 MIS 建设的最大特点，也最易引起比较大的问题。MIS 建设应从实际需要和可能出发，确立适度的开发目标和内容，使企业的决策者和系统的开发者都对系统建设心中有数，以便有效地安排和布署开发工作，并且在开发过程中逐步确立新的工作方式。系统的目标和内容涉及因素很多，而应考虑相应的策略和方法：(1)
17、系统分解。系统建设的规模一般较大，不易掌握和控制，可以将其分解为多个子系统，以降低系统的复杂性。原有方式总是按照工作相关的程度分为多个部门，因此，划分子系统是方便的，关键是要制定描述子系统间联系的约束规范，以此保证各子系统最终能形成一个统一的系统。(2)全面评估。对于各子系统，全面评估系统开发的目的、内容、效果、条件相运行后的维护扩展等因素，这些因素关系到系统建设的成败，应从实际需要和可能出发，要从大局着眼进行认真的分析。盲目求大求全就会导致图虚名而招实祸，达不到预期的效果。(3)逐步迫近。在满足系统约束规范的基础上，用快速原形法开发各子系统。这样就不必首先进行详尽的需求分析，以完全掌握原有的
18、方式，而是通过试运行把用户的需求不断吸收进去，让系统直接逼近开发目标。这样做有许多益处：可以降低开发者掌握原有系统的难度；可以更准确地了解用户的需求、确立新的工作模式；开发过程中，用户已经接受了新的系统。2.1.5 按计算机的特点组织系统原有的方式一般是以适应人的工作特点逐步形成的，常常是分散的、不规范的、其处理过程也较长。而计算机系统适合处理大批量的、规范的数据，并且处理过程力求简明。按计算机的特点组织新的系统，不单单提供了数据的处理而且能使工作方式变得规范、简明。因此，MIS 的开发不是在模拟原有的方式，而是根据计算机的特点重新设计出一种新的工作模式。实际工作中，对这一点常常比较忽视，甚至
19、北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 10 页完全根据人工方式的特点设计计算机的功能。就象如果用工匠们手工生产方式设计汽车工业的生产线，实际上并不能真正提高效率一样，这样的 MIS 建设并不能发挥出应有的作用。计算机系统的“基础结构”是对企业的数据进行总体的规划和组织，建立起统一的数据平台。以数据平台为中心，将系统开发划分为形成数据平台和由数据平台变换出结果两个部分，在整体上使系统结构简单明了。建立数据平台是面向计算机的有效方法，但不适于直接面对用户及其所使用的工作方式。作为种开发方法，它适用于目标及所包含的数据内容明确的系统，如：民航及铁路售票系统。这种系统可以直接从组
20、织数据入手实施开发。而对于目标及所包含的数据内容隐蔽的系统，如电厂的设备管理系统，首先要面对的是用户及其所使用的比较模糊的工作方式，对此开发人员在短期内完全掌握是不可能的。此时应采取分解的方式，通过试运行把用户的需求不断的吸收到系统中去。在这个过程中，开发者要注意以数据平台为中心建立起新的系统结构。MIS 建设要实现以计算机系统为中心的新的工作方式，其结果无论是计算机系统内部还是人的工作都将是明确的、规范的。MIS 建设面对的是原有方式和计算机系统两个截然不同的问题，决不能忽视和混淆。用计算机本身的技术方式去对待整个 MIS 建设是一种根本性的错误。信息技术正在全球引发一场革命，MIS 建设是
21、这场革命的重要内容，是今后企业实现科学化管理获取高效益的基础性工作。MIS 建设要涉及用户、原有工作方式、计算机软硬件、程序开发等许多因素，这不是借助某项具体的、特定的技术所能完成的，本质上是一个系统性的问题。 管理信息系统不只是计算机的应用，计算机也只是工具。管理信息系统也不是“计算机辅助企业管理” ，管理信息系统是企业的神经系统，是一个人一机系统，是每个企业不能没有的系统。管理信息系统涉及到管理、信息和系统，对于它们的知识是非常重要的，在未来也是非常具有前景的。北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 11 页第三章 应用系统开发工具微软公司的 Visual Basic
22、6.0 是 Windows 应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统 VB 是一个相对较好的选择。Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和 方法） 。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结
23、构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。3.1 实现菜单选项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，Visual Basic 也提供了强大的创建菜单功能是程序更加标准。您可以使用 Visual Basic 的 Application Wizard 也可以使用 Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单。 3.2 实现工具栏CoolBar 控件与 Office97 种看到的 CoolBar 是类似的。CoolBar 就是一个可以在窗体上浮动的工具
24、，同时也是其他 ActiveX 的容器。通过在 CoolBar 中迁入其他空间你局可以向用户提供更好的灵活性和义用性。Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 12 页题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。Toolbar 也是一个控件容器且具有 Style 属性，并可以为其增加下拉按钮和平滑按钮等。选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相
25、中增加改控件。其属性及对象如下： 1.Align 属性定义工具条在窗体中的位置2.ToolTipText 属性是字符串类型，定义控件的提示字符3.Style 属性定义按钮外观。4.ImageList 属性定义与数据条对应的 ImageList 控件名，该控件定义工具条按钮显示的图像。4.HotImangeList 属性设置一个 ImageList 控件名，该控件定义按钮获得热点时显示的图像。5.DisabledImageList 属性定义工具条按钮无效时显示的图像。创建工具条包括 ImageList 和 Toolbar 控件ImageList 用于为其他控件提供图像库，将 ImageList
26、控件加入到工具箱的操作于前述 Toolbar 控件相同。北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 13 页第四章 系统简介及运行环境4.1 系统简介仪器库管理系统是为了满足广大建筑用户对仪器的管理需求而开发的，既能管理普通仪器设备，又能对周转仪器设备进行管理；能够满足对多个仓库仪器设备自动盘点和按工程项目的仪器设备使用情况进行核算。系统采用 Visual Basic 6.0 开发，用户权限管理保证了系统与数据的安全。工程仪器设备管理系统主要包括以下几个方面的功能：4.1.1 数据维护对系统的用户及权限、仪器设备分类及编码、仓库信息、供应商信息、客户信息等进行初始化设置。4.1
27、.2 出入库管理能够方便地录入和管理出入库各种仪器设备的数据信息。4.1.3 报表输出能够准确地自动生成仓库仪器设备期段报表。北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 14 页北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 15 页第五章 总体设计5.1 系统功能模块图（图 1）北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 16 页系统设计包括登陆界面设计、数据库设计、主界面设计、菜单设计和功能设计。功能设计包括输入设计、查询设计。5.2.1 数据库设计数据库采用 Access 数据库，使用 VisData 或在 Access 环境中创建数据库表单：
28、（如图）（图 1）1.仪器设备分类表表内包括 ID、材料分类两个字段名，分别用于编号和定义材料分类。2.库存仪器设备表字段同上3.出库表包括 ID、名称、数量、经手人、用途、日期、时间七个字段名。用于记录出库的各种信息。北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 17 页4.入库表字段同上5.客户表包括 ID、名称、地址、电话、联系人、产品、单位、备注、数量九个字段名。用于记录客户信息。6.供应商表包括 ID、名称、地址、电话、联系人、级别、备注七个字段名。记录供应商的各种信息。7.员工表包括 ID、名称、职务、电话、密码五个字段名。记录员工信息。5.2.2 界面设计主界面是用
29、户打开系统首先见到的界面，也是进入其他模块的入口。主界面将常用菜单项设计为工具栏，在工具栏上有项目、出库、入库、报表四项菜单。主界面运行如下：北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 18 页（图 2）这里使用了一个 CoolBar 控件：Private Sub CoolBar1_Resize()MovingText1.Width = CoolBar1.WidthEnd Sub5.2.3 功能设计项目模块项目模块分为员工管理、供应管理、客户管理、仪器设备分类、仪器设备管理五个部分，用来输入各项信息。运行界面如下图所示：（图 3）功能要求； 在窗体上通过不同的按钮可以向数据库中
30、增删除、修改各种信息。北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 19 页 “添加”按钮用于新增记录，在信息表中新增记录，从而数据表中的记录数目会自动增加。 “删除”按钮用于删除数据表中的某些记录，从而数据表中的记录也相应地被删除。 “修改”按钮用于修改某些数据的基本信息情况，从而数据表中的记录相应地也被修改。 “上一条” 、 “下一条”按钮用于移动显示记录。 “退出”按钮用于返回到主界面。入库模块通过主界面进入入库窗体，入库模块用于在数据库中加入新数据。运行界面如下图所示（图 4）在窗体内可以输入各项入库信息，分类、名称、供应商和经手人选择框里可选择定义好各种类别，数量和单价
31、输入数字信息。出库模块北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 20 页（图 5）在窗体内可以输入各项出库信息，分类、名称、服务客户和经手人以上各项信息与数据库内的出库、入库表单对应，相应信息也可以使用Access 进行修改。报表模块：模块可实现各种期段报表（包括出库、入库、意向和拜访）供打印和检索,上方选择框可以选择开始时间和结束时间。运行效果图如下：北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 21 页（图 6）窗体调用了数据环境链结，下设两个阶段性报表 Command1、 Command2，分别为出库报表、入库报表和一个打印报表 CmdPrint。这里使用
32、 ADODB 数据控件连接 Access 数据库。数据库文件“库存管理.mdb”使用了密码，引入使用了代码：OLEDB:Database Password=lee1012第六章 结论流程符合仪器设备管理的要求。界面友好，输入信息方便（信息系统自动生成），系统扩充容易。由于资料有限，有很多地方还需要更好的完善。即面向开发人员，又面向用户。由于时间的原因，输出报表不完善。网络功能欠缺，本系统只能在单机上运行，不能实现网络连接，资源共享。容错性不高。系统的抗错，容错性不高，这方面有待加强。由于资料有限，有很多地方还设计的不够详细，还需要更好的完善。北京理工大学现 代 远 程 教 育 学院毕业设计(论
33、文)第 22 页参考文献1 Visual Basic 6.0 使用指南 作者：Bob 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_Resi
34、ze()MovingText1.Width = CoolBar1.WidthEnd SubPrivate Sub MDIForm_Load()Unload FrmSetUnload frmRKUnload frmPrintUnload frmCKUnload FrmHYEnd Sub北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 23 页Private Sub MovingText1_GotFocus()End SubPrivate Sub M 报表输出_Click()frmPrint.ShowEnd SubPrivate Sub M 出库操作_Click()frmCK.ShowE
35、nd SubPrivate Sub M 入库操作_Click()frmRK.ShowEnd SubPrivate Sub M 设置_Click()FrmSet.ShowEnd Sub项目管理代码：Private Sub CoolBar1_Resize()MovingText1.Width = CoolBar1.WidthEnd SubPrivate Sub MDIForm_Load()Unload FrmSetUnload frmRKUnload frmPrintUnload frmCKUnload FrmHYEnd SubPrivate Sub MovingText1_GotFocus()E
36、nd Sub北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 24 页Private Sub M 报表输出_Click()frmPrint.ShowEnd SubPrivate Sub M 出库操作_Click()frmCK.ShowEnd SubPrivate Sub M 入库操作_Click()frmRK.ShowEnd SubPrivate Sub M 设置_Click()FrmSet.ShowEnd Sub出入库表单代码：Private Sub asPopup3_Click(Cancel As Boolean)If Val(Label4.Caption) - Val(Text
37、1.Text) 0 ThenMsgBox “库存量不够！请及时采购。“Exit SubEnd IfIf DBCombo2.Text = “ ThenMsgBox “请选择出库仪器设备名称！“Exit SubEnd IfIf DBCombo4.Text = “ ThenMsgBox “请选择经手人！“Exit SubEnd IfDim a As Integera = MsgBox(“*你确定此操作吗？*“ pwd=lee1012“Data1.RecordSource = “仪器设备分类表“Data1.RefreshData1.Visible = FalseData2.DatabaseName =
38、 App.Path pwd=lee1012“Data2.RecordSource = “库存仪器设备表“北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 27 页Data2.RefreshData2.Visible = FalseData3.DatabaseName = App.Path pwd=lee1012“Data3.RecordSource = “客户表“Data3.RefreshData3.Visible = FalseData4.DatabaseName = App.Path pwd=lee1012“Data4.RecordSource = “员工表“Data4.Refr
39、eshData4.Visible = FalseData5.DatabaseName = App.Path pwd=lee1012“Data5.RecordSource = “出库表“Data5.RefreshData5.Visible = FalseasPopup4.Enabled = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)Dim MyStr As StringMyStr = “通用库存管理由秦通电子有限公司开发“MDIFrmMain.MovingText1.MsgChar = MyStrEnd SubPrivate Su
40、b imgTitleClose_Click()Unload MeEnd SubPrivate Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)DoDrag MeEnd SubPrivate Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)DoDrag Me北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 28 页End SubP
41、rivate Sub imgTitleMinimize_Click()Me.WindowState = 1End SubPrivate Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)DoDrag MeEnd SubPrivate Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)DoDrag MeEnd SubPrivate Sub Timer
42、1_Timer()Data2.Recordset.FindFirst “名称 =“ & DBCombo2.Text & “If Data2.Recordset.NoMatch = True ThenMsgBox “Err“, 0, “提示“Timer1.Enabled = FalseExit SubTimer1.Enabled = FalseEnd IfLabel4.Caption = Data2.Recordset(“数量“)Label5.Caption = Data2.Recordset(“单位“)Timer1.Enabled = FalseDim MyStr As StringMyStr
43、 = CStr(DBCombo2.Text) & “ 原库存量“ & CStr(Label4.Caption) & CStr(Label5.Caption)MDIFrmMain.MovingText1.MsgChar = MyStrEnd SubPrivate Sub Timer2_Timer()If DBCombo3.Text = “ ThenMsgBox “没有选择服务客户！“Timer2.Enabled = FalseExit Sub北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 29 页End IfData3.Recordset.FindFirst “名称 =“ & DBC
44、ombo3.Text & “If Data3.Recordset.NoMatch = True ThenMsgBox “Err“, 0, “提示“Timer2.Enabled = FalseExit SubEnd IfDim MyStr As StringMyStr = CStr(Data3.Recordset(“名称“) & “ 地址： “ & CStr(Data3.Recordset(“地址“) & “ 联系人： “ & CStr(Data3.Recordset(“联系人“) & “ 电话：“ & CStr(Data3.Recordset(“电话“) & “ 需求产品：“ & CStr(D
45、ata3.Recordset(“产品“) & “ 数量：“ & CStr(Data3.Recordset(“数量“) & “ 备注：“ & CStr(Data3.Recordset(“备注“)MDIFrmMain.MovingText1.MsgChar = MyStrTimer2.Enabled = FalseEnd SubPrivate Sub Timer3_Timer()If DBCombo4.Text = “ ThenMsgBox “没有选择供应商！“Timer3.Enabled = FalseExit SubEnd IfData4.Recordset.FindFirst “姓名 =“
46、& DBCombo4.Text & “If Data4.Recordset.NoMatch = True ThenMsgBox “Err“, 0, “提示“Timer3.Enabled = FalseExit SubEnd IfDim MyStr As StringMyStr = CStr(Data4.Recordset(“姓名“) & “ 职务： “ & CStr(Data4.Recordset(“职务“) & “ 电话：“ & CStr(Data4.Recordset(“电话“)MDIFrmMain.MovingText1.MsgChar = MyStrTimer3.Enabled = F
47、alseEnd SubOption Explicit北京理工大学现 代 远 程 教 育 学院毕业设计(论文)第 30 页Private Sub asPopup3_Click(Cancel As Boolean)If Val(Text1.Text) = 0 ThenMsgBox “请输入入库数量！“Exit SubEnd IfIf DBCombo2.Text = “ ThenMsgBox “请选择入库仪器设备名称！“Exit SubEnd IfIf DBCombo4.Text = “ ThenMsgBox “请选择经手人！“Exit SubEnd IfDim a As Integera = Ms
48、gBox(“*你确定此操作吗？*“ & vbCrLf _& “仪器设备名称：“ & DBCombo2.Text & vbCrLf _& “原库存量：“ & Label4.Caption & Label5.Caption & vbCrLf _& “本次入库：“ & Text1.Text & Label5.Caption & “ 单价：“ & Text2.Text & “元“ & vbCrLf _& “供应商：“ & DBCombo3.Text & vbCrLf _& “经手人：“ & DBCombo4.Text & vbCrLf _, vbExclamation + vbOKCancel + v
49、bApplicationModal, “提示“)If a = 1 ThenData5.Recordset.AddNewData5.Recordset(“名称“) = DBCombo2.TextData5.Recordset(“供应商“) = DBCombo3.TextData5.Recordset(“数量“) = Text1.TextData5.Recordset(“单价“) = Text2.TextData5.Recordset(“经手“) = DBCombo4.TextData5.Recordset(“日期“) = DateData5.Recordset(“时间“) = TimeData5.UpdateRecordData5.Recordset.Bookmark = Data5.Recordset.LastModified*Data2.Recordset.EditData2.Recordset(“数量“) = Val(Label4.Caption) + Val(Text1.Text)Data2.Recordset.UpdateMsgBox “入库成功！“
