采购管理信息系统设计

1、负责潜在供应商的推荐、资格认可以及合格供应商确定的组织工作，提供销潜在供应商所有的相关资料目录目录 I1 前言 11.1 作业背景11.2 选题说明 11.2.1 基本思路 21.2.2 作业目标21.3 工作业绩 21.3.1 个人主要工作 21.3.2 主要收获 21.3.3 自我评定 31.3.4 小组成员任务分工情况 32 系统规划42.1 可行性分析 42.1.1 可行性研究方法 42.1.2 可行性综合分析43 系统分析 53.1 详细调查分析 53.1.1 业务流程图 53.2 系统的逻辑模型53.2.1 数据流程图53.2.2 数据字典 64系统设计84.2 总体设计 84.2

2、.1 功能结构图设计 84.2.2 E-R104.3 详细设计 104.3.1 输入输出设计 104.3.2 代码设计 114.3.3 数据库设计 115系统实施13结束语29参考文献30页脚内容II负责潜在供应商的推荐、资格认可以及合格供应商确定的组织工作，提供销潜在供应商所有的相关资料1 前言1.1作业背景本文根据管理信息系统开发实践课程要求而做。课程作业要求如下：管理信息系统开发作为独立的教学环节，是学习完管理信息系统课程并进 行完专业实习后进行的一次全面的综合练习。其目的在于加深对管理信息系统基础 理论和基本知识的理解，掌握使用信息系统分析、设计的基本方法，提高解决实际 管理问题、开发

3、信息系统的实践能力。具体内容是：用信息系统开发工具（例如 PowerBuilder、Delphi、Vb、Vfp等） 开发一个实用的中小型采购管理信息系统。具体要求如下：1、根据课程实践时间选择适当规模大小的设计课题。针对信息系统课程实践的 具体特点，体现项目管理的思想，由指导教师对学生进行分组（每组 4-6人），一组 一题，分工合作，共同完成。2、根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程实践活 动。3、课程实践过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文 档，最后要求提交详细的课程实践报告。4、开发出可以运行的管理信息系统，通过上机检查。1.2 选题说明进入2

4、1世纪，随着技术进步和客户需求多样化，企业经营的市场环境发生了 很大的变化，从过去的供应商主导的、静态的、简单的市场环境变成客户为主导的、 动态的、复杂的市场环境。企业之间由单纯产品质量、性能方面的竞争转向企业所 在的供应链之间的竞争。在企业经营管理中，采购是最重要的一个环节。它对于企业 降低经营成本、确保产品质量、缩短生产周期具有非常重要的意义。采购管理为降 低采购成本，提高采购效益提供了广阔的空间，但也同时为采购管理带来了新的机 遇和挑战。目前，我国大多数企业仍然没有建立健全的供应链管理体系，物资的采购还 存在机构设置分散，资源浪费严重，信息传递滞后等问题。1.2.1 基本思路本文从全通公

5、司提高采购管理的需求入手，给出了适合本企业的采购供应管理 系统整体设计方案。在系统业务流程改造和功能模块的设计中体现出先进的采购管 理思想，并对采购业务管理的具体内容进行了分析与设计。1.2.2 作业目标该系统将有效的整合企业内外部的资源 ，加强企业与供应商之间的紧密合作，增 强企业采购业务的透明度，规范标准业务流程，提高采购的效率和质量，提升企业的核 心竞争力0通过对采购管理系统设计与开发，使采购部门的工作效率大大提升，实现采购 管理工作的信息化，网络化等，从而降低采购的总体成本，增加企业的利润，并能 更好的完成企业最终目标。1.3 工作业绩1.3.1 个人主要工作我在团队中的主要工作是进行

6、系统实施，系统实施的主要内容包括物理系统的 实施、程序设计与调试、人员培训、数据准备与录入、系统转换与评价等。系统实 施阶段既是成功地实现新系统，又是取得用户对系统信任的关键。1.3.2 主要收获通过对全通公司的采购管理系统进行设计，使我不仅了解到系统实施部分的内 容，也使我更深的掌握了管理信息系统的开发方法以及重要性。开发一个管理信息 系统好像建一栋大楼，系统分析、系统设计是根据用户的要求画出各种蓝图，系统 实施是调集各类人员、设备、材料，在现场根据图纸按实施方案的要求把“大楼” 建起来。通过对这个系统的开发设计，使我这学期所学的管理信息系统得到了运用，实 现了从理论到实践的升华，一个完善的

