实习报告_优秀资料【资料毕业设计】

1、qinghai university专业实习设计说明书题目：铝材料仓库管理系统指导教师：李禧专业年级：信息管理与信息系统专业2010级所在学院和系：财经学院管理科学与工程系起止 日 期：2013年6月24日至2013年7月26日实习说明1、小组成员组长：姓名（学号）成员：姓名（学号）2、小组分工（耍求详细介绍每人工作，基本写满第一页即可）摘要随着计算机应用的普及和信息技术的发展，传统的统计方式在处理庞大的信息量及人 工处理数据存在的不准确性，是的信息的处理存在很大的劣势及缺陷。因此，人们对于运用 计算机来辅助协调和管理自身工作的需求正在逐步提高。近来，国内外兴起了一股办公自动 化的热潮，希望能

2、借助相关的计算机技术实现对企业办公过程的曰动化管理。目前，办公白 动化正朝着多功能，复合化和系统化的方向发展，如何有效的实现作业流程的口动化已经提 到口程上來。这样对信息流的冇效组织和管理便口益成为衡量一个办公自动化系统优劣的重 要标志。铝材料库存管理系统就是一个由人、计算机硬件、软件和数据资源组成的，目的 在于及时、正确、准确地收集、加工、存储、传送和提供决策信息的管理信息系统。该系统 主要是为了减轻工作屋、降低工作误差、提高工作效率而开发、编制的。希望通过使用本系 统，为仓库管理带來便捷！开发后的库存管理系统，是基于原有的管理模式上弥补人工操作繁琐、查询效果不理想、 效率较低的问题。经过编

3、译和调试，本系统能基本解决上述问题。主要用到了-些出入库时 的操作信息，还冇原料的一些基本信息。简单易懂的操作方式、友好的用户界面以及清晰简 洁的数据处理流程,使得木系统能够很快被接受和掌握，较快地取代原冇的全人工操作方式。在数据输入上，本系统主要有岀入库数据输入和原料基本资料输入两方面。出入库数据 的输入主要有出入库原料的资料、出入库原料的数量等；原料的基本资料主耍有编号、名称、 价格等。当进行数据杳询时，采用相关字段排序法。当有原料登记出库或者入库时，在库存 总数据库里的相应数据会及时更新，所以，从本系统获得的数据资料都是最新的。这对于库 存的管理、数据的查询来说，是非常有利的。铝材料库存

4、管理系统在対原有管理模式不进行很大改变的基础上将大大提高工作效 率，弥补了现有人工系统的缺陷，具可行性是显而易见的。关键词：出入库系统；库存管理;数据输入；数据查询;管理信息系统摘 要21绪论42调研2. 1调研的目的52. 2调研时间52. 3调研地点52. 4调研方式方法52.5调研内容52. 5. 1入库管理52. 52材料出库管理63系统和开发工具介绍3. 1系统介绍73. 2开发工具介绍74系统分析4. 1现有状况分析84. 2u/c 矩阵94. 3系统可行性分析94. 3.1技术可行性94. 3.2经济可行性104. 3.3社会可行性104. 4总体设计的原则104. 5系统需求分

5、析104. 5. 1系统功能分析104. 5. 2用例图114. 6系统数据流图分析154. 7数据字典164. 8本章|、结185系统设计5. 1总体设计185. 2程序模块设计及说明207系统的技术特点318总结32参考文献1绪论随着计算机应用的普及和信息技术的发展，传统的统计方式在处理庞大的信息量及人 工处理数据存在的不准确性，是的信息的处理存在很大的劣势及缺陷。因此，人们对于运用 计算机来辅助协调和管理自身工作的需求正在逐步提高。近来，国内外兴起了一股办公自动 化的热潮，希望能借助相关的计算机技术实现对企业办公过程的曰动化管理。目前，办公白 动化正朝着多功能，复合化和系统化的方向发展，

