物流信息技术课程设计

第一章系统规划确立新系统建立目标在发达国家，市场经济逐渐成熟，存在的机会越来越少，部分企业已经不可能依靠找到好的项目来保持生存与发展，企业的生存与发展必须依靠管理。随着“以信息化带动工业化”发展战略的不断深入，信息技术已经成为改善管理、提高核心竞争力最重要的手段。将信息技术引入生产管理过程是一个革命性进步。企业管理效率在于对可控制的人、财、物的动态配置，而决定配置效率的是信息。鸡西矿业集团财务管理所面临的问题：（1）采购管理方面物资采购的数量、金额信息透明度不够，造成财务管理方面无法正常进行登记入账的工作。（2）由于管理手段落后，甚至出现“强卖、强买”的情况，致使财务部门无法正常的进行收款、付款的工作。采购部门通过各种渠道采购物资，不管会不会使用到，只要物资入库财务部门就挂账付款。（3）物资供应采购的物品有13000种，一年产生上万份合同，最小合同额只有几十元，财务审计部门根本无法逐份审核。基于鸡西矿业集团物资采购及存储管理的财务部门物流信息系统建立的目标：（1）加强物资采购数量、金额的信息的公开透明性，实现财务部门的正常登记入账工作。（2）提高管理能力，杜绝“强卖、强买”的行为。（3）实现合同整合与分类，避免合同金额过小、份数过多情况发生。系统开发的可行性分析1.2.1技术可行性分析VisualBasic是一个易学易用的集成开发环境：VisualBasic为用户设计界面、编写代码、调试程序、编译程序、制作应用程序安装盘等提供了友好的集成开发环境。前文我已经介绍了VB的特点，通过这样一个简单，高效且易用的软件，可以成功且迅速的编写出程序。Access数据库的方便与实用，与其友好的界面以及方便操作的平台都是我选择它做数据库的主要原因，当然其与WIN系列系统的兼容于可用性也是我选择它的重要依据。VisualBasic和Access的兼容性是不容置疑的，虽然是第一次将两种软件进行实际的结合使用，但是在技术上并没有太多的问题所以使用这两个软件进行程序的编写以及数据库的应用都没有问题。经济可行性分析成本上投入并不只是初期的第一步，在后期系统的维护与运行中，也需要进行一小部分的投入。如果在没有财务管理系统的情况下，企业需要大量的人力以及资源来满足公司财务方面的管理以及保障，同时我们不能保证在管理的过程中出现这样那样的问题，当然并不是指拥有了财务管理系统就没有了这方面的问题但是由于财务管理系统是一个非常容易就能读懂并且使用的管理系统软件，在企业财务方面，就不会像管理财务报告那么复杂和繁琐了。同时，在使用财务系统的时候，可以简单并且直接的将财务信息进行汇总和处理，方便快捷。从长远角度来看，随着科技化的日益普及和应用，信息化在企业中的使用已经成为了必然，而如何合理的利用信息系统，并且通过信息系统在很多方面实现价值和利润就成为了关键中的关键，拥有这样一个方便且简单的财务系统，并且不需要付出太多的代价，绝对是一个非常好的方案。组织和管理的可行性分析此次财务系统的开发得到了鸡西矿业集团财务部门主要负责人的大力支持，期待着设计出的财务系统能够财务信息的汇总与处理，财务部门的其他人员也期待着财务系统的成功开发，帮助他们能够快速准确工作，减少工作量、提高效率。1.3系统开发进度此物流信息系统设计总体时间为两周，2018年6月11日至2018年6月24日，具体计划安排如下：（1）2018.6.11-2018.6.12：需求分析；（2）2018.6.13-2018.6.14：系统规划；（3）2018.6.15-2018.6.19：系统分析及设计；（4） 2018.6.20-2018.6.23：应用程序开发；（5） 2018.6.24：综合评价，结论；以及文档整理提交。第二章系统分析2.1系统需求分析随着互联网的爆炸性发展，人们越来越习惯于利用网络来实现所需的服务，网络已深深影响到人们生活的各个方面。另外，鸡西矿业集团传统的财务管理模式已经无法满足自身的需要，财务管理系统，不仅能够在我们计算与管理过程中避免出现的误差与错失，并且能够满足鸡西矿业集团的常规与特殊财务方面的需求，而且其方便快捷，实现技术也比较成熟。该系统主要分为两部分：资金输入部分和资金输出部分，其中资金输入部分主要包括鸡西矿业集团创造的价值与在投资过程中所获得的利润，而资金输出部分则重点体现在鸡西矿业集团投资和在日常工作中所涉及到的需求。这两部分通归为结账以及报表两类，除此之外，本系统还可对用户的账号和队系统的管理权限进行管理。管理员需要给财务处的人员分配用户名和密码，及设定使用者的级别。同时，还需要给财务资源进行分级，以确定哪些级别的用户可以浏览。当然除了这些，我们对于系统中应有的查询功能也进行了构建，能够在系统中合理并有效的查询出所需的账目及财务咨询将会是提高工作效率的一个重要组成部分。2.2组织结构分析组织结构图鸡西矿业集团组织结构包括行政办公部、财务部、采购管理部、仓储保管部、销售管理部、审计部、生产技术部。其中仓储保管部包括入库管理和出库管理。吗四矿业生QJ|图2.1鸡西矿业集团整体组织结构图功能结构图在鸡西矿业集团组织结构图的基础上，做出组织机构业务功能层次图来描述企业的主要业务构成，描述从系统目标到各项功能的层次关系。集团主要业务功能包括行政办公、财务管理、采购管理、仓储保管、销售管理、审计以及生产技术功能。其中行政办公包括人事管理、效绩管理以及招聘培训等，财务管理包括基本财务会计处理和财务管理会计处理，采购管理包括供应商管理和材料采购订制等，仓储保管则包括出、入库信息及物资管理，销售管理包括销售方面信息的统计与分析，审计负责合同及账务的核对等工作的处理，生产技术包括生产计划、制造工艺以及车间管理等。鸡西矿业集囲］图2.2鸡西矿业集团功能结构图财务管理业务组织结构功能图鸡西矿业集团在财务管理业务流程中，涉及的主要部门有采购部、仓储保管部、销售管理部、财务会计部、审计部。在整个财务管理业务工程中，总经理所负责的工作主要是信息系统建设的决策和对整个系统建设做出决策，并进行监督，在整个业务过程至关重要。按照正常流程来说，采购部人员在采购之前需要提供采购计划单，然后再由财务部门进行预算计划。在完成采购之后，采购部门也需要提供采购回执单或者凭证交予财务部门进行账务处理工作，由此可以看出采购部门与财务部门之间的关系联系紧密。采购部长负责维护整个采购系统并且做出采购决策，采购计划员则负责根据采购清单，做出采购计划单，并提出采购申请。采购业务员负责在产品入库后填制入库单，还要对整个采购业务活动流程进行跟踪管理，保证整个采购业务的正常进行。其中仓库管理保管部门负责货物的存储工作，以及原材料进出库的管理，在货物入、出库时与财务业务联系较为密切，货物在出库时需要制订入、出库单以及相关凭证，再交由财务会计部门进行财务处理工作。销售管理部门主要负责商品货物销售、商品货物销售情况的统计与分析。财务会计部门主要负责财务信息系统建设与运作维护工作，与采购部的采购业务工作和仓储管理部的出库工作存在紧密联系，需要根据采购计划单制订较为详细的预算清单，以及需要根据入、出库单等相关单据凭证进行账务处理。审计部门要对整个整体组织结构流程中产生的合同进行审核。总经理图2.3鸡西矿业集团财务管理业务涉及部门及人员图2.3业务流程分析鸡西矿业集团建立财务信息系统在财务方面主要是解决应收、应付账款管理方面的数额问题。因而该系统会涉及到三个部门即：采购部门、销售和财务部门。在建立财务信息系统是可将整个财务信息系统可以分为三个模块，即：凭证管理模块、账款管理模块和盈亏积压结算、报表生成模块。如下图：图2.4财务信息系统功能模块2.3.1应付、应收凭证管理模块采购部门在采购原材料后，将原始凭证包括商业发票、采购发票等凭证交予财务部门，由财务部门进行应付凭证的登记。销售部门对销售资料进行处理后，将销售的一些原始凭证包括销售发票交予财务部门，再由财务部门进行应收凭证登记。2.3.2应付、应收账款管理模块在应付、应收凭证的基础上进行应付、应收账簿的登记。在应付、应收账款管理模块中，用户可以对应付、应收账簿进行更新、删除错误信息、查询应收应付账簿中现有的信息。盈亏积压结算管理及报表生成模块在应付、应收凭证管理模块及应付、应收账款管理模块操作的基础上，在期末时会计人员对账簿进行汇总、核对并且对整个会计期间总的应付、应收款项进行汇总与结算。在结算的基础上，形成报表，再由会计人员送交给公司的上层管理者-总经理。在分析了各个模块的功能后，可画出整个财务管理部门的业务流程图，如下图：物料入库图：物料入库雀誉t!库快第雀誉t!库快第盈亏积玉来购入库核算图2.5财务信息系统业务流程图2.4数据流程分析根据鸡西矿业集团的业务流程图，可画出其财务部门的数据流程图。