7、管理信息系统可以促使公司向信息化方向发 展，将管理工作统一化、规范化、现代化，使公司处于一个信息灵敏、管理科学、 决策准确的良性循环中，为公司带来跟高的效益。最后，我还明白了集体协作的重要性。我们组的各个成员通过合理分工、互帮互助才完成了这个系统的开发设计，所以。通过这次团队合作，不仅学到先进的专 业知识，更加深了团队合作的意识。1.3.3 自我评定优 良 中 及格 不及格1.3.4 小组成员任务分工情况本组为本次课程设计第四组，组长为：，小组所有成员分工如下:页脚内容82 系统规划2.1 可行性分析2.1.1 可行性研究方法通过调查分析采购供应管理信息系统所具备的能力及实现的方法。确定总体结

8、 构，利用数据库所具有的能力，以最简洁最容易的方法，使其成为一个初级的系统 软件。2.1.2 可行性综合分析(1)可行性：系统现阶段的发展过程中，利用现有人力和物力是完全具备的能 力开发出来的，作为阶段性产品，日后的发展空间大，实现方法逐步简单容易。对 于该系统的技术要求，现行的软件开发条件，环境，完全可以实现。SQL Server 2000 完全可以提供该系统的操作要求和数据库需求。所以采购供应管理信息系统在技术 上是完全可行的。(2)技术可行性：该系统的开发要求是界面简单，易于操作。(3)经济可行性：该系统做为课程设计开发，经济可行性在此不做讨论。(4)管理可行性：此次采购系统的开发得到了

9、大商集团采购部门经理的大力支 持，期待着设计出的采购系统能够使大商百货公司采购流程效率提高。采购部门的 其他人员也期待着采购系统能够成功的开发，帮助他们能够快速准确的工作，减少 作业量提高效率。3系统分析系统分析在整个开发过程中，是要解决“做什么”的问题。从逻辑上，或者说 从信息处理的功能需求上提出系统的方案，即逻辑模型，为下一阶段进行物理方案 设计、解决“怎么做”提供依据。3.1 详细调查分析3.1.1 业务流程图业务流程图(transaction flow diagram,简称TFD)就是用一些规定的符号及连线 来表示某个具体业务处理过程。是一种用尽可能少、尽可能简单的方法来描述业务 处理

10、过程的方法。3.2 系统的逻辑模型3.2.1 数据流程图入库处理库存台账WT1 1 .ST退款单付款单3.2.2 数据字典数据字典是对描述数据流程图中的数据项、数据流、数据存储、加工处理逻辑 等组成部分的严格定义，下面是本系统的部分数据字典。(1)数据流的描述数据流编号G-01数据流名称采购订单简述全通公司实时购买的货物单数据流来源采购部门数据流去向采购员数据项组成订单号+经手人+日期+货物名称+货物代码+数量+货物单价+ 金额数据流量24张/天高峰流量30张/天(2)处理逻辑描述处理逻辑P1编号处理逻辑 名称采购处理简述对采购订单进行统计，开出采购单输入的数 据流采购订单处理描述对采购订单进

11、行处理，将所订的货物进行分类，编制合理 肩效的米购单输出的数 据流采购单处理频率1张/小时(3)数据存储的描述数据存储 编号F1数据存储名称采购台账简述采购的货物的记录数据存储 组成货物名称+货物代码+货物数量+货物单价+货物单位+金额+ 日期关键字货物相关联的 处理P1(4)外部实体的描述外部实体编号S1外部实体名称采购员简述采购货物人员输入的数 据流采购订单输出的数采购订单据流4系统设计4.2 总体设计4.2.1 功能结构图设计页脚内容9负责潜在供应商的推荐、资格认可以及合格供应商确定的组织工作，提供销潜在供应商所有的相关资料页脚内容314.2.2 E-R4.3 详细设计4.3.1 输入输

