物资管理信息系统 - 图文

经济与管理学院

综合设计实验报告

选 题 物资管理系统 小组成员（学号 姓名）：

专 业 信息管理与信息系统 起止日期

指导教师

成 绩

2011年 11月 制

1

目 录

实验一 系统规划 实验二 系统需求分析 实验三 系统过程建模 实验四 系统数据建模 实验五 数据库设计 实验六 用户界面设计 实验七 编程 实验八 测试

实验九 系统安装与试运行

2

实验一 系统规划

（一）实验目的

了解信息系统规划的目标及基本流程，掌握项目可行性分析的基本方法，制定项目开发计划，学会撰写系统规划 （二）实验要求

1、问题、项目概述。根据系统功能要求，概要说明系统的目的、业务范围、主要任务

2、项目可行性分析。从运行可行性、技术可行性、经济可行性等角度简要分析项目的可行性。

3、制定系统开发的整体方案。确定信息系统的架构体系，开发次序，组织结构的调整等。

4、制定项目开发计划。主要确定项目各部分的开发任务、人员分工、估计开发进度。进度采用GANTT图及PERT图描述 5、分组完成上述内容，提交系统规划书。 （三）系统规划书 1、项目背景

物资管理，是指企业在生产过程中，对本企业所需物资的采购、使用、储备等行为进行计划、组织和控制。物资管理的目的是，通过对物资进行有效管理，以降低企业生产成本，加速资金周转，进而促进企 业盈利，提升企业的市场竞争能力。企业的物资管理，包括物资计划制订、物资采购、物资使用和物资储备等几个重要环节，这些环节环环相扣、相互影响，任何一个环节出现问题，都将对企业的物资供应链造成不良影响。因此，在市场异常活跃的今天，物资管理已不能用“计划”、“配额”、“定量”等几个简单概念进行诠释， 它已经成为现代企业管理的重要组成部分，成为企业成本控制的利器，成为企业生产经营正常运作的重要保证，成为企业发展与壮大的重要基础。

我们设计的物资管理信息系统，为使用者提供相应的出库、入库操作，及相关查询功能，使其能及时了解自身物资的情况。便于相关经营活动的顺利开展提供基础。 2、项目概述

3

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

运行可行性：项目可以较好支持物资信息的维护，物资价格、物资成本的计算等功能，对公司的业务提供符合实际需求、易于理解、易于操作、易于维护的系统。 技术可行性：由于公司业务量不大,业务流程较简单,项目的开发主要是对数量较少的表(table)和其间关系(relation)进行比较简单的查询、统计等操作,所以需要的开发工具与数据库系统均不复杂,市场上成熟的工具有多款,算法案例也较完备,因此,开发技术上完全可行. 经济可行性：费用约3600元人民币

进度可行性：本项目范围较小，功能较为简单，系统开发周期约为3周，为下一步ERP系统其他模块的实施奠定基础。 4、项目进度 编任务名称 号 1 问题分析 2 需求分析 3 逻辑设计 4 决策分析 5 物理设计 预算：11/28-12/1 12/2-12/5 12/6-12/9 12/10-12/13 12/14-12/16 元 100 350 500 700 500 450 1000 6 构造和测试 7 实现和发布 图1-1 项目进度

4

实验二 系统需求分析

（一）实验目的

能够正确运用系统分析的过程与方法，提高系统分析实践能力。熟悉业务流程图绘制，树立正确的系统分析思想，培养分析问题、解决问题的能力，提高查 询资料和撰写书面文件的能力。 （二）实验要求

1. 根据所述系统功能需求，开展实地调查或通过Internet查阅相关资料或结合个人经验，了解用户需求并进行系统分析。

2. 明确管理业务调查过程和方法，了解系统所处的组织机构和组织的发展 规划、管理功能及业务流程，现有系统应用现状，系统的业务流程并撰写调研报 告。

3. 确定IT 构架。即系统采用的应用程序架构（集中式、分布式、网络架构）系统的开发环境，确定系统功能模块。 （三）系统需求分析报告 1、用户需求分析

物资管理是企业管理非常重要的一环,它对企业的发展起着非常举足轻重的作

用.由于物资的种类繁多,在各部门进出频繁,使得物资管理变得十分复杂.开发一套完善的物资管理系统不但可以使物资管理者能够对物资的整个流程状态、库存状况了如 执掌 ，并为决策管理者提供科学依据 ，从而 提高了管理水平和工作效率，而且可以使工作人员甩掉手工记账的方式，从而最大限度地减少了手工操作带来的失务，达到事半功倍的效果。物资管理系统作为企业管理自动化、规范化的一部分，对提高企业管理效率、提高企业经济效益发挥不可替代的作用。 2、系统需求分析

我们根据前期用户需求的收集，系统的实现要求具体有以下几点：

(1) 总体设计要求：系统在总体上应具有技术先进、安全可靠、扩展性强、维护方便等特点。

(2) 信息要求：整个系统所涉及的各部分业务处理在实现信息集成的基础上，能实现部分功能集成。同时加强信息的标准化工作，控制数据源头是做好信 息集成的关键。

5

(3) 性能要求：数据处理效率高。系统故障频率低、维护容易。能提供多种 数据输出接口，方便用户进行其它数据处理。

