采购管理系统课程设计说明书

前言作业背景本文根据《管理信息系统开发实践》课程要求而做。课程作业要求如下：管理信息系统开发作为独立的教学环节，是学习完《管理信息系统》课程并进行完专业实习后进行的一次全面的综合练习。其目的在于加深对管理信息系统基础理论和基本知识的理解，掌握使用信息系统分析、设计的基本方法，提高解决实际管理问题、开发信息系统的实践能力。具体内容是：用信息系统开发工具（例如PowerBuilder、Delphi、Vb、Vfp等）开发一个实用的中小型采购管理信息系统。具体要求如下：1、 根据课程实践时间选择适当规模大小的设计课题。针对信息系统课程实践的具体特点，体现项目管理的思想。2、 根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程实践活动。3、 课程实践过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后要求提交详细的课程实践报告。4、 开发出可以运行的管理信息系统，通过上机检查。选题说明进入21世纪，随着技术进步和客户需求多样化，企业经营的市场环境发生了很大的变化,从过去的供应商主导的、静态的、简单的市场环境变成客户为主导的、动态的、复杂的市场环境。企业之间由单纯产品质量、性能方面的竞争转向企业所在的供应链之间的竞争。在企业经营管理中,采购是最重要的一个环节。它对于企业降低经营成本、确保产品质量、缩短生产周期具有非常重要的意义。采购管理为降低采购成本，提高采购效益提供了广阔的空间，但也同时为采购管理带来了新的机遇和挑战。目前,我国大多数企业仍然没有建立健全的供应链管理体系,物资的采购还存在机构设置分散,资源浪费严重,信息传递滞后等问题。基本思路通过对课程设计的要求而进行初步调查，从提高采购管理的需求入手,给出了适合中小企业的采购管理系统整体设计方案。在系统业务流程改造和功能模块的设计中体现出先进的采购管理思想,并对采购业务管理的具体内容进行了分析与设计。作业目标该系统将有效的整合企业内外部的资源,加强企业与供应商之间的紧密合作,增强企业采购业务的透明度,规范标准业务流程,提高采购的效率和质量,提升企业的核心竞争力。通过对采购管理系统设计与开发，使采购部门的工作效率大大提升，实现采购管理工作的信息化，网络化等，从而降低采购的总体成本，增加企业的利润，并能更好的完成企业最终目标。1.3工作业绩个人主要工作我的课程设计主要是有4项主要界面，主要内容包括采购信息系统的权限管理、采购信息系统的采购订单，采购信息系统的采购付款，采购信息系统的订单收货。同时还进行了程序的调试、数据准备与录入、系统转换与评价等。系统实施阶段既是成功地实现新系统，又是取得用户对系统信任的关键。主要收获通过对全通公司的采购管理系统进行设计，使我不仅了解到系统实施部分的内容，也使我更深的掌握了管理信息系统的开发方法以及重要性。开发一个管理信息系统好像建一栋大楼，系统分析、系统设计是根据用户的要求画出各种蓝图，系统实施是调集各类人员、设备、材料，在现场根据图纸按实施方案的要求把“大楼”建起来。更重要是我终于明白了VB原来这么有用。通过对这个系统的开发设计，使我这学期所学的管理信息系统得到了运用，实现了从理论到实践的升华，一个完善的管理信息系统可以促使公司向信息化方向发展，将管理工作统一化、规范化、现代化，使公司处于一个信息灵敏、管理科学、决策准确的良性循环中，为公司带来跟高的效益。系统规划可行性分析2.1.1可行性研究方法通过调查分析采购供应管理信息系统所具备的能力及实现的方法。确定总体结构，利用数据库所具有的能力，以最简洁最容易的方法，使其成为一个初级的系统软件。2.1.2可行性综合分析（1） 可行性：系统现阶段的发展过程中，利用现有人力和物力是完全具备的能力开发出来的，作为阶段性产品，日后的发展空间大，实现方法逐步简单容易。对于该系统的技术要求，现行的软件开发条件，环境，完全可以实现。SQLServer2000完全可以提供该系统的操作要求和数据库需求。但由于SQLServer较Access复杂，本设计又是注重研究系统的实现，所以采购管理信息系统在Access技术上是完全可行的。（2） 技术可行性：该系统的开发要求是界面简单，易于操作。（3） 经济可行性：该系统做为课程设计开发，经济可行性必然不能完全考察出来，但本人认为此次设计的采购管理信息系统完全可行。（4） 管理可行性：此次采购管理系统的设计由于操作简单，内容较少，且炒作简单，同时又能适应大部分的采购系统，故能使采购流程效率提高。又经过权限的设置，帮助他们能够快速准确和职能化的工作，减少作业量并提高效率。系统分析系统分析在整个开发过程中，是要解决“做什么”的问题。从逻辑上，或者说从信息处理的功能需求上提出系统的方案，即逻辑模型，为下一阶段进行物理方案设计、解决“怎么做”提供依据。本企业采购管理业务的系统功能：1．采购订单：如果企业向供应商订货物时，开据入库订单，以便了解收货情况并预先安排存放货物的仓库。2．订单收货：是“采购订单”上的货到后入库完成交易。3．采购开单：就是货物购买后直接进入仓库，此时仓库商品增加。4．采购付款：付款给供应商，支付金额自动登帐进入明细账中。5．采购退货：是把商品退回给供应商，退货时有几种方式，如选择退款冲应付款，则系统数据库会自动更改用户与供应商的交易情况，自动修改明细账；如选择退货收回现款，表示退货以现金的形式收回，现金形式也分为二种，一种是以银行账户的，另一种是以现金的，用户可自行选择。6．系统操作人员口令及权限管理。3.1详细调查分析业务流程图业务流程图(transactionflowdiagram,简称TFD),就是用一些规定的符号及连线来表示某个具体业务处理过程。是一种用尽可能少、尽可能简单的方法来描述业务处理过程的方法。付款单退款单入库单收货单米购订单采购员供应商退货单2份-库工付款单退款单入库单收货单米购订单采购员供应商退货单2份-库工财务部3.2系统的逻辑模型3.2.1数据流程图3.2.2数据字典数据字典是对描述数据流程图中的数据项、数据流、数据存储、加工处理逻辑等组成部分的严格定义，下面是本系统的部分数据字典。(1)数据流的描述数据流编号G-01数据流名称米购订单简述企业购置商品时内部流动的单据数据流来源采购部门数据流去向米购员数据项组成订单号+经手人+日期+货物名称+货物代码+数量+货物单价+金额单价+摘要+供应商+商品编号+联系电话+预入仓库数据流量25张/天高峰流量50张/天(2)处理逻辑描述处理逻辑编号P1处理逻辑名称采购处理简述对采购订单进行统计，开出采购单输入的数据流采购订单处理描述对米购订单进行处理，将所订的货物进行分类，编制合理有效的米购单输出的数据流采购单处理频率1张/小时(3)数据存储的:苗述数据存储编号F1数据存储名称收货表简述采购的货物的记录数据存储组成货物名称+货物代码+货物数量+货物单价+货物单位+金额+日期关键字货物相关联的处理P1(4)外部实体的?苗述外部实体编号S1