6、如何有效的实现作业流程的口动化已经提 到口程上來。这样对信息流的冇效组织和管理便口益成为衡量一个办公自动化系统优劣的重 要标志。计算机信息技术的发展，为企业注入了新动力，使企业在竞争中处于优势，为企业明 天的生存和发展创造了机会。计算机信息管理即mis,就是计算机信息技术高度发展和在企 业管理中运用的产物。现今，越来越多的企业利用mis进行企业管理、计划和决策工作，mis 在战略级、策略级、作业级这三级管理信息中的重要作用使得mts成为现代企业生存和发展 的必备条件。随着m1s的fi趋成熟和完善，势必在未來成为企业经营管理屮的一人关键环节!铝材料库存管理系统就是一个山人、计算机硬件、软件和数据

7、资源组成的，目的 在于及时、正确、准确地收集、加工、存储、传送和提供决策信息的管理信息系统。该系统 主要是为了减轻工作量、降低工作谋差、提高工作效率而开发、编制的。希望通过使用木系 统，为仓库管理带來便捷！2调研铝材料的库存管理是与生产和销售密切冇关的物流活动中的一项，包括了铝材料的出入 库、分拣、包装、配送和信息处理等几个方面。库存管理一般业务程序包括以下儿个方面：（1）签订仓库出入库合同（2）验收铝材料（3）办理入库手续（4）铝材料的保管（5）铝材料的出库卜面是我们对库存管理的调研：2.1调研的目的为了实现库存管理系统的设计，以及这种系统在实际中是如何操作的，并获得一定的实 践经验，因此开

8、展了此次调研活动。2. 2调研时间2013 年 06 刀 24 u2013 年 06 刀 28 口2. 3调研地点青海物产工业投资有限公司2. 4调研方式方法从此次实习开始，我们去青海物产工业投资有限公司参观学习并对此做了访问调查，学 习研究了好多关于我们正在设计的库存管理系统的相关流程，让我们冇了大量的收获，在学 习的路上倍感信心大增。也因此更进一步的了解了出入库管理系统对相关企业在牛产运营方 面的重要性。25调研内容库存管理中的铝材料的入库工作是仓库工作的第一项工作,铝材料入库是以材料的接运 和验收为中心展开的业务活动。2. 5. 1材料入库管理入库管理流程：（1）接到材料通知后提前做好接

9、料准备（人员、设备、库位的准备）（2）核对相关凭证（3）材料点收（4）验收材料（5）办理交接手续（6）材料入库图2 5 11入库流程图2. 5. 2材料出库管理材料的出库管理是指仓库管理员根据提货清单，在保证材料原先的质量和价值的情况下，组 织材料出库的一系列流程。出库程序：（1）出库前准备：包装整理、组配和分装、工貝准备、设备调整和人员组织。（2）核单备料（3）复核（4）包装（5）点交（6）登帐（7）现场和档案的清理图2521出库流程图3系统和开发工具介绍3. 1系统介绍（1）系统铝材料库存管理系统（2）系统功能本软件系统主要作用包插对材料仓库的口常存货管理，包含出库、入库和库存量的盘点,

10、对仓库内所有材料的查询功能，可以按照不同的条件，如材料编号或材料数量进行查询；对 己有的材料数据库进行增加、删除等操作功能。本软件的意旨在于：通过计算机对信息的管 理，能够使材料仓库的日常库存管理、信息查询变得简单、快捷，减轻工作人员繁重的工作 量、降低工作误差、提高工作效率。3. 2开发工具介绍（1）visual basic6. 0是一种常用的编程开发工具。它的基础是编程语言basic , visual basic简单点來说就是微软为了更好的让人们学习编程，应用上basic开发语言的一套工 具，简称是vb。（2）sql server 2005是microsoft公司发行的关系型数据库管理与分

11、析系统，它提供了 功能全面、操作简单的图形界面。（3）microsoft visio2003是windows操作系统下运行的流程图和矢量绘图软件,它是 microsoft office软件的一个部分。4系统分析41现有状况分析：现冇一个小型材料仓库，到目前为止，仍旧是全人工管理方式。出入库记录全部由人 工完成，工作量非常人，而且非常繁琐，也经常出现数据谋差的现象。虽然侑专职人员负责 数据核对与库存检点，但工作效率非常低。一段时间下來，随着仓库中材料的增多，单靠人 工管理显得力不从心。现有仓库材料入库的过程是，当预定的材料送到仓库时，仓库检验员根据定货单核对材 料编号和数量，确认无谋后，由仓库管