12、出设计输出设备：屏幕输出方式：显示输出与打印输出输出形式：报表输出形式输入设计：对输入信息进行校验则会弹出1在登陆界面：用户名及密码不能为空，如不填写两者或两者之一,则会弹出对话框提醒"对话框提醒"请输入用户名与密码！"如果用户输入的密码不是密码管理表中的用户名及密码，无该用户！”2在采购订单：订单号不能为空，否则会弹出对话框提醒"请输入完整信息输入订单号编号为数字！"在单价和数量中输入数字，金额项目会自动显示为两者乘积结果。4.3.2 代码设计代码设计部分主要是采购订单号的设计。全通公司的主要合作伙伴为其设计周 定的编码。采购订单号是由厂家名

13、和产品类别构成的厂家代码厂家名称产品类别代码产品类别01白事口乐公司01果汁类饮品02可口可乐公司02茶系列饮品03娃哈哈公司03酸奶类饮品04农夫山泉公司04碳酸饮料类05务-公司05矿泉水06其他公司06其他类别4.3.3数据库设计1、数据库的建立该系统的数据库主要是应用Access编辑软件进行编辑的 表5-1:采购信息表字段名称数据类型订单号文本时间文本经手人文本入库文本供应商义本是否交货义本数量数字单价数字金额数字冏品名称文本商口口编P数字2、数据库的连接在Visual Basic中，使程序与数据库的连接有两种方式，一种使通过设置 ADO控件的属性将程序与数据库进行连接，另一种是通过代

14、码形式将 ADO控件连接 数据库，通过代码的形式虽然加大了开发难度，但是有很多的优点，所以，在程序 开发是选择了以代码的形式来连接数据库。5系统实施一、登录界面当输入的账号为：1密码为：1时，焦点会自动落在确定上面，此时点击确定 就可以登入系统。若错误，则会弹出对话框提醒“用户名密码错误，请重新输入！”并且它的输入密码为“ *"，是在属性栏中的passwordchar设置 一。用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒 "请输 入用户名与密码！"如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒"无该用户！”图5-

15、1登陆窗口它的具体代码为：Private Sub Command1_Click()If Text1 = "" Or Text2 = "" ThenMsgBox "请输入用户名与密码!ElseAdodcI.Recordset.Filter ="用户名='"+ Textl.Text + !"”Adodc1.Recordset.Find "用户名='"+ Textl.Text + ""'If Adodc1.Recordset.EOF ThenMsgBox ”

16、无该用户！"ElseAdodc1.Recordset.Filter ="用户名"+ "=" + !"" + Text1.Text + !"”If Text2 <> Adodc1.Recordset.Fields("密码")ThenMsgBox ”用户名密码错误，请重新输入！"ElseForm2.ShowForm1.HideEnd IfEnd IfEnd IfText2 =""End SubPrivate Sub Command2_Click()EndEn

17、d SubPrivate Sub Text2_Change()If Text2.Text = "1" ThenCommand1.SetFocusEnd IfEnd Sub主界面图5-2主界面主界面是登陆后最基础的一个界面，内容包括采购订单，采购付款，订单收货, 采购查询，采购开单，密码修改。它的具体代码为：Private Sub Command1_Click()Form3.ShowEnd SubPrivate Sub Command2_Click()Form3.HideForm4.ShowEnd SubPrivate Sub Command3_Click()Form5.Sh

18、owEnd SubPrivate Sub Command4_Click()Form6.ShowEnd SubPrivate Sub Command5_Click()form7.ShowEnd SubPrivate Sub Command7_Click()EndEnd SubPrivate Sub Command8_Click()Form8.ShowEnd Sub3、采购订单企业向供应商订货物时，开据入库订单，以便了解收货情况并预先安排存放货 物的仓库。在界面内填入相应的商品信息，点击保存则会将所输入的采购信息保存 到采购信息管理表中。如果输入有误，且已保存，可以应用删除功能，将错误信息 删除。

19、订单号不能为空，否则会弹出对话框提醒"请输入完整信息，输入订单号 编号为数字！”在单价和数量中输入数字，金额项目会自动显示为两者乘积结果。图5-3商品信息的录入它的具体代码为：Private Sub Command1_Click（）If Textl.Text = "" ThenMsgBox ”请输入完整信息，输入订单号 编号为数字！ "，vbOKOnly + vbExclamation,"警告！"Text1.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields（"

