VB课程设计企业人事信息管理系统

1、1 概述：简单介绍本系统实现的内容用户登录通过权限判断，普通用户不能浏览、阅读和查询信息，指定用户可以操作，可以进行信息录入、修改和删除的操作。系统的主要功能特点有: 该表单的功能是在系统被访问之前，要对进入系统的用户进行安全性检查，防止非法用户进行系统破坏数据及威胁系统安全，避免不必要的损失。只有合法的用户在输入正确的密码后方可进入系统。用户在经过正确的登录后可进行 1) 人事管理 : 包括部门信息和员工信息的查看, 进行人员的调动 , 并查看各部门员工的福利待遇 . 2) 考勤管理 : 进行日常出勤管理和加班出差的管理3) 工资管理 : 可对各部门员工的工资进行登录和查询. 4) 打印:

2、以条目或表格的形式对员工工资或员工信息进行输出预览. 5) 系统管理 : 登录用户可对系统进行管理包括增加用户, 修改用户 , 删除用户和修改密码 . 值得一提的是登录用户进行修改时仅限自身, 不可对别的用户进行修改操作. 数据库设计：员工信息表：用户需要录入的员工信息表主要字段包括：员工编号、员工姓名、部门编号、性别、生日、住址、职位、出生地、联系电话。字段字段名类型宽度nulls 1 员工编号char 10 否2 员工姓名char 15 否3 部门编号int 4 否4 性别char 2 否5 生日char 10 否6 住址char 30 否7 职位varchar 20 否8 出生地 cha

3、r 10 否9 联系电话char 20 否10 最高学历 char 20 否加班信息表：包括：员工编号、加班日期、加班天数、加班补助。字段字段名类型宽度nulls 1 员工编号char 10 否2 加班日期 char 10 否3 加班天数int 4 是4 加班补助numeric 9(10,0) 是工资福利表：包括：员工编号、岗位工资、基本工资、伙食补贴、住房补贴、住房公积金、养老保险、其他补贴、发放时间、加班补助、缺勤扣除、实发工资。字段字段名类型宽度nulls 1 员工编号char 10 否2 岗位工资numeric 9(19,4) 是3 基本工资numeric 9(19,4) 是4 伙食补

4、贴numeric 9(19,4) 是5 住房补贴numeric 9(19,4) 是6 住房公积金numeric 9(19,4) 是7 养老保险numeric 9(19,4) 是8 其他补贴numeric 9(19,4) 是9 发放时间char 20 否10 加班补助numeric 9(18,0) 是11 缺勤扣除numeric 9(18,0) 是12 实发工资numeric 9(18,0) 是缺勤信息表：包括：员工编号、缺勤日期、缺勤天数、缺勤类型、缺勤扣除。字段字段名类型宽度nulls 1 员工编号 char 10 否2 缺勤日期 char 10 否3 缺勤天数char 10 是4 缺勤类型

5、 int 4 是5 缺勤扣除 char 10 是用户信息表：包括：用户名、用户密码、用户类型。字段字段名类型宽度nulls 1 用户名 char 10 否2 用户密码 char 20 否3 用户类型int 4 否登录时间表：包括：用户名、用户类型、登录时间。字段字段名类型宽度nulls 1 用户名 char 10 否2 用户类型 char 10 否3 登录时间char 40 否部门信息表：包括：部门编号、部门名称、部门人数、部门级别字段字段名类型宽度nulls 1 部门编号 int 4 否2 部门名称 char 20 是3 部门人数int 4 是4 部门级别 char 10 是3 代码添加用户

6、代码：在窗体中：imports private sub menuitem20_click(byval sender as , byval e as handles . . end sub 在窗体中：public class frmxtgl private mytag as string private username as string private sub button2_click(byval sender as , byval e as handles dim connstr as new string(provider=;user id=sa;password=110;persis

7、t security info=false;initial catalog=wage;data source=.;) dim cn as new oledbconnection dim cmd as oledbcommand dim sqlstring as string if . end if try if mytag = 1 then sqlstring = insert into 用户信息表 ( 用户名 , 用户密码 , 用户类型 ) & _ values( & & , & cint & , & _ & ) elseif mytag

8、 = 2 then sqlstring = delete 用户信息表 where 用户名 = & & elseif mytag = 3 then sqlstring = update 用户信息表 set 用户密码 = & & _ ,用户类型 = & & where 用户名 = & _ & elseif mytag = 4 then if = username then sqlstring = update 用户信息表 set 用户密码 = & & _ where 用户名 = & & else . e

9、xit sub end if end if = connstr () cmd = new oledbcommand(sqlstring, cn) () catch ex as exception msgbox end try () () = false getuser() end sub 修改用户界面代码如下：在窗体中：) dim cn as new oledbconnection dim cmd as oledbcommand dim sqlstring as string end sub 在窗体中：“确定”按钮的text 属性变为“删除”，label1 的 visible属性设置为fals

10、e 不可见， textbox1的 visible属性设置为 false 不可见，label3的 visible属性设置为false 不可见， combobox1的 visible属性设置为false不可见， label2 的 visible属性设置为 false 不可见， textbox2 的 visible属性设置为 false 不可见private sub login_load(byval sender as , byval e as handles getuser() = false . . end if end sub 在窗体中：private sub button2_click(by

11、val sender as , byval e as handles dim connstr as new string(provider=;user id=sa;password=110;persist security info=false;initial catalog=wage;data source=.;) dim cn as new oledbconnection dim cmd as oledbcommand dim sqlstring as string if = username and mytag = 2 then if msgbox(如果删除自己的账户，将不能在使用本系统

12、。, , 警告！ ) = then exit sub end if try if mytag = 1 then sqlstring = insert into 用户信息表 ( 用户名 , 用户密码 , 用户类型 ) & _ values( & & , & cint & , & _ & ) elseif mytag = 2 then sqlstring = delete 用户信息表 where 用户名 = & & elseif mytag = 3 then sqlstring = update 用户信息表 set 用户密码

13、= & & _ ,用户类型 = & & where 用户名 = & _ & elseif mytag = 4 then if = username then sqlstring = update 用户信息表 set 用户密码 = & & _ where 用户名 = & & else . end if = connstr () cmd = new oledbcommand(sqlstring, cn) () end sub 修改用户代码如下：在窗体中：private sub menuitem26_click(byva

14、l sender as , byval e as handles ) dim cn as new oledbconnection dim cmd as oledbcommand dim sqlstring as string 用户查询登录时间代码如下：在窗体下： private sub menuitem29_click(byval sender as , byval e as handles database=wage;integrated security=sspi;) private sub button2_click(byval sender as , byval e as handle

15、s dim mf as new frmmain, dim s as string = try () () () () () catch ex as exception msgbox end try else msgbox(请选择您的姓名并输入正确的密码！) end if end sub 在 formdlsj窗体下：imports public class formdlsj dim con as new sqlconnection(data source=.;database=wage;integrated security=sspi) dim ds as new dataset private sub formdlsj_load(byval sender as , byval e as handles dim ad as new sqldataadapter(select * from 登录时间表 , con) () (ds) (0). = 登录时间 = (0).defaultview end sub end class 第五章课程设计总结本系统从功能上可以分为下列五个模块：系统管理、部门管理、人员管理、工资管理及打印管理。系统管理（包括用户管理）：分为系统用户和普通用户，主要对公司员工信息修整和