企业管理系统.doc_咨信网zixin.com.cn

资源描述

课程设计报告课程设计名称人事管理系统专业计算机科学与技术班级 3 学号姓名指导教师于桂玲成绩年月日第一章概述 1 第二章需求分析 1 2.1 需求的文字表述 1 2.2 系统分析 1 2.21 系统功能描述 1 2.2.2 功能模块划分 1 2.3 系统功能模块 1 第三章概念模型设计 2 3.1 局部E-R模型 2 3.1.1 员工信息E-R图：重要涉及的属性有员工编号，姓名，性别，专业，外语情况，学历，婚姻状况 2 3.1.2 部门信息E-R图：重要涉及的属性有部门的编号，部门的名称，以及部门的描述 3 3.1.3 外语情况信息E-R图：重要涉及的属性有岗位名称，岗位说明，所属部门 3 3.1.4 管理员E-R图：重要涉及的属性有管理员编号，管理员姓名，性别，年龄 3 3.1.5 配偶信息E-R图：重要涉及的属性有员工编号，员工配偶姓名，配偶性别，工作单位 4 3.2 集成E-R图 4 第四章逻辑结构设计 5 4.1 E-R图向关系模型的转换 6 4.2 关系表的建立 6 4.2.1 员工信息表的建立 6 4.2.2 部门信息表的建立 7 4.2.3 员工婚姻状况表的建立 7 4.2.4 员工学历信息表的建立 7 4.3 有关建表代码与截图 7 4.3.1员工信息表的建立 7 4.3.2 部门信息表的建立 8 4.3.3 员工婚姻表的建立 9 4.3.4 员工学历表的建立员工编号，员工学历，专业、毕业时间、学校、外语情况 10 4.3.5以下为前台制作截图： 11 第一章概述公司之间的竞争重要体现在三个方面：产品市场的竞争、资金市场的竞争和人才市场的竞争。在网络经济的环境下，人才是公司生存发展的基础，公司必须建立有效的人力资源管理系统，才干在竞争中取得优势。完善的人力资源管理的两大目的是：第一，有效地减少管理层、员工和人力资源部员工用于人力资源管理上的时间消耗;第二，要促使人力资源部和管理层更加关注“增长活动”，从而吸引、发展和留住优秀人才。人事管理系统可以实现功能涉及“人事信息维护”、“数据查询”、“系统维护”。该系统应当提供人事信息的录入（修改）、删除、记录：人事常用的数据查询（涉及各种复杂查询），各类人事记录报表的设计、生成、表式的导入和导出、打印。第二章需求分析 2.1 需求的文字表述本系统是通过具体调查户为满足一些中小型公司公司的管理规定而制作的。目前，运用计算机管理公司信息已经越来越普遍，可以说计算机已成为一个公司不可或缺的“管理者”，它的方便性、安全性和可靠性也越来越受到人们的青睐。随着科技的进步，运用网络连接各个部门和各个公司单位也都成为现实。为了方便公司各个部门的业务联系和相关查询，本系统通常要进行必要的网络连接，之后便可以方便地使用，系统的特点如下： 1、可替代许多复杂的人工劳动，如记录、核算等工作，节省许多资源。 2、便于领导对员工的工资、调度等信息进行查询。 3、利于高级用户进行洗头膏信息管理和维护，也允许普通用户进行部分信息浏览、查看，以实现管理机制透明化。 4、提供了大量的操作提醒，以其较强的容错能力，大大方便了管理者和用户的使用，保证了数据的安全性、对的性、完整性和一致性。 5、能在很大限度上优化公司管理，提高公司的工作效率。 2.2 系统分析 2.21 系统功能描述本系统是在实际调查的基础上，结合广大中小型公司的共同点，严格遵循实事求是的原则创建而成的。目的是通过该系统实现人事管理，信息查询分析以及项目部门之间的调配工作等工作，最终实现科学决策。 2.2.2 功能模块划分本系统从功能上分为个5模块，分别是用户管理、部门管理、人员管理、信息查询及系统设立。 1、用户管理：分为管理员和普通用户，重要用户对公司员工信息的修整和查看 2、部门管理：用于部门的创建、删除及部门信息的修改和查询等 3、人员管理：用于对员工的添加、删除、信息的修改等进行管理操作 4、信息查询：用于对员工的具体信息、各部门查询操作 5、系统设立：用于对系统的一些基本参数的设立 2.3 系统功能模块第三章概念模型设计 3.1 局部E-R模型 3.1.1 员工信息E-R图：重要涉及的属性有员工编号，姓名，性别，专业，外语情况，学历，婚姻状况员工编号员工性别上岗日期员工外语情况学历婚姻状况姓名图3-1员工信息E-R图 3.1.2 部门信息E-R图：重要涉及的属性有部门的编号，部门的名称，以及部门的描述部门编号部门名称部门描述部门图3-2 部门信息E-R图 3.1.3 外语情况信息E-R图：重要涉及的属性有岗位名称，岗位说明，所属部门岗位名称岗位说明所属部门外语情况图3-3岗位信息E-R图 3.1.4 管理员E-R图：重要涉及的属性有管理员编号，管理员姓名，性别，年龄管理员编号管理员姓名性别年龄管理员图3-4 管理员E-R图 3.1.5 配偶信息E-R图：重要涉及的属性有员工编号，员工配偶姓名，配偶性别，工作单位员工配偶姓名配偶性别工作单位配偶员工编号图3-5 员工配偶信息E-R图 3.2 集成E-R图重要涉及的实体有管理员，员工，部门，配偶，外语情况管理员与员工之间的关系是1：n 配偶与员工之间的关系是1：1 部门与员工之间的关系是1：n 外语情况与员工之间的关系是1：n 工作管理员工管理员部门婚姻包含配偶 1 n 1 1 n n 1 1 外语情况图3-6集成E-R图第四章逻辑结构设计 4.1 E-R图向关系模型的转换根据E-R图向关系模型转换的原则，将两个实体转换为关系模式如下，其中码用下划线表达，并且不能为空。员工（员工编号，姓名，性别，专业，外语情况，学历，婚姻状况）部门（部门编号，部门名称，部门描述）外语情况（岗位名称，岗位说明，所属部门）管理员（管理员编号，姓名，性别，年龄）配偶（员工编号，员工配偶姓名，性别，工作单位） 4.2 关系表的建立 4.2.1 员工信息表的建立员工表中重要涉及的属性是员工编号，姓名，性别，专业，外语情况，学历，婚姻状况列名数据类型长度允许空员工号 CHAR 10 NOT NULL 姓名 CHAR 10 NOT NULL 性别 CHAR 10 YES 专业 CHAR 10 YES 外语情况 CHAR 10 YES 学历 CHAR 10 YES 婚姻状况 CHAR 10 YES 年龄 CHAR 10 YES 毕业时间 CHAR 10 YES 毕业学校 CHAR 10 YES 表4-1 员工信息表 4.2.2 部门信息表的建立部门信息表中涉及的重要的属性有部门的编号，部门的名称，以及部门的描述列名数据类型长度允许空部门编号 CHAR 10 NOT NULL 部门名称 CHAR 10 NOT NULL 部门描述 CHAR 10 YES 表4-2 部门信息表 4.2.3 员工婚姻状况表的建立员工婚姻状况表中涉及的重要属性有员工编号，员工配偶姓名，性别，配偶工作单位列名数据类型长度允许空员工编号 CHAR 10 NOT NULL 员工配偶姓名 CHAR 10 YES 性别 CHAR 10 YES 配偶工作单位 CHAR 10 YES 表4-4 员工婚姻状况表 4.2.4 员工学历信息表的建立员工学历信息表中涉及的重要属性有员工编号，员工学历，专业、毕业时间、学校、外语情况列名数据类型长度允许空员工编号 CHAR 10 NOT NULL 员工学历 CHAR 10 YES 专业 CHAR 10 YES 毕业时间 CHAR 10 YES 毕业学校 CHAR 10 YES 外语情况 CHAR 10 YES 表4-5 员工学历信息表 4.3 有关建表代码与截图 4.3.1员工信息表的建立 Create table 员工信息（员工编号 char(10) primary key, 姓名 char(10), 性别 char(10), 专业 char(10), 外语情况 char(10), 学历 char(10), 婚姻状况 char(10) ）; 4.3.2 部门信息表的建立 Create table 部门信息（部门编号 char(10) primary key, 部门名称 char(10), 部门描述 char(10) ）; 4.3.3 员工婚姻表的建立 Create table 员工婚姻表（员工编号 char(10) primary key, 员工配偶姓名 char(10), 员工性别 char(10), 工作单位 char(10) ）; 4.3.4 员工学历表的建立员工编号，员工学历，专业、毕业时间、学校、外语情况 Create table 员工学历表 ( 员工编号 char(10) primary key, 员工学历 char(10), 专业 char(10), 毕业时间 char(10), 毕业学校 char(10), 外语情况 char(10) ); 4.3.5以下为前台制作截图：主页代码 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""> <html xmlns=""> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> <style type="text/css">  </style> </head> <body> <div align="center"><span class="STYLE1">公司管理系统</span> </div> <p><a href="dl.asp">登陆</a></p> <p><a href="cx.html">查询系统</a></p> <p><a href="ygxxlr.asp">更新系统</a></p> <p> </p> </body> </html> 登陆页代码 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_san_STRING Recordset1.Source = "SELECT * FROM 员工基本信息表" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername=CStr(Request.Form("textfield")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="dlcg.asp" MM_redirectLoginFailed="dlsb.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_san_STRING MM_rsUser.Source = "SELECT 姓名, 员工号" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM 员工基本信息表 WHERE 姓名='" & Replace(MM_valUsername,"'","''") &"' AND 员工号='" & Replace(Request.Form("textfield2"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""> <html xmlns=""> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> </head> <body> <form ACTION="<%=MM_LoginAction%>" id="form1" name="form1" method="POST"> 请输入用户名 <label> <input type="text" name="textfield" /> </label> <p>请输入员工号 <label> <input type="text" name="textfield2" /> </label> </p> <p> <label> <input type="submit" name="Submit" value="提交" /> </label> <label> <input type="reset" name="Submit2" value="重置" /> </label> <a href="zhuye.html"> 返回 </a></p> </form> </body> </html> <% Recordset1.Close() Set Recordset1 = Nothing %> <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_san_STRING Recordset1.Source = "SELECT * FROM 员工基本信息表" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""> <html xmlns=""> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> </head> <body> <table border="1" cellpadding="3" cellspacing="3"> <tr> <td>姓名</td> <td>年龄</td> <td>性别</td> <td>学历</td> <td>专业</td> <td>毕业时间</td> <td>毕业学校</td> <td>外语情况</td> <td>配偶</td> <td>员工号</td> </tr> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <tr> <td><%=(Recordset1.Fields.Item("姓名").Value)%></td> <td><%=(Recordset1.Fields.Item("年龄").Value)%></td> <td><%=(Recordset1.Fields.Item("性别").Value)%></td> <td><%=(Recordset1.Fields.Item("学历").Value)%></td> <td><%=(Recordset1.Fields.Item("专业").Value)%></td> <td><%=(Recordset1.Fields.Item("毕业时间").Value)%></td> <td><%=(Recordset1.Fields.Item("毕业学校").Value)%></td> <td><%=(Recordset1.Fields.Item("外语情况").Value)%></td> <td><%=(Recordset1.Fields.Item("配偶").Value)%></td> <td><%=(Recordset1.Fields.Item("员工号").Value)%></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %> </table> <p><a href="cx.html">返回</a></p> </body> </html> <% Recordset1.Close() Set Recordset1 = Nothing %> <table width="396" height="134" border="1"> <tr> <td><a href="chaxq.asp">公司部门情况查询</a></td> <td><a href="cxj.asp">员工基本情况查询</a></td> </tr> <tr> <td><a href="chaxg.asp">工作岗位情况查询</a></td> <td><a href="cxh.asp">员工婚姻情况查询</a></td> </tr> <tr> <td><a href="cxx.asp">员工学历情况查询</a></td> <td><a href="zhuye.html">返回</a></td> </tr> </table> <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Delete Record: declare variables if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_san_STRING MM_editTable = "员工基本信息表" MM_editColumn = "姓名" MM_recordId = "'" + Request.Form("MM_recordId") + "'" MM_editRedirectUrl = "shanccg.html" ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Delete Record: construct a sql delete statement and execute it If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql delete statement MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the delete Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Session("MM_Username") <> "") Then Recordset1__MMColParam = Session("MM_Username") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_san_STRING Recordset1.Source = "SELECT * FROM 员工基本信息表 WHERE 姓名 = '" + Replace(Recordset1__MMColParam, "'", "''") + "'" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Recordset1_total Dim Recordset1_first Dim Recordset1_last ' set the record count Recordset1_total = Recordset1.RecordCount ' set the number of rows displayed on this page If (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_total Elseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1 End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset1_total <> -1) Then If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset1_total = -1) Then ' count the total records by iterating through the recordset Recordset1_total=0 While (Not Recordset1.EOF) Recordset1_total = Recordset1_total + 1 Recordset1.MoveNext Wend ' reset the cursor to the beginning If (Recordset1.CursorType > 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If ' set the number of rows displayed on this page If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If End If %> <% Dim MM_paramName %> <% ' *** Move To Record and Go To Record: declare variable

展开阅读全文