企业人事管理系统 毕业论文1.doc

《企业人事管理系统 毕业论文1.doc》由会员分享，可在线阅读，更多相关《企业人事管理系统 毕业论文1.doc（33页珍藏版）》请在三一文库上搜索。

1、企业人事管理系统 摘要：在这个信息化时代，计算机在各个行业中都得到广泛的应用。在现代化社会使用计算机来管理人事资料是必然的结果。本系统是适应中小型公司的人事信息，工资管理的系统。它采用了DELPHI 7.0作为开发，SQL SEVER做数据库，在WindowsXP下运行的简单系统。这个简单的系统对操作者的要求不高，界面简单，美观。这个系统可以增加员工的基本资料，老员工资料的删除；可以对员信息进行修改，查询，删除和增加，还可以对员工的工资，工作评价进行修改，查询，删除和增加。本系统是一个简单便捷的系统，适用于中小型企业公司。关键词：数据库，Delphi 7，人事信息管理引言：21世纪是一个信息化

2、时代,科学技术的不断进步，计算机更是在企业人事管理中应用广泛，这样计算机在实现企事业人事的管理就是必然的结果。对于各种类型企业来说，使用计算机来提高完成人事工资管理的基本功能，是适应这个时代企业的要求、实现企业的科学化、系统化，同时也解决了使用人工记录，效率底、出错率频繁的缺点。人力资源是企业人事管理的基础，企业人事管理系统更体现了这是一个信息化时代。系统中主要包括数据库的设计、建立以及应用程序的开发两个方面。在数据库方面，必须使数据的一致和完整、数据库的安全行好高、数据库使用方便；在应用程序这方面要使该应用程序功能完善、界面友好、使用方便等特点。本系统是使用delphi7.0这个软件编写的。

3、该程序包括员工基本资料管理，工资管理、信息查询和帮助，该程序实现了数据的输入输出、查询、修改、删除等基本功能，还可以查看帮助文件。1概述-1.1 系统说明本系统是根据现代社会各个企业所需要的功能来完成的，它是使用Delphi 7.0和SQL server开发的一个应用程序。系统包含了用户权限、员工基本资料、员工工资和系统的帮助查询的功能。系统的优点是简单实用、方便、快捷，是企业人事管理工作者的好帮手。采用SQL Server 2000来连接数据库，数据库中存放着应用程序中所要用到的数据和相关的资料。因为SQL Server 2000的安全性比较高，所以本系统使用了SQL Server 2000

4、来完成数据库。1.2 系统特点1、 满足中小型企业人事管理的基本要求；2、 具有完整的系统，可以方便的进行数据的导入与导出；3、 对操作人员的技能要求不高，操作方便，简单；4、 能够保证企业人事管理数据的安全、准确。1.3 系统功能简介1.3.1 功能主要功能有：数据入库、查询、修改和删除等对员工基本信息的查询、修改、删除、查询和户注册对员工工资的修改、查询，统计员工基本信息表对员工考勤情况的查询、统计和删除员工考勤等情况对员工工作评价的查询、修改和删除员工工作评价表。本系统在运行时需要输入用户名和密码，才可以操作系统相关的数据2 系统设计2.1 系统目标设计为了使企业人事管理系统进入一个新阶

5、段，让它成现代时代的新产物，成为具有专业化、信息化的工具。2.2 开发设计思想本系统的开发设计思想：1、使用现有软件和硬件的基础上，采用较好的管理系统的开发方案，让它能和效的利用公司现有的资源，来提高系统的水平和工作效率。2、系统应符合企业人事管理的需求，满足公司日常对员工管理的需要，同时在操作过程中要达到直观、方便、实用、安全；3、系统中还涉及到数据库功能，可以及时根据用户需求进行数据的添加、删除、修改等操作。2.3开发和运行环境选择开发工具：Delphi7.0数据库：SQL Server2000运行环境：WindowsXP2.4 系统功能分析1、密码设置：每个操作员都有自己的密码，这是为了

6、防止非工作人员进入本系统；因为权限的不同，所以可以防止越权的操作。2、档案更新：为了存放员工的全部资料数据。档案更新包括对各种表的记录修改、删除、添加等操作。3、档案查询：可以按姓名、编号的条件查询个人和一部分人的情况。4、档案输出：输出个人档案、全体档案5、其他操作：包括修改密码。6、退出：直接退出。3 需求分析 3.1 开发背景在这个信息化时代，科技不断进步，计算机已成为不可缺少一部分，在各个行业更是不可少的。现在社会经济发展很快，各企业间的竞争日益激烈，这样就使得企业要采取更有效，更高质量的方式。我的毕业设计就是企业人事管理系统。3.2 系统结构设计员工基本信息员工工资管理修改员工基本信

