| 本站论文保证质量，先看后买，请先了解清楚自己的需求，联系本站客服QQ，先看论文全文，看好了觉得合适再购买，下面的内容是论文摘要，需要全套论文设计请加： qq:33390945 |
系统管理模块
该模块的主要功能是单位信息、管理员设置、更改密码、重新登录。
信息设置模块
该模块主要功能是对部门信息、工种类型、职称类型、文化程度、政治面貌、民族类型、所得税设置、考勤设置等进行设置。
人事管理
人事管理模块主要功能是新员工登记、应聘登记、员工调动、员工离职、考核管理、合同管理、应聘信息浏览、员工信息浏览。
工资管理
工资管理模块主要是：设置员工的工资信息、生成工资报表、工资档案浏览。
。。。。。。。。。。。
。。。。。。。。。。。
设计步骤
（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.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”组件，依次添加到窗体上。
2．程序相关代码
在窗体的OnClose事件中设置，当窗体在关闭之前执行，主要功能是退出窗体。代码如下：
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);
var
save:string;
begin
savedialog1.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);
。。。。。。。。。。。
。。。。。。。。。。。