安捷公司人才资源管理系统.doc

目 录引言11.系统规划11.1系统设计思想11.2系统设计目标21.3系统设计方案22.系统分析22.1业务需求与分析22.2系统业务流程图32.3系统数据流程图33.系统设计43.1系统软件功能结构43.2系统主要技术43.3系统数据库设计53.3.1数据库设计要点53.3.2数据库系统设计要点及难点53.3.3系统组成及数据环境53.3.4数据库概念设计63.3.5数据库逻辑设计63.3.6数据库物理设计83.4输出设计113.5输入设计114.系统实现114.1系统主程序流程114.2系统主界面设计124.3程序设计124.3.1登入界面与程序设计124.3.2基本信息录入与修改界面与程序设计134.3.3学习简历录入界面与程序设计144.3.4工作简历录入界面与程序设计154.3.5培训管理界面与程序设计154.3.6离职管理录入与修改界面与程序设计164.3.7奖惩管理界面与程序设计174.3.8系统查询界面与程序设计184.4系统测试185.结束语196.附录196.1登入程序设计代码196.2基本信息录入与修改程序设计代码216.2.1基本信息录入程序设计代码216.2.2基本信息修改程序设计代码236.3学习简历录入与修改程序设计代码246.4工作简历录入与修改程序设计代码266.5培训请况录入与修改程序设计代码286.6离职请况录入与修改程序设计代码306.6.1离职情况录入程序设计代码306.6.2离职情况修改程序设计代码326.7奖惩请况录入与修改程序设计代码346.8查询程序设计代码3638【摘 要】本文从安捷公司人才资源管理系统的系统规划、系统分析、系统设计、系统实施、系统实现及系统测试等多个方面，分别叙述系统研发的整个实现过程，简述采用Delphi7.0实现系统数据库应用的设计要点，重点阐述系统实现的过程中的重点和难点问题的分析及其解决方案，解决公司对人才资源的计算机管理。【关键词】人才信息；学习简历；工作简历；培训管理；离职管理；奖惩管理；引言安捷公司人才资源管理系统是一个企业，特别是企业人事部门的日常工作中是不可缺少的部分，他对于企业的决策者以及管理者来说都是至关重要的，因为他不仅能够为用户提供充足的信息和快捷的查询，而且能够为企业带来经济效益和社会效益，可是长期以来人们却使用传统人工的方式管理人才资源信息，这种管理方式存在这许多缺点，如：效率低、保密性差，时间长久，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学日趋成熟，其强大的功能已为人们所认识，它已进入人类社会的各个领域并发挥这越来越重要的作用。作为计算机应用的一大部分，使用计算机对人才资源信息进行管理，具有手工管理无法比拟的有点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、时限性长、成本低等。这些有点能够极大的提高人才资源信息管理的效率，也是企业实现科学化、正规化管理并与世界接轨的重要条件。因此如何加强内部管理、提高工作效率和改善服务质量成了急待解决的问题，而解决这些问题的关键措施之一就是建立先进、高校的安捷公司人才资源管理系统。目前市场流行相当多的数据库系统，如ORACLE，SQL等，各有所长，分别满足不同层次的需要，本人采用数据库SQL Server，SQL具有管理和开发入手比较方便，安全性高，数据库盘大等优点。下面采用Delphi7.0，对安捷公司人才资源管理系统的开发过程的系统规划、系统需求及分析、系统设计、系统实现及系统测试等各个阶段，论述其数据库应用系统的设计要点，实现过程中的难点问题的分析及其解决方案。1. 系统规划安捷公司人才资源管理系统规划的主要内容是信息系统设计目标及信息系统总体方案。1.1 系统设计思想系统是否合理、可靠、先进，可以从以下几个方面来衡量： 完整的报表、数据分析系统，能对数据流控制与动态分析； 有功能强大、资料齐全的查询系统； 方便用户使用以及操作的界面，操作简单、运行稳定。1.2 系统设计目标 本系统的设计目标是建立企业对人才资源信息的计算机管理系统。1.3 系统设计方案 在安捷公司人才资源管理需求的基础上提出整个信息系统的总体结构方案，确定系统开发设计的次序及时间计划，可分四个步骤：1 分析安捷公司人才资源信息管理的业务活动，弄清楚业务流程；2 根据安捷公司人才资源信息管理的业务流程，确定属于系统处理的范围；3 分析安捷公司人才资源信息管理业务流程所涉及的数据；4 提供系统的详细设计框架。2. 系统分析系统分析的主要最主要内容有安捷公司人才资源信息管理系统的业务需求分析、业务流程图、数据流图、数据库概念设计等四个部分。2.1 业务需求与分析1 系统数据需求通过对安捷公司人才管理业务流程的调查，总结系统对其数据的需求，主要有：基本信息管理、学习简历管理、工作简历管理、培训管理、离职管理、奖惩管理、系统查询等模块。2 系统功能需求a) 基本信息管理管理：完成人才基本信息的管理，如新增、删除、修改等操作；b) 学习简历管理管理：完成对人才学习简历信息的管理，如新增、删除、修改等操作；c) 工作简历管理：完成对人才工作简历的管理，如新增、删除、修改等操作；d) 培训管理：完成对人才培训信息的管理，如新增、删除、修改等操作；e) 离职管理：完成对人才离职信息的管理，如新增、删除、修改等操作；f) 奖惩管理：完成对人才奖惩信息的管理，如新增、删除、修改等操作；g) 系统查询：完成对人才信息查询的管理，如按基本信息查找、按学习简历查找、按工作简历查找、按培训情况查找、按离职情况查找、按奖惩情况查找等操作；3 系统性能的需求系统的性能指标包括存储容量限制、运行时间限制、传输速度要求、安全保密性等几个方面4 系统运行环境的需求a) 硬件方面：采用的机型、外部设备、数据通信接口b) 软件方面：支持系统运行的系统软件，主要有操作系统、数据库系统。5 系统可靠性及安全保密性需求对系统、重要子系统在运行的安全、可靠、保密方面的性能提出要求。2.2 系统业务流程图系统业务流程图(TFD)如下:2.3 系统数据流程图系统的顶层数据流程图(DFD)如下:3. 系统设计系统设计主要有以下几项内容：3.1 系统软件功能结构 3.2 系统主要技术1 选择依据：主要是依据系统说明书、系统的总体结构设计。2 系统基本配置：a). 系统体系结构：客户机/服务器（Client/Server）结构，客户机采用终端，服务器采用主辅方式的双服务器；b). 网络协议：TCP/IP协议；c). 网络操作系统：MS Window 95/MS Window 98/ MS Window 2000/ MS Window XP/MS Window MEd). 数据库管理系统：MS SQL Server 2000；e). 系统开发工具：Delphi7.0f). 客户机的操作系统：MS Window XP3.3 系统数据库设计3.3.1 数据库设计要点1 第一阶段的设计任务是收集和分析用户需求，完成数据库概念设计。2 第二阶段的设计任务是数据库逻辑设计，完成E-R模型向逻辑模型转换。3 第三阶段的设计任务是数据库物理设计，确定表结构，简历数据库模型。3.3.2 数据库系统设计要点及难点 建立数据库，确定数据库中的数量及其每个表中各个字段的字段名、类型、宽度、小数及索引、排序。 确定数据库中各个表的字段的主键值、主索引及普通索引。 建立各个表单的数据环境，同时在数据环境中加入各个表，确定主表并建立主表与各个表之间的关联。 表单设计过程中的标签、文本框、编辑框、复选框、组合框、列表框、微调控件、绑定、表格、图像、计时器、页框、形状、容器、选项按钮组、命令按钮及命令按钮的属性的确定。 采用结构化编程方法，确定系统功能模块及相互之间的关系。 3.3.3 系统组成及数据环境 数据库：rc.dbc_安捷公司人才资源管理数据库 表：base_info_人才基本信息表 ; study_info _学习信息表; work_info_工作信息表 ; train_info_培训信息表 ; jc_info_奖惩信息表 ; lz_info_离职信息表 ; 程序：Project2.dpr_安捷公司人才资源管理系统主程序 报表：人才信息报表3.3.4 数据库概念设计 人才基本信息模块实体：人才属性：编号、姓名、性别、出生年月、年龄、民族、政治面貌、身份证号、联系电话、住址、职务类别、所任职务、工作单位、所属行业、技术职务。 学习简历模块实体：学习简历属性：编号、人才编号、开始日期、结束日期、说明 工作简历模块实体：工作简历属性：编号、人才编号、开始日期、结束日期、说明 培训情况模块实体：培训情况属性：编号、人才编号、开始日期、结束日期、说明 奖惩情况模块实体：奖惩情况属性：编号、人才编号、开始日期、结束日期、说明 离职情况模块实体：离职情况情况属性：编号、姓名、离职原因、离职去向、离职说明3.3.5 数据库逻辑设计 人才实体： 学习简历： 工作简历： 培训情况： 奖惩情况： 离职情况：3.3.6 数据库物理设计物理结构设计的原则如下： 尽可能的减少数据冗余和重复。结构设计与操作设计相结合。数据结构具有相对的稳定性。由于本系统是应用在单机系统上，为了便于数据库的使用和维护，本系统只建立起一个数据库，在此数据库基础上建立起如下6张表：l 人才基本信息表 base_infol 学习信息表 study_infol 工作信息表 work_infol 培训信息表 train_infol 奖惩信息表 jc_infol 离职信息表 lz_info下面具体介绍表结构： 人才基本信息表 base_info：字段名数据类型宽 度小数位数是否索引是否为空编号数据型6/NN姓名字符型10/NY性别字符型8/NY出生年月日期型8/NY年龄数字型4/NY民族字符型4/NY政治面貌字符型4/NY身份证号字符型25/NY联系电话字符型21/NY住址字符型30/NY职务类别字符型10/NY所任职务字符型10/NY工作单位字符型30/NY所属行业字符型10/NY所属专业字符型10/NY技术职务字符型10/NY该表的主键：编号；该表主要用来描述人才的基本信息； 学习简历study_info：字段名称数据类型宽 度小数位数是否索引是否为空编号数值型4/YN人才编号数值型4/NN开始日期日期型4/NY结束日期日期型52/NY说明字符型50/NY主键：编号；该表用来记录人才的学习情况； 工作简历work_info：字段名称数据类型宽 度小数位数是否索引是否为空编号数值型4/YN人才编号数值型4/NN开始日期日期型4/NY结束日期日期型52/NY说明字符型50/NY主键：编号；该表用来记录人才的工作情况； 培训情况train_info字段名称数据类型宽 度小数位数是否索引是否为空编号数值型4/YN人才编号数值型4/NN开始日期日期型4/NY结束日期日期型52/NY说明字符型50/NY主键：编号；该表用来记录人才的培训情况； 奖惩情况zc_info字段名称数据类型宽 度小数位数是否索引是否为空编号数值型4/YN人才编号数值型4/NN开始日期日期型4/NY结束日期日期型52/NY说明字符型50/NY主键：编号；该表用来记录人才的奖惩情况； 离职情况 lz_info字段名称数据类型宽 度小数位数是否索引是否为空编号数值型4/YN姓名字符型10/NN离职原因字符型20/NY离职去向字符型50/NY离职说明字符型100/NY主键：编号；该表用来记录人才的离职情况；3.4 输出设计1 选择输出方式：显示终端、打印机；2 确定输出格式：格式设计体现在各类报表中；3 输出的主要形式：报表；4 输出内容：主要有输出项目、数据结构、位数及取值范围。其中的数据结构、位数及取值范围等体现在具体的数据库设计中。3.5 输入设计1 输入方式设计a) 键盘输入，为常规的数据录入方式，包括联机输入的和脱机输入两种；b) 磁盘传递数据。2 用户界面设计（详见各子模块用户界面）。4. 系统实现系统实施的最主要工作是程序设计，此外还包括物理系统的实施、程序的调试、系统的测试等。4.1 系统主程序流程 4.2 系统主界面设计本系统所采用的系统开发工具Delphi 7.0提供面向对象的、图形化的界面设计面板，操作简单方便，可以调用现成的图片美化窗体、按钮等功能。程序主界面介绍：该界面是操作最多的主体部分，其他窗口地调用也都将显示在这个主界面的范围里面。窗口风格采用WINDOWS的标准窗口形式，界面背景的统一主体色调为柔和的浅灰色，字体颜色统一为黑色，字体大小为9磅。在主界面里包括系统菜单、常用工具栏、工作区。在工作区上放置日常业务操作使用频率比较高的几个信息查询模块，以方便用户用最快捷的方式找出相应的信息，提高工作效率。程序主界面如下图， 4.3 程序设计4.3.1 登入界面与程序设计界面： “系统登入”模块用于系统登入时用户名和密码的验证； 输入用户名为：admin和密码：admin时，单击“登入”按钮就可以进入安捷公司人才资源管理系统进行相关的操作； 本模块程序代码见附录6.1。4.3.2 基本信息录入与修改界面与程序设计 人才基本信息录入界面与程序设计界面： “人才基本信息录入”模块用于增加人才基本信息，需要使用人才基本信息表（base_info）； 增加新的人才基本信息，只要输入姓名、性别、出生日期、年龄等等信息，难后单击“保存”按钮就可以了； 本模块程序代码见附录6.2.1。. 人才基本信息修改界面与程序设计界面： “人才信息修改”模块用于对人才基本信息的修改以及删除，需要使用人才基本信息表（base_info）； 修改人才基本信息，只要选择需要修改的人才基本信息输入需要修改的内容如：姓名、性别、出生日期、年龄等等信息，难后单击“保存”按钮，就可以了； 删除人才基本信息，只要选择需要删除的人才基本信息，难后单击“删除”按钮，即可删除所选的人才基本信息， 本模块程序代码见附录6.2.2。4.3.3 学习简历录入界面与程序设计界面： “学习简历录入”模块用于对人才学习简历信息的增加、删除以及修改，需要使用学习信息表（ study_info）； 增加人才学习简历信息，只要选择需要增加学习简历信息的人才，难后单击“增加简历”按钮，输入简历内容，单击“保存”按钮，就可以增加人才学习简历信息； 删除人才学习简历信息，只要选择需要删除学习简历信息的人才，难后单击“删除简历”按钮即可； 修改人才学习简历信息，只要选择需要修改学习简历信息的人才，难后单击“修改简历”按钮，输入简历内容，单击“保存”按钮，就可以修改人才学习简历信息； 本模块程序代码见附录6.3。4.3.4 工作简历录入界面与程序设计界面： “工作简历录入”模块用于对人才工作简历信息的增加、删除以及修改，需要使用工作信息表（work_info）； 增加工作简历信息，只要选择需要增加工作简历信息的人才，难后单击“增加简历”按钮，输入简历内容，单击“保存”按钮，就可以增加工作简历简历信息； 删除工作简历信息，只要选择需要删除工作简历信息的人才，难后单击“删除简历”按钮即可； 修改人才工作简历信息，只要选择需要修改工作简历信息的人才，难后单击“修改简历”按钮，输入简历内容，单击“保存”按钮，就可以修改人才工作简历信息； 本模块程序代码见附录6.4。4.3.5 培训管理界面与程序设计界面： “培训情况录入”模块用于对人才培训情况的增加、删除以及修改，需要使用培训信息表（train_info）； 增加人才培训情况，只要选择需要增加培训情况的人才，难后单击“增加”按钮，输入培训内容，单击“保存”按钮，就可以增加人才培训情况； 删除人才培训情况，只要选择需要删除培训情况的人才，难后单击“删除”按钮即可； 修改人才培训情况，只要选择需要修改培训情况的人才，难后单击“修改”按钮，输入培训情况，单击“保存”按钮，就可以修改人才培训情况； 本模块程序代码见附录6.5。4.3.6 离职管理录入与修改界面与程序设计 离职情况录入界面的与程序设计界面： “离职情况录入”模块用于对人才培训情况的增加，需要使用离职信息表（lz_info）； 增加人才离职情况，只要选择需要增加离职情况的人才，输入离职原因，单击“保存”按钮，就可以增加人才离职情况； 本模块程序代码见附录6.6.1。 离职情况修改界面的与程序设计界面： “离职情况修改”模块用于对人才培训情况的修改，需要使用离职信息表（lz_info）； 修改人才离职情况，只要选择需要修改离职情况的人才，输入离职原因，难后单击“修改确认”按钮，就可以修改人才离职情况； 本模块程序代码见附录6.6.2。4.3.7 奖惩管理界面与程序设计界面： “奖惩情况录入”模块用于对人才奖惩情况的增加、删除以及修改，需要使用奖惩信息表 （jc_info）； 增加人才奖惩情况，只要选择需要增加奖惩情况的人才，难后单击“增加”按钮，输入奖惩内容，单击“保存”按钮，就可以增加人才奖惩情况； 删除人才奖惩情况，只要选择需要删除奖惩情况的人才，难后单击“删除”按钮即可； 修改人才奖惩情况，只要选择需要修改奖惩情况的人才，难后单击“修改”按钮，输入奖惩情况，单击“保存”按钮，就可以修改人才奖惩情况； 本模块程序代码见附录6.7。4.3.8 系统查询界面与程序设计界面： “查询人才信息”模块用于对人才所有情况的查询，需要使用所有的表； 查询人才的信息，只要输入人才的姓名，难后选择需要查询的项目，最后单击“开始查找”按钮就可以看到需要查询的项目了； 本模块程序代码见附录6.8。4.4 系统测试完成系统的程序设计后，根据测试用例及其数据，首先对各个模块进行单元测试，其次进行了组装测试，难后完成系统测试，最后对整个系统的网络进行全面的测试。测试通过后，根据系统设计的要求对人才基本信息管理、学习简历录入管理、工作简历录入管理、培训情况管理、离职情况管理、奖惩情况管理、系统查询管理共七个模块进行试运行，效果良好，得到了满意的结果。经过具体的动手实践，我在计算机网路的硬件和软件两个方面都得到了很好的锻炼学习。首先在硬件学习中，掌握了安装与调试；其次学会了网络安装与调试的技巧、安捷公司人才资源管理系统设计，这是书本上所学不到的知识。5. 结束语通过几月的系统分析、设计、开发，系统编码完成。在系统的开发过程中，以前学习感到很抽象的课程，如软件工程、数据库原理、面向对象程序设计等变得清晰起来。感觉到这几门理论课程的重要性。以前做一些应用的系统开发，随意性大，想到那里做到那里，没有统一的规划，一旦系统成型，出现错误返工修改工作量大，最终的系统可靠性不高。另外一直以来，进行程序设计均采用结构化开发方法，对系统的全貌难以在开发前看到，导致实现的系统不满足需求。这次的毕业设计开发，主要有以下几点收获：1对原型化的系统开发方法有了一定的了解。渐增式的原型化开发方法与面向对象的程序设计的结合不但能在系统开发初期让用户了解系统的概貌，而且能使系统开发模块化，提高开发效率，减少出错。对于后期的系统维护也提供了很大的帮助。2通过实践，提高了系统分析的能力，对数据流图、数据字典、系统流程图等系统设计工具的使用有了更深刻的认识。为以后的工作、学习的进一步提高打下了坚实的基础。【参考文献】1 实用软件工程基础 陈 明 编著 清华大学出版社2 数据库系统概论 萨师煊. 王珊 编著 高等教育出版社3 Delphi7.0程序设计 王春红 编著 清华大学出版社4 Delphi7.0系统开发实例导航 林陈雪 郭安源 编著 人民邮电出版社6. 附录6.1 登入程序设计代码代码如下：procedure TForm31.Button3Click(Sender: TObject);beginif adotable1.Locate(name,edit1.Text,) thenbegin if trim(adotable1.FieldByName(pass).AsString)=edit2.Text then begin showmessage(欢迎使用); form1.visible:=true; form31.free; end else showmessage(用户名或密码错误);end else showmessage(用户名或密码错误);end;procedure TForm31.Button1Click(Sender: TObject);begin application.Terminate;end;procedure TForm31.FormPaint(Sender: TObject);beginif not ashow thenbeginform1.Hide;ashow:=true;end;end;procedure TForm31.FormCreate(Sender: TObject);beginashow:=false;end;end.6.2 基本信息录入与修改程序设计代码6.2.1 基本信息录入程序设计代码代码如下：procedure TForm2.Button1Click(Sender: TObject);begin if edit1.Text= then showmessage(请输入姓名) else if edit2.Text= then showmessage(性别) else if edit4.Text= then showmessage(请输入年龄) else if edit7.Text= then showmessage(请输入身份证号) elsebegin if messagedlg(确实要增加此人才信息？,mtInformation,mbOK, mbCancel,0)=mrok then begin adotable1.Open(); adotable1.Edit; adotable1.Append; adotable1.FieldByName(姓名).AsString:=edit1.Text; adotable1.FieldByName(性别).AsString:=edit2.Text; adotable1.FieldByName(出生日期).AsString:=DateToStr(DateTimePicker1.Date); adotable1.FieldByName(年龄).AsString:=edit4.Text; adotable1.FieldByName(民族).AsString:=edit5.Text; adotable1.FieldByName(政治面貌).AsString:=edit6.Text; adotable1.FieldByName(身份证号).AsString:=edit7.Text; adotable1.FieldByName(联系电话).AsString:=edit8.Text; adotable1.FieldByName(住址).AsString:=edit9.Text; adotable1.FieldByName(职务类别).AsString:=edit10.Text; adotable1.FieldByName(所任职务).AsString:=edit11.Text; adotable1.FieldByName(工作单位).AsString:=edit12.Text; adotable1.FieldByName(所属行业).AsString:=edit13.Text; adotable1.FieldByName(所属专业).AsString:=edit14.Text; adotable1.FieldByName(技术职务).AsString:=edit15.Text; adotable1.post; adotable1.Close(); /showmessage(添加成功); /visible:=false; endend;end;procedure TForm2.FormCreate(Sender: TObject);beginedit1.Text:=;edit2.Text:=;edit4.Text:=;edit5.Text:=;edit6.Text:=;edit7.Text:=;edit8.Text:=;edit9.Text:=;edit10.Text:=;edit11.Text:=;edit12.Text:=;edit13.Text:=;edit14.Text:=;edit15.Text:=;end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);beginvisible:=false;end;procedure TForm2.Button2Click(Sender: TObject);beginvisible:=false;end;end.6.2.2 基本信息修改程序设计代码代码如下：procedure TForm3.Button3Click(Sender: TObject);begin if edit1.Text= then showmessage(请输入姓名) else if edit2.Text= then showmessage(性别) else if edit4.Text= then showmessage(请输入年龄) else if edit7.Text= then showmessage(请输入身份证号) elsebegin if messagedlg(确实要修改此人才信息？,mtInformation,mbOK, mbCancel,0)=mrok then begin adotable1.Edit; adotable1.FieldByName(姓名).AsString:=edit1.Text; adotable1.FieldByName(性别).AsString:=edit2.Text; adotable1.FieldByName(出生日期).AsString:=DateToStr(DateTimePicker1.Date); adotable1.FieldByName(年龄).AsString:=edit4.Text; adotable1.FieldByName(民族).AsString:=edit6.Text; adotable1.FieldByName(政治面貌).AsString:=edit5.Text; adotable1.FieldByName(身份证号).AsString:=edit7.Text; adotable1.FieldByName(联系电话).AsString:=edit8.Text; adotable1.FieldByName(住址).AsString:=edit8.Text; adotable1.Post; end; end;end;end.6.3 学习简历录入与修改程序设计代码代码如下：procedure TForm4.Button4Click(Sender: TObject);beginform11.setEdit(edit1,edit2,edit4,edit5,edit6,edit7,edit8,datetimepicker1);form11.WindowState:=wsNormal;form11.Visible:=true;end;procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);beginvisible:=false;end;procedure TForm4.Button3Click(Sender: TObject);beginvisible:=false;end;procedure TForm4.Button1Click(Sender: TObject);beginif edit8.Textinit thenbeginform12.setID(edit8.Text);form12.Visible:=true;end;end;procedure TForm4.FormActivate(Sender: TObject);begin if edit8.Textinit then begin adoquery1.Active:=false; adoquery1.Close; adoquery1.SQL.Text:=select ID,开始日期,结束日期,说明 from study_info where pid=+edit8.Text; adoquery1.Open; adoquery1.active:=true; end;end;procedure TForm4.Button2Click(Sender: TObject);beginif not adoquery1.Eof thenbeginadocommand1.CommandText:=delete from study_info where ID=+adoquery1.FieldByName(ID).AsString;adocommand1.Execute; adoquery1.Active:=false; adoquery1.Close; adoquery1.Open; adoquery1.active:=true;end;end;procedure TForm4.Button5Click(Sender: TObject);beginif not adoquery1.Eof thenbeginif edit8.Textinit thenbegin form14.setID(edit8.Text); form14.Visible:=true; end;end;end;end.6.4 工作简历录入与修改程序设计代码代码如下：procedure TForm5.Button4Click(Sender: TObject);beginform11.setEdit(edit1,edit2,edit4,edit5,edit6,edit7,edit8,datetimepicker1);form11.WindowState:=wsNormal;form11.Visible:=true;end;procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);beginvisible:=false;end;procedure TForm5.Button3Click(Sender: TObject);beginvisible:=false;end;procedure TForm5.Button1Click(Sender: TObject);beginif edit8.Textinit thenbeginform15.setID(edit8.Text);form15.Visible:=true;end;end;procedure TForm5.FormActivate(Sender: TObject);begin if edit8.Textinit then begin adoquery1.Active:=false; adoquery1.Close; adoquery1.SQL.Text:=select ID,开始日期,结束日期,说明 from work_info where pid=+edit8.Text; adoquery1.Open; adoquery1.active:=true; end;end;procedure TForm5.Button2Click(Sender: TObject);beginif not adoquery1.Eof thenbeginadocommand1.CommandText:=delete from work_info where ID=+adoquery1.FieldByName(ID).AsString;adocommand1.Execute; adoquery1.Active:=false; adoquery1.Close; adoquery1.Open; adoquery1.active:=true;end;end;procedure TForm5.Button5Click(Sender: TObject);beginif not adoquery1.Eof thenbeginif edit8.Textinit thenbegin form16.setID(edit8.Text); form16.Visible:=true; end;end;end;end.6.5 培训请况录入与修改程序设计代码代码如下：procedure TForm6.Button4Click(Sender: TObject);beginform11.setEdit(edit1,edit2,edit4,edit5,edit6,edit7,edit8,datetimepicker1);form11.WindowState:=wsNormal;form11.Visible:=true;end;procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);beginvisible:=false;end;procedure TForm6.Button3Click(Sender: TObject);beginvisible:=false;end;procedure TForm6.Button1Click(Sender: TObject);beginif edit8.Textinit thenbeginform17.setID(edit8.Text);form17.Visible:=true;end;end;procedure TForm6.FormActivate(Sender: TObject);begin if edit8.Textinit then begin adoquery1.Active:=false; adoquery1.Close; adoquery1.SQL.Text:=select ID,开始日期,结束日期,说明 from train_info where pid=+edit8.Text; adoquery1.Open; adoquery1.active:=true; end;end;procedure TForm6.Button2Click(Sender: TObject);beginif not adoquery1.Eof thenbeginadocommand1.CommandText:=delete from train_info where ID=+adoquery1.FieldByName(ID).AsString;adocommand1.Execute; adoquery1.Active:=false; adoquery1.Close; adoquery1.Open; adoquery1.active:=true;end;end;procedure TForm6.Button5Click(Sender: TObject);beginif not adoquery