13390人事管理系统答辩稿.ppt

* * 企业人事管理系统 学 生： 学 号： 专 业： 指导教师： 人事管理的背景 人才之争是市场竞争中的核心内容之一。因此，先进的人力资源管理系统越来越引人注目。企业管理从根本上来讲就是对人的管理。现在“公平、公正、合理”的企业管理原则已为不少企业所采纳。力资源管理是集团组织的发展举足轻重的原动力，人力资源管理是集团间竞争的主要支撑，是集团组织中需要优先增值的资源。 人事管理的意义 全球范围内的企业内部组织正在发生巨变，未来企业成功的关键的依靠企业人力资源，人才之争已经成为市场竞争中的核心内容之一，以人为本成为企业立足和发展的根本。有效力管理企业的人力资源，为企业提供强有力的储备力量，使之成为企业发展的主动力。通过人力资源的有效管理，掌握最新的、准确的企业人力资源信息，并对其进行复杂的统计与分析，从而充分发挥每个员工的潜能，为企业创造更大的价值。 系统需求 要求良好的人机操作界面。 企业员工人事信息管理。 企业员工工作部门管理。 企业员工薪酬信息的管理。 系统用户信息管理，较好的权限管理。 要求良好的查询功能。 系统结构模式 C/S结构就是“客户端/服务端”的一种工作模式。一般来说，这种模式都会要求安装一个客户端程序，由这个程序和服务器端进行协同工作，因为由客户端来专门处理一些工作，所以C/S结构的程序一般都功能强大、界面漂亮，由于任务分散在服务器端和客户端分别进行，所以提高了硬件的利用效率，对于程序员来说，编程开发也更加的容易。 系统功能结构 系统编码 部门编号 部门编号是根据级别订制的。其设计思路是：1级部门编号2位，初始值“01”，后面的部门编号依次往下排（如“02”、“03”等）；2级部门编号4位，初始值依据上级编号，如果上级编号为“01”，则该部门编号为“0101”，如果上级编号为“02”，则该部门编号为“0201”；其他级别的部门编号的位数为级别乘2，编码思路与上面同理。 人员编号 人员编号为5位数字编码，初始值为“00001”，后面的人员编号依次往下排。 数据表 数据库命名为DB_TEST ,主要表有： 人事表——————————存储人事信息 员工奖励表————————存储对员工的奖励信息 员工惩罚表————————存储对员工的惩罚信息 工资表——————————存储员工工资信息 权限信息表————————存储用户权限信息 部门表——————————存储部门信息 还有一些基本信息表项，共16张表 开发及运行环境 硬件平台： 普通PC机，无特别要求 软件平台： 系统开发语言：Visual Basic 6.0。 后台数据库：Access 2000。 运行平台：Windows XP 数据库连接 为了减少重复的数据连接和为日后修改程序提供接口，在公用模块（Module1）中建立了数据库连接函数cnn和cnStr。如果使用对象操作数据库，可以调用cnn函数；如果使用ADO控件访问数据库，则可以调用字符串函数cnStr，并将该函数值赋给ADO控件的ConnectionString属性。具代码如下： Public Function Cnn() As ADODB.Connection Set Cnn = New ADODB.Connection Cnn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \db_test.mdb;Persist Security Info=False End Function 系统主界面 单击菜单命令，进入相应的功能模块。 自定义函数blnPower，用于判断操作员的权限，如果有权限，返回值为True；如果无权限，返回值为False，代码如下： Dim i As Integer, A As Integer Function blnPower(str As String) As Boolean Dim rs1 As New ADODB.Recordset rs1.Open select * from 权限信息表 where 操作员= czy , Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then If rs1.Fields(str) = False Then blnPower = False Else blnPower = True End If End If rs1.Close End Function 部门管理界面 窗体主要使用了Toolbar、ImageList、TreeView和T