物资管理信息系统 .pdf

《物资管理信息系统 .pdf》由会员分享，可在线阅读，更多相关《物资管理信息系统 .pdf（46页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 经济与管理学院综合设计实验报告选题物资管理系统小组成员（学号姓名）：专业信息管理与信息系统起止日期指导教师成绩2011年11月制名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 46 页 -2 目录实验一系统规划实验二系统需求分析实验三系统过程建模实验四系统数据建模实验五数据库设计实验六用户界面设计实验七编程实验八测试实验九系统安装与试运行名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 46 页 -3 实验一系统规划（一）实验目的了解信息系统规划的目标及基本流程，掌握项目可行性分析的基本方法，制定项目开发计划，学会撰写系统规划（二）实验要求1、问题、项目概述。根据

2、系统功能要求，概要说明系统的目的、业务范围、主要任务2、项目可行性分析。从运行可行性、技术可行性、经济可行性等角度简要分析项目的可行性。3、制定系统开发的整体方案。确定信息系统的架构体系，开发次序，组织结构的调整等。4、制定项目开发计划。主要确定项目各部分的开发任务、人员分工、估计开发进度。进度采用 GANTT 图及 PERT 图描述5、分组完成上述内容，提交系统规划书。（三）系统规划书1、项目背景物资管理，是指企业在生产过程中，对本企业所需物资的采购、使用、储备等行为进行计划、组织和控制。物资管理的目的是，通过对物资进行有效管理，以降低企业生产成本，加速资金周转，进而促进企业盈利，提升企业的

3、市场竞争能力。企业的物资管理，包括物资计划制订、物资采购、物资使用和物资储备等几个重要环节，这些环节环环相扣、相互影响，任何一个环节出现问题，都将对企业的物资供应链造成不良影响。因此，在市场异常活跃的今天，物资管理已不能用“计划”、“配额”、“定量”等几个简单概念进行诠释，它已经成为现代企业管理的重要组成部分，成为企业成本控制的利器，成为企业生产经营正常运作的重要保证，成为企业发展与壮大的重要基础。我们设计的物资管理信息系统，为使用者提供相应的出库、入库操作，及相关查询功能，使其能及时了解自身物资的情况。便于相关经营活动的顺利开展提供基础。2、项目概述名师资料总结-精品资料欢迎下载-名师精心整

4、理-第 3 页，共 46 页 -4 本项目将开发出一个能满足业务要求的以物资管理为核心功能的信息管理系统，将为公司合理管理物资，降低不必要的支出，增强盈利能力。由于系统能在未来较长的一段时期内稳定地发挥作用，这对于公司提高经营管理水平有很大的帮助，并使公司可以更加广泛地吸收各方面的信息资源，早日参与全行业的信息化浪潮中，为公司业务在将来的扩张打下坚实的基础，其经济效益将更上一层楼。此系统为企业整体ERP项目的子项目，业务范围包括物资资料管理，物资定价支持以及财务接口等业务方面的数据信息的处理和分析，达到信息集成和高度共享的要求，以实现公司信息资源的及时传递和有效整合，全面提高企业管理水平。3、

5、项目可行性分析运行可行性：项目可以较好支持物资信息的维护，物资价格、物资成本的计算等功能，对公司的业务提供符合实际需求、易于理解、易于操作、易于维护的系统。技术可行性：由于公司业务量不大,业务流程较简单,项目的开发主要是对数量较少的表(table)和其间关系(relation)进行比较简单的查询、统计等操作,所以需要的开发工具与数据库系统均不复杂,市场上成熟的工具有多款,算法案例也较完备,因此,开发技术上完全可行.经济可行性：费用约3600 元人民币进度可行性：本项目范围较小，功能较为简单，系统开发周期约为3 周，为下一步 ERP系统其他模块的实施奠定基础。4、项目进度编号任务名称预算：元11

6、/28-12/1 12/2-12/5 12/6-12/9 12/10-12/13 12/14-12/16 1 问题分析100 2 需求分析350 3 逻辑设计500 4 决策分析700 5 物理设计500 6 构造和测试450 7 实现和发布1000 图 1-1 项目进度名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 46 页 -5 实验二系统需求分析（一）实验目的能够正确运用系统分析的过程与方法，提高系统分析实践能力。熟悉业务流程图绘制，树立正确的系统分析思想，培养分析问题、解决问题的能力，提高查询资料和撰写书面文件的能力。（二）实验要求 1.根据所述系统功能需求，开展实地调查