12、理员进行入库登记填写入库单，将材料入库；材料出 库的过程是，当有人提货时，仓库检验员根据提货单核对材料的编号和数量，确认无误后， 山仓库管理员进行出库登记填写出库单，将材料出库。材料出入库、数据记录与处理的业务流程图如图4-1-1所示:图4-1-1库存管理系统业务流程图注：我的侧重点在于岀入库的数据处理，不涉及出入库数据以外的数据。基于这种情况，综合所学的知识，我们准备开发一个名为铝材料库存管理系统。 该系统主要针对铝材料库存量和出入库的记录信息进行管理和存储加工，利用计算机计算的 精确性，降低在操作过程中产生的误差，该系统的主控权在仓库管理人员手中。同时，该软 件述提供了快捷、简单的杏询系统

13、，能够在短时间内提供所需的相关信息，节省时间和工作 环节，从一定程度上提高工作效率。4. 2 u/c矩阵数据* 程采 购 数通 知釆 购 单出 料 表入 料 表库 存 台 账领 料 单出 库 表送 料 表发 料 表收 款 收 据退 料 单销 售 退 料 单采 购 退 料 单补 料 单采购 作业'uc入库 作业ucu改存账 修库台ucu编制 领料 单c出库 作业uc编制 送料 单ucc发料 作业uc编制 销售 退料 单uc编制 补料 单c4. 3系统可行性分析可行性研究是任何一项大型工程正式投入力量之前必须进行的一项工作。对于保证资 源的使用、避免浪费是十分重要的，也是项目一口开始以后能

14、顺利进行的必要保证。“可行 性”是指在当前情况下，研制木系统是否有必要，是否具备必要的条件。可行性的含义不仅 包括可能性，还包括必要性、合理性。4. 3.1技术可行性本系统的开发基于.net和sql server 2005数据库技术。sql server 2005数据库与.net 集成在一起，可以轻松开发、功能丰富、存储安全可快速部署的数据驳动应用程序。青海物 产工业投资冇限公司出入库管理系统是一个基于数据库管理和查询的系统，现冇的技术已较 为成熟，硬件、软件的性能耍求、坏境条件等各项条件良好，利用现有技术条件可以达到该 系统的功能目标。在三年的学校学习过程中学握r. net和sql serv

15、er 2005数据库的设计 思想和代码编写。同时，考虑给予的开发期限也较为充裕，预计系统是可以在规定期限内完 成开发的。因此，本系统具有技术可行性。4. 3. 2经济可行性企业具冇信息化的处理设施，并且具冇支持木系统的应用平台。因此无盂再投入资金购 买其他设丿適。系统的开发基于我们对程序开发的时间学习而来，无需资金投入，系统开发成 功后将大大提高青海物产工业投资有限公司出入库管理方血的效率，使其管理走向正规化、 信息化，是其发展强大的必经z路。因此，本系统也具有经济可行性。4. 3. 3社会可行性本系统的社会可行性主要从法律因素、用户使用可行性两方面进行研究。（1）法律因素本系统是根据一般物产

16、公司实际工作情况來设计的，是通过人量的调研得出的，系统的 软件设计是在独立的环境下完成的，无可供抄袭的软件产站。（2）用户使用可行性本系统对用户的要求，除了需要具备在microsoft windows平台上使用个人的电脑知识 外，并不需要特别的技术能力，使用该系统的管理员，在投入使用前，无需对操作系统的人 员进行培训，这样既减少投入成本乂简化了操作坏节。4. 4总体设计的原则本系统为了设计、实现和后期维护的方便，以及系统用户使用的便利，所以必须采取一定的 设计原则。其主要设计原则有：简单性：在实现功能的同时，尽量讣系统操作简单易懂，这对于一个系统來说是非常重要的。 针对性：木系统设计是针对出入