外部实体名称米购员简述米购商品人员输入的数据流米购订单输出的数据流米购订单3.3.1组织结构分析组织结构图如下：|1计划ijII!|1计划ijII!札r.R":4系统设计4.2总体设计4.2.1功能结构图设计

4.3详细设计4.3.1输入输出设计输出设备：屏幕输出方式：显示输出与打印输出输出形式：报表输出形式输入设计：对输入信息进行校验1•在登陆界面：用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒〃请输入用户名与密码！"如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒〃无该用户！"2•在采购订单： 订单号不能为空，否则会弹出对话框提醒〃请输入完整信息，输入订单号编号为数字！〃在单价和数量中输入数字，金额项目会自动显示为两者乘积结果。5系统实施一、登录界面当输入的账号和密码符合Access数据库中的cgdl表中的数据时时，焦点落在确定上面,此时点击确定就可以登入系统。若错误，则会弹出对话框提醒“用户名密码错误，请重新输入!”并且它的输入密码为“*”，是在属性栏中的passwordchar设置“*”。用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒〃请输入用户名与密码！〃如果用户输入的密码不是密码管理表中的用户名及密码，则会弹出对话框提醒〃无该用户！"设置了访问权限，根据不同人的管理职能提供相应的管理权限图5-1登陆窗口它的具体代码为：PrivateSubCommandl_Click()DimsqlAsStringDimcgdlAsNewADODB.RecordsetDimdlqxAsStringIfTrim(Textl.Text)=ThenMsgBox"用户名不能为空，请重新输入！"Textl.SetFocusElsesql="select*fromcgdlwhere登录名='"&Trim(Textl.Text)&cgdl.Opensql,cnn,adOpenKeyset,adLockPessimisticIfcgdl.EOF=TrueThenMsgBox"用户名不存在，请重新输入！"，vbOKOnly+vbExclamation,Textl.Text=Text2.Text="”Textl.SetFocusElseIfTrim(cgdl.Fields(”密码"))=Trim(Text2.Text)ThenForm2.Showdlqx="select*from权限管理where用户名='"&Trim(Textl.Text)&"'"Adodc2.RecordSource=dlqxAdodc2.RefreshIfAdodc2.Recordset.Fields("权限管理")="Yes"ThenForm2.权限管理(lO).Enabled=TrueEndIfIfAdodc2.Recordset.Fields(“采购付款")="Yes"ThenForm2.釆购付款(5).Enabled=TrueEndIfIfAdodc2.Recordset.Fields("釆购订单")="Yes"ThenForm2.釆购订单(2).Enabled=TrueEndIfIfAdodc2.Recordset.Fields("订单收货")="Yes"ThenForm2.订单收货(3).Enabled=TrueEndIfUnloadMeElseMsgBox"密码不正确,请重输入！",vbOKOnly+vbExclamation,〃〃Text2.SetFocusText2.Text=""EndIfEndIfEndIfcgdl.CloseEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()EndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub二、主界面

