合同管理系统设计毕业设计论文.doc

石家庄铁道大学毕业设计 合同管理系统 Contract Manage System 2015 届 信息科学与技术学院 专 业 网络工程学 号 学生姓名 指导老师 # 完成日期 2015年 月 日 毕业设计成绩单学生姓名*学号12312班级专业毕业设计题目合同管理系统指导教师姓名指导教师职称讲师评 定 成 绩指导教师得分评阅人得分答辩小组组长得分成绩： 院长(主任) 签字： 年 月 日 毕业设计任务书题 目 合同管理系统学生姓名学号班级专业承担指导任务单位信息学院导师姓名导师职称讲师一、主要内容：系统主要分为两个大的模块：系统设置模块和合同管理模块。合同管理模块:单位设置，对签约单位基本属性的设置，遍历起草合同时增加的来往单位基本信息，并对其进行修改保存；增加合同，起草合同的首页基本属性，资金计划，合同执行情况，合同文本，合同执行来往单位及备注；修改合同，对已经起草的合同进行修改，从目录遍历已经起草完成的合同对合同状态进行逐级提交；合同类别设置，增删改查合同类别，可导入导出EXCEL文件系统设置模块：权限设置，增加删除操作人员并设置操作人员的操作权限；修改密码，修改当前操作员登录密码及基本信息；端口设置，网络连接设置，端口、ip地址的修改；设置时间，系统当前时间设置；升级，导入系统升级文件。二、基本要求： 1.适用于公司签署的所有经济类合同的管理； 2.规范合同的签订、履行和付款程序，并最大限度的避免风险； 3.友好的界面，方便用户操作；免安装对硬件要求低(32位xp系统及更高版本操作系统)，方便移植；三、 主要技术指标(1).学习Delphi语言，并熟练掌握Delphi2009环境配置及软件使用。 (2).熟悉合同签订审批流程及合同管理的相关知识，分析系统需求； (3).构思系统整体框架，补充功能模块，实现系统功能，美化界面，达到软件用户体验良好的效果。四、应收集的资料及参考文献 1.张岭,宋坤,梁冰.Delphi程序开发典例宝典,2006.7. 2.罗斌.Delphi for.NET编程实例精粹,2006.5. 3.明日科技,梁冰,宋坤.Delphi范例完全自学手册.五、 进度计划 第1周第6周:毕业实习，开题，查询相关资料。 第7周第8周: 应用分析、应用设计(开发环境、开发工具的确定熟悉开发环境及工具、功能模块设计、代码设计)。 第9周第13周: 程序开发(编程及调试)。 第14周第16周: 论文书写及答辩。教研室主任签字时 间 年 月 日 毕业设计开题报告题 目 合同管理系统学生姓名学号班级专业一、课题的研究背景及意义采用手工管理合同，由于涉及的部门众多，需要管理的合同要素也各不相同，因此造成信息不集中，实时性不强，导致各部门协作，业务流程组建，监控制度执行方面效率不高，费时费力等问题，具体表现在如下方面：1.文档管理困难：传统纸质合同与电子版合同共存，但对于不同的人员想阅读参考合同时，存在查找不方便的问题。尤其是领导需要了解合同文本时需要耗费很多时间。2.进度控制困难：由于合同数目多，参与人员多，合同进度的控制基本靠手工和普通word、excel管理已很难满足公司发展需要，并且当领导想全局或全程了解合同情况时存在很大障碍。财务人员的付款依据也与进度密切相关，但同样存在障碍。3.信息汇总困难：采用手工或EXCEL管理时，由于不同部门的数据格式不统一，采集也不能够及时继续，汇总工作需要耗费大量时间还不一定准确。对于领导的决策时间有一定的影响。4.缺少预警机制：缺少对合同进度、结款等关键节点的预警，不能准确地预测近期可能的收支项目，不能帮助公司进行财务规划，掌控现金流，更好地发挥资金运作。二、 国内外研究现状 1.规范基础数据管理合同管理系统采用集中的数据管理，可以有效地改变企业信息分布比较散乱的现状。同时，系统提供自定义字段功能，可以为企业实现完整、规范的数据管理提供一个良好的平台支撑。2.提高管理效率合同管理系统避免了手工管理合同出现，利用审批流管理，可以方便、快捷地处理企业管理事务；预警平台可以协助合同管理人员更轻松地应对日常管理事务；报表管理的灵活定义，为管理部门的统计分析提供强大的技术支持。3.实现标准化管理和个性化管理的有机结合合同管理系统通过全局设置和权限分配，可以由公司制订统一采用的管理标准，比如，由公司设置业务单据必填字段，信息录入必须填写这些信息；数据字典可以为某些信息项提供标准的选择项，防止录入人员的录入随意性；设置统一的报表格式，信息输出时可以保证一致性。同时，系统也允许用户根据自身的实际情况采取个性化的措施，比如网格的列显示、自定义报表等。4.为领导决策提供准确及时广泛的信息利用互联网，领导可以在任何时间、任何地方进入系统，随时查阅与合同管理相关基本信息，准确定位下属人员的工作情况，掌握合同执行现状，并方便地生成各种数据报表或图表。同时，系统还提供强大的管理工具模块供客户选择，对这些信息进行深入分析，为公司决策人员提供更多的智力支持。5.为用户提供全面合同管理解决方案合同管理系统与企业管理咨询相结合，可以为客户提供全面的合同管理解决方案。比如，通过系统的开放性和灵活性，可以有效地固化专业咨询的工作成果，这就为客户合同管理能力及水平的提升提供足够的平台支持。总之，通过合同管理系统的应用和实施，可以为合同管理信息化和合同管理能力提升提供一个最佳的结合点，切实打造企业核心竞争力。三、主要工作和所用方法合同管理模块:单位设置，对签约单位基本属性的设置，遍历起草合同时增加的来往单位基本信息，并对其进行修改保存；增加合同，起草合同的首页基本属性，资金计划，合同执行情况，合同文本，合同执行来往单位及备注；修改合同，对已经起草的合同进行修改，从目录遍历已经起草完成的合同对合同状态进行逐级提交；合同类别设置，增删改查合同类别，可导入导出EXCEL文件。系统设置模块：权限设置，增加删除操作人员并设置操作人员的操作权限；修改密码，修改当前操作员登录密码及基本信息；端口设置，网络连接设置，端口、ip地址的修改；设置时间，系统当前时间设置；升级，导入系统升级文件。四、研究的预期结果 1.技术的可行性 在Windows环境下搭建Delphi开发平台，整个系统用Delphi语言设计开发；数据保存采用数据-结构体-内存流-本地文件的方式保存；数据调用采用本地文件-内存流-调入记录-表格的方式调用已经保存的数据。网络连接采用2.操作可行性可应用于各类公司对经济类合同的管理，为公司管理带来方便性。系统设置功能，可对操作人员进行权限设置，限制其访问的内容；合同管理功能，可方便公司各部门对合同的起草、审批、存档、查询；系统连接Internet，方便用户在任何地方审批合同。五、参考文献 1.张岭,宋坤,梁冰.Delphi程序开发典例宝典,2006.7. 2.罗斌.Delphi for.NET编程实例精粹,2006.5. 3.明日科技,梁冰,宋坤.Delphi范例完全自学手册.六、进度计划 第1周第6周: 毕业实习，开题，查询相关资料。 第7周第8周: 应用分析、应用设计(开发环境、开发工具的确定熟悉开发环境及工具、功能模块设计、代码设计)。 第9周第13周: 程序开发(编程及调试)。第14周第16周: 论文书写及答辩。指导教师签字时 间 年 月 日摘 要MIS管理信息系统，在强调管理，强调信息的现代社会中，MIS包含了众多学科，比如管理学、经济学、统计学以及计算机科学等。以这些学科为基础完成信息收集和加工，形成一个完善的系统。而本文章讲的是合同管理系统，之所以做这样一个系统是因为以往合同都是通过手工管理，因为合同量大所以手工管理存在相当大的弊端，给企业带来诸多不便。本合同管理系统采用Delphi语言Delphi2009的编译环境下编写，满足各类经济类合同的管理界面友好操作方便。本系统以独特的内存流设计为亮点，流畅地完成了合同数据的起草、保存、调入、查看、修改等一系列功能；本系统有合同管理和系统设置两大模块，针对合同起草、提交、保存一整套管理流程以及操作人员和系统基本设置修改。系统经反复测试用户体验良好，系统稳固性强，设计合理满足用户需求。 关键词：合同管理 MIS Delphi AbstractMIS is a information manage system, it is becoming more and more popular in the modern society of emphasize the management, emphasize the information. MIS contains many disciplines, such as management, economics, statistics and computer science, etc. On the basis of these subjects to complete the information collection and processing, and forming a perfect system.And this article is about the contract management system, to do such a system because of previous contract is through the manual management, because of large amount of the contract so the disadvantages of manual management is quite big, bring so much inconvenience. This contract management system using Delphi language writing Delphi2009 compiler environment, meet all kinds of economic contract management friendly interface is easy to operate. With the unique memory flow design this system, smoothly completed the contract drafting, data storage, access, view, modify, and a series of features; This system has a contract management and system Settings module, against the contract draft, submit, save a set of management process and basic setup operators and system changes. System through repeated test of the user experience is good, strong stability, reasonable design to meet user needs. Keywords: Contract Management MIS Delphi 目 录毕业设计成绩单I毕业设计任务书II毕业设计开题报告III第1章 绪 论11.1 课题背景及研究意义11.2 国内外研究现状21.3 课题研究内容21.4 论文组织结构3第2章 系统开发工具42.1 Delphi语言简介42.2 EjunGrid简介4第3章 系统需求分析及概要设计63.1 需求分析63.2 可行性分析73.2.1 技术可行性73.2.2 经济可行性73.2.3 社会因素可行性73.3 系统的概要设计83.3.1 系统结构设计83.3.2 系统功能模块划分83.3.3 工作流程9第4章 系统详细设计与实现114.1 系统登录功能界面模块114.2 系统主界面模块144.3 合同管理功能模块144.4 自定义内存流254.4.1 内存流设计概要264.4.2 内存流设计算法274.5 系统分析结果测试28第5章 结论及展望305.1 本文总结305.2 展望31参考文献32致 谢33附录A34英文原文34中文译文39附录B43第1章 绪 论1.1 课题背景及研究意义随着时代的发展计算机已经应用到生活的各个方面。然而现在许多企业对于合同的管理还停留在手工操作，这大大地降低了企业的工作效率。近年来，随着公司交易的日益增多，合同信息量也在不断地增大5。随之而来的是管理市场工作日趋复杂繁重，要耗费大量人力、物力，而现有信息的管理水平不高，一直以来人们使用传统人工的方式管理信息。 采用手工管理合同，由于涉及的部门众多，需要管理的合同要素也各不相同，因此造成信息不集中，实时性不强，导致各部门协作，业务流程组建，监控制度执行方面效率不高，费时费力等问题，具体表现在如下方面：文档管理困难：传统纸质合同与电子版合同共存，但对于不同的人员想阅读参考合同时，存在查找不方便的问题。尤其是领导需要了解合同文本时需要耗费很多时间。进度控制困难：由于合同数目多，参与人员多，合同进度的控制基本靠手工和普通word、excel管理已很难满足公司发展需要，并且当领导想全局或全程了解合同情况时存在很大障碍。财务人员的付款依据也与进度密切相关，但同样存在障碍。信息汇总困难：采用手工或EXCEL管理时，由于不同部门的数据格式不统一，采集也不能够及时继续，汇总工作需要耗费大量时间还不一定准确。对于领导的决策时间有一定的影响。缺少预警机制：缺少对合同进度、结款等关键节点的预警，不能准确地预测近期可能的收支项目，不能帮助公司进行财务规划，掌控现金流，更好地发挥资金运作。作为计算机应用的一部分,使用计算机对公司企业合同进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高信息管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情。 1.2 国内外研究现状规范基础数据管理，合同管理系统采用集中的数据管理，可以有效地改变企业信息分布比较散乱的现状。同时，系统提供自定义字段功能，可以为企业实现完整、规范的数据管理提供一个良好的平台支撑12。提高管理效率，合同管理系统避免了手工管理合同出现，利用审批流管理，可以方便、快捷地处理企业管理事务；预警平台可以协助合同管理人员更轻松地应对日常管理事务；报表管理的灵活定义，为管理部门的统计分析提供强大的技术支持。实现标准化管理和个性化管理的有机结合，合同管理系统通过全局设置和权限分配，可以由公司制订统一采用的管理标准，比如，由公司设置业务单据必填字段，信息录入必须填写这些信息；数据字典可以为某些信息项提供标准的选择项，防止录入人员的录入随意性；设置统一的报表格式，信息输出时可以保证一致性。同时，系统也允许用户根据自身的实际情况采取个性化的措施，比如网格的列显示、自定义报表等。为领导决策提供准确及时广泛的信息，利用互联网，领导可以在任何时间、任何地方进入系统，随时查阅与合同管理相关基本信息，准确定位下属人员的工作情况，掌握合同执行现状，并方便地生成各种数据报表或图表。同时，系统还提供强大的管理工具模块供客户选择，对这些信息进行深入分析，为公司决策人员提供更多的智力支持10。为用户提供全面合同管理解决方案，合同管理系统与企业管理咨询相结合，可以为客户提供全面的合同管理解决方案。比如，通过系统的开放性和灵活性，可以有效地固化专业咨询的工作成果，这就为客户合同管理能力及水平的提升提供足够的平台支持。总之，通过合同管理系统的应用和实施，可以为合同管理信息化和合同管理能力提升提供一个最佳的结合点，切实打造企业核心竞争力。 1.3 课题研究内容本合同管理系统按照软件工程的方法进行需求分析与设计，根据科学化、系统化、信息化的合同管理原则进行设计9，系统分为九个主要功能模块：单位设置：对签约单位基本属性的设置，其中包含单位编码、单位名称、单位机构代码、单位账号等等。增加合同：增加合同的基本属性，资金计划，合同执行情况，合同起草及备注。修改合同：对已经起草的合同进行修改，更新。合同类别设置：增加删除合同类别，可导入导出EXCEL文件权限设置：增加删除操作人员并设置操作人员的操作权限；修改密码：修改当前操作员登录密码及基本信息；端口设置：网络连接设置；设置时间：系统时间设置；升级：导入系统升级文件。这些模块基本上满足了用户在合同管理方面的需求。实现了对合同的起草、签约、修改和保存，以及合同从签约到执行再到最后完成等跟踪操作，操作人员信息的注册密码修改等功能。本管理系统的开发基于Delphi2009的开发环境，本着科学化、规范化、系统化的原则，并考虑到合同的实际情况，具有查询方便、安全保密性好、用户界面友好、容易操作等优点。1.4 论文组织结构本课题主要通过信息系统自动化技术对企业合同进行统筹管理，避免了以往手工管理合同带来的不便，降低管理成本，提高企业工作效率。本文的体系结构设计如下。第1章：绪论。主要介绍合同管理的课题背景及研究意义、国内外研究现状、本课题的组织结构，使读者了解国内外合同管理的发展现状、优缺点、特色以及合同管理系统的信息化、自动化势在必行。第2章：将简单介绍系统设计和开发过程中用到的主要工具和技术系统开发工具,包括Delphi2009以及相关插件。其中，Delphi是进行系统开发的主要语言，Delphi2009为系统开发的主要软件。第3章：会介绍合同管理系统的需求分析、系统概要设计。需求分析部分介绍了系统的功能需求和性能需求详细。系统概要设计部分介绍了系统各模块的功能设计。第4章：详细设计介绍了系统的登录主界面、各个功能管理模块。各个模块分别介绍了功能的设计与实现、核心代码的展示以及功能实现相应的图片示例。第5章：结论及展望。对本文的结论进行总结，总结合同管理系统的各功能完成情况以及展望进一步的研究方向。第2章 系统开发工具2.1 Delphi语言简介Delphi是Borland公司研制的新一代可视化开发工具，可在Windows3.x、Windows95、WindowsNT、WindowsXP、Windows Vista、Windows7等环境下使用。当前，Delphi也可以在LINUX平台上开发应用，其在LINUX上的对应产品Kylix2。Delphi 拥有一个可视化的集成开发环境(IDE），采用面向对象的编程语言ObjectPascal和基于部件的开发结构框架。Delphi它提供了500多个可供使用的构件，利用这些部件，开发人员可以快速地构造出应用系统。开发人员也可以根据自己的需要修改部件或用Delphi本身编写自己的部件9。 Delphi具有简单、高效、功能强大的特点,被称为第四代编程语言。和VC相比，Delphi更简单、更易于掌握，而在功能上却丝毫不逊色；和VB相比，Delphi则功能更强大、更实用。可以说Delphi同时兼备了VC功能强大和VB简单易学的特点。它一直是程序员至爱的编程工具。Delphi具有以下的特性：基于窗体和面向对象的方法，高速的编译器，强大的数据库支持，与Windows编程紧密结合，强大而成熟的组件技术。但最重要的还是Object Pascal语言，它才是一切的根本。Object Pascal语言是在Pascal语言的基础上发展起来的，简单易学6。2.2 EjunGrid简介EjunGrid是一款类似Excel风格的高品质表格控件,我们设计的目标是让广大软件开发者能够轻松快速开发出专业、高水准的软件产品，使 您的软件具备方便快捷的录入界面、清晰漂亮的数据显示界面、完美强大的打印预览功能、可以让您的用户在打印预览时实时方便的调整页面布局，所见即所得，操 作方式与Excel完全兼容，输出的报表精美典雅5。众多优质的功能，让EjunGrid跻身于高端表格控件之列，EjunGrid是纯Delphi表格控件，同时提供Web插件版，用于开发Web报表，ActiveX插件版用于VB，VC等工具开发。我们设计的目标是让广大软件开发者能够轻松快速开发出专业、高水准的软件产品，使您 的软件具备方便快捷的录入界面、清晰漂亮的数据显示界面、完美强大的打印预览功能、可以让您的用户在打印预览时实时方便的调整页面布局，所见即所得，操作 方式与Excel完全兼容，输出的报表精美典雅。主要特点强大的单元格合并功能，客户区、 表头、列头，都可以随意合并单元格，能够制作出任意复杂的表格 ；支持行锁定和列锁定，拖动滚动条时固定行和固定列不随滚动条滚动而改变位置，适合显示商品名称、编号等固定信息； 单元格可以插入任何类型的对象 ；兼容Excel操作方式，使您的软件用户能够轻易上手，减少培训费用 ；支持Excel方式的拖动选择， 拖动复制，行选， 列选 ；能够和Excel一样，拖动选择框右下角的小方框进行行填充和列填充； 可以和Excel之间相互复制粘贴内容 ；可以灵活地控制选择框的运行轨迹，例如用户在第一列输入完数据后按回车键，您可以根据需要让选择框掠过第二列直接跳转到第三列，或者您需要的任何地方 ；丰富鼠标事件和键盘事件，完善的开发接口 ； 可根据页面宽度按比例自动拉伸列宽； 可根据页面高度自动插入空白行充满整个页面高度； 可随意选择打印范围，打印表格中指定的区域； 更强大的是：可以指定表格中的某些行和列为标题行和标题列，打印时每页都出现。这样可以轻松打印出每页都需要的表头或列头； 可以在打印预览时拖动鼠标调整页边距、行高、列宽，调整时以虚线提示调整的位置，所有操作完全适应Excel ；可以选择预览调整的结果是否实时同步到表格中； 可以设置多行页眉页脚，自动选择打印页码、总页数、日期、事件等等，可以设定字体颜色 ；可以设置多行标题，实现主大标题、副标题等效果8。第3章 系统需求分析及概要设计3.1 需求分析采用手工管理合同，由于涉及的部门众多，需要管理的合同要素也各不相同，因此造成信息不集中，实时性不强，导致各部门协作，业务流程组建，监控制度执行方面效率不高，费时费力等问题，具体表现在如下方面：文档管理困难：传统纸质合同与电子版合同共存，但对于不同的人员想阅读参考合同时，存在查找不方便的问题。尤其是领导需要了解合同文本时需要耗费很多时间。进度控制困难：由于合同数目多，参与人员多，合同进度的控制基本靠手工和普通word、excel管理已很难满足公司发展需要，并且当领导想全局或全程了解合同情况时存在很大障碍。财务人员的付款依据也与进度密切相关，但同样存在障碍。信息汇总困难：采用手工或EXCEL管理时，由于不同部门的数据格式不统一，采集也不能够及时继续，汇总工作需要耗费大量时间还不一定准确。对于领导的决策时间有一定的影响。缺少预警机制：缺少对合同进度、结款等关键节点的预警，不能准确地预测近期可能的收支项目，不能帮助公司进行财务规划，掌控现金流，更好地发挥资金运作。基于手工管理的种种缺点，为了更好地管理合同，实现管理自动化，我们有必要将合同管理的流程与现代的计算机技术相结合，简历合同信息管理系统，以便于合同管理的顺畅进行，实现合同管理流程全过程的电子化操作。通过与企业的管理人员与操作人员进行细致交流，最终确定本系统要具备以下功能：合同管理模块单位设置：对签约单位基本属性的设置，其中包含单位编码、单位名称、单位机构代码、单位账号等，遍历起草合同时增加的来往单位基本信息，并对其进行修改保存。增加合同：起草合同的首页基本属性，资金计划，合同执行情况，合同文本，合同执行来往单位及备注。修改合同：对已经起草的合同进行修改，更新，从目录遍历已经起草完成的合同对合同状态进行逐级提交，签约-执行-完成。合同类别设置：增删改查合同类别，方便合同起草修改时对类别的调入，可导入导出EXCEL文件系统设置模块权限设置：增加删除操作人员并设置操作人员的操作权限；修改密码：修改当前操作员登录密码及基本信息；端口设置：网络连接设置，端口、ip地址的修改；设置时间：系统当前时间设置；升级：导入系统升级文件。3.2 可行性分析目前及至将来，企业竞争将主要在智能化，信息化方面展开，企业管理信息化的发展势在必行。合同管理系统可以为企业管理者提供合同管理方面及时而准确的信息，并且可以对合同的起草、执行、和完成方面提供控制。3.2.1 技术可行性在Windows环境下搭建Delphi开发平台，整个系统用Delphi语言设计开发；数据保存采用数据-结构体-内存流-本地文件的方式保存；数据调用采用本地文件-内存流-调入记录-表格的方式调用已经保存的数据。网络连接采用3.2.2 经济可行性从项目开发的投入金额、收益、收益投资比、投资回收周期和敏感性方面来考虑。在项目开发的投入上，开发和使用合同信息管理系统需要一台PC机，在软件上，需要Delphi09。当前合同的管理比较散乱，信息不及时，大部分工作需要手工操作，对信息的维护不仅费用高、工作量大，而且对信息的安全性很难得到保障。而该合同管理系统只需支出适量的资金进行本系统的开发。使用本系统后大部分工作实现自动化，企业只需花费很少的人力和物理进行系统的维护即可，并且降低了数据被无意破坏的风险。3.2.3 社会因素可行性从法律因素看，本系统开发所使用的软件都是正版的，所有的技术资料都是由单位保管的，另外将通过签订合同来确定开发单位和使用单位的职责和违约责任，因此，开发合同管理系统是可行的。从用户使用方面看，本系统的一般操作人员和系统管理员要求有一定的计算机基础和一定的计算机专业知识。系统的操作人员经过简单培训将会熟练地使用本系统。因此在用户使用方面，开发合同管理系统是完全可行的。3.3 系统的概要设计3.3.1 系统结构设计本系统主要分为以下几个子模块：单位设置：对签约单位基本属性的设置，其中包含单位编码、单位名称、单位机构代码、单位账号等等。增加合同：增加合同的基本属性，资金计划，合同执行情况，合同起草及备注。修改合同：对已经起草的合同进行修改，更新。合同类别设置：增加删除合同类别，可导入导出EXCEL文件权限设置：增加删除操作人员并设置操作人员的操作权限；修改密码：修改当前操作员登录密码及基本信息；端口设置：网络连接设置；设置时间：系统时间设置；升级：导入系统升级文件。系统结构设计图如图3-1所示。 3.3.2 系统功能模块划分本系统的主要功能模块划分如图3-2所示。图3-2 系统模块图(1) 权限设置增加删除操作人员并设置操作人员的操作权限；修改密码修改当前操作员登录密码及基本信息；起草合同增加合同的基本属性，资金计划，合同执行情况，合同起草及备注；合同审核相关部门对合同进行审核；修改合同对已经起草和签约的合同进行修改，更新；单位设置对签约单位基本属性的设置，其中包含单位编码、单位名称、单位机构代码、单位账号等等；合同信息对已经保存的合同信息进行管理维护更新；单位信息对已经保存的单位信息进行管理维护更新。3.3.3 工作流程本系统由起草合同开始，各个部门逐级提交，通过每个部门的审核、审批方可执行；如果合同不符合某个部门的要求，该部门可以执行回退，合同退到上一个部门进行修正，直到达标后方可再向上级提交。 图3-3 系统提交工作流程图 图3-4 系统回退工作流程图第4章 系统详细设计与实现4.1 系统登录功能界面模块当启动本系统时，首先要求用户进行登录，用户登录模块实现了用户名和密码与数据中User表中的登录名和密码的验证工作，并且将每次用户登录的情况记录到事件日志中，登录窗体设计界面如图4-1所示。 图4-1 登录界面当用户输入用户名和密码时，单击“登录”按钮，将开始验证用户，并根据验证的结果决定是否进入合同管理系统，同时根据用户的权限设置不同，主窗口上的菜单栏也会不一样。用户登录流程如图4-2所示。 图4-2 登录流程登陆操作实现了密码和用户名以及用户所属单位的匹配，密码、用户名及单位信息通过内存流存交由一个指定的文件保存，匹配时锁定到此文件对文件内的存储信息进行遍历匹配，匹配成功则登陆系统主界面并且记录用户名和对应单位，下次登陆时直接调用方便二次登陆，登录失败显示错误信息，提示重新登录；系统刚登陆时通过调用系统时间可以实现以不同季度的时间登陆，录入此季度的数据。其主要代码如下：procedure TDebarkationForm.BitBtn1Click(Sender: TObject);begin My_Bz := -1 ; aa := RichEdit1.ItemIndex ; My_Memory := TmemoryStream.Create ; if aa = 0 then begin /单位记录结构用来记录匹配成功的单位信息，方便下次登陆直接调入 My_Data_Module.My_curr_Dw_JiGou:= My_Data_Module.Debarkationaa ; My_Data_Module.My_SS_Dw_JiGou:=My_Data_Module.My_curr_Dw_JiGou; if My_Data_Module.My_SS_Dw_JiGou.Sx 103 then begin k1 := My_Data_Module.My_SS_Dw_JiGou.Level -1 ; for level := 0 to k1 do begin k := My_Data_Module.My_SS_Dw_JiGou.Parent; My_Data_Module.My_SS_Dw_JiGou :=My_Data_Module.Debarkation k ; if My_Data_Module.My_SS_Dw_JiGou.Sx = 103 then begin Break ; end; end; end; / /调入系统时间 MiMaQR.ND := My_Data_Module.My_Curr_SystemTime.Year; /路径 StrCopy( MiMaQR.My_Path,Pchar(Copy( My_Data_Module.My_Curr_Path.Curr_Nd_Path, 1, High(MiMaQR.My_Path) ); /单位编码 StrCopy( MiMaQR.DWQMBM,Pchar(Copy(Str, 1, High( MiMaQR.DWQMBM ) ); /用户名 StrCopy( MiMaQR.YHM,Pchar(Copy(ComboBox1.Text,1, High( MiMaQR.DWQMBM ) );/匹配用户名和所属单位，匹配成功登陆系统并且记录用户名和单位信息,匹配失 败显示错误信息，提示重新登陆。 if ( MyDebarkation.Sx = 106 ) and (MyDebarkation.Mc = ComboBox1.Text) and (MyDebarkation.MiMa = RichEdit2.Text) then begin /操作人员记录结构 My_Data_Module.My_curr_Ry_JiGou := MyDebarkation ; My_Data_Module.My_curr_Ry_JiGou_Zz := k; My_Dw_QBM := GetFullBm