vb企业人事管理系统,跪求！ 数据库要用ACCESS的

企业人事管理系统_VB毕业设计

call txtstate1

'sstrecord.tab = 0

信息的查询通过查询窗体来实现，考勤信息的查询窗体：

在窗体上放置多个文本框和下拉式列表框，用来输入员工个人基本信息 。从窗体上可以看到在这一个窗体内可以对信息进行添加、编辑、删除、移动，一个窗体解决了四种不同的 *** 作，当选择修改和删除员工信息 *** 作时出现的也是这个界面。其中“移动”的作用是按照编号的顺序，可以在此窗体中逐个查看员工信息。<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

msgbox "原身份不能为空", , "验证失败"

企业人事管理系统_VB毕业设计

'txtcode.text = ""

企业人事管理系统_VB毕业设计

msgbox "错误描述：" &err.description &vbcrlf &"错误代码：" &err.number, vbcritical + vbokonly, "非法 *** 作"

rsrecord.cancelupdate

call uprsvalue '//调用更新记录集的过程

unload me

企业人事管理系统_VB毕业设计

'end if

'else

rsrecord.update '//更新记录

case -2147217887

企业人事管理系统_VB毕业设计

strsql = "select 员工编号 from 员工档案 where 员工编号='" &trim(txtcode.text) &"'"

sstrecord.tab = 0

企业人事管理系统_VB毕业设计

'if rscheckcode.recordcount >0 then

在这个界面上还可以添加工作经验，查看信息列表，这是通过一个控件sstab（属性页控件）实现的，将各种文本录入控件放在属性页控件的各个页面上，组成“基本信息”、“工作经验”、“信息列表”。

用户输入完毕后，单击“cmdsave ” 按钮将触发click 事件，代码如下：

private sub cmdsave_click()

dim strsql as string

if trim(txtforid.text) <>empty then

on error goto errsave

'if rscheckcode.state = adstateclosed then

'rscheckcode.open strsql, dbcon, adopenkeyset, adlockpessimistic, adcmdtext

'msgbox "员工编号已存在", vbinformation + vbokonly, "验证错误"

'rscheckcode.close

'txtcode.setfocus

call cmdmove_click

msgbox "数据已保存", , "保存成功"

call cmdstate2

'end if

else

sstrecord.tab = 1

end if

exit sub

errsave:

select case err.number

msgbox "员工编号已存在," &vbcrlf &"或性别、婚姻状况、部门、职称有空选项！", vbinformation + vbokonly, "输入错误"

case else

end select

end sub

程序首先对是否输入内容进行判断，然后进行格式判断，判断是否有重复记录是很重要的，否则数据库将发生错误，最后根据状态来显示相应的信息，如果添加成功，将提示添加成功。

5.3系统的实现

程序对数据库的访问需要通过odbc（数据源）来实现。打开 “控制面板”中的“odbc”，创建文件dsn。本程序需要创建的文件名称为personnel.dsn ,登陆方式选择使用输入登陆id和密码的sql server 验证，登陆id为sa ，密码为空，默认连接数据库personnel。

由于程序利用ado（activex data objevt）完成对数据的访问和 *** 作，需要添加ado库。选择visual basic 的“projevt”菜单中的“references”选择“microsoftactivex data object 2.6 liibrary”。aoo库添加成功。

完成了程序各个功能模块的创建，现在来看整个系统的运行。运行程序出现登录界面：

用户登陆

核对密码

添加员工

档案录入

员工档案管理

员工表现

员工表现

考勤管理

工资设置

考勤管理

工资管理

计算工资

本月工资

人事变动

人事变动

这个系统最终实现的主要功能如下：

员工基本信息部分：主要完成对员工基本信息的添加、修改、删除、查询等管理。

员工档案信息部分：主要完成对员工档案信息的添加、修改、删除、查询等管理。

员工部门信息部分：主要完成对对员工所属部门的添加、修改、删除、查询等管理。

