采购管理信息系统设计

《采购管理信息系统设计》由会员分享，可在线阅读，更多相关《采购管理信息系统设计（31页珍藏版）》请在装配图网上搜索。

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.1功能结构图设计84.2.2 E-R94.3 详细设计94.3.1 输入输出设计94.3.2代

2、码设计104.3.3数据库设计105 系统实施12结束语28参考文献2929沈阳理工大学课程实践（论文）1 前言1.1 作业背景本文根据管理信息系统开发实践课程要求而做。课程作业要求如下：管理信息系统开发作为独立的教学环节，是学习完管理信息系统课程并进行完专业实习后进行的一次全面的综合练习。其目的在于加深对管理信息系统基础理论和基本知识的理解，掌握使用信息系统分析、设计的基本方法，提高解决实际管理问题、开发信息系统的实践能力。具体内容是：用信息系统开发工具（例如PowerBuilder、Delphi、Vb、Vfp等）开发一个实用的中小型采购管理信息系统。具体要求如下：1、根据课程实践时间选择适

3、当规模大小的设计课题。针对信息系统课程实践的具体特点，体现项目管理的思想，由指导教师对学生进行分组（每组4-6人），一组一题，分工合作，共同完成。2、根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程实践活动。3、课程实践过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后要求提交详细的课程实践报告。4、开发出可以运行的管理信息系统，通过上机检查。1.2 选题说明进入 21 世纪，随着技术进步和客户需求多样化，企业经营的市场环境发生了很大的变化,从过去的供应商主导的、静态的、简单的市场环境变成客户为主导的、动态的、复杂的市场环境。企业之间由单纯产品质量、性能方面的竞争转

4、向企业所在的供应链之间的竞争。在企业经营管理中,采购是最重要的一个环节。它对于企业降低经营成本、确保产品质量、缩短生产周期具有非常重要的意义。采购管理为降低采购成本，提高采购效益提供了广阔的空间，但也同时为采购管理带来了新的机遇和挑战。目前,我国大多数企业仍然没有建立健全的供应链管理体系,物资的采购还存在机构设置分散,资源浪费严重,信息传递滞后等问题。1.2.1 基本思路本文从全通公司提高采购管理的需求入手,给出了适合本企业的采购供应管理系统整体设计方案。在系统业务流程改造和功能模块的设计中体现出先进的采购管理思想,并对采购业务管理的具体内容进行了分析与设计。1.2.2 作业目标该系统将有效的

5、整合企业内外部的资源,加强企业与供应商之间的紧密合作,增强企业采购业务的透明度,规范标准业务流程,提高采购的效率和质量,提升企业的核心竞争力。通过对采购管理系统设计与开发，使采购部门的工作效率大大提升，实现采购管理工作的信息化，网络化等，从而降低采购的总体成本，增加企业的利润，并能更好的完成企业最终目标。1.3 工作业绩1.3.1 个人主要工作我在团队中的主要工作是进行系统实施，系统实施的主要内容包括物理系统的实施、程序设计与调试、人员培训、数据准备与录入、系统转换与评价等。系统实施阶段既是成功地实现新系统，又是取得用户对系统信任的关键。1.3.2 主要收获通过对全通公司的采购管理系统进行设计

6、，使我不仅了解到系统实施部分的内容，也使我更深的掌握了管理信息系统的开发方法以及重要性。开发一个管理信息系统好像建一栋大楼，系统分析、系统设计是根据用户的要求画出各种蓝图，系统实施是调集各类人员、设备、材料，在现场根据图纸按实施方案的要求把“大楼”建起来。通过对这个系统的开发设计，使我这学期所学的管理信息系统得到了运用，实现了从理论到实践的升华，一个完善的管理信息系统可以促使公司向信息化方向发展，将管理工作统一化、规范化、现代化，使公司处于一个信息灵敏、管理科学、决策准确的良性循环中，为公司带来跟高的效益。最后，我还明白了集体协作的重要性。我们组的各个成员通过合理分工、互帮互助才完成了这个系统

