人力资源管理信息系统论文.docx
人力资源管理信息系统学院（系）:沈阳XX大学院计算机系 专业：计算机科学与技术姓 名：XXX2009年12月22日摘要错误!未定义书签。0引言31系统分析41.1 需求分析41.2可行性分析42总体设计52.1 项目规划52.2系统功能结构图63系统设计73.1设计目标73.2开发及运行环境73.3逻辑结构设计84网站总体架构85用户登录模块106网站首页设计127人事管理模块设计127.1 人力规划127.2 工作管理277.3考勤管理错误!未定义书签。附录A参考文献33附录B数据表34附录C文件架构图第2页共35页引言全球范围内的企业内部组织正在发生巨变，未来企业成功的关键 的依靠企业人力资源，人才之争已经成为市场竞争中的核心内容之 一，以人为本成为企业立足和发展的根本。有效力管理企业的人力资 源，为企业提供强有力的储备力量，使之成为企业发展的主动力。通 过人力资源的有效管理，掌握最新的、准确的企业人力资源信息，并 对其进行复杂的统计与分析，从而充分发挥每个员工的潜能，为企业 创造更大的价值。网络化的今天，网络人力资源管理系统，使新的人力资源协作管 理模式成为可能。通过网络管理系统，专门的人力资源管理人员可以 提高自身的工作效率，作好人力资源管理的协调工作，提高人力资源 利用率；通过网络管理系统，员工可以直接管理自己的技能，有效地 发现和挖掘自身的潜能，及时与自己的上级、下属、同事进行的沟通 与交流，同心协作，积极为企业的发展与决策贡献力量。通过网络人 力资源管理系统对企业人力资源进行管理，使企业人力资源管理适应 时代的发展要求，大大提高了企业的核心竟争力。、系统分析（一）、 需求分析通过调查，要求系统需要有以下功能；I由于操作人员的计算机知识普遍较差，要求系统良好的人机操 作界面。I由于该系统的使用对象多，要求有较好的权限管理。I具有发布、接收企业公函、公共消息的功能。I对人力资源基础信息进行管理。!企业员工人事管理。!企业员工工作任务管理，部门、员工的工作任务的分配、管理。I对员工考勤情况进行管理，设置员工考勤时间。!提供个人工作管理平台，方便员工日常工作管理，日常信息传 递。I个人信息的维护。I对企业员工培训的一系列相关信息内容进行管理。!企业招聘、应聘信息，招聘、应聘人员信息的全面管理。I员工薪酬信息的管理，包括薪酬信息的查询、登记、删除。I员工保险知识、基本介绍、政策法规等相关内容的管理。I系统用户信息管理，用户权限设置。.系统退出。（二）可行性分析经济性人力资源管理是企业管理中的一个重要组成部分，涉及到企业管 理的各个方面。人力资源管理水平的提高，能够带动企业各方面水平 的提升。利用计算机对企业的人力资源进行管理，使人事管理人员从 日常锁碎的管理工作中解脱出来，更好的协调企业人才，大大的提高 了人才的利用率，使企业人才的能力得以更充分的发挥。口技术性通过网站管理实现了企业信息（包括公函、消息、培训信息等） 的发布、查看、接收等功能；通过网站对企业进行管理，使员工的考 勤管理、薪酬管理更为科学化、系统化；通过网站管理，为企业个人 提供了一个更为完善的工作平台。二、总体设计（一）、项目规划人力资源管理系统是一个典型的数据库开发应用程序，由人事管 理、个人管理、招聘管理、培训管理、保险广场、薪酬管理、系统管 理等部分组成，规划系统功能模块如下：口人事管理模块该模块主要功能是管理人事管理的基础信息、工作任务、工作人 员考勤信息、考勤时间设置。口个人管理模块该模块的主要功能是管理个人工作任务、查看企业公函、消息等、 修改个人密码，并提供个人信息检索功能。口招聘管理模块该块主要功能是管理企业招聘信息、企业的应聘信息、企业人才 库。口培训管理模块该模块主要功能的培训计划、培训实施、培训材料等信息进行管 理。口保险广场模块该模块主要功能是管理保险基本常识信息、保险产品介绍信息、 保险政策法规信息。口薪酬管理模块该模块主要功能是管理员工薪酬信息。系统设置模块该模块主要功能是管理操作员信息、设置操作员操作权限。（二）系统功能结构图人力资源管理系统功能结构如图1所示。个人管理人力资源管理系统人事管理人力规划工作管理考勤管理工作管理信息检索个人维护消息管理个人培训信息 个人薪酬信息 人考勤信息个人密码修改三、系统设计（一）、设计目标本系统是针对中小型企业人力资源管理情进行设计的，主要实现 如下目标：对企业人力资源管理的基本信息进行管理。管理企业的员工信息（即人事管理功能）。实现企业工作任务的在线分配功能。通过网站对员工考勤进行管理、并设置考勤时间。实现为个人提供网工作平台的功能。实现个人信息全面检索的功能。实现个人在线递交假期申请的功能。实现企业的招聘信息、应聘信息的管理功能。企业人才库管理功能。实现企业员工培训的一系列相关信息的管理等。员式薪酬信息管理。企业员工相关保险知识、政策法规等信息的管理。实现员工间的信息的传递、企业信息（包括会议通知、培训通知、工作任务分配等）的发布、接收、查询等到功能。系统用户信息的管理。系统最大限度地实现了易安装性、易维护性和易操作性。系统运行稳定、安全可靠。（二）、开发及运行环境硬件平台： CPU： P41。 8GHz。 内存：256MB以上。软件平台： 操作系统：Windows xp/ Windows 2000。数据提0篇2"°。 Web 服务器：IIS5.0O （三）、逻辑结构设计本系统数据库采用SQLServer 2000数据库，系统数据库名称为 db_people。数据库db_ people中包含22张表。四、网站总体架构（一）、模块功能介绍网站首页主要包括以下功能模块：人事管理:主要包括人力规划、工作管理和考勤管理3个部分。个人管理：主要包括工作管理、消息管理、信息检索和个人维护4个部分。招聘管理：主要包括招聘信息管理和企业人才库两个部分。培训管理:主要包括培训计划、培训实施和培训材料3个部分。保险管理：主要包括基本常识、产品介绍、政策法规、基本常识管理、产品介绍管理和政策法规管理6个部分。薪酬管理:主要包括薪酬登记、薪酬修改个薪酬查询3个部分。（二）、首页运行结果系统管理：主要包括添加用户和用户信息管理。进入系统后，网站首页的运行结果如图3所示。laDf«r«r Inliiri ud. J»b潇湘科技人力资源管理系统2 * .E割注矗置呆» Kfim , 鞭翎申请.瓢倒SJ6源背息般秘腰航匏麟日期野略.I涎雄费籍索甘89拓完成曲芸:弱通芜nr澜T T5 10 M四诙.脱中Vknii3JK-LZ-Z9 L5：ffi：2n1天L'kiin30E4E-S U: 13:33LZ漩t.姗艇TW愎考曜1A事管罗个人曾雯帮聘管暨褚讴璧里保圈-坊蹒皆茸酒尝哩foster JjLOEructW 晃 电SjeIch图3网站首页运行结果网站页面的各部分说明以列表形式给出，如表1所示。表1网站首页解析区域名称说明对应文件1管理导航区主要用于选择各种管理操作index_g.asp2功能导航区主要用于选择各种功能操作index_g.asp3展示区主要显示各种功能或者列表gerenguanliopen.asp五、用户登录模块网站登录主要是用户通过登录进入管理页面进行合法的操作。网 站登录模块主要用于验证用户是否是合法用户。网站登录页面由两部 分组成，即用于收集登录信息的前台表单部分和用于验证的后台处理 部分。网站登录页面的设计效果如图4所示。图4网站登录页面的设计效果网站登录页面中涉及的HTML表单如表2所示。表2网站登录页面中涉及的HTML表单元素名称类型含义重要属性form1Form表单action="check.asp?action=login”method="post”admin_nametext用户名class="wenben" size="8”admin_pwdtext密码class="wenben" size="8”Submitimage登录按钮value="提交"src="images/login_04.gif”当单击【登录系统】按钮时，后台对用户的身份进行验证，主要是检索用户名和密码在 数据库中是否存在。如果存在那么登录成功，进入操作页面，否则登录失败。其程序代码如 下：<!#include file=DataBase/conn.asp><%if request("action")="login" thenadmin_name=request("admin_name")'获取用户名admin_pass=request("admin_pass")'获取密码username=trim(request("admin_name")password=trim(request("admin_pass")for i=1 to len(username)user=mid(username,i,1)if user="'" or user="%" or user="<" or user=">" or user="&" or user="|" then response.write ”script language=JavaScript>" & "alert('您的用户名含 有非法字符，请重新输入！')；" & "history.back()" & "/script”response.endend ifnextfor i=1 to len(password)pass=mid(password,i,1)if pass= or pass=% or pass=< or pass=> or upass=& or pass=| thenresponse.write "<script language=JavaScript>" & "alert('您的密码 含有非法字符，请重新输入！')；" & "history.back()" & "</script>"response.endend ifnext'在数据库中检索用户名和密码时候正确set rs=server.CreateObject("adodb.recordset")sql="select * from tb_User where username='"&admin_name&"'and userpwd='"&admin_pass&"'"rs.open sql,conn,1,1if rs.eof then'记录集为空也就是说用户名或者密码错误response.write "<br><br><br><br><font size=2><center>对不起，您输入的用 户名或密 码，请重新输入，谢谢！ <br><br>本软件建议您使用IE6.0以上版本，分辨率： 1024*768<br><br><a href=login.asp>返回</a></font>”else'记录集不为也就是说用户名和密码正确，进入管理页面session("admin_name")=request("admin_name")response.Redirect("index.asp")'跳转到管理首页end ifrs.closeset rs=nothingconn.closeset conn=nothingend if%>六、网站首页设计网站首页主要由三大部分组成，一部分是管理导航区，二部分是功能导航区，三部分是 展示区。其中展示区中除了显示主要显示各种功能或者列表，还显示当前的操作用户和当前 的日期，并且被装在一个包含文件里。其程序代码如下：<!#include file=DataBase/conn.asp><!#include file=yan.asp><%set rs=server.CreateObject("adodb.recordset")sql="SELECT dbo.tb_Employee.name FROM dbo.tb_Employee INNER JOIN dbo.tb_User ON dbo.tb_Employee.id = dbo.tb_User.name where dbo.tb_User.username='"&session("admin_name")&"'”rs.open sql,conn,1,1if not rs.eof then%><table width="612" border="0" cellspacing="0"><tr><td width="33%" align="left"> </td><td width="44%" align="left"><span class="style5”)您好，<%=rs("name")%> 今天的日期是：<%=date()%></span></td><td width="23%" align="right"><div align="center"><ahref="quite.asp"><span class="style5"> 销登录 </span></a></div></td></tr></table><%elseresponse.Redirect("login.asp")end if%>当用户单击“注销登录”超链接，就是把sesssion( "admin_name”)的值清空，用户 就会退出登录，返回登录页面。其程序代码如下：<%session(admin_name)=response.Redirect("login.asp")%>七、人事管理模块设计人事管理模块主要包括人力规划、工作管理和考勤管理三大部分组成。(一)人力规划人力规划主要包括部门设置、职位设置、人事设置、添加员工、填写合同、合同管理和 合同模版7部分组成。1.部门设置部门设置主要用于用户管理部门的名称，包括显示、添加、修改和删除部门信息4个部 分。部门显示当用户在单击“部门设置”超链接时，页面在展示区会显示出部门名称，并且按级别进 行排序。其程序代码如下：<!#include file=DataBase/conn.asp><%set rs=server.CreateObject("adodb.recordset")sql="select * from tb_Dept order by up"rs.open sql,conn,1,1do while not rs.EOF xian=for i=1 to rs("level")-1xian = xian&"卜”nextxian = xian&"<a href=deptopen.asp?id="&trim(rs("id")&" target='xian'"&trim(rs("title")&"</a <br>"%><%=xian%><%rs.movenextloop%>当用户在页面展示区内在单击部门名称的超链接时，会在右侧显示出其部门的详细信 息。主要是根据传递的参数查找相应的记录并显示来实现的。查询部门详细信息的程序代码 如下：<!#include file=DataBase/conn.asp><%'部门名称set rs=server.CreateObject("adodb.recordset")sql="select * from tb_Dept where id="&request("id")rs.open sql,conn,1,1'上级部门if rs("shangji")<>"" thenset rss=server.CreateObject("adodb.recordset")sqls="select * from tb_Dept where id="&rs("shangji")rss.open sqls,conn,1,1end if'下级部门set rsd=server.CreateObject("adodb.recordset")sqld="select * from tb_Dept where shangji="&request("id")rsd.open sqld,conn,1,1'职位名称set rsz=server.CreateObject("adodb.recordset")sqlz="select * from tb_ZhiWei where suoshu="&rs("id") rsz.open sqlz,conn,1,1%>通过以下代码显示部门名称：<%=rs("title")%>'部门名称通过以下代码显示上级部门名称：<% if rs("shangji")<>"" then %><ahref=deptopen.asp?id=<%=rss("id")%>><%=rss("title")%></a><% End If %> 通过以下代码显示下级部门名称：<%do while not rsd.EOF%><ahref=deptopen.asp?id=<%=rsd("id")%>><%=rsd("title")%></a> <%rsd.movenextloop%>通过以下代码显示部门描述：<%=rs("content")%>通过以下代码显示部门所含职位的名称：<%do while not rsz.eof%><ahref="javascript:"onClick="window.open('zhiweiopen.asp?id=<%=rsz("id")%>','','w idth=350,height=150')"><%=rsz("zhiwei")%></a><%rsz.movenextloop%>部门显示页面的运行结果如图5所示。&首席执行官&网蠲部 E awp程序部 卜R a*测试部 世仍部N-K讪侦试部_ £讪程序卸 gdelphi _ R tkLphi测试部 _ K deLphi程序部】 &市场部 fhs®3 FEgla eSST-人事管理人力规划f部门设置部门名称：文档部上魂部门:首席执行官下嗜部门:部门描述:职位；经理艾员添加就修改部门珊峙部门注意:册除一个部门I苴下面的所有部门都将被删除，诘慎重操作？图5部门显示页面的运行结果部门添加部门添加主要用于添加部门的名称。在添加部门名称时要先选择其上级部门，然后进行 添加。其部门添加的设计效果如图6所示。彻、:;忝加部门名称：I，- .-.- . . . - . . . - . . . - . . 一 - . - . - . - . - .:氓择上皱部门：|.-.- . . . - . . . - . . . - . . .'. . - . . . - . - . - . - . - . - .添加I 重置图6部门添加页面设计效果部门添加页面中涉及的HTML表单如表3所示。名称类型含义重要属性form1Form表单method="post" action=""posthidden判断表单是否提交value="true”titletext部门名称value="<%=rs("title")%>"upselect上级部门<option value="<%=rs("id")%>"><%=tempcataStr%></option>Submitimage添加按钮value="提交”src="images/login_04.gif”Submit2reset重置按钮value="重置当用户单击“添加部门”超链接后，进入部门名称添加页面，填写完部门名称，【添加】表3部门添加页面中涉及的HTML表单元素按钮，系统会把用户添加的数据提交给本页进行数据处理。其数据处理的程序代码如下:<!#include file=DataBase/conn.asp><%call bumenshezhi'上级部门idset rs=server.CreateObject("adodb.recordset")sql="select * from tb_Dept order by up "rs.open sql,conn,1,1'添加部门if request("post")<>"" thenif request("title")<>"" thenset rsc=server.CreateObject("adodb.recordset")sqlc="select * from tb_Dept where shangji="&request("up")&" and title='"&request("title")&"'”rsc.open sqlc,conn,1,1if not rsc.eof thenresponse.Write("<script language=javascript>alert('同一级别下的部 门不能重名')；location='javascript:history.go(T)'</script”)response.End()end if'上级部门级别set rsj=server.CreateObject("adodb.recordset")sqlj="select * from tb_Dept where id="&request("up") rsj.open sqlj,conn,1,1 up=rsj(up)set rsa=server.CreateObject("adodb.recordset")sqla="Select * from tb_Dept where id is null"rsa.Open sqla,conn,1,3 rsa.addnew rsa(title)=request(title) rsa(level)=rsj(level)+1 rsa(up)=request(up) rsa(shangji)=request(up) rsa.update rsa.close '获取id set rsa=server.CreateObject(adodb.recordset) sqla="Select * from tb_Dept order by id desc" rsa.Open sqla,conn,1,3 id=rsa(id) '添加排序 set rsa1=server.CreateObject(adodb.recordset) sqla1="Select * from tb_Dept " rsa1.Open sqla,conn,1,3 rsa1(up)=up&,&id rsa1.update rsa1.close set rsc=nothing response.Write(<script language=javascript>alert('添加成功 ');parent.location.reload()</script) elseresponse.Write(<script language=javascriptalert('请填写部门名称 ');location='javascript:history.go(T)'</script) end if end if %> 部门修改在部门详细信息显示页面(如图7所示)，单击“修改部门”超链接，可以对部门的名 称进行修改。其修改部门信息页面设计效果如图8所示。图7修改部门信息页面设计效果当用户单击【修改】按钮，会把用户修改的数据提交给本页进行数据处理。数据处理的 程序代码如下：<!#include file=DataBase/conn.asp><%if request("post")<>"" thenset rsa=server.CreateObject("adodb.recordset") sqla="select * from tb_Dept where id="&request("id") rsa.open sqla,conn,1,3 rsa("title")=request("title") 添加标题 rsa("content")=request("content") 添加内容 rsa.update rsa.close response.Write("<script language=javascript>alert ('修改成功')；opener.location.reload();window.close()</script>") 关闭窗 口时刷新父窗口 end if %>部门删除在部门详细信息显示页面(如图6所示)，单击“删除部门”超链接，可以对部门的名 称以及其部门下级的有部门及其相关信息删除。其删除部门的程序数据处理代码如下：<!#include file=DataBase/conn.asp><%doid=request("del")if request("del")=1 thenresponse.Write("<script language=javascript>alert('对不起这个部门不能删 除！')</script>") elseif request("del")<>"" then set rsb=server.CreateObject("adodb.recordset") sqlb="Select * from tb_dept where id="&doid rsb.Open sqlb,conn,1,3 if not rsb.EOF then bup = rsb("up") set rsd=server.CreateObject("adodb.recordset") sqld="Select * from tb_dept" rsd.Open sqld,conn,1,3 do while not rsd.EOF dup = rsd("up") delid =rsd("id") if InStr(bup,”,") < 0 then del_name=split(dup,”,") if del_name(0) = bup then rsd.Delete rsd.Update set rsre=server.CreateObject("adodb.recordset") sqlre="select * from tb_Employee where suoshu="&delid rsre.open sqlre,conn,1,1do while not rsre.eofset rs=server.CreateObject("adodb.recordset") sql="select * from tb_User where name="&rsre("id") rs.open sql,conn,1,3 do while not rs.eofsubdel1loopsubdel2loopend ifresponse.write ”script language=javascript>alert('部门删 除成功！)；parent.location.reload()</script>”elseif InStr(dup,bup) > 0 then rsd.Delete rsd.Updateset rsre=server.CreateObject("adodb.recordset") sqlre="select * from tb_Employee where suoshu="&delid rsre.open sqlre,conn,1,1 do while not rsre.eofset rs=server.CreateObject("adodb.recordset") sql="select * from tb_User where name="&rsre("id") rs.open sql,conn,1,3 do while not rs.eofsubdel1loopsubdel2loopend ifend ifrsd.MoveNextloopresponse.write ”script language=javascript>alert('部门删除成功! ');parent.location.reload()</script>”rsd.closeset rsd=nothingend ifend ifend ifsub subdel1删除其他表中含有用户名的记录sql1=”delete from tb_Work where buzhizhe='"&rs(”username")&"'” conn.execute(sql1)sql2=”delete from tb_Messagef where fabuzhe='"&rs(”username")&"'” conn.execute(sql2)sql3="delete from tb_Message where fabuzhe='"&rs("username")&"'” conn.execute(sql3)sql4="delete from tb_Letter_s where name='"&rs("username")&"'”conn.execute(sql4)sql5="delete from tb_Letter_f where name='"&rs("username")&"'”conn.execute(sql5)sql6="delete from tb_Leave where name='"&rs("username")&"'”conn.execute(sql6)sql7="delete from tb_Kaoqin where name='"&rs("username")&"'”conn.execute(sql7)sql8="delete from tb_Job where name='"&rs("username")&"'”conn.execute(sql8)rs.movenextend subsub subdel2删除其他表中含有用户名id的记录sql9="delete from tb_Employee where id="&rsre("id")conn.execute(sql9)sql11="delete from tb_Wage where name="&rsre("id")conn.execute(sql11)sql12="delete from tb_User where name="&rsre("id")conn.execute(sql12)sql13="delete from tb_Messagef where jieshouzhe="&rsre("id")conn.execute(sql13)sql14="delete from tb_Message where jieshouzhe="&delidconn.execute(sql14)sql15="select * from tb_Letter_s where duixiang='个人and point="&rsre("id")conn.execute(sql15)sql16="select * from tb_Letter_f where duixiang='个人 and point="&rsre("id")conn.execute(sql16)sql17="select * from tb_Work where wanchenglei='个人and wanchengzhe="&rsre("id")conn.execute(sql17)rsre.movenextend sub%>2. 职位设置职位设置主要是设置部门所包含的职位。包括职位信息的显示、添加、修改和删除。由 于没有特殊的技术，下面只给大家介绍职位的显示，其他部分不做详细介绍。如有问题，请 查看附赠的光盘。职位信息显示主要是显示部门所包含的职位的名称。其程序代码如下：<%maxpage=0'设总页数默认为0set rs=server.CreateObject("adodb.recordset") sql="Select * from tb_dept order by up" rs.Open sql,conn,1,1 if not rs.eof then实现分页show=15'每页显示的记录数tol=rs.recordcount'总记录数rs.pagesize=showmaxpage=rs.pagecount'总页数requestpage=clng(request("p")'获取当前页码if requestpage="" or requestpage=0 then requestpage=1end ifif requestpage>maxpage then requestpage=maxpage end ifif not requestpage=1 thenrs.move (requestpage-1)*rs.pagesize end iffor i=1 to rs.pagesize and not rs.eof'职位