17、库管理的需求定向开发设讣，所以具有专业突出和很强的针 对性。实用性：要求木系统能够满足出入库管理的需要，因此具有良好的实用性。致性：页面整体风格以及命名规则的一致性。功能一致性：完成同样的功能应该尽量使用 同样的元索。元索风格一致性：界面元索的美观风格、摆放位登在同一个界面和不同界面之 间都应该是一致的；变量命名规则的一致性：变量应该用统一的规则进行命名，做到任意变 量均能从上下文推断其义。先进性：本系统采用.net和sql server 2005作为系统开发工具和数据库，两个软件具有 良好的兼容性和系统稳定性。因此本设计具有良好的先进性。4. 5系统需求分析木系统是在基于对库存管理的工作流程

18、以及职能划分等了解分析的基础上，得出了关于 此系统功能的文字描述。木系统有四个角色，分别是入库管理员、出库管理员、仓库管理员、 系统管理员。4. 5.1系统功能分析本系统主要包括以下7个模块：（1）入库管理模块主要是入库管理员添加入库单、保存入库单、修改入库单（未确定的入库单才能修改）、删 除入库单（未确认的入库单才能删除）、确认入库单（已确认的入库单只能进行查询）、入库单查询。（2）出库管理模块主要是出库管理员添加出库单、保存出库单、修改岀库单（未确定的出库单才能修改）、删 除出库单（未确认的出库单才能删除）、确认出库单（已确认的出库单只能进行査询）、出库 单杏询.（3）仓库管理模块主耍是仓

19、库管理员对仓库进行增加、删除、修改操作和仓库查询。（4）货物管理模块仓库管理员对材料进行增加、删除、修改操作和材料查询。（5）库存管理模块仓库管理员对库存进行查询、对出入库进行统计。（6）客户管理模块仓库管理员对客户信息的增加、删除、修改和查询客户信息。（7）系统用户管理模块系统管理员对员工信息的增加、删除、修改、修改权限和査询用八信息。4. 5.2用例图1.系统的参与者根据乙前的调研和需求分析，参与本系统主耍有4个参与者。如图4-5-2-1所示qo /仓库管理系统图4-5-2-1参与者与系统边界（1）入库管理员负责入库管理功能；（2）出库管理员负责出库管理功能；（3）仓库管理员负责仓库管理、

20、材料管理、库存管理、客户管理功能;（4）系统管理员负责系统管理。2.系统的用例图（1）入库管理员用例图，如图4-5-2-2所示2）保存入库单目标：入库管理员对添加的入库单进行保存，保存之后可以修改和删除。3）修改入库单目标：入库管理员修改未确认的出入库。4）删除出入库目标：入库管理员删除未确认的入库单5）确认入库单口标：入库管理员对已保存的入库单进行确认，信息确认后不能修改和删除。6）查询入库单目标：入库管理员可以按所在仓库、材料编号、材料数量、状态（已确认、 未确认）和h期來查询。（2）出库管理员用例图，如图所示4-5-2-3所示1)2)3)4)添加出库单 保存出库单 修改出库单 删除出库单

21、图4 5 2 3出库管理员川例图目标：目标：目标：出库管理员添加出库的材料的信息。出库管理员对添加的出库单进行保存，保存之后可以修改和删除。 出库管理员修改未确认的出库单。出库管理员删除未确认的出库单。5）确认出库单目标：出库管理员对已保存的出库单进行确认，信息确认后不能修改和删除。6）查询出库单目标：岀库管理员可以按所在仓库、材料编号、材料数量、状态（已确认、 未确认）和日期来杏询。（3）系统管理员用例图，如图4-5-2-4所示图4-5-2-4系统管理员用例图1）添加用户冃标：系统管理员添加用户信息。2）删除用户目标：系统管理员删除用户信息。3）修改用户信息目标：系统管理员对用户名、密码、角

22、色进行修改。4）查询用户信息ii标：系统管理员可以按编码、用户名查询。分别是仓库管理、（4）仓库管理员用例图，山于用例图太多，所以按功能拆分成儿个包, 材料管理、客户管理、库存管理包。如图4-5-2-5所示库存管理图4-5-2-s仓库管理员包1）仓库管理包屮的功能，如图4-5-2-6所示图4-5-2-6仓库管理员辺用例图o仓库查询h标:添加仓库目标:o修改仓库目标:删除仓库1=1 标:2）材料管理包中的功能,仓库管理员查询仓库。 仓库管理员添加仓库信息。 仓库管理员修改仓库信息。 仓库管理员删除仓库信息。如图4-5-2-7所示。o材料数量查询 删除材料o修改材料数最增加材料图1-5-2-7材料

