智能决策技术报告.docx

《智能决策技术报告.docx》由会员分享，可在线阅读，更多相关《智能决策技术报告.docx（43页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、智能决策策技术期末考核核设计题目目：生产产物料需需求决策策支持系系统目录智能决策策技术11期末考核核1一规划划与分析析阶段331.问题题描述331.1现现状31.2解解决手段段41.3意意义42.数据据处理分分析42.1数数据流程程图42.2物物料需求求分析的的核心流流程：52.3建建立数据据字典：63.抽象象模型建建立63.1系系统功能能结构图图63.2系系统业务务流程图图7二设计计阶段881.系统统平台设设计81.1开开发平台台设计882.主要要功能模模块设计计82.1登登录模块块82.2主主界面模模块92.3主主生产计计划模块块102.4订订单管理理模块1122.5用用户管理理模块113

2、3.数据据库设计计13三实施施阶段1161.实现现方案1162.系统统开发、调试与与运行1172.1登登录模块块设计1172.2订订单管理理202.3库库存管理理242.4物物料需求求分析227四总结结43一规划划与分析析阶段1.问题题描述1.1现现状 选选定决策策支持主主题是生生产物料料需求计计划。在在现代企企业的生生产经营营活动中中物料是是企业价价值链中中极其重重要的一一环，物物料采购购决策占占有十分分重要的的地位。在成熟熟、稳定定的市场场条件下下，理性性的企业业决策者者总是力力争在“正确时时间”采购“正确数数量”的物料料，供企企业生产产使用。物料需求求计算的的基本任任务是：一是从从最终产

3、产品的生生产计划划导出相相关物料料（原材材料、零零部件）的需求求量和需需求时间间（相关关需求）；二是是根据物物料的需需求时间间和订货货周期来来确定其其开始订订货的时时间。物料需求求计算的的基本内内容是编编制物料料（包括括零部件件和原材材料）的的采购计计划（这这里不考考虑生产产的自制制，假定定所有的的物料都都进行采采购）。要正确确编制物物料采购购计划，首先必必须落实实最终产产品的产产出进度度计划，即主生生产计划划，这是是物料需需求计算算展开的的依据。还要需需要知道道产品的的零部件件和原材材料结构构，即无无聊清单单，才能能把主生生产计划划展开成成物料需需求计划划；同时时，必须须知道库库存数量量才能

4、准准确地计计算出各各种零部部件和原原材料的的采购数数量。因因此，以以主生产产计划，物料清清单为依依据计算算物料需需求。物料需求求计划原原理框架架如下图图1.11：产品产出计划物料需求计划报 告物料需求计划（数量、时间）产品结构文件库存状态文件图1.11.2解解决手段段 建建立物料料需求分分析的决决策支持持系统，完成复复杂的分分析过程程，并自自动生成成物料需需求订单单，以供供生产使使用。 1.3意意义应用该系系统，可可为企业业生产过程程中物料料需求和和选择供供应商提提供依据据。2.数据据处理分分析2.1数数据流程程图图2 .12.2物物料需求求分析的的核心流流程：物料需求求计划主主要按照照反工艺

5、艺路线（成品组装装件零部件件）的原原理，按按照产品品产出计计划规定定的产品品的生产产数量和和期限要要求，利利用产品品结构文文件、库库存信息息文件等等数据资资料，反反工艺顺顺序计算算出各种种物料的的需求数数量与需需求期限限，进而而，根据据企业实实际确定定自制和和采购的的数量和和期限。物料需求求计算时时主要用用到五种种库存状状态数据据：毛需需求G（t）、计划到到货量SS（t）、现有有量H（t）、净需求求量N（t）和和计划发发出订货货量R（t-LL），这这里t是是表示周周期的变变量，LL是提前前期。计算在第第t周期期第i层层所有物物料需求求量和需需求时间间的步骤骤为：第一步：确定第第i层第第t周期期

6、所有毛毛需求量量。毛需需求量是是指生产产中实际际需要的的量，00层的毛毛需求由由主生产产计划确确定，其其余各层层的毛需需求量是是由其上上层的计计划订单单下达。第二步：确定物物料第ii层第tt周期的的净需求求量，净净需求量量是指实实际需要要的增加加量。第三步：根据净净需求量量确定第第t周期期计划下下达数量量第四步：第i层层第t周周期的计计划订单单下达数数量，即即为第ii层物料料的毛需需求量，由毛需需求量开开始重复复上述114步，直至最最低层物物料。其分析流流程图如如下图：i=0 , t=1按照时间周期计算第n层所有物料的毛需求量第0层根据产品计划得出，其他层由其父项计划下达取得 确定第n层第t周