7、的开发设计，所以。通过这次团队合作，不仅学到先进的专业知识，更加深了团队合作的意识。1.3.3 自我评定 优 良 中 及格 不及格1.3.4 小组成员任务分工情况本组为本次课程设计第四组，组长为：，小组所有成员分工如下：2 系统规划2.1 可行性分析2.1.1可行性研究方法通过调查分析采购供应管理信息系统所具备的能力及实现的方法。确定总体结构，利用数据库所具有的能力，以最简洁最容易的方法，使其成为一个初级的系统软件。2.1.2可行性综合分析（1）可行性：系统现阶段的发展过程中，利用现有人力和物力是完全具备的能力开发出来的，作为阶段性产品，日后的发展空间大，实现方法逐步简单容易。对于该系统的技术

8、要求，现行的软件开发条件，环境，完全可以实现。SQL Server 2000完全可以提供该系统的操作要求和数据库需求。所以采购供应管理信息系统在技术上是完全可行的。（2）技术可行性：该系统的开发要求是界面简单，易于操作。（3）经济可行性：该系统做为课程设计开发，经济可行性在此不做讨论。（4）管理可行性：此次采购系统的开发得到了大商集团采购部门经理的大力支持，期待着设计出的采购系统能够使大商百货公司采购流程效率提高。采购部门的其他人员也期待着采购系统能够成功的开发，帮助他们能够快速准确的工作，减少作业量提高效率。3 系统分析系统分析在整个开发过程中，是要解决“做什么”的问题。从逻辑上，或者说从信

9、息处理的功能需求上提出系统的方案，即逻辑模型，为下一阶段进行物理方案设计、解决“怎么做”提供依据。3.1 详细调查分析3.1.1 业务流程图业务流程图(transaction flow diagram,简称TFD),就是用一些规定的符号及连线来表示某个具体业务处理过程。是一种用尽可能少、尽可能简单的方法来描述业务处理过程的方法。付款单供应商财务部退款单收货单库工采购订单采购员采购单退货单2份3.2 系统的逻辑模型3.2.1 数据流程图 3.2.2 数据字典数据字典是对描述数据流程图中的数据项、数据流、数据存储、加工处理逻辑等组成部分的严格定义，下面是本系统的部分数据字典。(1) 数据流的描述数

10、据流编号G-01数据流名称采购订单简述全通公司实时购买的货物单数据流来源采购部门数据流去向采购员数据项组成订单号+经手人+日期+货物名称+货物代码+数量+货物单价+金额数据流量24张/天高峰流量30张/天（2）处理逻辑描述处理逻辑编号P1处理逻辑名称采购处理简述对采购订单进行统计，开出采购单输入的数据流采购订单处理描述对采购订单进行处理，将所订的货物进行分类，编制合理有效的采购单输出的数据流采购单处理频率1张/小时（3）数据存储的描述数据存储编号F1数据存储名称采购台账简述采购的货物的记录数据存储组成货物名称+货物代码+货物数量+货物单价+货物单位+金额+日期关键字货物相关联的处理P1（4）外

11、部实体的描述外部实体编号S1外部实体名称采购员简述采购货物人员输入的数据流采购订单输出的数据流采购订单4 系统设计4.2 总体设计4.2.1功能结构图设计采购管理信息系统用户登录界面主界面采购订单订单收货采购开单采购付款采购查询密码修改4.2.2 E-R4.3 详细设计4.3.1 输入输出设计输出设备：屏幕输出方式：显示输出与打印输出输出形式：报表输出形式输入设计： 对输入信息进行校验1.在登陆界面： 用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒请输入用户名与密码！如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒无该用户！2.在采购订单： 订单号不能为空

12、，否则会弹出对话框提醒请输入完整信息，输入订单号 编号为数字！在单价和数量中输入数字，金额项目会自动显示为两者乘积结果。4.3.2代码设计代码设计部分主要是采购订单号的设计。全通公司的主要合作伙伴为其设计固定的编码。采购订单号是由厂家名和产品类别构成的。厂家代码厂家名称产品类别代码产品类别01百事可乐公司01果汁类饮品02可口可乐公司02茶系列饮品03娃哈哈公司03酸奶类饮品04农夫山泉公司04碳酸饮料类05统一公司05矿泉水06其他公司06其他类别4.3.3数据库设计1、数据库的建立该系统的数据库主要是应用Access编辑软件进行编辑的。表5-1：采购信息表字段名称数据类型订单号文本时间文本