23、管理包中的用例图目标：对材料进行查询统计。冃标：按需求把不需要的信息删除。 目标：如材料数量变动，进行修改。目标：增加材料的数量。3）客户管理包屮的功能,如图4-5-2-8所示。图4-5-2-8客户管理包中的用例图o添加客八目标：仓库管理员添加货物的收货人。o修改客户ii标：仓库管理员修改客户信息。o删除客户1=1标：仓库管理员删除客户信息。客户查询目标：按客八的编号和名称进行查询。4）库存管理包中的功能，如图4-5-2-9所示。图1-5-2-9库存管理包中的用例图o库存查询 目标：可以査出仓库中材料的数量。出入库统计ii标：根据入库、出库单进行出入库的统计。46系统数据流分析：数据流图描述：

24、仓库管理系统的的数据流图是根据材料信息的数据流程进行的分析，对 现有的材料进行处理，系统的数据流图如下图所示：管理员：针对整个系统的各项信息，处理等进行管理操作。基木信息：主要包括材料、仓库、用户、入库、出库、账目、盘存的基本信息管理，以方便 管理进行各项处理操作。各种用表：主耍包括材料、仓库、用户、入库、出库、账冃、盘存的信息用表，主耍为方便 管理对各项信息进行管理操作。管理员材料信息材村数张材料信息管理材料信息表仓凶数抠仓库信息表川户并本數握仓！牟佶忌用户基木信息管理川八基本信息表用门茶木估m入库数据入库信息入库信息管理入库信息表出库信总出库数据出库信息管理左务伯息出库信息表盘存佶息财务数

25、据财务信息管理账h信息表盘ff数抠盘存信息管理盘存信息表仓库信息管理图4-6-1仓库管理系统的数据流程4. 7数据字典数据流名称：材料信息数据流来源：管理员数据流去向：材料信息管理 数据流名称：材料数据 数据流來源：材料信息來源 数据流去向：材料信息表数据流名称： 数据流来源： 数据流去向：仓库信息 管理员 仓库信息管理数据流名称： 数据流來源： 数据流去向:仓库数据 仓库信息管理 仓库信息表数据流名称： 数据流来源： 数据流去向:用户慕本信息 管理员用户基本信息管理数据流名称： 数据流来源： 数据流去向：用户基本数据 用户基木信息管理 用户基本信息表数据流名称： 数据流来源： 数据流去向：入

26、库信息 管理员 入库信息管理数据流名称： 数据流來源： 数据流去向：入库数据 入库信息管理 入库信息表数据流名称： 数据流来源： 数据流去向:出库信息管理员出库信息管理数据流名称： 数据流来源： 数据流去向： 数据流名称： 数据流來源： 数据流去向:出库数据 出库信息管理 出库信息表 财务信息 管理员 财务信息管理数据流名称：数据流来源：财务数据财务信息筲理数据流去向：账冃信息表数据流名称：盘存信息 数据流來源：管理员 数据流去向：盘存信息管理 数据流名称：盘存数据 数据流来源：盘存信息管理 数据流去向：盘存信息表4. 8本章小结本章主要从业务流程方面论述了本系统的可行性问题，其中包括经济可行

27、性、技术可行性、 社会可行性。通过本章的论述可证明铝材料库存管理系统是一个非常可行的系统，无论 是从前台的浏览技术，还是后台的数据库支持部分都很符合用户的需求。木章初步建立起开 发项目的模型，具体设计与实现将在后面待述。5. 系统设计5. 1总体设计系统设计目标：（1）.方便的数据输入方式，良好的人机界面，尽量避免汉字和长字符串的人工垂复输入;（2）.灵活地查询性能，能快速实现库存数据的查询；（3）.对新数据和无用数据也能给于处理；（4）.把ii前基本上是“静态”的库存管理数据变为“动态”的数据，能随时提供库存现 状信息：（5）.为了以后系统的改进，整个系统可以作为一个封装体。系统基木功能：（

