唯信机械行业MIS系统设计与开发.doc

本科毕业论文(科研训练、毕业设计)题 目：唯信机械行业MIS系统设计与开发 往来公司资料设立模块与销售管理模块姓 名：蒋棋学 院：软件学院系：专 业：软件工程年 级：03级学 号：03368017指导教师（校内）：王备战 职称：副专家指导教师（校外）： 职称：2023年 5月 28日 唯信机械行业MIS系统设计与开发摘要本文以唯信机械行业MIS系统(英文：WININFO MIS)设计与开发为背景，介绍该系统的总体设计及销售模块的具体设计。该系统是在分析目前机械行业平常流程与分析相关数据的基础上，结合管理信息系统开发的概念及系统开发的基本原理和方法，采用Client/Server架构，并运用中间服务器对数据进行合理有效的解决，使用Delphi7.0进行设计，以MS SQL Server 2023网络数据库技术作为其程序开发的底层数据库，开发的一套管理信息系统。用户可以使用客户端程序在客户机上访问数据库，通过执行应用服务器端的应用程序，以满足不同权限的用户通过客户端进行数据查询和业务录入，从而实现同网实时管理，数据实时传输。关键词Delphi7.0MS SQL Sever2023 管理信息系统 控件AbstractThis thesis introduces the general frame of the system and specifies at sailing module, based on the design and programming of WININFO MIS. This system aims at analyzing general business flow and related data in machine industry, integrating with MIS concept and methods of software system development. With Delphi7.0 as development platform and Microsoft SQL server as database, the system is designed in three-tier client/server architecture, including user interface, application server and database management system. Users access database with user system interface through a middle tier-application server. Users input and queue data by sending message to middle tier, and then, owing to the role of the user, the middle tier retrieves data. This provides a real-time management and transaction.Keyword Delphi7.0 MS SQL Server2023 MIS control目录第一章引言 41.1机械行业的行业背景 41.2 管理信息系统概述 51.3 唯信机械行业MIS系统的设计目的5第二章 唯信机械行业MIS系统分析 72.1 系统开发平台分析 72.1.1 开发工具Delphi7.0简介 72.1.2 后台数据库MS SQL Sever2023简介72.1.3 三层结构的选用 82.2 需求分析 8第三章 唯信机械行业MIS系统整体设计与模块的具体设计113.1 系统整体设计113.1.1 模块设计113.1.2 客户应用程序逻辑流程123.2 模块具体设计123.2.1 客户端与应用服务器端连接设 123.2.2 往来公司资料设立模块 143.2.3 销售管理模块16第四章 唯信机械行业MIS系统的实现结果194.1 应用服务器端194.2 客户端21第五章 结束语35致谢36参考书目37第一章引言1.1机械行业的行业背景随着中国成功入世，机械行业的面临着更剧烈竞争挑战的同时，也蕴藏着无限发展的机遇。全球生产制造中心正向中国转移，为适应这种变化，国家提出了以信息化带动产业化发展战略，机械行业自身也在积极的推动行业的信息化建设。以公司、行业信息化促进机械行业提高市场反映速度、增长生产柔性、加强成本控制使公司从容应对更加剧烈的竞争环境进而提高公司的竞争力。一、 机械行业特点（1） 产品系列化、多元化，注重技术创新，产品更新换代快，强调批号管理（2） 中小生产批量、品种多，装配式，产品部份工序托外加工（3） 以OEM(original equipment manufacturer)或者客户订单转成生产订单为主组织生产（4） 注重材料的采购价格（5） 存货品种多，数量大，核算任务繁重（6） 强调生产计划管理和成本控制（7） 对机器设备管理有较高规定（8） OEM以外公司，销售产品形成收入，产品销售环节的好坏直接影响公司效益，因此公司对产品的销售管理环节比较注重（9） 实行客户信用期间、信用额度控制，有灵活的折让政策二、 机械行业需求（1） 产品按订单(协议)生产，产品结构复杂、零部件多并且外协、自制兼有，如何合理优化排产，控制交货期，提高订单(协议)的履约率？（2） 公司外协件多、外协厂家多，如何对外协厂家的产品质量、价格和信誉跟踪进行控制？采购部门如何控制好进货提前量，保证既不误生产之需又不导致库存积压，保证一个最合理的库存资金占用度？（3） 单件产品制造时间周期长、价值高、投入大，如何对其生产过程进行跟踪？如何对在产品成本进行实时的归集、控制和分析？（4） 生产加工过程中，许多工序都依靠专用的加工工具和设备，如何加强对这些专用设备的管理？（5） 如何实现生产制造、购销存业务及公司资金、成本信息的及时查询及公司各种计划的执行情况的查询等。1.2 管理信息系统概述管理信息系统（MIS）的概念是1961年美国人J.D.GALLAGHER一方面提出来的，是一门新兴的、集管理科学、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是公司中信息管理活动的全过程，以便有效的管理信息，提供各类管理决策信息，辅助公司进行现代化管理。管理信息系统是公司的信息系统，它具有数据解决、计划、控制、预测和辅助决策功能，具体作用如下：（1） 用统一标准解决和提供信息，排除使用前后矛盾的不完整的数据。（2） 完整、及时提供在管理及决策中需要的数据。（3） 运用指定的数据关系式分析数据，客观预测未来。（4） 向各级管理机构提供不同具体限度的报告，缩短分析和解释时间。（5） 用最低的费用最短的时间提供尽也许精确、可靠的信息，以便使决策者选择最佳的实行方案，以提高公司的经济效益。1.3 唯信机械行业MIS系统的设计目的唯信机械行业MIS系统将机械公司供应链（进、销、存）及财务管理溶为一体，以提高公司管理水平、减少运营成本、简化业务流程并实现公司效益最大化为目的，将物流、资金流与信息流以及人力资源结合在一起，从而对公司进行统一系统的管理，实现资源的优化配置。系统将管理与软件有机的结合起来，以简捷的操作、规范的流程、实用的功能、稳定的性能、鲜明的行业特点，帮助公司实现管理信息化。该系统通过业务单据、业务查询、财务解决、决策分析等功能模块为公司建立完善的经营管理平台，及严格的流程控制。通过商品多单位价格管理、进价及售价跟踪、销售价低于进价报警、库存上下限报警、客户信用额度控制、多仓库管理、货位管理及决策分析等功能，为公司提供良好的信息管理渠道，最大限度的保障公司业务解决的流畅和安全，促进公司的高效运作。本文共分引言、系统总体设计、销售模块具体设计、系统实现结果和结束语五章。第一章介绍机械行业背景及系统的设计目的。第二章介绍唯信机械行业MIS系统的分析与设计。第三章介绍系统的模块组成及其功能，数据库的设计。第四章按照公司的销售流程，介绍系统的销售模块的功能及其设计实现了数据库表的浏览，记录的添加、删除和修改，报表的生成，实现了多数据库表的连接操作，实现了多条件查询和模糊查询，并灵活实现了对不可更新查询结果集的更新操作，实现了主从表操作。第五章给出系统中部分代码，并用图例展现系统实现的结果。第二章 唯信机械行业MIS系统分析2.1 系统开发平台分析2.1.1 开发工具Delphi7.0简介Delphi是著名的Borland（现在已和Inprise合并）公司开发的可视化软件开发工具。“真正的程序员用c，聪明的程序员用Delphi”，这句话是对Delphi最经典、最实在的描述。Delphi被称为第四代编程语言，它具有简朴、高效、功能强大的特点。Delphi具有以下的特性：基于窗体和面向对象的方法，高速的编译器，强大的数据库支持，与Windows编程紧密结合，强大而成熟的组件技术。但最重要的还是Object Pascal语言，它才是一切的主线。 Object Pascal语言是在Pascal语言的基础上发展起来的，简朴易学。Delphi具有以下的特性：基于窗体和面向对象的方法，高速的编译器，强大的数据库支持，与Windows编程紧密结合，强大而成熟的组件技术。但最重要的还是Object Pascal语言，它才是一切的主线。 Object Pascal语言是在Pascal语言的基础上发展起来的，简朴易学。在Delphi众多的优势当中，它在数据库方面的专长显得尤为突出：适应于多种数据库结构，从ClientServer模式到多层数据结构模式；高效率的数据库管理系统和新一代更先进的数据库引擎；最新的数据分析手段和提供大量的公司组件。2.1.2 后台数据库MS SQL Sever2023简介MS SQL Server 2023是微软公司在Windows 系列平台上开发的数据库。MS SQL Server 2023 是一个具有完全 Web 支持的数据库产品，提供了对可扩展标记语言 (XML) 的核心支持以及在 Internet 上和防火墙外进行查询的能力。MS SQL Server 2023是一项全面完整的数据库与分析产品。从借助浏览器实现的数据库查询功能到内容丰富的扩展标记语言（XML）支持特性均可有力地证明，MS SQL Server 2023为全面支持Web功能的数据库解决方案。与此同时，MS SQL Server 2023还在可伸缩性与可靠性方面保持着多项基准测试纪录，而这两方面特性又都是公司数据库系统在剧烈市场竞争中克敌致胜的关键所在。无论以应用程序开发速度还是以事务解决运营速度来衡量，MS SQL Server 2023都堪称最为快捷的数据库系统，而这恰恰是该产品成为灵活公司首选解决方案的因素所在。MS SQL Server 2023涉及支持开发的引擎、标准的SQL语言、扩展的特性(如复制、OLAP、分析)等功能。而像存储过程、触发器等特性，也是大型数据库才拥有的。由于MS SQL Server 2023与Windows界面风格完全一致，且有许多向导(Wizard)帮助，因此易于安装和学习。2.1.3 三层结构的选用在电子商务时代，用户应用已经发生了主线性的转变，传统的Client/Server模式已经不可以适应公司应用的规定。根据一些权威的记录，假如要想在电子商务时代继续保持公司的竞争力，必须有以下三点最基本的规定：一方面是要以最短途径将产品或者服务送到消费者手中，也就是直销模式；第二、以最低的成本满足用户对产品和服务的需求，给用户提供最便宜的产品；第三、以最快的方式获取所需的资源或者信息，公司必须迅速得到各种必需的信息，这涉及自身的信息和竞争对手以及市场的信息。电子商务的顺利高效运营需要构建三层结构的电子商务体系。三层结构是针对于过去的主机终端模式或者服务器/客户机模式的区别而成的，它的特点是在后台有一个后端数据支持服务器，在中端有一群应用服务器，提供结合用户业务和具体应用的相关系统解决方案，在前端会有很多的接入设备，通过接入设备与客户机连接。三层结构的优点如下：（1）伸缩性：灵活的硬件系统构成，使各部分可选择与其解决负荷和解决特性相适应的硬件。（2）可维护性：在三层CS结构中，各层相对独立，可以并行开发，客户端只需要关注用户界面，并且与其他客户共享相同的数据访问模块，从而使客户端大大减肥，维护也相对简朴。假如我们需要修改商业规则，在修改完毕后，只需安装于应用服务器即可，不需要去修改客户机程序，这对客户机而言是完全透明的。（3）安全性：应用逻辑和最终访问数据库大多由应用服务器实现，对用户来说是透明的，从而保证了系统的安全性，并且减少了网络上的数据流量。2.2 需求分析一、模块规定1、 进货管理：涉及：进货计划、进货计划历史查询；进货计划转进货单、进货计划转进货单历史查询、进货订单、进货订单历史查询；供应商管理、供应商查询；询价单、询价单历史查询；询价单转进货单、询价单转进货单历史查询；进货单、进货单历史查询；进货退货单、进货退货单历史查询；进货核价单，进货核价单历史查询等。2、 销售管理：涉及：报价单、报价单历史查询；报价单转销售单、报价单转销售单历史查询；销售单、销售单历史查询；销售退货单、销售退货单历史查询；销售协议，销售协议历史查询；借出单，借出单历史查询；归还单，归还单历史查询等。3、 库存管理：涉及：盘库单，盘库单历史查询；库房调整单，库房调整单历史查询；每月盘点表，库存明细查询，现货情况查询。4、 合约管理：涉及：合约单。5、 财务管理：涉及：采购付款，销售收款，采购对帐单，销售对帐单，采购付款历史查询，销售收款历史查询，销售客户信用额设立，出纳日记帐。6、 客户管理：报价单成功率，供应商客户管理，销售客户管理，销售客户同比增率。7、 记录分析：涉及：按客户销售额排行、按客户销售毛利排行、按客户欠款排行、按业务员销售额排行、按业务员销售毛利排行、按业务员欠款排行、按地区销售额排行、按地区销售毛利排行、按行业销售额排行、按行业销售毛利排行、按品牌销售额排行、按品牌销售毛利排行、按商品类别销售额排行、按商品类别销售毛利排行；按进货客户额排行，按进货商品类别排行，按进货商品品牌排行，分析进货商品成本，进货客户欠款分析。8、 经营费用管理：员工工资管理、水电费管理、房租管理。9、 系统设立：涉及：公司基本信息设立，生产厂设立，经营产品分类设立，经营产品小类设立，库房设立，计量单位设立，行业设立、地区设立、用户帐号与权限管理、初始数据、备份数据。10、 帮助：关于软件、用户手册、技术支持。二、功能规定1、 表单的增长、编辑、删掉操作；内容的查询操作。2、 表单内容导出到word、excel。3、 增长表单内容时，编号自动递增。4、 报表的生成与打印。5、 消息公告档，个人消息管理。6、 最低库存提醒。7、 系统初始化设立。8、 备份数据。9、 权限管理。10、客户信用度提醒。第三章 唯信机械行业MIS系统整体设计与模块的具体设计3.1 系统整体设计3.1.1 模块设计唯信机械行业MIS系统资料管理业务管理账务管理员工管理系统维护系统管理本单位资料设立往来公司资料设立商品资料设立进货管理销售管理库存管理账户管理消息管理图3-1-1系统模块3.1.2 客户应用程序逻辑流程图3-1-2客户应用程序逻辑流程图3.2 模块具体设计3.2.1 客户端与应用服务器端连接设计在Delphi中，提供了多种连接控件:TDCOMConnection、TSocketConnection、TCorbaConnection、TwebConnection、TSOAPConnection、TRemoteServer、TOLEnterpriseConnection、TMIDASConnection等。本系统选用的是Socket连接，使用的控件是TSocketConnection。用Socket连接有合用范围广，提供防火墙，访问控制、发布安全，容易，客户端不需要DLL，提供Poll和Push双向功能等优点，它的缺陷是没有提供公司级的应用，应用服务器端需要运营一个专门的软件SocketServer。在客户端使用TSocketConnection控件（如图3-2-1左1），在应用服务器端需要建立TRemoteDataModule控件（如图3-2-2）来与之连接通信。TRemoteDataModule控件是一种远程数据模块，它提供了IAppServer接口，客户端应用程序这个接口和应用服务器上的provider通信。在TRemoteDataModule控件中，放置了TADOQuery、TDataSetProvider、TADOStoredProc三种控件（如图3-2-1依次为左2，右1，右2）。TADOQuery控件是一种数据集控件，可以访问远程的数据库。TDataSetProvider控件是在代理客户请求和打包数据时候需要的控件，它的DataSet属性设立为要访问的数据集控件名，即TADOQuery控件的名字。TADOStoredProc控件通过ProcedureName属性指定存放在服务器上的一个存储过程，应用程序可以执行这个存储过程。图3-2-1 TSocketConnection、TADOQuery、TADOStoredProc、TDataSetProvider控件图3-2-2 TRemoteDataModule控件（部分）3.2.2 往来公司资料设立模块(界面如图4-2-6)一、子模块的划分：往来公司资料设立模块行业类型设立地区资料设立客户信用度设立客户公司资料设立图3-2-3往来公司资料设立模块子模块二、子模块的具体介绍（1）行业类型设立模块(界面如图4-2-7)内容：设立行业的类型及该行业简介。作用：在填写公司资料时，公司类型的选择。操作：可增长、编辑、删除行业类型，可以将已有的行业类型导出到excel、word，也可打印出来。该模块通过TClientDataSet控件与后台数据库相连，RemoteServer属性设立为SocketConnection控件的名字。增长、修改通过语句main.SocketConnection1.AppServer.update_industry(vt,vupdate_id,vid,vname,vmark,vsaved);调用应用服务器端函数update_industry执行。 删除通过语句main.SocketConnection1.AppServer.del_industry(industry_id,vdeled);调用应用服务器端函数del_industry执行。（2）地区资料设立模块(界面如图4-2-8)内容：设立地区名称及该地区简介作用：在填写公司资料时，公司所处地区的选择。操作：可增长、编辑、删除地区资料，可以将已有的地区资料导出到excel、word，也可打印出来。该模块通过TClientDataSet控件与后台数据库相连，RemoteServer属性设立为SocketConnection控件的名字。增长、修改通过语句main.SocketConnection1.AppServer.update_area(vt,vupdate_id,vid,vname,vmark,vsaved);调用应用服务器端函数update_area执行。 删除通过语句main.SocketConnection1.AppServer.del_area(area_id,vdeled);调用应用服务器端函数del_area执行。（3）客户信用度设立模块(界面如图4-2-9)内容：设立客户信用度等级，可欠款天数及可欠款金额。作用：在填写公司资料时，公司信用度的选择。操作：可增长、编辑、删除客户信用度等级，可以将已有的信用度等级导出到excel、word，也可打印出来。该模块通过TClientDataSet控件与后台数据库相连，RemoteServer属性设立为SocketConnection控件的名字。增长、修改通过语句main.SocketConnection1.AppServer.update_credit(vt,vupdate_id,vclass,varrearage,vday,vsaved);调用应用服务器端函数update_credit执行。 删除通过语句main.SocketConnection1.AppServer.del_credit(credit_id,vdeled);调用应用服务器端函数del_credit执行。（4）客户公司资料设立模块(界面如图4-2-10)内容：设立客户公司资料作用：在销售、进货时，公司名称的选择；公司欠款提醒。操作：可增长、编辑、删除和查询客户公司资料，可以将已有的客户公司资料导出到excel、word，也可打印出来。该模块通过TClientDataSet控件与后台数据库相连，RemoteServer属性设立为SocketConnection控件的名字。增长、修改通过语句main.SocketConnection1.AppServer.update_company(vt,vupdate_id,vid,vname,vsimplename,vaddress,vjuridical,vperson_a,vperson_b,vphone_a,vphone_b,vfax,vqq,vemail,vwebpage,vbank,vaccount,vtax,vindustry_name,varea_name,vcredit_class,vintroduce,vsaved);调用应用服务器端函数update_company执行。 删除通过语句main.SocketConnection1.AppServer.del_company(company_id,vdeled); 调用应用服务器端函数del_company执行。查询通过语句main.SocketConnection1.AppServer.find_company (itemnumber,contentstr,vfound); 调用应用服务器端函数find_company执行。3.2.3 销售管理模块(界面如图4-2-11)一、子模块的划分销售管理模块销售报价销售单销售退货单图3-2-4 销售管理模块子模块二、子模块的具体介绍（1）销售报价模块(界面如图4-2-12)内容：填写客户需求的商品单价，运费及总计费用。作用：是对询价单的回馈。操作：可增长、编辑、删除报价单，可以将已有的报价单导出到excel、word，也可打印出来。该模块通过TClientDataSet控件与后台数据库相连，RemoteServer属性设立为SocketConnection控件的名字。增长、修改通过语句main.SocketConnection1.AppServer.update_sale_quote(vt,vupdate_id,vid,vdate,vusername,vcompany,vtotal,vsaved);调用应用服务器端函数update_sale_quote执行。 删除通过语句main.SocketConnection1.AppServer.del_sale_quote(sale_quote_id,vdeled);调用应用服务器端函数del_sale_quote执行。（2）销售单模块(界面如图4-2-13)内容：选择相应的报价单，并发送等待审批。作用：销售凭证。操作：可增长、编辑、删除销售单，可以将已有的销售单导出到excel、word，也可打印出来。该模块通过TClientDataSet控件与后台数据库相连，RemoteServer属性设立为SocketConnection控件的名字。增长、修改通过语句main.SocketConnection1.AppServer.update_ sale(vt, vupdate_id, vid, vsid, vdate, vpname, vcname, vcheck, vsum,vsaved);调用应用服务器端函数update_sale执行。 删除通过语句main.SocketConnection1.AppServer.del_sale(sale_id,vdeled);调用应用服务器端函数del_sale执行。（3）销售退货单模块(界面如图4-2-14)内容：选择相应销售单，及退货理由，并发送等待审批。作用：退货申请。操作：可增长销售退货单，可以将已有的销售退货单导出到excel、word，也可打印出来。该模块通过TClientDataSet控件与后台数据库相连，RemoteServer属性设立为SocketConnection控件的名字。增长通过语句main.SocketConnection1.AppServer.update_sale_return(vt, vautoid, vrid, vsid, vdate, vpname, vcname, vcheck, vtotal,vsaved);调用应用服务器端函数update_sale_return执行。 第四章 唯信机械行业MIS系统的实现结果4.1 应用服务器端一、 应用服务器端登陆界面在登陆界面中填入相应数据库服务器名、数据库名、用户名及密码后，可点击测试连按钮，假如成功连接，系统将提醒连接成功。成功登陆后，所填的数据将写入配置文献，下次登陆时，只需点击左上角的设立菜单中的连接就可以从配置文献中读取数据。完毕登陆后，编辑框将灰显，为不可编辑状态，测试连接按钮将变为断开连接按钮，点击可以断开与数据库服务器的连接。图4-1-1 应用服务器登陆界面1图4-1-2应用服务器登陆界面2写入、读取配置文献代码如下：/读取配置文献信息procedure ReadFromIni(var aServerName, aDatabaseName, aUserName, aPassword: string);var IniFile: TIniFile; FileName: string;begin FileName := ExtractFilePath(application.ExeName) + DB.ini; IniFile := TIniFile.Create(FileName); aServerName := IniFile.ReadString(DB, ServerName, ); aDatabaseName := IniFile.ReadString(DB, DatabaseName, ); aUserName := IniFile.ReadString(DB, UserName, ); aPassword := IniFile.ReadString(DB, Password, ); IniFile.Free;end;/向配置文献写入信息procedure WriteToIni(const aServerName, aDatabaseName, aUserName, aPassword: string);var IniFile: TIniFile; FileName: string;begin FileName := ExtractFilePath(application.ExeName) + DB.ini; IniFile := TIniFile.Create(FileName); IniFile.WriteString(DB, ServerName, aServerName); IniFile.WriteString(DB, DatabaseName, aDatabaseName); IniFile.WriteString(DB, UserName, aUserName); IniFile.WriteString(DB, Password, aPassword); IniFile.Free;end;4.2 客户端一、 登陆界面一方面出现的是选择应用服务器的界面，在这个界面中，我们只需填入应用服务器名和应用服务器IP中的一个，点击拟定就可以与应用服务器连接，然后弹出用户登陆界面。一次成功的连接后，信息将写入注册表，在以后的登陆中，这个界面将不在出现。图4-2-1 客户端连接应用服务器界面写入注册表代码如下：/向注册表里写入应用服务器的配置信息procedure Tlogin.WriteToReg(const bAppHost, bAppIP, aPort: string);var Reg: Tregistry;begin reg := Tregistry.create; Reg.RootKey := HKEY_LOCAL_MACHINE; if not Reg.OpenKey(Software唯信机械MIS系统, False) then begin reg.createkey(Software唯信机械MIS系统); Reg.OpenKey(Software唯信机械MIS系统, False); end; Reg.WriteString(Host, bAppHost); Reg.WriteString(Address, bAppIP); Reg.WriteString(Port, aPort); reg.free;end;在用户登陆界面，点击账号边上的按钮，会弹出用户列表，从中选择相应账号双击，弹出窗口关闭，登陆界面将填入选择的账号，输入对的密码，点击拟定，即可进入客户端主界面。图4-2-2 用户登陆界面1图4-2-3 用户列表图4-2-4 用户登陆界面2拟定登陆部分代码如下：begin CurrentParam.id:=edit1.Text; hostname:=gethostname; currentparam.Host:=hostname; currentparam.IP:=nametoip(hostname); main.SocketConnection1.AppServer.GetSysTime(vLoginTime); currentparam.Logintime:=vlogintime; vrelogined:=true; main.SocketConnection1.AppServer.relogined(currentparam.id,vrelogined); if vrelogined then begin Application.MessageBox(对不起，该用户账号已在别的机器上登陆！, 提醒信息, mb_iconInformation + mb_defbutton1); exit; end; main.SocketConnection1.AppServer.adduser(currentparam.Host,currentparam.IP,currentparam.id,currentparam.Logintime); Logined:=true; temp:=string(edit1.Text)+，登陆成功，欢迎您！; Application.MessageBox(pansichar(temp), 提醒信息, mb_iconInfor