7、息员工考勤管理员工工作评价增加员工基本信息删除员工基本信息企业人事管理系统查询员工基本信息修改员工工资增加员工工资删除员工工资查询员工工资修改员工工作评价增加员工工作评价删除员工工作评价查询员工考勤查询员工工作评价修改员工考勤删除员工考勤增加员工考勤3.3 系统功能分析本系统是为了更好的对企业人事进行管理。本系统主要是对查看员工的信息来设计的，可以很好的管理数据。主要功能有：数据入库、查询、修改和删除等。因此，本系统的主要功能由以下几个部分组成：1、员工基本信息模块输入：员工信息功能：对员工基本信息的查询、修改、删除和增加2、员工工资管理模块输入：员工工资情况功能：完成对员工工资的修改、查询员

8、工基本信息表3、员工考勤管理模块输入：员工每月考勤情况功能：完成对员工考勤情况的查询和删除员工考勤等情况4、员工工作评价模块输入：企业对员工工作的评价资料功能：完成对员工工作评价的查询、修改和删除员工工作评价表3.4 信息分析本系统中的处理的信息由以下五种信息组成：1.用户个人信息；2.员工基本录入信息；3.员工工作评价信息；4.员工考勤信息；5.员工工资信息。3.5 模块分析可以把系统分为两块，一个是数据库模块、还有一个是系统功能模块数据库模块指的是对数据库的建立，要建立员工基本信息表、用户表和员工工作评价信息表、员工工资信息表、员工考勤信息表。用户表实现的功能主要有用户登陆、注册新用户、密

9、码修改。员工基本信息表所实现的功能主要是对员工基本信息的修改、删除等。员工工作评价信息表所实现的和员工基本信息表有所类似，是进入员工工作评价信息，也对员工工作评价信息的修改和删除等。员工工资信息表和员工考勤信息表和员工基本信息表是相似的。查询功能是建立在表的基础是，是用户对资料的查询。从查询要用的表来看，可以分为员工基本信息的查询和员工工资信息、员工工作评价信息、员工考勤信息的查询。4 数据库设计数据库结构设计的好坏直接影响到信息管理系统的效率和实现的效果。合理地设计数据库结构可以提高数据存储的效率，保证数据的完整和统一。数据库设计一般包括如下几个步骤。1.数据库需求分析2.数据库概念结构设计

10、3.数据库逻辑结构分析 4.1数据库需求分析企业人事管理系统数据库功能主要体现在对查看员工信息、添加员工信息、 删除员工信息、修改员工信息、查看工作评价、添加工作评价、删除工作评价、修改工作评价、考勤信息、查看考勤、当日考勤、月考勤、删除考勤、工资信息查看工资、修改工资各种信息的提供，保存，更新和查询操作上，信息分类、个人信息详细、各个部分的数据内容又有内在联系。4.2数据库概念结构设计企业人事管理系统的实体关系（E-R）分析是建立在系统功能模块分析基础上的。进行E-R分析首先要确定系统中的各个实体，并分析它们的属性和它们之间的关系，然后画出它们的E-R图。企业人事管理系统中存在的实体有：员工

11、信息、员工信息实体，用户删除员工信息、修改、查看工作评价、添加工作评价、删除工作评等实体. 4.3数据库逻辑结构设计有了数据库概念结构设计，数据库的设计就简单多了。在企业人事管理系统中，首先要创建系统数据库，然后在数据库中创建需要的表和字段。如果有需要，还可以设计设计视图，存储过程和触发器。下面分别讲述系统中数据库的设计。4.3.1创建表/字段本系统数据库采用SQL Server 2000数据库，系统数据库名称为Managedata_Data。数据库Managedata_Data中包含5张表。图1 用户登陆表图2 员工信息表图3 考勤表图4 月考勤表图5 工作评价表4详细设计4.1登入和主界面

