企业管理系统.pdf

《企业管理系统.pdf》由会员分享，可在线阅读，更多相关《企业管理系统.pdf（25页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、课 程 设 计 报 告 课程设计名称 人事管理系统 专 业 计算机科学与技术 班 级 3 学 号 姓 名 指导教师 于桂玲 成 绩 年 月 日 第一章 概述.第二章 需求分析.2.1 需求的文字表述.2.2 系统分析.2.21 系统功能描述.2.2.2 功能模块划分.2.3 系统功能模块.第三章 概念模型设计.3.1 局部 E-R模型.3.1.1 员工信息 E-R图：主要包括的属性有员工编号，姓名，性别，专业，外语情况，学历，婚姻状况.3.1.2 部门信息 E-R图：主要包括的属性有部门的编号，部门的名称，以及部门的描述.3.1.3 外语情况信息 E-R图：主要包括的属性有岗位名称，岗位说明，

2、所属部门.3.1.4 管理员 E-R图：主要包括的属性有管理员编号，管理员姓名，性别，年龄.3.1.5 配偶信息 E-R图：主要包括的属性有员工编号，员工配偶姓名，配偶性别，工作单位.3.2 集成 E-R图.第四章 逻辑结构设计.4.1 E-R 图向关系模型的转换.4.2 关系表的建立.4.2.1 员工信息表的建立.4.2.2 部门信息表的建立.4.2.3 员工婚姻状况表的建立.4.2.4 员工学历信息表的建立.4.3 有关建表代码与截图.4.3.1 员工信息表的建立.4.3.2 部门信息表的建立.4.3.3 员工婚姻表的建立.4.3.4 员工学历表的建立员工编号，员工学历，专业、毕业时间、学

3、校、外语情 况.4.3.5 以下为前台制作截图：.第一章 概述 企业之间的竞争主要体现在三个方面：产品市场的竞争、资金市场的竞争和人才市场的竞争。在网络经济的环境下，人才是企业生存发展的基础，企业必须建立有效的人力资源管理系统，才能在竞争中取得优势。完善的人力资源管理的两大目标是：第一，有效地降低管理层、员工和人力资源部员工用于人力资源管理上的时间消耗;第二，要促使人力资源部和管理层更加关注“增长活动”，从而吸引、发展和留住优秀人才。人事管理系统可以实现功能包括“人事信息维护”、“数据查询”、“系统维护”。该系统应该提供人事信息的录入（修改）、删除、统计：人事常用的数据查询（包括各种复杂查询）

4、，各类人事统计报表的设计、生成、表式的导入和导出、打印。第二章 需求分析 2.1 需求的文字表述 本系统是经过详细调查户为满足一些中小型企业公司的管理要求而制作的。目前，利用计算机管理企业信息已经越来越普遍，可以说计算机已成为一个企业不可或缺的“管理者”，它的方便性、安全性和可靠性也越来越受到人们的青睐。随着科技的进步，利用网络连接各个部门和各个企业单位也都成为现实。为了方便公司各个部门的业务联系和相关查询，本系统通常要进行必要的网络连接，之后便可以方便地使用，系统的特点如下：1、可替代许多复杂的人工劳动，如统计、核算等工作，节省许多资源。2、便于领导对员工的工资、调度等信息进行查询。3、利于

5、高级用户进行洗头膏信息管理和维护，也允许普通用户进行部分信息浏览、查看，以实现管理机制透明化。4、提供了大量的操作提示，以其较强的容错能力，大大方便了管理者和用户的使用，确保了数据的安全性、正确性、完整性和一致性。5、能在很大程度上优化企业管理，提高企业的工作效率。2.2 系统分析 2.21 系统功能描述 本系统是在实际调查的基础上，结合广大中小型企业的共同点，严格遵循实事求是的原则创建而成的。目的是通过该系统实现人事管理，信息查询分析以及项目部门之间的调配工作等工作，最终实现科学决策。2.2.2 功能模块划分 本系统从功能上分为个 5 模块，分别是用户管理、部门管理、人员管理、信息查询及系统