7、或通过Internet查阅相关资料或结合个人经验，了解用户需求并进行系统分析。2.明确管理业务调查过程和方法，了解系统所处的组织机构和组织的发展规划、管理功能及业务流程，现有系统应用现状，系统的业务流程并撰写调研报告。3.确定IT 构架。即系统采用的应用程序架构（集中式、分布式、网络架构）系统的开发环境，确定系统功能模块。（三）系统需求分析报告1、用户需求分析物资管理是企业管理非常重要的一环,它对企业的发展起着非常举足轻重的作用.由于物资的种类繁多,在各部门进出频繁,使得物资管理变得十分复杂.开发一套完善的物资管理系统不但可以使物资管理者能够对物资的整个流程状态、库存状况了如执掌，并为决策管理

8、者提供科学依据，从而 提高了管理水平和工作效率，而且可以使工作人员甩掉手工记账的方式，从而最大限度地减少了手工操作带来的失务，达到事半功倍的效果。物资管理系统作为企业管理自动化、规范化的一部分，对提高企业管理效率、提高企业经济效益发挥不可替代的作用。2、系统需求分析我们根据前期用户需求的收集，系统的实现要求具体有以下几点：(1)总体设计要求：系统在总体上应具有技术先进、安全可靠、扩展性强、维护方便等特点。(2)信息要求：整个系统所涉及的各部分业务处理在实现信息集成的基础上，能实现部分功能集成。同时加强信息的标准化工作，控制数据源头是做好信息集成的关键。名师资料总结-精品资料欢迎下载-名师精心整

9、理-第 5 页，共 46 页 -6(3)性能要求：数据处理效率高。系统故障频率低、维护容易。能提供多种数据输出接口，方便用户进行其它数据处理。(4)安全要求：数据库的安全控制。应用软件的角色定义、分配和控制。系统维护人员的高素质和有效的管理制度。(5)约束条件：组织和制度的保障。员工素质，系统培训，资金的投入及时到位。业务的规范、岗位职责的调整和人员的调整。3、IT 环境和系统模块分析根据用户的需求，项目实现决定使用集中式的系统架构，应用程序和数据库均存在本地。从目前市场上比较流行的数据库开发、管理软件来看，对于比较简单的中小型数据库，Microsoft Visial Basic 和Micro

10、s oft Acces s 2000 的结合无疑是在实际应用中较为成功的一种解决方案。本系统开发环境采用 Microsoft Visial Basic，数据库系统采用 Micro soft Access 2003。本系统由以下 4个功能模块组成：1.登录需求在实际应用中，由于物资信息系统都是由专人管理，所以登录系统，首先必需通过系统的身份认证，这个过程对系统提出以下要求：（1）根据用户名和密码来判断是否可以进入系统（2）根据类型决定拥有的权限。2.物资管理需求在实际应用中，由于物资信息本身是可变的，经常会有一些新的材料信息需要录入，也有一些信息需要修改、删除，基于此，该过程具有对材料信息进行管

11、理的功能。3.仓库管理需求物资信息从仓库中取出，或将其加入到仓库中都涉及到材料信息的变更，包括添加、修改等操作。基于此，该过程应具有对材料入库信息、材料出库信息进行管理的功能。4.物资信息查询需求名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 46 页 -7 由于物资信息较多，并且较复杂，管理者经常需要根据需求对某些材料进行信息检索，包括仓库中还有哪些材料，仓库中材料的价格变动如何，基于此，该过程应具有对仓库中的材料信息进行各种查询的功能。实验三系统过程建模（一）实验目的了解系统过程建模的过程与方法，掌握“数据流图”的绘制方法，并会运用决策表和结构化英语等描述主要过程逻辑。（二）