13、经手人文本入库文本供应商文本是否交货文本数量数字单价数字金额数字商品名称文本商品编号数字2、数据库的连接 在Visual Basic中，使程序与数据库的连接有两种方式，一种使通过设置ADO控件的属性将程序与数据库进行连接，另一种是通过代码形式将ADO控件连接数据库，通过代码的形式虽然加大了开发难度，但是有很多的优点，所以，在程序开发是选择了以代码的形式来连接数据库。5 系统实施一、登录界面当输入的账号为：1 密码为：1 时，焦点会自动落在确定上面，此时点击确定就可以登入系统。若错误，则会弹出对话框提醒“用户名密码错误,请重新输入！”并且它的输入密码为“*”，是在属性栏中的passwordcha

14、r设置“*”。用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒请输入用户名与密码！如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒无该用户！图5-1 登陆窗口它的具体代码为：Private Sub Command1_Click()If Text1 = Or Text2 = ThenMsgBox 请输入用户名与密码！ElseAdodc1.Recordset.Filter = 用户名= + Text1.Text + Adodc1.Recordset.Find 用户名= + Text1.Text + If Adodc1.Recordset.EOF Then Msg

15、Box 无该用户！ Else Adodc1.Recordset.Filter = 用户名 + = + + Text1.Text + If Text2 Adodc1.Recordset.Fields(密码) ThenMsgBox 用户名密码错误,请重新输入！ElseForm2.ShowForm1.HideEnd IfEnd IfEnd If Text2 = End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Text2_Change()If Text2.Text = 1 ThenCommand1.SetFocusEnd IfEnd S

16、ub 二、主界面图5-2 主界面主界面是登陆后最基础的一个界面，内容包括采购订单，采购付款，订单收货，采购查询，采购开单，密码修改。它的具体代码为：Private Sub Command1_Click()Form3.ShowEnd SubPrivate Sub Command2_Click()Form3.HideForm4.ShowEnd SubPrivate Sub Command3_Click()Form5.ShowEnd SubPrivate Sub Command4_Click()Form6.ShowEnd SubPrivate Sub Command5_Click()form7.Sh

17、owEnd SubPrivate Sub Command7_Click()EndEnd SubPrivate Sub Command8_Click()Form8.ShowEnd Sub3、采购订单企业向供应商订货物时，开据入库订单，以便了解收货情况并预先安排存放货物的仓库。在界面内填入相应的商品信息，点击保存则会将所输入的采购信息保存到采购信息管理表中。如果输入有误，且已保存，可以应用删除功能，将错误信息删除。订单号不能为空，否则会弹出对话框提醒请输入完整信息，输入订单号 编号为数字！在单价和数量中输入数字，金额项目会自动显示为两者乘积结果。图5-3 商品信息的录入它的具体代码为：Privat

18、e Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入完整信息，输入订单号 编号为数字！, vbOKOnly + vbExclamation, 警告！Text1.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(时间) = Text2.Text Adodc1.Recordset.Fields(订单号) = Text1.Text Adodc1.Recordset.Fields(供应商) = Text4.Text Adodc1.Recordset.Fields(经手人) = T

19、ext3.Text Adodc1.Recordset.Fields(入库) = Text10.Text Adodc1.Recordset.Fields(是否交货) = Text11.Text Adodc1.Recordset.Update Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(名称) = Text5.Text Adodc1.Recordset.Fields(数量) = Val(Text7.Text) Adodc1.Recordset.Fields(单价) = Val(Text6.Text) Adodc1.Recordset.Fields

20、(金额) = Val(Text8.Text) Adodc1.Recordset.Fields(商品编号) = Val(Text9.Text) Adodc1.Recordset.Update MsgBox 已保存订单！, vbOKOnly + vbExclamation, 提示 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = End IfEnd SubPrivate Sub Comma

