公司企业生产及采购计划管理软件开发

xxxx本科生毕业设计（论文）学院（系）：xxxx专业：xxxx学生：xxx指导教师：xxxx完成日期2011年5月xxxxxxxxx企业生产及采购计划管理软件开发DevelopmentofManagementSoftwareBetweenEnterprise'sManufacturingandPurchasingPlan总计：37页表格：0个插图：24幅xxxx企业生产及采购计划管理软件开发DevelopmentofManagementSoftwareBetweenEnterprise'sManufacturingandPurchasingPlan学院（系）：xxxx专业xxxxxxxxx学生姓名：xxxx学号：xxxxx指导教师（职称）：xxxx评阅教师：xxxx完成日期：xxxxxxxxxNanyangInstituteofTechnology企业生产及采购计划管理软件开发xxxxxxxx［摘要］生产和采购计划管理是企业生产管理的重要环节之一，也是把握市场需求，降低采购成本的主要环节[1]。目前，多数企业的生产和采购计划管理均处于分散的度较慢，不能满足当今市场快速变化的需求。因此专门开发一套生产及采购计划管理软件，实现企业从生产计划、MRP运算到快，效率高，不易出错[2]。同时能够实现采购报表随采购计划的调整进行自动更新，避平台。［关键词］生产计划；采购计划；MRP；采购报表DevelopmentofManagementSoftwarebetweenEnterprise'sManufacturingandPurchasingPlanMechanicalDesign,ManufacturingandAutomationZhaoWen-tongAbstract:Manufacturingandpurchasingplanisoneofthemostimportantlinkofenterpriseproductionmanagement,atthesametimeitisalsoamainlinktograspmarketdemand,reducepurchasingcost.Atpresent,mostenterpriseproductionandpurchasingplanmanagementareinartificialoperationmode.Eachbusinesslinkcan’tsharedatainformationreal-timely,leadingtoworkingefficiencyandenterprisemarketreactionslower.Soitcan’tsatisfythecurrentrapidchangingmarketneeds.Therefore,itisnecessarytodevelopasetofpurchasingandproductionplanningmanagementsoftwarespecially，sothatitcanrealizetheinformationmanagementfromproductionplanning,MRPcomputing,topurchasingstatements.Withtheapplicationofthissoftware,itcanrealizedatainformationsharingamongcanalsorealizetheautomaticcalculationandsummarizingoftheproductswithcomplexproductiondata,whichnoteasymakesmistakesbutalsoquicklyandwithhighefficiency.Meanwhileitcanachieveautomaticupdatethepurchasingstatementswiththeadjustmentofpurchasingplan,whichcanavoidtherepeatedlabor[4].Throughthissoftwareitcanbuildainformationoperatingandsharingplatformbetweenenterprise'spurchasingandproductionplanningdepartment.Keywords:Productionplan;Purchasingplan;MRP;PurchasingReport目录31绪论课题研究的背景及意义划部门搭建一个信息操作和共享平台。ERP管理软件发展概况们所需要的原料；实际上，采购部门的效率过高，仓库里囤积的某些材料10年都用不6～13个星期的时间，才能计算出所需要的物料量，所以订货周期只能为6～13算制造成本……问题，然而，针对这一现象，我们又能有什么有效的办法来解决它呢[5]率高。论文的主要工作在本论文的设计初期，通过阅读大量的文献，提高对相关制作软件工具的熟悉及使用。由于软件的需要，也要学习数据库的操作及相关图纸明细的识别。然后对BOMBillofMaterial→部件→组件→零件→;利用MRP计算减去库存管理导出采购预算报表。在设计的后期，有两个任务：一是按照格式写论文，二是按照要求修改论文。2软件简介购预算报表，为企业的采购部门和生产计划部门搭建一个信息操作和共享平台。软件运行的软硬件环境2.1.1硬件环境（1）普通PC机（2）CPU：以上（3）内存：1024MB（4）显卡：128M以上（5）网卡：10/100／1000Mbps（6）PIII以上处理器2.1.2软件环境（1）Windows2000、XP及以上操作系统（2）MicrosoftExcel2003（3）IDE环境：MicrosoftYisualStudio2005（4）支撑环境：Microsoft．NETFramework2．0（5）需求分析工具：Visio2003（6）数据库服务器：基于SQLServer2000软件开发关键技术2.2.1VisualBasicVisualBasic是Microsoft公司推出的基于Windows环境的一种面向对象的可视化方式相互作用。VisualBasic易学易用、功能强大的特点使其得到了广泛的应用。其强大的可视化用户界面设计，是程序员从复杂的界面设计中解脱出来。VisualBasic不但可以开发小此使得VisualBasic成为目前使用最广泛的编程语言之一。2.2.2数据库技术息时代占了很大的优势。现存多种数据库系统，我们这里主要运用Access数据库系统，VisualBasic通过ADO技术与Access数据库相连，通过VisualBasic的前台管理Access的后台数据，实现信息的准确、快速管理。2.2.3ADO技术ADO是一个用于存取数据源的组建，它为编程语言从数据库提取数据信息提供了关心到数据库的连接。ADO是对当前微软所支持的数据库进行操作的最有效和最简单直接的方法。课题研究内容及技术要求本软件采用C/S开发模式和ADO数据库访问技术，采用VisualBasic编程语言Access和自动生成等，实现企业生产计划和采购预算环节的有效集成。课题软件实现的功能生产计划数据的手动输入；生产计划数据的自动导入；材料定额信息的有效集成；生产计划汇总及材料定额汇总；所需物料的库存分析；采购预算的自动汇总和生成3课题软件的设计与实现软件操作流程软件操作流程如图所示：开始N用户登陆Y产品计划库存管理采购计划核算导出采购明细结束图软件操作流程根据材料定额信息的有效集成，生产计划汇总及材料定额汇总，所需物料的库存分析。大大降低了出错的概率，确保生产采购的有效性、实时性和准确性。软件的功能模块简介该软件以VisualBasic为开发语言，采用Access2003为数据库管理平台。该软件根据数据库中的信息直接导入BOM单，进而手动输入生产计划数据，再根据生产计划数据，库存数据价格库进行MRP自动核算，从而导出采购预算提高了生产率、库存利用率、降低了出错率、生产成本。其功能框图如图所示。各功能模块简要描述如下：（1）登录模块：主要用于用户的管理。（2）修改密码模块：主要用于用户密码的修改。（3）自动导入BOM单：得出产品明细相关数据。BOM表直接由软件自动生产，无需再人工参与，提高了企业的效率，也降低了出错率。（4）高了企业的效率，也降低了出错率。（5）利用MRP的自动计算生成采购计划预算，采购管理模块：实现企业采购管理的及时更新，增大库存利用率，降低成本。修登改录密模码块模块导入BOM模块生产计划手动输入库存管理MRP计算模块导出采购明细模块关于软件介绍模块图软件功能模块（6）去除库存既得的采购计划明细。MRP的计算基于BOM表自动进行的，（7）导出明细模块：将生成的信息导入Excel中，便于企业人员阅读。（8）关于软件介绍模块：介绍软件的一些基本信息。各功能模块的分析3.3.1账户管理能包括用户登录和密码修改。其功能框图如图所示：账户管理用密户码登修录改图账户管理模块3.3.2产品BOM管理该模块主要是根据AccessVisualBasic编程语言使其自动生成产品的物料清单（BOM3.3.3产品MRP计算该模块主要根据生产计划，由BOM表得出一套产品有那些零部件，半成品组装而购计划。该模块的功能包括MRP计算、MRP清除、MRPMRPMRPMRP的的的计清保算除存图MRP模块3.3.4库存管理该模块主要是使AccessVisualBasic编程使其的修改和库存量的删除。其功能框图如图所示：库存管理库库存存量量添删加除图库存管理模块3.3.5采购预算该模块主要根据生产计划和库存量的信息，通过VisualBasic编程实现采购预算并采购单保存。其功能框图如图所示：采购预算库存量信息库存量MRP计算图采购预算模块3.3.6导出采购明细该模块通过VisualBasic编程使前面生成的信息能导出到Excel表格中，便于企业人员阅读分析产品信息。3.3.7关于软件的简单介绍该模块主要使用VisualBasic中的一些简单控件使关于该软件的一些简单信息显示给用户。4软件运行软件运行演示，在运行中需要输入的数据，用户登录模块“企业生产及采购计划管理软件开发”进行身份认证，弹出“用户登录”窗口，如图所示：图用户登陆窗口在上图中输入正确的账号和密码，单击“确定”按钮进入软件的主界面，如图所示：图软件主界面用户登录模块的主要代码如下：PrivateSubcmdCancel_Click()'设置全局变量为false'不提示失败的登录LoginSucceeded=FalseUnloadMeEndSubPrivateSubcmdOK_Click()DimrsAsNewDimsqlAsStringDimiAsIntegersql="Select*From用户表where账号='"&&"'and密码='"&&"'"sql,Conn,adOpenForwardOnly,adLockReadOnlyIfNotThenCurrUserID=rs("ID")CurrUserName=CurrUserPwd=LoginState=TrueUnloadMe:'使mdiform1主窗口菜单和工具栏按钮有效=TrueFori=2To6=TrueNextElseMsgBox"用户名或密码错误,请重新输入。",vbOKOnly,"用户登录"LoginState=FalseEndIfEndSubPublicFunctionMyXor(str1AsString)DimiAsIntegerDimoneAsString,newstrAsStringFori=1ToLen(str1)newstr=newstr&Chr$(Asc(Mid(str1,i,1))Xor&H3)NextMyXor=newstrEndFunction[6]修改密码模块“用户”→“修改密码”“用户账号密码修改”窗口，如图所示：图用户帐号密码修改窗口在图中用户可以修改自己的密码，输入要修改的密码，再确认一遍，单击“确定”即可，可以保证用户的安全性。修改密码模块主要代码如下：If=""ThenMsgBox"账号不能为空。",vbOKOnly,"信息修改":ExitSubIf<>ThenMsgBox"两次密码输入不一致。",vbOKOnly,"信息修改":ExitSubCurrUserName=CurrUserPwd="Update用户表Set账号='"&&"',密码='"&&"'WhereID="&CurrUserIDMsgBox"帐号修改成功。",vbOKOnly,"帐号修改"[7]生成BOM模块在图中单击软件主菜单中的“产品信息”→“BOM管理”菜单项，或单击标准工具栏中的“产品信息”按钮，软件调出“BOM”窗口，如图所示：图产品装配明细管理窗口BOMBOM单和当前BOM两个表中显示相应的信图产品装配明细管理窗口生成BOM模块主要代码如下：1、PrivateSubCmd_Save_Click()OnErrorGoToErr_Cmd_Save_ClickDimNewCodeAsBooleanNewCode=FalseIfIsNothingThenExitSubIfCurrCodeFromK3ThenNewCode=Falsesql="Update组别表图纸BOMSet名称='"&名称&"',规格型号='"&规格&"',序号="&Val序号)&",单位='"&单位&"',数量='"&_数量&"',工位='"&工位&"',仓库代码='"&仓库代码&"',仓库='"&仓库&"',备注='"&备注&"'WhereID="&sql=序号=代码=名称=规格=单位=数量=仓库=仓库代码=工位=备注ExitSubErr_Cmd_Save_Click:MsgBoxEndSub2、物料代码如下：PrivateSubCmd_SaveBOMNum_Click()OnErrorGoToErr_Cmd_SaveBOMNum_ClickIftxtBOM名称=""ThenMsgBox"BOM名称不能为空。",vbOKOnly,"信息提示":ExitSubIftxtBOM代码=""ThenMsgBox"BOM代码不能为空。",vbOKOnly,"信息提示":ExitSubIftxtBOM代码.Tag=txtBOM代码AndtxtBOM名称.Tag=txtBOM名称ThenExitSubIf名称.Tag<>名称Thensql="Update组别表K3物料set物料名称='"&名称&"'WhereID="&sql=名称名称.Tag=名称EndIf'如果物料代码不存在，则提示需在K3中创建IftxtBOM代码.Tag<>txtBOM代码Thensql="Update组别表K3物料set代码='"&代码&"'WhereID="&sql=代码代码.Tag=代码EndIfExitSubErr_Cmd_SaveBOMNum_Click:MsgBoxEndSub[9]3、组别名称修改代码如下:PrivateSubCmd_SaveGroupInfo_Click()OnErrorGoToErr_Cmd_SaveGroupInfo_ClickIftxt组别代码=""ThenMsgBox"组别代码不能为空。",vbOKOnly,"信息提示":ExitSubIftxt组别名称=""ThenMsgBox"组别名称不能为空。",vbOKOnly,"信息提示":ExitSubIftxt组别代码.Tag=txt组别代码Andtxt组别名称.Tag=txt组别名称ThenExitSubIftxt组别代码.Tag<>txt组别代码Then'如果组别代码进行修改，则判断其有效性。'首先判断新组别代码在本地组别表K3是否存在IfThen"SelectIDFrom组别表K3where组别代码1='"&组别代码&"'",Conn,adOpenForwardOnly,adLockReadOnlyIfNotThenMsgBox"组别代码："&txt组别代码&vbCrLf&"在本地组别中已经存在，请进行修改。",vbOKOnly,"信息提示":ExitSubsql="Update组别表K3set组别代码1='"&txt组别代码&"'Where组别代码='"&&"'"sql'更改当前节点的text属性值=txt组别代码&"("&txt组别名称&")"=txt组别代码txt组别代码.Tag=txt组别代码EndIfIftxt组别名称.Tag<>txt组别名称Then'更新关联字段只有一个物料，则更新其代号和物料名称If=1ThenSet=sql="Update组别表K3物料set物料名称='"&txt组别名称&"'WhereID="&sql=txt组别名称txtBOM名称=txt组别名称EndIf'更改当前节点的text属性值"Update组别表K3set组别名称='"&txt组别名称&"'Where组别代码='"&&"'"=txt组别代码&"("&txt组别名称&")"txt组别名称.Tag=txt组别名称EndIfExitSub生产计划模块在图中单击软件主菜单中的“计划管理”→“生产计划”菜单项，或单击标准工具栏中的“生产计划”按钮，就能看到关于MRP的界面，如图所示：图产品生产计划窗口“生产计划”“2011年第一季度”计划数量2，交货日期。得出生产该产品所需的材料的代码、名称、规格型号、数量等信息，关键是能得出出所需各种材料，便于后续的采购预算。先在“BOM组”选中“LBQ500型强拌”，然后单击“采购计划“如图所示：图产品采购计划窗口然后单击“计划汇总”按钮，会弹出如图所示的窗口，单击“确定”2011年第一季度汇总完成。图采购计划确认窗口采购计划模块主要代码如下：PrivateSubCmd_KouChuStock_Click()OnErrorGoToErr_Cmd_KouChuStock_ClickDimrsAsNewDimrstAsNewDimCurrPiCiIDAsLongDimItemXAsListItemIf<1ThenMsgBox"请首先选择一个扣除库存的批次。",vbOKOnly,"扣除库存提示":ExitSubCurrPiCiID='判断当前计划是否已经进行了批次汇总IfThen"Select*From计划批次WhereID="&CurrPiCiID,Conn,adOpenForwardOnly,adLockReadOnlyIfNotrs("IsSum")ThenMsgBox"当前批次："&&"还没有进行了计划汇总，请进行计划汇总。",vbOKOnly,"批次扣除库存提示"ExitSubEndIf'判断当前计划是否已经进行了批次扣除库存Ifrs("IsKouChu")ThenIfMsgBox("当前批次："&&"已经进行了扣除库存操作，是否重新扣除库存",vbYesNo+vbDefaultButton2+vbQuestion,"扣除库存确认")=vbNoThenExitSubEndIfsql="Select*from计划批次MRP汇总Where批次ID="&CurrPiCiIDIfThensql,Conn,adOpenDynamic,adLockOptimisticWhileNot'查找改项BOM在库存中是否存在IfThen"SelectID,库存FromK3物料库存表Where代码='"&rs("代码")&"'",Conn,adOpenForwardOnly,adLockReadOnlyIfNotThen'判断库存数量和计划数量大小关系Ifrs("数量")>rst("库存")Then'删除库存项目，计划项目做相应修改rs("数量")=rs("数量")-rst("库存")"DeleteFromK3物料库存表WhereID="&rst("ID")ElseIfrs("数量")<rst("库存")Then'删除计划项目，库存项目做相应修改"UpdateK3物料库存表Set库存="&rst("库存")-rs("数量")&"WhereID="&rst("ID")adAffectCurrentElseIfrs("数量")=rst("库存")Then'删除计划项目，删除库存项目"DeleteFromK3物料库存表WhereID="&rst("ID")adAffectCurrentEndIfEndIfWend'初始化计划批次MRP汇总到ListView3="Select*from计划批次MRP汇总Where批次ID="&CurrPiCiID&"Orderby默认仓库,代码"IfThensql,Conn,adOpenForwardOnly,adLockReadOnlyWhileNotSetItemX="a"&rs("ID"),rs("代码"))=rs("ID")(1)=rs("物料名称")(2)=rs("规格型号")(3)=rs("单位")(4)=rs("数量")(5)=rs("默认仓库")Wend'标记当前批次已经进行了计划汇总"Update计划批次SetIsKouChu=1WhereID="&CurrPiCiID="计划批次："&&"汇总明细（"&&"个）"MsgBox"计划批次："&&"扣除库存完成。",vbOKOnly,"计划汇总"ExitSubErr_Cmd_KouChuStock_Click:MsgBoxResumeNextEndSub库存管理模块在图中单击软件主菜单中的“库存管理”→“库存查看”菜单项，或单击标准工具栏中的“库存管理”按钮，软件调出“企业产品零部件，半成品等库存管理”窗口，如图所示：图企业物料库存管理窗口在图中，在企业物料库存管理窗口下，我们能得到材料的代码、名称、规格型号、记录，只需选中该项，单击“删除”按钮即可。库存管理模块主要代码如下：PrivateSubForm_Load()OnErrorGoToErr_Form_LoadDimItemXAsListItemIfThensql="SELECTK3物料库存表.ID,K3物料库存表.代码,K3物料表.物料名称,K3物料表.规格型号,K3物料表.单位,K3物料库存表.库存,K3物料表.默认仓库"&_"FROMK3物料库存表INNERJOINK3物料表ONK3物料库存表.代码=K3物料表.代码WhereK3物料库存表.代码<>''OrderByK3物料库存表.代码"sql,Conn,adOpenForwardOnly,adLockReadOnlyNotSetItemX="a"&rs("ID"),rs("代码"))=rs("ID")(1)=rs("物料名称")(2)=rs("规格型号")(3)=rs("单位")(5)=rs("库存")(4)=rs("默认仓库")WendIf>0ThenSet=ListView1_ItemClickIf="库存明细（"&&"条）"If>0ThenSet=IfExitSubErr_Form_Load:MsgBoxEndSub采购预算模块“基础信息”→“MRP计算”的“MRP计算”按钮，就会在“MRP计算”窗口中看到MRP核算部分，如图所示：图MRP计算窗口“MRP保存”之前需要先进行“MRP计算”“MRP计算”按钮，就弹出如图所示的窗口：图MRP计算确认窗口“确定”“MRP计算”种材料的具体数量也在下面的表格中显示出来。如图所示：图产品采购计划窗口点击“MRP保存”“计划管理”→“采购计划”菜单项，或单击标准工具栏中的“采购计划”按钮，就能看到关于扣除库存的按钮，如图所示图扣除库存采购计划窗口扣除库存采购计划模块主要代码如下：PrivateSubCmd_KouChuStock_Click()OnErrorGoToErr_Cmd_KouChuStock_ClickDimrsAsNewDimrstAsNewDimCurrPiCiIDAsLongDimItemXAsListItemIf<1ThenMsgBox"请首先选择一个扣除库存的批次。",vbOKOnly,"扣除库存提示":ExitSubCurrPiCiID='判断当前计划是否已经进行了批次汇总IfThen"Select*From计划批次WhereID="&CurrPiCiID,Conn,adOpenForwardOnly,adLockReadOnlyIfNotrs("IsSum")ThenMsgBox"当前批次："&&"还没有进行了计划汇总，请进行计划汇总。",vbOKOnly,"批次扣除库存提示"ExitSubEndIf'判断当前计划是否已经进行了批次扣除库存Ifrs("IsKouChu")ThenIfMsgBox("当前批次："&&"已经进行了扣除库存操作，是否重新扣除库存",vbYesNo+vbDefaultButton2+vbQuestion,"扣除库存确认")=vbNoThenExitSubEndIfsql="Select*from计划批次MRP汇总Where批次ID="&CurrPiCiIDIfThensql,Conn,adOpenDynamic,adLockOptimisticWhileNot'查找改项BOM在库存中是否存在IfThen"SelectID,库存FromK3物料库存表Where代码='"&rs("代码")&"'",Conn,adOpenForwardOnly,adLockReadOnlyIfNotThen'判断库存数量和计划数量大小关系Ifrs("数量")>rst("库存")Then'删除库存项目，计划项目做相应修改rs("数量")=rs("数量")-rst("库存")"DeleteFromK3物料库存表WhereID="&rst("ID")ElseIfrs("数量")<rst("库存")Then'删除计划项目，库存项目做相应修改"UpdateK3物料库存表Set库存="&rst("库存")-rs("数量")&"WhereID="&rst("ID")adAffectCurrentElseIfrs("数量")=rst("库存")Then'删除计划项目，删除库存项目"DeleteFromK3物料库存表WhereID="&rst("ID")adAffectCurrentEndIf采购明细导出模块在图中单击软件主菜单中的“计划管理”→“采购计划”→“采购明细导出”菜单项，或“企业生产及采购计划管理”窗口中看到导出明细部分，如图所示：图MRP计算窗口上面步骤中进行的“MRP计算”具体信息情况会显示在下面的表格中，若要导出成Excel“采购明细导出”“LBQ500型强拌”为例介绍该模块的步骤，单击“采购明细导出”之后会弹出如图所示的“导出为Excel”窗口，这是选择要保存的路径，并输入“文件名”，单击“保存”按钮即可保存到相应的目录下面。图导出Excel文件保存对话框单击“保存”“确定”就生成了所需的Excel图导出明细提示窗口图采购明细导出Excel表格格式[10]导出明细模块主要代码如下：PrivateSubLVJiHuaDetail_ItemClick(ByValItemAsOnErrorGoToErr_LVJiHuaDetail_ItemClickDimMRPBOMIDAsLongDimItemXAsListItem'当前选择项如果进行了MRP计算保存，则显示其明细IfThen"Select*From组别表K3Where组别代码='"&(1)&"'",Conn,adOpenForwardOnly,adLockReadOnlyIfThenMsgBox"没有找到当前产品信息。",vbOKOnly,"信息提示":ExitSubIfNotrs("IsMRP")ThenMsgBox"当前产品："&(1)&"/"&(2)&"还没有进行MRP计算，请首先对其进行MRP计算并保存。",vbOKOnly,"信息提示":ExitSubMRPBOMID=rs("MRPBOMID")'显示MRP计算结果IfThensql="Select*FromMRPBOMW