企业采购管理系统分析与设计

1、企业采购管理系统分析与设计 目录第一章 系统分析2第一节 系统目标及功能描述2系统目标描述.2系统功能描述.2第二节 数据流程分析2第三节 数据字典5数据流的定义.5处理逻辑的定义13数据存储的定义16第四节 分析总结.18第二章 系统设计.18第一节 系统的功能模块设计.18第二节 代码设计.19第三节 数据库设计.20模型设计.20数据模型设计.21数据库表文件设计.22第四节 IPO设计23第三章 系统实施.253.1源代码设计.26参考文献第一章 系统分析第一节 系统目标及功能描述系统目标描述采购是企业经营的重要组成部分，它可以体现企业的经营情况和效益。企业采购系统可以有效的提高企业宏

2、观控制和经营管理的质量，是企业现代化管理的重要组成部分。本系统正对企业的采购任务而设计，主要用于制造企业的采购任务，该公司采购部接到采购通知，通过商品的物料计划，设计出采购物料清单，经过审核通过发送给供应商，供应商按时间交货后完成一次采购任务。介于手工填写采购单、进行物料分析、查找商品物料表、数据备份等的繁杂工作，本系统的使用会明显的减少人力、设备费用，提高处理业务的速度，降低采购成本，更加科学有效进行决策以及提高人员利用率等。采购员进入创建订单模块，可以通过选择商品名称，系统自动显示商品的物料组成清单，包括物料名称、所需物料数量、物料单位等信息，通过选择供应商，可以直接显示出物料单价、供应商

3、地址，经审核同意即可发送给供应商，等待回应；在商品管理模块、供应商管理模块、物料管理模块以及用户管理模块中，对其数据的维护与更新提高对采购订单的管理效率。系统功能描述本系统的主要功能如下：1） 订单管理：采购部接到采购任务，进行采购物料计划，生成采购订单，经过审核，通过审核的可以直接发送给供应商，供应商在到货限期之前发货过来，采购员接到货物，确认货物后改变订单状态；未经审核或审核不成功的订单不能发送，重新制定审核成功后才可发送。2） 商品管理：此功能模块主要对公司所生产的商品进行添加更新的操作，包括对商品进行物料需求设计，商品的新增等，最终形成商品物料清单表便于查询与订单的创建。3） 供应商管

4、理：存储了与本公司合作的所有供应商信息，信息不断更新以满足公司的需求。4） 物料管理：包括物料的增加与更新，随着商品的开发与更新，物料也随着改变，同时亦便于物料的查询。第二节 数据流程分析本系统数据流程图将用到以下符号： 外部实体数据存储 数据流 处理数据流程图符号：符号含义P处理D存储F数据流S外部实体订单管理、商品管理和物料管理的数据流程图：F1:F2:F3:F4:F5:F6:F7:F8:F9:F10:F11:F12:F13:F14:F15:F16:F17:F18:F19:F20:F21:F22:F26:F27:F36:F37:F38:用户管理和供应商管理的数据流程图：F46: 用户名，密

5、码F47: 用户名，密码F48: 用户名，密码F49: 用户名，密码F50: 用户名，密码F51: 用户名，密码F56: 供应商代码，供应商名称，【供应原料名称，价格】，地址F57: 错误!链接无效。F58: 错误!链接无效。F59: 供应商代码，供应商名称，【供应原料名称，价格】，地址F60: 错误!链接无效。F61: 错误!链接无效。第三节 数据字典1.3.1数据流的定义首先我们需要对外部实体进行定义：S1：采购员S2：供应商编号F1名称创建订单请求来源S1去向P1描述编号F2名称删除订单请求来源S1去向P2描述编号F3名称查询订单请求来源S1去向P3描述编号F4名称用户资料来源D6去向P

6、1描述编号F5名称商品资料来源D2去向P1描述编号F6名称供应商资料来源D3去向P1描述编号F7名称物料清单来源D5去向P4描述编号F8名称物料总单来源D5去向P1描述编号F9名称初始订单来源P1去向D1描述编号F10名称删除单来源P2去向D1描述编号F11名称查询单来源D1去向P3描述编号F12名称审核订单请求来源S3去向P6描述编号F13名称待审核订单来源D1去向P6描述编号F14名称已审核订单来源P6去向D1描述编号F15名称发送订单请求来源S1去向P7描述编号F16名称待发送订单来源D1去向P7描述编号F17名称发送回馈来源P7去向D1描述编号F18名称订单来源P7去向S2描述编号F1

