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

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

' sstrecord.tab = 0

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

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

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库添加成功。

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

用户登陆

核对密码
添加员工
档案录入
员工档案管理
员工表现
员工表现
考勤管理
工资设置
考勤管理
工资管理
计算工资
本月工资
人事变动
人事变动

专业制作 原创代码+详细注解···有意百度hi我··哈哈··