企业管理系统.docx

1、企业管理系统企业管理系统课 程 设 计 报 告 课程设计名称 人事治理系统 专 业 运算机科学与技术 班 级 3 学 号 姓 名 指导教师 于桂玲 成 绩 年 月 日第一章 概述 企业之间的竞争要紧体现在三个方面：产品市场的竞争、资金市场的竞争和人才市场的竞争。在网络经济的环境下，人才是企业生存进展的基础，企业必须建立有效的人力资源治理系统，才能在竞争中取得优势。完善的人力资源治理的两大目标是：第一，有效地降低治理层、职员和人力资源部职员用于人力资源治理上的时刻消耗;第二，要促使人力资源部和治理层更加关注“增长活动”，从而吸引、进展和留住优秀人才。人事治理系统能够实现功能包括“人事信息爱护”、

2、“数据查询”、“系统爱护”。该系统应该提供人事信息的录入（修改）、删除、统计：人事常用的数据查询（包括各种复杂查询），各类人事统计报表的设计、生成、表式的导入和导出、打印。第二章 需求分析2.1 需求的文字表述本系统是通过详细调查户为满足一些中小型企业公司的治理要求而制作的。目前，利用运算机治理企业信息差不多越来越普遍，能够讲运算机已成为一个企业不可或缺的“治理者”，它的方便性、安全性和可靠性也越来越受到人们的青睐。随着科技的进步，利用网络连接各个部门和各个企业单位也都成为现实。为了方便公司各个部门的业务联系和有关查询，本系统通常要进行必要的网络连接，之后便能够方便地使用，系统的特点如下：1、

3、可替代许多复杂的人工劳动，如统计、核算等工作，节约许多资源。2、便于领导对职员的工资、调度等信息进行查询。3、利于高级用户进行洗头膏信息治理和爱护，也承诺一般用户进行部分信息扫瞄、查看，以实现治理机制透亮化。4、提供了大量的操作提示，以其较强的容错能力，大大方便了治理者和用户的使用，确保了数据的安全性、正确性、完整性和一致性。5、能在专门大程度上优化企业治理，提升企业的工作效率。2.2 系统分析2.21 系统功能描述 本系统是在实际调查的基础上，结合宽敞中小型企业的共同点，严格遵循实事求是的原则创建而成的。目的是通过该系统实现人事治理，信息查询分析以及项目部门之间的调配工作等工作，最终实现科学

4、决策。2.2.2 功能模块划分 本系统从功能上分为个5模块，分不是用户治理、部门治理、人员治理、信息查询及系统设置。 1、用户治理：分为治理员和一般用户，要紧用户对公司职员信息的修整和查看 2、部门治理：用于部门的创建、删除及部门信息的修改和查询等 3、人员治理：用于对职员的添加、删除、信息的修改等进行治理操作 4、信息查询：用于对职员的详细信息、各部门查询操作 5、系统设置：用于对系统的一些差不多参数的设置2.3 系统功能模块第三章 概念模型设计3.1 局部E-R模型3.1.1 职员信息E-R图：要紧包括的属性有职员编号，姓名，性不，专业，外语情形，学历，婚姻状况3.1.2 部门信息E-R图

5、：要紧包括的属性有部门的编号，部门的名称，以及部门的描述3.1.3 外语情形信息E-R图：要紧包括的属性有岗位名称，岗位讲明，所属部门3.1.4 治理员E-R图：要紧包括的属性有治理员编号，治理员姓名，性不，年龄3.1.5 配偶信息E-R图：要紧包括的属性有职员编号，职员配偶姓名，配偶性不，工作单位3.2 集成E-R图要紧包括的实体有治理员，职员，部门，配偶，外语情形治理员与职员之间的关系是1：n配偶与职员之间的关系是1：1部门与职员之间的关系是1：n外语情形与职员之间的关系是1：n图3-6集成E-R图第四章 逻辑结构设计4.1 E-R图向关系模型的转换按照E-R图向关系模型转换的原则，将两个

6、实体转换为关系模式如下，其中码用下划线表示，同时不能为空。职员（职员编号，姓名，性不，专业，外语情形，学历，婚姻状况）部门（部门编号，部门名称，部门描述）外语情形（岗位名称，岗位讲明，所属部门）治理员（治理员编号，姓名，性不，年龄）配偶（职员编号，职员配偶姓名，性不，工作单位）4.2 关系表的建立4.2.1 职员信息表的建立 职员表中要紧包括的属性是职员编号，姓名，性不，专业，外语情形，学历，婚姻状况列名数据类型长度承诺空职员号CHAR10NOT NULL姓名CHAR10NOT NULL性不CHAR10YES专业CHAR10YES外语情形CHAR10YES学历CHAR10YES婚姻状况CHAR

7、10YES年龄CHAR10YES毕业时刻CHAR10YES毕业学校CHAR10YES表4-1 职员信息表 4.2.2 部门信息表的建立 部门信息表中包括的要紧的属性有部门的编号，部门的名称，以及部门的描述列名数据类型长度承诺空部门编号CHAR10NOT NULL部门名称CHAR10NOT NULL部门描述CHAR10YES表4-2 部门信息表 4.2.3 职员婚姻状况表的建立 职员婚姻状况表中包括的要紧属性有职员编号，职员配偶姓名，性不，配偶工作单位列名数据类型长度承诺空职员编号CHAR10NOT NULL职员配偶姓名CHAR10YES性不CHAR10YES配偶工作单位CHAR10YES 表4

8、-4 职员婚姻状况表4.2.4 职员学历信息表的建立 职员学历信息表中包括的要紧属性有职员编号，职员学历，专业、毕业时刻、学校、外语情形列名数据类型长度承诺空职员编号CHAR10NOT NULL职员学历CHAR10YES专业CHAR10YES毕业时刻CHAR10YES毕业学校CHAR10YES外语情形CHAR10YES 表4-5 职员学历信息表4.3 有关建表代码与截图4.3.1职员信息表的建立Create table 职员信息（职员编号 char(10) primary key, 姓名 char(10), 性不 char(10), 专业 char(10), 外语情形 char(10), 学历

9、 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) pri

10、mary key, 职员学历 char(10), 专业 char(10), 毕业时刻 char(10), 毕业学校 char(10), 外语情形 char(10);4.3.5以下为前台制作截图：主页代码无标题文档企业治理系统登陆查询系统更新系统 登陆页代码% * Validate request to log in to this site.MM_LoginAction = Request.ServerVariables(URL)If Request.QueryString Then MM_LoginAction = MM_LoginAction + ? + Server.HTMLE

11、ncode(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_rsU

12、ser.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.

13、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_fldUserAut

14、horization).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_redirectLo

15、ginFailed)End If%无标题文档form ACTION= id=form1 name=form1 method=POST 请输入用户名 请输入职员号 返回 无标题文档 姓名 年龄 性不 学历 专业 毕业时刻 毕业学校 外语情形 配偶 职员号 % While (Repeat1_numRows 0) AND (NOT Recordset1.EOF) % 返回 企业部门情形查询 职员差不多情形查询 工作岗位情形查询 职员婚姻情形查询 职员学历情形查询 返回 % * Edit Operations: declare variablesDim MM_editActionDim MM_abor

16、tEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerV

17、ariables(SCRIPT_NAME)If (Request.QueryString ) Then MM_editAction = MM_editAction & ? & Server.HTMLEncode(Request.QueryString)End If boolean to abort record editMM_abortEdit = false query string to executeMM_editQuery = % * Delete Record: declare variablesif (CStr(Request(MM_delete) = form1 And CStr

18、(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 execut