7、9名称确认到货请求来源S1去向P8描述编号F20名称已到货信息来源P8去向D1描述编号F21名称删除的订单来源P2去向D6描述编号F22名称删除的订单(1)来源D6去向P2描述编号F26名称商品资料（1）来源S1去向P4描述错误!链接无效。编号F27名称商品资料(2)来源P4去向D2描述编号F36名称新增物料来源S1去向P5描述编号F37名称物料总单（1）来源P5去向D5描述编号F38名称缺少物料提示来源P5去向S1描述编号F46名称添加用户请求来源S1去向P9描述用户名，密码编号F47名称删除用户请求来源F1去向P10描述用户名，密码编号F48名称修改用户请求来源F1去向P11描述用户名，密

8、码编号F49名称添加用户单来源P9去向D6描述用户名，密码编号F50名称删除用户单来源P10去向D6描述用户名，密码编号F51名称修改用户单来源P11去向D6描述用户名，密码编号F56名称添加供应商请求来源S1去向P12描述供应商代码，供应商名称，【供应原料名称，价格】，地址编号F57名称删除供应商请求来源S1去向P13描述错误!链接无效。编号F58名称修改供应商请求来源S1去向P14描述错误!链接无效。编号F59名称添加供应商单来源P12去向D5描述供应商代码，供应商名称，【供应原料名称，价格】，地址编号F60名称删除供应商单来源P13去向D5描述错误!链接无效。编号F61名称修改供应商单来

9、源P14去向D5描述错误!链接无效。1.3.2处理逻辑的定义P1创建订单F1,F4,F5,F6,F8F9选择商品、供应商、物料等创建订单P2删除订单F2,F22F10,F21删除订单、查询已删除的订单、对删除的订单进行还原P3查询订单F3,F11无查询已经生成的订单P4添加商品F26F27,F28用户添加新的P5添加物料F36F37, F38增加新的物料P6审核订单F12,F13F14对创建好的订单进行审核，决定是否通过P7发送订单F15,F16,F18F17将审核通过的订单发送给供应商P8确认到货F19F16将已到货的订单修改状态，变成已到货P9添加用户F46F49新增用户名，用户密码P10

10、删除用户F47F50删除用户名及用户密码P11修改用户F48F51修改用户名或用户密码P12添加供应商F56F59添加供应商相关信息P13删除供应商F57F60删除供应商的信息P14修改供应商F58F61修改供应商的相关信息1.3.3数据存储定义编号D1名称订单文件输入输出F9,F10,F14,F17,F20F11,F13,F16关键字订单号组成编号D2名称商品文件输入输出F27F5关键字组成编号D3名称供应商文件输入输出F59F60,F61关键字组成编号D5名称物料清单表输入输出F37F7,F8关键字组成编号D6名称用户文件输入输出F49F50,F51关键字组成编号D7名称已删除文件输入输出

11、F21F22关键字描述第四节 分析总结本章按步骤，对问题进行了逐步地分析。首先进行系统目标分析，在一切认为适合继续进行的条件下，进行详细调查，详细调查时尤其注意了对日常处理单据的分析。在调查分析的基础上，得出了业务流程图和数据流程图，通过这几个图明确地把各种关系表示出来。在此基础上，分析数据字典的相应要素，又进一步把系统所能涉及到的各种元素及其关系表示了出来。第二章 系统设计第一节 系统的功能模块设计功能模块图：从图中可以看出，本系统共分为五个模块：（1） 订单管理模块：主要对订单文件进行操作，创建、删除、审核订单以及对生成的订单进行审核，通过后可以发送最终到货检验合格后确认到货；（2） 商品

12、管理模块：主要对商品信息的操作，可以对商品进行添加与修该等；（3） 物料管理模块：对物料信息的操作，针对商品信息的修改或添加，相应的对物料信息进行修改或添加；（4） 供应商管理模块：对供应商信息的操作，针对供应商方信息的变化，对供应商进行添加、修改、删除的操作；（5） 用户管理模块：主要对用户名以及用户密码进行添加、修改、删除的操作。第三节 代码设计此阶段对数据库中出现的代码进行设计以便于识别和操作。订单号设计：OX1X2X3X4X5X6X7订单号标识供应商顺序码物料顺序码顺序码商品代码设计：GX1X2商品代码标识顺序码物料代码设计：MX1X2物料代码标识顺序码供应商代码设计：CX1X2供应商

13、代码标识顺序码用户代码设计：UX1X2用户代码标识顺序码第三节 数据库设计E-R模型设计总的ER图：实体：用户（用户代码，用户名，密码）订单（）供应商（）物料（）商品（）关系：管理（）供应（单价，单位）组成（数量，单位）数据模型设计实体：用户（用户代码，用户名，密码）订单（）供应商（）物料（）商品（）关系：管理（用户代码，订单号，）供应（供应商代码，物料代码，供应商名称，物料名称，单价，单位）组成（商品代码，物料代码，数量，单位）数据库表文件设计表一：用户信息表（user）字段说明字段数据类型长度说明用户代码User_id文本3主码用户名User_name文本10密码User_password