6、设置。1、用户管理：分为管理员和普通用户，主要用户对公司员工信息的修整和查看 2、部门管理：用于部门的创建、删除及部门信息的修改和查询等 3、人员管理：用于对员工的添加、删除、信息的修改等进行管理操作 4、信息查询：用于对员工的详细信息、各部门查询操作 5、系统设置：用于对系统的一些基本参数的设置 2.3 系统功能模块 第三章 概念模型设计 3.1 局部 E-R模型 3.1.1 员工信息 E-R图：主要包括的属性有员工编号，姓名，性别，专业，外语情况，学历，婚姻状况 3.1.2 部门信息 E-R图：主要包括的属性有部门的编号，部门的名称，以及部门的描述 3.1.3 外语情况信息 E-R图：主要

7、包括的属性有岗位名称，岗位说明，所属部门 部门编号 部门名称 部门描述 部门 图 3-2 部门信息 E-R图 员工编号 员工性别 上岗日期 员工 外语情况 学历 婚姻状况 姓名 图 3-1 员工信息 E-R图 3.1.4 管理员 E-R图：主要包括的属性有管理员编号，管理员姓名，性别，年龄 3.1.5 配偶信息 E-R图：主要包括的属性有员工编号，员工配偶姓名，配偶性别，工作单位 管理员编号 管理员姓名 性别 年龄 管理员 图 3-4 管理员 E-R图 岗位名称 岗位说明 所属部门 外语情况 图 3-3 岗位信息 E-R图 3.2 集成 E-R图 主要包括的实体有管理员，员工，部门，配偶，外语

8、情况 管理员与员工之间的关系是 1：n 配偶与员工之间的关系是 1：1 部门与员工之间的关系是 1：n 外语情况与员工之间的关系是 1：n 第四章 逻辑结构设计 管理 员工 管理员 部门 婚 包含 配偶 1 n 1 1 n n 1 员工配偶姓名 配 偶 性别 工 作 单位 配偶 员工编号 图 3-5 员工配偶信息 E-R图 外语情况 工作 1 图 3-6 集成 E-R图 4.1 E-R 图向关系模型的转换 根据 E-R图向关系模型转换的原则，将两个实体转换为关系模式如下，其中码用下划线表示，并且不能为空。员工（员工编号，姓名，性别，专业，外语情况，学历，婚姻状况）部门（部门编号，部门名称，部门

9、描述）外语情况（岗位名称，岗位说明，所属部门）管理员（管理员编号，姓名，性别，年龄）配偶（员工编号，员工配偶姓名，性别，工作单位）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 毕业学

10、校 CHAR 10 YES 4.2.2 部门信息表的建立 部门信息表中包括的主要的属性有部门的编号，部门的名称，以及部门的描述 列名 数据类型 长度 允许空 部门编号 CHAR 10 NOT NULL 部门名称 CHAR 10 NOT NULL 部门描述 CHAR 10 YES 4.2.3 员工婚姻状况表的建立 员工婚姻状况表中包括的主要属性有员工编号，员工配偶姓名，性别，配偶工作单位 列名 数据类型 长度 允许空 员工编号 CHAR 10 NOT NULL 员工配偶姓名 CHAR 10 YES 表 4-1 员工信息表 表 4-2 部门信息表 性别 CHAR 10 YES 配偶工作单位 CHA

11、R 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 有关建表代码与截图 Create table 员工信息（员工编号 char(10)primary key,姓名 char(10),性别 char(10),专业

12、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 员工学历表(

13、员工编号 char(10)primary key,员工学历 char(10),专业 char(10),毕业时间 char(10),毕业学校 char(10),外语情况 char(10);主页代码 无标题文档 企业管理系统 登陆 查询系统 更新系统 登陆页代码%Dim Recordset1 Dim Recordset1_numRows Set Recordset1=Server.CreateObject(ADODB.Recordset)Recordset1.ActiveConnection=MM_san_STRING Recordset1.Source=SELECT*FROM 员工基本

14、信息表 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

15、_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_fld

16、UserAuthorization 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

17、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 Else Session(MM_UserAuthorization)=End If if CStr(Request.QueryString(accessdenied)And false Then MM_redirectLoginSuccess=Request.QueryStri

18、ng(accessdenied)End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess)End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed)End If%无标题文档 form ACTION=id=form1 name=form1 method=POST 请输入用户名 请输入员工号 返回%Dim Recordset1 Dim Recordset1_numRows Set Recordset1=Server.CreateObject(ADODB.Re

19、cordset)Recordset1.ActiveConnection=MM_san_STRING Recordset1.Source=SELECT*FROM 员工基本信息表 Recordset1.CursorType=0 Recordset1.CursorLocation=2 Recordset1.LockType=1 Recordset1.Open()Recordset1_numRows=0%无标题文档 姓名 年龄 性别 学历 专业 毕业时间 毕业学校 外语情况 配偶 员工号%While(Repeat1_numRows 0)AND(NOT Recordset1.EOF)%返回 企业部门情况

