《人力资源管理系统》论文范例(3)

来源：网络收集时间：2026-07-12

导读：图10 系统登录模块 1．窗体设计步骤（1）新建一个窗，命名为“frm_Login”，设置Caption属性为“登录”，设置Position属性为“poScreenCenter”。（2）在“Additional”组件页中点� 癟Image”组件，添加到窗体上

图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”。

2．程序相关代码

对进入人力资源管理系统的用户进行安全检验，执行安全检验过程代码如下：

procedure Tfrm_login.plogin;//自定义函数过程

begin

需要源码的联系：http://wyzz2011.taobao.com/摘要10 引言11 系统分析21.1 需求分析21.2 可行性分析22 总体设计22.1 项目规划22.2 功能框图33 系统设计33.1 设计目标33.2 开发及运行环境33.3 数据库设计34 主要功能模块设计44.1 公共模块设计(Mdl_Link模块)44.2 主窗体设计74.3 系统登录设计104.4 新员工登记模块设计124.5 工资设置模块设计17

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.RecordCount>0 then //判断用户名和密码是否存在

begin //用户名和密码存在时执行以下代码

czy:=data1.ADOlogin.FieldByName('操作员名称').Value;

s:=true; //使s的值为true，以免重新登陆时出现错误

frm_main.StatusBar1.Panels[1].Text:=czy; //在状态栏上显示当前用户名

frm_main.statusbar1.Panels[3].Text:=datetostr(date());

frm_main.statusbar1.Panels[5].Text:=timetostr(time());

close;

end

else //用户名和密码不存在时执行以下代码

if m<3 then //限制密码错误不能超过三资

begin

application.MessageBox('用户名或密码错误，请重新输入！','提示',64);

edit1.Clear; /清除编缉框中的内容

edit2.Clear;

edit1.SetFocus;

end

else //当密码错误三次时强行退出

begin

application.MessageBox('您无权使用本系统！','提示',64);

Application.Terminate;

end;

在【确定】按钮的单击事件中添加如下代码：

procedure Tfrm_Login.Button1Click(Sender: TObject);

begin

m:=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; //当按下方向键↑时，使Edit1获得焦点

end;

4.4 新员工登记模块设计

新员工登记模块，主要用于添加、修改新员工的个人基本信息，如：姓名、性别、民族、文化程度等。新员工登记模块运行结果如图11所示。

图11 新员工登记模块

1．窗体设计步骤

（1）新建一个窗体，命名为“frm_xygdj”，设置Caption属性为“新员工登记”，设置Position属性为“poScreenCenter”。

（2）在窗体中添加“TPanel”组件、“TGroupBox”组件、“TEdit”组件、“TCombobox” 组件、“TLabel”组件、“TMaskEdit”组件、“TMemo”组件、“TBitbtn”组件、“TImage”组件，设置属性如表1所示。

表1 主要组件属性设置

2．程序相关代码

【添加照片】按钮，主要是通过打开对话框在电脑中选择员工的照片并添加在TImage组件的Pictuer属性中，该按钮的单击事件代码如下：

procedure Tfrm_xygdj.Button1Click(Sender: TObject);

begin

opendialog1.Title:='选择照片';

if opendialog1.Execute then

image1.Picture.LoadFromFile(opendialog1.FileName);

end;

在一个企业里，难免会有重名的员工，所以姓名不能做为员工的惟一标识，那么如果用员工编号来做惟一标识，就可以解决这个问题了。单击【添加】按钮自动生成员工编号。代码如下：

procedure Tfrm_xygdj.BitBtn2Click(Sender: TObject);

var

s,m:string;

n:integer;

begin

s:='mr';//给s赋一个初值

With data1.ADOpublic do

begin

Close;

SQL.Clear;

SQL.Add('select max(bh) as ss From 人事表 '); //查询数据库中员工编号的最大值

Open;

end;

If data1.ADOpublic.FieldByName('ss').Value = null then //判断查询结果

s :=s+'001' //结果为空说明数据库为空，编号从001开始

else

begin

m:= Trim(data1.ADOpublic.FieldByName('ss').Value); // …… 此处隐藏：3869字，全部文档内容请下载后查看。喜欢就下载吧 ……

《人力资源管理系统》论文范例(3).doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.jiaowen.net/wenku/108258.html（转载请注明文章来源）

上一篇：悬崖上的金鱼姬-宫崎骏作品
下一篇：支行装修工程招投标书