14、数字 长整型表二：订单信息表（order）字段说明字段数据类型长度说明订单号Order_id文本8主码物料代码Material_id文本3外码物料单位Material_unit文本10物料数量Material_num数字10制单时间Making_time日期/时间长日期到货限期Deadline日期/时间长日期单价Price货币常规数字总额Price_all货币常规数字Company_id文本3外码Making_person文本3外码Check_person文本3外码Checked是/否Sended是/否accomplished是/否表三：供应商信息表（company）字段说明字段数据类型长度说

15、明供应商代码Company_id文本3主码供应商名称Company_name文本20地址Company_address超链接50表四：物料信息表（material）字段说明字段数据类型长度说明物料代码Material_id文本3主码物料名称Material_name文本20 表五：商品信息表（goods）字段说明字段数据类型长度说明商品代码Goods_id文本3主码商品名称Goods_name文本20商品单位Goods_unit文本10表六：供应商供应物料信息表（supply）字段说明字段数据类型长度说明供应商代码Company_id文本3主码物料代码Material_id文本3主码单价Pri

16、ce货币常规数字每单位Per_unit文本10表七：商品的物料组成信息表（element）字段说明字段数据类型长度说明商品代码Goods_id文本3主码物料代码Material_id文本3主码数量Number数字长整型单位unit文本10第四节 IPO设计以下是对创建订单模块和供应商管理模块的IPO进行的设计：模块名称创建订单模块上层调用模块订单管理模块调用下层模块无输入鼠标输出订单文件用户首先选择创单人或商品，鼠标点击选择按钮，弹出创单人或商品列表对话框，双击选择项，即选定，商品选择后出现物料清单列表，在每个物料名称后面单击选择供应商，同样是弹出供应商列表对话框，双击选择。之后选择创建日期以

17、及最后限期。直接点击审核键，由创单人进行审核，审核人既是创单人，没有审核则由下次登录的人进行审核，审核人为下次登录的这个人。选择保存，将订单写入到订单文件中。处理过程： 模块名称供应商管理模块上层调用模块主控调用下层模块添加供应商模块删除供应商模块修改供应商模块输入键盘、鼠标输出供应商文件添加供应商信息后自动赋予供应商代码，供应商名称、地址和联系电话由键盘输入，供应商提供的物料清单直接用鼠标单击选择弹出的对话框中的选项，没有需要的选项则必须退出供应商管理模块，在物料管理管理模块中添加，再返回继续进行供应商的添加。处理过程：第三章 系统实施系统的实施作为管理信息系统开发生命周期的后期阶段，其目的

18、是要把系统分析和系统设计的成果转化为可实际运行的系统。再好的系统设计不通过系统实施也只能是不能带来现实效益的空中楼阁。系统实施作为系统的物理实现阶段，对于系统的质量、可靠性和可维护性等性能有着十分重要的影响。13.1源代码设计：首先是登陆界面：代码如下：Private Sub Command1_Click()If txtUser = Then MsgBox 请输入用户名 /校验是否有输入值 txtUser.SetFocus Exit Sub End If If txtPwd = Then MsgBox 请输入密码 txtPwd.SetFocus Exit Sub End If If txtPw

19、d 12345 Then MsgBox 密码错误 Exit Sub End If If txtUser = zhangjia & txtPwd = 12345 Then main.Show /进入主界面，如下图 End If End Sub主界面如图所示：包含了各个主要模块的菜单，以下是进入创建订单模块的代码设计：创建订单界面：点击“选择商品”出现商品列表界面：双击要选择的商品，物料代码，数量，单位会显示在订单表的相应位置，双击供应商label框，会出现供应商供应物料列表，双击选择相应的选项，供应商代码、单价及总额会显示到订单表的相应位置。源代码设计：Private Sub DataGrid1

20、_DblClick() order.Text3 = materialshow.Adodc1.Recordset.Fields(material_id) order.Text2 = materialshow.Adodc1.Recordset.Fields(material_unit) materialshow.HideEnd Sub供应商供应物料列表： 源代码设计：Private Sub DataGrid1_DblClick() order.Text4.Text = companyshow.Adodc1.Recordset.Fields(company_id) order.price.Text

21、= companyshow.Adodc1.Recordset.Fields(price) order.price_all.Text = Str(Val(order.price.Text) * Val(order.Text1.Text) companyshow.Hide End Sub创建订单界面的代码：Private Sub check_Click() check_person.Visible = True usershow.ShowEnd SubPrivate Sub choice_Click() elementshow.ShowEnd SubPrivate Sub making_person_DblClick() usershow.ShowEnd SubPrivate Sub save_Click() Dim id As String Dim g As String Dim m As String Dim a As String Dim i As Integer g = Str(Val(Text4.Text) m = Str(