21、nd2_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 IfEnd Sub4、订单收货 订单收货：是“采购订单”上的货到后入库完成交易。对采购订单表中商品的订单号进行查询，订单号不存在，则会弹

22、出对话框提醒无该订单。如存在，则会在表中显示出来，如果其“入库”属性为“否”，即说明其没有入库，可点击“收货交易”，把相应信息保存到仓库信息管理表中。如果其“入库”属性为“是”则“收货交易”按钮不可用。 图5-4订单收货它的具体代码为：Private Sub Command1_Click() Adodc1.Recordset.Fields(是否交货) = 是 Adodc1.Recordset.Update MsgBox 完成交易，已入仓库, vbOKOnly Adodc2.Recordset.Find 订单号= & Adodc1.Recordset.Fields(订单号) If Adodc2.

23、Recordset.EOF = True Then Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(名称) = Adodc1.Recordset.Fields(名称) Adodc2.Recordset.Fields(数量) = Adodc1.Recordset.Fields(数量) Adodc2.Recordset.Fields(订单号) = Adodc1.Recordset.Fields(订单号) Adodc2.Recordset.Fields(单价) = Adodc1.Recordset.Fields(单价) Adodc2.Recordset

24、.Fields(金额) = Adodc1.Recordset.Fields(金额) Adodc2.Recordset.Update Else Adodc2.Recordset.Fields(数量) = (Adodc2.Recordset.Fields(数量) + Adodc1.Recordset.Fields(数量) Adodc2.Recordset.Update End If Command2.Enabled = False Text1.Text = End SubPrivate Sub Command2_Click() If Text1.Text = Or Not IsNumeric(Te

25、xt1) Then MsgBox 订单号，并输入具体数值！, vbOKOnly Else Adodc1.Recordset.Filter = 订单号 = + + Text1.Text + Adodc1.Recordset.Find 订单号= & Text1.Text If Adodc1.Recordset.EOF Then MsgBox 无该订单 Else Adodc1.Recordset.Filter = 订单号 = + + Text1.Text + If Adodc1.Recordset.Fields(是否交货) = 是 Then Command1.Enabled = False Else

26、 Command1.Enabled = True End If End If End IfEnd SubPrivate Sub Command3_Click()Form4.HideForm2.ShowEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = TrueText1.Text = End Sub5、采购单 采购单是对库存的商品查询，了解哪些要进行采购。填入相关商品信息，会将相关商品信息。保存到库存管理表中，对于仓库中已有的商品，数量上会在原有的基础上增加。 图5-5 仓库二的查询具体代码为：Pri

27、vate 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 Text1.Text = Or Text2.Text = ThenMsgBox 请输入完整信息，供应商与商品名称！, vbOKOnly + vbExclamation, 警告！Else Adodc1.Recordset.Find 订单

28、号= & & Text3.Text & If Adodc1.Recordset.EOF Then Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(名称) = Text1.Text Adodc1.Recordset.Fields(数量) = Val(Text5.Text) Adodc1.Recordset.Fields(订单号) = Text3.Text Adodc1.Recordset.Fields(单价) = Val(Text4.Text) Adodc1.Recordset.Fields(金额) = Val(Text6.Text) Adodc1

29、.Recordset.Fields(是否付款) = 否 Adodc1.Recordset.Fields(仓库名) = 仓库一 Adodc1.Recordset.UpdateElse Adodc1.Recordset.Fields(数量) = (Val(Text5.Text) + Adodc1.Recordset.Fields(数量) Adodc1.Recordset.Update End If End If Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End SubPrivate S

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

31、mmand2_Click()Form2.ShowForm6.HideEnd SubPrivate Sub Command3_Click() If Text1.Text = Or Not IsNumeric(Text1) ThenMsgBox 输入订单号！, vbOKOnlyElse Adodc1.Recordset.Filter = 订单号 = + + Text1.Text + Adodc1.Recordset.Find 订单号= & & Text1.Text & If Adodc1.Recordset.EOF Then MsgBox 无该订单! Else Adodc1.Recordset.F

32、ilter = 订单号 = + + Text1.Text + If Adodc1.Recordset.Fields(是否付款) = 是 Then Command1.Enabled = False Else Command1.Enabled = True End If End If End IfEnd Sub7、采购查询采购查询是一个有限制条件的查询窗口，也就是说由用户自定义最低的库存数量，然后可以方便的让操作人员进行查询。本系统将最低库存数量设置为小于50，这样在一定时间内就可以对仓库的数量进行查询，及时采购补货。图5-7 采购查询具体代码如下：Private Sub Command1_Cli

33、ck()Adodc1.Recordset.Filter = 数量50End SubPrivate Sub Command2_Click()Form2.Showform7.HideEnd Sub8、密码修改 本功能允许使用者对密码进行修改，取保系统的安全与方便。如果你是系统的用户，输入用户名可对自己的密码进行修改。如果密码确认不同则提示两次密码不同，请从新输入！图4-9密码修改具体代码如下：Private Sub Command1_Click()If Text1 = Or Text3 = Or Not IsNumeric(Text2) ThenMsgBox 请完整信息，密码为数字！ElseIf

34、Text1 Text2 ThenMsgBox 两次密码不同，请从新输入！Text1 = Text2 = Text1.SetFocusElseAdodc1.Recordset.Filter = 用户名= + Text3.Text + Adodc1.Recordset.Fields(密码) = Text2MsgBox 修改密码成功！End IfText1 = Text2 = End SubPrivate Sub Command2_Click()Form8.HideForm2.ShowEnd SubPrivate Sub Form_Load()Text1.MaxLength = 1End Sub结束

35、语经过几个星期的不断实践与探索,采购供应管理系统的设计与实现己经初步完成,基本上达到了预期的设计要求和目的。写完这个课程设计报告，一个完整的采购供应管理系统就创建完毕了。在本系统的设计与实现的过程中，主要讲述了采购供应管理信息系统的系统设计部分，包括功能模块设计、数据库结构设计等。系统设计为整个程序构建了骨架,各个功能模块实现各个细节部分。主要功能有：数据入库、查询、修改和删除等。经过几个星期的不断实践与探索,采购供应管理系统的设计与实现己经初步完成,基本上达到了预期的设计要求和目的。写完这个课程设计报告，一个完整的采购供应管理系统就创建完毕了。在本系统的设计与实现的过程中，主要讲述了采购供应

36、管理信息系统的系统设计部分，包括功能模块设计、数据库结构设计等。系统设计为整个程序构建了骨架,各个功能模块实现各个细节部分。主要功能有：数据入库、查询、修改和删除等。在整个课程设计阶段的工作和课程设计报告的写作过程的经历将会使我终生受益，并对我今后的工作和发展产生深远的影响。由于整个课程设计时间比较仓促，所以该系统还有许多不尽如意的地方，比如对商品信息管理的设计不是很详尽、仔细，对某些功能的细节设计还缺乏完备性，缺少联机文档，缺乏对系统整体进行周密的考虑，出错处理不够等等多方面问题。这些都有待于进一步的改善。短短几个星期的课程设计，使我从中受到很大的教育和启迪，不仅将大学所学的知识进行了实际应

37、用，还学到了很多书本上学不到的知识。开阔了视野，增长了知识，积累了经验。充分锻炼了自己的动手和应用能力，真正做到了理论联系实际。我相信，这套采购供应管理信息系统经过进一步的改善和完善，一定会在企事业单位得到很好的应用！参考文献1 金敏力.管理信息系统.科学出版社，20092 伍俊良.管理信息系统开发与应用.科学出版社，2004(7)3 黄梯云.管理信息系统.高等教育出版社，2006(5)4 张朝昆、施丽娜 .Visual Basic数据库开发基础与应用.人民邮电出版社，20095 何玉洁.数据库原理与应用教程.机械工业出版社，2008(12)6 邓晶.管理信息系统及应用实例.中国电力出版社，2006(3)