资源目录
压缩包内文档预览：(预览前20页/共33页)
编号：6895047
类型：共享资源
大小：1.32MB
格式：RAR
上传时间：2018-01-02
上传人：专业****设计
认证信息
个人认证
葛**（实名认证）
江苏
IP属地：江苏
20
积分
- 关 键 词：
-
定做请加QQ：
1060741974
参考网站
http://www.bysj360.com/
http://www.bylw520.ne
- 资源描述：
-
服装进销存管理系统,定做请加QQ：,1060741974,
,参考网站
,/
,http://www.bylw520.ne
- 内容简介：
-
RAUN/OTPREMNICAXIANGCHUZHANGD.O.O.R-1SOKOLSKA66KHGS-F310000,ZAGREBgsdz-F4Tel:091/1689999gsszd-F5Fax:01/3866518mb-F6M.B.:1674382Uvjetiisporuke(prodaje):fkfs-D9RaunBR.:br-C11Datum:rq-F11IFRATRGOVAKINAZIVJEDINICAJED.CIJENACIJENA0%UKUPNOARTIKLAISPORUENIHDOBARAILIOBAVLJENIHUSLUGAMJERE(BEZPOREZA)(VRIJEDNOSTBEZPOREZA)STOPAPOREZA(NAKNADASPOREZOM)a14UKUPNO:f54g54h54i54KOLIINA(Raunsastavila)(Odgovornaosoba)IZNOSPDV-a*OBVEZNIKPOREZANADOBITIZASLOVAR-.UPISATEBROJKU1AOBVEZNIKPOREZANADOHODAKIZASLOVAR-.UPISATEBROJKU2M.P.I进销管理系统II摘要初步分析了当前业务公司管理方面存在的问题，联系实际情况设计实现了一个以控制物流为主的管理软件。该系统实现了部分ERP的功能，尽力做到降低实施成本，减少实施风险，加快实施进度，增加投资回报。企业的物资供应管理往往是很复杂，繁琐的，由于掌握的物资种类众多，订货，管理，发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计计划报表繁多，因此物资管理必须实现计算机化，而且必须根据企业的具体情况制定便提高工作效率。根据当前的企业管理体制，一般物资供应管理系统，总是根据所掌握的物资类别，相应分成几个科室进行物资的计划，订货，核对入库，根据企业各个部门的需要来发送物资设备，并随时近期进行库存盘点，作台帐，根据企业领导和自身管理的需要按月，季，年进行统计分析，产生相应报表，为了加强关键物资，设备的管理，要定期掌握其储备消耗情况，根据计划定额和实际消耗定额的比较，进行定额管理。所以一个完整的企业物资供应管理系统应包括计划管理，合同托收管理，仓库管理，定额管理，统计管理，财务管理等到模块。其中仓库管理是整个物资供应管理系统的核心。使用MicrosoftVisualBasic6.0及MicrosoftOfficeAccess2003作为开发工具，利用面向对象的结构和自上而下的程序设计方法，基本实现了仓库的日常管理和进货出货的查询。关键字：企业资源计划;存货;数据库;面向对象III目录摘要.XIV目录.XV第一章序言.16第二章系统分析.182.1问题的提出.182.2分析问题.182.3系统设计目标.192.3.1系统设计的长远目标：实现ERP系统.192.3.2系统设计近期.20第三章系统总体设计.213.1数据流图.213.2部分数据字典.253.3E-R图.253.4功能模块.273.4.1程序层次.273.4.2模块功能说明.283.4.3系统数据表.28第四章系统详细设计.30第五章编码实现与测试.345.1编码摘要.34第六章总结与展望.416.1总结.416.2心得体会.42致谢.43参考文献.444第一章序言根据毕业设计论文要求，本次毕业设计的题目是进销存管理系统，利用VisualBasic完成管理平台设计，构造所用的类库；使用Access数据库存储数据，限单机使用。企业的物资供应管理往往是很复杂，繁琐的，由于掌握的物资种类众多，订货，管理，发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计计划报表繁多，因此物资管理必须实现计算机化，而且必须根据企业的具体情况制定便提高工作效率，根据当前的企业管理体制，一般物资供应管理系统，总是根据所掌握的物资类别，相应分成几个科室进行物资的计划，订货，核对入库，根据企业各个部门的需要来发送物资设备，并随时近期进行库存盘点，作台帐，根据企业领导和自身管理的需要按月，季，年进行统计分析，产生相应报表，为了加强关键物资，设备的管理，要定期掌握其储备消耗情况，根据计划定额和实际消耗定额的比较，进行定额管理。所以一个完整的企业物资供应管理系统应包括计划管理，合同托收管理，仓库管理，定额管理，统计管理，财务管理等到模块。其中仓库管理是整个物资供应管理系统的核心。随着科学技术特别是信息工程、计算机技术等高科技技术的飞速发展和普及，当今世界已进入到了信息时代。企业和组织要求信息处理的数量越来越大，速度越来超快。为了让管理者及时掌握准确、可靠的信息，以及执行之后构成真实的反馈，必须建立一个功能齐全和高效率的信息管理系统。信息管理系统采用以电子计算机为主的技术设备，通过自动化通信网络，与各种信息终端相连接，利用完善的通信网，沟通各方面的联系，以保证迅速、准确、及时地收集情况和下达命令。本公司（现国内大多实业公司的代表）存在的问题：信息化不足，计算机使用率低，大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很难克服。要提升企业竞争力，企业内部信息化是不可缺少的一个步骤。实施先进的办公室自动化系统，实现企业内部信息管理、共享及交流，才能让企业在竞争激烈的21世纪取得先机。随着经济的全球化以及中国经济改革的逐渐深化，制造业面临着越来越激烈的竞争，改善企业内部以及整个供应链各个环节的管理、调度及资源配置，迅速适应客户的新需求和市场新机遇的能力，是中国企业赢得竞争胜利的决定性因素，而快速有效地实施企业资源计划（ERP）系统是被实践证明了的提高企业竞争力的最有效的方法之一。从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，ERP就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，以及其他更多的东西。如果一个ERP系统真正想要最大限度地提高其生产能力，它必须能够非常融洽地和其他关5键性的商务领域进行交流。企业资源计划(ERP)应用将许许多多的商务过程自动化并集成在一起，从而有助于企业保持竞争优势；数字内容管理应用有效地控制存储、检索和资源的再利用，从而理顺了各种操作，有助于避免冗余；供应链管理就是对供应链中的货物和服务、信息、以及金钱以电子方式进行规划和实行流控制，提高系统的智能化程度，产、供、销、财务形成一个统一的整体。使企业处于全面受控状态，压缩投资规模，加快资金周围，在实时反映的基础上，修正企业在日常生产经营过程中各个环节上的偏差，降低产品成本和不必要的原料和在制品积压。ERP将和供应链管理（SCM），客户关系管理（CRM），商业职能（BI），知识管理（KM）以及电子商务完全融合在一起。这些系统将会象一个团队一样工作，经常性地和客户进行联系，从而为他们提供服务，出谋划策以及保证系统的正常运行。针对目前国内实业公司存在的问题，本文设计一个以物料流处理为主，具有一定智能特性和网络特性的管理系统。该系统不仅能智能的控制企业的物流情况，而且还具有操作方便、便于纠错的特点。概括起来系统的优点如下:（1）用户基本资料一次性建立，便于规范控制。（2）物料控制半自动化，加强了各个部门之间的联系。（3）提高库存管理的服务水平，最大限度地降低库存量，包括中间库存和在制品的库存，以减少在库存上的资金积压。（4）最大限度的保证订货任务的按期完成。（5）提高计划的可能性，实现均衡生产。（6）集成管理职能，提高管理效率。本文主要阐述了进销存管理系统的设计目标，系统要求、总体设计、详细设计、测试等。最后是本次毕业设计的总结和体会。最初本着尽可能完成ERP的各项功能的原则，将物料控制到只在需要的时候向需要的部门按需要的数量，提供所需要的物料，也就是说，它既要防止物料供应滞后于对他们的要求，也要防止物料过早地出产和进货，以免增加库存，造成物资和资金的积压，设计了这套管理软件，但在设计的过程中发现许多实际问题非常复杂，软件很难控制，本着能自动化的尽量自动化，不容易实现自动化的则人为操作，由于能力有限和时间的限制，系统的设计难免会存在不足之处，敬请各位同学、老师不吝赐教。6第二章系统分析2.1问题的提出本公司目前存在的问题是：信息化不足，计算机使用率低，大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很难克服，仓库管理很不合理，不能及时根据需要调整库存。公司希望解决的问题是：缺少一个集成的信息平台和信息系统，而各个业务部门之间缺少信息沟通（即重复劳动）和共享是传统库存管理中资金占用过大的主要原因之一。解决企业内部统一的物料编码管理，物流管理中的信息流通。库存积压与物料的配套问题。完善质量检验，对生产过程中的质量信息进行全面管理，包括原材料、外购外协件、半成品、成品各道工序的质量控制，用户反馈，售后服务，并对各种数据进行统计分析。生产管理，对车间作业进行管理，对施工通知单、设计更改通知单进行制订与查询。销售部门能方便地根据预测信息、各仓库的库存信息和客户的要货情况做出货物的调拨计划和改制计划。随时了解供应商的供货（原材料和外协加工）执行情况、制造车间的加工（合格、报废、返工等）执行情况及公司的各仓库库存情况，以便随时协调或采取合适的补救措施管理供应商，在供应到货的到期日前，主动与供应商联系，检查及时到货的可能性；同时在物流和信息流上允许供应商的部分零件直接发货到客户处。对供应商的考核从质量、交货及时程度和价格上给出统计数据。计划过程不太理想，无物料清单，凭经验办事；对计划的执行率未作统计。现有量、在制品、再途库存和历史记录等多方位查询需求。库存信息与供应和生产等各部门的及时反馈和共享问题信息查询与决策，对公司的各种资源与信息进行查询，包括销售、采购、生产、质量、人事、财务等信息数据进行查询、统计与分析，对根据信息作出快速合理的经营决策，增强应变反应能力。2.2分析问题本公司是以订单为依据进行生产的实业公司，公司的主要流程是：接到一张销售订单，由销售部门转化为内部订单，转给生产部门，生产部门根据订单上的产品、数量，技术部已经配好的物料清单，及各车间半成品储存量，汇总材料需求，然后根据库存情况决定请购及预约情况，采购部门根据请购单下采购单，然后材料入库，在手工操作的条件下，各个部门之间的沟通困难，比如，当采购部下完采购订单之后，仓库是否如期到货，必须去仓库询问，而且即使询问了，有时候因为订单较多材料有可能重复，而无法确定是哪一张采购单到货，哪一张没有到货，再例如，销7售部门下过内部订单之后，就容易了解到这个单子上的这批货物到底处于什么状态，是已发完，还是未发，生产是否完毕等，要无数次的询问仓库和生产部门才能了解到部分情况，等等，这一系列的问题迫待解决，随着经济的全球化以及中国经济改革的逐渐深化，制造业面临着越来越激烈的竞争，改善企业内部以及整个供应链各个环节的管理、调度及资源配置，迅速适应客户的新需求和市场新机遇的能力，是中国企业赢得竞争胜利的决定性因素，如何快速有效地实现跟单，如何有效的控制库存，这一切都是本管理系统所力求实现的功能。从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，企业资源计划就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，以及其他更多的东西。如果一个企业资源计划系统真正想要最大限度地提高其生产能力，它必须能够非常融洽地和其他关键性的商务领域进行交流。2.3系统设计目标2.3.1系统设计的长远目标：实现ERP系统1系统运行集成化：这是ERP应用成功在技术解决方案方面最基本的表现。ERP系统是对企业物流、资金流、信息流进行一体化管理的软件系统，其核心管理思想就是实现对“供应链（SupplyChain）”的管理。软件的应用将跨越多个部门甚至多个企业。为了达到预期设定的应用目标，最基本的要求是系统能够运行起来，实现集成化应用，建立企业决策完善的数据体系和信息共享机制。一般来说，如果ERP系统仅在财务部门应用，只能实现财务管理规范化、改善应收帐款和资金管理；仅在销售部门应用，只能加强和改善营销管理；仅在库存管理部门应用，只能帮助掌握存货信息；仅在生产部门应用只能辅助制定生产计划和物资需求计划。只有集成一体化运行起来，才有可能达到：降低库存，提高资金利用率和控制经营风险；控制产品生产成本，缩短产品生产周期；提高产品质量和合格率；减少财务坏帐、呆帐金额等。这些目标能否真正达到，还要取决于企业业务流程重组的实施效果。2业务流程合理化：这是ERP应用成功在改善管理效率方面的体现。ERP应用成功的前提是必须对企业实施业务流程重组，因此，ERP应用成功也即意味着企业业务处理流程趋于合理化，并实现了ERP应用的以下几个最终目标：企业竞争力得到大幅度提升；企业面对市场的响应速度大大加快；客户满意度显著改善。3绩效监控动态化：ERP的应用，将为企业提供丰富的管理信息。如何用好这些信息并在企业管理和决策过程中真正起到作用，是衡量ERP应用成功的另一个标志。在ERP系统完全投入实际运行后，企业应根据管理需要，利用ERP系统提供的信息资源设计出一套8动态监控管理绩效变化的报表体系，以期即时反馈和纠正管理中存在的问题。这项工作，一般是在ERP系统实施完成后由企业设计完成。企业如未能利用ERP系统提供的信息资源建立起自己的绩效监控系统，将意味着ERP系统应用没有完全成功。4理改善持续化：随着ERP系统的应用和企业业务流程的合理化，企业管理水平将会明显提高。为了衡量企业管理水平的改善程度，可以依据管理咨询公司提供的企业管理评价指标体系对企业管理水平进行综合评价。评价过程本身并不是目的，为企业建立一个可以不断进行自我评价和不断改善管理的机制，才是真正目的。这也是ERP应用成功的一个经常不被人们重视的标志。2.3.2系统设计近期（1）建立基本资料信息库，规范所有资料信息。（2）物料控制半自动化，加强了各个部门之间的联系。（3）高库存管理的服务水平，最大限度地降低库存量，包括中间库存和在制品的库存，以减少在库存上的资金积压。（4）最大限度的保证订货任务的按期完成。（5）提高计划的可能性，实现均衡生产：（6）集成管理职能，提高管理效率。9第三章系统总体设计3.1数据流图顶层数据流图如图3-1所示图3-1进销存管理系统顶层数据流图100层数据流图如图3-2所示：图3-2进销存管理系统0层数据流图111层数据流图如图3-3所示：图3-3进销存管理系统1层数据流图12图3-3进销存管理系统1层数据流图（续）133.2部分数据字典类，因为许多地方用到编号，因此将四项和为数据流图描述了系统的分解，但没有对图中各成分进行说明，数据字典就是为了数据流图的每个数据流、文件、加工，以及组成数据流或文件的数据项作出说明。因篇幅限制，每样仅举例说明数据流条目：出库单=出库单号+日期+客户名称+物资类别+制单人员+记帐人员+发货人+状态+销售订单号+品名+单位+数量+规格+备注+单价各类财务统计报表=仓库材料消耗汇总（成本项目）+仓库材料消耗汇总（按车间）+材料收发存明细A+材料收发存明细B+材料收发存明细C+材料收发存分类汇总表+木材消耗汇总表。文件条目：文件名称：原材料库存文件。简述：保存原材料的基本资料。组成：材料编号+品名型号+规格尺寸+单位+采购计量单位+参数+数量+最低数量+最高数量+单价+备注+大大分类+大分类+分类+小分类。文件名称：销售文件。简述：保存所有销售订单的文件。组成内部定单号+订货日期+客户编号+总金额+预收率NEWCASTLE号+PO单号包装办法+品质要求+内装箱+外装箱+MADEINCHINA+特别指示+箱正侧内+状态+型号+色号+木材尺寸+光泽度+内绒+表面处理+数量+出货日期+单价。数据项条目：名称：材料编号简述：材料编号分四个字段（大大分类+大分类+分类+小分类），可以将材料分门别。一项保存一个冗余字段。为了便于查找。3.3E-R图14程序总体E-R图如图3-4所示：图3-4程序总体E-R图人员管理模块如图3.5所示：图3-5人员管理模块15材料管理模块如图3-6所示：图3-6材料管理模块3.4功能模块3.4.1程序层次程序层次如图3-7所示：登陆界面管理系统界面进库管理出库管理修改密码按日期查询按物品查询基本管理查询按人员查询系统设置人员设置操作员设置数据整理打印统计帮助等图3-7程序层次图163.4.2模块功能说明篇幅所限，仅挑选部分功能说明。登陆验证功能：主要功能为身份验证，防止非法用户进入系统。实现方法如图3-8所示：图3-8登陆验证实现方法3.4.3系统数据表仓库物资信息表（材料表），如表3-1所示：编号字段名称数据类型说明1自动编号Long数值Primarykey主键2规格Text文本必填,字段不允许空串3型号Text文本必填,字段不允许空串4数量Long数值必填字段5价格Long数值必填字段6名称Text文本必填字段表3-1仓库物资信息表进货人员信息表，如表3-2所示：编号字段名称数据类型说明1自动编号Long数值Primarykey主键2姓名Text文本必填,字段不允许空串3联系方式Text文本必填,字段不允许空串表3-2进货人员信息表17入库、出库单信息表，如表3.3所示：编号字段名称数据类型说明1自动编号Long数值Primarykey主键2姓名Text文本必填,字段不允许空串3联系方式Text文本必填,字段不允许空串4货物名称Text文本必填,字段不允许空串5货物数量Long数值必填,字段不允许空串6货物规格Text文本必填,字段不允许空串7货物型号Text文本必填,字段不允许空串8价格Long数值必填,字段不允许空串9日期Text文本必填,字段不允许空串表3-3入库、出库单信息表18第四章系统详细设计根据内部订单预定材料的流程图如图4.1所示：说明：KDYsl：可调用数量XQsl：需求数量KCsl：库存数量可调用数量=库存数量最低库存量已预约数量设计时需求数量与库存数量、可调用数量分别比较可得出种情况需求数量可调用数量and需求数量库存数量（因为库存数量=可调用数量所以可写成XQslKDYsl）需求数量=可调用数量and需求数量=可调用数量所以可写成KDYsl库存数量(因为库存数量=可调用数量所以不存在这种情况)需求数量=可调用数量所以可写成XQslKDYsl和KDYsl=B.YFYF);SELECTA.DHDH,A.KDRQ,B.CLBH,B.SLSL,B.SLSL*B.DJDJASJEJEFROMK_clrk_MASAINNERJOINK_clrk_DASBONA.DHDH=B.DHDHWHERESTATUS=1;SELECTA.CLBH,B.YFYF,IIf(A.RKSL=0,IIf(ISNULL(QCSL),0,QCJE/QCSL),(B.QCJE+A.RKJE)/(B.QCSL+A.RKSL)ASDJDJFROMAVER_MTH_RK2ASALEFTJOINT_SFC_QCASBONA.CLBH=B.BHBH;功能函数PublicSubDo_Aver_DJ()Dimda_RecAsADODB.RecordsetDimda_SQLAsStringSetda_Rec=AppCN.Execute(select*fromAVER_DJ)AppCN.BeginTransDoWhileNotda_Rec.EOFda_SQL=updateJ_clclsetDJDJ=&da_Rec.Fields(DJDJ)&whereBHBH=&da_Rec.Fields(CLBH)&AppCN.Execute(da_SQL)da_SQL=updateK_LLLL_DsetJEJE=&da_Rec.Fields(DJDJ)&*k_LLLL_D.SLSLwhereK_LLLL_D.CLBH=&_da_Rec.Fields(CLBH)&andK_LLLL_D.DHDHIN(SELECT25DHDHFROMAVER_mth_LL2)AppCN.Execute(da_SQL)da_Rec.MoveNextLoopAppCN.CommitTransEndSub收发存明细,追踪某中材料某月的进出库情况，并显示出是那一帐单据进行操作，如果是领料则在摘要中写明成本项目。计算出每次操作之后的结存数量及金额。PrivateSubCmdMe_Click(IndexAsInteger)IfIndex=0ThenCallPrintLstv(Me.LstView,LoadResString(804),材料&m_CLBH&收发存明细A,1,1)ElseUnloadMeEndIfEndSubPrivateSubDoGroupCube(SlColAsString,JeColAsString)DimarrSlCol()AsStringDimarrJeCol()AsStringDimkAsIntegerDimtotalAsDoubleCallON_GetArray(SlCol,arrSlCol)CallON_GetArray(JeCol,arrJeCol)LstView.ListItems.Add,LstView.ListItems(LstView.ListItems.Count).SubItems(1)=总计Fork=0ToUBound(arrSlCol)total=0ForJ=1ToLstView.ListItems.Counttotal=total+Val(LstView.ListItems(J).SubItems(Val(arrSlCol(k)NextLstView.ListItems(LstView.ListItems.Count).SubItems(Val(arrSlCol(k)=totalNextFork=0ToUBound(arrJeCol)total=026ForJ=1ToLstView.ListItems.Counttotal=total+Val(LstView.ListItems(J).SubItems(Val(arrJeCol(k)NextLstView.ListItems(LstView.ListItems.Count).SubItems(Val(arrJeCol(k)=Format(total,#0.00)NextEndSubPrivateSubForm_Load()Dimfl_NumAsSingleDimfl_CashAsDoubleMe.Icon=LoadResPicture(101,vbResIcon)Me.Move(Screen.Width-Me.Width)/2,(Screen.Height-Me.Height)/4Me.Caption=查看&m_CLBH&的明细情况CallDoStyleIfGetInitData(fl_Num,fl_Cash)=TrueThenCallDoShow(fl_Num,fl_Cash)CallDoRemain(fl_Num,fl_Cash)EndIfEndSubPrivateSubDoShow(m_drNumAsSingle,m_drCashAsDouble)DimdsRecAsADODB.RecordsetDimdsSQLAsStringDimIAsIntegerDimitmXDimrd_theSLAsSingleDimrd_theJEAsDoubleDimrd_RKJEAsDouble,rd_CKJEAsDoublerd_theSL=m_drNumrd_theJE=m_drCashdsSQL=select*fromSFC_MXA3whereCLBH=&m_CLBH&SetdsRec=AppCN.Execute(dsSQL&ANDMonth(KDRQ)=&m_Month&ANDYear(KDRQ)=&m_Year)IfdsRec.EOFThenMsgBox无效的材料编号！ExitSubEndIfI=1SetitmX=LstView.ListItems.Add(,A&I)27itmX.SubItems(1)=dsRec.Fields(KDRQ).ValueitmX.SubItems(3)=期初数量itmX.SubItems(10)=rd_theSLitmX.SubItems(11)=Format(m_drCash,#,#0.00)DoWhileNotdsRec.EOFI=I+1SetitmX=LstView.ListItems.Add(,A&I)rd_RKJE=IIf(dsRec.Fields(RKJE).Value=,0,dsRec.Fields(RKJE).Value)rd_CKJE=IIf(dsRec.Fields(CKJE).Value=,0,dsRec.Fields(CKJE).Value)rd_theSL=rd_theSL+Val(dsRec.Fields(RKSL)-Val(dsRec.Fields(CKSL)m_drCash=m_drCash+rd_RKJE-rd_CKJEitmX.SubItems(1)=dsRec.Fields(KDRQ).ValueitmX.SubItems(2)=dsRec.Fields(DHDH).ValueitmX.SubItems(3)=dsRec.Fields(CBXM).ValueitmX.SubItems(4)=dsRec.Fields(RKSL).ValueitmX.SubItems(5)=IIf(dsRec.Fields(RKDJ).Value=,Format(dsRec.Fields(RKDJ).Value,#,#0.00)itmX.SubItems(6)=IIf(dsRec.Fields(RKJE).Value=,Format(dsRec.Fields(RKJE).Value,#,#0.00)itmX.SubItems(7)=dsRec.Fields(CKSL).ValueitmX.SubItems(8)=IIf(dsRec.Fields(CKDJ).Value=,Format(dsRec.Fields(CKDJ).Value,#,#0.00)itmX.SubItems(9)=IIf(dsRec.Fields(CKJE).Value=,Format(dsRec.Fields(CKJE).Value,#,#0.00)itmX.SubItems(10)=rd_theSLitmX.SubItems(11)=Format(m_drCash,#,#0.00)dsRec.MoveNextLoopEndSubPrivateSubDoStyle()DimintWidAsIntegerintWid=1200LstView.ColumnHeaders.Add,序号,600LstView.ColumnHeaders.Add,日期,1000,lvwColumnRightLstView.ColumnHeaders.Add,凭证编号,intWid,lvwColumnRightLstView.ColumnHeaders.Add,摘要,intWid,lvwColumnRight28LstView.ColumnHeaders.Add,收入数量,intWid,lvwColumnRightLstView.ColumnHeaders.Add,收入单价,intWid,lvwColumnRightLstView.ColumnHeaders.Add,收入金额,intWid,lvwColumnRightLstView.ColumnHeaders.Add,发出数量,intWid,lvwColumnRightLstView.ColumnHeaders.Add,发出单价,intWid,lvwColumnRightLstView.ColumnHeaders.Add,发出金额,intWid,lvwColumnRightLstView.ColumnHeaders.Add,结存数量,intWid,lvwColumnRightLstView.ColumnHeaders.Add,结存金额,intWid,lvwColumnRightEndSubPrivateSubForm_Resize()OnErrorResumeNextLstView.Move0,100+500+50,Me.ScaleWidth,Me.ScaleHeight-Me.StatusBar1.Height-650EndSubPrivateFunctionGetInitData(m_giNumAsSingle,m_giCashAsDouble)AsBooleanDimdrRec_1AsADODB.RecordsetDimdrRec_2AsADODB.RecordsetDimdrSQLAsStringGetInitData=Truem_giNum=-2002.1994m_giCash=-2002.1994drSQL=select*fromT_SFCWhereBHBH=&m_CLBH&drSQL=drSQL&ANDMonth(YFYF)=&m_Month&ANDYear(YFYF)=&m_YearSetdrRec_1=AppCN.Execute(drSQL)IfdrRec_1.EOFThendrSQL=select*fromT_SFC_QCWhereBHBH=&m_CLBH&drSQL=drSQL&ANDMonth(YFYF)=&m_Month&ANDYear(YFYF)=&m_YearSetdrRec_2=AppCN.Execute(drSQL)IfdrRec_2.EOFThenMsgBox没有盘点，没有期初期末数据！GetInitData=FalseElsem_giNum=drRec_2.Fields(QCSL).Valuem_giCash=drRec_2.Fields(QCJE).ValueEndIf29drRec_2.Close:SetdrRec_2=NothingElsem_giNum=drRec_1.Fields(QCSL).Valuem_giCash=drRec_1.Fields(QCJE).ValueEndIfdrRec_1.Close:SetdrRec_1=NothingEndFunctionPrivateSubForm_Unload(CancelAsInteger)m_CLBH=m_Month=0m_Year=0EndSubPrivateSubDoRemain(m_drNumAsSingle,m_drCashAsDouble)Dimrd_theSLAsSingleDimrd_theJEAsDoubleDimrd_RKJEAsDouble,rd_CKJEAsDoublerd_theSL=m_drNumrd_theJE=m_drCashForI=1ToMe.LstView.ListItems.Countrd_theSL=rd_theSL+Val(LstView.ListItems(I).SubItems(4)-Val(LstView.ListItems(I).SubItems(7)LstView.ListItems(I).SubItems(10)=rd_theSLIfrd_theSL0Thenrd_CKJE=Val(Format(LstView.ListItems(I).SubItems(9),#0.00)rd_theJE=rd_theJE+rd_RKJE-rd_CKJEElserd_theJE=0EndIfLstView.ListItems(I).SubItems(11)=Format(rd_theJE,#,#0.00)NextEndSub30第六章总结与展望6.1总结随着经济的全球化以及中国经济改革的逐渐深化，制造业面临着越来越激烈的竞争，改善企业内部以及整个供应链各个环节的管理、调度及资源配置，迅速适应客户的新需求和市场新机遇的能力，是中国企业赢得竞争胜利的决定性因素，而快速有效地实施企业资源计划（ERP）系统是被实践证明了的提高企业竞争力的最有效的方法之一。从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，ERP就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，以及其他更多的东西。如果一个ERP系统真正想要最大限度地提高其生产能力，它必须能够非常融洽地和其他关键性的商务领域进行交流。当前,随着经济的全球化以及中国经济改革的逐渐深化，制造业面临着越来越激烈的竞争，改善企业内部以及整个供应链各个环节的管理、调度及资源配置，迅速适应客户的新需求和市场新机遇的能力，是中国企业赢得竞争胜利的决定性因素。设计本系统正是为了适应这种形势。在有限的时间内凭个人之力是很难实现所有的功能。因此系统有基本目标和长远目标。系统设计基本的目标是尽可能实现物流控制自动化，长远目标是实现ERP管理。系统投入使用后，将大大减少公司的管理部门的劳动量，改善了企业内部以及整个供应链各个环节的管理、调度及资源配置，使得管理合理规范。尽量合理的控制物流，尤其是材料库存的控制，将材料控制到只在需要的时候向需要的部门按需要的数量，提供所需要的物料，也就是说，它既防止物料供应滞后于对他们的要求，也防止了物料过早地出产和进货，以免增加库存，造成物资和资金的积压。本系统采用VisualBasic为主要开发工具，结合Access数据库管理系统与NT操作系统。既考虑了系统的需求，又兼顾了运行的
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号