28、1）仓库管理员登陆（2）入库管理（3）出库管理（4）查询（5）盘点（6）系统维护（增加、减少操作员，材料基本资料维护，数据备份、数据恢复） 系统的功能结构图绘制如图511所示:图5-1-1系统的功能结构图5.1.1：数据库设计针对以上功能的实现，结合对功能实现的方便，数据库结构精简、合理性、易维护等因 素的考虑，总共建了 5张表格，描述如下：(1) login：管理员数据表字段名数据类型数据长度编号int4用户名varchar50密码varchar50(2) productin：材料入库数据表字段名数据类型数据长度入库单编号int4材料单位varchar50入库价格money8入库数量int4

29、入库时间varchar50(3) productout：材料出库数据表字段名数据类型数据长度出库单编号int4材料单位varchar50出库价格money8出库数量int4出库时间int4（4）product:材料库存数据表字段名数据类型数据长度材料单位varchar50材料价格money8材料数量int4（5）productnew：材料阜本信息数据表字段名数据类型数据长度材料单位varchar50材料价格money852程序模块设计及说明1.用户登陆模块界而设计：功能分析：该窗体是系统的入口，用来判定登陆者是否有权使用本系统，只有用户名和密码输入都 正确才能进入系统。而且，根据用户名的不同，

30、能够使用系统的权限也不同，admin（仓库管 理员）能使川所有的系统功能，其它用户（操作员）不能使用系统维护功能（操作员维护、材料基木资料维护和数据备份恢复），但能使用除此z外的系统功能。功能实现：该窗体市七个label控件（川来标明该库存系统的简介以及输入用户名和密码的文本 框）两个toxtbox控件（用来输入用户名和密码）和一个conunandbutton控件（用来判断输 入的用户名和密码是否正确）组成。代码如下：where jij 户名private sub command1_c1ick()adodcl. recordsource = "select * from 管 理 员数

31、据 "& textl (0). text & "'and 密码二'"& textl (1). text &adodcl. refreshif adodcl. recordsebof = true thenmsgbox 找不到此用户textl (0). text =textl(1). text =""textl(0). setfocusel self adodcl. recordset. bof = false then forml. hide form2. showend ifif textl(0

32、). text <> "admin" then form2. command3enabled = false form2. command4. enabl ed = fal se form2. command5. enabled = falseend ifif textl (0). text = 出库管理员 then form2. commandl. enabled = false form2. command2enabled = trueform2conrniand3. enabled = falseform2conrniand4enabled = false

33、 form2conmiand5 enabled = falseend ifif textl (0). text = 入库管理员 then form2commandlenabled = true form2command2enabled = false form2 comniand3 enabled = false form2command4. enabled = false2.主窗体模块界面设计:功能分析:该窗体是系统的主界面,所有的系统应用都靠选取功能菜单及其下拉菜单中的操作项或 按窗体上的快捷按钮进入相应的操作。功能实现：首先用菜单编辑器编辑菜单：一级菜单“文件”（包括三个二级菜单“入库”

34、、“出库” 和“退出”）；一级菜单“杏询统计”（包括两个二级菜单“杏询”和“盘点统计”）；i级菜 单“系统维护”（包括三个二级菜单“操作员维护”和“备份恢复”）；-级菜单“帮助”。再 在窗体上建8个快捷按钮（“材料入库管理”、“材料出库管理”、“查询”、“材料管理”、“客 户管理”、“备份恢复”和“离开”）。3. 材料入库管理模块界面设计功能分析：材料入库。功能实现：该窗体是材料入库的界面，使用ado对象模型来访问product表（材料库存数据表）和 productout表（材料入库数据表）。为了得到方便的数据输入方式和良好的人机界面，应尽量避免汉字和长字符串的人工重 复输入，在窗体中用了一个

35、combobox控件和五个textbox控件来描述出库材料的基本资料。 首先，在加载该窗体时，把product表（原料库存数据表）屮“产品名称”字段的数据加入 到下拉框里，其次，加载该窗体后，在下拉框里选取所要入库的材料名称，再按确定钮，把 productnew表（材料基本信息数据表）中“产品编号”字段、“产品单位”字段和“产品 价格”字段的相应数据显示在三个文本框中。最后，在笫四个“产品数量”文本框中输入要 入库原料的数量，按入库钮完成原料入库，同时更新product表（材料库存数据表）和product i n表（材料入库数据表）。4. 材料出库管理模块界面设计:功能分析:材料出库。功能实现

