1、采购管理信息系统设计说明1 前言1.1 作业背景本文根据管理信息系统开发实践课程要求而做。课程作业要求如下：管理信息系统开发作为独立的教学环节，是学习完管理信息系统课程并进行完专业实习后进行的一次全面的综合练习。其目的在于加深对管理信息系统基础理论和基本知识的理解，掌握使用信息系统分析、设计的基本方法，提高解决实际管理问题、开发信息系统的实践能力。具体内容是：用信息系统开发工具（例如PowerBuilder、Delphi、Vb、Vfp等）开发一个实用的中小型采购管理信息系统。具体要求如下：1、根据课程实践时间选择适当规模大小的设计课题。针对信息系统课程实践的具体特点，体现项目管理的思想，由指导
2、教师对学生进行分组（每组4-6人），一组一题，分工合作，共同完成。2、根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程实践活动。3、课程实践过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后要求提交详细的课程实践报告。4、开发出可以运行的管理信息系统，通过上机检查。1.2 选题说明进入 21 世纪，随着技术进步和客户需求多样化，企业经营的市场环境发生了很大的变化,从过去的供应商主导的、静态的、简单的市场环境变成客户为主导的、动态的、复杂的市场环境。企业之间由单纯产品质量、性能方面的竞争转向企业所在的供应链之间的竞争。在企业经营管理中,采购是最重要的一个环节。它对于企
3、业降低经营成本、确保产品质量、缩短生产周期具有非常重要的意义。采购管理为降低采购成本，提高采购效益提供了广阔的空间，但也同时为采购管理带来了新的机遇和挑战。目前,我国大多数企业仍然没有建立健全的供应链管理体系,物资的采购还存在机构设置分散,资源浪费严重,信息传递滞后等问题。1.2.1 基本思路本文从全通公司提高采购管理的需求入手,给出了适合本企业的采购供应管理系统整体设计方案。在系统业务流程改造和功能模块的设计中体现出先进的采购管理思想,并对采购业务管理的具体内容进行了分析与设计。1.2.2 作业目标该系统将有效的整合企业内外部的资源,加强企业与供应商之间的紧密合作,增强企业采购业务的透明度,
4、规范标准业务流程,提高采购的效率和质量,提升企业的核心竞争力。通过对采购管理系统设计与开发，使采购部门的工作效率大大提升，实现采购管理工作的信息化，网络化等，从而降低采购的总体成本，增加企业的利润，并能更好的完成企业最终目标。1.3 工作业绩1.3.1 个人主要工作我在团队中的主要工作是进行系统实施，系统实施的主要内容包括物理系统的实施、程序设计与调试、人员培训、数据准备与录入、系统转换与评价等。系统实施阶段既是成功地实现新系统，又是取得用户对系统信任的关键。1.3.2 主要收获通过对全通公司的采购管理系统进行设计，使我不仅了解到系统实施部分的内容，也使我更深的掌握了管理信息系统的开发方法以及
5、重要性。开发一个管理信息系统好像建一栋大楼，系统分析、系统设计是根据用户的要求画出各种蓝图，系统实施是调集各类人员、设备、材料，在现场根据图纸按实施方案的要求把“大楼”建起来。通过对这个系统的开发设计，使我这学期所学的管理信息系统得到了运用，实现了从理论到实践的升华，一个完善的管理信息系统可以促使公司向信息化方向发展，将管理工作统一化、规范化、现代化，使公司处于一个信息灵敏、管理科学、决策准确的良性循环中，为公司带来跟高的效益。最后，我还明白了集体协作的重要性。我们组的各个成员通过合理分工、互帮互助才完成了这个系统的开发设计，所以。通过这次团队合作，不仅学到先进的专业知识，更加深了团队合作的意
6、识。1.3.3 自我评定 优 良 中 及格 不及格1.3.4 小组成员任务分工情况本组为本次课程设计第四组，组长为：，小组所有成员分工如下：2 系统规划2.1 可行性分析2.1.1可行性研究方法 通过调查分析采购供应管理信息系统所具备的能力及实现的方法。确定总体结构，利用数据库所具有的能力，以最简洁最容易的方法，使其成为一个初级的系统软件。2.1.2可行性综合分析（1）可行性：系统现阶段的发展过程中，利用现有人力和物力是完全具备的能力开发出来的，作为阶段性产品，日后的发展空间大，实现方法逐步简单容易。对于该系统的技术要求，现行的软件开发条件，环境，完全可以实现。SQL Server 2000完
7、全可以提供该系统的操作要求和数据库需求。所以采购供应管理信息系统在技术上是完全可行的。（2）技术可行性：该系统的开发要求是界面简单，易于操作。（3）经济可行性：该系统做为课程设计开发，经济可行性在此不做讨论。（4）管理可行性：此次采购系统的开发得到了大商集团采购部门经理的大力支持，期待着设计出的采购系统能够使大商百货公司采购流程效率提高。采购部门的其他人员也期待着采购系统能够成功的开发，帮助他们能够快速准确的工作，减少作业量提高效率。3 系统分析系统分析在整个开发过程中，是要解决“做什么”的问题。从逻辑上，或者说从信息处理的功能需求上提出系统的方案，即逻辑模型，为下一阶段进行物理方案设计、解决
8、“怎么做”提供依据。3.1 详细调查分析3.1.1 业务流程图业务流程图(transaction flow diagram,简称TFD),就是用一些规定的符号及连线来表示某个具体业务处理过程。是一种用尽可能少、尽可能简单的方法来描述业务处理过程的方法。3.2 系统的逻辑模型3.2.1 数据流程图 3.2.2 数据字典数据字典是对描述数据流程图中的数据项、数据流、数据存储、加工处理逻辑等组成部分的严格定义，下面是本系统的部分数据字典。(1) 数据流的描述数据流编号G-01数据流名称采购订单简述全通公司实时购买的货物单数据流来源采购部门数据流去向采购员数据项组成订单号+经手人+日期+货物名称+货物
9、代码+数量+货物单价+金额数据流量24张/天高峰流量30张/天（2）处理逻辑描述处理逻辑编号P1处理逻辑名称采购处理简述对采购订单进行统计，开出采购单输入的数据流采购订单处理描述对采购订单进行处理，将所订的货物进行分类，编制合理有效的采购单输出的数据流采购单处理频率1张/小时（3）数据存储的描述数据存储编号F1数据存储名称采购台账简述采购的货物的记录数据存储组成货物名称+货物代码+货物数量+货物单价+货物单位+金额+日期关键字货物相关联的处理P1（4）外部实体的描述外部实体编号S1外部实体名称采购员简述采购货物人员输入的数据流采购订单输出的数据流采购订单4 系统设计4.2 总体设计4.2.1功
10、能结构图设计 4.2.2 E-R4.3 详细设计4.3.1 输入输出设计输出设备：屏幕输出方式：显示输出与打印输出输出形式：报表输出形式输入设计： 对输入信息进行校验1.在登陆界面： 用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒请输入用户名与密码！如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒无该用户！2.在采购订单： 订单号不能为空，否则会弹出对话框提醒请输入完整信息，输入订单号 编号为数字！在单价和数量中输入数字，金额项目会自动显示为两者乘积结果。4.3.2代码设计代码设计部分主要是采购订单号的设计。全通公司的主要合作伙伴为其设计固定的编码。采购订
11、单号是由厂家名和产品类别构成的。厂家代码厂家名称产品类别代码产品类别01百事可乐公司01果汁类饮品02可口可乐公司02茶系列饮品03娃哈哈公司03酸奶类饮品04农夫山泉公司04碳酸饮料类05统一公司05矿泉水06其他公司06其他类别4.3.3数据库设计1、数据库的建立该系统的数据库主要是应用Access编辑软件进行编辑的。表5-1：采购信息表字段名称数据类型订单号文本时间文本经手人文本入库文本供应商文本是否交货文本数量数字单价数字金额数字商品名称文本商品编号数字2、数据库的连接 在Visual Basic中，使程序与数据库的连接有两种方式，一种使通过设置ADO控件的属性将程序与数据库进行连接，
12、另一种是通过代码形式将ADO控件连接数据库，通过代码的形式虽然加大了开发难度，但是有很多的优点，所以，在程序开发是选择了以代码的形式来连接数据库。5 系统实施一、登录界面当输入的账号为：1 密码为：1 时，焦点会自动落在确定上面，此时点击确定就可以登入系统。若错误，则会弹出对话框提醒“用户名密码错误,请重新输入！”并且它的输入密码为“*”，是在属性栏中的passwordchar设置“*”。用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒请输入用户名与密码！如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒无该用户！图5-1 登陆窗口它的具体代码为：Privat
13、e Sub Command1_Click()If Text1 = Or Text2 = ThenMsgBox 请输入用户名与密码！ElseAdodc1.Recordset.Filter = 用户名= + Text1.Text + Adodc1.Recordset.Find 用户名= + Text1.Text + If Adodc1.Recordset.EOF Then MsgBox 无该用户！ Else Adodc1.Recordset.Filter = 用户名 + = + + Text1.Text + If Text2 Adodc1.Recordset.Fields(密码) ThenMsgB
14、ox 用户名密码错误,请重新输入！ElseForm2.ShowForm1.HideEnd IfEnd IfEnd If Text2 = End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Text2_Change()If Text2.Text = 1 ThenCommand1.SetFocusEnd IfEnd Sub 二、主界面图5-2 主界面主界面是登陆后最基础的一个界面，内容包括采购订单，采购付款，订单收货，采购查询，采购开单，密码修改。它的具体代码为：Private Sub Command1_Click()Form3.Sho
15、wEnd SubPrivate Sub Command2_Click()Form3.HideForm4.ShowEnd SubPrivate Sub Command3_Click()Form5.ShowEnd SubPrivate Sub Command4_Click()Form6.ShowEnd SubPrivate Sub Command5_Click()form7.ShowEnd SubPrivate Sub Command7_Click()EndEnd SubPrivate Sub Command8_Click()Form8.ShowEnd Sub3、采购订单企业向供应商订货物时，开据
16、入库订单，以便了解收货情况并预先安排存放货物的仓库。在界面内填入相应的商品信息，点击保存则会将所输入的采购信息保存到采购信息管理表中。如果输入有误，且已保存，可以应用删除功能，将错误信息删除。订单号不能为空，否则会弹出对话框提醒请输入完整信息，输入订单号 编号为数字！在单价和数量中输入数字，金额项目会自动显示为两者乘积结果。图5-3 商品信息的录入它的具体代码为：Private Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入完整信息，输入订单号 编号为数字！, vbOKOnly + vbExclamation, 警告！Text1.SetFo
17、cusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(时间) = Text2.Text Adodc1.Recordset.Fields(订单号) = Text1.Text Adodc1.Recordset.Fields(供应商) = Text4.Text Adodc1.Recordset.Fields(经手人) = Text3.Text Adodc1.Recordset.Fields(入库) = Text10.Text Adodc1.Recordset.Fields(是否交货) = Text11.Text Adodc1.Recordse
18、t.Update Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(名称) = Text5.Text Adodc1.Recordset.Fields(数量) = Val(Text7.Text) Adodc1.Recordset.Fields(单价) = Val(Text6.Text) Adodc1.Recordset.Fields(金额) = Val(Text8.Text) Adodc1.Recordset.Fields(商品编号) = Val(Text9.Text) Adodc1.Recordset.Update MsgBox 已保存订单！, v
19、bOKOnly + 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 Command2_Click()Form3.HideEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Text8_Change(
20、)If Not IsNumeric(Text6.Text) Or Not IsNumeric(Text7.Text) ThenMsgBox 请在单价和数量中输入数字ElseText8 = Val(Text6) * Val(Text7)End IfEnd Sub4、订单收货 订单收货：是“采购订单”上的货到后入库完成交易。对采购订单表中商品的订单号进行查询，订单号不存在，则会弹出对话框提醒无该订单。如存在，则会在表中显示出来，如果其“入库”属性为“否”，即说明其没有入库，可点击“收货交易”，把相应信息保存到仓库信息管理表中。如果其“入库”属性为“是”则“收货交易”按钮不可用。 图5-4订单收货它
21、的具体代码为：Private Sub Command1_Click() Adodc1.Recordset.Fields(是否交货) = 是 Adodc1.Recordset.Update MsgBox 完成交易，已入仓库, vbOKOnly Adodc2.Recordset.Find 订单号= & Adodc1.Recordset.Fields(订单号) If Adodc2.Recordset.EOF = True Then Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(名称) = Adodc1.Recordset.Fields(名称) Ado
22、dc2.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.Update Else Adodc2.Recordset.Fields(数量) = (Adodc2.Re
23、cordset.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(Text1) Then MsgBox 订单号，并输入具体数值！, vbOKOnly Else Adodc1.Recordset.Filter = 订单号 = + + Text1.Text + Adodc1.Recordset.
24、Find 订单号= & Text1.Text If Adodc1.Recordset.EOF Then MsgBox 无该订单 Else Adodc1.Recordset.Filter = 订单号 = + + Text1.Text + If Adodc1.Recordset.Fields(是否交货) = 是 Then Command1.Enabled = False Else Command1.Enabled = True End If End If End IfEnd SubPrivate Sub Command3_Click()Form4.HideForm2.ShowEnd SubPriv
25、ate Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = TrueText1.Text = End Sub5、采购单 采购单是对库存的商品查询，了解哪些要进行采购。填入相关商品信息，会将相关商品信息。保存到库存管理表中，对于仓库中已有的商品，数量上会在原有的基础上增加。 图5-5 仓库二的查询具体代码为：Private Sub Text6_Change()If Not IsNumeric(Text4.Text) Or Not IsNumeric(Text5.Text) ThenMsgBox 请在单价和数量中输入数字ElseTex
26、t6 = Val(Text4) * Val(Text5)End IfEnd SubPrivate Sub Command1_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 请输入完整信息，供应商与商品名称！, vbOKOnly + vbExclamation, 警告！Else Adodc1.Recordset.Find 订单号= & & Text3.Text & If Adodc1.Recordset.EOF Then Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(名称) = Text1.Te
27、xt Adodc1.Recordset.Fields(数量) = Val(Text5.Text) Adodc1.Recordset.Fields(订单号) = Text3.Text Adodc1.Recordset.Fields(单价) = Val(Text4.Text) Adodc1.Recordset.Fields(金额) = Val(Text6.Text) Adodc1.Recordset.Fields(是否付款) = 否 Adodc1.Recordset.Fields(仓库名) = 仓库一 Adodc1.Recordset.UpdateElse Adodc1.Recordset.Fie
28、lds(数量) = (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 Sub Command2_Click()Form2.ShowForm5.HideEnd Sub6、付款单付款给供应商，支付金额自动登账入库，完成入库交易。输入订单号对要付款的订单进行查询，如果订单号存在且其“是否付款”属性为
29、否，则确认付款，并将信息保存到仓库管理表中完成付款交易。图5-6仓库调拨具体代码如下：Private Sub Command1_Click() Adodc1.Recordset.Fields(是否付款) = 是 Adodc1.Recordset.Update MsgBox 完成付款交易！, vbOKOnly Text1.Text = End SubPrivate Sub Command2_Click()Form2.ShowForm6.HideEnd SubPrivate Sub Command3_Click() If Text1.Text = Or Not IsNumeric(Text1) ThenMsgBox 输入订单号！, vbOKOnlyElse Adodc1.Recordset.Filter = 订单号 = + + Text1.Text + Adodc1.Recordset.Fin