12、4.1.1 登入登录界面如图 1所示。登录时，需要输入用户名及密码，并单击“登录”按钮，完成登录过程。图 1 登录页面功能说明：用户名/密码用户名长度不得超过10个字符,不能为空。密码长度不得超过20个字符，超过以后限制输入。在这里如果密码不正确，则无法进入系统。密码用掩码 * 显示，长度根据已设值进行限制（默认为820位），不能为空。登录如果登录者的输入是正确的，则直接进入主界面若用户名或密码为空或是不正确，则显示“您输入的用户名或密码不正确，请重新输入！”，鼠标停留在“登录名”文本框，如图 2图 2 登录出错页4.1.2 主界面系统登录成功后所看到的主界面，如图 3 所示。图 3 主界面功

13、能说明：进入主界面可以看到所有员工的资料：员工编号、员工姓名、性别、出生日期、基本工资、职位、家庭地址、Email、联系电话、自我评价4.1.3 用户信息系统登录成功后所看到的主界面，如图4 所示图 4 用户信息功能说明：用户资料修改 修改密码输入原始密码输入新密码在确认密码处输入与新密码相同的密码。正确就显示“修改成功！”，若两次输入的密码不一致，则显示“您输入的两次新密码不同，请重新输入！”如图5所示图 5 修改密码4.1.4 员工信息 选择员工信息，下拉菜单则显示四个功能：查看、添加、删除、修改4.1.4.1 查看员工信息 选择查看员工信息，则看到界面，如图6 所示图6 查看员工信息功能

14、说明：搜索条件选择所有，点击搜索，则显示所有员工信息如图7所示选择员工编号，点击搜索，则只显示输入的该员工的资料选择员工姓名，点击搜索，则只显示该员工一个人的信息图7 所有员工信息4.1.4.2 添加员工信息选择添加员工信息，则看到界面，如图8 所示图8 添加员工信息功能说明：添加员工信息输入编号，点击编号检测，若没填写编号则提示“请输入编号！”输入姓名，点击姓名检测，若没填写姓名则提示“请输入姓名！”4.1.4.3 删除员工信息选择删除员工信息，则看到界面，如图9所示图9 删除员工信息功能说明：l 选择所有，点击搜索，再显示的结果中选择所要删除的员工，点击删除按钮即可删除l 选择员工编号，点

15、击搜索，则只显示输入的该员工的资料，点击删除按钮即可删除l 选择员工姓名，点击搜索，则只显示该员工一个人的信息，点击删除按钮即可删除4.1.4.4 修改员工信息选择修改员工信息，则看到界面，如图10所示图10 员工资料修改功能说明：l 修改员工信息l 输入编号，若没填写编号则提示“请输入编号！”l 输入姓名，若没填写姓名则提示“请输入姓名！”l 修改只有在搜索成功才可以进行其他相关资料的填写4.1.5 工作评价选择工作评价，下拉菜单则显示四个功能：查看、添加、删除、修改4.1.5.1 查看工作评价 选择查看工作评价，则看到界面，如图11 所示图11 查看员工工作评价功能说明：l 搜索条件l 选

16、择所有，点击搜索，则显示所有员工的工作评价l 选择员工编号，点击搜索，则只显示输入的该员工的工作评价l 选择员工姓名，点击搜索，则只显示该员工一个人的工作评价4.1.5.2 添加工作评价选择添加工作评价，则看到界面，如图12 所示图12 添加工作评价功能说明：l 只有当搜索成功后才可以进行工作评价的添加l 选择员工编号，点击搜索，则只能添加的该员工的工作评价l 选择员工姓名，点击搜索，则只添加该员工一个人的工作评价4.1.5.3 删除工作评价选择删除工作评价，则看到界面，如图13所示图13 删除工作评价功能说明：l 选择所有，点击搜索，再显示的结果中选择所要删除的该员工工作评价，点击删除按钮即

17、可删除l 选择员工编号，点击搜索，则只显示输入的该员工工作评价，点击删除按钮即可删除l 选择员工姓名，点击搜索，则只显示该员工一个人的工作评价，点击删除按钮即可删除4.1.5.4 修改工作评价选择修改工作评价，则看到界面，如图14所示图14 修改工作评价功能说明：l 修改员工工作l 只有当搜索成功后才可以进行工作评价的添加l 选择员工编号，点击搜索，则只能修改的该员工工作评价l 选择员工姓名，点击搜索，则只修改该员工一个人的工作评价4.1.6 考勤信息选择考勤信息，下拉菜单则显示四个功能：查看考勤、当日考勤、月考勤、删除考勤。4.1.6.1 查看考勤选择查看考勤，则看到界面，如图15所示图15