7、期净需求量N（t） 由净需求N（t）确定计划定单入库R（t-L）所有周期算完否 确定计划定单下达所有产品结构层次已分解 向下一层分解i=i+1结 束t=t+1否是是否2.3建建立数据据字典：总编号编号名称来源去向包含数据据结构1-011F1客户订单单客户分析处理理订单号、产品编编号、订订购数量量、交货货日期1-022F2产品结构构设计分析处理理产品编号号、层次次、上层层编号、上层需需求1-033F3库存状态态库存分析处理理产品编号号、产品品名称、库存总总量、可可用量、将要入入库量、安全库库存1-044F4物料订单单分析处理理订单下达达订单号、物料编编号、订订购数量量、订购购日期、有效期期至1-

8、055F5用户信息息用户登录判断断用户名、密码、权限、备注表2.333.抽象象模型建建立3.1系系统功能能结构图图图3.13.2系系统业务务流程图图图3.2二设计计阶段1.系统统平台设设计1.1开开发平台台设计前台设计计工具：Borrlannd DDelpphi 6后台数据据库：SSQL Serrverr 20008开发环境境：硬件件环境：PC电电脑软件环境境：（见见下图）服务器操作系统统WINDDOWSS 20007应用程序序SQL Serrverr 20008客户端操作系统统WINDDOWSS 20007应用程序序Borllandd Deelphhi 661.2网网络运行行模式设设计本系统

9、采采用C/S模式式，即客客户端/服务器器模式网络拓扑扑结构为为星型结结构2.主要要功能模模块设计计2.1登登录模块块界面截图图如下图图4.22 1：图4.22 1 功功能是验验证用户户是否合合法，是是否允许许登入系系统，如如果合法法则还要要判断其其权限，以限定定用户的的操作权权限。2.2主主界面模模块界面如图图4.22 2登登录之前前及4.2 33登录之之后，其其功能是是实现在在各个功功能模块块的界面面之间的的进行跳跳转：图4.22 2 图44.2 32.3主主生产计计划模块块界面如下下图4.2 44，主要要是实现现客户订订单管理理：图4.22 4 图4.2 55为产品品结构管管理：图4.22

10、 5 图4.2 66为物料料库存管管理：图4.22 6 图4.2 77为物料料需求分分析界面面：图4.22 72.4订订单管理理模块 图4.2 88为订单单管理界界面：图4.22 82.5用用户管理理模块 图4.2 99为用户户管理界界面，包包括注册册、修改改密码、权限设设置等：图4.22 93.数据据库设计计数据库设设计如下下：客户订单单文件表表odeerfoorm字段名称称字段描述述数据类型型字段长度度是否主键键允许为空空否Oderrno订单号Charr10YNPno产品编号号Charr10NNPnumm订单总量量Int4NNPsellfnuum自产量Int4NNPbuyynumm外购量I

11、nt4NNOderrt下单日期期Dateetimme8NYDeliit交货日期期Dateetimme8NYStatte当前状态态Dateetimme10NY物料需求求订单文文件表mmateelisst字段名称称字段描述述数据类型型字段长度度是否主键键允许为空空否Mlnoo订单编号号Charr10YNMno物料编号号Charr10NYMlnuum订购数量量Int4NYMltiime订购日期期Dateetimme8NYMlviivtiime有效期至至Dateetimme8NYRemaark备注Charr30NY物料库存存文件表表mattesttor字段名称称字段描述述数据类型型字段长度度是否主键键

12、允许为空空否Mno物料编号号Charr8YNMnamme物料名称称Charr10NYMlayyer所属层次次Int4NYMpreeno上层编号号Charr8NYMpreenumm上层需求求Int4NYMtnuum库存总量量Int4NYMvnuum可用数量量Int4NYMwnuum将要入库库量Int4NYSecnnum安全库存存Int4NYMut计量单位位Charr4NYMfinnishh成品率Floaat8NYMadvvantt提前期Int4NYAvatt生效日期期Dateetimme8NYInvaat失效日期期Dateetimme8NYRemaark备注Charr30NY物料分析析临时表表t

