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

CHANGSHAUNIVERSITYOFSCIENCE&TECHNOLOGY物流信息技术课程 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 题目：F公司入库信息管理系统设计学生姓名：学号：班级:专业：物流工程指导教师：向慧何其超柳伍生2016年06月16日F公司入库信息管理系统设计学生姓名：学号：班级：所在院(系):指导教师：向慧何其超柳伍生完成日期:2016年06月16日2013级物流工程专业物流信息技术课程设计指导书一、课程设计的目的和要求物流信息技术课程设计是物流工程专业中实践环节，是完成《物流信息技术》理论课程学习后所进行的一次全面、综合练习，其目的在于增强对课程相关理论的感性认识，并将课堂的理论知识与企业生产实践有效的衔接起来，提高学生的动手能力，实现理论和实践的统一。通过本次课程设计，使学生深刻地认识到信息技术的应用对物流行业发展的重要性；掌握信息系统开发的主要流程；能结合所学相关物流专业知识并运用数据库开发软件完成对物流信息系统设计。二、课程设计的依据和资料来源1、邵举平.物流管理信息系统[M].清华大学出版社&北京交通大学出版社,2006.10.2、冯耕中.物流管理信息系统及其实例[M].西安交通大学出版社，2004.10.3、彭扬.物流信息系统[M]..中国物资出版社,2006.1.4、薛华成.管理信息系统[M]..北京：清华大学出版社,1999.5、陈艳峰.数据库项目案例导航[M]..北京：清华大学出版社,2004.8.三、课程设计应完成的任务本课程设计的主要任务包括两个方面：设计文本撰写和程序设计1.设计文本撰写本课程设计重视书面材料的撰写，主要内容包括了信息系统前期的系统调查、系统规划、系统 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 和系统设计。由于课程设计要求一人一题，因此每个同学所完成的文档都应包括以上内容。文本的撰写主要为了梳理整个信息系统建设背景、现状、改善的途径等内容，构建信息系统的设计蓝本。因此在设计文本撰写阶段主要的工作包括了以下内容：1）搜集资料根据选题，进行系统调查，搜集资料2）系统分析3）系统设计4）系统实施（附设计子系统的程序源代码）5） 体会 针灸治疗溃疡性结肠炎昆山之路icu常用仪器的管理名人广告失败案例两会精神体会 和总结2.程序设计结合信息系统设计文本，应用程序开发工具（如VB、VF等可视化语言环境）建立一个基本完整的信息系统，基本能实现文本所描述的系统功能。四、课程设计要求及时间安排1、课程设计要求：本次课程设计分小组进行，每小组3-4人，各小组必须选择不同的选题，且每人必须独立负责设计和开发该系统中的一个模块，最后每人亲自提交一份由自己开发的设计成果（不是整个系统的设计文档）；设计过程中，根据合理的进度安排，按照系统开发的流程及 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 ，踏实地开展课程设计活动；最后开发出一个可运行的信息系统，界面设计合理，并可通过上机检查；最后设计文档用A4纸打印，字迹清晰，页面整洁，并按任务书要求装订成册。2、设计纪律：本次课程设计集中在固定教室（交通学院计算机机房）进行，设计期间严格考勤，按时作息，一般不允许请假，如遇特殊情况，需写请假条报院领导批准，否则按每天旷课八节处理，如果请假或旷课总时数累计达全部设计时间的三分之一以上，该课程设计成绩按零分计；此外，不得以任何理由请人代交作业，否则本次课程同样以零分计。3、时间安排：两周设计时间，第16周～第17周。第一周：确定好选题；搭建好系统的整体框架确定好系统开发人员及各自分工；系统开发的可行性研究；对开发对象物流活动作业流程进行系统分析第二周：系统总体设计；系统详细设计；系统实施，综合评价，结论；以及文档整理提交。五、成绩评定1、评分标准：设计操作纪律，10分；设计成果，40分；设计文档，50分。2、若发现有两个和两个以上不同小组的文本和程序有抄袭嫌疑，则小组的所有同学的成绩均为零分。长沙理工大学课程设计任务书交通运输工程学院物流工程专业班课程名称物流信息技术课程设计题目F公司入库信息管理系统设计学生姓名学号 1、课程设计依据和设计要求本课程设计是物流工程专业《物流信息技术》专业课程学习的必修内容之一。课程设计要求学生掌握信息系统开发设计的一般步骤与应用程序开发能力。本课程设计的目的在于增强学生对信息技术的感性认识，使得学生结合所学专业知识开发和设计相关信息系统，进一步理解信息技术对物流行业发展的重要性，更好地将信息系统的设计与企业运行与需求相联系。从而提高学生的动手能力，实现理论和实践的统一。在本次课程设计过程中，学生须在理解相关理论知识的基础上，分析案例中描述的具体问题（主要从信息处理方面分析），结合信息系统开发设计的步骤、方法和工具，撰写信息系统设计报告及完成对相关功能模块的设计。因此，本课程设计要求学生能对物流信息有深入的理解，熟悉企业的运作流程，具备一定的数据库开发设计能力；同时能熟练掌握文献检索和文档编写处理；具有一定创新能力或对相关问题能有独到的认识和理解。 2、设计内容1.设计方案应分析的主要内容本次课程设计的主要是完成物流信息系统中部分功能模块的设计。因此设计内容就依照信息系统开发步骤（系统规划、系统分析、系统设计、系统实施为主要内容）结合企业相关作业流程来完成。因此物流信息系统设计主要包括了以下内容:1）系统设计及开发的可行性分析①经济可行性系统的初步调查。（企业概况、组织机构、现行系统运行情况及其业务流程中存在的问题、新系统开发条件）②系统开发的必要性（物流行业竞争、在生产、采购及销售流程中信息系统的必要性）③技术可行性分析（系统的体系结构、选择的开发方式，分析技术中的潜在的风险）④经济可行性分析（成本/效益分析）2）系统分析①需求分析物流信息系统使用者进行相关调查（包括现有系统亟待解决的问题）②组织结构分析设计的物流信息系统中所涉及的相关部门及人员，要求分析出这些部门及人员在实际工作中与物流活动相互关系的重要程度。③业务流程分析要求对每个系统开发小组成员须对本人负责设计及开发的系统子功能模块的业务流程分析，同时结合文字用业务流程图表述出来。④数据流程分析要求对每个系统开发小组成员须对本人负责设计及开发的系统子功能模块的数据流程进行分析，同时结合文字用数据流程图详细表述出来。3）系统设计①系统总体结构设计（子系统/模块划分）要求画出所在小组设计的物流信息系统总体结构图，小组成员着重阐述各自负责完成功能模块的功能。②代码设计要求说明系统功能模块的编码形式和结构比如仓储管理中，对货物存储位置的确定（仓号-库位-货架号-货位号）是用哪些字符表示，分别代表的含义。如：表1代码设计——人事代码设计表 代码对象 人事代码 代码类型 部门码+顺序码 位数 7 校验位 1 代码数量 200 使用期限 无限 使用范围 本公司③数据结构设计（E-R图，建立关系数据库表）要求用E-R图来反映系统中功能模块所涉及的数据对象之间的关系，同时依E-R图进行数据库设计，建立关系数据库表。④输入输出界面设计要求结合文字和图片提交应用程序运行的结果。4）课程设计的总结和体会 2.设计文档撰写的主要内容（1）信息系统应实现的目标（2）分析企业现有信息系统处理存在的问题，并为系统建立新的逻辑模型（3）在新系统逻辑模型的基础上，完成新系统的设计。3.参考资料（1）邵举平.物流管理信息系统[M].清华大学出版社&北京交通大学出版社,2006.10.（2）冯耕中.物流管理信息系统及其实例[M].西安交通大学出版社，2004.10.（3）彭扬.物流信息系统[M]..中国物资出版社,2006.1.（4）薛华成.管理信息系统[M]..北京：清华大学出版社,1999.（5）陈艳峰.数据库项目案例导航[M]..北京：清华大学出版社,2004.8. 3、工作 计划 项目进度计划表范例计划下载计划下载计划下载课程教学计划下载 本次课程设计总体时间为二周，2016年6月6日至2016年6月19日，具体计划安排如下：2016.6.6-2016.6.7：需求分析2016.6.8-2016.6.9：系统规划2016.6.10-2016.6.12：系统分析及设计2016.6.13-2016.6.18：应用程序开发2016.6.19：综合评价，结论；以及文档整理提交 4、课程设计完成提交文档要求按以下顺序装订成册：（1）封面；（2）扉页；（3）任务书；（4）指导书；（5）目录；（6）正文；（7）附录；（8）成绩评定表。注：学生应按照本次课程设计文档撰写的主要内容及格式规范完成不少于5000字的设计报告，并按上述装订顺序装订成册。 指导老师：向慧何其超柳伍生2016年2月23日 教研室意见：同意按任务书要求开展设计教研室主任：周爱莲2016年2月25日目录第一章系统设计及开发的可行性分析 11.1经济可行性系统的初步调查 11.1.1企业概况 11.1.2现行系统运行情况及其入库业务流程中存在的问题 21.2系统开发的必要性 31.3技术可行性分析 41.4经济可行性分析 4第二章系统分析 42.1需求分析 42.2组织结构分析 52.3业务流程分析 62.3.1入库单管理模块 72.3.2入库验收管理模块 72.3.3库存管理模块 72.4数据流程分析 72.4.1原材料入库顶层数据流程图 72.4.2原材料入库第一层数据流程图 8第三章系统设计 93.1系统总体结构设计 93.1.1F公司信息管理系统总体结构设计 93.1.2入库管理系统总体结构设计 93.2代码设计 103.3数据结构设计 113.3.1数据库的概念模型设计： 113.3.2部分实体的相关属性： 133.3.4数据库的设计 133.4输入输出界面设计 153.4.1登陆主界面 153.4.2用户信息注册 163.4.3入库管理系统主界面 163.4.4入库单管理 173.4.5入库验收管理 183.4.6供应商管理 193.4.7用户信息管理 203.4.8收货单查询管理 203.4.9库存管理 21第四章课程设计的总结和体会 22参考文献 23附录 24第一章系统设计及开发的可行性分析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入库管理系统物料检验单入库单总经理采购员退货单图2-4原材料入库顶层数据流程图F9检验不合格，退货单F8物料合格F3有效入库单2.01.0D2物料合格单F1入库单入库验收管理入库单管理采购员F4无效入库单F2采购计划单3.0库存管理总经理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物料姓名物流名称入库单号仓库号物料单价物料数量供应商年龄1质检员编号物料单价物料数量物料名称递交物料编号年龄检验1编制物料单价物流数量质检员物料名称检验单号1仓管员收货单号供应商收货日期物流名称物料数量物料单价物料检验单11呈交仓管员n收货单绘制11仓管员号编号1年龄姓名修改库存1仓管员1发给财务部11部门编号负责人图3-2入库管理E-R图3.3.2部分实体的相关属性：入库单（入库单号、物料名称、物料数量、物料单价、供应商、仓位号）收货单（收货单号、供应商、仓管员、物料名称、物料单价、物料数量、收货日期）物料检验单（检验单号、物料名称、物料数量、物料单价、质检员）物料（物料编号、物料名称、物料数量、物料单价）质检员（质检员编号、姓名、性别、年龄）供应商（供应商号、名称、地址、联系电话、产品等级）仓管员（仓管员编号、姓名、性别、年龄）提供（采购员编号、入库单号）验收（入库单号、仓管员编号、清单数量）递交（仓管员号、入库单号、递交量）检验（质检员编号、物料编号、物料数量、物料质量）呈交（仓管员编号、物料检验单号、清单数量）编制（物料编号、物料检验单号）绘制（仓管员号、收货单号）发给（仓管员号、收货单号、入库单号）修改（物料编号、仓管员编号）3.3.4数据库的设计第一步：数据库的建立。使用Access软件进行编辑。表3-7仓管员数据库 Name Type Text 仓管员号 Text 2 姓名 Text 20 性别 Text 1 年龄 Text 2表3-8供应商数据库 Name Type Text 供应商号 Text 10 名称 Text 15 地址 Text 20 联系电话 Text 15表3-9入库单数据库 Name Type Text 入库单号 Text 30 物料名称 Text 10 物料数量 Text 10 物料单价 Text 5 仓位号 Text 7表3-10收货单数据库 Name Type Text 收货单号 Text 30 物料名称 Text 10 物料数量 Text 10 物料单价 Text 5 供应商 Text 15 入库单号 Text 30 仓管员 Text 20 收货日期 Date/Time 8表3-11用户信息 Name Type Text 用户名 Text 10 密码 Text 20第二步：数据库的连接。在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"收货单号不存在，请重新输入！",,"提示"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("仓库")Adodc1.Recordset.MoveFirstEndIfEndSubPrivateSub返回_Click()Form8.HideForm4.ShowEndSub供应商管理PrivateSub返回_Click()Form5.HideForm4.ShowEndSubPrivateSub删除_Click()Adodc1.Recordset.DeleteEndSubPrivateSub修改_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("联系电话")Adodc1.Recordset.Fields("等级")=等级.TextAdodc1.Recordset.DeleteEndIfEndSubPrivateSub新建_Click()If供应商号.Text=""ThenMsgBox"请输入完整信息，输入供应商号！",vbOKOnly+vbExclamation,"警告！"Text1.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("供应商号")=供应商号.TextAdodc1.Recordset.Fields("名称")=名称.TextAdodc1.Recordset.Fields("地址")=地址.TextAdodc1.Recordset.Fields("联系电话")=联系电话.TextAdodc1.Recordset.Fields("等级")=等级.TextAdodc1.Recordset.UpdateMsgBox"已保存供应商信息！",vbOKOnly+vbExclamation,"提示"供应商号.Text=""名称.Text=""地址.Text=""联系电话.Text=""EndIfEndSub用户信息管理PrivateSub返回_Click()Form7.HideForm4.ShowEndSubPrivateSub确认_Click()If用户名=""Or新密码=""OrNotIsNumeric(密码确认)ThenMsgBox"请完整信息，密码为数字！"ElseIf新密码<>密码确认ThenMsgBox"两次密码不同，请从新输入！"新密码=""密码确认=""密码确认.SetFocusElseAdodc1.Recordset.Filter="用户名='"+用户名.Text+"'"Adodc1.Recordset.Fields("密码")=新密码.TextMsgBox"修改密码成功!",vbOKOnly+vbExclamation,"提示"用户名=""新密码=""密码确认=""EndSub成绩评定表 评定项目 内容 满分 评分 学习态度 学习认真，态度端正，遵守纪律，严格保证设计时间并按任务书中规定的进度开展各项工作。 10 程序设计 结合文本内容来设计程序。程序界面友好，能够建立表间联系。具有实际动手能力、分析能力和计算机应用能力。 40 文本质量 结构严谨，层次清晰，语言准确，文字流畅，完全符合规范化要求，书写工整，图表清晰，分析透彻。文本上交及时 50 总成绩 100 教师评语：签名：日期：