2.4.1顶层数据流程图财务信息系统顶层数据流程图说明的是采购和销售部门向财务部提供采购和销售发票，财务系统通过处理这些原始票据自动生成报表送交给总经理，同时会生成结算单交予客户与供应商。购n[3無尸「销齢购n[3無尸「销齢I；图2.6财务信息系统顶层数据流程图2.4.21层数据流程图从财务信息系统第一层数据流程可知财务信息系统可分为三个模块，即应付管理模块、应收管理模块和报表生成模块。应付管理模块通过凭证信息的储存和调用与账款管理模块联系起来，账款管理又通过账簿信息的储存和调用与报表模块联系起来。最后生成报表送交给总经理。图2.7财务信息系统1层数据流程图3.O图2.7财务信息系统1层数据流程图3.O扌陸表上三咸JX4 II2.4.32层数据流程图财务信息系统第二层数据流程是财务信息系统的具体操作过程。首先由采购部和销售部提供采购和销售发票，在由财务部进行审核和汇总，对应收、应付凭证进行登记，在凭证登记后在进行相应的应收应付账簿登记，最后在会计期末应收应付账簿进行核对汇总生成报表并交给总经理，同时会生成结算单交予客户与供应商。图2.8财务信息系统2层数据流程图2.5数据字典数据字典是指对数据的数据项、数据结构、数据流、数据存储、处理逻辑、外部实体等进行定义和描述，其目的是对数据流程图中的各个元素做出详细的说明，鸡西矿业集团财务管理系统数据字典中有四类条目：数据流，数据存储，处理，外部实体。

数据流条目数据流条目用于分析数据流程图中的数据流动情况，对每一个数据流程图来说，有多少个数据流就有多少个数据流条目，数据流条目的编码只要写出一些关键的重点数据流，数据流条目的格式如下表：表2.5.1-1数据流条目表编号名称输入输出组成3-001货物情况原材料供应商采购部、销售部原材料编码、货物编码、品种名称、规格数据存储条目表2.5.2-1数据存储条目表编号名称输入输出组成D1应付账款原材料、供应商采购部原材料编码、品种名称、价格D2应收账款货物、客户销售部货物编码、品种名称、价格D3应付款项票据米购发票、米购订单财务部结算单、财务报表D4应收款项票据销售发票、销售订单财务部结算单、财务报表处理逻辑条目处理逻辑条目所涉及的属性也比较少，通过有关描述更能直观的将他们的实际情况反映出来。

表2.5.3-1处理逻辑条目表编号名称输入处理逻辑输出Pl.l应付款项核对采购发票根据米购发票整理出应付财务详情并核算应付款项票据Pl.2付款应付款项票据根据应付款项票据进行付款并结算付款单、结算单P2.1应收款项核对销售发票根据销售发票整理出应付财务详情并核算应收款项票据P2.2收款应收款项票据根据应收款项票据进行收款并结算收款单、结算单P3.0报表生成应付、应收账款款项根据各类发票整理出各项财务详情并核算、结算生成报表财务报表外部实体条目外部实体条目所涉及的属性也比较少，通过有关描述更能直观的将他们的实际情况反映出来。表2.5.4-1外部实体条目表编号名称说明输入输出01采购部采购部门在采购原材料后把把原始凭证包括商业发票、采购发票等凭证送交给财务部门，有财务部门进行应付凭证的登记原材料采购凭证，米购单，米购发票等02财务部会计人员对账簿进行汇总、核对，对整个会计期间总的应收应付款项进行会汇总结算。在结算的基础上，形成报表，有会计人员送交给公司的上层管理者应收、应付凭证应收、应付账簿，总账03销售部销售部门对销售资料进行处理后，把销售的一些原始凭证（销售发票）送交给财务部门，在由财务部门进行应收凭证登记货物销售凭证，销售单，销售发票等

第三章系统设计3.1系统总体结构设计在鸡西矿业集团的信息系统中包含采购管理系统、库存管理系统、销售管理系统、财务信息系统。财务信息系统主要是帮助公司收集和管理应付、应收财务信息。在财务信息管理模块中，财务部门有权限的人员可以通过财务信息系统进行应付、应收凭证的管理（输入、查询、修改、更新等操作）；也可以进行应付、应收账簿的管理（输入、修改、查询等）；会计期末，用户可用该系统进行结算和报表的生成。图3.1总系统结构图图3.1总系统结构图3.2代码设计在财务信息系统中编码所涉及的部分包括采购物品代码、销售物品代码、采购发票代码、销售发票代码、应付凭证、应收凭证，具体的编码如下。

采购物品代码采购物品代码以供应商为主体类型、产品类别和顺序号进行编制。如：我们可以设定从供应商代码01，产品类别代码：一次性消耗品为001，非一次性消耗品为002，原材料为003。表3.2.1-1采购物品编码设计表代码对象采购物品代码代码类型01+产品类别号+顺序号位数7校验位1代码数量200使用期限无限使用范围本公司举例说明采购的电缆代码为0100101其他举例手套代码为0100102，口罩代码为0100103，皮带机代码为0100201，喷浆机代码为0100202，通风机代码为0100203，防爆电机代码为0100204，石灰石代码为0100301，原始煤代码为0100302，助燃剂代码为0100303，矿物代码为0100304采购发票代码米购发票代码以CG+米购物品代码+时间+顺序号进行编制。表3.2.2-1采购发票代码设计表代码对象采购物品代码代码类型CG+米购物品代码+时间+顺序号位数15校验位1代码数量200使用期限无限使用范围本公司举例说明3月1日采购第一批一次性消耗品电缆的采购发票代码为CG01001010301001应付凭证代码应付凭证代码以YF+顺序号+日期进行编制。

表3.2.3-1应付凭证代码设计表代码对象应付凭证代码代码类型YF+顺序号+时间位数15校验位1代码数量200使用期限无限使用范围本公司举例说明3月1日采购第一批一次性消耗品电缆的应付凭证为YF0010301销售物品代码销售物品代码以客户为主体类型、产品类别和顺序号进行编制。如：我们可以设定从客户代码02，产品类别代码：一次性消耗品为001，非一次性消耗品为002，原材料为003。表3.2.4-1销售物品编码设计表代码对象采购物品代码代码类型02+产品类别号+顺序号位数7校验位1代码数量200使用期限无限使用范围本公司举例说明销售的有烟煤代码为0200101其他举例无烟煤代码为0200102，精品煤代码为0200103，蜂窝煤代码为0200104销售发票代码销售发票代码以XS+采购物品代码+时间+顺序号进行编制。表3.2.5-1采购发票代码设计表代码对象销售物品代码代码类型XS+销售物品代码+时间+顺序号位数15校验位1代码数量200使用期限无限使用范围本公司举例说明4月3日销售第一批一次性消耗品有烟煤的采购发票代码为XS02001010403001应收凭证代码应收凭证代码以YS+顺序号+日期进行编制。

表3.2.6-1应付凭证代码设计表代码对象应收凭证代码代码类型YS+顺序号+时间位数15校验位1代码数量200使用期限无限使用范围本公司举例说明4月3日销售第一批一次性消耗品有烟煤的应收凭证为YS00104033.3数据结构设计3.3.1应付账款管理E-R图■4.采购部工离证殳计日期采购经手人吊rft时弄酣4j.-f呈AJ总经理审査IIdi>理姓窖摘要宅i.V核、厂iSHiii■4.采购部工离证殳计日期采购经手人吊rft时弄酣4j.-f呈AJ总经理审査IIdi>理姓窖摘要宅i.V核、厂iSHiii|应忖账敝E-II-图3.2应付账款管理E-R图采购部与采购发票的关系模型，如下表。

表3.3.1-1采购部联系电话、职工数、位置获取时间、获取数量、获取人、旦期、联系电话、采购发票经手人、单价、数量、物品名、日期、发票编号在采购部门提供采购发票后财务部门的E-R图中可知采购发票与应付凭证,应付凭证与应付帐簿,应付帐簿与报表间均为多对多的关系；财务部门与采购发票、应付凭证、应付帐簿、报表间均为一对多的关系；管理者与财务部为一对一的关系；管理者与报表间为一对多的关系。根据以上的分析我们可以对其转换为关系模型。如下表：表3.3.1-2财务部联系电话、职工数审核、汇总时间、地点、数量、审核人员号、联系电话、日期采购发票物品名、日期、数量、单价、经手人、设置时间、设置人员号、日期、凭证编号应付凭证凭证编号、本期发生额、日期、摘要、会计科目、设置时间、设置人员号、日期、凭证编号应付账簿会计科目、期末余额、日期、摘要、本期发生额、设置时间、设置人员号、日期、会计科目报表日期、期末余额、本期发生额、摘要、会计科目审查审查时间、会计科目、管理者号管理者管理者号、联系方式、姓名录入2（账簿）时间、录入人员号、日期录入3（报表）时间、录入人员号、会计科目录入1（凭证）时间、录入人员号、凭证编号

3.3.2应收账款管理E-R图图3.3应收账款管理E-R图由E-R图转换成关系模型，由于销售部门与销售发票的关系为一对多的关系,因而转换为的关系模型如下表。表3.3.2-1销售部联系电话、职工数、销售功能填制时间、填制数量、填制人、日期销售发票销售物品名、经手人、日期、销售数量、销售单价、发票编号在销售部门提供采购发票后财务部门的E-R图中可知采购发票与应收凭证，应收凭证与应收帐簿，应收帐簿与报表间均为多对多的关系；财务部门与销售发票、应收凭证、应收帐簿、报表间均为一对多的关系；管理者与财务部为一对一的关系；管理者与报表间为一对多的关系。根据以上的分析我们可以对其转换为关系模型。如下表：

表3.3.2-2财务部联系电话、职工数审核、汇总时间、地点、数量、审核人员号、联系电话、日期销售发票物品名、日期、销售数量、销售单价、经手人设置时间、设置人员号、日期、凭证编号应收凭证凭证编号、本期发生额、日期、摘要、会计科目设置时间、设置人员号、日期、凭证编号应收账簿会计科目、期末余额、日期、摘要、本期发生额设置时间、设置人员号、日期、会计科目报表日期、期末余额、本期发生额、摘要、会计科目审查审查时间、会计科目、管理者号管理者管理者号、联系方式、姓名录入2（账簿）时间、录入人员号、日期录入3（报表）时间、录入人员号、会计科目录入1（凭证）时间、录入人员号、凭证编号第四章系统实现4.1登录主界面当用户进入鸡西矿业集团财务管理系统后，会弹出系统登录界面，用户首先要进行账号和密码的登录，当用户输入正确的账号和密码后，点击“登录”按钮，即可登录，若用户名或密码错误，则会弹出对话框，显示“账号或密码错误，需要用户点击“登录”按钮，重新登录，用户重新输入正确的账号和密码即可重新登录。图4.1鸡西矿业集团财务管理系统登录界面图财务管理系统登录界面的代码设计：PrivateSubCommand2_Click（）EndEndSubPrivateSubCommand3_Click（）IfMsgBox（"确认注册？"，vbOKCancel,"确认"）=1ThenAdodc1.Recordset.AddNew '添加记录Adodcl.Recordset.Fields（”用户名"）=Textl.TextAdodcl.Recordset.Fields（”密码"）=Text2.TextAdodcl.Recordset.Update '保存数据Textl.Text=""Text2.Text=""EndIfEndSubPrivateSubForm_Load()Form1.Caption="用户登录"EndSubPrivateSubCommand1_Click()Adodc1.Recordset.Find("用户名='"&Text1.Text&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirstText1=""Text2=""Text1.SetFocusMsgBox"用户名不存在",,"提示"Elself(Adodcl.Recordset.Fields(”密码")<>Text2.Text)ThenMsgBox"密码不正确",,"提示"Textl.Text=""Text2.Text=""Textl.SetFocusAdodcl.Recordset.MoveFirstElseTextl.Text=""Text2.Text=""Textl.SetFocusAdodcl.Recordset.MoveFirstForml.HideForm2.ShowEndIfEndSub4.2鸡西矿业集团财务管理系统主页面登录成功后，用户会进入鸡西矿业集团财务管理系统的主界面，鸡西矿业集团财务管理系统主界面是用户登陆后最基础的一个界面，内容包括3个主要方面分别是应付账款管理、应收账款管理、盈亏积压管理。点击按钮即可进入相应的的管理界面，点击返回，则会关闭鸡西矿业集团财务管理系统，返回到登陆主界面。图4.2鸡西矿业集团财务管理系统主界面图鸡西矿业集团财务管理系统主页面的代码设计：OptionExplicitPrivateSubCommand1_Click()Form2.HideForm3.ShowEndSubPrivateSubCommand2_Click()Form2.HideForm5.ShowEndSubPrivateSubCommand3_Click()Form2.HideForm7.ShowEndSubPrivateSubCommand4_Click()Form2.HideForm1.ShowEndSubPrivateSubCommand5_Click()EndEndSub

4.3应付账款管理系统主界面应付账款管理系统主界面设计点击应付账款管理按钮即可进入相应的的管理界面，在应付账款管理主界面上有11个部分组成，输入对应的采购发票编号并点击查询按钮，将会出现此采购发票编号所对应的供应商名称、电话，采购物品名称、代码，采购单价、数量、时间以及应付凭证编号，点击结算按钮，系统将会进行结算过程。此管理页面还有添加按钮，以方便随时添加信息。供应商名称-采购物品容称［采购单价|Be供应商名称-采购物品容称［采购单价|Be1卜TE.图4.3应付账款管理系统主界面图应付账款管理系统主界面的代码设计：OptionExplicitPrivateSubCommand1_Click()DimuAsBoolean,okAsBooleanWithAdodc1.RefreshDoWhileNot.Recordset.EOFu=Adodc1.Recordset.Fields(1).Value=Text1.TextIfuThenok=TrueExitDoElse.Recordset.MoveNextEndIfLoopEndWithIfokThenText2.Text=Adodcl.Recordset.Fields（'供应商名称"）Text3.Text=Adodc1.Recordset.Fields（'供应商电话"）Text4.Text=Adodc1.Recordset.Fields（'采购物品名称"）Text5.Text=Adodc1.Recordset.Fields（'采购物品代码"）Text6.Text=Adodc1.Recordset.Fields（'采购单价"）Text7.Text=Adodc1.Recordset.Fields（'采购数量"）Text8.Text=Adodc1.Recordset.Fields（'采购总额"）Text9.Text=Adodc1.Recordset.Fields（'年"）Text10.Text=Adodc1.Recordset.Fields（'月”）Text11.Text=Adodd.Recordset.Fields（"日”）Text12.Text=Adodc1.Recordset.Fields（'应付凭证编号"）ElseText2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text=""Text10.Text=""Text11.Text=""Text12.Text=""MsgBox"采购发票中无此类信息",,"注意"EndIfEndSubPrivateSubCommand2_Click（）IfMsgBox（"确认结算？",vbOKCancel,"确认"）=1ThenAdodc1.Recordset.AddNew '添加记录Adodc1.Recordset.Fields（"采购发票编号"）=Text1.TextAdodc1.Recordset.Fields（"供应商名称"）=Text2.TextAdodd.Recordset.Fields（”供应商电话"）=Text3.TextAdodd.Recordset.Fields（”采购物品名称"）=Text4.TextAdodd.Recordset.Fields（”采购物品代码"）=Text5.TextAdodc1.Recordset.Fields（"采购单价"）=Text6.TextAdodc1.Recordset.Fields（"采购数量"）=Text7.TextAdodc1.Recordset.Fields（"采购总额"）=Text8.TextAdodc1.Recordset.Fields（"年"）=Text9.TextAdodcl.Recordset.Fields（”月"）=TextlO.TextAdodcl.Recordset.Fields（"日"）=Textll.TextAdodc1.Recordset.Fields（"应付凭证编号"）=Textl2.TextAdodcl.Recordset.Update '保存数据ElseEndIfForm3.HideForm4.ShowEndSubPrivateSubCommand3_Click（）Form3.HideForm2.ShowEndSubPrivateSubCommand4_Click（）EndEndSubPrivateSubCommand5_Click（）IfMsgBox（"确认新的应付凭证？",vbOKCancel,"确认"）=lThenAdodcl.Recordset.AddNew '添加记录Adodc1.Recordset.Fields（"采购发票编号"）=Textl.TextAdodcl.Recordset.Fields（”供应商名称"）=Text2.TextAdodcl.Recordset.Fields（”供应商电话"）=Text3.TextAdodcl.Recordset.Fields（”采购物品名称"）=Text4.TextAdodcl.Recordset.Fields（”采购物品代码"）=Text5.TextAdodcl.Recordset.Fields（”采购单价"）=Text6.TextAdodc1.Recordset.Fields（"采购数量"）=Text7.TextAdodcl.Recordset.Fields（”采购总额"）=Text8.TextAdodcl.Recordset.Fields（”年"）=Text9.TextAdodcl.Recordset.Fields（”月"）=TextlO.TextAdodcl.Recordset.Fields（"日"）=Textll.TextAdodc1.Recordset.Fields（"应付凭证编号"）=Text12.TextAdodcl.Recordset.Update '保存数据ElseEndIfEndSub4.3.2应付账款管理系统次界面设计输入应付账款管理系统主界面中所出现应付凭证编号，点击采购结算单生成按钮就会出现对应的采购发票编号、供应商名称、采购结算金额、采购结算单编号以及结算时间，随后点击确认便可以实现结算单的生成。图4.4应付凭证管理系统次界面图应付账款管理系统次界面的代码设计：OptionExplicitPrivateSubCommand1_Click（）DimuAsBoolean,okAsBooleanWithAdodc1.RefreshDoWhileNot.Recordset.EOFu=Adodc1.Recordset.Fields（1）.Value=Text1.TextIfuThenok=TrueExitDoElse.Recordset.MoveNextEndIfLoopEndWithIfokThenText2.Text=Adodcl.Recordset.Fields（'采购发票编号"）Text3.Text=Adodc1.Recordset.Fields（'供应商名称"）Text4.Text=Adodc1.Recordset.Fields（'采购结算金额"）Text5.Text=Adodc1.Recordset.Fields（'采购结算单编号"）Text6.Text=Adodc1.Recordset.Fields（'年"）Text7.Text=Adodcl.Recordset.Fields（'月”）Text8.Text=Adodcl.Recordset.Fields（"日”）ElseText2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""MsgBox"结算单中无此类信息",,"注意"EndIfEndSubPrivateSubCommand2_Click（）IfMsgBox（"确认生成销售结算单？",vbOKCancel,"确认"）=lThenForm4.HideForm2.ShowAdodcl.Recordset.Fields（"采购发票编号"）=Text2.TextAdodcl.Recordset.Fields（"供应商名称"）=Text3.TextAdodcl.Recordset.Fields（"采购结算金额"）=Text4.TextAdodcl.Recordset.Fields（"采购结算单编号"）=Text5.TextAdodcl.Recordset.Fields（"年"）=Text6.TextAdodcl.Recordset.Fields（"月"）=Text7.TextAdodcl.Recordset.Fields（"日"）=Text8.TextAdodcl.Recordset.Update '保存数据ElseEndIfForm4.HideForm2.ShowEndSubPrivateSubCommand3_Click（）Form4.HideForm3.ShowEndSubPrivateSubCommand4_Click（）EndEndSub

4.4应收账款管理系统主界面应收账款管理系统主界面设计点击应收账款管理按钮即可进入相应的的管理界面，在应收账款管理主界面上有11个部分组成，输入对应的销售发票编号并点击查询按钮，将会出现此销售发票编号所对应的客户名称、电话，销售物品名称、代码，销售单价、数量、时间以及应收凭证编号，点击结算按钮，系统将会进行结算过程。此管理页面还有添加按钮，以方便随时添加信息。pIST客户窖称［销啻货牧名称誚苦单阶［幣書总额I"pIST客户窖称［销啻货牧名称誚苦单阶［幣書总额I"三1knCrmDQIDLEMCOCCI—•厂RU."3Tnutsn5丽1退出潘加图4.5应收账款管理系统主界面图应收账款管理系统主界面的代码设计：OptionExplicitPrivateSubCommand1_Click()DimuAsBoolean,okAsBooleanWithAdodc1.RefreshDoWhileNot.Recordset.EOFu=Adodc1.Recordset.Fields(1).Value=Text1.TextIfuThenok=TrueExitDoElse.Recordset.MoveNextEndIfLoopEndWithIfokThenText2.Text=Adodcl.Recordset.Fields（'客户名称"）Text3.Text=Adodc1.Recordset.Fields（'客户电话"）Text4.Text=Adodc1.Recordset.Fields（'销售货物名称"）Text5.Text=Adodc1.Recordset.Fields（'销售货物代码"）Text6.Text=Adodc1.Recordset.Fields（'销售单价"）Text7.Text=Adodc1.Recordset.Fields（'销售数量"）Text8.Text=Adodc1.Recordset.Fields（'销售总额"）Text9.Text=Adodc1.Recordset.Fields（'年"）Text10.Text=Adodc1.Recordset.Fields（'月”）Text11.Text=Adodd.Recordset.Fields（"日”）Text12.Text=Adodc1.Recordset.Fields（'应收凭证编号"）ElseText2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text=""Text10.Text=""Text11.Text=""Text12.Text=""MsgBox"销售发票中无此类信息",,"注意"EndIfEndSubPrivateSubCommand2_Click（）IfMsgBox（"确认结算？",vbOKCancel,"确认"）=1ThenAdodc1.Recordset.AddNew '添加记录Adodc1.Recordset.Fields（"销售发票编号"）=Text1.TextAdodc1.Recordset.Fields（"客户名称"）=Text2.TextAdodd.Recordset.Fields（”客户电话"）=Text3.TextAdodc1.Recordset.Fields（"销售货物名称"）=Text4.TextAdodc1.Recordset.Fields（"销售货物代码"）=Text5.TextAdodc1.Recordset.Fields（"销售单价"）=Text6.TextAdodc1.Recordset.Fields（"销售数量"）=Text7.TextAdodc1.Recordset.Fields（"销售总额"）=Text8.TextAdodc1.Recordset.Fields（"年"）=Text9.TextAdodc1.Recordset.Fields（"月"）=Text10.TextAdodc1.Recordset.Fields（"日"）=Text11.TextAdodc1.Recordset.Fields（"应收凭证编号"）=Text12.TextAdodc1.Recordset.Update '保存数据ElseEndIfForm5.HideForm6.ShowEndSubPrivateSubCommand3_Click（）Form5.HideForm2.ShowEndSubPrivateSubCommand4_Click（）EndEndSubPrivateSubCommand5_Click（）IfMsgBox（"确认新的应收凭证？",vbOKCancel,"确认"）=1ThenAdodc1.Recordset.AddNew '添加记录Adodcl.Recordset.Fields（"销售发票编号"）=Textl.TextAdodcl.Recordset.Fields（”客户名称"）=Text2.TextAdodc1.Recordset.Fields（"客户电话"）=Text3.TextAdodc1.Recordset.Fields（"销售货物名称"）=Text4.TextAdodc1.Recordset.Fields（"销售货物代码"）=Text5.TextAdodd.Recordset.Fields（”销售单价"）=Text6.TextAdodc1.Recordset.Fields（"销售数量"）=Text7.TextAdodc1.Recordset.Fields（"销售总额"）=Text8.TextAdodc1.Recordset.Fields（"年"）=Text9.TextAdodc1.Recordset.Fields（"月"）=Text10.TextAdodd.Recordset.Fields（"日"）=Text11.TextAdodc1.Recordset.Fields（"应收凭证编号"）=Text12.TextAdodc1.Recordset.Update '保存数据ElseEndIfEndSub4.4.2应收账款管理系统次界面设计输入应收账款管理系统主界面中所出现应收凭证编号，点击销售结算单生成按钮就会出现对应的销售发票编号、客户名称、销售结算金额、销售结算单编号以及结算时间，随后点击确认便可以实现结算单的生成。图4.6应收凭证管理系统次界面图应收账款管理系统次界面的代码设计：OptionExplicitPrivateSubCommand1_Click（）DimuAsBoolean,okAsBooleanWithAdodc1.RefreshDoWhileNot.Recordset.EOFu=Adodc1.Recordset.Fields（1）.Value=Text1.TextIfuThenok=TrueExitDoElse.Recordset.MoveNextEndIfLoopEndWithIfokThenText2.Text=Adodcl.Recordset.Fields（'销售发票编号"）Text3.Text=Adodc1.Recordset.Fields（'客户名称"）Text4.Text=Adodc1.Recordset.Fields（'销售结算金额"）Text5.Text=Adodc1.Recordset.Fields（'销售结算单编号"）Text6.Text=Adodc1.Recordset.Fields（'年"）Text7.Text=Adodc1.Recordset.Fields（"月”）Text8.Text=Adodd.Recordset.Fields（"日”）ElseText2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""MsgBox"应收凭证中无此类信息",,"注意"EndIfEndSubPrivateSubCommand2_Click（）IfMsgBox（"确认生成销售结算单？",vbOKCancel,"确认"）=1ThenForm6.HideForm2.ShowAdodcl.Recordset.Fields（”销售发票编号"）=Text2.TextAdodcl.Recordset.Fields（”客户名称"）=Text3.TextAdodc1.Recordset.Fields（"销售结算金额"）=Text4.TextAdodc1.Recordset.Fields（"销售结算单编号"）=Text5.TextAdodc1.Recordset.Fields（"年"）=Text6.TextAdodc1.Recordset.Fields（"月"）=Text7.TextAdodd.Recordset.Fields（"日"）=Text8.TextAdodc1.Recordset.Update '保存数据ElseEndIfForm6.HideForm2.ShowEndSubPrivateSubCommand3_Click（）Form6.HideForm5.ShowEndSubPrivateSubCommand4_Click（）EndEndSub4.5盈亏积压管理输入盈亏积压管理系统主界面中所出现日期，点击查询按钮就会出现对应的本期发生应付、应收金额，本期发生金额合计，入库物品金额，出库货物金额，出入库商品金额合计，随后点击确认便可以实现盈亏积压清单的生成，随后财务部人员进行整合收集制成报表交予总经理审查。图4.7盈亏积压管理系统主界面图盈亏积压管理系统次界面的代码设计：OptionExplicitPrivateSubCommand1_Click（）Di