13、emmpinnfo字段名称称字段描述述数据类型型字段长度度是否主键键允许为空空否Dtimme需求日期期Dateetimme8NNDmnoo物料编号号Charr8NNDmnaame物料名称称Charr10NNDmlaayerr所属层次次Int4NNDmaddvanntt提前期Int4NNDpreeno上层编号号Charr8NNDpreenumm上层需求求Int4NNDmfiinissh成品率Floaat8NNDvnuum可用数量量Int4NNDwnuum将要入库库量Int4NNDsnuum安全库存存Int4NNDdtnnum毛需求量量Int4NNDdneetnuum净需求量量Int4NNdsel

14、lfn自产量Int4NYdbuyyn外购量Int4NY用户信息息表usseriinfoo字段名称称字段描述述数据类型型字段长度度是否主键键允许为空空否Userrnamme用户名Charr10YNPasssswdd用密码Charr10NNUrigght用户权限限Charr10NYLasttit最近登录录时间Dateetimme8NYLasttot最近登出出时间Dateetimme8NYRemaark备注Charr30NY三实施施阶段1.实现现方案以一个简简化了的的自行车车产品来来说明，其库存存状态书书记库如如上图所所示。其其结构示示意图为为：自行车 车架（1）车轮（2） 车把（1）轮圈（1）轮胎

15、（2）辐条（42）0层1层2层基本的物物料计划划步骤为为：（1） 确定自行行车的总总需求、净需求求和计划划定单下下达的时时间；（2） 根据上层层的结果果，确定定第1层层上所有有物料的的净需求求和计划划定单下下达的时时间；（3） 根据上层层车轮的的结果，确定第第2层上上所有物物料的净净需求和和计划定定单下达达的时间间。其中用到到的公式式有：第t周期期的净需需求量=第t周周期的毛毛需求现有量量第t周周期计划划入库量量+安全全库存不考虑批批量问题题，则tt-L周周期计算算计划订订单下达达数量等等于t周周期净需需求量，即： R（t-LL）=NN（t）2.系统统开发、调试与与运行2.1登登录模块块设计

16、界面如如图图5.44 1 主要程程序代码码为：unitt Looginn;var fmmLoggin: TffmLooginn;impllemeentaatioonusess daatammd, Maiin;$R *.ddfm/自定义义过程，验证用用户/procceduure Tfmmloggin.useerjuug(uu,p,r:sstriing);var upssql,upssql22:sttrinng;begiin iff u= theen beggin sshowwmesssagge(用户名名不能为为空，请请输入用用户名！); eedtuun.ssetffocuus; endd ell

17、se if p= tthenn beggin sshowwmesssagge(密码不不能为空空，请输输入密码码！); eedtppw.ssetffocuus; endd ellse beggin uupsqql:=seelecct uuserrnm,passswdd,urrighht ffromm usseriinfoo whheree ussernnm=+u+ andd paasswwd =+p+ annd uurigght=+r+; uupsqql2:=uupdaate useerinnfo sett laastiit=+dattetoostrr(Noow)+ whheree ussern

18、nm=+u+; ttry dttmd.qryyup.Cloose; dttmd.qryyup.SQLL.Cllearr; dttmd.qryyup.SQLL.Addd(uupsqql); dttmd.qryyup.Opeen; iff noot ddtmdd.qrryupp.Eoof tthenn /用户合合法，则则进入系系统 beggin ddtmdd.qrryupp.Cllosee; /更新新用户的的最近登登录时间间 ddtmdd.qrryupp.SQQL.CCleaar; ddtmdd.qrryupp.SQQL.AAdd(upssql22); ddtmdd.qrryupp.ExxecSS

19、QL; ffmMaain.RzGGrouup1.Vissiblle:=fallse; ffmMaain.RzGGrouup2.Vissiblle:=truue; ffmMaain.RzGGrouup2.Opeenedd:=ttruee; ffmMaain.RzGGrouup3.Vissiblle:=truue; ffmMaain.RzGGrouup4.Vissiblle:=truue; ffmMaain.RzGGrouup5.Vissiblle:=truue; ffmMaain.RzGGrouup5.Vissiblle:=truue; ffmMaain.pu:=u; ffmMaain.pp:=