36、：该窗体是材料出库的界面，使用ado对象模型来访问product表（材料库存数据表）和 productout表（材料出库数据表）。为了得到方便的数据输入方式和良好的人机界面，应尽量避免汉字和长字符串的人工重 复输入，在窗体中用了一个combobox控件和五个textbox控件来描述出库材料的基本资料。首先，在加载该窗体时，把product表（材料库存数据表）中“产品名称”字段的数据加入 到下拉框里，其次，加载该窗体麻，在下拉框里选取所要入库的材料名称，再按确定钮，把 product表（材料库存数据表）中“产甜编号”字段、“产品单位”字段、“产品价格”字 段和“产品数量”字段的相应数据显示在五个

37、文本框中。最后，更新product表（材料库存 数据表）和productout表（材料出库数据表）。5. 查询模块1.仓库编号查询可以使用仓库的编号进行查询。使用仓库的编号进行査询时，在窗体中用了一个combobox控件来描述查询条件一一仓 库的编号和三个text box控件来描述库存材料的资料。首先，在加载该窗体时，把product（材料库存数据表）中“仓库编号”字段的数据加入到卜拉椎里。其次，加载该窗休后，在卜拉框里选取所要查询的仓库编号，再按查询钮, 则把product表(材料库存数据表)中“材料名称”字段、“库存数量”字段和“材料数 量”字段的相应数据显示在三个文木框中，完成杳询。代码

38、如下：if combo1. listcount <= 0 thenexit subend ifadodcl. recordsource = "select * from 材 料 库存表 where 仓库编 号二,"& combo 1. text &"adodcl. refreshif adodcl. recordset. bof = false thentext 1. text = adodcl. recordset. fields (z/材料名称")text2. text = adodcl. recordset. fields (

39、z，材料单位")text4. text = adodcl. recordset. fields c材料库存数量")elsemsgbox 没有这种材料，请重新输入，提示end ifend subprivate sub command2_click()unload meend subprivate sub form_load()adodcl. recordsource = "select 仓库编号 from 材料库存表"adodcl. refreshadodcl. recordset. movefirstfor i = 0 to adodcl. record

40、set. recordcount - 1combol. additem adodcl. recordset. fields(0). valueadodcl. recordset. movenextnext iend sub2.材料名称查询可以使用材料的名称进行查询。使用材料的名称进行查询时，在窗体中用了一个combobox控件来描述査询条件材 料的名称和三个textbox控件来描述库存材料的资料。首先，在加载该窗体时，把product表（材料库存数据表）中“材料名称”字段的数据 加入到卜拉框里。其次，加载该窗体后，在卜拉框里选取所要查询的材料名称，再按查询钮, 则把product表（材料库存数

41、据表）屮“仓库编号”字段、“材料单位”字段和“材数量” 字段的相应数据显示在四个文本框中，完成查询。这个界面的代码和“仓库编号“的代码相同6. 材料管理模块界面设计:功自铉分析：对材料的管理。功能实现：代码如下：private sub command2_click()dim kc as integerif textl (0). text = or textl仃).text = or textl (3).text = or text2.text = thenmsgbox 文本不能为空，请重新输入，提示textl (0).text 二textl (1). text ="”textl (3

42、). text =text2. text =textl(0). setfocusel seadodcl. recordsource = "select * from 材料入库单"adodcl. refreshadodcl. recordset. addnewadodcl. recordset. fields("仓库编号").value = trim(textl (0). text)adodcl. recordset. fieds("材料名称").value = trim(combol. text)adodcl. recordset.

43、fieldsc材料单位z，). value = trim(textl (1). text)adodcl. recordset. fields (/z入库数量z/). value = trim(text2. text)adodcl. recordset. fields("入库价格").value = trim(textl (3). text)adodcl. recordset. updateadodcl. recordsource = "select * from 材料库存表"adodcl. refreshtextl (2). text = adodcl.