(4) 安全要求：数据库的安全控制。应用软件的角色定义、分配和控制。系统维护人员的高素质和有效的管理制度。

(5) 约束条件：组织和制度的保障。员工素质，系统培训，资金的投入及时到位。业务的规范、岗位职责的调整和人员的调整。 3、IT 环境和系统模块分析

根据用户的需求，项目实现决定使用集中式的系统架构，应用程序和数据库均存在本地。

从目前市场上比较流行的数据库开发、管理软件来看，对于比较简单的中小 型数据库，Microsoft Visial Basic 和Micros oft Acces s 2000 的结合无疑是在实际应用中较为成功的一种解决方案。

本系统开发环境采用Microsoft Visial Basic ， 数据库系统采用Micro soft Access 2003。

本系统由以下4个功能模块组成： 1.登录需求

在实际应用中，由于物资信息系统都是由专人管理，所以登录系统，首先必需通过系统的身份认证，这个过程对系统提出以下要求： （1）根据用户名和密码来判断是否可以进入系统 （2）根据类型决定拥有的权限。 2.物资管理需求

在实际应用中，由于物资信息本身是可变的，经常会有一些新的材料信息需要录入，也有一些信息需要修改、删除，基于此，该过程具有对材料信息进行管理的功能。 3.仓库管理需求

物资信息从仓库中取出，或将其加入到仓库中都涉及到材料信息的变更，包括添加、修改等操作。基于此，该过程应具有对材料入库信息、材料出库信息进行管理的功能。 4.物资信息查询需求

6

由于物资信息较多，并且较复杂，管理者经常需要根据需求对某些材料进行信息检索，包括仓库中还有哪些材料，仓库中材料的价格变动如何，基于此，该过程应具有对仓库中的材料信息进行各种查询的功能。 物资管理信息系 物资管理功能 仓库管理功能 物资信息查询功能 系统用户管理 材料信息录入 材料信息添加 材料信息删除 材料入库信息添加 材料入库信息修改 材料出库信息添加 材 料出 库信 息修 改 材料入库信息查询 材料出库信息查询 剩余材料信息查询 材料价格修改 实验三 系统过程建模

（一）实验目的

了解系统过程建模的过程与方法，掌握“数据流图”的绘制方法 ，并会运用决策表和结构化英语等描述主要过程逻辑。 （二）实验要求

1. 采用“数据流图”分层绘制系统的主要过程，注意遵守数据流守恒原理。 2. 采用数据字典对数据流图中的数据属性进行描述，采用结构化英语或者决策树对必要的过程逻辑进行描述。

3. 分组完成上述内容，并提交过程模型文档报告。

7