20、p; ffmMaain.pr:=r; ffmMaain.stttb.PPaneels0.Texxt:=fmMMainn.puu; ffmLooginn.Cllosee; endd ellse beggin sshowwmesssagge(用户名名或密码码错误！); eedtuun.SSetFFocuus; endd eexceept shhowmmesssagee(连连接数据据库失败败，请检检查数据据库服务务是否正正常！); eend; endd;end;/退退出登录录/procceduure TfmmLoggin.btnnexttCliick(Sennderr: TTObjjectt);be

21、giin seelf.Cloose;end;/登登录按钮钮/procceduure TfmmLoggin.btnnlgCClicck(SSendder: TOObjeect);var ri:strringg;begiin iff seelf.rbuu.Chheckked theen ri:=uuserr ellse if sellf.rrba.Cheeckeed tthenn ri:=aadmiini; usserjjug(triim(eedtuun.TTextt),ttrimm(eddtpww.Teext),rii);end;/用户户名和密密码文本本框里回回车/procceduure Tfm

22、mLoggin.edttunKKeyPPresss(SSendder: TOObjeect; vaar KKey: Chhar);var ri:strringg;begiin iff keey=#13 theen beggin iff seelf.rbuu.Chheckked theen ri:=uuserr ellse if sellf.rrba.Cheeckeed tthenn ri:=aadmiini; usserjjug(triim(eedtuun.TTextt),ttrimm(eddtpww.Teext),rii); endd;end;end.2.2订订单管理理界面如图图5.44 2

23、图5.44 2主要代码码：unitt Odderfformm;var fmmOdeerfoorm: TffmOdderfformm;impllemeentaatioonusess daatammd, Maiin;$R *.ddfm/各各个下拉拉框赋值值共用过过程/procceduure TfmmOdeerfoorm.cbppbdppd(ttet:strringg);var i,j:iinteegerr; ossql:strringg;begiin wiith dtmmd.qqryoofm do beggin oosqll:=sellectt diistiinctt +tett+ froom o

24、oderrforrm; /查查询唯一一值 ttry Cllosee; SQQL.ccleaar; SQQL.AAdd(osqql); Oppen; fmmOdeerfoorm.dbnno.DDataaSouurcee:=nnil; fmmOdeerfoorm.dbggo.DDataaSouurcee:=nnil; Fiirstt; i:=ReecorrdCoountt; foor jj:=00 too i-1 ddo /循环赋赋值 beggin iif mm=1 theen cbbno11.Ittemss.Addd(FFielldByyNamme(odeernoo).AsSStriing) e

25、elsee iff m=2 tthenn cbbno22.Ittemss.Addd(FFielldByyNamme(odeernoo).AsSStriing); NNextt; endd; eexceept shhowmmesssagee(数数据库连连接失败败！请检检查数据据库服务务是否正正常！); eend; endd;end;procceduure TfmmOdeerfoorm.btnnexiitCllickk(Seendeer: TObbjecct);begiin seelf.Cloose;end;procceduure TfmmOdeerfoorm.cbnno1DDroppDowwn(

26、SSendder: TOObjeect);begiin m:=1; seelf.cbnno1.Iteems.Cleear; seelf.cbppbdppd(odeernoo);end;procceduure TfmmOdeerfoorm.cbnno2DDroppDowwn(SSendder: TOObjeect);begiin m:=2; seelf.cbnno2.Iteems.Cleear; seelf.cbppbdppd(odeernoo);end;/=/procceduure TfmmOdeerfoorm.btnnseaarCllickk(Seendeer: TObbjecct);var

27、 sssql,cdtt:sttrinng;begiin sssql:=sseleect odeernoo ass 订单单号,ppno as 产品编编号,mmnamme aas 产产品名称称,pnnum as 订购量量,oddertt ass 订购购日期,dellit as 交货日日期,sstatte aas 当当前状态态 frrom odeerfoorm,mattesttor wheere mnoo=pnno aand pnoo+; iff cbbno11.Teext thhen cdtt:= annd ooderrno=+ttrimm(cbbno11.Teext)+; iff cbbno22