18、 查看考勤功能说明：搜索条件选择所有，点击搜索，则显示所有员工的出勤情况选择员工编号，点击搜索，则只显示输入的该员工的出勤情况价选择时间，点击搜索，则只显示该天的员工的出勤情4.1.6.2 当日考勤选择当日考勤，则看到界面，如图16所示图16 当日考勤功能说明：l 搜索条件l 选择所有，点击搜索，则显示所有员工的考勤情况l 选择员工编号，点击搜索，则只显示输入的该员工的考勤情况l 可以在出勤情况下拉菜单下，选择：全勤、缺勤、早退、迟到l 可以选择时间：年、月、日4.1.6.3 月考勤选择月考勤，则看到界面，如图17所示图17 月考勤功能说明： 搜索条件 选择所有，点击搜索，则显示所有员工的出勤

19、情况 选择员工编号，点击搜索，则只显示输入的该员工的出勤情况价 选择月份，点击搜索，则显示该月的员工的出勤情4.1.6.4 删除考勤选择删除考勤，则看到界面，如图18所示图18 删除考勤功能说明： 选择所有，点击搜索，再显示的结果中选择所要删除的该员工考勤情况，点击删除按钮即可删除 选择员工编号，点击搜索，则只显示输入的该员工的考勤情况，点击删除按钮即可删除 选择日期，点击搜索，则显示该天的员工考勤情况，点击删除按钮即可删除工资信息 选择工资信息，下拉菜单显示：查看工资和修改工资功能4.1.7.1 查看工资选择查看工资，则看到界面，如图19所示图19 查看工资功能说明： 搜索条件 选择所有，点

20、击搜索，则显示所有员工的工资 选择员工编号，点击搜索，则只显示输入的该员工的工资 选择员工姓名，点击搜索，则只显示该员工的工资4.1.7.2 修改工资选择修改工资，则看到界面，如图20所示图20 修改工资功能说明：u 选择员工编号，点击搜索，则只能修改的该员工工资进行修改u 选择员工姓名，点击搜索，则只修改该员工的工资u 只有当搜索成功后才可以进行员工工资的修改4.1.8 其他界面更换菜单：可任意更换自己喜欢的皮肤。帮助菜单：关于系统 (可参考本文档)4.1.9 第三方控件的说明系统中应用到第三方控件，要使DELPHI与第三方控件联系起来必须采取以下步骤：(1)运行delphi,选择“Comp

21、onent(组件)”菜单下的“Install Component(安装组件)”(2)在弹出的对话框中，选择Into existing package页。(3)在Unit file name中选择当前考勤系统所在的位置，再选择它的下级文件“第三方控件”文件夹中的“WinSkinReg.pas”。(4)单击确定按钮。(5)在弹出的“包dclusr.dpk”窗口中选择(compile),在随即弹出的对话框中点击“OK(确定)”。(6)把“包dclusr.dpk”窗口关闭即可使用。采用第三方控件可以使程序看上去更美观。5 总 结本文论述了一个企业人事管理系统，基本上实现了一个小型企业人事管理系统的基本

22、功能。这个程序还用到了第三方控件，这是我们之前并为接触过的一个新知识，使用它来编程可以使程序界面更美观，更直接。经过四个多月的毕业设计，我完成了这个小型的企业人事管理系统。通过毕业设计我学到了很多新知识，个人能力与了很大的提高。致谢：在设计中经常遇到种种困难与挫折，几次陷入停顿状态。在这种情况下，老师与同学不但给予我的很多的鼓励，而且在设计上提出了很多正确的建议和善意的批评。在这里，顺利完成毕业设计我首先要感谢指导老师 的细心指导，他帮助解决了我设计中的疑难和困惑，为我们完成设计提供了极大的帮助。在这个学期中，我随时都能与他取得联系询问相关问题，他总是耐心的为我们作出解答。我的这次设计顺利完成

23、离不开 老师的帮助，在此一并向他表示衷心的感谢！不过对我来说，由于时间有限，也包括我的知识水平有限，系统中有不足之处，还请各位老师指导指正。参 考 文 献1 Delphi系统开发实例精粹刘山,赵辉 人民邮电出版社 2Delphi基础教程 丁兆海 电子工业出版社3Delphi应用程序设计 李目海 电子科技大学出版社4 Delphi程序设计张龙 清华大学出版社5SQL Server 2000实用教程刘卫宏 科学出版社6SQL Server 2000应用实训教材张晓云 科学出版社附录：登录，代码如下：procedure TLoginForm.Button1Click(Sender: TObject)

