VB课程设计企业人事信息管理系统.pdf
VB 课程设计企业人事信息管理系统 集团标准化工作小组 Q8QX9QT-X8QQB8Q8-NQ8QJ8-M8QMN 1 概述：简单介绍本系统实现的内容 用户登录通过权限判断，普通用户不能浏览、阅读和查询信息，指定用户可以操作，可以进行信息录入、修改和删除的操作。系统的主要功能特点有:该表单的功能是在系统被访问之前，要对进入系统的用户进行安全性检查，防止非法用户进行系统破坏数据及威胁系统安全，避免不必要的损失。只有合法的用户在输入正确的密码后方可进入系统。用户在经过正确的登录后可进行 1)人事管理:包括部门信息和员工信息的查看,进行人员的调动,并查看各部门员工的福利待遇.2)考勤管理:进行日常出勤管理和加班出差的管理 3)工资管理:可对各部门员工的工资进行登录和查询.4)打印:以条目或表格的形式对员工工资或员工信息进行输出预览.5)系统管理:登录用户可对系统进行管理包括增加用户,修改用户,删除用户和修改密码.值得一提的是登录用户进行修改时仅限自身,不可对别的用户进行修改操作.数据库设计：员工信息表：用户需要录入的员工信息表主要字段包括：员工编号、员工姓名、部门编号、性别、生日、住址、职位、出生地、联系电话。字段 字段名 类型 宽度 Nulls 1 员工编号 char 10 否 2 员工姓名 Char 15 否 3 部门编号 Int 4 否 4 性别 char 2 否 5 生日 Char 10 否 6 住址 Char 30 否 7 职位 Varchar 20 否 8 出生地 Char 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 伙食补贴 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 缺勤类型 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 代码 添加用户代码：在窗体中：Imports Imports Imports PrivateSubMenuItem20_Click,.EndSub 在窗体中：Imports Imports PublicClassFrmXTGL Inherits PrivateMyTagAsString PrivateUsernameAsString PrivateSubButton2_Click,DimconnstrAsNewString(provider=;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;)DimCnAsNewOleDbConnection DimcmdAsOleDbCommand DimSQLStringAsString If.EndIf Try IfMyTag=1Then SQLString=INSERTINTO 用户信息表(用户名,用户密码,用户类型)&_ VALUES(&,&CInt&,&_&)ElseIfMyTag=2Then SQLString=DELETE 用户信息表 WHERE 用户名=&ElseIfMyTag=3Then SQLString=UpDate 用户信息表 SET 用户密码=&_,用户类型=&WHERE 用户名=&_&ElseIfMyTag=4Then=UsernameThen SQLString=UpDate 用户信息表 SET 用户密码=&_ WHERE 用户名=&Else.ExitSub EndIf EndIf=connstr()cmd=NewOleDbCommand(SQLString,Cn)()CatchexAsException MsgBox EndTry()()=False GetUser()EndSub 修改用户界面 代码如下：在窗体中：)DimCnAsNewOleDbConnection DimcmdAsOleDbCommand DimSQLStringAsString EndSub 在窗体中：“确定”按钮的 Text 属性变为“删除”，Label1 的 Visible 属性设置为False 不可见，TextBox1 的 Visible 属性设置为 False 不可见，Label3 的 Visible 属性设置为 False 不可见，ComboBox1 的 Visible 属性设置为 False 不可见，Label2 的Visible 属性设置为 False 不可见，TextBox2 的 Visible 属性设置为 False 不可见 PrivateSublogin_Load,GetUser()=False .EndIf EndSub 在窗体中：PrivateSubButton2_Click,DimconnstrAsNewString(provider=;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;)DimCnAsNewOleDbConnection DimcmdAsOleDbCommand DimSQLStringAsString=UsernameAndMyTag=2Then IfMsgBox(如果删除自己的账户，将不能在使用本系统。,警告！)=EndIf Try IfMyTag=1Then SQLString=INSERTINTO 用户信息表(用户名,用户密码,用户类型)&_ VALUES(&,&CInt&,&_&)ElseIfMyTag=2Then SQLString=DELETE 用户信息表 WHERE 用户名=&ElseIfMyTag=3Then SQLString=UpDate 用户信息表 SET 用户密码=&_,用户类型=&WHERE 用户名=&_&ElseIfMyTag=4Then=UsernameThen SQLString=UpDate 用户信息表 SET 用户密码=&_ WHERE 用户名=&Else.EndIf=connstr()cmd=NewOleDbCommand(SQLString,Cn)()EndSub 修改用户代码如下：在窗体中：PrivateSubMenuItem26_Click,)DimCnAsNewOleDbConnection DimcmdAsOleDbCommand DimSQLStringAsString 用户查询登录时间代码如下：在窗体下：PrivateSubMenuItem29_Click,database=wage;integratedsecurity=sspi;)PrivateSubButton2_Click,If=And0Then DimmfAsNewFrmMain,DimsAsString=DimcAsNewSqlCommand(insertinto 登录时间表(用户名,用户类型,登录时间)values(&,&,&(0,15)&),conn)Try()()()()()CatchexAsException MsgBox EndTry Else MsgBox(请选择您的姓名并输入正确的密码！)EndIf EndSub 在 Formdlsj 窗体下：Imports PublicClassFormdlsj Inherits DimconAsNewSqlConnection(datasource=.;database=wage;integratedsecurity=sspi)DimdsAsNewDataSet PrivateSubFormdlsj_Load,DimadAsNewSqlDataAdapter(select*from 登录时间表,con)()(ds)(0).=登录时间=(0).DefaultView EndSub EndClass 第五章课程设计总结 本系统从功能上可以分为下列五个模块：系统管理、部门管理、人员管理、工资管理及打印管理。系统管理（包括用户管理）：分为系统用户和普通用户，主要对公司员工信息修整和查看，同时可以添加删除修改用户，修改密码；部门管理：对各部门之间的调动、调整以及相关信息的改变；人员管理：对员工的添加、删除、信息修改、考勤结果进行管理操作；工资管理：对员工的基本工资、资金补贴等任务的管理操作；打印管理：对员工的信息资料、工资等相关项目和内容进行报表预览。本系统可方便高级用户进行系统信息管理和维护，并允许普通用户进行部分信息浏览、察看，实行机制透明化管理，同时该系统提供了大量操作提示，以其较强的容错能力，大大方便了管理者和用户的使用。确保了数据的安全性、正确性、完整性和一致性。
