物流管理信息系统课程设计报告

. CHANGSHA UNIVERSITY OF SCIENCE & TECHNOLOGY物流管理信息系统课程设计题目： 制药企业物资采购管理信息系统设计学生姓名： 学 号： 班 级: 物流1102班专 业： 物流工程指导教师： 向慧 盛玉奎2014 年 06 月24日制药企业物资采购管理信息系统设计学生姓名： 学 号： 班 级： 物流1102班所在院(系): 交通运输工程学院指导教师： 向慧 盛玉奎完成日期: 2014年06月24日长沙理工大学课程设计任务书 交通运输工程 系 物流工程专业 2011级 2 班课程名称 物流管理信息系统课程设计 题 目 制药企业物资采购管理信息系统设计 学生姓名*同组设计者： 一、技术参数和设计要求1、技术参数物流管理信息系统及其实例.西安交通大学出版社，2004.10.物流信息系统，物资出版社，2006.1.；物流管理信息系统,清华大学出版社、北京交通大学出版社,2006.10.数据库工程案例导航.，中国铁道出版社，：清华大学出版社,2004.8.2、设计要求本课程设计是物流工程专业物流管理信息系统专业课程学习的必修内容之一。课程设计要求学生掌握信息系统开发设计的一般步骤与应用程序开发能力。本课程设计的目的在于增强学生的感性认识，沟通学生从课堂的理论知识与具体实际工作的衔接，提高学生的动手能力，实现理论和实践的统一。通过课程设计，使学生深刻地认识到信息技术的应用对物流行业开展的重要性；掌握信息系统开发的主要流程；能结合所学相关物流专业知识并运用数据库开发软件完成对物流管理信息系统设计。二、课程设计选题设计选题说明：下面所列出的是本次课程设计的选题方向，另外指导教师根据各选题提供了局部相关案例或给出了相关系统开发提示。同学通过分析可以对各选题例如进展分析，但是每一个选题只能由一个小组选择。注：选择同一题目的人数为4人，并且每个小组成员完成单独一个子系统的开发及文档的撰写。1、 服装物流管理信息系统设计2、 仓库管理信息系统设计3、 销售管理信息系统设计4、 连锁餐饮行业的物流管理信息系统设计5、 企业物料管理信息系统的设计6、 企业进销存管理信息系统设计7、 物流配送管理信息系统设计8、 生产企业物资采购管理信息系统设计三、本次课程设计应完成的主要任务1、系统设计及开发的可行性分析经济可行性系统的初步调查。企业概况、组织机构、现行系统运行情况及其业务流程中存在的问题、新系统开发条件系统开发的必要性物流行业竞争、在生产、采购及销售流程中信息系统的必要性技术可行性分析系统的体系构造、选择的开发方式，分析技术中的潜在的风险经济可行性分析本钱/效益分析2、系统分析需求分析物流信息系统使用者进展相关调查包括现有系统亟待解决的问题组织构造分析设计的物流信息系统中所涉及的相关部门及人员，要求分析出这些部门及人员在实际工作中与物流活动相互关系的重要程度。业务流程分析要求对每个系统开发小组成员须对本人负责设计及开发的系统子功能模块的业务流程分析，同时结合文字用业务流程图表述出来。数据流程分析要求对每个系统开发小组成员须对本人负责设计及开发的系统子功能模块的数据流程进展分析，同时结合文字用数据流程图详细表述出来。3、系统设计 系统总体构造设计子系统/模块划分要求画出所在小组设计的物流信息系统总体构造图，小组成员着重阐述各自负责完成功能模块的功能。 代码设计要求说明系统功能模块的编码形式和构造比方仓储管理中，对货物存储位置确实定仓号-库位-货架号-货位号是用哪些字符表示，分别代表的含义。如：表2.代码设计人事代码设计表代码对象人事代码代码类型部门码+顺序码位数7校验位1代码数量200使用期限无限使用范围本公司 数据构造设计E-R图，建立关系数据库表要求用E-R图来反映系统中功能模块所涉及的数据对象之间的关系，同时依E-R图进展数据库设计，建立关系数据库表。 输入输出界面设计要求结合文字和图片提交应用程序运行的结果。4、课程设计的总结和体会四、工作方案本次课程设计总体时间为两周，2014年6月9日至2014年6月22日，具体方案安排如下：2014.6.9-2014.6.10：需求分析2014.6.11 -2014.6.12：系统规划2014.6.13-2014.6.16：系统分析及设计2014.6.17 -2014.6.21：应用程序开发2014.6.22：综合评价，结论；以及文档整理提交五、课程设计完成提交文档要求按以下顺序装订成册： 1封面； 2扉页； 3任务书； 4指导书； 5目录； 6正文； 7附录； 8成绩评定表。指导教师：向慧 盛玉奎2014年3月1日教研室意见：同意按任务书要求开展设计教研室主任：周爱莲 2014年3月1日2011级物流工程专业物流管理信息系统课程设计指导书一、课程设计的目的和要求：物流管理信息系统课程设计是物流工程专业中实践性环节，是学习完物流管理信息系统课程后进展的一次全面的综合练习，其目的在于增强学生的感性认识，将课堂的理论知识与具体实际工作有效的衔接起来，并提高学生的动手能力，实现理论和实践的统一。通过本次课程设计，使学生深刻地认识到信息技术的应用对物流行业开展的重要性；掌握信息系统开发的主要流程；能结合所学相关物流专业知识并运用数据库开发软件完成对物流管理信息系统设计。二、课程设计的依据和资料来源：1、邵举平.物流管理信息系统.第2版,清华大学出版社&北京交通大学出版社,2006.10.2、冯耕中.物流管理信息系统及其实例.第1版,西安交通大学出版社，2004.10.3、彭扬.物流信息系统.中国物资出版社, 2006.1.4、薛华成.管理信息系统.第3版.：清华大学出版社,1999.5、陈艳峰.数据库工程案例导航.第1版. ：清华大学出版社,2004.8.三、课程设计应完成的任务：本课程设计重视书面材料的撰写信息系统前期的系统调查，系统规划，系统分析，系统设计，最后通过应用程序开发工具VB、VF等可视化语言环境建立一个根本完整的信息系统。此外课程设计要求一人一题，每个同学所完成的文档都应包括如下内容：1、搜集资料：根据选题，进展系统调查，搜集资料2、系统分析需求分析组织构造分析业务流程分析数据流程分析3、系统设计 系统总体构造设计子系统/模块划分 代码设计 数据构造设计E-R图，建立关系数据库表 输入输出界面设计 4、系统实施附设计子系统的程序源代码5、体会和总结四、课程设计要求及时间安排：1、课程设计要求：本次课程设计分小组进展，每小组4人，各小组必须选择不同的选题，且每人必须独立负责设计和开发该系统中的一个模块，最后每人亲自提交一份由自己开发的设计成果不是整个系统的设计文档；设计过程中，根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程设计活动；最后开发出一个可运行的信息系统，界面设计合理，并可通过上机检查；最后设计文档用A4纸打印，字迹清晰，页面整洁，并按任务书要求装订成册。2、设计纪律：本次课程设计集中在固定教室交通学院计算机机房进展，设计期间严格考勤，按时作息，一般不允许请假，如遇特殊情况，需写请假条报院领导批准，否则按每天旷课八节处理，如果请假或旷课总时数累计达全部设计时间的三分之一以上，该课程设计成绩按零分计；此外，不得以任何理由请人代交作业，否则本次课程同样以零分计。3、时间安排：两周设计时间，第 16 周第 17 周。第一周：确定好选题；搭建好系统的整体框架确定好系统开发人员及各自分工；系统开发的可行性研究；对开发对象物流活动作业流程进展系统分析第二周：系统总体设计；系统详细设计；系统实施，综合评价，结论；以及文档整理提交。五、成绩评定1、评分标准：设计操作纪律，10分；设计成果，40分；设计文档，50分。 2、假设发现有两个和两个以上不同小组的文本和程序有抄袭嫌疑，则小组的所有同学的成绩均为零分。. .目 录第一章 系统开发概述11.1 系统开发的背景11.2 系统开发的目的和意义1第二章 系统规划22.1 确立新系统建立的目标22.2 系统开发的可行性22.3 选择系统开发方案32.4 确立系统开发进度3第三章 系统分析33.1 需求分析33.2组织构造分析43.3 业务流程分析63.4 数据流程分析7第四章 系统设计104.1 系统总体构造设计104.2 代码设计114.3 数据库构造设计124.4 输入输出界面设计17第五章 总结24参考文献25附录26. .第一章 系统开发概述1.1 系统开发的背景 1.1.1 HZ企业概况HZ公司是美国*大型制药公司和国内*制药厂于1989年合资成立的大型现代化制药企业，总投资为6040万美元，其合资规模位于国内合资制药企业前列。该公司分成生产和销售两大局部，在中国的生产集团位于*经济技术开发区，而销售集团则位于北京。HZ公司担负着供应国内销售集团需要的二十几种产品，另外从1995年开场向国际市场出口成品和半成品。考虑到公司目前全球化采购生产，销售的模式，需要通过建立新的信息系统来加强企业各环节间的联系。在开发新的系统时应考虑全球各个生产企业的运作情况，现在的库存信息、生产文件信息都要传递到财务部加以综合输入E*CEL文件并加以整理，从而总结出财务期末库存帐，本钱差异分析表，同时新建的信息系统需要车间及仓储部门在完成每一项任务后，将数据信息及时、准确地输入到新系统中。 1.1.2 制药企业采购管理系统概述进人21世纪以来，随着科学技术的日渐增进和经济的飞速开展、全球化信息网络和全球化市场的形成以及技术变革的加速，市场竞争也日趋残酷。技术进步和需求多样化使得产品寿命周期不断缩短，制药企业面临着缩短交货期、提高产品质量、降低本钱和改进效劳的压力。所有这些都要求企业能对不断变化的市场做出快速反响，源源不断的开发出能满足用户需求的、定制的个性化产品去占领市场，赢得竞争。企业生产能力的发挥，在一定程度上也要受采购管理的制约。 采购是企业向供应商购置商品的一种商业行为，企业经营活动所需要的物资绝大局部是通过采购获得的，采购是企业物流管理的起始点。低价格、高质量、良好的效劳是采购者的根本要求，传统上采购管理的理论都注重于采购行为本身，考虑如何选择供应商，如何谈判，使企业在采购中获得利益。由于采购资金在总本钱中占很大比重，使得采购在企业经营活动中占重要地位。1.2 系统开发的目的和意义 采购管理系统可帮助采购人员完成采购物料从采购方案的制订、采购申请、采购询价、采购订单、订单跟踪等采购业务的全部过程，每一业务都能有效控制。采购人员在向供应商发出采购令前不必像以前那样，繁琐地填写大量的各种表格，只需审查系统所产生的每一期间内的采购方案即可。如遇生产方案变更，采购方案相应变化。采购人员因有了及时准确的方案信息，他们可从烦琐的事务作业中解脱出来，用更多的时间和精力来进展价值分析，选项择货源和开发更多的合格供应商。有效地监控采购方案的实施及采购本钱的变动情况，帮助采购人员选择最正确的供应，确保采购工作高质量、高效率、低本钱地执行，使企业处于最正确的供货关态。 采购作业方案经审批后生成采购订单，采购订单审批后执行采购。采购管理子系统与库存、生产、质量及应付账子系统同时使用，效益将更明显。第二章 系统规划2.1 确立新系统建立的目标本系统开发采用构造化系统开发方法与面向对象的开发方法，结合两种开发方法各自的优势，对制药企业物资采购系统进展管理，从拟定采购方案，实施采购方案，到货，到入库，入库检验等各个环节进展系统的管理，简化各环节的人力，物力，财力，力求到达最优化。2.2 系统开发的可行性 2.2.1 系统开发的必要性制药企业物流流程复杂繁琐，消耗大量的人力物力，并且各个部门的分工不明确，这就需要有一个新的信息管理系统。采购环节与其它环节严密联系以及采购本身的重要性，所以需要开发采购管理子系统，采购管理子系统的开发对节约本钱、控制库存、调节生产等都是相当有意义的。 2.2.2 经济可行性分析 虽然在系统开发的前期需要投入的资金比较多，但是在长期的运营管理当中，能运用计算机进展开发与管理，可以大量节省设备资金，节省人员资本，即 不管是人力物力上面都可以大量的节省消耗，相对于本钱来说其效益是相当可观的。因此该信息系统在经济上是可行的。 2.2.3 技术可行性分析本系统要求有熟练掌握VB编程语言的技术人员，并需要计算机，这些方面的要求目前都是很容易到达的。因此，在技术方面是可行的。 2.2.4 管理上的可行性 此次采购系统的开发得到了HZ制药企业采购部门经理的大力支持，期待着设计出的采购系统能够提高企业物资采购流程效率。采购部门的其他人员也期待着采购系统能够成功的开发，帮助他们能够快速准确的工作，减少作业量提高效率。2.3 选择系统开发方案 运用Visual Basic语言完成系统，使用Access建立数据库，通过ADO控件的形式链接到VB系统中，最后运用Microsoft Office实用软件完成文档工作。2.4 确立系统开发进度本次物资采购系统设计总体时间为两周，2014年6月9日至2014年6月22日，具体方案安排如下：2014.6.9-2014.6.10：需求分析；2014.6.11 -2014.6.12：系统规划；2014.6.13-2014.6.16：系统分析及设计；2014.6.17 -2014.6.21：应用程序开发；2014.6.22：综合评价，结论；以及文档整理提交。第三章 系统分析3.1 需求分析采购管理是指为了达成生产或销售方案，从适当的供应商那里，在确保质量的前提下，在适当的时间，以适当的价格，购入适当数量的商品所采取的一系列管理活动，而供应管理是为了保质、保量、经济、及时地供应生产经营所需要的各种物品，对采购、储存、供料等一系列供应过程进展方案、组织、协调和控制，以保证企业经营目标的实现。 采购管理系统是根据HZ制药企业生产部门的材料采购清单的需要，对采购方案汇总、采购方案制定、采购订单制定、原材料入库状况、采购结算以及采购付款方案的编制进展全程管理，为采购部门和财务部门提供准确及时的信息，并辅助管理抉择。 本系统实施后，能够输入、修改商品和供应商根本资料，能对采购业务和交货信息进展维护，能对商品采购信息进展查询、交货追踪和统计。 HZ制药企业整体组织构造如下：HZ制药企业在采购业务流程中，涉及的主要部门有采购部、财务部、生产部、质检部、仓储部，而涉及到的人员如以下图所示：采购管理信息系统涉及到的部门人员在实际工作中与物流活动相互关系如下：表3-1 采购管理信息系统功能表部门/人员功能重要程度总经理信息系统建立的决策人，对整个系统建立做出决策，并进展监视至关重要采购部长负责维护整个采购系统并且做出采购决策非常重要采购员负责对供应商提供的产品价格进展比较，敲定后与供应商签订订货合同，另外还要负责到财务部进展原材料采购的财务核算重要采购方案员根据采购清单，做出采购方案单，并提出采购申请重要业务员负责在产品入库后填制入库单，还对整个采购业务活动流程进展跟踪管理，保证整个采购业务的正常进展与实施重要财务部主持财务信息系统建立的重要工作，付款给供应商一般生产部负责提供下月的生产方案并且做出采购清单一般质检部负责对入库产品进展检验，出具质检报告，该报告作为日后评价供应商质量的依据一般仓储部负责货物的存储工作，以及原材料进出库的管理一般3.3 业务流程分析HZ企业建立信息系统在采购方面主要是解决采购订单的管理、采购收货管理、采购付款管理三个方面的问题，采购涉及的部门比较多，包括生产部门、财务部门、仓储部门、质监部门四个部门，在建立采购管理信息系统是可将整个采购信息系统可以分为三个模块，即采购订单管理模块、采购收货管理模块、采购付款管理模块。 3.3.1 采购订单管理模块生产部把原材料采购清单交给采购方案员，采购方案员做采购方案汇总，并根据需求方案文件材料采购申请，经采购经理批准后，递交给采购员编制采购订单，最后采购订单编制完成后发给供应商，供应商供货。 3.3.2 采购收货管理模块材料到货后，经采购员与仓库人员共同确认后由仓库做接收并通知质量检查部门取样检查，检测报告交给仓库管理人员，假设合格，则接货；不合格，拒接。最后仓管员把收货单和退货单交给采购员，采购员进展系统更新，并且对相应的供应商做出评价。 3.3.3 采购付款管理模块 采购员根据仓管员给的收货单以及退货单，核实具体的采购情况，并且对采购作出采取核算，把相应的发票递交财务部，财务部付帐款给供应商。3.4 数据流程分析根据HZ制药企业的业务流程图，可画出HZ制药企业采购部门的数据流程图。 3.4.1 原材料采购顶层数据流程图采购管理信息系统顶层数据流程图说明的是生产部向采购部管理系统提供采购清单，采购部管理系统向供应商发出采购订单，供应商供货到入库，仓库向采购部发出收货单和退货单，采购部根据收货单以及退货单通知财务部付款。 3.4.2 原材料采购第一层数据流程图采购管理系统可分为三个模块，即采购订单管理模块、采购收货管理模块、采购付款管理模块。采购订单管理模块主要是采购信息的汇总，采购订单的编制；采购收货管理模块主要是原材料的入库情况的汇总；采购付款管理模块主要是核算原材料入库情况，编制发票给财务部，财务部付帐款给供应商。 3.4.3 原材料采购第二层数据流程图采购管理信息系统第二层数据流程是采购订单管理模块的具体操作。把采购订单管理模块分为三个子模块，即采购方案汇总、生成采购方案、生成采购订单。第四章 系统设计4.1 系统总体构造设计 4.1.1 HZ制药企业信息管理系统总体构造设计在HZ制药企业信息系统中包含生产管理系统、采购管理系统、库存管理系统、销售管理系统、财务管理系统。生产管理系统主要是负责半成品和成品的生产；采购管理系统主要是负责原材料的采购工作；库存管理系统主要是原材料、半成品以及成品的进出库管理；销售管理系统主要是负责半成品以及成品的销售，以及作出市场分析；财务信息系统主要是帮助公司收集和管理应收应付财务信息。 4.1.2 采购管理系统总体构造设计 采购订单管理模块包括采购订单的新建、修改、删除等功能，主要是对采购订单进展管理的模块；采购付款管理模块是完成付款任务的付款管理界面，也是一个即将完成的付款单样本；采购收货管理模块是采购完成时，材料入库的具体情况，即将完成的进货单样品，生成一张订单，需要有足够的货品信息，包括货品、货品名称、货品规格、货品单位、货品价格、数量等信息；采购订单查询模块是方便管理人员查询订单的模块设计；供应商信息模块是对供应商管理模块；用户信息管理模块可以用来修改密码、注册等用户管理。4.2 代码设计 原材料采购系统中设计的名称比较多，所以将对其中主要的名称进展代码设计，记忆用的代码形式设定如下：表4-1 采购订单代码设计代码对象采购订单代码类型CG+日期+顺序码位数无限校检码无代码数量无限使用期限无限使用范围本公司表4-2 供应商名称代码设计代码对象供应商代码类型GY+顺序码位数无限校检码无代码数量无限使用期限无限使用范围本公司表4-3 物料代码设计代码对象物料代码类型WL+顺序码位数无校检码无代码数量无限使用期限无限使用范围本公司表4-4 采购员代码设计代码对象采购员代码类型*位数2校检码无代码数量无限使用期限无限使用范围本公司表4-5 仓库代码设计代码对象仓库代码类型*位数1校检码无代码数量无限使用期限无限使用范围本公司表4-6 入库单代码设计代码对象入库单代码类型RK+顺序码位数无限校检码无代码数量无限使用期限无限使用范围本公司表4-7 采购付款单代码设计代码对象采购付款单代码类型FK+日期+顺序码位数无限校检码无代码数量无限使用期限无限使用范围本公司4.3 数据库构造设计 4.3.1 数据库的概念模型设计：图4.3 采购订单管理的E-R图图4.4 采购收货管理的E-R图图4.5 采购付款管理的E-R图4.3.2 局部实体的相关属性： 4.3.4 关系模型入库单入库单号、物料名称、物料数量、物料单价、供应商、仓位号采购订单订单号、供应商、采购员、物料名称、物料数量、物料单价、订单时间采购付款单付款单号、供应商、采购员、物料名称、物料单价、物料数量、付款日期供应商 供应商号、名称、地址、联系 、产品等级物料物料、物料名称、物料单价、物料数量采购员采购员号、性别、年龄呈交供应商号、采购方案员号、清单数量汇总采购清单号、采购方案员号、汇总量递交采购员号、采购申请单号、递交量 编制仓库号、入库单号交给供应商号、采购单号、采购单量交货供应商号、仓库号绘制采购员号、发票号发给采购员号、入库单号4.3.4 数据库的设计第一步、 数据库的建立。该系统的数据库主要是应用Access编辑软件进展编辑的。表4-8 采购员数据库NameTypeTe*t采购员号Te*t2Te*t20性别Te*t1年龄Te*t2表4-9 供应商数据库NameTypeTe*t供应商号Te*t10名称Te*t15地址Te*t20联系 Te*t15表4-10 采购订单数据库NameTypeTe*t采购单号Te*t30物料名称Te*t10物料数量Te*t10物料单价Te*t5供应商Te*t15采购员Te*t20订货日期Date/Time8交货日期Date/Time8表4-11 入库单数据库NameTypeTe*t入库单号Te*t30物料名称Te*t10物料数量Te*t10物料单价Te*t5仓库号Te*t7表4-12 采购付款单NameTypeTe*t付款单号Te*t30物料名称Te*t10物料数量Te*t10物料单价Te*t5供应商Te*t15付款金额Te*t15采购员Te*t20付款日期Date/Time8表4-13 用户信息NameTypeTe*t用户名Te*t10密码Te*t20 第二步、数据库的连接。在Visual Basic中，使程序与数据库的连接有两种方式，一种使通过设置ADO控件的属性将程序与数据库进展连接，另一种是通过代码形式将ADO控件连接数据库。通过代码的形式加大了开发难度，并且复杂易出错，在程序开发是选择了通过设置ADO空间的属性将程序与数据进展连接。4.4 输入输出界面设计 4.4.1 登陆主界面用户已注册时，输入用户名和密码，点击登陆。假设用户名和密码都正确则可以登陆采购管理系统主界面；假设错误，则会弹出对话框提醒密码不正确；假设用户名输入错误，则会弹出对话框提醒用户名不存在。并且系统的输入密码为*，是在属性栏中的passwordchar设置*。 用户未注册时。可以点击注册按钮，登入用户信息注册页面，用户信息注册完成后，登陆即可。用户名及密码不能为空，如不填写两者或两者之一，则会弹出对话框提醒请输入用户名与密码！。 4.4.2 用户信息注册未注册的用户可以设置用户名以及密码，设置完成后，点击新建。假设设置的信息完整，则会弹出对话框提示新用户已建好，此时新建的用户信息已经传到数据库中；假设用户名和密码输入的信息不完整，则会弹出对话框请输入完整信息，输入用户名和密码！。点击返回按钮，即可返回到登陆主界面。 4.4.3 采购管理系统主界面 采购管理系统主界面是登陆后最根底的一个界面，内容包括采购订单管理、采购收货管理、采购付款管理、用户信息管理、供应商管理、订单查询管理。点击采购订单管理按钮，则会弹出采购订单管理界面，点击相应的按钮就会弹出相应的管理界面。点击退出，则会关闭采购管理系统，返回到登陆主界面。 4.4.4 采购订单管理 采购订单管理界面设有采购订单的相关信息，包括采购单号、采购员、供应商、材料、采购数量、材料价格、采购日期、交货日期。 假设没有输入信息，就点击新建按钮，则会弹出对话框提醒请输入完整信息，输入订单号!；假设输入的信息完整，点击新建后，则会出现对话框提醒已保存订单，并且新建的信息会更新到数据库中。 假设点击取消，相关信息就会取消，可以输入新的信息。选中订单，点击删除按钮，相应的采购订单所对应的信息就会被删除，同时更新数据库。假设没有输入采购单号，点击修改的话，则会弹出对话框提醒无该订单；假设输入的采购单号正确，则此订单的信息会出现在信息框中，然后进展相应的操作即可。假设点击退出按钮，则会关闭采购订单管理界面，弹出采购订单管理主界面。4.4.5 采购收货管理采购订单管理界面主要是完成订单收货入库。假设未输入订单号，就点击订单查询按钮，则会弹出对话框提醒请输入完整信息，输入订单号 ！；假设输入的订单号错误，则会弹出对话框提醒无该订单，请重新输入！；假设输入的订单号正确，则可以按照操作完成订单的收货工作。删除按钮是删除错误的订单信息的。假设点击返回按钮，则会关闭采购收货管理界面，弹出采购订单管理主界面。 4.4.6 采购付款管理采购管理付款管理界面主要是负责入库的订单付款事宜的。假设未输入订单号，则会弹出对话框提醒请输入完整信息，输入订单号！；假设输入的订单号错误，则会弹出对话框提醒无该订单，请重新输入！；假设输入的订单号正确，则会验证订单号是否付款，假设付款，则查找完毕；假设未付款，则会弹出对话框提醒是否付款，付款则点击确认付款按钮，则系统会付款，而相应的订单信息也会更新。 假设点击退出按钮，则会关闭采购付款管理界面，弹出采购订单管理主界面。图4.10 采购收货管理主界面图4.11 采购付款管理主界面 4.4.7 供应商管理 供应商管理界面设有供应商的相关信息，包括供应商号、联系 、名称、地址。初始时，Data Grid会显示出已有的供应商信息。 假设没有输入信息，就点击新建按钮，则会弹出对话框提醒请输入完整信息，输入供应商号!；假设输入的信息完整，点击新建后，则会出现对话框提醒已保存订单，并且新建的信息会更新到数据库中。 假设点击取消，相关信息就会取消，可以输入新的信息。选中订单，点击删除按钮，相应的采购付款单所对应的信息就会被删除，同时更新数据库。假设没有输入供应商号，点击修改的话，则会弹出对话框提醒无该供应商号；假设输入的供应商号正确，则此订单的信息会出现在信息框中，然后进展相应的操作即可。 假设点击退出按钮，则会关闭供应商管理界面，弹出采购订单管理主界面。图4.12 供应商管理主界面 4.4.8 用户信息管理用户信息管理界面是对已有用户的密码进展修改的界面。将原有用户名输入，则自动进入数据库当中搜索对应信息。将新的密码输入两次则可将原有密码信息覆盖。倘假设两次密码信息输入不同，则系统自动提示新密码输入有误。倘假设新修改的密码不为数字，则弹出提示框请输入完整信息，密码为数字。当新的密码信息覆盖成功后，会弹出提示框，通知用户新的信息已经保存。假设点击返回按钮，则会关闭用户信息管理界面，弹出采购订单管理主界面。 4.4.8 订单查询管理 订单查询管理界面主要是核对以及检查采购订单。假设未输入采购单号或输入的采购单号错误，则会弹出提示框提示采购单号不存在，请重新输入！；假设输入的采购单号正确，点击查询后，采购订单的详细信息则会出现在相应的信息框中。假设点击返回按钮，则会关闭订单查询管理界面，弹出采购订单管理主界面。第五章 总结经过几个星期的不断实践与探索,采购供应管理系统的设计与实现己经初步完成,根本上到达了预期的设计要求和目的。写完这个课程设计报告，一个完整的采购供应管理系统就创立完毕了。在本系统的设计与实现的过程中，主要讲述了采购供应管理信息系统的系统设计局部，包括功能模块设计、数据库构造设计等。系统设计为整个程序构建了骨架,各个功能模块实现各个细节局部。主要功能有：数据入库、查询、修改和删除等。 在整个课程设计阶段的工作和课程设计报告的写作过程的经历将会使我终生受益，并对我今后的工作和开展产生深远的影响。由于整个课程设计时间比较仓促，所以该系统还有许多不尽如意的地方，比方对订单查询管理的设计不是很详尽、仔细，对*些功能的细节设计还缺乏完备性，缺少联机文档，缺乏对系统整体进展周密的考虑，出错处理不够等等多方面问题。这些都有待于进一步的改善。 短短几个星期的课程设计，使我从中受到很大的教育和启迪，不仅将大学所学的知识进展了实际应用，还学到了很多书本上学不到的知识。开阔了视野，增长了知识，积累了经历。充分锻炼了自己的动手和应用能力，真正做到了理论联系实际。参考文献1 金敏力.管理信息系统.科学出版社，2009 2 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，2003 3飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002 4申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，302 5 Steve Tei*eira，*aviver Pacheco著，龙劲松，王瑜，谢尚书译 . visual basic 6.0开发人员指南 . 机械工业出版社 .2003 6 张立科编写组 .Windows API 函数参考手册 .人民邮电出版社 .2002 7 王珍玲 。实用软件工程教程 高等教育出版社 2004 8 张朝昆、施丽娜 .Visual Basic数据库开发根底与应用.人民邮电出版社，2009 附录登陆主界面Private Sub Command2_Click()Adodc1.Recordset.Find (用户名= & Te*t1.Te*t & )If Adodc1.Recordset.EOF = True ThenTe*t1 = Te*t2 = MsgBo* 用户名不存在, , 提示ElseIf (Adodc1.Recordset.Fields(密码) Te*t2.Te*t) ThenMsgBo* 密码不正确, , 提示Te*t1.Te*t = Te*t2.Te*t = ElseTe*t1.Te*t = Te*t2.Te*t = End IfEnd SubPrivate Sub Command1_Click()End SubPrivate Sub Te*t2_Change()Te*t2.PasswordChar = *End Sub用户信息注册Private Sub 返回_Click()End SubPrivate Sub 新建_Click()If 用户名.Te*t = Or 密码.Te*t = ThenMsgBo* 请输入完整信息，输入用户名和密码！, vbOKOnly + vbE*clamation, 警告!ElseMsgBo* 新用户已建好!, vbOKOnly + vbE*clamation, 提示用户名.Te*t = 密码.Te*t = End IfEnd Sub采购管理系统主界面Private Sub Command1_Click()采购订单管理.Visible = TrueEnd SubPrivate Sub Command2_Click()采购收货管理.Visible = TrueEnd SubPrivate Sub Command3_Click()采购付款管理.Visible = TrueEnd SubPrivate Sub Command4_Click()订单查询管理.Visible = TrueEnd SubPrivate Sub Command5_Click()用户信息管理.Visible = TrueEnd SubPrivate Sub Command6_Click()供应商管理.Visible = TrueEnd SubPrivate Sub 退出_Click()End Sub采购订单管理Private Sub 删除_Click()End SubPrivate Sub 物料金额_Click()物料金额.Te*t = Val(物料数量) * Val(物料单价)End SubPrivate Sub 新建_Click()If 订单号.Te*t = ThenMsgBo* 请输入完整信息，输入订单号 ！, vbOKOnly + vbE*clamation, 警告！ElseMsgBo* 已保存订单！, vbOKOnly + vbE*clamation, 提示订单号.Te*t = 采购员.Te*t = 订单时间.Te*t = 仓库.Te*t = 供应商.Te*t = 是否交货.Te*t = 物料名称.Te*t = 物料单价.Te*t = 物料数量.Te*t = 物料金额.Te*t = End IfEnd SubPrivate Sub 修改_Click()Adodc1.Recordset.Find (订单号= & 订单号.Te*t & )If Adodc1.Recordset.EOF = True ThenMsgBo* 无该订单！请从新输入Else订单号.Te*t = Adodc1.Recordset.Fields(订单号)采购员.Te*t = Adodc1.Recordset.Fields(采购员)供应商.Te*t = Adodc1.Recordset.Fields(供应商)物料名称.Te*t = Adodc1.Recordset.Fields(物料名称)物料数量.Te*t = Adodc1.Recordset.Fields(物料数量)物料单价.Te*t = Adodc1.Recordset.Fields(物料单价)物料金额.Te*t = Adodc1.Recordset.Fields(物料金额)是否交货.Te*t = Adodc1.Recordset.Fields(是否交货)仓库.Te*t = Adodc1.Recordset.Fields(仓库)订单时间.Te*t = Adodc1.Recordset.Fields(订单时间)End IfEnd Sub采购收货管理Private Sub 订单查询_Click()Adodc1.Recordset.Fields(是否交货) = 是MsgBo* 完成交易，已入仓库, vbOKOnlyAdodc2.Recordset.Find (订单号= & Adodc1.Recordset.Fields(订单号) & )If Adodc2.Recordset.EOF = True ThenMsgBo* 是否交易入库, vbOKOnlyAdodc2.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.Fields(是否付款) = Adodc1.Recordset.Fields(是否付款)ElseAdodc2.Recordset.Fields(物料数量) = (Adodc2.Recordset.Fields(物料数量) + Adodc1.Recordset.Fields(物料数量)End If订单号.Te*t = End SubPrivate Sub 返回_Click()End SubPrivate Sub 删除_Click()End Sub采购付款管理Private Sub 确认付款_Click()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.Fields(物料单价) = Adodc1.Recordset.Fields(物料单价)Adodc2.Recordset.Fields(物料金额) = Adodc1.Recordset.Fields(物料金额)Adodc2.Recordset.Fields(是否付款) = Adodc1.Recordset.Fields(是否付款)MsgBo* 完成付款交易!, vbOKOnly订单号.Te*t = End SubPrivate Sub 返回_Click()End SubPrivate Sub 查找_Click()If 订单号.Te*t = ThenMsgBo* 输入订单号!, vbOKOnlyElseAdodc1.Recordset.Find (订单号= & 订单号.Te*t & )If Adodc1.Recordset.EOF ThenMsgBo* 无该订单!ElseAdodc1.Recordset.Filter = 订单号 = + + 订单号.Te*t + If Adodc1.Recordset.Fields(是否付款) = 是 Then确认付款.Enabled = FalseElse确认付款.Enabled = TrueEnd IfEnd IfEnd IfEnd Sub订单查询管理Private Sub 查询_Click()Dim a As StringAdodc1.Recordset.Find (订单号= & a & )If Adodc1.Recordset.EOF = True Then订单号.Te*t = MsgBo* 订单号不存在，请重新输入！, , 提示Else物料名称.Te*t = Adodc1.Recordset.Fields(物料名称)物料数量.Te*t = Adodc1.Recordset.Fields(物料数量)物料单价.Te*t = Adodc1.Recordset.Fields(物料单价)供应商.Te*t = Adodc1.Recordset.Fields(供应商)采购员.Te*t = Adodc1.Recordset.Fields(采购员)物料金额.Te*t = Adodc1.Recordset.Fields(物料金额)订单时间.Te*t = Adodc1.Recordset.Fields(订单时间)仓库.Te*t = Adodc1.Recordset.Fields(仓库)是否交货.Te*t = Adodc1.Recordset.Fields(是否交货)是否付款.Te*t = Adodc2.Recordset.Fields(是否付款)End IfEnd SubPrivate Sub 返回_Click()Unload MeEnd Sub供应商管理Private Sub 新建_Click()If 供应商号.Te*t = ThenMsgBo* 请输入完整信息，输入供应商号 ！, vbOKOnly + vbE*clamation, 警告！ElseAdodc1.Recordset.Fields(联系 ) = 联系 .Te*tMsgBo* 已保存供应商信息！, vbOKOnly + vbE*clamation, 提示供应商号.Te*t = 名称.Te*t = 地址.Te*t = 联系 .Te*t = End IfEnd SubPrivate Sub 退出_Click()End SubPrivate Sub 删除_Click()End SubPrivate Sub 修改_Click()Adodc1.Recordset.Find (供应商号= & 供应商号.Te*t & )If Adodc1.Recordset.EOF = True ThenMsgBo* 无该供应商Else供应商号.Te*t = Adodc1.Recordset.Fields(供应商号)名称.Te*t = Adodc1.Recordset.Fields(名称)地址.Te*t = Adodc1.Recordset.Fields(地址)联系 .Te*t = Adodc1.Recordset.Fields(联系 )End IfEnd SubPrivate Sub 取消_Click()供应商号.Te*t = 名称.Te*t = 地址.Te*t = 联系 .Te*t = End Sub用户信息管理Private Sub 返回_Click()End SubPrivate Sub 确认_Click()If 用户名 = Or 新密码 = Or Not IsNumeric(密码确认) ThenMsgBo* 请完整信息，密码为数字！ElseIf 新密码 密码确认 ThenMsgBo* 两次密码不同，请从新输入！新密码 = 密码确认 = ElseAdodc1.Recordset.Filter = 用户名= + 用户名.Te*t + MsgBo* 修改密码成功!, vbOKOnly + vbE*clamation, 提示用户名 = 新密码 = 密码确认 = End IfEnd Sub. .成绩评定表工程分值优秀(100*90)良好(90*80)中等(80*70)