毕业设计（论文）VB程序物资管理系统设计

摘要： 物资管理是一般工业、商业企业生产管理环节中重要的一环，需要对物资基本信息管理、物资调配信息等就进行完整的监控。物资入库首先需要登记物资的基本信息，然后登记物资入库信息，出库物资需要登记出库信息，根据物资的入库、出库过程的综合，得到各种物资的余额信息，方便进行后续工作。因此物资管理信息系统需要记录物资流通的全过程。关键字：物资基本信息， 物资出库， 物资入库Abstract:Material management is an important part in general industry and business production, we must have a complete control of the basic information management and allocation information of materials. In the step of check in we have to register the basic information of materials first, then register the check_ in information, in the step of materials check out we have to register the check_ out information .According to the synthesis of check_ in and check_ out process, we can have the surplus information of all materials so as for the latter work. So material management information system mast register the whole process of material circulation. Keywords: material basic information, material check in, material check out目录第一章 系统开发背境3第二章 开发环境介绍42.1 VB6.0开发环境介绍42.2使用的控件及其实现62.3使用的数据库及其简介7第三章 系统及其体系结构93.1系统设计103.2数据库设计103.3数据库结构的实现153.4物资管理信息系统主窗体的创建163.5系统用户管理模块的创建183.6 物资基本信息模块的创建203.7入库信息管理模块的创建213.8物资出库管理模块的创建213.9 物资管理模块的创建22第四章 总结30第五章 致谢31第六章 参考文献31第七章 设计代码32第一章 系统开发背境在当今时代中，时代的社会化程度超过了国界，形成了全球性的，相互密切联系的统一的大市场。即使是一个仅仅拥有国内客户和供应商的小企业，仍可能面临国外的竞争，社会的发展，全球化的进程使得竞争越来越激烈。一个企业要想在激烈的竞争中取得优势，对企业物资的管理是重要的一环，物资的管理包括物资的入库、管理、出库等环节在生产过程中要保证库存货物的数量在合理的限度之内，既不过多也不过少，在社会化大生产的条件下，为了发展规模经济和提高生产、流通的经济效益、库存适当集中应当是库存合理化的一个重要标志。库存适当集中有利于采用机械化，现代化方式进行各种操作，并且可以降低储存费用和运输费用以及提高包供能力等方面取得优势。并且可通过库存的数量确定各种物资的使用情况，对企业了解市场的需求，确定未来发展重点、发展方向、发展策略有重要的作用。但由于材料的多样性及动态变化性，使得对物资的管理和统计变的越来越复杂。随着技术的发展、计算机应用的普及以及自动化办公的应用使得对物资管理的自动化变的势在必行。本实验即是开发一个简易的物资管理系统，整个系统从设计到实现，先后经历了系统功能分析、系统功能模块设计、 数据库需求分析、数据库概念结构结构设计、数据库逻辑结构设计、数据库设计等阶段。第二章 开发环境介绍2.1 VB6.0开发环境介绍VB简介： 1991年Microsoft公司推出的Windows应用程序开发工具Visual Basic，使得自己动手设计Windows用户界面变的更加容易和方便。Visual 意为“可视化的”，指的是一种开发图形用户界面（GUI）的方法，所以Visual Basic是基于Basic的可视化程序设计语言。在VB中，一方面继承了其先辈Basic所具有的程序设计语言简单易用的特点，另一方面在其编程系统中采用了面向对象、时间驱动的编程机制，用一种巧妙的方法把Windows的编程复杂性封装起来，提供了一种所见即所得的可视化程序设计方法，为广大非计算机专业人员学习、使用、研究和开发Windows环境下的应用程序带来佳音。 Visual Basic最早是由Microsoft公司在1991年推出的，刚推出的 Visual Basic存在一些缺陷，功能也相对少一些。经过Microsoft的不断努力，在1992年、1993年、1995年、1997年、1998年相继推出了VB2.0、VB3.0、VB4.0、VB5.0、VB6.0五个版本。VB6.0包括三个版本，分别为学习版、专业版和企业版。VB功能特点：VB的主要功能特点如下： 1.具有面向对象的可视化设计工具 在VB中，应用面向对象的程序设计方法（OOP），把程序和数据封装起来视为一个对象，每个对象都是可视的。程序员在设计时只需要用现有的工具根据界面设计的要求，直接在屏幕上“画”出窗口、菜单、按钮、滚动条等不同类型的对象，并为每个对象设置属性。 2.事件驱动的变成功能 事件驱动是非常适合图形界面的编程方式。传统的程序设计是一种面向过程的方式。程序总是按事先设计的流程运行。但是在图形用户界面的应用程序中，是由用户的动作事件掌握着程序运行的流向。每个事件都驱动一段程序的运行。 3.提供了易学易用的应用程序开发环境 在VB集成开发环境中，用户可设计截面、编写代码、调试程序，直接把应用程序编译成可执行文件在Windows中运行，使用户在友好的开发环境中工作。 4.结构化的程序设计语言 VB具有丰富的数据类型和结构化程序结构，而且简单易学，此外，作为一种程序设计语言，VB还有许多独到之处： （1）强大的数值和字符串处理功能。 （2）丰富的图形指令，可方面的绘制各种图形。 （3）提供静态和动态数组，有利于简化内存管理。 （4）支持随即文件的访问和顺序文件的访问。 （5）提供了一个可供应用程序调用的包括很多类型的图标库等。 5.支持多种数据库系统的访问 利用数据控件可访问的数据库有：Microsoft Access 、Btrieve、dBase 、Microsoft FoxPro等 ，也可以访问Microsoft Excel等多种电子表格。6.支持动态数据交换（DDE）、动态链接库（DLL）和对象的链接与嵌入（OLE）技术。 7.完备的HelP连机帮助功能VB6.0增加的特性和功能主要如下： 1.Data Access(数据访问） （1）ADO（ ActiveX 数据对象） 新的数据访问对象技术标志了一个更为简单的对象模型。为本地和远程数据提供的通道接口。可远程访问的和断开的记录集，用户可访问的数据绑定接口以及层次结构的记录集。 （2）数据环境（Data Environment） 数据环境设计器提供了一个创建ADO对象的交互式的设计时环境，不仅支持VB的UserConnection设计器的所有功能，还支持一些附加的功能，包括拖放、层次结构、分组以及合计等。 （3）ADO Data 控件 这是一种新的、OLE DB 识别的数据源控件，其功能与内部的Data 和 remote Data 空间十分相似，通过这种方式允许用最少的代码创建数据库应用程序。 （4） 增强的数据绑定功能 VB6.0可以将任何ADO/OLE DB数据源绑定到任何ADO/OLE DB数据使用者。可以设置空间的Datasource属性动态的绑定空间到数据源，可以创建数据源和数据使用者的类。并且通过新的 BindingCollection对象绑定这些类，可以创建与ADO数据空间相似的、用做数据源的用户控件及与 DataGrid控件相似的、复杂绑定的用户控件。 （5）OLE DB支持 OLE DB是一组COM接口，支持大量可应用于数据源的DBMS功能，使数据源能够共享其数据。ADO是编程人员访问OLE DB的方法。所有新的数据绑定控件，数据环境和数据报表设计器都是OLEDB可识别的，这些接口支持大量DBMS功能。 （6）可视化数据库工具集成 仅针对VB6.0企业版。用其可以可视化地创建并修改数据库和查询，创建SQL server和 Oracle数据库表，自动改变列数据类型等。 （7）数据报表（Data Report) 用于专业版和企业版，可以采用拖放方法从继承数据集中快速创建报表。 （8）数据源（Data Source） 用于专业版和企业版，可以创建为其他控件绑定的用户数据源控件和类。 （9）数据视图窗口（ Data View Window） 用于专业版和企业版，采用该窗口可浏览所有数据库。 2.开发环境 （1）表格和控制代码同时在一个全屏的多文本界面（MDI）中处理，即每一个控制代码窗口均作为一个子窗口独立于主窗口中。每一个子窗口都可以从主窗口菜单中找到。同其他多文本界面应用程序。如Word、EXCEL一样，可以全屏幕显示子窗口，也可以同时显示多个字窗口。 （2）可以 同时编程多个项目，即无须关闭一个项目，而打开另一个需要修改的需要。 （3）可以重新配置全部工具栏和窗口，使开发界面符合开发者的需要。 （4）改进了代码编辑器。程序源可以看到一些对象和函数的常数清单，用于定义某些属性，如字体、颜色或图表等。 3. 新控件： VB6.0在增强原有控件功能的基础上又增加了许多新的控件，如ADO Data控件、 Coolbar 控件、DataGrid控件、Datalist及DataCombo控件、ImageCombo等，各种控件的使用将在下面控件介绍中具体说明。 2.2使用的控件及其实现 1. ADO Data控件的使用ADO Data控件能使用Microsoft ActiveX Data Objects(ADO)快速地创建一个到数据库的连接。可以在属性窗口中也可在程序中对控件的属性进行设置。把ADO Data控件添加到工具箱上：工程组建control 选项卡Microsoft ADO Control 即可。ADO Data控件的使用： 1）在窗体上放置一个ADO Data控件2） 右击控件在属性页中有三中可以选择的连接资源。本次选择“使用ODBC数据源名称”，名称为material。在记录源选项中命令类型选择为adCmdText，在命令文本框中输入SQL语句，也可在程序中设置。2. MSFlexGrid 控件MSFlexGrid 控件（Microsoft FlexGrid）控件可以显示网格数据，也可以对其进行操作。将将它绑定到一个Data控件上，MSFlexGrid显示的将是只读的数据。通过选择“部件”“Microsoft Flex Grid 6.0” 即可把MSFlexGrid 控件添加到工具箱上，通过拖放可在窗体中建立一个MSFlexGrid 控件。把控件的DataSource设置为Data控件的名称。 在使用MSFlexGrid 控件时应该注意不可与ADO Data控件连用。3. Data控件的使用Data控件使用三中类型的RecordSet对象（数据访问对象DAO、远程数据对象RDO和ActiveX数据对象ADO）中的任何一种来提供对存储在数据库中数据的访问。Data控件允许从一个记录移动到另一个记录，并显示和操作来自被连接的控件记录的数据。如果没有Data控件或等价的数据源控件，窗体上的被连接数据觉察控件不能自动访问数据。控件的使用过程：在窗体中放置一个Data控件，在属性窗体中将“连接“属性设置为想要使用的数据库类型，本题中应选择Access，将”Database Name”属性设置为想要连接的数据库的文件或目录名，将记录源属性设置为想要访问的数据库表的名称。即可建立起与数据库的连接。 程序中还用到了Lable 控件、TextBox控件、 Frame控件 CommandButton控件、 OptionButton控件、 ComboBox控件等常用控件。这些控件的属性可在属性窗口中根据需要进行设置。2.3使用的数据库及其简介数据库结构的演变过程大概经历了：最简单的文件类型、层次数据库、网状数据库，但由于这些结构的复杂性和不易维护性，近几年来，特别是商业应用中，都是以关系数据库为主要的数据模型。关系数据库的基本概念是基于现实世界中的许多实体及实体间的关系，结构简单富有弹性，已经成为目前商业数据库的主流。Microsoft Access 就是一种采用关系结构的数据库管理系统，它具备一般数据库管理系统所拥有的功能，与其他大型数据库管理系统（Microsoft SQLServer、 oracle、 Sybase等）相比，Microsoft Access提供了一个经济实惠的解决方案，本实验中数据库的建立采用的即是Access。在Access数据库中包含了七中数据库对象，分别是“表”、“查询”、“窗体”、“报表”、“页”、“宏”、“模块”。本实验中主要涉及到表的应用。表是特定主题的数据集合，例如“产品”表中包含所有产品的记录，以及每个产品的属性描述，表是以表格的方式呈现的，表格的最上方为表的“字段名”，其他则是表中的记录。简单表的创建有多中方法，使用向导、使用设计器和通过输入数据都可以建立表。本实验是通过“使用设计器创建表“的方法建表的，具体实现过程见数据库的实现部分的介绍。第三章 系统及其体系结构3.1系统设计3.1.1 系统功能分析 系统开发的总体任务是实现物资信息的系统化，规范化和自动化。 系统功能分析是在系统开发的总体任务的基础上完成。本次毕业设计需要完成的功能主要有：（1）        有关物资基本信息的输入，包括物资编号、物资名称、规格类型、种类和计量单位等。（2）        物资基本信息的查询（3）        物资基本信息的修改（4）        入库物资信息的输入（5）        入库物资信息的查询（6）        入库物资信息的修改（7）        出库物资信息的输入（8）        出库物资信息的查询（9）        出库物资信息的修改（10）    物资余额信息的查询（11）    物资余额信息的浏览3.1.2 系统功能模块设计对上述各功能进行集中、分块，按照结构化程序设计的要求，得到如图（一）所示的系统功能模块图。 物资管理信息系统 余额物资信息管理出库物资信管理理入库物资信息管理管理物资基本信息管理管理系统管理物资余额信息 查询查询物资出库信息修改物资出库信息添加物资出库信息查询物资入库信息修改物资 入库信息添加物资入库信息查询物资基本信息修改物资基本信息添加物资基本信息修改密码添加用户 图（一）3.2数据库设计设计数据库设计时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：1)        数据库需要分析2)        数据库概念结构设计3)        数据库逻辑结构设计3.2.1 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询等方面，这就要求数据库结构能充分满足各种信息的输入和输出。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。用户的需求具体体现在各种信息的提供、保存、更新和查询等方面，这就要求数据库结构能充分满足各种信息的输入和输出。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。 仔细分析调研有关物资管理信息需求的基础上，得到如图（二）所示的本系统所处理的数据流程。 物资登记基本信息录入物资基本信息管理出库物资信息管理物资调配入库物资信息管理物资余额信息管理 图（二） 物资管理信息系统数据流程图  针对一般物资管理信息系统的需求，通过对物资调配工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：I.    物资基本信息，包括的数据项有：物资编号、物资名称、规格类型、类别、计量单位等。II.    入库物资信息，包括的数据项有：物资编号、物资名称、规格类型、类别、计量单位、数量、单价、金额、入库时间、经办人、保管人、仓库、备注等。III.    出库物资信息，包括的数据项有：物资编号、物资名称、规格类型、类别、计量单位、数量、单价、金额、领用时间、领用人、经办人、仓库、备注等。IV.    物资余额信息，包括的数据项有：物资编号、物资名称、规格类型、类别、计量单位、数量、金额、仓库等。V.      用户的基本信息，包括的数据项有：用户编号，用户密码，备注等。有了上面的数据结构，数据项和数据流程。我们就能进行下面的数据库设计。3.2.2 数据库概念结构的设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需要的各种实体以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包括各种具体信息。通过相互之间的作用形成数据的流动。本事例根据上面的设计规划出的实体有：物资基本信息实体、物资入库信息实体、物资出库信息实体。物资余额信息实体。各个实体具体的描述E-R图如下。物资基本信息实体物资编号物资名称物资种类物资规格计量单位 图（三） 物资基本信息E-R图入库时间物资入库信息实体物资基本信息保管人经办人 图（四）物资入库信息实体E-R图 物资出库信息实体物资基本信息出库时间经办人领用人 图（五）物资出库信息实体E-R图物资余额信息实体 物资基本信息金额仓库数量 图（六） 物资余额信息实体E-R图 3.2.3 数据库逻辑结构设计现在需要将上面的数据库概念结构化转化为ACCESS数据库所支持的实际数据模型，也就是数据库的逻辑结构。物资管理信息系统数据库中各个表格的设计结果如下面的表格所示。每个表格表示在数据库中的一个表，各个表所包含的字段如下： 表（一） material物资基本信息表 列名数据类型可否为空说明wzidvarcharNOT NULL物资编号wznamevarcharNOT NULL物资名称wzspecvarcharNOT NULL规格类型wzkindvarcharNULL类别wzunitvarcharNULL计量单位 表（二） msave 入库物资信息表格列名数据类型可否为空说明rknovarcharNOT NULL入库编号rkidvarcharNOT NULL入库物资编号rknamevarcharNULL物资名称rkspecvarcharNULL规格类型rkkindvarcharNULL种类rkunitvarcharNULL单位rkaccountnumericNOT NULL数量rkpricenumericNOT NULL单价rkvaluenumericNOT NULL金额rkdatedatetimeNOT NULL入库时间rkdeal_personvarcharNOT NULL经办人rksave_personvarcharNOT NULL保管人rkbasevarcharNULL仓库rkmemotextNULL备注 表（三） muse出库物资信息表列名数据类型可否为空说明lynovarcharNOT NULL入库编号lyidvarcharNOT NULL入库物资编号lynamevarcharNULL物资名称lyspecvarcharNULL规格类型lykindvarcharNULL种类lyunitvarcharNULL单位lyaccountnumericNOT NULL数量lypricenumericNULL单价lyvaluenumericNULL金额lydatedatetimeNOT NULL出库时间lyuse_personvarcharNOT NULL经办人lydeal_personvarcharNOT NULL领用人lybasevarcharNULL仓库lymemotextNULL备注 表（四） 物资余额信息表格  列名数据类型可否为空说明yeidvarcharNOT NULL物资编号yenamevarcharNOT NULL物资名称yespecvarcharNULL规格类型yekindvarcharNULL种类yeunitvarcharNULL计量单位yeaccountnumericNOT NULL数量yevaluenumericNOT NULL金额yebasevarcharNOT NULL仓库yememotextNULL备注3.3数据库结构的实现 3.3.1 创建数据库和数据表 用Access建立数据库。打开Access新建数据库，选择“空Access数据库”，输入数据库的名字。即可创建了一个新的数据库，但是一个空的。在本实验中只需建立几张表格即可。表格的建立过程：选择“使用设计器创建表”，单击工具栏上“设计”按钮，在字段名称列的第一个单元格中输入字段名 在“数据类型”列中单击第一个单元格，单击出现的下三角按钮，然后在打开的下拉列表中选择所需的字段类型。同理建立其他的字段。 双击表名即可将数据输入表中。 值得注意的是，数据库中的每一个表都有一个主关键字，它保证表中的每一条记录都是唯一的，不同表之间的关联就是通过表的主键字段来确定的。主键的建立，在表的设计视图中选择要定为主键的字段，然后单击工具栏上的主键按钮即可快速的创建主键。3.3.2 VB的设置 由于程序利用ADO(ActiveX Data Object) 完成对数据库的访问和操作，需要添加ADO库。选择 Visual Basic的“ Project”菜单中的“ Reference”，在对话框中选择“ Microsoft ActiveX Data Object 2.7 Library ”即可。 3.3.3 创建ODBC 程序对数据库的访问需要通过ODBC来实现。打开“控制面板”中“管理工具”的“ODBC（数据源）”。在出现的对话框中创建文件DSN。选择“添加”按钮，在创建新数据源对话框内选择安装数据源的驱动程序，本题中应选择“Driver do Microsoft Access(*.mdb)”即可。点击“下一步”按钮，键入想要保存此连接的文件数据源的名称，本题为material. Dsn。即完成了数据源的创建。然后在ODBC Microsoft Access 安装的对话框中选择数据库。本题的数据库为db1.mdb。即完成了与数据库的连接。3.4物资管理信息系统主窗体的创建 3.4.1 创建工程项目Material_MIS 打开Visual Basic后，单击FileNew Project 菜单，在工程模块中选择Standard EXE,Visual Basic 江自动产生一个Form窗体，属性都是缺省设置。这里我们删除这个窗体，单击 FileSave Project菜单，将这个工程项目命名为 Material_MIS。3.4.2 创建物资管理信息系统的主窗体 这个项目我们使用多文档界面，单击工具栏中的ADD MDI Form按钮，产生一个窗体，在这个窗体中添加所需的控件，主窗体建成后的界面如下所示： 主界面窗口3.4.3 创建主窗体的菜单 在主窗体中单击鼠标右键，选择弹出式菜单中的Menu Editor创建如下所示的菜单结构： 系统修改密码添加用户退出物资基本信息管理添加物资基本信息修改物资基本信息查看物资基本信息物资入库信息管理添加入库物资信息修改入库物资信息查看入库物资信息物资出库信息管理添加出库物资信息修改出库物资信息查看出库物资信息物资余额信息管理查看物资余额信息 主窗体的菜单结构在菜单中添加一个工具栏和一个状态栏，选择Project菜单中的 Components选项，然后单击Components 对话框中的Controls选项卡，选择 Microsoft Windows Common Controls 选项。然后单击OK关闭Components对话框。这样就将工具栏（Toolbar）和状态栏（Status Bar）添加到 Visual Basic 的工具箱中。单击工具栏和状态栏图表即可按需要对他们进行设置。 在工具栏中添加按钮：在工具栏中右击鼠标在弹出的菜单中选择“属性”选项。在属性页中选择按钮选项，单击Insert Button 按钮即可插入新的按钮（同样可以用Remove Button按钮删除）。每个按钮有一个Index值，它将被传给Click事件处理。也可以给每个按钮一个 Key值，通过Key值可以将工具栏按钮连接到菜单选项。通过设置“工具提示文本”可以在程序运行时出现按钮工具提示。可以通过插入新的按钮将其Style属性设为tbrSeparator的方式在工具栏中添加分隔符。 在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。选中状态栏控件，单击鼠标右键,选中Property菜单，然后设置属性。面板1示“Status”，面板2用来显示当前日期，面板3用来显示当前系统时间。3.4.4 创建公用模块 在VB中可以用公用模块来存放整个工程项目公用的函数、过程和全局变量等。这样可以提高代码的效率。在项目资源管理器中为项目添加一个Module,保存为Module.bas。由于系统中各个功能模块都将频繁使用数据库中的各种数据，因此需要一个公共的数据操作函数，用以执行各种SQL语句。添加函数ExecuteSQL，代码(见第七章1)ExecuteSQL函数有两个参数：SQL和MsgString。其中SQL用来存放需要执行的SQL语句，MsgString用来返回执行的提示信息。函数执行时，首先判断SQL语句中包含的内容：当执行查询操作时，ExecuteSQL函数将返回一个与函数同名的记录集对象（Recordset），所有满足条件的记录包含在记录中；当执行更新、添加等操作时不返回记录集对象。在ExecuteSQL函数中使用了ConnectString函数，这个函数用来连接数据库。代码(见第七章2)3.5系统用户管理模块的创建用户管理模块主要实现：用户登陆添加用户修改用户密码3.5.1用户登陆窗体的创建系统启动后，将首先出现用户登陆窗体，窗体使用的控件及各个控件的布局见程序实现的部分。用户首先输入用户名，然后输入密码。如果用户3次输入密码不正确，将退出程序。过程： 用户如果没有输入用户名和用户密码，将出现消息框给予提示。如果输入的用户名在用户表格中没有找到，将提示重新输入用户名，文本框txtUserName将重新获取输入焦点。如果用户输入的密码不正确，文本框txtPassword将重新获取输入焦点。用户登陆成功，全局变量ok将被赋值True；一旦三次输入密码不正确，全局变量ok将被赋值为False。公用模块中的Main过程将根据OK的值决定是退出，或者进入系统。程序代码见附录：登录窗体的程序代码 如果用户取消登陆，单击“取消”按钮，将触发按纽的Click 事件,代码如下： OK=FalseMe.HindMe是 Visual Basic中一个常用的对象，用来指代当前对象本身。3.5.2添加用户窗体的创建进入系统后，选择菜单“系统 / 添加用户”或者工具栏中“添加用户”的按钮就可以添加用户。出现添加用户的的窗体，窗体使用到的控件以及各控件的布局情况见程序实现时的添加用户的窗体界面。 一旦输入完毕，系统将首先查询数据库中与新建用户名相同的记录，如果有相同的记录将提示用户重新输入用户名。当确定数据库中没有相同的用户名，并且两次输入的密码一致时，将把该条记录添加到数据库中。程序见附录：添加用户窗体代码单击“取消”按钮将取消添加用户的操作，代码如下：private sub cmdCancel_Click() unload Meend sub3.5.3修改用户密码窗体的创建 用户可以修改自己的密码，选择“系统 / 修改密码”或者直接选择工具栏上“修改密码”按钮将出现修改密码的窗体，窗体中使用到的控件以及各个控件的布局见程序实现时修改用户密码窗体的界面。 当两次输入的密码一致时，数据库中的记录将更新。程序代码见附录：修改用户密码窗体代码。按“取消”按钮将取消修改密码的操作。3.6 物资基本信息模块的创建 物资基本信息管理模块主要实现如下功能：添加物资基本信息修改物资基本信息查询物资基本信息3.6.1添加物资基本信息窗体的创建选择“物资基本信息管理 / 添加物资基本信息”或者单击工具栏上的“添加物资基本信息”按钮将出现添加物资的窗体，窗体使用的各控件及布局见程序实现部分。程序首先对是否输入内容进行判断，然后进行格式判断。在物资管理中，所有的物资都有唯一的编号，并且不同型号的物资对应不同的编号。程序将判断是否有相同的ID和重复内容的记录，然后添加数据到数据库。最后根据状态来显示相应的信息：如果是添加状态，将提示添加成功，然后重新显示并清空所有文本框，以便继续添加记录；如果处于修改状态，将提示修改成功，然后更新所有记录的列表。程序代码(见第七章3)3.6.2修改物资基本信息窗体的创建选择“物资基本信息管理 / 修改物资基本信息”菜单或者选择工具栏上“修改物资基本信息”按钮将出现修改物资的窗体，窗体中放置一个表格控件。显示material表格中所有物资的基本信息，在表格中选择要修改的物资，再选择修改物资基本信息菜单，将弹出物资基本信息窗体，此时将触发menuModeifydriver的Click事件。代码(见第七章4)在窗体中即可对物资的基本信息进行修改。输入完后点击“保存”按钮，程序运行过程与添加物资信息时相同。3.6.3查询物资基本信息窗体的创建选择“物资基本信息管理 / 查询物资基本信息”菜单或者选择工具栏上“查询物资基本信息”按钮，将出现物资基本信息查询的窗体，在这里可以按照各种方式以及他们的组合进行查询。程序运行的过程：首先选择查询方式，然后输入查询的内容。程序首先判断查询方式，如果没有设置查询方式将显示查询信息；然后对查询内容进行组合，组成SQL语句，进行查询。查询到数据集以后，需要正常显示在表格控件中。运用循环将每一条记录的每一个字段显示出来。窗体的程序(见第七章5) 3.7入库信息管理模块的创建入库信息管理模块主要实现如下的功能：添加入库信息修改入库信息查询入库信息3.7.1添加物资入库信息窗体的创建选择“物资入库信息管理 / 添加物资入库信息”菜单或者选择工具栏上“添加物资入库信息”按钮将出现添加物资入库的窗体，窗体上使用的各控件及其布局见程序实现时的界面。载入窗体时，物资信息中将自动添加已有物资基本信息，代码加在窗体的Load中。程序见附录。在添加其余的信息后点击“保存”按钮，将触发Click事件，程序首先对是否输入内容进行判断，然后进行格式判断（入库时间字段的输入应该为时间类型，若是则格式化为既定的格式。否则应提示用户应该输入日期）。判断物资余额表中是否有当前的记录，若没有就添加新记录。更新物资余额表中的相关信息，最后添加内容到数据库，并提示添加成功，然后重新显示入库信息的窗体并清空所有文本框，以便继续添加记录代码见附录。 3.7.2修改物资入库信息选择“物资入库信息管理 / 修改物资入库信息”菜单，将出现修改物资入库信息的窗体。选择要修改的物资，然后单击“修改物资入库信息”按钮则可以对物资的信息进行修改。程序运行过程为：首先判断为修改状态，删除原来的记录，然后将新内容加入到数据库中，同时保持对物资余额表中相关信息的更新。程序代码见附录。3.7.3查询物资入库信息选择“物资入库信息管理 / 查询物资入库信息”菜单，将出现查询物资入库信息的窗体。程序运行的过程：首先选择查询方式，然后输入查询的内容。程序首先判断查询方式，如果没有设置查询方式将显示查询信息；然后对查询内容进行组合，组成SQL语句，进行查询。查询到数据集以后，需要正常显示在表格控件中。运用循环将每一条记录的每一个字段显示出来。查询的程序代码(见第七章6) 3.8物资出库管理模块的创建出信息管理模块主要实现如下的功能：添加出库信息修改出库信息查询出库信息3.8.1添加物资出库信息窗体的创建选择“物资出库信息管理 / 添加物资出库信息”菜单或者选择工具栏上“添加物资出库信息”按钮将出现添加物资出库信息的窗体，窗体上使用的各控件及布局见程序实现部分的添加物资入库的界面。载入窗体时，物资信息中将自动添加已有物资信息，代码加在窗体的Load中。程序见附录。 输入完内容，单击“保存”按钮将触发Click事件，首先检查文本内容是否符合格式要求，然后判断是否有重复记录，并更新物资余额表中的相关信息，最后添加内容到数据库，程序运行过程与物资入库时类似，代码见附录。3.8.2修改物资出库信息选择“物资出库信息管理 / 修改物资出库信息”菜单，将出现修改物资出库信息的窗体。选择要修改的物资，然后单击“修改物资出库信息”按钮则可以对物资的信息进行修改。程序运行过程为：首先判断为修改状态，删除原来的记录，然后将新内容加入到数据库中，同时保持对物资余额表中相关信息的更新。整个过程与入库时也类似。程序见附录部分。3.8.3查询物资出库信息选择“物资出库信息管理 / 查询物资出库信息”菜单，将出现出库物资查询的窗体，界面的布局见程序实现部分。在窗体中可以按照不同的查询方式及他们的组合进行查询。具体实现过程也与入库时类似，代码见附录部分。3.9 物资余额信息管理模块的创建物资余额信息管理模块主要实现如下的功能：浏览物资余额信息 物资余额信息窗体的创建 选择“物资余额信息管理 / 查询物资余额信息”菜单，将首先出现查询余额信息的窗体，可按照图中的各种条件进行各种组合。程序运行的过程：首先选择查询方式，然后输入查询的内容。程序首先判断查询方式，如果没有设置查询方式将显示查询信息；然后对查询内容进行组合，组成SQL语句，进行查询。查询到数据集以后，需要正常显示在表格控件中。运用循环将每一条记录的每一个字段显示出来。窗体的程序见附录：查询物资余额信息窗体的代码。单击“取消”按钮将退出程序。 程序的实现现在已经完成了程序各个功能模块的创建，现在运行整个系统。运行程序，出现如图4-1所示的登录界面。 4-1用户登录窗口输入用户名和密码后，进入系统。选择“系统 / 添加用户”或者直接点击工具栏上的“添加用户”按钮即可添加新的用户。如4-2所示： 4-2 添加用户 选择“系统 / 修改密码”或者直接点击工具栏上的“修改密码”按钮即可修改用户密码，如图4-3所示： 4-3修改用户密码选择“物资基本信息管理 / 添加物资基本信息”或者直接选择工具栏上的“添加物资基本信息”按钮，出现如图4-4所示的窗口，输入内容。 4-4 添加物资基本信息按“确定”后程序返回到“物资信息添加”窗口，保存后文本框中的内容自动清空，以便添加其他的物资信息。选择“基本信息管理 / 修改物资基本信息”菜单或者直接点击工具栏上的“修改物资基本信息”按钮即可进入物资基本信息修改窗口。选择要修改的物资单击“修改物资基本信息”按钮，即可在出现窗口中修改物资的基本信息。 4-5修改物资基本信息选择“基本信息管理 / 查询物资基本信息”菜单或者直接选择工具栏上的“查询物资基本信息”按钮即可进入如图4-6所示的查询物资窗口，可在窗口中选择查询方式，根据不同的需要对查询条件进行设置。 4-6 查询物资基本信息 查询结果如图4-7所示： 4-7查询物资基本信息结果 “物资出库管理 / 添加物资出库信息”或者直接选择工具栏上的“添加物资出库信息”按钮即可进入添加物资出库信息窗口，如图4-8示 4-8添加物资出库信息 选择“物资出库管理 / 修改物资出库信息”或者直接选择修改“修改物资出库信息”按钮，即可进入修改修改物资出库信息的窗口。选择要修改的物资再单击“修改物资出库信息”即可修改出库物资的信息。如图4-9示： 4-9修改出库物资信息选择“物资出库管理 / 查询物资出库管理”或者直接点击工具栏上的“询出库物资信息”按钮将出现4-10示的窗体。 4-10物资出库查询查询的结果如下图所示： 4-11领用查询结果 选择“物资入库信息管理 / 添加物资入库信息”或者直接点击工具栏上的“添加物资入库”按钮，即可进入添加物资入库的窗口。如4-12： 4-12物资入库信息物资入库信息的修改和查询的窗体界面和运行过程与出库时类似，在此不再重复。选择“物资余额信息管理”或者直接点击工具栏上的“查询物资余额信息”按钮即可即可查看物资的余额信息，界面如图4-13所示： 4-13查询余额信息查询结果如下图所示： 4-14 余额查询结果第四章 设计总结经过一个多月的设计和开发，物资管理系统基本开发完毕。该系统的功能基本符合物资需求，能够完成物资基本信息、入库物资信息、出库信息等信息的输入、查询。并提供部分系统维护功能。同时也考虑到了单位编码以减少数据冗余的问题，对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短、本人水平有限，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不完善等多方面问题。这些都有待进一步改善。第五章 致 谢经过一段时间的构思与设计，在指导老师的精心指导和安排下，本系统已经设计完毕。其使用功能基本符合实际工作的需要，具有一定的实用性。但是由于时间比较仓促，加上本人软件设计经验的不足。因此，在分析问题、解决问题时显得不够严密、完善，还需要在以后的工作中不断地改进和完善。在这次的毕业设计中，让我深深地体现到进行软件开发不是一件简单的事情，它需要设计者具有全面的专业知识、慎密的思维、严谨的工作态度以及较高的分析问题、解决问题的能力，而我在很多方面还有欠缺。最后，我要衷心感谢周老师在我的设计过程中给予我的极大帮助，使我能够及时、顺利地完成此次的毕业设计.第六章 参考文献（1）吕炳泉 现代生产企业物流运作管理 湖南科学技术出版社 2003年5月（2）孔淑红 MBA管理信息系统精华读本 安徽人民出版社 2002年12月（3）王成辉 Access 2002入库与提高 清华大学出版社 2001年11月（4）新韬 何旭洪 Visual Basic数据库系统开发实例导航 人民邮电出版社 2003年7月（5）龚沛曾 陆慰民Visual Basic程序设计教程 高等教育出版社 2001年4月（6）Steven Holzner Visual Basic 6.0 技术内幕 详实翻译组 译 1999年4月第七章 设计代码1、创建公用模块添加函数ExecuteSQL，代码如下：添加各种全局变量，用来记录各个窗体的读写状态 Public fMainForm As frmMainPublic flagUedit As BooleanPublic flagMedit As BooleanPublic flagIedit As BooleanPublic flagLedit As BooleanPublic flagOedit As BooleanPublic gintUmode As IntegerPublic gintMmode As IntegerPublic gintImode As IntegerPublic gintLmode As IntegerPublic gintOmode As IntegerPublic UserName As String传递参数为查询语句和查询信息，返回以数据集对象形式保存的查询结果Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordset'执行SQL语句，并返回记录集对象 声明一个连接 Dim cnn As ADODB.Connection声明一个数据集对象 Dim rst As ADODB.Recordset Dim sTokens() As String 异常处理 On Error GoTo ExecuteSQL_Error 用Split函数产生一个包含各个子串的数组 sTokens = Split(SQL) 创建一个新连接Set cnn = New ADODB.Connection cnn.Open ConnectString 打开