新塔产品=品柜关I逼已产品乘购适货新塔产品=品柜关I逼已产品乘购适货图5-2主界面主界面是登陆后最基础的一个界面，内容包括采购订单，采购付款，订单收货，采购查询,采购开单，密码修改，权限管理，采购开单，帮助，新增产品等。它的具体代码为：PrivateSubToolbarl_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase〃采购订单〃LoadForm3Form3.ShowCase〃新增产品〃LoadForm5Form5.ShowCase〃产品帮助〃MsgBox"该产品正在试运行，不能显示帮助！",vbOKOnly,""Form2.ShowCase"退出系统"Case〃产品相关〃MsgBox"本采购系统由倪斯文制作！"Case"退出产品"EndEndSelectEndSubPrivateSub采购查询_Click(IndexAsInteger)Form5.ShowEndSubPrivateSub采购订单_Click(IndexAsInteger)Form3.ShowEndSubPrivateSub采购付款Click(IndexAsInteger)Form8.ShowEndSubPrivateSub订单收货_Click(IndexAsInteger)Form4.ShowEndSubPrivateSub权限管理_Click(IndexAsInteger)Form7.ShowEndSubPrivateSub新增产品_Click(IndexAsInteger)Form5.ShowEndSub3、商品采购订单企业向供应商订货物时，开据入库订单，以便了解收货情况并预先安排存放货物的仓库。在界面内填入相应的商品信息，点击保存则会将所输入的采购信息保存到采购信息管理表中。如果输入有误，且已保存，可以应用删除功能，将错误信息删除，同时可以计算出应付金额。订单号不能为空，否则会弹出对话框提醒"请输入完整信息，输入订单号编号为数字！"在单价和数量中输入数字，金额项目会自动显示为两者乘积结果。图5-3商品信息的录入它的具体代码为：DimcgAsNewADODB.RecordsetPrivateSubCommand1_Click（）Dimcgdd1AsStringcgddl=""select*from采购订单管理""IfTrim（Text12.Text）=""ThenMsgBox"电话号码不能为空",vbOKOnly+vbExclamation,Text12.SetFocusExitSubEndIfIfTrim（Text7.Text）=""ThenMsgBox"单价不能为空",vbOKOnly+vbExclamation,""Text7.SetFocusExitSubEndIfIfTrim（Text1.Text）=""ThenMsgBox"数量不能为空",vbOKOnly+vbExclamation,""Text14.SetFocusExitSubEndIfcg.Opencgdd1,cnn,adOpenKeyset,adLockOptimisticcg.AddNewcg.Fields（""交货时间""）=Datecg.Fields（""经手人""）=DataCombol.Textcg.Fields（""摘要""）=TextlO.Textcg.Fields（""联系电话""）=Textl2.Textcg.Fields（""商品名称""）=Combo3.Textcg.Fields（""商品编号""）=Combo4.Textcg.Fields（""单价""）=Text7.Textcg.Fields（""数量""）=Textl.Textcg.Fields（""预入仓库""）=Combol.Textcg.Fields（"供应商"）=Combo2.Textcg.Fields（"录入时间"）=DTPickerl.Valuecg.Fields（"交货时间"）=DTPicker2.Valuecg.Fields（"订单号"）=Label20.Captioncg.Fields（"合计金额"）=Labell9.Captioncg.Updatecg.AddNewcg.Fields（"预入仓库"）=Combol.Textcg.Fields（"供应商"）=Combo2.Textcg.Fields（"录入时间"）=DTPickerl.Valuecg.Fields（"交货时间"）=DTPicker2.Valuecg.Fields（"订单号"）=Label20.Captioncg.Fields（"交货时间"）=Datecg.Fields（"经手人"）=DataCombo1.Textcg.Fields（"摘要"）=Text10.Textcg.Fields（"联系电话"）=Text12.Textcg.Fields（"商品名称"）=DataCombo3.Textcg.Fields（"商品编号"）=DataCombo2.Textcg.Fields（"单价"）=Text3.Textcg.Fields（"数量"）=Text2.Textcg.Fields（"合计金额"）=Label21.Captioncg.Updatecg.CloseMsgBox"保存成功",vbOKOnly+vbExclamation,Adodcl.RefreshEndSubPrivateSubCommand2_Click（）DimMagAsIntegerMag=MsgBox（"是否删除！"，vbYesNo,"警告"）IfMag=vbYesThenAdodcl.Recordset.Delete'删除记录EndIfLabell9.Caption=Val（Text7.Text）*Val（Textl.Text）EndSubPrivateSubCommand3_Click（）UnloadMeEndSubPrivateSubCommand4_Click（）Text9.Text=""Textl0.Text=""Textl2.Text=""Text7.Text=""Textl.Text=""Adodcl.Recordset.AddNewEndSubPrivateSubForm_Load（）Label20.Caption=Trim（Format（Val（Year（Date）&Month（Date）&Day（Date）&Hour（Time）&Minute（Time）&Second（Time））,"00000000000000"））EndSubPrivateSubTextl_Change（）Labell9.Caption=Val（Text7.Text）*Val（Textl.Text）