员工工资信息部分：主要完成对员工工资信息的添加、修改、删除、查询等管理。

员工保险信息部分：主要完成对员工保障信息的添加、修改、删除、查询等管理。

员工合同信息部分：主要完成员工与企业签订合同的一系列信息的添加、修改、删除、查询管理。

员工配偶信息（工号，配偶姓名， 出生年月，工作单位，电话）的工号参照员工基本信息的工号。

员工学历信息（工号，员工姓名，学历，毕业学校，专业，毕业时间，外语情况）的工号参照员工基本信息的工号。

企业工作岗位信息（工号，学历，部门，职位）的工号参照员工基本信息的工号，部门参照企业部门信息的部门

员工基本信息与员工配偶信息建立关于工号的父子关系。

员工基本信息与员工学历信息建立关于工号的父子关系。

员工基本信息与企业工作岗位信息建立关于工号的父子关系

。 企业工作岗位信息与员工基本信息建立关于工号的父子关系。

企业工作岗位信息与企业部门信息建立关于部门的父子关系。

采纳吧

1.1 系统目标设计

通过一个企业人事管理系统,使企业的人事管理工作系统化、规

范化、自动化，从而达到提高企业人事管理效率的目的。

1.2 开发设计思想

本系统的开发设计思想：

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

2、系统应符合企业人事管理的规定，满足公司日常员工管理的工作需要，并达到 *** 作过程中的直观、方便、实用、安全等要求；

3、系统采用模块化程序设计方法，即便于系统功能的各种组合修改，又便于未参与开发的技术维护人员补充、维护；

4、系统应具备数据库维护功能，及时根据用户需求进行数据的添加、删除、修改、备份等 *** 作。

1.3 开发和运行环境选择

开发工具：Visual FoxPro6.0

运行环境：Windows 9x、Windows NT或Windows 2000。

1.4 系统功能分析

1、密码设置：每个 *** 作员均有自己的密码，可以防止非本系统

人员进入本系统；每个人的权限不一致，故可以防止越权 *** 作。

2、权限设置：设置每个人的权限，使个人有个人的 *** 作范围，不

能超出自己的范围 *** 作。一般只有系统管理员可以进行权限设置。

3、初始化：将计算机中保留的上一次 *** 作的结果清除，调用基本数据以备重新

查询、更新、统计、输出等更多的执行。

4、档案更新：为了存放职工人事档案的全部数据，本系统将每一

名职工的档案分为人事卡片、家庭成员和社会关系分别存放。档案

更新包括对各种表的记录修改、删除、添加等 *** 作。

5、档案查询：可以按姓名、部门或任意条件查询个人和一部分人

的情况。

6、档案统计：包括统计文化程度、技术职务、政治面貌、年龄、

工资等。

7、档案输出：输出个人档案、全体档案、人事卡片、单位名

册、团员名册到屏幕或打印机上。

8、其他 *** 作：包括修改密码、设置权限等。

9、退出：可以存盘退出或直接退出。

1.5 1.5 系统功能模块设计

在系统功能分析的基础上，考虑Visual FoxPro6.0程序编制

点，得到如图1-1所示的系统功能模块图。

欢迎界面

输入密码 修改密码

主界面

初 档 档 档 档 其 退

始 案 案 案 案 他

化 查 更 统 输 ***

询 新 计 出 作 出

档案统计

统 统 统 统 统 统

计 计 计 计 计 计

年 文 技 政 民 工

龄 化 术 治 族 资

程 职 面 婚

度 务 貌 姻

档案输出

个 全 职 打 打 打

人 体 工 印 印 印

档 档 基 人 单 团

案 案 本 事 位 员

输 输 信 卡 名 名

出 出 息 片 册 册

其他 *** 作

权 修 页 打 打 关于

限 改 面 印

设 密 设 设

置 码 置 置 印

保存退出

退

出

直接退出

---