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

VB企业人事管理系统设计,最好是有论文的我现在只有50分,全给了急呀... VB企业人事管理系统设计,最好是有论文的
我现在只有50分,全给了
急呀
展开
 我来答
志成娱乐圈
2011-07-03 · 知道合伙人人力资源行家
志成娱乐圈
知道合伙人人力资源行家
采纳数:173 获赞数:2526
太仓志成人力资源有限公司创始人 太仓志成人力资源有限公司最佳员工

向TA提问 私信TA
展开全部
企业人事管理系统_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库添加成功。

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

用户登陆

核对密码
添加员工
档案录入
员工档案管理
员工表现
员工表现
考勤管理
工资设置
考勤管理
工资管理
计算工资
本月工资
人事变动
人事变动
luomandick
2011-07-02 · TA获得超过1175个赞
知道小有建树答主
回答量:902
采纳率:0%
帮助的人:718万
展开全部
专业制作 原创代码+详细注解···有意百度hi我··哈哈··
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式