企业人事管理信息系统文件

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

企业人事管理信息系统

➢开发背景:

随着社会经济的快速发展,企业正想着大型化,规模化发展,而对于大中小企业,员工,职称等跟人事管理有关的信息也随之加剧增加。在这样的情况下再靠人工来处理这些信息就显得有些困难,而且非常容易出错。

因此我们根据这些需要将设计一个应用于企业的人事管理系统,由计算机来代替人工完成一系列的工作,诸如职工基本信息,信息修改,查询,打印等操作。这样就使办公人员可以轻松快捷地完成人事管理任务。

➢系统设计意义、目的

通过使用企业人事管理系统,使企业的人事管理系统化、规范化、自动化、从而达到提高企业管理效率的目的。

系统开发的总体任务是使办公人员可以轻松快捷地完成人事管理的任务。

➢需求分析:

任何一个组织或是集体,实现它内部人员的管理或是各个部门的协同工作都是必要的。通过运用Access和VB6.0实现一个人事管理信息系统。要求在计算机处理时,依条件的不同,

既能够处理职工信息按需查询,也能够接受管理人员对职工信息的录入和编辑。计算机处理的最终结果是产生各类表,包括员工个人基本信息表,职工家庭情况表。还有是对服务器端的管理,这点也很关键。最后是打印各种查询和各类表等。

➢开发设计思想

(1)尽量利用现有软硬件环境,采用先进的管理开发系统方案,从而达到充分利用企业现有资源,提高系统开发水平和应用效果的目的;

(2)系统应符合企业人事管理的规定,满足企业相关人员日常使用的需要,并达到操作过程中的直观、方便、使用、安全等要求;(3)系统采用模块化程序设计方法,既便于系统功能的各种组合和修改,又便于未参与开发的技术维护人进行补充、维护;

(4)系统应具备数据库维护功能,即使根据用户需求进行数据的添加、删除、修改、备份。

➢系统功能模块设计:

1登录界面:数据录入员凭个人帐号密码进入系统进行录入工作

2职工各信息表的输入:包括职工基本情况表、职工家庭情况表、考核情况表等。

3按条件查询:包括按工号查询、按姓名查询等。

4打印输出:各类情况表的打印输出。

5系统维护:数据备份、整理。

6退出:退出系统

➢数据项和数据结构如下:

●职工基本状况:包括数据库项有职工工号、职工姓名、

性别、所在部门、身份证号、民族、婚姻状况、参加工作时间、联系电话等。

●职工家庭情况:包括数据库项有职工姓名、家庭成员情

况、家庭地址等。

●考核情况:包括数据库项有部门名称、每周出勤情况等。➢数据库表设计:

1)表名:职工基本信息表

2)表名:职工家庭情况表

家庭电话文本20 家庭电话

3)表名:职工考勤表

➢以下是我做的模块介绍

(1)查询:

在菜单中有“查询”按扭,点击这个按扭,可以对职工信息进行更加详细的查找,如图,当复选职工号或者职工姓名前的小白框,并填写相应的所想查询职工的员工号或姓名,按“查询”,则可激

活界面中的查询结果,便可找到要查询的职工的基本信息以及职工家庭情况查询。

具体编码如下:

“查询”按钮控件源代码

Private Sub Command1_Click()

Dim rs As New ADODB.Recordset

If Option1.Value = True Then

txtsql = "select * from 职工家庭情况 where 职工号= " & Chr(39) & Trim(Text8.Text) & Chr(39)

rs.Open txtsql, Cnn, adOpenStatic, adLockOptimistic,

1

Text1.Text = rs.Fields(1)

Text2.Text = rs.Fields(0)

Text3.Text = rs.Fields(2)

Text4.Text = rs.Fields(3)

Text5.Text = rs.Fields(4)

Text6.Text = rs.Fields(5)

Else

If Option2.Value = True Then

txtsql = "select * from 职工家庭情况 where 姓名= " & Chr(39) & Trim(Text7.Text) & Chr(39)

rs.Open txtsql, Cnn, adOpenStatic, adLockOptimistic, 1

Text1.Text = rs.Fields(1)

Text2.Text = rs.Fields(0)

Text3.Text = rs.Fields(2)

Text4.Text = rs.Fields(3)

Text5.Text = rs.Fields(4)

Text6.Text = rs.Fields(5)

End If

End If

rs.Close

End Sub

Private Sub Form_Load()

End Sub

(2)打印输出:

进入此面板后,管理员可以打印预览职工的相关信息,为了便于打印输出,利用报表形式输出,分别提供了“职工信息表”、“职工考勤表”和“职工家庭情况表”3个报表输出,管理员选择相应的报表进行预览,单击“退出”按钮回到主控制面板

(3)系统维护:

这个模块是给管理员使用的专用模块,管理员可以对各个表的数据、各个员工的资料、工资的设定等数据进行数据备份和数据整理操作,这样方便了管理员在每一次数据更新后,方便的检查每个模块当前的数据和结构情况。

相关文档
最新文档