数据库课程设计_人力资源管理系统.doc

福建农林大学计算机与信息学院计算机类课程设计报告课程名称：数据库原理及应用课程设计课程设计题目：人力资源管理系统姓 名：卢培河系：计算机科学与技术系专 业：计算机科学与技术（专升本）年 级：2008级学 号：081806023指导教师：瞿赛樱职 称：讲师2010年 1 月 27 日福建农林大学计算机与信息学院计算机类课程设计结果评定评语：评定内容评定指标等级成绩设计质量1设计方案具有可行性和创新性，设计思路清晰（满分15分）优良中差2独立进行设计工作；能运用所学知识和技能去发现与解决实际问题，设计质量较高（满分20分）优良中差3. 设计需求合理，功能完善，代码简洁，结构清晰（满分20分）优良中差4. 按期完成规定的任务，工作量饱满，难度较大（满分15分）优良中差报告质量1. 设计报告格式规范、文字通顺，符号统一，编号齐全，书写工整规范，图表完备、整洁、正确（满分15分）优良中差2. 设计报告内容充实，详细设计描述具体，各项内容合乎软件文档撰写要求（满分15分）优良中差评定结果总成绩（满分100分）指导教师签字：任务下达日期：2010.1.2评定日期：目 录1. 设计目的12. 设计要求13. 设计方案24. 设计内容24.1需求分析24.2概要设计说明64.2.1总体设计 4.2.1.1项目规划 4.2.1.2 功能框图 4.2.2系统设计 4.2.2.1设计目标 4.2.2.2开发及运行环境 4.2.2.3数据库设计 4.2.2.4文件架构图4.3详细设计说明16 4.3.1公共模块设计（Mdl_Link模块） 4.3.2主窗体设计 4.3.3系统登陆设计 4.3.4新员工登记模块设计 4.3.5工资设置模块设计 4.4系统使用说明 4.4.1软件运行环境 4.4.2数据库安装及配置 4.4.3系统登陆 4.4.4系统管理5. 总结参考文献附录源代码人力资源管理系统1. 设计目的随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企人事信息的管理势在必行。人事管理是现代企业管理工作不可缺少的一部分，是适应现企业管理尺度的要求、推动企业劳动人事管理走向科学化、规范化的必要条件。只有人事管理规范了，才能在其他方面更好的发展。为了适应现代企业或公司经营发展的需要，人事管理也从以前的手工管理逐渐被规范化的管理信息系统所代替。众所周知，当今社会为信息社会，世界已进入在计算机信息管理领域中激烈竞争的年代，因此，加强人事管理在单纯依靠以手工管理的方法，不仅需要耗用大量的人力、物力、财力，而且工作效率低，漏洞和错误众多，难以达到预期的目标，为了提高企业工作效率、保证企业人事管理质量、快速而且准确地为企业制定好的经营方针与决策，在有限的时间内完成工作任务及达到预期的目的，我选择了开发企业人事管理系统这个课题。2. 设计要求本次设计要求系统具有以下功能：q 具有良好的操作界面。q 业务模块能够自由增加、修改及删除信息。q 建立数据库备份机制，并提供数据灾难恢复功能。q 支持数据的模糊查询机制。q 自动计算员工工资。q 自动生成员工工资报表。q 实现员工岗位调动操作。q 实现员工离职、复职操作,系统退出。3. 设计方案本系统采用的设计方案是使用Delphi 7.0开发，它是当月前最为流行的可视化快速应用程序开发环境，对数据库有强大的支持。后台数据库使用SQL Server 2000数据库，以保证数据的安全和执行高效。 人力资源管理系统是一个典型的数据库应用程序，由启动窗体、登录模块、系统主界面、系统管理模块、信息设置模块、人事管理模块、工资管理模块等组成，具体的功能模块如下：q 系统管理模块该模块的主要功能是单位信息、管理员设置、更改密码、重新登录。q 信息设置模块该模块主要功能是对部门信息、工种类型、职称类型、文化程度、政治面貌、民族类型、所得税设置、考勤设置等进行设置。q 人事管理人事管理模块主要功能是新员工登记、应聘登记、员工调动、员工离职、考核管理、合同管理、应聘信息浏览、员工信息浏览。q 工资管理工资管理模块主要是：设置员工的工资信息、生成工资报表、工资档案浏览。4. 设计内容4.1需求分析经过调查分析，要求系统具有以下功能：q 具有良好的操作界面。q 业务模块能够自由增加、修改及删除信息。q 建立数据库备份机制，并提供数据灾难恢复功能。q 支持数据的模糊查询机制。q 自动计算员工工资。q 自动生成员工工资报表。q 实现员工岗位调动操作。q 实现员工离职、复职操作，系统退出。4.2概要设计说明4.2.1总体设计4.2.1.1项目规划： 人力资源管理系统是一个典型的数据库应用程序，由启动窗体、登录模块、系统主界面、系统管理模块、信息设置模块、人事管理模块、工资管理模块等组成，具体的功能模块如下：q 系统管理模块该模块的主要功能是单位信息、管理员设置、更改密码、重新登录。q 信息设置模块该模块主要功能是对部门信息、工种类型、职称类型、文化程度、政治面貌、民族类型、所得税设置、考勤设置等进行设置。q 人事管理人事管理模块主要功能是新员工登记、应聘登记、员工调动、员工离职、考核管理、合同管理、应聘信息浏览、员工信息浏览。q 工资管理工资管理模块主要是：设置员工的工资信息、生成工资报表、工资档案浏览。4.2.1.2功能框图：图1 功能框架图4.2.2系统设计4.2.2.1设计目标：根据企业的需要和人力资源管理系统的特点本系统实施后应达到以下目标：q 使企业日常事务性的人事工作都可能通过人力资源管理软件得到快速高效的完成。q 降低人力资源成本。q 操作界面美观、标准、专业、统一，实施方法简单、方便。q 通过员工工资的自动计算功能，从而减轻工作人员的工作压力。通过数据备份及恢复功能，避免数据因意外而造成致命问题。4.2.2.2开发及运行环境：系统开发平台：Delphi 7.0。数据库管理系统软件：SQL Server 2000。运行平台：Windows xp/ Windows 2000。分辨率：最佳效果800*600。4.2.2.3数据库设计：本系统采用SQL Server 2000 数据库，系统数据库名为db_manpowerinfo，数据库db_manpowerinfo中包括18个数据表。下面分别给出数据库概要说明和数据表的结构。1数据表概要说明如图2所示的即为本系统中数据库中的数据表的树形结构图，该数据表树型结构图包含系统所有数据表。可以清晰地反应数据库信息。图2 数据表树树形结构图2数据表的结构（1）考核表考核表的作用是存入员工每个月的考核信息，考核表结构如表B.1所示。表B.1 考核表结构列名数据类型长度主键否功能描述员工编号varchar5员工编号出勤天数int4出勤天数请假天数int10请假天数迟到次数int10迟到次数早退次数int4早退次数旷工天数int4旷工天数加班时数int4加班时数考核等级varchar10考核等级考核分值float8考核分值考核人varchar10考核人考核月份datetime8考核月份考核评价Varchar100考核评价（2）考勤表考勤表的作用是存放员工考核的条件，考勤表结构如表B.2所示。表B.2 考勤表结构列名数据类型长度主键否功能描述旷工扣除float8旷工扣除全勤奖float8全勤奖出勤天数Int4出勤天数迟到早退次数Int4迟到早退次数加班费Float8加班费月平均工作天数Int4月平均工作天数几倍float8几倍（3）工资表工资表的作用是存放员工每个月的工资信息，工资表结构如表B.3所示。表B.3 工资表结构列名数据类型长度主键否功能描述所属工资月份nvarchar15所属工资月份员工编号nvarchar5员工编号员工姓名nvarchar10员工姓名基本工资Float8基本工资加班费Float8加班费全勤奖Float8全勤奖职务津贴Float8职务津贴其它金额Float8其它金额旷工费Float8旷工费养老保险Float8养老保险失业保险Float8失业保险医疗保险Float8医疗保险其它扣额Float8其它扣额应发工资Float8应发工资应扣工资Float8应扣工资实发工资Float8实发工资备注nvarchar50备注（4）工资模板工资模板是用来存放员工的基本工资信息，工资模板表结构如表B.4所示。表B.4 工资模板表列名数据类型长度主键否功能描述员工编号Nvarchar5员工编号员工姓名Nvarchar10员工姓名基本工资float8基本工资全勤奖float8全勤奖职务津贴float8职务津贴养老保险float8养老保险失业保险float8失业保险医疗保险float8医疗保险（5）人事表人事表用来存放员工的详细信息，人事表结构如表B.5所示。表B.5 人事表结构列名数据类型长度主键否功能描述编号nvarchar5是编号姓名nvarchar10姓名性别nvarchar2性别身份证号nvarchar20身份证号出生年月datetime8出生年月民族varchar20民族婚姻状况Nvarchar4婚姻状况政治面貌nvarchar10政治面貌籍贯nvarchar50籍贯联系电话nvarchar20联系电话手机号码nvarchar30手机号码电子邮箱nvarchar20电子邮箱家庭地址nvarchar50家庭地址毕业院校nvarchar50毕业院校专业nvarchar20专业文化程度nvarchar10文化程度特长nvarchar50特长参加工作时间datetime8参加工作时间工龄int4工龄照片image16照片所属部门nvarchar50所属部门工种nvarchar10工种职务nvarchar10职务职称nvarchar20职称基本工资float8基本工资其它工资float8其它工资调入时间datetime8调入时间简历nvarchar200简历登记日期datetime8登记日期登记人nvarchar10登记人是否离职nvarchar10是否离职离职日期datetime8离职日期复职日期datetime8复职日期离职复员登记人varchar10离职复员登记人（6）保险表保险表用来保存员工的保险信息，保险表结构如表B.6所示。表B.6 保险表结构字段名数据类型长度主键否功能描述员工编号nvarchar5员工编号员工姓名nvarchar10员工姓名养老保险money8养老保险失业保险money8失业保险医疗保险money8医疗保险（7）部门表部门表用来保存部门信息，部门表结构如表B.7所示。表B.7 部门表结构字段名数据类型长度主键否功能描述部门编号nvarchar3部门编号部门名称nvarchar10是部门名称（8）操作员信息表操作员信息表用来保存操作员信息，操作员信息表结构如表B.8所示。表B.8 操作员表结构字段名数据类型长度主键否功能描述操作员名称varchar20操作员名称操作员密码varchar20操作员密码（9）单位信息表单位信息表用来保存单位信息，单位信息表结构如表B.9所示。表B.9 单位信息表结构字段名数据类型长度主键否功能描述单位名称varchar50单位名称法人varchar20法人创建日期datetime8创建日期单位电话varchar20单位电话单位邮箱varchar20单位邮箱单位地址varchar80单位地址单位介绍varchar100单位介绍（10）个人所得税税率表个人所得税税率表用来保存个人所得税税率信息，个人所得税税率表结构如表B.10所示。表B.10 个人所得税税率表结构字段名数据类型长度主键否功能描述级别号int8级别号应纳所得税金额下限float8应纳所得税金额下限应纳所得税金额上限float8应纳所得税金额上限税率float8税率（11）工种表工种表用来保存工种信息，工种表结构如表B.11所示。表B.11 工种表结构字段名数据类型长度主键否功能描述工种nvarchar20是工种（12）合同表合同表用来保存合同信息，合同表结构如表B.12所示。表B.12 合同表结构字段名数据类型长度主键否功能描述合同编号nvarchar15合同编号员工编号nvarchar5员工编号登记日期datetime8登记日期合同开始日期datetime8合同开始日期合同结束日期datetime8合同结束日期合同期限int8合同期限合同期工资money8合同期工资状态nvarchar8状态备注nvarchar100备注（13）民族表民族表用来保存员工为那个民族，民族表结构如表B.13所示。表B.13 民族表结构字段名数据类型长度主键否功能描述民族nvarchar20是民族（14）文化程序表文化程序表用来保存员工的文化程度，文化程序表结构如表B.14所示。表B.14 文化程序表结构字段名数据类型长度主键否功能描述文化程度nvarchar20是文化程度（15）应聘信息表应聘信息表用来保存员工应聘信息，应聘信息表结构如表B.15所示。表B.15 应聘信息表结构字段名数据类型长度主键否功能描述编号varchar10编号姓名varchar10姓名性别varchar2性别出生日期datetime8出生日期民族varchar20民族联系电话varchar20联系电话电子信箱varchar30电子信箱通信地址varchar100通信地址毕业院校varchar50毕业院校专业varchar20专业文化程度varchar20文化程度特长varchar20特长兴趣爱好varchar20兴趣爱好专业技能varchar100专业技能工作经历varchar100工作经历（16）政治面貌表政治面貌表用来保存员工的政治面貌，政治面貌表结构如表B.16所示。表B.16 政治面貌表结构字段名数据类型长度主键否功能描述政治面貌nvarchar20是政治面貌（17）职称表职称表用来保存员工职称信息，职称表结构如表B.17所示。表B.17 职称表结构字段名数据类型长度主键否功能描述职称名称nvarchar20是职称名称（18）职务表职务表用来保存员工职务信息，职务表结构如表B.18所示。表B.18 职务表结构字段名数据类型长度主键否功能描述职务名称nvarchar20是职务名称4.2.2.4文件架构图图C.1 文件架构图q 信息设置架构图，如图C.2所示。图C.2 信息设置架构图q 人事管理架构图，如C.3所示。图C.3 人事管理架构图q 工资管理架构图，如图C.4所示。图C.4 工资管理架构图4.3详细设计说明4.3.1公共模块设计（Mdl_Link模块）数据模块窗体主要功能是统一管理数据库访问组件，数据模块如图3所示。图3 数据模块1. 设计步骤：（1）在Delphi中选择“File”/“New”/“Data Module”菜单项，新建一个数据模块，命名为“Data1”。（2）在“ADO”组件页中点选“TADOConnection”组件，添加到窗体上，TADOConnection组件用到连接数据库，其它数据库组件通过它连接数据库。（3）点选ADOConnection1组件，在“Object Inspector”窗口中，单击ConnectionString属性右侧的【】按钮，弹出对话框如图4所示。图4 数据连接对话框（4）单击【Build】按钮，在弹出的对话框中的“提供程序”选项卡中设置希望连接的数据，如图5所示。图5 连接属性对话框（5）选择“连接”选项卡，设置连接相关设置，如图6所示。图6 连接属性对话框（6）单击【测试连接】按钮，如果连接成功，则提示成功，单击【确定】按钮完成数据库的连接。（7）在窗体上添加TADOQuery组件，设置Connection属性为“ADOConnection1”。4.3.2主窗体设计主窗体中主要控制方式是通过菜单和工具栏按钮来调用子窗体，它的背景区由一幅图片填充。人力资源管理系统主窗体运行结果如图7所示。图7 人力资源管理系统主窗体1窗体设计步骤（1）运行Delphi7，会自动创建一个窗体，设置该窗体为程序主窗体，命名该窗体为“frm_main”，设置窗体的Caption属性为“人力资源管理系统”；WindowsStyle属性为“wsMaximized”。（2）在“Standard”组件页中点选“TMainMenu”组件，添加到窗体上，双击该组件进行菜单添加，如图8所示图8 主菜单设计（3）在“Win32”组件页中点选“TCoolBar”组件，添加到窗体上。（4）在“Win32”组件页中点选“TToolBar”组件，添加到TcoolBar组件上。（5）在“Additional”组件页中点选“TSpeenButton”组件，添加到TtoolBar组件上，设置Caption属性。（6）在“Win32”组件页中点选“TStatusBar”组件，添加到窗体上，双击该组件，为其添加项，如图9所示。图9 任务栏设计（7）在“Standard”组件页中点选“TPanel”组件，添加到窗体上，设置Bevellnner属性为“bvSpace”，设置BevelOuter属性为“bvLowered”，设置Align属性为“alClient”。（8）在“Additional”组件页中点选“TImage”组件，添加到Panel1组件上，设置Align属性为“AlClient”，设置Stretch属性为“Tree”。（9）在“Dialog”组件页中 分别选择“TOpenDialog”和“TSaveDialog”组件，依次添加到窗体上。4.3.3系统登录设计系统登录主要用于对进入人力资源管理系统的用户进行安全性检查，阻止非法用户进入该系统。验证操作员及其密码，主要通过记录集结果（RecordCount）结合If语句判断用户选定的操作员及其输入的密码是否符合数据库中的操作员和密码，如果符合则允许登录，否则提示用户用户名或密码不正确，如果错误超过三次，强行退出。图10 系统登录模块1窗体设计步骤（1）新建一个窗，命名为“frm_Login”，设置Caption属性为“登录”，设置Position属性为“poScreenCenter”。（2）在“Additional”组件页中点选“TImage”组件，添加到窗体上，设置Align属性为“alClient”；Stretch属性为“Tree”，在Pictuer属性中添加图片。（3）在“Standard”组件页中点选“TEdit”组件，添加到窗体上，设置Ctl3D属性为“False”；设置Text属性为空，设置Edir2的PasswordChar属性为“*”。（4）在“Additional”组件页中点选“TSpeedButton”组件，添加到窗体上，设置Caption属性分别为“登录”和“取消”；设置Flat属性为“True”。4.3.4新员工登记模块设计新员工登记模块，主要用于添加、修改新员工的个人基本信息，如：姓名、性别、民族、文化程度等。新员工登记模块运行结果如图11所示。图11 新员工登记模块1窗体设计步骤（1）新建一个窗体，命名为“frm_xygdj”，设置Caption属性为“新员工登记”，设置Position属性为“poScreenCenter”。（2）在窗体中添加“TPanel”组件、“TGroupBox”组件、“TEdit”组件、“TCombobox” 组件、“TLabel”组件、“TMaskEdit”组件、“TMemo”组件、“TBitbtn”组件、“TImage”组件，设置属性如表1所示。表1 主要组件属性设置组件名称所在组件页属性值Panel1StandardAlignBevellnnerBevelOuteralClientbvSpacebvLoweredPanel2StandardAlignBevellnnerBevelOuteralNonebvSpacebvLoweredPanel3StandardAlignBevellnnerBevelOuteralNonebvSpacebvLoweredGroupbox1StandardCaption基本信息Groupbox2StandardCaption其它信息MaskEditAdditionalCtl3DEditMaskFalse!9999/99/00;1;_ImageAdditionalAlignStretchalClientTure4.3.5工资设置模块设计工资设置模块主要用于设置员工的工资信息，此窗体中主要应用的也是基本的SQL语句Insert向数据中插入数据。工资设置模块运行结果如图12所示。图12 工资设置模块1窗体设计步骤（1）新建一个窗体，命名为“frm_gzsz”，设置Caption属性为“工资设置”，设置Position属性为“poScreenCenter”。（2）在“Standard”组件页中点选“TPanel”组件，在窗体上添加3个TPanel组件，分别命名为“Panel1”、“Panel2”、“Panel3”，设置Bevellnner属性为“bvSpace”；BevelOuter属性为“bvLowered”，分别设置Align属性为“alClient”、“alTop”、“alClient”。（3）在“Standard”组件页中点选“TGroupBox”组件，在Panel2组件上添加2个TGroupBox组件，设置Caption属性为“工资设置”和“保险设置”。（4）在“Standard”组件页中点选“TLabel”组件，添加到GroupBox1和GroupBox2组件上，按上图所示设置Caption属性。（5）在“Standard”组件页中点选“TEdit”组件，添加到GroupBox1和GroupBox2组件上，设置Ctl3D属性为“False”，设置Text属性为空。（6）在“Standard”组件页中点选“TCombobox”组件，添加到GroupBox1组件上，设置Text属性为空。（7）在“Standard”组件页中点选“TCheckBox”组件，添加到Panel2组件上，设置Caption属性为“设置保险”。（8）在“Additional”组件页中点选“TBitBtn”组件，在Panel2组件上添加4个TBitBtn组件，设置Caption属性分别为“保存”、“修改”、“删除”、“退出”，通过Glyph属性为按钮添加图片。（9）在“DataAccess”组件页中点选“TDataSource”组件，添加到窗体上，设置DataSet属性为“Data1.ADOQYgzsz”。（10）在“DataControls”组件页中点选“TDBGrid”组件，添加到Panel3组件上，设置Align属性为“alClient”，DataSource属性为“DataSource1”。4.4系统使用说明 4.4.1软件运行环境操作系统：Windows 2000/NT/XP/ME开发工具：Delphi 7.0数据库：SQL Server 2000硬件配置：CPU：600MHz以上的处理器内存：64MB，推荐128MB以上硬盘：100MB以上磁盘空间分辨率：最低800600像素 建议1024768像素颜色：256色 4.4.2数据库配置及安装人力资源管理系统采用SQL Server数据库开发，在程序首次启动时会检查所需的数据库是否已经安装；如果没有安装，则系统会弹出如图2.12所示的提示信息。图2.12 登录失败提示信息2.2.1 手动配置数据库附加数据库的步骤如下：（1）将程序目录data下的db_manpowerinfo_Data.MDF和db_manpowerinfo_Log.LDF文件拷贝到SQL Server 2000安装路径下的“MSSQL”/“Data”目录下。如果您的计算机上没有安装SQL Server，请先安装SQL Server 2000（Windows 98下请安装中文版个人版），安装SQL Server 2000数据库时，在身份安全验证机制选项中必须要选择“Windows和SQL Server混合安全验证机制”。sa的密码设置为空。如果您已经安装好了SQL Server 2000，也可以在“企业管理器”/“数据库”/“工具”/“SQL配置属性”/“安全性”中修改当前的配置属性。（2）选择“开始”/“程序”/“Microsoft SQL Server”/“企业管理器”项，进入SQL Server 2000企业管理器。（3）在打开的“控制台根目录”窗口中，连续单击父级节点，展开至如图2.13所示。图2.13 控件台根目录窗口其中“MRLX”节点为本机的服务器名称。（4）选择“数据库”文件，单击鼠标右键，选择“所有任务”/“附加数据库”项，如图2.14所示。图2.14 选择附加数据库（5）此时将打开“附加数据库”窗口，单击“”按钮，选择SQL Server 2000的“MSSQL”/“Data”目录下的“db_manpowerinfo_Data.MDF”数据库，如图2.15所示。图2.15 选择数据文件所在路径（6）在“指定数据库所有者”下拉列表框中选择“sa”，然后单击“确定”按钮，数据库便附加成功了。（7）单击【确定】按钮，弹出如图2.16所示的提示框。图2.16 系统提示（8） 单击【确定】按钮，完成附加数据库操作。4.4.3系统登陆（1）双击人力资源管理系统图标，系统自动运行人力资源管理系统自启动界面（2）启动界面运行后，弹出系统登录界面，在“用户名”处输入“mr”，在“密码”处输入“mingrisoft”，图3.2 登录服务器（3） 单击“登录”按钮，即可以该操作员的身份进入人力资源管理系统。4.4.4系统管理系统管理主要包括【单位信息】、【管理员设置】、【更改密码】、【重新登录】、【数据备份】、【数据恢复】、【退出系统】。5. 总结通过这次课程设计，我明白学习是一个长期积累的过程，在以后的工作、生活中都应该不断的学习，努力提高自己知识和综合素质。在这次课程设计中也使我们的同学关系更进一步了，同学之间互相帮助，有什么不懂的大家在一起商量，听听不同的看法对我们更好的理解知识，所以在这里非常感谢帮助我的同学。在设计过程中，我通过查阅大量有关资料，与同学交流经验和自学，并向老师请教等方式，使自己学到了不少知识，也经历了不少艰辛，但收获同样巨大。在整个设计中我懂得了许多东西，也培养了我独立工作的能力，树立了对自己工作能力的信心，相信会对今后的学习工作生活有非常重要的影响。而且大大提高了动手的能力，使我充分体会到了在创造过程中探索的艰难和成功时的喜悦。虽然这个设计做的也不太好，但是在设计过程中所学到的东西是这次课程设计的最大收获和财富，使我终身受益。参考文献： 1JSP数据库系统开发完全手册 人民邮电出版社 2006年3月2Delphi数据库系统开发完全手册 人民邮电出版社 2006年3月3Visual Basic数据库系统开发完全手册 人民邮电出版社 2006年3月4Visual C+数据库系统开发完全手册 人民邮电出版社 2006年3月5JSP 信息系统开发实例精选 机械工业出版社 王国辉、李南南等 2005年7月6Visual Basic信息系统开发实例精选 机械工业出版社 赵智勇、刘强等 2005年7月7SQL Server数据库开发实例解析 机械工业出版社 宋昆、李严等 2006年1月附录主要代码:窗体设计代码procedure Tfrm_main.FormClose(Sender: TObject; var Action: TCloseAction);begin if messagebox(self.Handle,真的要退出系统吗？,人力资源管理系统,mb_yesno+mb_iconquestion)=idyes then application.Terminate;end;在窗体的OnShow事件增加，并当窗体首次启动时动态创建登录窗体，代码如下：procedure Tfrm_main.FormShow(Sender: TObject);begin log:=0; /区分新员工登记窗体是为登记状态还是修改状态application.CreateForm(Tfrm_login,frm_login); /创建窗体frm_login.ShowModal; /显示窗体frm_login.free; /释放窗体end;通过主菜单下【记事本】按钮调用记事本，单击事件代码如下：procedure Tfrm_main.N57Click(Sender: TObject);begin ShellExecute(handle,open,notepad.exe,Nil,Nil,SW_SHOWNORMAL);end;【数据备份】按钮的作用是通过保存对话框对数据库进行备份，该按钮的单击事件代码如下：procedure Tfrm_main.SpeedButton4Click(Sender: TObject);varsave:string;beginsavedialog1.Filter:=备份文件(*.bak)|*.bak; /设置文件过滤savedialog1.Title:=请选择备份路径; /设置打开对话框的标题if savedialog1.Execute then begin save:=savedialog1.FileName; end;if save then begin with data1.ADOpublic do begin try screen.Cursor:=crHourGlass; /改变鼠标指针的形状为沙漏形 close; sql.Clear; sql.Add( BACKUP DATABASE +db_manpowerinfo+ TO DISK = +save+); execsql; screen.Cursor:=crdefault; /设置鼠标指针为默认状 application.MessageBox(数据备份成功,提示,0+64); except screen.Cursor:=crdefault; application.MessageBox(数据库备份失败，请检查备份的路径或网络状态！,数据库备份,0+mb_iconinformation); end; end; end;end;系统登陆代码对进入人力资源管理系统的用户进行安全检验，执行安全检验过程代码如下：procedure Tfrm_login.plogin;/自定义函数过程begin with Data1.ADOlogin do begin close; sql.Clear; sql.Add(select * from 操作员信息表 where 操作员名称 = :a and 操作员密码 = :b); /使用SQL语句检索数据表中的用户名和密码 parameters.ParamByName(a).Value:=trim(edit1.Text); parameters.ParamByName(b).Value:=trim(edit2.Text); open; end; if Data1.ADOlogin.RecordCount0 then /判断用户名和密码是否存在 begin /用户名和密码存在时执行以下代码 czy:=data1.ADOlogin.FieldByName(操作员名称).Value; s:=true; /使s的值为true，以免重新登陆时出现错误 frm_main.StatusBar1.Panels1.Text:=czy; /在状态栏上显示当前用户名 frm_main.statusbar1.Panels3.Text:=datetostr(date(); frm_main.statusbar1.Panels5.Text:=timetostr(time(); close; end else /用户名和密码不存在时执行以下代码 if m3 then /限制密码错误不能超过三资 begin application.MessageBox(用户名或密码错误，请重新输入！,提示,64); edit1.Clear; /清除编缉框中的内容 edit2.Clear; edit1.SetFocus; end else /当密码错误三次时强行退出 begin application.MessageBox(您无权使用本系统！,提示,64); Application.Terminate; end;end;在【确定】按钮的单击事件中添加如下代码：procedure Tfrm_Login.Button1Click(Sender: TObject);beginm:=m+1; /记录单击的次数，用来判断输入错误的次数if edit1.Text= then /判断是否输入用户名 application.MessageBox(请输入用户名,提示,64)else if edit2.Text= then /判断是否输入密码 application.MessageBox(请输入密码,提示,64) else plogin; /执行自定义函数end;在Edti2的OnKeyDown事件中添加如下代码，通过键盘操作获得焦点：procedure Tfrm_Login.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if (Key = vk_Return) or(Key = vk_Down) then Button1Click(Sender) /当按下回键或时，按执行Button1的OnClick事件 else Edit2.SetFocus; if Key = vk_Up then Edit1.SetFocus; /当按下方向键时，使Edit