公司入库信息管理系统设计

题目：F公司入库信息管理系统设计目录第一章系统设计及开发的可行性分析 页（共32页）第一章系统设计及开发的可行性分析1.1经济可行性系统的初步调查1.1.1企业概况F公司的客户有神龙汽车股份有限公司，东风汽车股份有限公司，郑州日产股份有限公司，主要大客户是神龙汽车股份有限公。企业主要生产项目是GZ，W23，是生产标307志、标志407的仪表板，成品分别有2种和6种；B53项目，凯旋出租车门板，一共有8种成品，为非JIT工厂，由于仪表板的安装在总装工序中靠前，没有足够的准备时间及运输时间作为JIT方式供货。JIT可以实现以下目的：一般JIT工厂会设置JIT窗口，在收到订单时开始生产，并只生产需要数量的产品；对工厂的质量要求更高，便于更好的改进质量，并实现零缺陷；交货周期减少，准备时间减少，等待时间减少，生产批量减少，不会有太大库存的积压。一方面，对于工厂的大客户，神龙公司，其交付业绩管理是非常严格的，每月都会进行供应商交付业绩排名，每月黑名单榜上有名的企业均会通报批评并处以罚款，这样对工厂内部库存又提高了要求，需要在覆盖客户波动，并且库存空间有限的情况下，准确预测客户需求数据，制定合适的生产计划，所以精确的控制库存数据也是亟待解决的问题。另一方面，三个项目的成品一共16种，半成品、原材料一共276种，相对来说，数量不算很大，但是人工操作，以及生产计划与要货数量无法完全匹配，导致库存并不是很好掌控，这个问题应该是所有汽车零部件企业所要面临的问题。所有原材料中，进口件所占的百分比高达30%，特别是一些金属件，每台份用量较大，采购周期很长的情况下，要兼顾客户订单和工厂安全库存和避免发生额外的库存费用。1.1.2现行系统运行情况及其入库业务流程中存在的问题1.现行系统运行情况工厂使用的SAP系统，虽然SAPP功能强大，同时操作又过于复杂，必须经过很长时间的培训才能熟练使用。对于F公司这样一个小型企业，软件培训方面的工作毕竟无法做到全面、专业，所以需要新人自己去摸索，花费很长时间学习，效果还不尽理想；另一方面，由于系统的复杂性，企业内部并没有充分利用到每一个管理模块，只是使用最常用的一些功能模块。在学习SAP的基本操作后，还需要记住大量的事务代码，这些事务代码没有很明显的规律，直接看代码是完全不能联系到每一个模块上，仅仅是物流部门就需要记住很多事务代码。这使得操作繁杂，耗时耗力，不像一般的网页版库存管理系统，需要查询的信息，直接点页面上的相关模块就可以查询和录入。所以，为了更好的库存控制，本文思想是设计出一种简单的单纯用于入库存管理的系统，便于物流及其他相关部门的査询及监控。2.业务流程中存在的问题在企业实际的操作过程中会有很多突发的问题，例如供应商的卡车在运输过程中遭遇交通事故，导致紧急要货不能准时送达；企业内部出现质量问题时各部门之间权责不分明，相互推卸责任，导致问题没有及时解决；设备停机造成的停线等种种问题。企业入库业务流程如下：①采购员提交入库单。②系统根据采购计划单验收入库单。③若验收发现没有相应的采购计划，则系统向采购员发无效入库单。④若验收合格，则系统根据供货方档案进行物料检验；并根据检验结果填写物料检验单。⑤如果物料或供货方不合格，则向采购员发出退货单。⑥如果检验合格，则由系统根据物料检验单修改物料主文件中的现有库存量。业务流程中存在的问题有：①收发货过程中，物流现场人员由于人为的失误，导致库存数量记错；生产作业过程中物料损坏、遗失，验收和出货的时候单据核对清点有误；盘点过程漏盘、重盘等问题，都会导致实物与系统账上数量不符。②部分零件库存过髙，实际占用了大量的资金，但是并没有被及时发现消耗掉，所以需要系统实现预警功能，能够让库存管理人员知道溢出和缺货报警。③现场信息员对单据处理不够及时，责任感不强，或疏忽导致做账错误，给部门造成困扰，无形中增加了大家的工作量。④库位管理不合理，质量有问题的物料和正常使用的物料没有明显区分开来，库区分区不明显，或者分区管理不够严谨，导致现场入库人员不重视。⑤由于系统操作复杂，新手做账时经常忘记将凭证号过账，造成账务一直在系统中缺省，需要大量的人力物力去调査亏损原因。1.2系统开发的必要性信息管理系统的意义相比对一些有历史的制造企业来说，意义非凡。如今，随着对生产管理和服务越来越重视的趋势一致化，已经不再特别的强调生产制造业和服务业原来和工具，已经基本上可以共通使用了。信息的流动及传递需是双向的，转换的机制便利用这些双向流动的信息来改善转换机制的绩效，使得转换机制运作的更有效率。