(三）过程模型报告 1、数据流程图

受篇幅影响,这里并未给出所有模块的细化流程图，仅对物资管理的细化数据流程图加以分析。

图3-1数据环境图

图3-2数据流程图（零层图）

8

图3-3数据流程图（一层图）

图3-4二层图

2、数据流定义 数据流名称 描述 数据源来源

数据流名称 描述 数据源来源

数据流名称 描述 数据源来源 更新材料出入库资料 数据流去向 物资信息查询资料 更新出入库资料 数据流去向 仓库管理资料 更新材料资料 数据流去向 物资管理资料 管理员要更新（添加、修改、删除）或查询相关特征信息 管理员 管理员要更新（添加、修改、删除）或查询相关特征信息 管理员 管理员要更新（添加、修改、删除）或查询相关特征信息 管理员 9

3、数据元素

本系统所用数据元素如下所示，限于篇幅，并未列出所有数据元素。

数据元素（材料名称）

数据元素（材料编号）

数据元素（材料数量）

10

数据元素（材料价格）

实验四 系统数据建模

（一）实验目的

了解系统数据建模的过程与方法，掌握“实体——关系图”的绘制方法 ，并会对模型进行细化。 （二）实验要求

1. 结合过程建模，获取实体和关系，并采用E-R图描述上下文数据模型。 2. 在上下文数据模型的基础上，确定每个实体的健。 3. 确定业务领域中的概化层次体系。 4. 创建具有完整属性的数据模型。 5. 分析数据模型并进行规范化处理。

6. 分组完成上述内容，并提交数据模型的文档报告。 本物资管理系统数据库的功能目标是：

(1) 支持资料，材料资料等数据的查询和分析应用。 (2) 为系统核心功能材料库存提供有效地支持。

(3) 实现信息资源的共享，并为企业的ERP系统服务，从而为实现企业的信息化创造条件。 (三）数据模型报告 1、数据关系模型

11

图4-1 E-R图

实验五 数据库设计

（一）实验目的

了解数据库设计的过程与方法，掌握数据库和数据表的创建方法，能够对ACCESS数据库进行基本的数据库操作。 （二）实验要求

1. 根据系统提出的数据要求，进行数据表的设计，包括表名和表中字段名、 字段类型和字段长度等说明，以及代码的命名规范、数据项代码结构及含义说明 等。

2. 创建系统数据库以及相关的数据表。 3. 定义ODBC 数据源并连接数据库。

4. 分组完成上述内容，并提交代码设计的文档报告。 （三）数据库设计报告 1、数据库(表)结构

管理表

编号

字段名称 数据类型 备注 12

1 2

名 密码 文本 文本 名 密码 物资信息表包括6个不同专题的表，各表包含的字段含义如下。 （1） 物资信息表 编号 1 2 3 4

（2） 入库信息表 编号 1 2 3 4 5

（3） 入库材料信息表 编号 1 2 3 4 5 6

（4） 余额信息表

13

字段名称 GoodID GoodsName Unit Type 数据类型 文本 文本 文本 文本 备注 材料编号 材料名称 单位 型号 字段名称 出库单号码 发票号码 出库日期 经办人 保管人 数据类型 文本 文本 日期/时间 文本 文本 备注 入库单号码 发票号码 入库日期 经办人 保管人 字段名称 入库单号码 材料编码 数量 单价 金额 备注 数据类型 文本 文本 数字 数字 数字 备注 备注 入库单号码 材料编码 数量 单价 金额 备注 编号 1 2 3 4 5

（5） 出库信息表 编号 1 2 3 4 5 6

字段名称 材料编码 数量 单价 金额 备注 数据类型 文本 数字 数字 数字 备注 备注 材料编码 数量 单价 金额 备注 字段名称 出库单号码 发票编号 工程号 出库日期 经办人 保管人 数据类型 文本 文本 文本 日期/时间 文本 文本 备注 出库单号码 发票号码 工程号 出库日期 经办人 保管人 （6） 出库材料信息表 编号 1 2 3 4 5 6

字段名称 出库单号码 材料编码 数量 单价 金额 备注 数据类型 文本 文本 数字 数字 数字 备注 备注 出库单号码 材料编码 数量 单价 金额 备注

14

实验六 用户界面设计

（一）实验目的

能够正确运用输入和输出设计的基本原理，针对实际系统的用户界面进行正确恰当的设计。 （二）实验要求

1. 采用基于GUI的编程语言构造用户界面屏幕的原型。 2. 给出每个功能模块的输入和输出界面设计结果。 3. 绘制用户界面关联的状态转换图。

4. 分组完成上述内容，并提交书面的用户界面设计报告。 （三）用户界面设计报告 1、输出界面设计

输出设计的主要目的是满足用户和管理者对数据和信息的要求。

本系统中所选用的输出方式有两种：查询显示输出和报表打印输出。查询显示输出的信息主要是各种查询结果，这是一种实时性要求很高的输出，输出设备是显示器。

查询物资管理-材料信息。选中信息可以在右面的框架中详细查看项目内容。

15

查询入库信息。在进库单号码中输入101.可以查询进库单中编号为101的所有信息。

查询出库信息。在出库单号码中输入101.可以查询出库单中编号为101的所有信息。

16

余额信息查询，可以选中任意查询条件，如上图表带，可以显示表带的详细信息。

查询材料的最高价格和最低价格。选中查询条件。可以查询到结果。分别显示最高价格和最低价格。

2、输入界面设计

在计算机信息系统中，输入数据的正确性决定着整个系统质量的好坏。若输人数据缺乏精确性和适时性，即使计算和处理十分正确，也不可能得到可靠的输出信息。

数据输入完成后，并不能马上就进入系统，还应对其进行检验，称为输人数据检验。输

人数据检验是保证输入数据正确的重要措施。通过多种措施，对全部输人数据设想其可能出现的差错，对之进行校验，对校验中查到的有错数据，考虑修改及补救办法。数据校验的办法有两类：静态检验(人工复核)和动态检验(计算机程序检验)。

本系统采用的输入方式主要是键盘输入，对于检查出的输人数据错误，系统实时提出错误警示和修改提示，帮助用户尽快正确输入数据，并在数据存入数据

17

库前，给用户以确认输入正确的提示。

在该窗口部分，将实现对添加新信息的功能，输入新的用户名，同时要求添加密码，进行确认，然后才可以将信息添加入数据库。

该窗口，将实现对信息的删除功能。选择相应的用户名，同时输入密码，可以删除该信息，否则不允许删除信息。在做了删除操作后，保存在数据库中的改信息将被删除。

该窗口，要求选择相应的用户名，并输入正确的旧密码，否则无法修改。修改后，密码在数据库中的信息将被修改。

18

添加入库信息。

添加出库信息。

3、人机界面设计

19

本系统采用与Windows操作系统一致的视窗操作界面，菜单，工具拦，状态栏，鼠标等，力求使用户尽快掌握本系统的操作，精心设置的工具栏按钮图标，各报表显示输出的图标，可以使用户一目了然。

本系统所有功能都提供了菜单，工具栏按钮，鼠标快捷键三种操作方式，部分系统功能还可使用热键，用户可根据个人喜好选用不同的操作方式。

主窗口包括了系统的大部分功能。

实验七 编程

（一）实验目的

能够正确运用系统设计的过程与方法，能够运用某种编程语言完成程序代码的运行和调试。 （二）实验要求

分组完成程序代码编写，提交源程序清单。 （三）源程序清单

添加用户：

Private Sub Command1_Click()

If Trim(Text1.Text = \

MsgBox \用户名不能为空，请输入用户名！\警告\

Text1.SetFocus Exit Sub

20

Else

Set Myrs = Mydb.OpenRecordset(\* 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 If Wend

End If

If Trim(Text2.Text) <> Trim(Text3.Text) Then

MsgBox \两次输入的密码不一样，请确认！\警告\

Text2.SetFocus Text2.Text = \ Text3.Text = \ Exit Sub Else

If Text2.Text = \

MsgBox \密码不能为空！\警告\ Text2.SetFocus Text2.Text = \ Text3.Text = \ Else

Myrs.AddNew

Myrs.Fields(0) = Trim(Text1.Text) Myrs.Fields(1) = Trim(Text2.Text) Myrs.Update Myrs.Close Mydb.Close

MsgBox \添加用户成功！\信息提示\ Unload Me End If End If

End Sub

Private Sub Command2_Click()

21

Mydb.Close

Myws.Close Unload Me

Project.StatusBar1.Panels(2).Text = \就绪\End Sub

Private Sub Form_Load()

Set Myws = DBEngine.Workspaces(0)

Set Mydb = Myws.OpenDatabase(App.Path + \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 End 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 \删除无效，系统必须有一个用户！\信息提示\

Mydb.Close Unload Me Else

Set Myrs = Mydb.OpenRecordset(\* from 登录 where 用户名='\+ Trim(List1) + \密码='\ If Myrs.EOF = True Then

MsgBox \密码错误，请重新输入密码！\警告 Text1.SetFocus Text1.Text = \ Else

Myrs.Delete

22

Myrs.MoveNext

MsgBox \删除用户成功！\信息提示\ Myrs.Close Mydb.Close Unload Me End If 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 + \ Set mrc = Mydb.OpenRecordset(\登录\ List1.Clear mrc.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(\* from 登录 where 用户名='\+ Trim(List1) + \密码='\

If Myrs.EOF = True Then

MsgBox \旧密码不正确，请重新输入！\警告\ Text1.SetFocus Text1.Text = \ Text2.Text = \ Text3.Text = \ Exit Sub

End If

If Trim(Text2.Text) <> Trim(Text3.Text) Then

MsgBox \两次输入的密码不一样，请确认！\警告

23

\

Text2.SetFocus Text2.Text = \ Text3.Text = \ Exit Sub

Else

If Text2.Text = \

MsgBox \密码不能为空！\警告\ Text2.SetFocus Text2.Text = \ Text3.Text = \ Else

Myrs.Edit

Myrs.Fields(1) = Trim(Text2.Text) Myrs.Update Myrs.Close

Mydb.Close

MsgBox \密码修改成功！\信息提示\ Unload Me End If 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 + \ Set mrc = Mydb.OpenRecordset(\登录\ List1.Clear mrc.MoveFirst

Do While Not mrc.EOF

List1.AddItem Trim(mrc.Fields(0)) mrc.MoveNext Loop

List1.ListIndex = 0 mrc.Close End Sub

24

添加出库信息：

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 = \

MsgBox \出库单号码不能为空，请填写！\警告\ Text1.SetFocus Exit Sub

End 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 = \

MsgBox \发票号码不能为空，请填写！\警告\ Text2.SetFocus Exit Sub

End If

If Text4.Text = \

MsgBox \出库日期不能为空，请填写！\警告\ Text4.SetFocus Exit Sub

Else

If IsDate(Text4.Text) Then

Text4 = Format(Text4, \ Else

MsgBox \出库时间格式应为：yyyy-mm-dd\

25

警告\

Text4.Text = \ Text4.SetFocus Exit Sub End If End If

If MSFlexGrid1.Rows > 1 Then Myrs1.AddNew

Myrs1.Fields(\出库单号码\ Myrs1.Fields(\发票号码\ Myrs1.Fields(\出库类型\ If Text3.Text = \

Myrs1.Fields(\工程号\ Else

Myrs1.Fields(\工程号\ End If

Myrs1.Fields(\出库日期\ If Text5.Text = \

Myrs1.Fields(\经办人\ Else

Myrs1.Fields(\经办人\ End If

If Text6.Text = \

Myrs1.Fields(\保管人\ Else

Myrs1.Fields(\保管人\ End If

Myrs1.Update

count = MSFlexGrid1.Rows For i = 1 To (count - 1) Myrs2.AddNew

Myrs2.Fields(\出库单号码\

Myrs2.Fields(\材料编码\ Myrs2.Fields(\数量\ If MSFlexGrid1.TextMatrix(i, 5) = \ Myrs2.Fields(\单价\

Else

Myrs2.Fields(\单价\ End If

Myrs2.Fields(\金额\ If MSFlexGrid1.TextMatrix(i, 7) = \ Myrs2.Fields(\备注\ Else

26

Myrs2.Fields(\备注\ End If

Myrs2.Update '更新余额库

str = MSFlexGrid1.TextMatrix(i, 0) Num = MSFlexGrid1.TextMatrix(i, 4) price = MSFlexGrid1.TextMatrix(i, 6)

SQLstring = \数量=数量-\金额=金额-\材料编码='\ Mydb.Execute (SQLstring)

'Set mrc = mydb.OpenRecordset(\材料编码='\

'If mrc.Fields(\数量\ 'mrc.Delete 'End If 'mrc.Close

Next i Unload Me

Project.StatusBar1.Panels(2).Text = \就绪\ Exit Sub Else

MsgBox \出库单中必须至少包含一项材料明细。\此出库单中未填写材料信息，请填写。\警告\ Exit Sub End If End Sub

Private Sub cmdAddRecord_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

Myrs2.Close Myrs1.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.TextMatrix(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.TextMatrix(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 = 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)

28

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 + 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).Text = \添加出库单\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 = \数量\ MSFlexGrid1.Col = 5 MSFlexGrid1.Text = \单价\ MSFlexGrid1.Col = 6 MSFlexGrid1.Text = \金额\ MSFlexGrid1.Col = 7

MSFlexGrid1.Text = \备注\

29

Text7.Visible = False Combo1.AddItem \修理\ Combo1.AddItem \销售\ Combo1.AddItem \改造\ Combo1.AddItem \北拨\ Combo1.AddItem \南拨\ Combo1.ListIndex = 0

cmdDelRecord.Enabled = False cmdCancel.Enabled = False Text4.Text = Date

Set Myws = DBEngine.Workspaces(0)

Set Mydb = Myws.OpenDatabase(App.Path + \ Set Myrs1 = Mydb.OpenRecordset(\

Set Myrs2 = Mydb.OpenRecordset(\End Sub

Private Sub MSFlexGrid1_Click() Dim c As Integer Dim r As Integer

With MSFlexGrid1

c = .Col r = .Row

Text7.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(c) Text7.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(r) If .Appearance = 1 Then

Text7.Left = Text7.Left + 2 * Screen.TwipsPerPixelX Text7.Top = Text7.Top + 2 * Screen.TwipsPerPixelY End If

Text7.Width = .ColWidth(c) Text7.Height = .RowHeight(r) Text7.Text = .Text End With

Text7.Visible = True Text7.SetFocus End Sub

Private Sub MSFlexGrid1_Scroll() Text7.Visible = False End Sub

Private Sub Text1_Change() cmdCancel.Enabled = True

30

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 Combo1.SetFocus End If End Sub

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text4.SetFocus End If End Sub

Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text5.SetFocus End If End Sub

Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text6.SetFocus End If End Sub

Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cmdAdd.SetFocus End If End Sub

Private Sub Text7_Change() MSFlexGrid1.Text = Text7.Text End Sub

Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then

31

Text7.Visible = False End If End Sub

Private Sub Text7_LostFocus() Text7.Visible = False End Sub

材料信息管理：

Private Sub Command1_Click()

If (Trim(PutText(0).Text) = \ MsgBox \请输入材料名称\信息提示\ Exit Sub

End If

If (Trim(PutText(1).Text) = \ MsgBox \请输入规格型号\信息提示\ Exit Sub

End If

If (Trim(Text1) = \

MsgBox \请输入计量单位\信息提示\ Exit Sub End If

For i = 1 To MSFlexGrid1.Rows - 1 If MSFlexGrid1.TextMatrix(i, 1) = PutText(0).Text And MSFlexGrid1.TextMatrix(i, 2) = PutText(1) And MSFlexGrid1.TextMatrix(i, 3) = Text1 Then

MsgBox \表中已经存在此种材料的记录！\警告\

ShowID = NewID

PutText(0).Text = \ PutText(1).Text = \ Text1.Text = \ PutText(0).SetFocus Exit Sub End If Next i

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 MSFlexGrid1.Col = 0 MSFlexGrid1.Text = NewID MSFlexGrid1.Col = 1

MSFlexGrid1.Text = PutText(0).Text MSFlexGrid1.Col = 2

MSFlexGrid1.Text = PutText(1).Text

32

MSFlexGrid1.Col = 3

MSFlexGrid1.Text = Text1.Text

Set rs = Mydb.OpenRecordset(\ rs.AddNew

rs.Fields(\

rs.Fields(\ If Trim(PutText(1).Text) <> \

rs.Fields(\ End If

If Trim(Text1.Text) <> \ rs.Fields(\ End If rs.Update rs.Close

NewID = NewID + 1 ShowID = NewID End Sub

Private Sub Command2_Click() If ShowID = \

MsgBox \请选择材料\信息提示\ Exit Sub End If Set rs = Mydb.OpenRecordset(\* from Goods where Goodsid='\+ Trim(ShowID) + \

If Not rs.EOF Then

If (vbYes = MsgBox(\您确定要删除该纪录吗？,这可能回导致数据的丢失\vbYesNo + vbQuestion, \信息提示\ rs.Delete

If MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 Then MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1

Else

For i = MSFlexGrid1.Row + 1 To MSFlexGrid1.Rows - 1 MSFlexGrid1.Row = i MSFlexGrid1.Col = 0 ll1 = MSFlexGrid1 MSFlexGrid1.Col = 1 ll2 = MSFlexGrid1 MSFlexGrid1.Col = 2 ll3 = MSFlexGrid1 MSFlexGrid1.Col = 3 ll4 = MSFlexGrid1

MSFlexGrid1.Row = i - 1

33

MSFlexGrid1.Col = 0 MSFlexGrid1 = ll1 MSFlexGrid1.Col = 1 MSFlexGrid1 = ll2 MSFlexGrid1.Col = 2 MSFlexGrid1 = ll3 MSFlexGrid1.Col = 3 MSFlexGrid1 = ll4 Next

MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1 End If End If End If rs.Close End Sub

Private Sub Command3_Click() If ShowID = \

MsgBox \请选择材料\信息提示\ Exit Sub End If

Set rs = Mydb.OpenRecordset(\\

If Not rs.EOF Then

If (Trim(PutText(0).Text) = \ MsgBox \请输入材料名称\信息提示\ Exit Sub

End If

If (Trim(PutText(1).Text) = \

MsgBox \请输入规格型号\信息提示\ Exit Sub End If

If (Trim(Text1) = \

MsgBox \请输入计量单位\信息提示\ Exit Sub End If

For i = 1 To MSFlexGrid1.Rows - 1

If MSFlexGrid1.TextMatrix(i, 1) = PutText(0).Text And MSFlexGrid1.TextMatrix(i, 2) = PutText(1) And MSFlexGrid1.TextMatrix(i, 3) = Text1 Then

MsgBox \表中已经存在此种材料的记录！\vbOKOnly + vbExclamation, \警告\

PutText(0).SetFocus Exit Sub

34

End If

Next i rs.Edit

rs.Fields(\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = Trim(PutText(0).Text) MSFlexGrid1.Col = 2

MSFlexGrid1.Text = Trim(PutText(1).Text) MSFlexGrid1.Col = 3

MSFlexGrid1.Text = Trim(Text1.Text) If Trim(PutText(1).Text) <> \

rs.Fields(\ End If

If Trim(Text1.Text) <> \ rs.Fields(\ End If rs.Update End If rs.Close End Sub

Private Sub Command4_Click() Mydb.Close Unload Me

Project.StatusBar1.Panels(2).Text = \就绪\End Sub

Private Sub Command5_Click() Call MSFlexGrid1_DblClick End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode = 13) Then

If (FocusMark < 1) Then

PutText(FocusMark + 1).SetFocus Else

PutText(0).SetFocus End If End If End Sub

Private Sub Form_Load() MSFlexGrid1.Rows = 1 MSFlexGrid1.Cols = 4

35

MSFlexGrid1.Row = 0

MSFlexGrid1.Col = 0

MSFlexGrid1.Text = \材料编码\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = \材料名称\ MSFlexGrid1.Col = 2

MSFlexGrid1.Text = \规格型号\ MSFlexGrid1.Col = 3

MSFlexGrid1.Text = \计量单位\ MSFlexGrid1.ColWidth(1) = 1200 NewID = 1000

Set Mydb = OpenDatabase(App.Path + \ Set rs = Mydb.OpenRecordset(\

Do While Not rs.EOF

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 MSFlexGrid1.Col = 0

MSFlexGrid1.Text = rs.Fields(\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = rs.Fields(\ If NewID < rs.Fields(\ NewID = rs.Fields(\ End If

MSFlexGrid1.Col = 2

MSFlexGrid1.Text = rs.Fields(\ MSFlexGrid1.Col = 3

MSFlexGrid1.Text = rs.Fields(\ rs.MoveNext Loop

rs.Close

NewID = NewID + 1

ShowID.Caption = Trim(Format(NewID)) Command3.Enabled = False Command2.Enabled = False End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub

Private Sub MSFlexGrid1_DblClick() If (MSFlexGrid1.Row = 0) Then Exit Sub

36

End If

MSFlexGrid1.Col = 0

Set rs = Mydb.OpenRecordset(\* from goods where Goodsid='\+ MSFlexGrid1.Text + \ If Not rs.EOF Then

ShowID.Caption = rs.Fields(\ PutText(0).Text = rs.Fields(\ If (Not IsNull(rs.Fields(\ PutText(1).Text = rs.Fields(\ Else

PutText(1).Text = \ End If

If (Not IsNull(rs.Fields(\ Text1.Text = rs.Fields(\ Else

Text1.Text = \ End If

Command3.Enabled = True Command2.Enabled = True End If

rs.Close End Sub

Private Sub PutText_GotFocus(Index As Integer) FocusMark = Index End Sub

库存余额信息：

Private Sub Command1_Click() Dim db As Database

Dim Myrs1 As Recordset, Myrs2 As Recordset Dim txtSQL As String Dim sSQL As String

Set db = OpenDatabase(App.Path + \ If Check1.Value = vbChecked Then

sSQL = \ End If

If Check2.Value = vbChecked Then

If Trim(sSQL & \

sSQL = \

Else

sSQL = sSQL & \ End If

37

End If

If Trim(sSQL) = \

MsgBox \请设置查询方式！\警告\ Exit Sub Else

MSFlexGrid1.Rows = 1

Set Myrs2 = db.OpenRecordset(\ If Myrs2.RecordCount >= 1 Then While Myrs2.EOF = False

Set Myrs1 = db.OpenRecordset(\goodsid='\& Myrs2.Fields(\& \and 材料编码='\& Myrs2.Fields(\& \

If Myrs1.RecordCount >= 1 Then

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 MSFlexGrid1.Col = 0

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 2

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 3

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 4

MSFlexGrid1.Text = Myrs1.Fields(\数量\

MSFlexGrid1.Col = 5

MSFlexGrid1.Text = Format(Myrs1.Fields(\单价\ MSFlexGrid1.Col = 6

MSFlexGrid1.Text = Format(Myrs1.Fields(\金额\ MSFlexGrid1.Col = 7

If IsNull(Myrs1.Fields(\备注\ MSFlexGrid1.Text = \

Else

MSFlexGrid1.Text = Myrs1.Fields(\备注\ End If

Myrs2.MoveNext Else

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 MSFlexGrid1.Col = 0

MSFlexGrid1.Text = Myrs2.Fields(\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = Myrs2.Fields(\ MSFlexGrid1.Col = 2

38

MSFlexGrid1.Text = Myrs2.Fields(\ MSFlexGrid1.Col = 3

MSFlexGrid1.Text = Myrs2.Fields(\ MSFlexGrid1.Col = 4 MSFlexGrid1.Text = 0 MSFlexGrid1.Col = 5 MSFlexGrid1.Text = 0 MSFlexGrid1.Col = 6 MSFlexGrid1.Text = 0 MSFlexGrid1.Col = 7 MSFlexGrid1.Text = \ Myrs2.MoveNext End If

Myrs1.Close Wend Else

MsgBox \不存在这种材料！\信息提示\ Exit Sub End If Myrs2.Close End If

db.Close End Sub

Private Sub Command2_Click()

Unload Me

Project.StatusBar1.Panels(2).Text = \就绪\End Sub

Private Sub Form_Load() Dim db As Database

Dim Myrs1 As Recordset Dim SQLstring As String

MSFlexGrid1.Rows = 1 MSFlexGrid1.Cols = 8

MSFlexGrid1.TextMatrix(0, 0) = \材料编码\ MSFlexGrid1.TextMatrix(0, 1) = \材料名称\ MSFlexGrid1.TextMatrix(0, 2) = \规格型号\ MSFlexGrid1.TextMatrix(0, 3) = \计量单位\ MSFlexGrid1.TextMatrix(0, 4) = \数量\ MSFlexGrid1.TextMatrix(0, 5) = \单价\ MSFlexGrid1.TextMatrix(0, 6) = \金额\ MSFlexGrid1.TextMatrix(0, 7) = \备注\

39

Set db = OpenDatabase(App.Path + \

SQLstring = \单价=金额/数量\ db.Execute (SQLstring)

Set Myrs1 = db.OpenRecordset(\金额<>0 and goodsid=材料编码\

If Myrs1.RecordCount >= 1 Then While Myrs1.EOF = False

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 MSFlexGrid1.Col = 0

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 1

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 2

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 3

MSFlexGrid1.Text = Myrs1.Fields(\ MSFlexGrid1.Col = 4

MSFlexGrid1.Text = Myrs1.Fields(\数量\

MSFlexGrid1.Col = 5

MSFlexGrid1.Text = Format(Myrs1.Fields(\单价\ MSFlexGrid1.Col = 6

MSFlexGrid1.Text = Format(Myrs1.Fields(\金额\ MSFlexGrid1.Col = 7

If IsNull(Myrs1.Fields(\备注\ MSFlexGrid1.Text = \ Else

MSFlexGrid1.Text = Myrs1.Fields(\备注\ End If

Myrs1.MoveNext Wend

Myrs1.Close

Else

MsgBox \仓库中目前无余额信息，请添加进库信息后再试！\vbOKOnly + vbExclamation, \警告\ Exit Sub End If

Set Myrs1 = db.OpenRecordset(\ If Myrs1.RecordCount >= 1 Then

While Myrs1.EOF = False

Combo1.AddItem Myrs1.Fields(0) Myrs1.MoveNext Wend

Combo1.ListIndex = 0

40

Myrs1.Close

Else

MsgBox \仓库中目前无余额信息，请添加进库信息后再试！\vbOKOnly + vbExclamation, \警告\ Exit Sub

End If

Set Myrs1 = db.OpenRecordset(\ If Myrs1.RecordCount >= 1 Then While Myrs1.EOF = False

Combo2.AddItem Myrs1.Fields(0) Myrs1.MoveNext Wend

Combo2.ListIndex = 0 Myrs1.Close

Else

MsgBox \仓库中目前无余额信息，请添加进库信息后再试！\vbOKOnly + vbExclamation, \警告\ Exit Sub End If db.Close End Sub

实验八 测试 （一）实验目的

能够正确运用系统测试的方法，掌握单元测试、子系统测试和系统测试的方法。

（二）实验要求

1. 进行模块测试（单调），编写典型测试用例。

2. 进行子系统测试（联调），将多个模块组合起来进行测试，编写典型测试用例。

3. 进行系统测试（集成测试），编写典型测试用例。

4. 分组完成上述内容，并提交测试报告。 （三）系统测试报告 1.目的：

通过对测试结果的分析，得到对软件质量的评价。

分析测试的过程，产品，资源，信息，为以后指定测试计划提供参考。

41

评估测试执行和测试计划是否符合。

分析系统岑在的缺陷，为系统的修复提供建议 2.用户群： 库存管理人员 3.测试对象： 物资管理系统程序 4.测试方案计划： 系统测试

5.（1）测试功能性：

系统实现的主要功能，包括用户名的添加、删除、以及密码的修改。出库、入库的添加，信息的查询。

需求规定的输入输出字段，以及需求规定的输入限制。 （2）测试易用性：

操作按钮提示正确，一致性，可理解性 6.测试环境：

Microsoft XP + VB + ODBC + Access 7.测试过程：

（1）添加用户为已有的用户：

如果添加用户为新用户：

（2）删除用户时，如果密码是错误的：

42

如果密码是正确的：

（3）添加入库单时，如果不填写内容按添加：

如果没有填写材料明细：

（4）查询入库信息时： 如果填写的进库单号码不存在：

否则，在对话框中出现符合条件的项目。 8.测试结论： （1）功能性

系统正确实现了通过数据库进行数据处理的功能，实现了GUI界面。实现了信息

43

管理，用户的添加、修改，以及用户密码的修改，入库出库的信息添加和修改，以及库存的余额等信息的查询。

系统在密码保存是有安全性的潜在问题，权限控制不严密。 （2）易用性

查询、添加、删除、操作相关提示信息的一致性，可理解性 输入限制的正确性 缺陷：

界面排版不美观

输出的字符的可理解性差 缺少解释性说明 （3）可靠性

现有的可靠性控制不够严密，很多控制是通过页面控制实现的，如果页面控制失效，可以向数据库插入数据，引发错误。

现有系统的容错性不高，如果系统出现错误，无法恢复到出错前的状态。 （4）兼容性

现有系统无法测试其兼容性 （5）安全性

把一个登陆后的页面保存下来，不能单独对其进行操作不进行登录 直接输入某一页面的URL能否打开页面并进行操作不应该允许 现有问题：

用户名、密码对应的大小写敏感问题 登录出错次数的限制 验证码等

数据库密码的直接可见性影响密码的安全 9.测试建议

项目开始的时候应该制定编码标准，数据库标准，需求变更标准，开发和测试人员都严格按照标准进行，可以在后期减少因为开发，测试不一致而导致的问题，同时也可以较低沟通成本。

发布版本的时候，正确布置测试环境，减少因为测试环境，测试数据库数据的问

44

题而出现的无效BUG。

开发人员应该写好注释，方便之后的修改者快速的查找修改。

实验九 系统安装与运行

（一）实验目的

能够正确运用系统设计的过程与方法，能够使设计的系统从开发环境移植到生产环境并投入运行。 （二）实验要求

1、完成所开发的系统从开发环境到生产环境的移植。

2、建造和测试网络，安装和加载数据库（每个数据表中的数据不少于10条），并进行系统测试。

3、编写用户手册及技术说明文档。

4、分组完成上述任务，并提交用户手册和技术说明文档 （三）用户手册和技术说明 1、软件特点：

软件界面友好，操作简单。标准的Windows界面布局、规范的操作习惯、详尽的使用帮助，使您能够在很短的时间内就熟悉本套软件。

物资信息记录全面、详细、周到，使您能够全面地了解、快速的处理企业各种物资信息需求。

数据库查询方便、快速，多条件过滤与排序让您从浩瀚的数据资源中马上检索出您所需要的信息。可以快速查询入库、出库情况及物资的剩余情况 2、运行环境

操作系统 Windows 95/98/ME/2000/NT/XP/2003（IE5.0 以上） 最低配置

CPU：奔腾100以上 内存：32MB

显示卡：标准16位VGA 硬盘：全部安装8MB左右 建议配置

45

CPU：主频200MHz或更高 内存：64Mb或更高

显示卡：SVGA、16位真彩以上显示模式 3、安装与启动 步骤一：安装软件

运行下载的安装程序包，然后根据安装程序的提示一步步的进行安装。安装完成后，如果出现了请您阅读帮助文档的窗口，那么，建议您首先浏览一下帮助文档，了解些使用方法和相关事项，再运行本软件，这样，有助于您更好地使用本软件。

步骤二：运行软件

双击桌面上的“物资管理信息系统”快捷方式即可运行本软件；也可以点击开始菜单/程序/物资管理信息系统，即可运行本软件。 4、系统操作

进入系统后即操作界面，可以对用户、物资、仓库进行相应的管理操作。如：添加、删除、修改。

46

CPU：主频200MHz或更高 内存：64Mb或更高

显示卡：SVGA、16位真彩以上显示模式 3、安装与启动 步骤一：安装软件

运行下载的安装程序包，然后根据安装程序的提示一步步的进行安装。安装完成后，如果出现了请您阅读帮助文档的窗口，那么，建议您首先浏览一下帮助文档，了解些使用方法和相关事项，再运行本软件，这样，有助于您更好地使用本软件。

步骤二：运行软件

双击桌面上的“物资管理信息系统”快捷方式即可运行本软件；也可以点击开始菜单/程序/物资管理信息系统，即可运行本软件。 4、系统操作

进入系统后即操作界面，可以对用户、物资、仓库进行相应的管理操作。如：添加、删除、修改。

46

本文来源：https://www.bwwdw.com/article/lk2p.html