企业管理系统.docx

上传人:b****2 文档编号:17217597 上传时间:2023-04-24 格式:DOCX 页数:47 大小:492.93KB
下载 相关 举报
企业管理系统.docx_第1页
第1页 / 共47页
企业管理系统.docx_第2页
第2页 / 共47页
企业管理系统.docx_第3页
第3页 / 共47页
企业管理系统.docx_第4页
第4页 / 共47页
企业管理系统.docx_第5页
第5页 / 共47页
点击查看更多>>
下载资源
资源描述

企业管理系统.docx

《企业管理系统.docx》由会员分享,可在线阅读,更多相关《企业管理系统.docx(47页珍藏版)》请在冰豆网上搜索。

企业管理系统.docx

企业管理系统

企业管理系统

 

课程设计报告

课程设计名称人事治理系统

专业运算机科学与技术

班级3

学号

姓名

指导教师于桂玲

成绩

 

年月日

 

 

第一章概述

企业之间的竞争要紧体现在三个方面:

产品市场的竞争、资金市场的竞争和人才市场的竞争。

在网络经济的环境下,人才是企业生存进展的基础,企业必须建立有效的人力资源治理系统,才能在竞争中取得优势。

完善的人力资源治理的两大目标是:

第一,有效地降低治理层、职员和人力资源部职员用于人力资源治理上的时刻消耗;第二,要促使人力资源部和治理层更加关注“增长活动”,从而吸引、进展和留住优秀人才。

人事治理系统能够实现功能包括“人事信息爱护”、“数据查询”、“系统爱护”。

该系统应该提供人事信息的录入(修改)、删除、统计:

人事常用的数据查询(包括各种复杂查询),各类人事统计报表的设计、生成、表式的导入和导出、打印。

第二章需求分析

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.2部门信息E-R图:

要紧包括的属性有部门的编号,部门的名称,以及部门的描述

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.1E-R图向关系模型的转换

按照E-R图向关系模型转换的原则,将两个实体转换为关系模式如下,其中码用下划线表示,同时不能为空。

职员(职员编号,姓名,性不,专业,外语情形,学历,婚姻状况)

部门(部门编号,部门名称,部门描述)

外语情形(岗位名称,岗位讲明,所属部门)

治理员(治理员编号,姓名,性不,年龄)

配偶(职员编号,职员配偶姓名,性不,工作单位)

 

4.2关系表的建立

4.2.1职员信息表的建立

职员表中要紧包括的属性是职员编号,姓名,性不,专业,外语情形,学历,婚姻状况

列名

数据类型

长度

承诺空

职员号

CHAR

10

NOTNULL

姓名

CHAR

10

NOTNULL

性不

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

NOTNULL

部门名称

CHAR

10

NOTNULL

部门描述

CHAR

10

YES

表4-2部门信息表

4.2.3职员婚姻状况表的建立

职员婚姻状况表中包括的要紧属性有职员编号,职员配偶姓名,性不,配偶工作单位

列名

数据类型

长度

承诺空

职员编号

CHAR

10

NOTNULL

职员配偶姓名

CHAR

10

YES

性不

CHAR

10

YES

配偶工作单位

CHAR

10

YES

表4-4职员婚姻状况表

4.2.4职员学历信息表的建立

职员学历信息表中包括的要紧属性有职员编号,职员学历,专业、毕业时刻、学校、外语情形

列名

数据类型

长度

承诺空

职员编号

CHAR

10

NOTNULL

职员学历

CHAR

10

YES

专业

CHAR

10

YES

毕业时刻

CHAR

10

YES

毕业学校

CHAR

10

YES

外语情形

CHAR

10

YES

表4-5职员学历信息表

4.3有关建表代码与截图

4.3.1职员信息表的建立

Createtable职员信息

职员编号char(10)primarykey,

姓名char(10),

性不char(10),

专业char(10),

外语情形char(10),

学历char(10),

婚姻状况char(10)

);

4.3.2部门信息表的建立

Createtable部门信息

部门编号char(10)primarykey,

部门名称char(10),

部门描述char(10)

);

 

4.3.3职员婚姻表的建立

Createtable职员婚姻表

职员编号char(10)primarykey,

职员配偶姓名char(10),

职员性不char(10),

工作单位char(10)

);

4.3.4职员学历表的建立职员编号,职员学历,专业、毕业时刻、学校、外语情形

Createtable职员学历表

职员编号char(10)primarykey,

职员学历char(10),

专业char(10),

毕业时刻char(10),

毕业学校char(10),

外语情形char(10)

);

4.3.5以下为前台制作截图:

主页代码

无标题文档

--

.STYLE1{

font-size:

x-large;

color:

#336699;

font-weight:

bold;

}

-->

企业治理系统

登陆

查询系统

更新系统

 

登陆页代码

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile="Connections/san.asp"-->

<%

DimRecordset1

DimRecordset1_numRows

SetRecordset1=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

%>

<%

'***Validaterequesttologintothissite.

MM_LoginAction=Request.ServerVariables("URL")