现代的企业，要在如此竞争激烈的环境下生存下来，很关键，如何借助信息管理系统具备其他企业不能及的竞争优势，才是企业今后发展的生存之道，高耗能、低产值的发展模式已经逐渐的被这个社会所抛弃，成本低、品质好、交货时间短、生产弹性大是现在以及可预见的未来，客户门的主要诉求，是难以改变的。生产管理就是要找出如何做好且领先同业的方法，彻底执行，以建立企业特殊的竞争优势，让其它企业可望但不容易学到的竞争优势。信息管理系统的意义不仅体现在对整个企业生产过程中如何高效、低耗的运转，还包括企业整个生产模式和社会对生产制造企业生产效率改善的期望，这样这样完全符合社会的需求，企业才能得到长久的发展。所以本文就该企业建立入库信息管理系统是必要的。1.3技术可行性分析运用VisualBasic语言完成系统，使用Access建立数据库，通过ADO控件的形式链接到VB系统中，最后运用MicrosoftOffice实用软件完成文档工作。技术要求有熟练掌握VB编程语言的技术人员，并需要计算机，这些方面的要求目前都是可以达到的。因此，在技术方面是可行的。1.4经济可行性分析虽然在系统开发的前期需要投入的资金比较多，但是在长期的运营管理当中，能运用计算机进行开发与管理，可以大量节省设备资金，节省人员资本，即不论是人力物力上面都可以大量的节省消耗，相对于成本来说其效益是相当可观的。因此该信息系统在经济上是可行的。第二章系统分析2.1需求分析对系统进行需求分析，主要根据企业的实际情况，业务流程，系统操作人员对数据的处理要求，系统的完整性和安全性等进行分析。在该系统中，涉及到原材料出入库，成品出入库，客户供应商信息的增删改査等功能，以及统计发货报表，库存数据的功能。同时设置管理权限也保证的数据的安全性和完整性。1.提高出入库效率，和原来的系统一样，可以直接在系统中进行单据录入，只是操作界面会很直接简单，没有复杂的事物码要去记忆，与传统库存单据手工管理相比，也大大提高了工作效率和准确性。2.方便查询库存统计数据，原来在系统中导出的数据表格还需要根据供应商将零件导出的库存数据进行汇总，在本系统中，可以直接在查询界面增加一项功能，导出报表功能。还可以根据供应商直接导出每月发货报表，作为物流计划员每月对账数据。这就是信息系统的优越性。3.实时监控库存状况，库存是一个决定成本最重要的因素，任何的差错都需要花费很大的人力物力去盘点，去查错。有一个专门的库存管理系统来实时监控，可以带来很大便利，而且可以实时査询库存数量，确定报警或溢出状态，及时调整向供应商要货。4.系统本身的报表生成功能可以减少很多工作量，以前的工作中都是在里查询需要的信息，然后在里整理成所需的格式，可以在信息系统里报表统计功能中设计好表格式样，导出来的格式即可以满足实际需要，减少后期工作量。2.2组织结构分析F公司整体组织结构如下：公司办公室采购管理部公司办公室采购管理部生产管理部质量控制部财务管理部F公司仓储管理部公司办公室入库管理出库管理图2-1F公司的整体组织结构图F企业在入库业务流程中，涉及的主要部门有采购部、质检部、仓储部，而涉及到的人员如下图所示：图2-2入库业务流程主要涉及的部门及人员入库管理信息系统涉及到的部门人员在实际工作中与物流活动相互关系如下：表2-1入库管理信息系统功能表部门/人员功能重要程度总经理信息系统建设的决策人，对整个系统建设做决策，并进行监督至关重要仓储部长负责维护整个入库系统，以及做出原材料出入库的决策非常重要仓管员负责货物的存储工作，以及原材料进行出入库管理。重要采购部长负责做出采购决策一般采购员负责根据采购计划购货，到货后提交入库单一般业务员负责在产品入库后填制入库单，保证入库的正常进行与实施一般生产部负责提供下月的生产计划并且做出采购清单一般质检部负责对入库产品进行检验，出具质检报告，该报告作为是否收货和日后评价供应商质量的依据重要2.3业务流程分析F公司建立信息系统在入库方面主要是解决入库单的管理、入库验收管理、库存管理三个方面的问题，入库涉及的部门比较多，包括采购部门、仓储部门、质监部门三个部门，在建立入库管理信息系统是可将整个入库信息系统可以分为三个模块，即入库单管理模块、入库验收管理模块、库存管理模块。2.3.1入库单管理模块采购员把原材料入库单交给仓管员，仓管员根据采购计划单验收入库单。2.3.2入库验收管理模块材料到货后，经采购员与仓管员共同确认后由仓库做接收并通知质量检查部门根据供货方档案进行物料检验，检测报告交给仓管员，若合格，则接货并根据检验结果填写物料检验单；不合格，拒接并将退货单交给采购员。2.3.3库存管理模块仓管员根据物料检验单修改物料主文件中的现有库存量。采购计划单退货单采购计划单退货单入库单入库单验收物料检验单物料入库采购员无效的入库单仓库质检员供货方档案仓管员图2-3原材料入库业务流程图2.4数据流程分析根据F公司的业务流程图，可画出F公司入库的数据流程图。2.4.1原材料入库顶层数据流程图入库管理信息系统顶层数据流程图说明的是采购部向入库管理系统提供入库单，入库管理系统向质检部发出有效入库单，质检员检验物料合格发出物料检验合格单，货物入库。仓库向采购部发出收货单和退货单。2.4.2原材料入库第一层数据流程图入库管理系统可分为三个模块，即入库单管理模块、入库验收管理模块、库存管理模块。入库单管理模块主要是入库信息的汇总，入库单的验收；入库验收管理模块主要是原材料的检验情况的汇总；库存管理模块主要是核算原材料入库情况，修改库存量文件。0.0入库管理系统物料检验单0.0入库管理系统物料检验单入库单总经理采购员总经理采购员退货单退货单图2-4原材料入库顶层数据流程图F9F9检验不合格，退货单F8物料合格F3有效入库单F8物料合格F3有效入库单2.01.0D2物料合格单F1入库单入库验收管理入库单管理采购员D2物料合格单F1入库单入库验收管理入库单管理采购员F4无效入库单F4无效入库单F2采购计划单F2采购计划单3.0库存管理库存管理总经理总经理D1库存信息D1库存信息图2-5原材料入库第一层数据流程图第三章系统设计3.1系统总体结构设计3.1.1F公司信息管理系统总体结构设计在F公司信息系统中包含入库管理系统、出库管理系统、在库管理系统、财务管理系统。入库管理系统主要是负责原材料的入库工作；出库管理系统主要是负责成品的出库工作；在库管理系统主要是对原材料、成品的库存进行管理以及库存预警分析；财务信息系统主要是帮助公司收集和管理应收应付财务信息。3.1.2入库管理系统总体结构设计入库单管理模块包括入库单的验收、退回等功能，主要是对入库单进行管理的模块；入库验收管理模块是入库原材料的验收管理界面，主要是对供应商和物料进行检验；库存管理模块是入库完成时，库存的具体情况，即根据物料检验单修改物料主文件中的现有库存量。需要有足够的货品信息，包括货品编号、货品名称、货品规格、货品单位、货品价格、数量、存放位置等信息；收货单查询模块是方便管理人员查询添加收货单的模块设计；供应商信息模块是对供应商管理模块；用户信息管理模块可以用来修改密码、注册等用户管理。入库管理系统入库管理系统在库管理系统财务管理系统入库单管理模块入库验收管理模块库存管理模块供应商信息模块收货单查询模块用户信息管理模块采购计划单收货单入库单图3-1入库系统总体结构设计图3.2代码设计入库系统中设计的名称比较多，所以将对其中主要的名称进行代码设计，记忆用的代码形式设定如下：表3-1入库单代码设计代码对象入库单代码类型RK+名称码+时间码位数无限校检码无代码数量无限使用期限无限使用范围本公司举例说明2016年6月20日的面料入库单：RKML20160620表3-2供应商名称代码设计代码对象供应商代码类型GYS+名称码+顺序码位数无限校检码无代码数量无限使用期限无限使用范围本公司举例说明1号面料供应商：GYSML01表3-3物料检验单代码设计代码对象物料检验单代码类型WL+名称码+时间码位数无校检码无代码数量无限使用期限无限使用范围本公司举例说明2016年6月20日的面料检验单：WLML20160620表3-4仓管员代码设计代码对象仓管员代码类型CGY+编号位数3校检码无代码数量无限使用期限无限使用范围本公司举例说明1号仓管员：CGY001表3-5仓库代码设计代码对象仓库代码类型名称码+编号位数1校检码无代码数量无限使用期限无限使用范围本公司举例说明面料1号仓库：ML1表3-6收货单代码设计代码对象收货单代码类型SH+名称码+时间码位数无校检码无代码数量无限使用期限无限使用范围本公司举例说明2016年6月20日的面料收货单：SHML201606203.3数据结构设计3.3.1数据库的概念模型设计：采购员编号采购员编号采购员11入库单提供1验收11质检员有效入库单姓名mn物料采购员11入库单提供1验收11质检员有效入库单姓名mn物料姓名姓名物流名称入库单号物流名称入库单号仓库号物料单价物料数量供应商年龄年龄11质检员编号质检员编号物料单价物料数量物料名称递交物料单价物料数量物料名称递交物料编号年龄物料编号年龄检验1编制检验1编制物料单价物流数量物料单价物流数量质检员物料名称检验单号1仓管员仓管员收货单号供应商收货日期物流名称物料数量物料单价物料检验单物料检验单1111呈交仓管员n收货单绘制11仓管员号编号1仓管员号编号1年龄姓名年龄姓名修改修改库存1仓管员1发给财务部11部门编号部门编号负责人负责人图3-2入库管理E-R图3.3.2部分实体的相关属性：入库单（入库单号、物料名称、物料数量、物料单价、供应商、仓位号）收货单（收货单号、供应商、仓管员、物料名称、物料单价、物料数量、收货日期）物料检验单（检验单号、物料名称、物料数量、物料单价、质检员）物料（物料编号、物料名称、物料数量、物料单价）质检员（质检员编号、姓名、性别、年龄）供应商（供应商号、名称、地址、联系电话、产品等级）仓管员（仓管员编号、姓名、性别、年龄）提供（采购员编号、入库单号）验收（入库单号、仓管员编号、清单数量）递交（仓管员号、入库单号、递交量）检验（质检员编号、物料编号、物料数量、物料质量）呈交（仓管员编号、物料检验单号、清单数量）编制（物料编号、物料检验单号）绘制（仓管员号、收货单号）发给（仓管员号、收货单号、入库单号）修改（物料编号、仓管员编号）3.3.4数据库的设计第一步：数据库的建立。使用Access软件进行编辑。表3-7仓管员数据库NameTypeText仓管员号Text2姓名Text20性别Text1年龄Text2表3-8供应商数据库NameTypeText供应商号Text10名称Text15地址Text20联系电话Text15表3-9入库单数据库NameTypeText入库单号Text30物料名称Text10物料数量Text10物料单价Text5仓位号Text7表3-10收货单数据库NameTypeText收货单号Text30物料名称Text10物料数量Text10物料单价Text5供应商Text15入库单号Text30仓管员Text20收货日期Date/Time8表3-11用户信息NameTypeText用户名Text10密码Text20第二步：数据库的连接。在VisualBasic中，选择通过设置ADO空间的属性将程序与数据进行连接。3.4输入输出界面设计3.4.1登陆主界面用户已注册时，输入用户名和密码，点击登陆。若用户名和密码都正确则可以登陆采购管理系统主界面；若错误，则会弹出对话框提醒“密码不正确”；若用户名输入错误，则会弹出对话框提醒“用户名不存在”。并且系统的输入密码为“*”，是在属性栏中的passwordchar设置“*”。用户未注册时。可以点击注册按钮，登入用户信息注册页面，用户信息注册完成后，登陆即可。用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒“请输入用户名与密码！”。图3-5登录主界面3.4.2用户信息注册未注册的用户可以设置用户名以及密码，设置完成后，点击新建。若设置的信息完整，则会弹出对话框提示“新用户已建好”，此时新建的用户信息已经传到数据库中；若用户名和密码输入的信息不完整，则会弹出对话框“请输入完整信息，输入用户名和密码！”。点击返回按钮，即可返回到登陆主界面。图3-6用户信息注册主界面3.4.3入库管理系统主界面入库管理系统主界面是登陆后最基础的一个界面，内容包括入库单管理、入库验收管理、用户信息管理、供应商管理、收货单查询管理、库存管理。点击入库单管理按钮，则会弹出入库单管理界面，点击相应的按钮就会弹出相应的管理界面。点击退出，则会关闭入库管理系统，返回到登陆主界面。图3-7入库管理系统主界面3.4.4入库单管理入库单管理界面设有入库单的相关信息，包括入库单号、采购员、供应商、物料名称、物料数量、物料价格、是否已交货。若没有输入的入库单号，就点击查询按钮，则会弹出对话框提醒"无该入库单号!"；若输入完整的入库单号，会出现相应的信息，确认入库单的验收。若没有输入信息，就点击新建按钮，则会弹出对话框提醒"请输入完整信息，输入入库单号!"；若输入的信息完整，点击新建后，则会出现对话框提醒“已保存入库单”，并且新建的信息会更新到数据库中。选中订单，点击删除按钮，相应的入库单所对应的信息就会被删除，同时更新数据库。若没有输入入库单号，点击修改的话，则会弹出对话框提醒“无该订单”；若输入的入库单号正确，则此订单的信息会出现在信息框中，然后进行相应的操作即可。若点击退出按钮，则会关闭入库单管理界面，弹出入库管理主界面。图3-8入库单管理主界面3.4.5入库验收管理入库验收管理界面主要是验收物料和供应商是否合格，获得可以入库的资格。若未输入入库单号，就点击查询按钮，则会弹出对话框提醒“请输入完整信息，输入入库单号！”；若输入的入库单号错误，则会弹出对话框提醒“无该订单，请重新输入！”；若输入的入库单号正确，则可以按照操作完成物料入库的验收工作。若点击返回按钮，则会关闭入库验收管理界面，弹出入库管理主界面。图3-9入库单管理主界面3.4.6供应商管理供应商管理界面设有供应商的相关信息，包括供应商号、联系电话、名称、地址。初始时，DataGrid会显示出已有的供应商信息。若没有输入信息，就点击新建按钮，则会弹出对话框提醒"请输入完整信息，输入供应商号!"；若输入的信息完整，点击新建后，则会出现对话框提醒“已保存订单”，并且新建的信息会更新到数据库中。若点击取消，相关信息就会取消，可以输入新的信息。选中订单，点击删除按钮，相应的订单所对应的信息就会被删除，同时更新数据库。若没有输入供应商号，点击修改的话，则会弹出对话框提醒“无该供应商号”；若输入的供应商号正确，则此订单的信息会出现在信息框中，然后进行相应的操作即可。若点击退出按钮，则会关闭供应商管理界面，弹出入库管理主界面。图3-10供应商管理主界面3.4.7用户信息管理用户信息管理界面是对已有用户的密码进行修改的界面。将原有用户名输入，则自动进入数据库当中搜索对应信息。将新的密码输入两次则可将原有密码信息覆盖。倘若两次密码信息输入不同，则系统自动提示新密码输入有误。倘若新修改的密码不为数字，则弹出提示框“请输入完整信息，密码为数字”。当新的密码信息覆盖成功后，会弹出提示框，通知用户新的信息已经保存。若点击返回按钮，则会关闭用户信息管理界面，弹出入库管理主界面。图3-11用户信息管理主界面3.4.8收货单查询管理收货单查询管理界面主要是核对以及检查收货单。若未输入收货单号或输入的收货单号错误，则会弹出提示框提示"收货单号不存在，请重新输入！"；若输入的收货单号正确，点击查询后，收货订单的详细信息则会出现在相应的信息框中。若点击返回按钮，则会关闭收货单查询管理界面，弹出入库管理主界面。图3-12收货单查询主界面3.4.9库存管理库存管理界面主要是根据收货单更改当前库存数据。若未输入收货单号，则会弹出对话框提醒“请输入完整信息，输入收货单号！”；若输入的收货单号错误，则会弹出对话框提醒“无该收货单，请重新输入！”；若输入的收货单号正确，相应的收货单上的物料信息也会更新。若点击退出按钮，则会关闭库存管理界面，弹出入库管理主界面。图3-13库存管理主界面第四章课程设计的总结和体会经过2个星期的课设,使用Access和VB建立的入库管理系统的己经初步完成,基本上达到了预期的设计要求和目的。写完这个课程设计报告，一个完整的入库管理系统就创建完毕了。在本系统的设计与实现的过程中，主要讲述了入库管理信息系统的系统设计部分，包括功能模块设计、数据库结构设计等。系统的功能有：数据入库、查询、修改和删除等。由于整个课程设计时间比较仓促、不熟悉软件和软件的不稳定性，所以该系统还有许多不尽如意的地方，比如对库存管理的设计不是很详尽、仔细，各模块缺乏联系和完备性等问题，这些都有待于进一步的改善。短短2个星期的课程设计，使我从中受到很大的教育和启迪，不仅将大学所学的知识进行了实际应用，还学到了很多书本上学不到的知识。开阔了视野，增长了知识，积累了经验。充分锻炼了自己的动手和应用能力，真正做到了理论联系实际。参考文献[1]金敏力.管理信息系统.科学出版社，2009[2]飞思科技产品研发中心.visualbasic6.0数据库应用开发.电子工业出版社，2003[3]飞思科技产品研发中心.visualbasic6.0开发者手册.电子工业出版社,2002[4]申旻.visualbasic6.0高手突破.清华大学出版社，2002，302[5]SteveTeixeira，XaviverPacheco著，龙劲松，王瑜，谢尚书译.visualbasic6.0开发人员指南.机械工业出版社.2003[6]张立科编写组.WindowsAPI函数参考手册.人民邮电出版社.2002[7]王珍玲。实用软件工程教程高等教育出版社2004[8]张朝昆、施丽娜.VisualBasic数据库开发基础与应用.人民邮电出版社，2009附录登陆主界面PrivateSubCommand1_Click()Adodc1.Recordset.Find("用户名='"&Text1.Text&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirstText1=""Text2=""Text1.SetFocusMsgBox"用户名不存在",,"提示"ElseIf(Adodc1.Recordset.Fields("密码")<>Text2.Text)ThenMsgBox"密码不正确",,"提示"Text1.Text=""Text2.Text=""Text1.SetFocusAdodc1.Recordset.MoveFirstElseText1.Text=""Text2.Text=""Text1.SetFocusAdodc1.Recordset.MoveFirstForm1.HideForm4.ShowEndIfEndSubPrivateSubCommand2_Click()Form1.HideForm2.ShowEndSubPrivateSubText2_Change()Text2.PasswordChar="*"EndSub用户信息注册PrivateSubCommand1_Click()IfText1.Text=""OrText2.Text=""ThenMsgBox"请输入完整信息，输入用户名和密码！",vbOKOnly+vbExclamation,"警告!"用户名.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名")=Text1.TextAdodc1.Recordset.Fields("密码")=Text2.TextAdodc1.Recordset.UpdateMsgBox"新用户已建好!",vbOKOnly+vbExclamation,"提示"Text1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand2_Click()Form2.HideForm1.ShowEndSub入库管理系统主界面PrivateSubCommand1_Click()Form4.HideForm3.ShowEndSubPrivateSubCommand2_Click()Form4.HideForm6.ShowEndSubPrivateSubCommand3_Click()Form4.HideForm8.ShowEndSubPrivateSubCommand4_Click()Form4.HideForm5.ShowEndSubPrivateSubCommand5_Click()Form4.HideForm7.ShowEndSubPrivateSubCommand6_Click()Form4.HideForm9.ShowEndSubPrivateSubCommand7_Click()Form4.HideForm1.ShowEndSub入库单管理PrivateSub查询_Click()Adodc1.Recordset.MoveFirstDimaAsStringa=入库单号.TextAdodc1.Recordset.Find("入库单号='"&a&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirst入库单号.Text=""MsgBox"入库单号不存在，请重新输入！",,"提示"Else物料名称.Text=Adodc1.Recordset.Fields("物料名称")物料数量.Text=Adodc1.Recordset.Fields("物料数量")物料单价.Text=Adodc1.Recordset.Fields("物料单价")物料金额.Text=Adodc1.Recordset.Fields("物料金额")采购计划单.Text=Adodc1.Recordset.Fields("采购计划单")采购员.Text=Adodc1.Recordset.Fields("采购员")是否交货.Text=Adodc1.Recordset.Fields("是否交货")仓库.Text=Adodc1.Recordset.Fields("仓库")Adodc1.Recordset.MoveFirstEndIfEndSubPrivateSub返回_Click()Form3.HideForm4.ShowEndSubPrivateSub删除_Click()Adodc1.Recordset.DeleteEndSubPrivateSub新建_Click()If入库单号.Text=""ThenMsgBox"请输入完整信息，输入入库单号！",vbOKOnly+vbExclamation,"警告！"入库单号.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("入库单号")=入库单号.TextAdodc1.Recordset.Fields("采购计划单")=采购计划单.TextAdodc1.Recordset.Fields("采购员")=采购员.TextAdodc1.Recordset.Fields("物料名称")=物料名称.TextAdodc1.Recordset.Fields("物料数量")=物料数量.TextAdodc1.Recordset.Fields("物料单价")=物料单价.TextAdodc1.Recordset.Fields("物料金额")=物料金额.TextAdodc1.Recordset.Fields("是否交货")=是否交货.TextAdodc1.Recordset.Fields("仓库")=仓库.TextAdodc1.Recordset.UpdateMsgBox"已保存入库单！",vbOKOnly+vbExclamation,"提示"入库单号.Text=""采购计划单.Text=""采购员.Text=""仓库.Text=""是否交货.Text=""物料名称.Text=""物料单价.Text=""物料数量.Text=""EndIfEndSubPrivateSub修改_Click()Adodc1.Recordset.Find("入库单号='"&入库单号.Text&"'")IfAdodc1.Recordset.EOF=TrueThenMsgBox"无该订单！请从新输入"Else入库单号.Text=Adodc1.Recordset.Fields("入库单号")物流计划单.Text=Adodc1.Recordset.Fields("采购计划单")采购员.Text=Adodc1.Recordset.Fields("采购员")物料名称.Text=Adodc1.Recordset.Fields("物料名称")物料数量.Text=Adodc1.Recordset.Fields("物料数量")物料单价.Text=Adodc1.Recordset.Fields("物料单价")物料金额.Text=Adodc1.Recordset.Fields("物料金额")是否交货.Text=Adodc1.Recordset.Fields("是否交货")仓库.Text=Adodc1.Recordset.Fields("仓库")Adodc1.Recordset.DeleteEndIfEndSub入库验收管理PrivateSub查询1_Click()Adodc1.Recordset.MoveFirstDimaAsStringa=入库单号.TextAdodc1.Recordset.Find("入库单号='"&a&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirst入库单号.Text=""MsgBox"入库单号不存在，请重新输入！",,"提示"Else物料检验单号.Text=Adodc1.Recordset.Fields("物料检验单号")物料是否合格.Text=Adodc1.Recordset.Fields("物料是否合格")质检员.Text=Adodc1.Recordset.Fields("质检员")Adodc1.Recordset.MoveFirstEndIfEndSubPrivateSub查询2_Click(IndexAsInteger)Adodc1.Recordset.MoveFirstDimaAsStringa=供应商号.TextAdodc1.Recordset.Find("供应商号='"&a&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirst供应商号.Text=""MsgBox"供应商号不存在，请重新输入！",,"提示"Else供应商名称.Text=Adodc1.Recordset.Fields("供应商名称")供应商等级.Text=Adodc1.Recordset.Fields("物料是否合格")评估结果.Text=Adodc1.Recordset.Fields("评估结果")Adodc1.Recordset.MoveFirstEndIfEndSubPrivateSub返回_Click()Form6.HideForm4.ShowEndSubPrivateSub删除_Click()Adodc1.Recordset.DeleteEndSubPrivateSub新建_Click()If入库单号.Text=""ThenMsgBox"请输入完整信息，输入入库单号！",vbOKOnly+vbExclamation,"警告！"Text1.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("物料检验单号")=物料检验单号.TextAdodc1.Recordset.Fields("物料是否合格")=物料是否合格.TextAdodc1.Recordset.Fields("质检员")=质检员.TextAdodc1.Recordset.UpdateMsgBox"已保存供应商信息！",vbOKOnly+vbExclamation,"提示"物料检验单号.Text=""物料检验是否合格.Text=""质检员.Text=""EndSubPrivateSub修改_Click()Adodc1.Recordset.Find("入库单号='"&入库单号.Text&"'")IfAdodc1.Recordset.EOF=TrueThenMsgBox"无该入库单"Else物料检验号.Text=Adodc1.Recordset.Fields("物料检验单号")物料是否合格.Text=Adodc1.Recordset.Fields("物料是否合格")质检员.Text=Adodc1.Recordset.Fields("质检")Adodc1.Recordset.DeleteEndIfEndSub库存管理PrivateSub查询_Click()Adodc1.Recordset.Find("收货单号='"&Adodc1.Recordset.Fields("收货单号")&"'")IfAdodc2.Recordset.EOF=TrueThenMsgBox"是否交易入库",vbOKOnlyAdodc2.Recordset.AddNewAdodc2.Recordset.Fields("物料名称")=Adodc1.Recordset.Fields("物料名称")Adodc2.Recordset.Fields("物料数量")=Adodc1.Recordset.Fields("物料数量")Adodc2.Recordset.Fields("收货单号")=Adodc1.Recordset.Fields("收货单号")Adodc2.Recordset.Fields("物料单价")=Adodc1.Recordset.Fields("物料单价")Adodc2.Recordset.Fields("物料金额")=Adodc1.Recordset.Fields("物料金额")Adodc2.Recordset.Fields("仓库")=Adodc1.Recordset.Fields("仓库")Adodc2.Recordset.UpdateElseAdodc2.Recordset.Fields("物料数量")=(Adodc2.Recordset.Fields("物料数量")+Adodc1.Recordset.Fields("物料数量"))Adodc2.Recordset.UpdateEndIfEndSubPrivateSub返回_Click()Form9.HideForm4.ShowEndSubPrivateSub删除_Click()Adodc1.Recordset.DeleteEndIfEndSub收货单查询管理PrivateSub查询_Click()Adodc1.Recordset.MoveFirstDimaAsStringa=收货单号.TextAdodc1.Recordset.Find("收货单号='"&a&"'")IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveFirst收货单号.Text=""MsgBox"收货单号不存在，请重新输入