24、;begin MySQL(dmf.Qry,select*fromLogin where UserName=+username.Text+ and Pwd=+pwd.Text+); if dmf.Qry.Eof then /是否搜索到了最后一条，如果是最后一条，提示错误信息 begin Application.MessageBox(您输入的用户名或密码不正确，请重新输入！,出错:,mb_ok); Pwd.Clear; username.SetFocus; end else begin ret:=true; tools._name:=username.Text; tools._pwd:=pwd.T

25、ext; close; end;end;用户信息资料修改，代码如下：procedure TUserEditForm.Button1Click(Sender: TObject);begin if (trim(oldpwd.Text)=) or (trim(newpwd.Text)=) or (trim(newpwdr.Text)=) then ShowMessage(请输入密码！) else if trim(oldpwd.Text)tools._pwd then ShowMessage(您输入的原始密码不正确！) else if trim(newpwd.Text)trim(newpwdr.Tex

26、t) then ShowMessage(您输入的两次新密码不同，请重新输入！) else begin MySQL(dmf.Qry,update Login set pwd=+newpwd.Text+ where username=+username.Caption+); Tools._pwd:=newpwd.Text; ShowMessage(修改成功！); close; end;end;查看员工信息，代码如下：procedure TEmpSelForm.Button1Click(Sender: TObject);begin if AllRB.Checked=True then if MySQ

27、L(dmf.Qry,select * from employee)=0 then ShowMessage(没有你要搜索的内容！) else MySQL(dmf.Qry,select empid as 员工编号,empname as 员工姓名,empsex as 性别,empbir as 出生日期,empsco as + 学历,empjob as 职位,empsal as 基本工资,empadd as 家庭地址,emptel as 联系电话,empself as+自我评价 from employee); if IDRB.Checked=True then if empid.Text= then

28、ShowMessage(请输入员工编号进行搜索！) else if MySQL(dmf.Qry,select * from employee where empid=+empid.Text+)=0 then ShowMessage(没有你要搜索的内容！) else MySQL(dmf.Qry,select empid as 员工编号,empname as 员工姓名,empsex as 性别,empbir as 出生日期,empsco as + 学历,empjob as 职位,empsal as 基本工资,empadd as 家庭地址,emptel as 联系电话,empself as+ 自我评

29、价 from employee where empid=+empid.Text+); if NameRB.Checked=True then if empname.Text= then ShowMessage(请输入员工姓名进行搜索！) else if MySQL(dmf.Qry,select * from employee where empname=+empname.Text+)=0 then ShowMessage(没有你要搜索的内容！) else MySQL(dmf.Qry,select empid as 员工编号,empname as 员工姓名,empsex as 性别,empbir

30、 as 出生日期,empsco as + 学历,empjob as 职位,empsal as 基本工资,empadd as 家庭地址,emptel as 联系电话,empself as+ 自我评价 from employee where empname=+empname.Text+);end;添加员工信息，代码如下：procedure TEmpAddForm.Button1Click(Sender: TObject);var flag:boolean; sex:string;begin flag:=True; if empid.Text= then begin flag:=False; Sho

