公司物资采购系统设计实践报告样本

关于该公司物资采购系统设计实践报告社会实践是学校依照专业教学规定，对学员已学某些理论知识进行综合运用培训，其目在于让学生接触社会，加强学生对社会理解，培养和训练学生结识、观测社会以及分析、解决问题能力，提高学生专业技能，使之不久地融入到实际工作中去。10月我在该公司实习，提出对该公司物资采购管理建议。在一种月时间内，本人通过理解公司学采购管理现状，针对公司规定基本状况，做出了这个物资采购系统：一、实践内容与过程整个实践过程分为三个阶段进行，第一阶段从9月11日到9月22日，跟随公司领导理解公司某些基本状况，并对公司当前采购系统有了一种大概理解。同步通过向领带第二阶段从9月22日起至10月4日第三阶段从10月5日起至10月11日，对系统进行了完善，进行了系统测试。将系统提交给该公司（一）系统概况采购管理系统基本解决了采购寻常事物解决，涉及物料分类、原材料订货单证录入和审批、验收单证管理以及对供应商评价等管理功能。由于ERP作为一门牵涉面很广博管理学科，同步基于ERP管理信息系统在实际应用中还不是非常普遍，笔者在这一方面缺少实际经验，再加之由于时间有限，使得本系统还不是非常成熟完善。（二）详细状况系统开发背景TC"第一章系统开发背景"\fC采购管理是物理管理重点内容之一，它在供应链公司之间原材料和半成品生产合伙交流方面架起一座桥梁，沟通生产需求与物资供应联系。为使供应链系统可以实现无缝连接，并提高供应链公司同步化运作效率，就必要加强采购管理。1.1老式采购模式TC"1.1老式采购模式"\fC老式采购重点放在如何和供应商进行商业交易活动上，特点是比较注重交易过程供应商价格比较，通过供应商多头竞争，从中选取价格最低作为合伙者。老式采购模式重要缺陷体当前如下几种方面。老式采购过程是典型非信息对称博奕过程选取供应商在老式采购活动中是一种首要任务。在采购过程中，采购一方为了可以从各种竞争性供应商中选取一种最佳供应商，往往会保存私有信息，而供应商也在和其她供应商竞争中隐瞒自己信息。这样，采购、供应双方都不进行有效信息沟通，这就是非信息对称博奕过程。验收检查是采购部门一种重要事后把关工作，质量控制难度大采购一方很难参加供应商生产组织过程和关于质量控制活动，互相工作是不透明。因而需要通过各种关于原则如国际原则、国标等，进行检查验收。缺少合伙质量控制会导致采购部门对采购物品质量控制难度增长。供需关系是暂时或短期合伙关系，并且竞争多于合伙由于缺少合伙与协调，采购过程中各种抱怨和扯皮事情比较多，诸多时间消耗在解决寻常问题上，没有更多时间用来做长期预测与筹划工作，供应与需求之间这种缺少合伙氛围增长了许多运作中不拟定性。响应顾客需求能力迟钝由于供应与采购双方在信息沟通方面缺少及时信息反馈，在市场需求发生变化状况下，采购一方也不能变化供应一方已有订货合同，因而采购一方在需求减少时库存增长，需求增长时，浮现供不应求。重新订货需要增长谈判过程，因而供需之间对顾客需求响应没有同步进行，缺少应付需求变化能力。1.2供应链管理环境下采购TC"1.2供应链管理环境下采购"\fC在供应链管理环境下，公司采购方式和老式采购方式有所不同。（一）从为库存而采购到为订单而采购在老式采购模式中，采购目很简朴，就是为了补充库存，即为库存而采购。采购部门并不关怀公司生产过程，不理解生产进度和产品需求变化，因而采购过程缺少积极性，采购部门制定采购筹划很难适应制造需求变化。在供应链管理模式下，采购活动是以订单驱动方式进行，制造订单产生是在顾客需求订单驱动下产生，然后，制造订单驱动采购订单，采购订单在驱动供应尚。这种准时化订单驱动模式，使供应链系统得以准时响应顾客需求，从而减少了库存成本，提高了物流速度和库存周转率,如图1-1所示。其重要特点如下：（1）由于供应商与制造商建立了战略合伙伙伴关系，订立供应合同手续大大简化，不再需要双方询盘和报盘重复协商，交易成本也因而大为减少。（2）在同步化供应链筹划协调下，制造筹划、采购筹划、供应筹划可以并行进行，缩短了顾客响应时间、实现了供应链同步化运作。采购与供应重点在于协调各种筹划执行。（3）采购物资直接进入制造部门，减少采购部门工作压力和不增长价值过程，实现供应链精细化运作。（4）信息传递方式发生了变化。在老式采购方式中，供应商对制造过程信息不理解，也无需关怀制造商生产活动。但在供应链管理环境下，供应商能共享制造部门信息，提高了供应商应变能力，减少信息失真。同步在订货过程中不断进行信息反馈，修正订货筹划，使订货与需求保持同步。（5）实现了面向过程作业管理模式转变。订单驱动采购方式简化了采购工作流程，采购部门作用重要是沟通供应与制造部门之间联系，协调供应与制造关系，为实现精细采购提高基本保障。图1-1订单驱动采购业务原理（二）从采购管理转向外部资源管理正如前面所指出，老式采购管理局限性之处，就是与供应商之间缺少合伙，缺少柔性和对需求迅速响应能力。准时化思想浮现后来，对公司物流管理提出了严峻挑战，需要变化老式单纯为库存而采购管理模式，提高采购柔性和市场响应能力，增长和供应商信息联系和互相之间合伙，建立新供需合伙模式。供应链管理思想就是系统性、协调性、集成性、同步性，外部资源管理是实现供应链管理上述思想一种重要环节――公司集成。从供应链公司集成过程来看，它是供应链公司从内部集成走向外部集成重要一步。要实既有效外部资源管理，制造商采购活动应从如下几种方面着手进行改进。（1）和供应商建立一种长期、互惠互利合伙关系。这种合伙关系保证了供需双方可以有合伙诚意和参加双方共同解决问题积极性。（2）通过提高信息反馈和教诲培训支持，在供应商之间增进质量改进和质量保证。在顾客化需求今天，产品质量是有顾客规定决定，而不是简朴地通过事后把关所能解决。因而在这种状况下，质量管理工作需要下游公司提供有关质量规定同步，及时把供应商产品质量问题反馈给供应商，以便其及时改进。（3）参加供应商产品设计和产品质量控制过程。同步化运营是供应链管理一种重要思想。通过同步化供应链筹划使供应链各公司在响应需求方面获得一致性行动，增长供应链敏捷性。制造商公司应当参加供应商产品设计和质量控制过程，共同制定关于产品质量原则等，使需求信息能较好地在供应商业务活动中体现出来。（4）协调供应商筹划。一种供应商有也许同步参加多条供应链业务活动，在资源有限状况下必然会导致多方需求争夺供应商资源局面。在这种状况下，下游公司采购部门应积极参加供应商协调筹划。在资源共享前提下，保证供应链正常供应关系，维护公司利益。（5）建立一种新、有不同层次供应商网络，并通过逐渐减少供应商数量，致力于与供应商建立合伙伙伴关系。（三）从普通买卖关系向战略协作伙伴关系转变在老式采购模式中，供应商与需求公司之间是一种简朴买卖关系，因而无法解决某些涉及全局性、战略性供应链问题，而基于战略伙伴关系采购方式为解决这些问题创造了条件。详细有如下几点：（1）库存问题。在老式采购模式下，供应链各级公司都无法共享库存信息，各级节点公司都独立地采用订货点技术改进库存决策，不可避免地产生需求信息扭曲现象，因而供应链整体效率得不到充分提高。但在供应链管理模式下，通过双方合伙伙伴关系，供应与需求双方可以共享库存数据，因而采购决策过程变得透明多了，减少了需求信息失真现象。（2）风险问题。供需双方通过战略性合伙关系，可以减少由于不可预测需求变化带来风险，例如运送过程风险、信用风险、产品质量风险等。（3）通过合伙伙伴关系可觉得双方共同解决问题提高便利条件，通过合伙伙伴关系，双方可觉得制定战略性采购供应筹划共同协商，不必要为寻常琐事消耗时间与精力。（4）减少采购成本问题。通过合伙伙伴关系，关系双方都从减少交易成本中获得好处。由于避免了许多不必要手续和谈判过程，信息供需避免了信息不对称决策也许导致成本损失。（5）战略性伙伴关系消除了供应过程组织障碍，为实现准时化采购创造了条件。第二章系统规划TC"第二章系统规划"\fC2.1系统调研状况TC"2.1系统调研状况"\fC作为实现本系统第一步,我对用友ERP系列产品之一U8作了产品调研。2.1.1系统目TC"2.1.1系统目"\fCU8系统是针对采购工作关于之规划、请购、所定、审核、收料追踪、历史记录、关闭等作业之管理。协助采购部门有效掌握各种采购活动信息，以达到下列目：采购定单规划及锁定请购单输入、审核，及转采购定单采购订单发放与跟催请购作业控制达到适时、适量、适质采购功能采购订单价之有效掌握可产销排程或物料需求规划之采购需求，而运营采购作业，以保证刚好和及时2.1.2系统功能TC"2.1.2系统功能"\fC供应商之资料管理供应商来往交易记录料品采购之询价资料记录采购需求之规划方式自动由物料（配销）需求规划系统生成使用者自行输入采购定单追踪管理状态码之控制：NA：NOT-APPROVEDORDER(采购定单规划作业)OP：OPENORDER(采购定单审核作业)IN：INRECEVING(收料或验收作业)CL：CLOSEDORDER(采购定单关闭作业)逾期未交货料品资料追踪料品别、采购定单别、销售定单别、供应商别、预交货日别产品待检资料管理收料作业；收料退回作业；产品验收方式根据收料单；根据采购定单；直接验收；请购作业解决验收单价之查询；验退单价之查询；请款明细资料打印；采购项目分类库存品（R）；非库存品，属代（暂）收费之记录（S）；普通作业功能设定付款条件设定（采购定单别）；币别选取（采购定单别）；税率设定（采购定单别）；预定交货日（采购项目别）；验收仓库别（采购项目别）；2.1.3名词解释TC"2.1.3名词解释"\fC1.采购定单，共分下列三个阶段：采购定单输入（未审核）由采购人员，输入采购定单之有关内容，如采购订单号、供应商代号、须采购之料品、数量、预定交货日期等，采购定单输入后须予以确认，确认后状态码为NA（审核）。依产销排程（MPS）、需求筹划（MRP）或BPR展开自动生成，并非人为手动排定后输入；建议采购量须再进行规划作业，规划之后其状态码为NA（未审核）。采购定单审核（未关闭）相称于手动作业时，采购人员将以整顿好采购定单，交由主管签准，以便分发各单位和供应商。采购定单审核后其状态码将由NA变为OP。已审核定单才可以印出，送交供应商，并据以验收入库。当采购定单有验收作业后，状态码将由OP变成IN。IN状态可视为和OP状态同类。采购定单审核时，其料品之“在单量”会增长，可用量也增长。各采购项目（料品）累积验收量，达允收上下限范畴时，自动将该项目关闭。采购定单关闭采购项目状态码为OP或IN采购订单越来越多。已经验收完毕（状态码CL）、某些验收（状态码IN）、尚未验收（状态码OP），而要清除采购订单据时，如果采购项目状态码并非全数据结清（状态码CL）时，须先将其采购订单状态码变化成CL，让采购订单成为以关闭。关闭确认后，如须再输入验收或验退交易资料，则须进行状态修改，将采购项目状态码CL变化成IN或OP。采购帐务解决验收/退金额修改依采购而进行验收/验退，并生成应付账款之增减。因负责采购数量及金额单位或人员也许不同，本系统将验收/验退数量与金额分开解决，让仓储人员在验收作业时，只能输入数量。而验收/验退之采购订价单、付款条件、汇率等，若与原采购订单不同，需要修改时，则由采购人员解决。若验收/退时，上述各项目与原采购订单相似，则不必修改。采购验收/退转应付账款在手动作业，当采购人员查核验收/退之数量、金额、付款等各项资料无误后，即将关于应付账款资料，转给应付账款之会计人员，以便入账及其后付款根据。U8系统则可以对的无误而省力地，自动将各项资料转入。当采购人员查核过验收/退资料无误后，可将有关应付账款信息，直接传至应付账款系统。2.1.4作业流程TC"2.1.4作业流程"\fC其采购作业流程如图2-1所示：图2-1U8采购作业流程在单量、在检量及现存量之关系：采购审核收料（退料）验收（退回）采购验收在单量+待检量+（-）在单量-（+）现存量+（-）待检量-采购直接入库在单量+在单量-（+）现存量+（-）无采购订单入库待检量+（-）现存量+（-）待检量-无采购订单直接入库现存量+（-）采购订单管理规划采购量（采购筹划之草稿）依产销排程（MPS）、需求筹划（MRP）或BPR展开而自动生成，并非人为手动排定后输入；建议采购量为实际采购筹划之根据。未审核采购（请购筹划）即生管之请购筹划，如料件之预测采购数量、承制供应商、审核日、需求日等信息，为采购根据。记录或生成方式手动输入：将预测采购筹划之资料输入，依照预测审核日期提示采购员进行采购作业。规划：查询并确认采购量之作业，称为规划作业；经规划解决之采购量，为采购筹划，本系统成为未审核采购。未关闭采购（供应商交货中之采购订单）经审核解决之采购，本系统中成为未关闭采购订单，此采购作业，本系统中成为审核作业，将采购筹划（未审核采购）审核至供应商。运营审核作业时，系统将自动计算在单量，以供采购进行交货状况之追踪。在单量：即采购未交货量；审核采购订单，该采购料品之在单量，将随现存量（验收单）增长而等量减少。采购订单关闭手动关闭：删除已审核之采购，或宣布尚未完毕之采购为关闭状态时，可依此作业运营。自动关闭：设定料品允收上下限，系统自动宣布以交完之采购状态为关闭，以便于进行过期采购资料之清除。采购订单还原已关闭采购订单，但尚未做关闭解决时，如果该采购还要作验收/退时，可以本作业将指定采购订单状态还原。专案管理精要采购订单内容只精确性采购订单审核后，采购订单价、采购数量、预交日应对的，入有错误或变化，应尽快修改。如果，余数已不再续交，应将余数关闭。对的采购订单，可供验收或催交之根据。否则，导致许多误导。不用之采购订单，关闭前应印出，并将之关闭清除。采购订单价之变化采购订单价因故变化时，应尽早在验收或验退前，修改采购订单上之单价。如果验收或验退完毕，才知采购订单价以改，应在验收/验退未转入应付帐款前，修改验收/退单金额。验收或验退时，系依采购订单上当时之单价入帐，因此应避免事后采购改单价。采购之付款条件与各供应商交易之时，应按谈定付款条件，计算出付款日期，办理付款事项。如果有变化，应及早采购订单上修改，否则在验收或验退完毕，才知付款条件已改，应修改验收/退单金额。验收或验退时，系依采购订单上当时之付款条件入帐，因此应避免事后才改付款条件。预付款之解决采购时，有预付款（订金）时，应先在应付账款系统，输入预付金额。等该采购订单之验收发生后，会生成应付账款，再进行以预付款和应付款冲销。2.2系统分析报告TC"2.2系统分析报告"\fC2.2.1U8系统分析TC"2.2.1原系统分析"\fC作为用友主打产品U8无论是在功能上还是实用性上都是十分具备竞争力，并且在国内市场上颇受欢迎。采购某些系统是针对采购工作关于之规划、请购、所定、审核、收料追踪、历史记录、关闭等作业之管理。协助采购部门有效掌握各种采购活动信息，以达到下列目：采购定单规划及锁定、请购单输入、审核，及转采购定单、采购订单发放与跟催、请购作业控制、达到适时、适量、适质采购功能、采购订单价之有效掌可产销排程或物料需求规划之采购需求，而运营采购作业，以保证刚好和及时。基本上可以满足普通公司对采购规定。普通其业务流程描述如下：由销售部联系生产订单，商务部接到订单后进行可行性分析（判断自身生产能力与否能满足，价格水平如何，利润率多少等等），然后将可行性告知下达给筹划部，由筹划部安排组织生产筹划。依照物料需求筹划和当前库存状况列出采购清单，下达给采购部。采购员将负责解决供应商选取、讨价还价、拟定交货时间等一系列有关事宜。通过初步认证请购信息再被送往采购经理处，由采购经理审核并从中选取供应商订立供货合同。供应商会按照合同将订购原材料送到仓库，并告知采购部验收，原料入库前先置于收料处，待质检人员检查合格后再入库，签发商品入库单，表达某一单业务圆满结束；若检查后发现质量不合格，由采购员与供应商按照采购合同规定办法解决。入库后原料将依照领料单送往车间进行生产。其业务流程如图2-2所示：图2-2U8系统业务流程图原系统长处（1）依照物料需求筹划采购部列出采购清单，将采购清单下达给采购部。采购员将负责解决供应商认证、议价、交货、验收等一系列有关事宜。通过认证供应商信息再被送往采购部，采购经理审核后并从中选取供应商订立供货合同。由于采用了电子化信息交流平台，加快了数据流转，这样一来缩短了采购至交货时间，减少了采购提前期，提高了工作效率，并有助于公司资金周转，避免了资金运用率下降。（2）由于公司供应商信息来源于数据库历史资料记录和分析，避免了人为因素不拟定性，对供应商评价更全面，增长了对也许合伙伙伴进一步理解，使信誉及产品质量都体现良好供应商成为公司合伙伙伴。使原材料质量得以保证，将使得公司产品不合格率下降，树立公司良好形象和口碑。不但如此，在得到了供应商及时供货保障后，将使得公司生产没有后顾之忧，减少了导致不必要损失。（3）采用ERP来管理公司资源后来，就可以实现“零库存”，减少库存资金占用率。可以让公司把资金用在更加需要地方，获得更多经济利润。因而，当代公司很需要有一种功能丰富而强大采购管理信息系统来促使其与其她公司之间共享原材料需求信息，与供应商之间增进合伙、信任，辅助公司作全局优化、增强竞争力，并实现对采购等寻常事务有效管理。2.2.2模仿系统构想TC"2.2.2新系统构想"\fC由于是在模仿ERP采购管理系统思想前提下，进行系统设计，因此主旨是领略ERP设计理念和管理方式。但由于时间和个人水平限制，我设计新采购系统应实现如下这些目的：（1）顾客登陆后，系统鉴别顾客身份。若不为系统管理员，操作将受到限制。系统管理员可觉得其她顾客修改权限。（2）将所需物料进行分类。（3）对供应商必要进行评价，评价根据有供货提前期，单位价格，产品质量等等，并且依照一定评价原则进行打分，并且以分值高低来衡量供应商资质，从而为采购决策提供根据，可以选取好供应商。（4）将通过审核后订单用电子化手段交由供应商，减少采购成本。（5）进行收货解决，将采购收到货品验收后交由仓库解决，并开具产品入库单，依次对供应商进行评分。2.2.3模仿系统开发方略TC"2.2.3新系统开发方略"\fC“自上而下”开发方略，强调从整体上协调和规划，由全面到局部，由长远到近期，从摸索合理信息流出发来设计信息系统。模仿系统开发采用“自上而下”开发方略，从公司管理整体进行设计，逐渐从抽象到详细，从概要设计到详细设计，同步采用迅速原型法作为开发办法，运用可视化第四代语言迅速建立系统原型向顾客演示，以获得真实反馈。第三章系统分析TC"第三章系统分析"\fC3.1可行性分析TC"3.1可行性分析"\fC可行性分析任务是明确应用项目开发必要性和可行性。必要性来自实现开发任务迫切性，而可行性则取决于实现应用系统资源和条件。3.1.1管理上可行性TC"3.1.1管理上可行性"\fC在信息解决技术高度发展今天，掌握了信息资源也就意味着掌握了最先进生产工具，从而在激烈竞争中掌握了积极。公司信息化一方面体当前公司对内部信息资源控制和管理，对公司中信息进行系统化、集成化、自动化过程，也就是对信息系统规划、运营、管理过程。对公司内部进行信息化建设，使起充分运用内外部资源，从而来提高公司竞争力和效益。对于实行ERP公司来说，实现网络信息化是非常有必要，实行供应链管理，实现信息共享，使得公司管理人员可以充分理解公司上下游合伙伙伴，公司也能更有效地进行运作。3.1.2技术上可行性TC"3.1.2技术上可行性"\fC外部设备：因特网普及为本系统实现创造了良好客观条件，该公司属中美合资公司，在硬件设备上，配备比较成熟。当前高性能网络组件（服务器、集线器、通信介质、工作站）已大量涌现，它们速度快、，容量大，可靠性高，价格低，完全能满足本系统需要。人员配备：该公司信息科拥有一支高素质技术人员，信息科直属运营部，而运营部又是公司对内对外运作中最直接一种部门，这样设立使得IT人员与信息化规定较高运营部其她人员有较密切联系，可进行有效沟通。3.1.3经济上可行性TC"3.1.3经济上可行性"\fC模仿系统开发确要投入大量人力和物力，在执行过程中，技术人员和管理人员都应采用各项办法，减少冗余，减少一切不必要成本。诚然，新系统开发成本是相称大，但是这一高成本带来可观经济效益在短期或是长期都可以显现出来。3.2模仿系统业务流程分析TC"3.2新系统业务流程分析"\fC采购信息管理子系统所要实现功能：一方面收集各个供应商（涉及原材料供应商和外协半成品供应商）信息，可以预先作评价（依照供应商规模、形象、市场占有率、业绩等指标），在筹划部提供了物料需求筹划之后，依照供应商评价总表以及不同产品自身对不同原则不同规定，来选取适当供应商并将订单通过电子化方式分发给不同供应商，同步在收到供应商货品之后，将货品连同入库单交由仓库，并且依照评价准则对各个供应商进行评价（评价原则涉及供应商提供产品质量、交货提前期以及产品价格，再依照不同产品由于状况不同，对各项指标规定，即权重不同来产生供应商评价总表）。由此来完毕一系列采购任务。详细流程如图3-1所示：业务解决单位各类单证业务功能描述数据流动方向数据存储图3-1模仿系统业务流程图3.3数据流程分析TC"3.3数据流程分析"\fC数据流程图图例：实体数据流动方向PPF数据存储和存档解决逻辑采购信息管理系统重要输入数据是仓库库存信息、供应商基本信息和收货告知单是，重要输出数据是向采购经理发出请购单、向供应商发出原材料订单、退货单以及向仓库发出核销单和供应商评价表。详细如图3-2所示：仓库库存信息入库单P采购管理信息系统 供应商基本信息表收货告知单 批准订单P采购管理信息系统采购供应商经理 订单退货单供应商评价表 请购单图3-2采购信息管理系统顶层DFD整个采购子系统重要解决分为三个解决过程——采购解决、验收和供应商信息维护及评价解决。详细如图3-3所示：仓库库存信息F1缺货信息 缺货信息P1采购解决P1采购解决采购信息 评价总表F3原材料订单F2供应商评价总表原材料订单评价总表 P2信息及评价解决P2信息及评价解决 原材料供应商信息表 供应商 F4 F4评价原则 P3P3收货/退货解决退货信息 收货告知单 核销单仓库图3-3采购信息管理系统一层DFD先对所缺货品进行分析，依照物料状况以及参照供应商评价总表分别向原材料供应商和外协供应商发出订单信息。详细如图3-4所示：P1.1请购F1 库存信息 缺货信息F1仓库 缺货信息原材料信息F6原材料信息F6 请购单F5F2F5F2供应商评价总表 请购单 请购信息P1.2P1.2订单审核 订单信息F3 F3订单 订单P1.3P1.3告知供应商 F3供应商订单订单订单F3图3-4采购解决二层DFD图 采购部门收到供应商发出收货告知单后，检查后将合格产品订单核销，并向仓库发出核销信息，如有不合格产品则向供应商发出退货信息。详细如图3-5所示：F8仓库核销单F8核销单 核销信息 P3.3订单核销P3.1收货解决P3.3订单核销P3.1收货解决供应商 合格产品信息 不合格产品信息P3.2P3.2退货解决F7 退货信息退货单F7 图3-5验收管理二层DFD图依照供应商基本信息表以及部门内部制定评价原则，对供应商信息进行评价解决，产生供应商评价总表。在生产中，对不同物料有不同规定，对有物料来说质量是最重要，但对有物料来说提前期长短是核心，而对有物料来说，它在整个产品中所占地位并不太重要，因而在选取供应商时则要多考虑一下价格这一属性，因而不同物料在同一指标上都具备不同权重，按照这一权重和供应商基本信息表中各指标得分得出供应商总分，该计算公式为：质量得分*权重1+提前期得分*权重2+价格得分*权重3。详细数据流如图3-6所示： P2.1供应商信息评价解决P2.1供应商信息评价解决F2 供应商评价总表F2F4 供应商评价总表F4评价原则图3-6供应商信息评价解决二层DFD3.4重要数据字典描述TC"3.4重要数据字典描述"\fC1、数据项定义数据项编号：I02-01数据项编号：I02-01数据项名称：供应商编号别名：简述：某供应商代码类型及宽度：字符型，4位数据项编号：I02-02数据项编号：I02-02数据项名称：供应商名称别名：简述：某供应商详细称谓类型及宽度：字符型，20位数据项编号：I02-03数据项编号：I02-03数据项名称：供应商地址别名：简述：某供应商所处地区类型及宽度：字符型，10位数据项编号：I02-04数据项编号：I02-04数据项名称：评价指标别名：简述：评价供应商详细指标，如质量、提前期、价格等类型及宽度：数值型，5位（小数2位）数据项编号：I02-05数据项编号：I02-05数据项名称：评分别名：简述：依照各项评价指标所得到对供应商评价类型及宽度：数值型，5位（小数2位）数据项编号：I02-06数据项编号：I02-06数据项名称：产品号别名：产品编号简述：标记某种特定物料代码类型及宽度：字符型，5位数据项编号：I02-07数据项编号：I02-07数据项名称：产品名称别名：简述：某种特定物料称谓类型及宽度：字符型，10位数据项编号：I02-08数据项编号：I02-08数据项名称：需求数量别名：简述：某个零件一次定货数量类型及宽度：数值型，5位（小数0位）数据项编号：I02-09数据项编号：I02-09数据项名称：订单号别名：采购订单号简述：唯一标记某采购订单代码类型及宽度：字符型，13位数据项编号：I02-10数据项编号：I02-10数据项名称：订购日期别名：订单生成日期简述：由系统自动生成订单产生日期类型及宽度：日期型数据项编号：I02-11数据项编号：I02-11数据项名称：交货日期别名：货品应到日期简述：依照货品不同提前期推算出交货日期类型及宽度：日期型数据项编号：I02-12数据项编号：I02-12数据项名称：工号别名：采购员工号简述：某采购员代号类型及宽度：字符型，5位数据项编号：I02-13数据项编号：I02-13数据项名称：验收单号别名：简述：收货后产品入库产生单据类型及宽度：字符型，4位数据项编号：I02-14数据项编号：I02-14数据项名称：验收日期别名：订单入库日期简述：收货后产品入库单产生日期，即货品实到日期类型及宽度：日期型数据项编号：I02-15数据项编号：I02-15数据项名称：姓名别名：采购员姓名简述：某一种采购员名字类型及宽度：字符型8位2、数据流定义数据流编号：F02-02数据流编号：F02-02数据流名称：产品清单简述：由采购某些析后得出产品需求状况数据流来源：产品缺货信息数据流去向：下采购指令解决模块数据流构成：产品号+产品名称+需求数量＋需求日期数据流量：高峰流量：数据流编号：F02-04数据流编号：F02-04数据流名称：请购单简述：采购员依照产品清单制定向某一原材料供应商订货订单数据流来源：下请购指令解决模块数据流去向：采购经理数据流构成：请购单号+产品号+产品名称+需求数量+供应商编号+订单生成日期+货到物应到日期+工号数据流量：高峰流量：数据流编号：F02-04数据流编号：F02-04数据流名称：订单简述：采购经理依照请购单审核向某一原材料供应商订货订单数据流来源：下订购指令解决模块数据流去向：原材料供应商数据流构成：订单号+产品号+产品名称+需求数量+供应商编号+订单生成日期+货到物应到日期+工号数据流量：高峰流量：数据流编号：F02-06数据流编号：F02-06数据流名称：验收单简述：收货后由采购部对订单所做核销并入库而产生入库单数据流来源：收货解决模块数据流去向：仓库数据流构成：入库单号+订单号+入库日期＋入库商品名称＋入库数量＋应付金额＋采购员编号数据流量：高峰流量：数据流编号：F02-07数据流编号：F02-07数据流名称：供应商信息表简述：由原材料供应商提供其基本信息，以及公司对其指标评价状况数据流来源：原材料供应商数据流去向：供应商评价解决模块数据流构成：供应商编号+供应商名称+供应商地址+产品编号+评价指标1+评价指标2+评价指标3数据流量：高峰流量：数据流编号：F02-09数据流编号：F02-09数据流名称：供应商评价表简述：以评价规则通过对供应商指标而得出供应商评分状况数据流来源：供应商评价解决模块数据流去向：告知外协供应商解决模块，下采购指令解决模块数据流构成：供应商编号+供应商名称+评分数据流量：高峰流量：3.4.3解决逻辑定义3、逻辑解决定义解决逻辑编号：P02-02解决逻辑编号：P02-02解决逻辑名称：下请购指令简述：生成原材料请购单输入数据流：F02-02处理：依照原材料清单中单个物料需求状况来下达请购指令，即生成原材料请购单输出数据流：F02-04解决频率：及时解决解决逻辑编号：P02-02解决逻辑编号：P02-02解决逻辑名称：下订购指令简述：生成原材料订购单输入数据流：F02-02处理：依照请购单中物料需求状况来下达订购指令，即生成原材料订购单输出数据流：F02-04解决频率：及时解决解决逻辑编号：P02-04解决逻辑编号：P02-04解决逻辑名称：供应商评价解决简述：对供应商各种指标所进行综合评价输入数据流：F02-07，F02-08处理：按照某种特定评价规则，对供应商指标进行评价，并最后打分输出数据流：F02-09解决频率：及时解决解决逻辑编号：P02-05解决逻辑编号：P02-05解决逻辑名称：验货解决简述：验货后对合格订单作入库解决，并告知财务记入应付账款输入数据流：F02-04，F02-05处理：将原先采购订单按订单号进行入库，形成入库单输出数据流：F02-06解决频率：及时解决4、数据存储定义数据存储编号：F02-02数据存储编号：F02-02数据存储名称：原材料清单简述：所需所有原材料名称以及所需要总数量数据存储构成：物料号+物料名称+需求数量＋需求日期核心字：物料号有关联解决：P02-01，P02-02数据存储编号：F02-04数据存储编号：F02-04数据存储名称：请够单简述：所需一种原材料名称及其所需数量数据存储构成：请购单号+物料号+物料名称+需求数量+供应商编号+订单生成日期+工号＋采购员编号核心字：请购单号有关联解决：P02-02数据存储编号：F02-05数据存储编号：F02-05数据存储名称：订单简述：所需一种原材料名称及其所需数量数据存储构成：订单号+物料号+物料名称+需求数量+供应商编号+订单生成日期+工号＋采购员编号核心字：订单号有关联解决：P02-03数据存储编号：F02-06数据存储编号：F02-06数据存储名称：验收单简述：采购产品到货验收合格后对原先定单核销并入库数据存储构成：入库单号+订单号+入库日期入库商品名称＋入库数量＋应付金额＋采购员编号核心字：单号有关联解决：P02-05数据存储编号：F02-07，F02-08数据存储编号：F02-07，F02-08数据存储名称：供应商状况表简述：反映供应商基本状况表单数据存储构成：供应商编号+供应商名称+供应商地址+评价指标1+评价指标2+评价指标3核心字：供应商编号有关联解决：P02-04数据存储编号：F02-09数据存储编号：F02-09数据存储名称：供应商评价表简述：对供应商各个指标所做综合评价数据存储构成：供应商编号+供应商名称+评分核心字：供应商编号有关联解决：P02-02，P02-03，P02-04数据存储编号：F02-10数据存储编号：F02-10数据存储名称：采购员信息表简述：记录所有采购员表单数据存储构成：工号+姓名核心字：工号有关联解决：P02-02，P02-03，P02-055、外部实体定义外部实体编号：S02-01外部实体编号：S02-01外部实体名称：供应商简述：提供原材料供货商输入数据流：F02-03输出数据流：第四章．系统设计外部实体编号：S02-02外部实体编号：S02-02外部实体名称：采购员简述：负责采购原材料、半成品，发送订单工作人员输入数据流：F02-04，F02-05输出数据流：F02-03外部实体编号：S02-03外部实体编号：S02-03外部实体名称：采购经理简述：负责审核原材料请购单，产生订单工作人员输入数据流：F02-04，F02-05输出数据流：F02-03外部实体编号：S02-04外部实体编号：S02-04外部实体名称：仓库简述：提供原材料存储空间和库存数量地方输入数据流：输出数据流：第四章．系统设计第四章系统设计TC"第四章系统设计"\fC4.1代码设计TC"4.1代码设计"\fC请购单代码：0ayyyymmddxxx共11位，前8位为日期，后3位为顺序码订单代码：0ayyyymmddxxx共11位，前8位为日期，后3位为顺序码验收单代码：0ayyyymmddxxx共11位，前8位为日期，后3位为顺序码原材料代码：01xxx共5位，前2位为物料类型（原材料），后3位为顺序码供应商代码：trrxxx共6位，第1位为供应商类型前，中间2位为地区，后3位为顺序码业务员代码：xxx共3位，前1位为类别代码（采购部），后2位为顺序码4.2功能构造图设计TC"4.2功能构造图设计"\fC采购外协子系统，该子系统下面分为系统、基本信息设立、采购信息管理、查询及打印、财务管理和协助等模块，各模块详细实现功能如图4-1所示：采购外协管理子系统采购外协管理子系统系统修改密码添加新用户退出查询及打印查供应商进货查物料、仓库进货查采购员进货账款应付账款基本信息设立采购员类别设立采购员设置仓库设置原材料设置原材料类别设置供应商设置采购信息管理订货单录入修改请购单录入修改入库单录入修改图4-1采购管理信息系统功能构造图4.3物理配备方案设计TC"4.3物理配备方案设计"\fC系统运营环境如图4-2所示：服务器工作站工作站执行成果输入数据输入数据执行成果服务器工作站工作站执行成果输入数据输入数据执行成果数据库数据库图4-2系统运营环境依照此C/S模式，选取物理配备如下：（1）硬件设备服务器：由于服务器寻常解决数据量大，工作繁忙，因此采用较好配备，CPU:P42.0G/内存：1G硬盘：40G*4显示屏：14’LCD工作站：工作站采用原则配备.CPU:赛扬1G内存：128M硬盘：20G显示屏：17’网络设备：互换机CISCO2950网卡START10-100M（2）网络选取网络拓扑构造：公司内部采用星型网构造，通过Internet与外地数据库服务器联系网络操作系统：工作站选用WindowsProfessional作为操作平台，服务器选用WindowsServer作为网络操作系统。（3）DBMS选取可供选取DBMS有MicrosoftAccess，SQLServer，Oracle等，MicrosoftAccess在解决大数据量任务时性能明显下降，Oracle合用于大型数据库系统，单价格昂贵。而SQLServer价格适中，相比之下性价比较高，因而本次开发选用其作为后台数据库系统。4.4登陆设计TC"4.4输入输出设计"\fC4.4.1登陆设计TC"4.4.1输入设计"\fC（1）.登陆设计信息设立进入系统注界面（2）供应商评分设立点击进入评价原则界面，该界面具备添加、删除和修改功能，其中供应商评价表中总（5）管理顾客类别设立点击进入管理顾客类别设立界面，该界面具备添加、删除和修改功能，详细规定了每个业务员职务。图4-7业务员类别解决界面（6）业务员信息设立点击进入业务员信息设立界面，该界面具备添加、删除和修改功能。详细记录了每个业务员个人信息。图4-8业务员信息解决界面（7）订货单录入和修改进入订单录入和修改窗口，由系统自动生成每张订单唯一编号，以及订单生成日期。按照产品编号和供应商编号，可以从供应商评价表中显示评分记录，以便进行比较，并在可用供应商中选出适当供应商。选取完供应商后，依照该供应商报价和已知需求数量算出总价。订单初始状态都为请购状态，由经理进行最后审批确认后才由业务员向供应商进行订货。并且一旦订单通过经理审批通过后，其状态变为审批通过状态，这时订单任何数据都不可以再作修改。订单图4-9订单作业解决界面4.4.2输出设计TC"4.4.2输出设计"\fC（1）订货单查询点击进入订单查询及打印界面，该界面查询功能基本是按照订货单状态来进行查询分类。图4-11订单信息查询及打印界面（2）验收单查询点击进入验收单查询及打印界面，该界面查询功能涉及按照供应商进行单条记录查询、按照仓库进货查询，和按照业务员进货查询。图4-12验收信息查询及打印界面（3）库存信息查询点击进入库存信息查询界面，该界面查询功能涉及按照仓库和产品名称进行单条记录查询。图4-13库存产品查询界面（4）应付账款查询点击进入应付账款查询及打印界面，该界面显示了应付账款信息，可供财务部门入帐和付款。图4-14应付账款查询界面4.5数据库设计TC"4.5数据库设计"\fC概念构造独立于数据库逻辑构造，也独立于支持支持数据库数据库管理系统。它是现实世界与机器世界中介，它一方面可以充分反映显示世界，涉及实体和实体之间联系，同步又易于向关系、网状、层次等各种数据模型转换。因而概念构造设计是整个数据库设计核心所在。采购外协管理子系统E-R图如图4-15所示：图4-15采购管理信息系统E-R图入库单表表名：Inh列名数据类型长度容许空描述Inh_nochar13N入库单编号Gfdmchar10Y供应商编码In_datedatetime8Y入库日期Ckdmchar10Y仓库编号Wzdmchar10Y入库品编号Ywmanchar8Y采购员Slint4Y数量In_danjmoney8Y单价I_zkechar4Y总金额Jsfkchar4Y与否即时付款Jzchar4Y与否记账Bzchar30Y备注主键：Inh_no库存表表名：Kch列名数据类型长度容许空描述Ckmzchar10Y仓库名称Ckdmchar13N仓库编号Wzmcvarchar20Y货品名称Slint4Y数量Datedatetime8Y日期OPERATORchar8Y操作员主键：Ckdm供应商评价信息表表名：Pjh主键：Dm列名数据类型长度容许空描述Dmchar10N供应商编号Mcchar20Y供应商名称Evl_achar10Y质量得分Evl_bchar10Y提前期得分Evl_cchar10Y价格得分EVL_allchar10Y总得分供应商信息表表名：dm_gf主键：Dm列名数据类型长度容许空描述Dmchar10N供应商编号Mcchar20Y供应商名称Addrchar10Y供应商地址Yzbmchar10Y邮政编码Telchar8Y联系电话Bank_nochar8Y银行账号Bankchar20Y开户银行Ywmanchar8Y联系人Scorefloat10Y供应商总得分Bzchar20Y备注产品类别表表名：Dm_wzlb主键：Ib列名数据类型长度容许空描述Ibcodechar10N产品类别编号Ibchar20Y产品类别名称Bzchar20Y备注产品信息表表名：Dm_wz主键：Dm列名数据类型长度容许空描述Dmchar10N产品编号Mcchar20Y产品名称Jldwchar10Y计量单位Ibdmchar10Y产品类别编号Rkjfloat10Y入库价Fxjfloat10Y分销价Lsjfloat10Y零售价Cjchar20Y供应商Yxrqdatetime10Y更新日期Bzchar20Y备注采购员类别表表名：Dm_ywylb主键：Ibcode列名数据类型长度容许空描述Ibcodechar10N类别编号Ibchar20Y类别名称Bzchar20Y备注采购员信息表表名：Dm_ywy主键：Dm列名数据类型长度容许空描述Dmchar10N采购员编号Mcchar20Y采购员名称Ibchar10Y类别Telchar12Y联系电话Addrchar20Y家庭住址Sfzchar20Y身份证号码Ibcodechar10Y类别编号Bzchar20Y备注仓库表表名：Dm_ck列名数据类型长度容许空描述Dmchar10N仓库编号Mcchar20Y仓库名称Bzchar20Y备注主键：Dm系统顾客表表名：User_Info主键：User_Id列名数据类型长度容许空描述User_Idchar10N顾客名称User_Pwdchar10N顾客密码Bzchar20Y备注订单信息表表名：Dh主键：Dh_no列名数据类型长度容许空描述Dh_nochar10N订单编号Wzdmchar10Y产品编号Mcchar20Y产品名称Slint10Y数量Gfdmchar10Y供应商编号In_danjfloat10Y订货单价I_zkfloat10Y折扣I_zkefloat10Y总价In_datedatetime8Y订货日期De_datedatetime8Y货品应到日期Ywmanchar10Y采购员编号Statuschar10N订单状态Bzchar20Y备注第五章系统实行TC"第五章系统实行"\fC5.1系统开发工具TC"5.1系统开发工具"\fC前台客户端：VisualBasic后台数据库：SQLSERVER5.2程序代码设计TC"5.2程序代码设计"\fC1、系统登录时鉴别顾客与否合法OptionExplicitPrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString，nSizeAsLong)AsLongPublicOKAsBooleanDimmicountAsIntegerPrivateSubForm_Load()DimsBufferAsStringDimlSizeAsLongsBuffer=Space$(255)lSize=Len(sBuffer)CallGetUserName(sBuffer，lSize)IflSize>0ThentxtUserName.Text=Left$(sBuffer，lSize)ElsetxtUserName.Text=vbNullStringEndIfOK=Falsemicount=0EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()DimtxtSQLAsStringDimmrcAsADODB.RecordsetDimMsgTextAsString'ToDo：createtestforcorrectpassword'checkforcorrectpasswordUserName=""IfTrim(txtUserName.Text="")ThenMsgBox"没有这个顾客，请重新输入顾客名！"，vbOKOnly+vbExclamation，"警告"txtUserName.SetFocusElsetxtSQL="select*fromuser_Infowhereuser_ID='"&txtUserName.Text&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=TrueThenMsgBox"没有这个顾客，请重新输入顾客名!"，vbOKOnly+vbExclamation，"警告"txtUserName.SetFocusElseIfTrim(mrc.Fields(1))=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)SetfMainForm=NewfrmMainfMainForm.Show'frmMain.ShowElseMsgBox"输入密码不对的，请重新输入！"，vbOKOnly+vbExclamation，"警告"txtPassword.SetFocustxtPassword.Text=""EndIfEndIfEndIfmicount=micount+1Ifmicount=3ThenMe.HideEndIfExitSubEndSub2、对供应商信息录入和修改OptionExplicit'与否改动过记录，ture为改过DimmblChangeAsBooleanDimmrcAsADODB.RecordsetPublictxtSQLAsStringPrivateSubcmdExit_Click()IfmblChangeAndcmdSave.EnabledThenIfMsgBox("保存当前记录变化吗？"，vbOKCancel+vbExclamation，"警告")=vbOKThen'保存CallcmdSave_ClickEndIfEndIfUnloadMeEndSubPrivateSubcmdSave_Click()DimintCountAsIntegerDimsMegAsStringDimMsgTextAsStringForintCount=0To10IfTrim(txtItem(intCount)&"")=""ThenSelectCaseintCountCase0sMeg="供应商代码"Case1sMeg="供应商名称"Case2sMeg="地址"Case3sMeg="邮政编码"Case4sMeg="电话号码"Case5sMeg="网址"Case6sMeg="电子邮件"Case7sMeg="税号"Case8sMeg="账号"Case9sMeg="开户银行"Case10sMeg="联系人"EndSelectsMeg=sMeg&"不能为空！"MsgBoxsMeg，vbOKOnly+vbExclamation，"警告"txtItem(intCount).SetFocusExitSubEndIfNextintCountIfNotIsNumeric(Trim(txtItem(0)))ThensMeg="请输入数字！"MsgBoxsMeg，vbOKOnly+vbExclamation，"警告"txtItem(0).SetFocusExitSubEndIfForintCount=3To4IfNotIsNumeric(Trim(txtItem(intCount)))ThensMeg="请输入数字！"MsgBoxsMeg，vbOKOnly+vbExclamation，"警告"txtItem(intCount).SetFocusExitSubEndIfNextintCountForintCount=7To8IfNotIsNumeric(Trim(txtItem(intCount)))ThensMeg="请输入数字！"MsgBoxsMeg，vbOKOnly+vbExclamation，"警告"txtItem(intCount).SetFocusExitSubEndIfNextintCountRichTextBox1.Text=txtItem(6).TextDimfoundposAsIntegerfoundpos=RichTextBox1.Find("@"，，，rtfMatchCase)Iffoundpos=-1ThenMsgBox"电子邮件格式不对，请修改！"，vbOKOnly+vbExclamation，"警告"txtItem(6).SetFocusExitSubEndIf'添加判断与否有相似ID记录IfgintGFSmode=1ThentxtSQL="select*fromdm_gfwheredm='"&Trim(txtItem(0))&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=FalseThenMsgBox"已经存在此供应商代码记录！"，vbOKOnly+vbExclamation，"警告"txtItem(0).SetFocusExitSubEndIfmrc.CloseEndIf'先删除已有记录txtSQL="deletefromdm_gfwheredm='"&Trim(txtItem(0))&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)'再加入新记录txtSQL="executegf_setup'"ForintCount=0To10txtSQL=txtSQL&Trim(txtItem(intCount))&"','"NextintCounttxtSQL=txtSQL&Trim(txtItem(11))&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)IfgintGFSmode=1ThenMsgBox"添加记录成功！"，vbOKOnly+vbExclamation，"添加记录"ForintCount=0To11txtItem(intCount)=""NextintCountmblChange=FalseUnloadfrmGFfrmGF.txtSQL="select*fromdm_gf"frmGF.ShowElseIfgintGFSmode=2ThenUnloadMeUnloadfrmGFfrmGF.txtSQL="select*fromdm_gf"frmGF.ShowEndIfEndSubPrivateSubForm_Load()DimintCountAsIntegerDimMsgTextAsStringDimiAsIntegerDimmrccAsADODB.RecordsetIfgintGFSmode=1ThenMe.Caption=Me.Caption&"添加"Fori=0To11txtItem(i).Text=""NextiElseIfgintGFSmode=2ThenSetmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=FalseThenWithmrcForintCount=0To11txtItem(intCount)=.Fields(intCount)NextintCountEndWithtxtItem(0).Enabled=FalseEndIfMe.Caption=Me.Caption&"修改"EndIfmblChange=FalseEndSubPrivateSubForm_Unload(CancelAsInteger)gintGFSmode=0EndSubPrivateSubtxtItem_Change(IndexAsInteger)'有变化设立gblchangemblChange=TrueEndSubPrivateSubtxtItem_GotFocus(IndexAsInteger)txtItem(Index).SelStart=0txtItem(Index).SelLength=Len(txtItem(Index))EndSubPrivateSubtxtItem_KeyDown(IndexAsInteger，KeyCodeAsInteger，ShiftAsInteger)EnterToTabKeyCodeEndSub3、对产品信息录入和修改OptionExplicit'与否改动过记录，ture为改过DimmblChangeAsBooleanDimmrcAsADODB.RecordsetPublictxtSQLAsStringPrivateSubcmdExit_Click()IfmblChangeAndcmdSave.EnabledThenIfMsgBox("保存当前记录变化吗？"，vbOKCancel+vbExclamation，"警告")=vbOKThen'保存CallcmdSave_ClickEndIfEndIfUnloadMeEndSubPrivateSubcmdSave_Click()DimintCountAsIntegerDimsMegAsStringDimMsgTextAsStringText1.Text=txtItem(1).TextForintCount=0To7IfTrim(txtItem(intCount)&"")=""ThenSelectCaseintCountCase0sMeg="款号"Case1sMeg="名称"Case2sMeg="单位"Case3sMeg="入库价格"Case4sMeg=