20、;时间"）=Text2.TextAdodc1.Recordset.Fields（"订单号"）=Text1.TextAdodc1.Recordset.Fields（"供应商"）=Text4.TextAdodc1.Recordset.Fields（"经手人"）=Text3.TextAdodc1.Recordset.Fields（"入库"）=Text10.TextAdodc1.Recordset.Fields（"是否交货"）=Textll.TextAdodcI.Recordset.Updat

21、eAdodcI.Recordset.AddNewAdodc1.Recordset.Fields("名称")=Text5.TextAdodc1.Recordset.Fields("数量")=Val(Text7.Text)Adodc1.Recordset.Fields("单价")=Val(Text6.Text)Adodc1.Recordset.Fields("金额")=Val(Text8.Text)AdodcI.Recordset.Fields("商品编号")=Val(Text9.Text)Adod

22、cI.Recordset.UpdateMsgBox "已保存订单！ ", vbOKOnly + vbExclamation,"提示"Textl.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text =""Text6.Text =""Text7.Text =""Text8.Text =""Text9.Text ="&quo

23、t;Text10.Text =""End IfEnd SubPrivate Sub Command2_Click()Form3.HideEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Text8_Change()If Not IsNumeric(Text6.Text) Or Not IsNumeric(Text7.Text) ThenMsgBox "请在单价和数量中输入数字"ElseText8 = Val(Text6) * Val(Text7)End

24、 IfEnd Sub4、订单收货订单收货：是“采购订单”上的货到后入库完成交易。对采购订单表中商品的订单号进行查询，订单号不存在，则会弹出对话框提醒“无该订单”。如存在，则会在表中显示出来，如果其“入库”属性为“否”,即说明其没有入库，可点击“收 货交易”，把相应信息保存到仓库信息管理表中。如果其“入库”属性为“是”则“收货交易”按钮不可用。图5-4订单收货它的具体代码为:Private Sub Command1_Click（）AdodcI.Recordset.Fields（"是否交货"）="是"Adodc1.Recordset.UpdateMsgBox

25、 "完成交易,已入仓库", vbOKOnlyAdodc2.Recordset.Find "订单号="& Adodc1.Recordset.Fields（"订单号"）If Adodc2.Recordset.EOF = True ThenAdodc2.Recordset.AddNewAdodc2.Recordset.Fields（"名称"）=Adodc1.Recordset.Fields（"名称"）Adodc2.Recordset.Fields（"数量"）=Adodc1.

26、Recordset.Fields（"数量"）Adodc2.Recordset.Fields（"订单号"）=Adodc1.Recordset.Fields（"订单号"）Adodc2.Recordset.Fields（"单价"）=Adodc1.Recordset.Fields（"单价"）Adodc2.Recordset.Fields（"金额"）=Adodc1.Recordset.Fields（"金额"）Adodc2.Recordset.UpdateElseAd

27、odc2.Recordset.Fields（"数量"）=（Adodc2.Recordset.Fields（"数量"）+Adodc1.Recordset.Fields（"数量"）Adodc2.Recordset.UpdateEnd IfCommand2.Enabled = FalseText1.Text =""End SubPrivate Sub Command2_Click（）If Text1.Text = "" Or Not IsNumeric（Text1） ThenMsgBox ”订单号，并

28、输入具体数值！", vbOKOnlyElseAdodc1.Recordset.Filter ="订单号 ="+ "" + Text1.Text + 皿Adodc1.Recordset.Find "订单号="& Text1.TextIf Adodc1.Recordset.EOF ThenMsgBox "无该订单"ElseAdodc1.Recordset.Filter ="订单号 ="+ "”' + Text1.Text + "”'If Adod

29、c1.Recordset.Fields（"是否交货"）="是"ThenCommand1.Enabled = FalseElseCommandl.Enabled = TrueEnd IfEnd IfEnd IfEnd SubPrivate Sub Command3_Click()Form4.HideForm2.ShowEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = TrueText1.Text =""End Sub5、采购单采购单是对库存的