31、wMessage(请输入员工编号！); end else if empname.Text= then begin flag:=False; ShowMessage(请输入员工姓名！); end else if empsal.Text= then begin flag:=False; ShowMessage(请输入基本工资！); end; if empsexm.Checked=True then sex:=男; if empsexf.Checked=True then sex:=女; if flag then beginMySQL(dmf.Qry,insertemployee(empid,emp

32、name,empsex,empbir,empsco,empjob,empsal,empadd,emptel,empEmail,empself+ ) values(+empid.Text+,+empname.Text+,+sex+,+DateToStr(empbir.DateTime)+,+empsco.Text+, +empjob.Text+,+empsal.Text+,+empadd.Text+,+emptel.Text+,+empEmail.Text+,+empself.Te);ShowMessage(添加成功！); empid.Text:=; empname.Text:=; empsex

33、m.Enabled:=True; empbir.DateTime:=StrToDate(1980-1-1); empsal.Text:=1000; empadd.Text:=; emptel.Text:=; empEmail.Text:=; empself.Text:=; end;end;l 删除员工信息，代码如下：procedure TEmpDelForm.Button1Click(Sender: TObject);begin if AllRB.Checked=True then if MySQL(dmf.Qry,select empid as 员工编号,empname as 员工姓名,em

34、psex as 性别,empbir as 出生日期,empsco as +学历,empjob as 职位,empsal as 基本工资,empadd as 家庭地址,emptel as 联系电话,empself as自我评价 from employee)=0 then ShowMessage(没有你要搜索的内容！) else MySQL(dmf.Qry,select empid as 员工编号,empname as 员工姓名,empsex as 性别,empbir as 出生日期,empsco as + 学历,empjob as 职位,empsal as 基本工资,empadd as 家庭地址

35、,emptel as 联系电话,empself as+自我评价 from employee); if IDRB.Checked=True then if empid.Text= then ShowMessage(请输入员工编号进行搜索！) else if MySQL(dmf.Qry,select empid as 员工编号,empname as 员工姓名,empsex as 性别,empbir as 出生日期,empsco as + 学历,empjob as 职位,empsal as 基本工资,empadd as 家庭地址,emptel as 联系电话,empself as+ 自我评价 fro

36、m employee where empid=+empid.Text+)=0 then ShowMessage(没有你要搜索的内容！) else MySQL(dmf.Qry,select empid as 员工编号,empname as 员工姓名,empsex as 性别,empbir as 出生日期,empsco as + 学历,empjob as 职位,empsal as 基本工资,empadd as 家庭地址,emptel as 联系电话,empself as+自我评价 from employee where empid=+empid.Text+); if NameRB.Checked=

37、True then if empname.Text= then ShowMessage(请输入员工姓名进行搜索！) else if MySQL(dmf.Qry,select empid as 员工编号,empname as 员工姓名,empsex as 性别,empbir as 出生日期,empsco as + 学历,empjob as 职位,empsal as 基本工资,empadd as 家庭地址,emptel as 联系电话,empself as+自我评价 from employee whereempname=+empname.Text+)=0 then ShowMessage(没有你要

38、搜索的内容！) else MySQL(dmf.Qry,select empid as 员工编号,empname as 员工姓名,empsex as 性别,empbir as 出生日期,empsco as + 学历,empjob as 职位,empsal as 基本工资,empadd as 家庭地址,emptel as 联系电话,empself as+自我评价 from employee where empname=+empname.Text+);end;procedure TEmpDelForm.Button3Click(Sender: TObject);begin if DBGrid1.Fi

39、eldCount=0 then ShowMessage(没有记录可供删除！) else if DBGrid1.DataSource.DataSet.RecordCount=0 then ShowMessage(没有记录可供删除！) else begin DBGrid1.DataSource.DataSet.Delete; end;end;查看员工工作评价，代码如下：procedure TDesSelForm.Button1Click(Sender: TObject);begin if AllRB.Checked=True then MySQL(dmf.Qry,select * from des

40、cview); if IDRB.Checked=True then if empid.Text= then ShowMessage(请输入员工编号进行搜索！) else if MySQL(dmf.Qry,select * from descview where 员工编号=+empid.Text+)=0 then ShowMessage(对不起，你所查找的员工不存在或对该员工还未进行工作评价！) else MySQL(dmf.Qry,select * from descview where 员工编号=+empid.Text+); if NameRB.Checked=True then if em

41、pname.Text= then ShowMessage(请输入员工姓名进行搜索！) else if MySQL(dmf.Qry,select * from descview where 员工姓名=+empname.Text+)=0 then ShowMessage(对不起，你所查找的员工不存在或对该员工还未进行工作评价！) else MySQL(dmf.Qry,select * from descview where 员工姓名=+empname.Text+);end;添加工作评价，代码如下：procedure TDesAddForm.Button3Click(Sender: TObject)

42、;begin if IDRB.Checked=True then begin if empid.Text= then ShowMessage(请输入编号进行搜索！) else if MySQL(dmf.Qry,select * from employee where empid=+empid.Text+)=0 then ShowMessage(您搜索的员工不存在！) else if MySQL(dmf.Qry,select * from describe where empid=+empid.Text+)0 then ShowMessage(您搜索的员工工作评价已经添加，如要修改，请选择修改面版。) else begin emp:=empid.Text; YesBtn.Enabled:=True; end; end; if NameRB.Checked=True then begin if empname.Text= then ShowMessage(请输入员工姓名进行搜索！) else