44、 recordset. fields (/z材料库存数量")kc = vai (text2. text) + vai (textl (2). text)adodcl. recordset. fields (，z 材料库存数量 “).value = trim(kc)adodcl. recordset. updatefor i = 0 to 3textl (i). text ="”next itextl(2). setfocustext2.text =msgbox "入库成功"end ifend subprivate sub commandl_click()

45、unload meend subprivate sub command3_click()dim kc as integeror text2. toif textl(o).text 二 ” or tcxtl (1). text = ” or text 1 (3). text = xt = "” thenmsgbox 文本不能为空，请重新输入”，”提示textl(0). text =textl (1). text =textl (3). text =text2. text = ”"text 1(0)setfocuselseadodcl. recordsource = "

46、;select * from 材料出库单"adodcl. refreshadodcl. recordset. addnewadodcl. recordset. fiel ds("仓库编号").value = trim(textl (0). text) adodcl. recordset. fields (“材料名称z/). value = trim(combol. text)adodcl. recordset. fields ("材料单位z/). value = trim(textl (1). text)adodcl. recordset. fields

47、("出库数量").value = trim(text2. text)adodcl. recordset. fields("出库价格").value = trim(textl (3). text)adodcl. recordset. updateadodcl. recordsource = "select * from 材料库存表"adodcl. refreshtextl (2). text = adodcl. recordset. fields(，z材料库存数量")kc = vai (textl (2). text) - v

48、ai (text2. text)adodcl. recordset. fieds(/，材料库存数量 “).value = trim(kc)adodcl. recordset. updatefor i = 0 to 3textl (i). text =next itextl(2)setfocustext2. text ="”msgbox "出库成功"end ifend subprivate sub form_load()adodcl. recordsource = "select 材料名称 from 材料库存表"adodcl. refreshad

49、odcl. recordset. movefirstfor i = 0 to adodcl. recordset. recordcount - 1 combo1. additem adodcl. recordset. fields(o). value adodcl. recordset. movenextnext iend sub7. 客户管理模块功能分析: 对用户的管理功能实现:代码如下:dim rs as new adodb. recordsetdim conn as adodb.connection 删除客户：private sub command2_click()dim varbmk

50、as variantdim massage as integerif datagridl. selbookmarks. count = 0 thenmsgbox 请先选定要删除的行exit subend ifdatagridl. allowdelete = truemassage = msgbox ("确定要删除吗？"，vbyesno)tf massage = vbno thenexit subend iffor each varbmk in datagridl. selbookmarkswith adodcl. recordset.bookmark = varbmk.de

51、leteend withnextadodcl. refreshend sub添加客户：private sub command3_click()unload meend subprivate sub form_load()set conn = new adodb. connect ionset rs = new adodb. recordsetme. left = (screen. width - me. width) / 2me. top = (screen. height - me. height) / 2end subprivate sub commandl_click()adodcl.

52、recordsource = "select 用户 from 管理员数据"if textl.text = "” or text2.text = ” or text3. text = "” thenmsgbox "用户名密码不能为空，请重新输入”、”提示textl .text =text2. text =text3. text =textl. setfocusel seadodcl. recordsource = "select * from 管理员数据 where 用户名 二,"& trim$ (textl. tex

53、t) &adodcl. refreshif adodcl. recordset. bof = true thenif len(text2. text) <> 3 thenmsgbox 密码必须是3位数，温馨提stelseadodcl.recordset.addnewadodcl. recordset. fields c"用户名 ”).value = trim(textl. text)adodcl. recordset. kiel ds (，z 密码 “).value = trim(text2. text)adodcl. recordset. fields(z，编号

54、，z). value = trim(text3. text)adodcl. recordset. updatetextl.text = ”"text2. text ="”text3. text =textl. sctfocusmsgbox 新用户注册成功，提示end ifel self adodcl. recordset. bof = false thenmsgbox，z此用户已存在，请重新输入用户名，提示textl. text =text2. text ="”text3. text = ”textl. setfocusend ifend ifend sub6系统的技术特点木系统使用activex数据对象（ado）访问数据库。ado是dao/rdo的后续产物。ado是为 microsoft最新和最强人的数据访问范例ole db而设计的。ole db是新的低层接口，它为 任何数据源提供了高性能的访问，这些数据源包括关系和非关系