12、实验要求 1.采用“数据流图”分层绘制系统的主要过程，注意遵守数据流守恒原理。2.采用数据字典对数据流图中的数据属性进行描述，采用结构化英语或者决策树对必要的过程逻辑进行描述。3.分组完成上述内容，并提交过程模型文档报告。物 资 管 理 信 息 系物资管理功能仓库管理功能物资信息查询功能系统用户管理材料信息录入材料信息添加材料信息删除材料入库信息添加材料入库信息修改材料出库信息添加材料出库信息修改材料入库信息查询材料出库信息查询剩余材料信息查询材料价格修改名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 46 页 -8(三）过程模型报告 1、数据流程图受篇幅影响,这里并未给出所有模

13、块的细化流程图，仅对物资管理的细化数据流程图加以分析。图 3-1 数据环境图图 3-2 数据流程图（零层图）名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 46 页 -9 图 3-3 数据流程图（一层图）图 3-4 二层图2、数据流定义数据流名称更新材料资料数据流去向物资管理资料描述管理员要更新（添加、修改、删除）或查询相关特征信息数据源来源管理员数据流名称更新出入库资料数据流去向仓库管理资料描述管理员要更新（添加、修改、删除）或查询相关特征信息数据源来源管理员数据流名称更新材料出入库资料数据流去向物资信息查询资料描述管理员要更新（添加、修改、删除）或查询相关特征信息数据源来源管

14、理员名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 46 页 -10 3、数据元素本系统所用数据元素如下所示，限于篇幅，并未列出所有数据元素。数据元素（材料名称）数据元素（材料编号）数据元素（材料数量）名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 46 页 -11 数据元素（材料价格）实验四系统数据建模（一）实验目的了解系统数据建模的过程与方法，掌握“实体关系图”的绘制方法，并会对模型进行细化。（二）实验要求 1.结合过程建模，获取实体和关系，并采用E-R图描述上下文数据模型。2.在上下文数据模型的基础上，确定每个实体的健。3.确定业务领域中的概化层次体系。4.

15、创建具有完整属性的数据模型。5.分析数据模型并进行规范化处理。6.分组完成上述内容，并提交数据模型的文档报告。本物资管理系统数据库的功能目标是：(1)支持资料，材料资料等数据的查询和分析应用。(2)为系统核心功能材料库存提供有效地支持。(3)实现信息资源的共享，并为企业的 ERP系统服务，从而为实现企业的信息化创造条件。(三）数据模型报告1、数据关系模型名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 46 页 -12 图 4-1 E-R图实验五数据库设计（一）实验目的了解数据库设计的过程与方法，掌握数据库和数据表的创建方法，能够对ACCESS数据库进行基本的数据库操作。（二）实

16、验要求 1.根据系统提出的数据要求，进行数据表的设计，包括表名和表中字段名、字段类型和字段长度等说明，以及代码的命名规范、数据项代码结构及含义说明等。2.创建系统数据库以及相关的数据表。3.定义ODBC 数据源并连接数据库。4.分组完成上述内容，并提交代码设计的文档报告。（三）数据库设计报告1、数据库(表)结构管理表编号字段名称数据类型备注名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 46 页 -13 1 名文本名2 密码文本密码物资信息表包括 6 个不同专题的表，各表包含的字段含义如下。（1）物资信息表编号字段名称数据类型备注1 GoodID 文本材料编号2 GoodsNa

17、me 文本材料名称3 Unit 文本单位4 Type 文本型号（2）入库信息表编号字段名称数据类型备注1 出库单号码文本入库单号码2 发票号码文本发票号码3 出库日期日期/时间入库日期4 经办人文本经办人5 保管人文本保管人（3）入库材料信息表编号字段名称数据类型备注1 入库单号码文本入库单号码2 材料编码文本材料编码3 数量数字数量4 单价数字单价5 金额数字金额6 备注备注备注（4）余额信息表名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 46 页 -14 编号字段名称数据类型备注1 材料编码文本材料编码2 数量数字数量3 单价数字单价4 金额数字金额5 备注备注备注（5）

18、出库信息表编号字段名称数据类型备注1 出库单号码文本出库单号码2 发票编号文本发票号码3 工程号文本工程号4 出库日期日期/时间出库日期5 经办人文本经办人6 保管人文本保管人（6）出库材料信息表编号字段名称数据类型备注1 出库单号码文本出库单号码2 材料编码文本材料编码3 数量数字数量4 单价数字单价5 金额数字金额6 备注备注备注名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 46 页 -15 实验六用户界面设计（一）实验目的能够正确运用输入和输出设计的基本原理，针对实际系统的用户界面进行正确恰当的设计。（二）实验要求 1.采用基于 GUI的编程语言构造用户界面屏幕的原型。

19、2.给出每个功能模块的输入和输出界面设计结果。3.绘制用户界面关联的状态转换图。4.分组完成上述内容，并提交书面的用户界面设计报告。（三）用户界面设计报告1、输出界面设计输出设计的主要目的是满足用户和管理者对数据和信息的要求。本系统中所选用的输出方式有两种：查询显示输出和报表打印输出。查询显示输出的信息主要是各种查询结果，这是一种实时性要求很高的输出，输出设备是显示器。查询物资管理-材料信息。选中信息可以在右面的框架中详细查看项目内容。名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 46 页 -16 查询入库信息。在进库单号码中输入101.可以查询进库单中编号为101 的所有信

20、息。查询出库信息。在出库单号码中输入101.可以查询出库单中编号为101 的所有信息。名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 46 页 -17 余额信息查询，可以选中任意查询条件，如上图表带，可以显示表带的详细信息。查询材料的最高价格和最低价格。选中查询条件。可以查询到结果。分别显示最高价格和最低价格。2、输入界面设计在计算机信息系统中，输入数据的正确性决定着整个系统质量的好坏。若输人数据缺乏精确性和适时性，即使计算和处理十分正确，也不可能得到可靠的输出信息。数据输入完成后，并不能马上就进入系统，还应对其进行检验，称为输人数据检验。输人数据检验是保证输入数据正确的重要措

21、施。通过多种措施，对全部输人数据设想其可能出现的差错，对之进行校验，对校验中查到的有错数据，考虑修改及补救办法。数据校验的办法有两类：静态检验(人工复核)和动态检验(计算机程序检验)。本系统采用的输入方式主要是键盘输入，对于检查出的输人数据错误，系统实时提出错误警示和修改提示，帮助用户尽快正确输入数据，并在数据存入数据名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 46 页 -18 库前，给用户以确认输入正确的提示。在该窗口部分，将实现对添加新信息的功能，输入新的用户名，同时要求添加密码，进行确认，然后才可以将信息添加入数据库。该窗口，将实现对信息的删除功能。选择相应的用户名，

22、同时输入密码，可以删除该信息，否则不允许删除信息。在做了删除操作后，保存在数据库中的改信息将被删除。该窗口，要求选择相应的用户名，并输入正确的旧密码，否则无法修改。修改后，密码在数据库中的信息将被修改。名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 46 页 -19 添加入库信息。添加出库信息。3、人机界面设计名师资料总结-精品资料欢迎下载-名师精心整理-第 19 页，共 46 页 -20 本系统采用与 Windows操作系统一致的视窗操作界面，菜单，工具拦，状态栏，鼠标等，力求使用户尽快掌握本系统的操作，精心设置的工具栏按钮图标，各报表显示输出的图标，可以使用户一目了然。本系

23、统所有功能都提供了菜单，工具栏按钮，鼠标快捷键三种操作方式，部分系统功能还可使用热键，用户可根据个人喜好选用不同的操作方式。主窗口包括了系统的大部分功能。实验七编程（一）实验目的能够正确运用系统设计的过程与方法，能够运用某种编程语言完成程序代码的运行和调试。（二）实验要求分组完成程序代码编写，提交源程序清单。（三）源程序清单添加用户：Private Sub Command1_Click()If Trim(Text1.Text=)Then MsgBox 用户名不能为空，请输入用户名！,vbOKOnly+vbExclamation,警告 Text1.SetFocus Exit Sub 名师资料总结

24、-精品资料欢迎下载-名师精心整理-第 20 页，共 46 页 -21 Else Set Myrs=Mydb.OpenRecordset(select*from 登 录where 用 户 名=&Trim(Text1)&)While(Myrs.EOF=False)If Trim(Myrs.Fields(0)=Trim(Text1)Then MsgBox 用户已经存在，请重新输入用户名！,vbOKOnly+vbExclamation,警告 Text1.SetFocus Text1.Text=Text2.Text=Text3.Text=Exit Sub Else Myrs.MoveNext End I

25、f Wend End If If Trim(Text2.Text)Trim(Text3.Text)Then MsgBox 两次输入的密码不一样，请确认！,vbOKOnly+vbExclamation,警告 Text2.SetFocus Text2.Text=Text3.Text=Exit Sub Else If Text2.Text=Then MsgBox 密码不能为空！,vbOKOnly+vbExclamation,警告 Text2.SetFocus Text2.Text=Text3.Text=Else Myrs.AddNew Myrs.Fields(0)=Trim(Text1.Text)M

26、yrs.Fields(1)=Trim(Text2.Text)Myrs.Update Myrs.Close Mydb.Close MsgBox 添加用户成功！,vbOKOnly+vbExclamation,信息提示 Unload Me End If End If End Sub Private Sub Command2_Click()名师资料总结-精品资料欢迎下载-名师精心整理-第 21 页，共 46 页 -22 Mydb.Close Myws.Close Unload Me Project.StatusBar1.Panels(2).Text=就绪 End Sub Private Sub For

27、m_Load()Set Myws=DBEngine.Workspaces(0)Set Mydb=Myws.OpenDatabase(App.Path+logo.mdb)End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode=13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode=13 Then Text3.SetFocus E

28、nd If End Sub Private Sub Text3_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode=13 Then Command1.SetFocus End If End Sub 删除用户：Private Sub Command1_Click()If(List1.ListCount=1)Then MsgBox 删除无效，系统必须有一个用户！,vbOKOnly+vbExclamation,信息提示 Mydb.Close Unload Me Else Set Myrs=Mydb.OpenRecordset(select*f

29、rom 登 录where 用 户 名=+Trim(List1)+and 密码=+Trim(Text1)+)If Myrs.EOF=True Then MsgBox 密码错误，请重新输入密码！,vbOKOnly+vbExclamation,警告 Text1.SetFocus Text1.Text=Else Myrs.Delete 名师资料总结-精品资料欢迎下载-名师精心整理-第 22 页，共 46 页 -23 Myrs.MoveNext MsgBox 删除用户成功！,vbOKOnly+vbExclamation,信息提示 Myrs.Close Mydb.Close Unload Me End I

30、f End If End Sub Private Sub Command2_Click()Mydb.Close Myws.Close Unload Me Project.StatusBar1.Panels(2).Text=就绪 End Sub Private Sub Form_Load()Dim mrc As Recordset Set Myws=DBEngine.Workspaces(0)Set Mydb=Myws.OpenDatabase(App.Path+logo.mdb)Set mrc=Mydb.OpenRecordset(select*from 登录)List1.Clear mrc.

31、MoveFirst Do While Not mrc.EOF List1.AddItem Trim(mrc.Fields(0)mrc.MoveNext Loop List1.ListIndex=0 mrc.Close End Sub 修改密码：Private Sub Command1_Click()Set Myrs=Mydb.OpenRecordset(select*from 登录 where 用户名=+Trim(List1)+and 密码=+Trim(Text1)+)If Myrs.EOF=True Then MsgBox 旧密码不正确，请重新输入！,vbOKOnly+vbExclamati

32、on,警告 Text1.SetFocus Text1.Text=Text2.Text=Text3.Text=Exit Sub End If If Trim(Text2.Text)Trim(Text3.Text)Then MsgBox 两次输入的密码不一样，请确认！,vbOKOnly+vbExclamation,警告名师资料总结-精品资料欢迎下载-名师精心整理-第 23 页，共 46 页 -24 Text2.SetFocus Text2.Text=Text3.Text=Exit Sub Else If Text2.Text=Then MsgBox 密码不能为空！,vbOKOnly+vbExcla

33、mation,警告 Text2.SetFocus Text2.Text=Text3.Text=Else Myrs.Edit Myrs.Fields(1)=Trim(Text2.Text)Myrs.Update Myrs.Close Mydb.Close MsgBox 密码修改成功！,vbOKOnly+vbExclamation,信息提示 Unload Me End If End If End Sub Private Sub Command2_Click()Mydb.Close Myws.Close Unload Me Project.StatusBar1.Panels(2).Text=就绪 E

34、nd Sub Private Sub Form_Load()Dim mrc As Recordset Set Myws=DBEngine.Workspaces(0)Set Mydb=Myws.OpenDatabase(App.Path+logo.mdb)Set mrc=Mydb.OpenRecordset(select*from 登录)List1.Clear mrc.MoveFirst Do While Not mrc.EOF List1.AddItem Trim(mrc.Fields(0)mrc.MoveNext Loop List1.ListIndex=0 mrc.Close End Su

35、b 名师资料总结-精品资料欢迎下载-名师精心整理-第 24 页，共 46 页 -25 添加出库信息：Private Sub cmdAdd_Click()Dim count As Integer,i As Integer Dim mrc As Recordset Dim SQLstring As String,str As String Dim Num As Integer Dim price As Single If Text1.Text=Then MsgBox 出库单号码不能为空，请填写！,vbOKOnly+vbExclamation,警告 Text1.SetFocus Exit Sub E

36、nd If While Myrs1.EOF=False If Myrs1.Fields(0)=Text1.Text Then MsgBox 此出库单号码已经存在，请认真核查！,vbOKOnly+vbExclamation,警告 Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Combo1.ListIndex=0 Text1.SetFocus Exit Sub Else Myrs1.MoveNext End If Wend If Text2.Text=Then MsgBox 发票号码不能为空，请填写！,vbOKO

37、nly+vbExclamation,警告 Text2.SetFocus Exit Sub End If If Text4.Text=Then MsgBox 出库日期不能为空，请填写！,vbOKOnly+vbExclamation,警告 Text4.SetFocus Exit Sub Else If IsDate(Text4.Text)Then Text4=Format(Text4,yyyy-mm-dd)Else MsgBox 出库时间格式应为：yyyy-mm-dd,vbOKOnly+vbExclamation,名师资料总结-精品资料欢迎下载-名师精心整理-第 25 页，共 46 页 -26 警

38、告 Text4.Text=Text4.SetFocus Exit Sub End If End If If MSFlexGrid1.Rows 1 Then Myrs1.AddNew Myrs1.Fields(出库单号码)=Text1.Text Myrs1.Fields(发票号码)=Text2.Text Myrs1.Fields(出库类型)=Combo1.Text If Text3.Text=Then Myrs1.Fields(工程号)=Null Else Myrs1.Fields(工程号)=Text3.Text End If Myrs1.Fields(出库日期)=Text4.Text If T

39、ext5.Text=Then Myrs1.Fields(经办人)=Null Else Myrs1.Fields(经办人)=Text5.Text End If If Text6.Text=Then Myrs1.Fields(保管人)=Null Else Myrs1.Fields(保管人)=Text6.Text End If Myrs1.Update count=MSFlexGrid1.Rows For i=1 To(count-1)Myrs2.AddNew Myrs2.Fields(出库单号码)=Text1.Text Myrs2.Fields(材料编码)=MSFlexGrid1.TextMatr

40、ix(i,0)Myrs2.Fields(数量)=Val(MSFlexGrid1.TextMatrix(i,4)If MSFlexGrid1.TextMatrix(i,5)=Then Myrs2.Fields(单价)=Null Else Myrs2.Fields(单价)=Val(MSFlexGrid1.TextMatrix(i,5)End If Myrs2.Fields(金额)=Val(MSFlexGrid1.TextMatrix(i,6)If MSFlexGrid1.TextMatrix(i,7)=Then Myrs2.Fields(备注)=Null Else 名师资料总结-精品资料欢迎下载-

41、名师精心整理-第 26 页，共 46 页 -27 Myrs2.Fields(备注)=MSFlexGrid1.TextMatrix(i,7)End If Myrs2.Update 更新余额库 str=MSFlexGrid1.TextMatrix(i,0)Num=MSFlexGrid1.TextMatrix(i,4)price=MSFlexGrid1.TextMatrix(i,6)SQLstring=update msurplus set 数量=数量-+CStr(Num)+,金额=金额-+CStr(price)+where 材料编码=&str&Mydb.Execute(SQLstring)Set

42、mrc=mydb.OpenRecordset(select*from msurplus where 材料编码=&str&)If mrc.Fields(数量)=0 Then mrc.Delete End If mrc.Close Next i Unload Me Project.StatusBar1.Panels(2).Text=就绪 Exit Sub Else MsgBox 出库单中必须至少包含一项材料明细。&vbCrLf&此出库单中未填写材料信息，请填写。,vbOKOnly+vbExclamation,警告 Exit Sub End If End Sub Private Sub cmdAdd

43、Record_Click()Project.StatusBar1.Panels(2).Text=添加出库信息 OutInfo.Show 1 End Sub Private Sub cmdCancel_Click()Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Combo1.ListIndex=0 Text1.SetFocus End Sub Private Sub cmdClose_Click()名师资料总结-精品资料欢迎下载-名师精心整理-第 27 页，共 46 页 -28 Myrs2.Close Myrs

44、1.Close Mydb.Close Myws.Close Unload Me Project.StatusBar1.Panels(2).Text=就绪 End Sub Private Sub cmdDelRecord_Click()Dim i As Integer,j As Integer Text7.Visible=False If MSFlexGrid1.Rows 1 Then If MsgBox(确认要删除这条记录吗？,vbOKCancel+vbExclamation,警告)=vbOK Then i=MSFlexGrid1.Row Text7.Text=MSFlexGrid1.Text

45、Matrix(i,0)Text7.Text=MSFlexGrid1.TextMatrix(i,0)=Text7.Text Text7.Text=MSFlexGrid1.TextMatrix(i,1)Text7.Text=MSFlexGrid1.TextMatrix(i,1)=Text7.Text Text7.Text=MSFlexGrid1.TextMatrix(i,2)Text7.Text=MSFlexGrid1.TextMatrix(i,2)=Text7.Text Text7.Text=MSFlexGrid1.TextMatrix(i,3)Text7.Text=MSFlexGrid1.Te

46、xtMatrix(i,3)=Text7.Text Text7.Text=MSFlexGrid1.TextMatrix(i,4)Text7.Text=MSFlexGrid1.TextMatrix(i,4)=Text7.Text Text7.Text=MSFlexGrid1.TextMatrix(i,5)Text7.Text=MSFlexGrid1.TextMatrix(i,5)=Text7.Text Text7.Text=MSFlexGrid1.TextMatrix(i,6)Text7.Text=MSFlexGrid1.TextMatrix(i,6)=Text7.Text Text7.Text=

47、MSFlexGrid1.TextMatrix(i,7)Text7.Text=MSFlexGrid1.TextMatrix(i,7)=Text7.Text For j=i To(MSFlexGrid1.Rows-2)MSFlexGrid1.TextMatrix(j,0)=MSFlexGrid1.TextMatrix(j+1,0)MSFlexGrid1.TextMatrix(j,1)=MSFlexGrid1.TextMatrix(j+1,1)MSFlexGrid1.TextMatrix(j,2)=MSFlexGrid1.TextMatrix(j+1,2)名师资料总结-精品资料欢迎下载-名师精心整理

48、-第 28 页，共 46 页 -29 MSFlexGrid1.TextMatrix(j,3)=MSFlexGrid1.TextMatrix(j+1,3)MSFlexGrid1.TextMatrix(j,4)=MSFlexGrid1.TextMatrix(j+1,4)MSFlexGrid1.TextMatrix(j,5)=MSFlexGrid1.TextMatrix(j+1,5)MSFlexGrid1.TextMatrix(j,6)=MSFlexGrid1.TextMatrix(j+1,6)MSFlexGrid1.TextMatrix(j,7)=MSFlexGrid1.TextMatrix(j+

49、1,7)Next j MSFlexGrid1.Rows=MSFlexGrid1.Rows-1 If MSFlexGrid1.Rows=1 Then cmdDelRecord.Enabled=False End If End If End If End Sub Private Sub combo1_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode=13 Then Text3.SetFocus End If End Sub Private Sub Form_Activate()Project.StatusBar1.Panels(2).Te

50、xt=添加出库单 End Sub Private Sub Form_Load()MSFlexGrid1.Cols=8 MSFlexGrid1.Rows=1 MSFlexGrid1.Row=0 MSFlexGrid1.Col=0 MSFlexGrid1.Text=材料编码 MSFlexGrid1.Col=1 MSFlexGrid1.Text=材料名称 MSFlexGrid1.Col=2 MSFlexGrid1.Text=规格型号 MSFlexGrid1.Col=3 MSFlexGrid1.Text=计量单位 MSFlexGrid1.Col=4 MSFlexGrid1.Text=数量 MSFlex