EndSubPrivateSubText2_Change()Label21.Caption二Val(Text3.Text)*Val(Text2.Text)EndSub4、订单收货订单收货：是“采购订单”上的货到后入库完成交易。对采购订单表中商品的订单号进行查询，会在表中显示出来，说明其没有入库，可点击“详单查询”，把相应信息保存到收货管理表中。同时删除采购订单中相应的内容。并计算出支付的金额。5.订单收货订单详单查询确定坡瑾删除取消10201161495452图5-4订单收货5.订单收货订单详单查询确定坡瑾删除取消10201161495452图5-4订单收货曲品定称订单昙004百事可乐00201161-|ooi可口可乐002011B1001可口可乐02011614(1丄一 =它的具体代码为：PrivateSubCommandl_Click()DimdhAsStringdh=""select*from采购订单管理where订单号二'"&Combol.Text&Adodcl.RecordSource=dhAdodcl.RefreshSetDataGridl.DataSource=AdodclDimsumAsDouble 'sum就是所有的和sum=0 '先给赋值为0Adodcl.Recordset.MoveFirstDoWhileNotAdodcl.Recordset.EOF '从开始一直到结尾，累加sum=sum+Val(Adodc1.Recordset.Fields(12))Adodcl.Recordset.MoveNextLoopTextl.Text=str(sum) '保存到textl中去Adodcl.Recordset.MoveFirstEndSubPrivateSubCommand2_Click()DimdhAsStringdh=""select*from采购订单管理where订单号二'""&Combol.Text&Adodcl.RecordSource=dhAdodcl.RefreshDimshAsStringsh=""select*from收货表""Adodc2.RecordSource=shAdodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.FieldsC订单号"")=Combol.TextAdodc2.Recordset.FieldsC总金额"")=Textl.TextAdodc2.Recordset.UpdateAdodcl.Recordset.DeleteMsgBox"成功收货",vbExclamation,"提示"'付款成功后删除该采购单Adodcl.Recordset.UpdateAdodcl.RefreshCombol.Text=""SetDataGrad=AdodclEndSubPrivateSubCommand3_Click()DimMagAsIntegerMag=MsgBox(""是否删除！""，vbYesNo,""警告"")IfMag=vbYesThenAdodcl.Recordset.Delete'删除记录EndIfEndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubForm_Load()EndSub5、采购付款采购付款是对采购订单中的商品进行金额统计并付款，并且应知道付款时间，并将付款的单据存入公司的数据库中，以备调查。图5-5采购付款具体代码为：DimfkAsNewADODB.RecordsetPrivateSubCommandl_Click()DimfklAsStringfk1=""select*from付款表""IfTextl.Text=""ThenMsgBox"应付金额不能为空，请输入应付金额！",vbOKOnly+vbExclamation,"警告！〃Text2.SetFocusEndIffk.Openfkl,cnn,adOpenKeyset,adLockOptimisticfk.AddNewfk.Fields(""订单号"")=Combo5.Textfk.Fields(""应付金额"")=Textl.Textfk.Updatefk.CloseMsgBox"保存成功",vbOKOnly+vbExclamation,""Adodcl.RefreshEndSubPrivateSubCommand2_Click()UnloadMeForm2.ShowEndSubPrivateSubLabel7_Click()EndSubPrivateSubCommand3_Click()DimsumAsDouble 'sum就是所有的和sum=0 '先给赋值为0Adodc6.Recordset.MoveFirstDoWhileNotAdodc6.Recordset.EOF '从开始一直到结尾，累加sum=sum+Val(Adodc6.Recordset.Fields(12))Adodc6.Recordset.MoveNextLoopTextl.Text二str(sum) '保存到textl中去Adodc6.Recordset.MoveFirstEndSubPrivateSubCommand4_Click()DimstrAsStringstr=""select*from采购订单管理where订单号二'""&Combo5.Text&""'""Adodc4.RecordSource=strAdodc4.RefreshSetDataGridl.DataSource=Adodc4EndSubPrivateSubForm_Load()EndSub6、权限管理根据公司人员管理业务与只能的不同，分别对不同的员工提供不同的权限，并设管理员，管理下成员工的访问权限。Form7 「三〕1亘图5-6权限管理具体代码如下：PrivateSubCommand1_Click()DimsqlllAsStringDimqxllAsNewADODB.Recordsetsqlll=""select*from权限管理where用户名二'""&Label3.Caption&""'""qx11.Opensql11,cnn,adOpenKeyset,adLockOptimisticqx11.Fields(1)=Combo1.Textqx11.Fields(3)=Combo2.Textqx11.Fields(4)=Combo3.Textqx11.Fields(2)=Combo4.Textqx11.Updateqx11.CloseMsgBox"保存成功!",vbOKOnly,""UnloadMeEndSubPrivateSubdatagrid1_rowcolchange(lastrowAsVariant,ByVallastcolAsInteger)Label3.Caption二DataGridl.ColumnsC用户名").TextEndSubPrivateSubForm_Load()Calldatagrid1_rowcolchange(lastrow,lastcol)Combo1.AddItem"Yes"Combo1.AddItem"No"Combo2.AddItem"Yes"Combo2.AddItem"No"Combo3.AddItem"Yes"Combo3.AddItem"No"Combo4.AddItem"Yes"Combo4.AddItem"No"EndSubPrivateSubText2_Change()EndSubPrivateSubLabel3_Click()EndSub开发环境首先选择可视化的开发界面的简单易操作的开发语言为开发平台，充分的利用WINDOWS自带的资源，既可以减少开发的工作量，也确保了程序的最大兼容性。MicrosoftVisualBasic6.0中文企业版符合了这项要求，即功能强大，又操作简单。MicrosoftVisualBasic6.0中文企业版在功能方面优于MicrosoftVisualBasic6.0的其他版本。对于数据库的选择，对于中小程序来说，SQL与ACCESS都可以满足开发的要求，SQL需要另外进