28、.Teext thhen cdtt:=ccdt+ aand odeernoo=+triim(ccbnoo2.TTextt)+; iff daatettosttr(ddtp11.Daate) tthenn cddt:=cdtt+ andd deelitt=+dattetoostrr(dttp1.DatteTiime)+; iff daatettosttr(ddtp22.Daate) tthenn cddt:=cdtt+ andd deelitt=+dattetoostrr(dttp2.DatteTiime)+; iff cbbnm.Texxt theen ccdt:=cddt+ annd ppn

29、o=+trrim(cbnnm.TTextt)+; iff cbbst.Texxt theen ccdt:=cddt+ annd sstatte=+triim(ccbstt.Teext)+; sssql:=sssql+cdtt; wiith dtmmd.qqryoofm do beggin ttry Cllosee; SQQL.ccleaar; SQQL.AAdd(ssqql); Oppen; fmmOdeerfoorm.dbnno.DDataaSouurcee:=ddtmdd.dssofmm; /动态指指定数据据感知组组件的数数据源 fmmOdeerfoorm.dbggo.DDataaSouu

30、rcee:=ddtmdd.dssofmm; eexceept shhowmmesssagee(数数据库连连接失败败！请检检查数据据库服务务是否正正常！); eend; endd;end;/*是是否允许许编辑*procceduure TfmmOdeerfoorm.edoorCllickk(Seendeer: TObbjecct);begiin iff fmmOdeerfoorm.edoor.CChecckedd thhen /允许编编辑 beggin ffmOdderfformm.dbbgo.Opttionns:=fmOOderrforrm.ddbgoo.Opptioons-dggRowwSel

31、lectt+dgeedittingg; ffmOdderfformm.dbbno.VissiblleBuuttoons:=nnbinnserrt,nnbdeelette,nnbeddit,nbppostt,nbbcanncell,nbbreffressh; endd ellse /不不允许编编辑 beggin ffmOdderfformm.dbbgo.Opttionns:=fmOOderrforrm.ddbgoo.Opptioons+dggRowwSellectt-dgeedittingg; ffmOdderfformm.dbbno.VissiblleBuuttoons:=nnbfiirstt

32、,nbbpriior,nbnnextt,nbblasst; enddend;procceduure TfmmOdeerfoorm.ForrmCrreatte(SSendder: TOObjeect);begiin fmmOdeerfoorm.dbnno.VVisiibleeButttonns:=nbbfirrst,nbpprioor,nnbneext,nbllastt; fmmOdeerfoorm.dbggo.OOptiionss:=ffmOdderfformm.dbbgo.Opttionns+dgRRowSSeleect-ddgedditiing;end;procceduure TfmmOd

33、eerfoorm.ForrmShhow(Sennderr: TTObjjectt);begiin iff fmmMaiin.ssttbb.Paanells00.TTextt= thhen beggin /游客不不能操作作数据库库 sselff.GrrouppBoxx1.EEnabbledd:=ffalsse; sselff.GrrouppBoxx2.EEnabbledd:=ffalsse; endd ellse beggin /游客不不能操作作数据库库 sselff.GrrouppBoxx1.EEnabbledd:=ttruee; sselff.GrrouppBoxx2.EEnabbledd:

34、=ttruee; endd; / sellf.ddtp11.DaateTTimee:=nnow; seelf.dtpp2.DDateeTimme:=noww;end;/单单击DBBGriid标题题时排序序/procceduure TfmmOdeerfoorm.dbggoTiitleeCliick(Collumnn: TTCollumnn);var i:inttegeer;begiin iff dttmd.qryyofmm.Acctivve tthenn beggin ffor i:=1 tto ddbgoo.Coolummns.Couunt do beeginn dbggo.CColuumns

35、si-1.Tittle.Fonnt.CColoor:=clWWinddowTTextt;/恢复所所有标题题字体为为默认 dbggo.CColuumnssi-1.Tittle.Fonnt.SStylle:=; ennd; iff dttmd.qryyofmm.Soort(CColuumn.FieeldNNamee+ ASCC) theen beggin ddtmdd.qrryoffm.SSortt:=CColuumn.FieeldNNamee+ ASCC; CColuumn.Tittle.Fonnt.CColoor:= cllRedd; /改变标标题行字字体为红红色，表表示当前前的排序序方式为为升序 CColuumn.Tittle.Fonnt.SStylle:= ffsBoold; endd ellse