20、查询 员工基本情况查询 工作岗位情况查询 员工婚姻情况查询 员工学历情况查询 返回%*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_colu

21、mns 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

22、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

23、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 Re

24、cord: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(ADOD

25、B.Command)MM_editCmd.ActiveConnection=MM_editConnection MM_editCmd.CommandText=MM_editQuery MM_editCmd.Execute 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=Sess

26、ion(MM_Username)End If%*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 Record

27、set1_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(Recordse

28、t1_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%0)Then Recordset1.MoveFirst Else Recordset1.Requery E

29、nd If set the number of rows displayed on this page If(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 Record

30、set1_first=Recordset1_total End If If(Recordset1_last Recordset1_total)Then Recordset1_last=Recordset1_total End If End If%*Move To Record and Go To Record:declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_i

31、ndex Set MM_rs=Recordset1 MM_rsCount=Recordset1_total MM_size=Recordset1_numRows MM_uniqueCol=MM_paramName=MM_offset=0 MM_atTotal=false MM_paramIsDefined=false If(MM_paramName)Then MM_paramIsDefined=(Request.QueryString(MM_paramName)End If%*Move To Record:handle index or offset parameter if(Not MM_p

32、aramIsDefined And MM_rsCount 0)then use index parameter if defined,otherwise use offset parameter MM_param=Request.QueryString(index)If(MM_param=)Then MM_param=Request.QueryString(offset)End If If(MM_param)Then MM_offset=Int(MM_param)End If if we have a record count,check if we are past the end of t

33、he recordset If(MM_rsCount-1)Then If(MM_offset=MM_rsCount Or MM_offset=-1)Then past end or move last If(MM_rsCount Mod MM_size)0)Then last page not a full repeat region MM_offset=MM_rsCount-(MM_rsCount Mod MM_size)Else MM_offset=MM_rsCount-MM_size End If End If End If move the cursor to the selected

34、 record MM_index=0 While(Not MM_rs.EOF)And(MM_index%*Move To Record:if we dont know the record count,check the display range If(MM_rsCount=-1)Then walk to the end of the display range for this page MM_index=MM_offset While(Not MM_rs.EOF And(MM_size 0 Or MM_index MM_offset+MM_size)MM_rs.MoveNext MM_i

35、ndex=MM_index+1 Wend if we walked off the end of the recordset,set MM_rsCount and MM_size If(MM_rs.EOF)Then MM_rsCount=MM_index If(MM_size MM_rsCount)Then MM_size=MM_rsCount End If End If if we walked off the end,set the offset based on page size If(MM_rs.EOF And Not MM_paramIsDefined)Then If(MM_off

36、set MM_rsCount-MM_size Or MM_offset=-1)Then If(MM_rsCount Mod MM_size)0)Then MM_offset=MM_rsCount-(MM_rsCount Mod MM_size)Else MM_offset=MM_rsCount-MM_size End If End If End If reset the cursor to the beginning If(MM_rs.CursorType 0)Then MM_rs.MoveFirst Else MM_rs.Requery End If move the cursor to t

37、he selected record MM_index=0 While(Not MM_rs.EOF And MM_index%*Move To Record:update recordset stats set the first and last displayed record Recordset1_first=MM_offset+1 Recordset1_last=MM_offset+MM_size If(MM_rsCount-1)Then If(Recordset1_first MM_rsCount)Then Recordset1_first=MM_rsCount End If If(

38、Recordset1_last MM_rsCount)Then Recordset1_last=MM_rsCount End If End If set the boolean used by hide region to check if we are on the last record MM_atTotal=(MM_rsCount-1 And MM_offset+MM_size=MM_rsCount)%*Go To Record and Move To Record:create strings for maintaining URL and Form parameters Dim MM

39、_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem create the list of parameters which should not be maintained MM_removeList=&index=If(MM_paramName)Then MM_removeList=MM_removeList&MM_paramName&=End If MM_keepURL=MM_keepForm=MM_keepBoth=MM_keepNon

40、e=add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem=&MM_item&=If(InStr(1,MM_removeList,MM_nextItem,1)=0)Then MM_keepURL=MM_keepURL&MM_nextItem&Server.URLencode(Request.QueryString(MM_item)End If Next add the Form variables to the MM_keepForm string F

41、or Each MM_item In Request.Form MM_nextItem=&MM_item&=If(InStr(1,MM_removeList,MM_nextItem,1)=0)Then MM_keepForm=MM_keepForm&MM_nextItem&Server.URLencode(Request.Form(MM_item)End If Next create the Form+URL string and remove the intial&from each of the strings MM_keepBoth=MM_keepURL&MM_keepForm If(M

42、M_keepBoth)Then MM_keepBoth=Right(MM_keepBoth,Len(MM_keepBoth)-1)End If If(MM_keepURL)Then MM_keepURL=Right(MM_keepURL,Len(MM_keepURL)-1)End If If(MM_keepForm)Then MM_keepForm=Right(MM_keepForm,Len(MM_keepForm)-1)End If a utility function used for adding additional parameters to these strings Functi

43、on MM_joinChar(firstItem)If(firstItem)Then MM_joinChar=&Else MM_joinChar=End If End Function%*Move To Record:set the strings for the first,last,next,and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim

44、 MM_paramIndex Dim MM_nextParam MM_keepMove=MM_keepBoth MM_moveParam=index if the page has a repeated region,remove offset from the maintained parameters If(MM_size 1)Then MM_moveParam=offset If(MM_keepMove)Then MM_paramList=Split(MM_keepMove,&)MM_keepMove=For MM_paramIndex=0 To UBound(MM_paramList)

45、MM_nextParam=Left(MM_paramList(MM_paramIndex),InStr(MM_paramList(MM_paramIndex),=)-1)If(StrComp(MM_nextParam,MM_moveParam,1)0)Then MM_keepMove=MM_keepMove&MM_paramList(MM_paramIndex)End If Next If(MM_keepMove)Then MM_keepMove=Right(MM_keepMove,Len(MM_keepMove)-1)End If End If End If set the strings

46、for the move to links If(MM_keepMove)Then MM_keepMove=Server.HTMLEncode(MM_keepMove)&End If MM_urlStr=Request.ServerVariables(URL)&?&MM_keepMove&MM_moveParam&=MM_moveFirst=MM_urlStr&0 MM_moveLast=MM_urlStr&-1 MM_moveNext=MM_urlStr&CStr(MM_offset+MM_size)If(MM_offset-MM_size 0)Then MM_movePrev=MM_url

47、Str&0 Else MM_movePrev=MM_urlStr&CStr(MM_offset-MM_size)End If%无标题文档 欢迎您 点击员工号进行更改信息 form id=form1 name=form1 method=POST action= 姓名 年龄 性别 学历 专业 毕业时间 毕业学校 外语情况 配偶 员工号%While(Repeat1_numRows 0)AND(NOT Recordset1.EOF)%If MM_offset 0 Then%a href=第一页%End If end MM_offset 0%If MM_offset 0 Then%a href

48、=前一页%End If end MM_offset 0%a href=下一页 a href=最后一页记录到(总共返回%Dim Repeat1_numRows Dim Repeat1_index Repeat1_numRows=10 Repeat1_index=0 Recordset1_numRows=Recordset1_numRows+Repeat1_numRows%无标题文档 员工姓名 员工号 工作岗位 部门号%While(Repeat1_numRows 0)AND(NOT Recordset1.EOF)%返回%Dim

49、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%无标题文档 录入成功 返回 删除成功 返回 指导教师签字：年 月 日