30、商品查询，了解哪些要进行采购。填入相关商品信息， 会将相关商品信息。保存到库存管理表中，对于仓库中已有的商品，数量上会在原 有的基础上增加。图5-5仓库二的查询具体代码为：Private Sub Text6_Change()If Not IsNumeric(Text4.Text) Or Not IsNumeric(Text5.Text) ThenMsgBox "请在单价和数量中输入数字ElseText6 = Val(Text4) * Val(Text5)End IfEnd SubPrivate Sub Command1_Click()If Textl.Text = "&qu

31、ot; Or Text2.Text = "" ThenMsgBox "请输入完整信息，供应商与商品名称！", vbOKOnly + vbExclamation,百口 ！ElseAdodc1.Recordset.Find "订单号="& "”' & Text3.Text & "”'If Adodc1.Recordset.EOF ThenAdodcI.Recordset.AddNewAdodcI.Recordset.Fields（"名称"）=Textl.Tex

32、tAdodcI.Recordset.Fields（"数量"）=Val（Text5.Text）Adodc1.Recordset.Fields（"订单号"）=Text3.TextAdodc1.Recordset.Fields（"单价"）=Val（Text4.Text）AdodcI.Recordset.Fields（"金额"）=Val（Text6.Text）Adodc1.Recordset.Fields（"是否付款"）="否"Adodc1.Recordset.Fields（&quo

33、t;仓库名"）="仓库一"AdodcI.Recordset.UpdateElseAdodc1.Recordset.Fields（"数量"）= （Val（Text5.Text） +Adodc1.Recordset.Fields（"数量"）Adodc1.Recordset.UpdateEnd IfEnd IfText1.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text =&quo

34、t;"Text6.Text =""End SubPrivate Sub Command2_Click（）Form2.ShowForm5.HideEnd Sub6、付款单付款给供应商，支付金额自动登账入库，完成入库交易。输入订单号对要付款 的订单进行查询，如果订单号存在且其“是否付款”属性为否，则确认付款，并将 信息保存到仓库管理表中完成付款交易。图5-6仓库调拨具体代码如下：Private Sub Command1_Click()AdodcI.Recordset.Fields("是否付款")="是"AdodcI.Record

35、set.UpdateMsgBox "完成付款交易！ ", vbOKOnlyTextl.Text =""End SubPrivate Sub Command2_Click()Form2.ShowForm6.HideEnd SubPrivate Sub Command3_Click()If Text1.Text = "" Or Not IsNumeric(Text1) ThenMsgBox "输入订单号！ ", vbOKOnlyElseAdodcI.Recordset.Filter ="订单号 ="

36、+ 皿 + Textl.Text + 皿Adodc1.Recordset.Find "订单号="& "”' & Textl.Text & "”'If Adodc1.Recordset.EOF ThenMsgBox ”无该订单！”ElseAdodc1.Recordset.Filter ="订单号 ="+ 皿 + Text1.Text + 皿If Adodc1.Recordset.Fields（"是否付款"）="是"ThenCommand1.Enabled =

37、 FalseElseCommand1.Enabled = TrueEnd IfEnd IfEnd IfEnd Sub7、采购查询50,采购查询是一个有限制条件的查询窗口，也就是说由用户自定义最低的库存数 量，然后可以方便的让操作人员进行查询。本系统将最低库存数量设置为小于 这样在一定时间内就可以对仓库的数量进行查询，及时采购补货。图5-7采购查询具体代码如下：Private Sub Command1_Click()AdodcI.Recordset.Filter ="数量 <50End SubPrivate Sub Command2_Click()Form2.Showform7.

38、HideEnd Sub8、密码修改本功能允许使用者对密码进行修改，取保系统的安全与方便。如果你是系统的 用户，输入用户名可对自己的密码进行修改。如果密码确认不同则提示”两次密码不同，请从新输入！"图4-9密码修改具体代码如下:Private Sub Command1_Click()If Text1 = "" Or Text3 = "" Or Not IsNumeric(Text2) ThenMsgBox "请完整信息，密码为数字!Elself Textl <> Text2 ThenMsgBox "两次密码不同，请从新输入!Text