IfRequest.QueryString<>""ThenMM_LoginAction=MM_LoginAction+"?

"+Server.HTMLEncode(Request.QueryString)

MM_valUsername=CStr(Request.Form("textfield"))

IfMM_valUsername<>""Then

MM_fldUserAuthorization=""

MM_redirectLoginSuccess="dlcg.asp"

MM_redirectLoginFailed="dlsb.asp"

MM_flag="ADODB.Recordset"

setMM_rsUser=Server.CreateObject(MM_flag)

MM_rsUser.ActiveConnection=MM_san_STRING

MM_rsUser.Source="SELECT姓名,职员号"

IfMM_fldUserAuthorization<>""ThenMM_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

IfNotMM_rsUser.EOFOrNotMM_rsUser.BOFThen

'usernameandpasswordmatch-thisisavaliduser

Session("MM_Username")=MM_valUsername

If(MM_fldUserAuthorization<>"")Then

Session("MM_UserAuthorization")=CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)

Else

Session("MM_UserAuthorization")=""

EndIf

ifCStr(Request.QueryString("accessdenied"))<>""AndfalseThen

MM_redirectLoginSuccess=Request.QueryString("accessdenied")

EndIf

MM_rsUser.Close

Response.Redirect(MM_redirectLoginSuccess)

EndIf

MM_rsUser.Close

Response.Redirect(MM_redirectLoginFailed)

EndIf

%>

无标题文档

"id="form1"name="form1"method="POST">

请输入用户名

请输入职员号

返回

<%

Recordset1.Close()

SetRecordset1=Nothing

%>

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile="Connections/san.asp"-->

<%

DimRecordset1

DimRecordset1_numRows

SetRecordset1=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

%>

<%

DimRepeat1__numRows

DimRepeat1__index

Repeat1__numRows=10

Repeat1__index=0

Recordset1_numRows=Recordset1_numRows+Repeat1__numRows

%>

无标题文档

姓名

年龄

性不

学历

专业

毕业时刻

毕业学校

外语情形

配偶

职员号

<%While((Repeat1__numRows<>0)AND(NOTRecordset1.EOF))%>

<%=(Recordset1.Fields.Item("姓名").Value)%>

<%=(Recordset1.Fields.Item("年龄").Value)%>

<%=(Recordset1.Fields.Item("性不").Value)%>

<%=(Recordset1.Fields.Item("学历").Value)%>

<%=(Recordset1.Fields.Item("专业").Value)%>

<%=(Recordset1.Fields.Item("毕业时刻").Value)%>

<%=(Recordset1.Fields.Item("毕业学校").Value)%>

<%=(Recordset1.Fields.Item("外语情形").Value)%>

<%=(Recordset1.Fields.Item("配偶").Value)%>

<%=(Recordset1.Fields.Item("职员号").Value)%>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

Recordset1.MoveNext()

Wend

%>

返回

<%

Recordset1.Close()

SetRecordset1=Nothing

%>

企业部门情形查询

职员差不多情形查询

工作岗位情形查询

职员婚姻情形查询

职员学历情形查询

返回

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile="Connections/san.asp"-->

<%

'***EditOperations:

declarevariables

DimMM_editAction

DimMM_abortEdit

DimMM_editQuery

DimMM_editCmd

DimMM_editConnection

DimMM_editTable

DimMM_editRedirectUrl

DimMM_editColumn

DimMM_recordId

DimMM_fieldsStr

DimMM_columnsStr

DimMM_fields

DimMM_columns

DimMM_typeArray

DimMM_formVal

DimMM_delim

DimMM_altVal

DimMM_emptyVal

DimMM_i

MM_editAction=CStr(Request.ServerVariables("SCRIPT_NAME"))

If(Request.QueryString<>"")Then

MM_editAction=MM_editAction&"?

"&Server.HTMLEncode(Request.QueryString)

EndIf

'booleantoabortrecordedit

MM_abortEdit=false

'querystringtoexecute

MM_editQuery=""

%>

<%

'***DeleteRecord:

declarevariables

if(CStr(Request("MM_delete"))="form1"AndCStr(Request("MM_recordId"))<>"")Then

MM_editConnection=MM_san_STRING

MM_editTable="职员差不多信息表"

MM_editColumn="姓名"

MM_recordId="'"+Request.Form("MM_recordId")+"'"

MM_editRedirectUrl="shanccg.html"

'appendthequerystringtotheredirectURL

If(MM_editRedirectUrl<>""AndRequest.QueryString<>"")Then

If(InStr(1,MM_editRedirectUrl,"?

",vbTextCompare)=0AndRequest.QueryString<>"")Then

MM_editRedirectUrl=MM_editRedirectUrl&"?

"&Request.QueryString

Else

MM_editRedirectUrl=MM_editRedirectUrl&"&"&Request.QueryString

EndIf

EndIf

EndIf

%>

<%

'***DeleteRecord:

constructasqldeletestatementandexecut

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > PPT模板 > 中国风

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1