课程设计企业人事信息管理系统.docx
《课程设计企业人事信息管理系统.docx》由会员分享，可在线阅读，更多相关《课程设计企业人事信息管理系统.docx（15页珍藏版）》请在冰点文库上搜索。
课程设计企业人事信息管理系统
课程设计企业人事信息管理系统
1概述:
1.1简单介绍本系统实现的内容
用户登录经过权限判断,普通用户不能浏览、阅读和查询信息,指定用户能够操作,能够进行信息录入、修改和删除的操作。
1.2系统的主要功能特点有:
1.2.1系统登录表单
该表单的功能是在系统被访问之前,要对进入系统的用户进行安全性检查,防止非法用户进行系统破坏数据及威胁系统安全,避免不必要的损失。
只有合法的用户在输入正确的密码后方可进入系统。
1.2.2系统分为五个大的功能模块:
用户在经过正确的登录后可进行—
1）人事管理:
包括部门信息和员工信息的查看,进行人员的调动,并查看各部门员工的福利待遇.
2）考勤管理:
进行日常出勤管理和加班出差的管理
3）工资管理:
可对各部门员工的工资进行登录和查询.
4）打印:
以条目或表格的形式对员工工资或员工信息进行输出预览.
5）系统管理:
登录用户可对系统进行管理包括增加用户,修改用户,删除用户和修改密码.值得一提的是登录用户进行修改时仅限自身,不可对别的用户进行修改操作.
数据库设计:
2.1员工信息表:
用户需要录入的员工信息表主要字段包括:
员工编号、员工姓名、部门编号、性别、生日、住址、职位、出生地、联系电话。
字段
字段名
类型
宽度
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
否
2.2加班信息表:
包括:
员工编号、加班日期、加班天数、加班补助。
字段
字段名
类型
宽度
Nulls
1
员工编号
Char
10
否
2
加班日期
Char
10
否
3
加班天数
Int
4
是
4
加班补助
Numeric
9（10,0）
是
2.3工资福利表:
包括:
员工编号、岗位工资、基本工资、伙食补贴、住房补贴、住房公积金、养老保险、其它补贴、发放时间、加班补助、缺勤扣除、实发工资。
字段
字段名
类型
宽度
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）
是
2.4缺勤信息表:
包括:
员工编号、缺勤日期、缺勤天数、缺勤类型、缺勤扣除。
字段
字段名
类型
宽度
Nulls
1
员工编号
Char
10
否
2
缺勤日期
Char
10
否
3
缺勤天数
char
10
是
4
缺勤类型
Int
4
是
5
缺勤扣除
char
10
是
2.5用户信息表:
包括:
用户名、用户密码、用户类型。
字段
字段名
类型
宽度
Nulls
1
用户名
Char
10
否
2
用户密码
Char
20
否
3
用户类型
int
4
否
2.6登录时间表:
包括:
用户名、用户类型、登录时间。
字段
字段名
类型
宽度
Nulls
1
用户名
Char
10
否
2
用户类型
Char
10
否
3
登录时间
char
40
否
2.7部门信息表:
包括:
部门编号、部门名称、部门人数、部门级别
字段
字段名
类型
宽度
Nulls
1
部门编号
Int
4
否
2
部门名称
Char
20
是
3
部门人数
Int
4
是
4
部门级别
char
10
是
3代码
添加用户代码:
在FormMain.vb窗体中:
ImportsSystem.Data.OleDb
ImportsSystem.Data.SqlClient
ImportsSystem.IO
ImportsSystem.Windows.Forms.Help
PrivateSubMenuItem20_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMenuItem20.Click
……
…..
…..
EndSub
在FormXTGL.vb窗体中:
ImportsSystem.Data.OleDb
ImportsSystem.Data.SqlClient
——————————————————————————————————————————————
PublicClassFrmXTGL
InheritsSystem.Windows.Forms.Form
PrivateMyTagAsString
PrivateUsernameAsString
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
DimconnstrAsNewString（"provider=SQLOLEDB.1;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;"）
DimCnAsNewOleDbConnection
DimcmdAsOleDbCommand
DimSQLStringAsString
If
…….
EndIf
Try
IfMyTag=1Then
SQLString="INSERTINTO用户信息表（用户名,用户密码,用户类型）"&_
"VALUES（'"&TextBox1.Text&"',"&CInt（TextBox2.Text）&","&_
ComboBox1.SelectedIndex&"）"
ElseIfMyTag=2Then
SQLString="DELETE用户信息表WHERE用户名='"&TextBox1.Text&"'"
ElseIfMyTag=3Then
SQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_
"',用户类型="&ComboBox1.SelectedIndex&"WHERE用户名='"&_
TextBox1.Text&"'"
ElseIfMyTag=4Then
IfTextBox1.Text=UsernameThen
SQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_
"'WHERE用户名='"&TextBox1.Text&"'"
Else
……….
ExitSub
EndIf
EndIf
Cn.ConnectionString=connstr
Cn.Open（）
cmd=NewOleDbCommand（SQLString,Cn）
cmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
cmd.Dispose（）
Cn.Dispose（）
Button2.Enabled=False
GetUser（）
EndSub
4.3修改用户界面
代码如下:
在FrmMain.vb窗体中:
'///////////引入系统命名空间的文件
ImportsSystem.Data.OleDb
ImportsSystem.Data.SqlClient
ImportsSystem.IO
ImportsSystem.Windows.Forms.Help
——————————————————————————————————————————————
PrivateSubMenuItem21_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMenuItem21.Click
//////修改用户
………
EndSub
在FormXTGL.vb窗体中:
ImportsSystem.Data.OleDb
ImportsSystem.Data.SqlClient
——————————————————————————————————————————————
PublicClassFrmXTGL
InheritsSystem.Windows.Forms.Form
PrivateMyTagAsString
PrivateUsernameAsString
——————————————————————————————————————————————
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
DimconnstrAsNewString（"provider=SQLOLEDB.1;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;"）
DimCnAsNewOleDbConnection
DimcmdAsOleDbCommand
DimSQLStringAsString
//如果删除自己的账户,将不能在使用本系统
…………
EndIf
Try
IfMyTag=1Then
SQLString="INSERTINTO用户信息表（用户名,用户密码,用户类型）"&_
"VALUES（'"&TextBox1.Text&"',"&CInt（TextBox2.Text）&","&_
ComboBox1.SelectedIndex&"）"
ElseIfMyTag=2Then
SQLString="DELETE用户信息表WHERE用户名='"&TextBox1.Text&"'"
ElseIfMyTag=3Then
SQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_
"',用户类型="&ComboBox1.SelectedIndex&"WHERE用户名='"&_
TextBox1.Text&"'"
ElseIfMyTag=4Then
IfTextBox1.Text=UsernameThen
SQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_
"'WHERE用户名='"&TextBox1.Text&"'"
Else
//您无权修改别人的密码
……
ExitSub
EndIf
EndIf
Cn.ConnectionString=connstr
Cn.Open（）
cmd=NewOleDbCommand（SQLString,Cn）
cmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
cmd.Dispose（）
Cn.Dispose（）
Button2.Enabled=False
GetUser（）
EndSub
删除用户代码:
在FrmMain.vb窗体中:
'///////////引入系统命名空间的文件
ImportsSystem.Data.OleDb
ImportsSystem.Data.SqlClient
ImportsSystem.IO
ImportsSystem.Windows.Forms.Help
PrivateSubMenuItem14_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMenuItem14.Click
/////////删除用户
……….
EndSub
在login.vb窗体中:
”确定”按钮的Text属性变为”删除”,Label1的Visible属性设置为False不可见,TextBox1的Visible属性设置为False不可见,Label3的Visible属性设置为False不可见,ComboBox1的Visible属性设置为False不可见,Label2的Visible属性设置为False不可见,TextBox2的Visible属性设置为False不可见
PrivateSublogin_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load
GetUser（）
ComboBox1.Items.Add（"普通用户"）
ComboBox1.Items.Add（"系统用户"）
Button2.Enabled=False
…….
…….
EndIf
EndSub
在FormXTGL.vb窗体中:
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
DimconnstrAsNewString（"provider=SQLOLEDB.1;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;"）
DimCnAsNewOleDbConnection
DimcmdAsOleDbCommand
DimSQLStringAsString
IfTextBox1.Text=UsernameAndMyTag=2Then
IfMsgBox（"如果删除自己的账户,将不能在使用本系统。
",MsgBoxStyle.YesNo,"警告!
"）=MsgBoxResult.NoThenExitSub
EndIf
Try
IfMyTag=1Then
SQLString="INSERTINTO用户信息表（用户名,用户密码,用户类型）"&_
"VALUES（'"&TextBox1.Text&"',"&CInt（TextBox2.Text）&","&_
ComboBox1.SelectedIndex&"）"
ElseIfMyTag=2Then
SQLString="DELETE用户信息表WHERE用户名='"&TextBox1.Text&"'"
ElseIfMyTag=3Then
SQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_
"',用户类型="&ComboBox1.SelectedIndex&"WHERE用户名='"&_
TextBox1.Text&"'"
ElseIfMyTag=4Then
IfTextBox1.Text=UsernameThen
SQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_
"'WHERE用户名='"&TextBox1.Text&"'"
Else
.......
EndIf
Cn.ConnectionString=connstr
Cn.Open（）
cmd=NewOleDbCommand（SQLString,Cn）
cmd.ExecuteNonQuery（）
………
EndSub
修改用户代码如下:
在FrmMain.vb窗体中:
PrivateSubMenuItem26_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMenuItem26.Click
//////////修改个人密码
DimxgmmAsNewFrmXTGL（4,Username）
xgmm.Show（）
EndSub
在FormXTGL.vb窗体中:
'//////////引入系统命名空间文件
ImportsSystem.Data.OleDb
ImportsSystem.Data.SqlClient
PublicClassFrmXTGL
InheritsSystem.Windows.Forms.Form
PrivateMyTagAsString
PrivateUsernameAsString
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
DimconnstrAsNewString（"provider=SQLOLEDB.1;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;"）
DimCnAsNewOleDbConnection
DimcmdAsOleDbCommand
DimSQLStringAsString
//给出警告,不能修改别人的密码
………
Try
IfMyTag=1Then
SQLString="INSERTINTO用户信息表（用户名,用户密码,用户类型）"&_
"VALUES（'"&TextBox1.Text&"',"&CInt（TextBox2.Text）&","&_
ComboBox1.SelectedIndex&"）"
ElseIfMyTag=2Then
SQLString="DELETE用户信息表WHERE用户名='"&TextBox1.Text&"'"
ElseIfMyTag=3Then
SQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_
"',用户类型="&ComboBox1.SelectedIndex&"WHERE用户名='"&_
TextBox1.Text&"'"
ElseIfMyTag=4Then
IfTextBox1.Text=UsernameThen
SQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_
"'WHERE用户名='"&TextBox1.Text&"'"
Else
……
……
同样也可在工具栏中对用户密码进行修改.
用户查询登录时间代码如下:
在FrmMain.vb窗体下:
PrivateSubMenuItem29_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMenuItem29.Click
‘/////调用用户登录时间窗体
DimfrmdlAsNewFormdlsj
frmdl.Show（）
EndSub
在login.vb窗体下:
ImportsSystem.Data.OleDb
ImportsSystem.Data.SqlClient
ImportsSystem.Data
PublicClasslogin
InheritsSystem.Windows.Forms.Form
DimconnAsNewSqlConnection（"datasource=.;database=wage;integratedsecurity=sspi;"）
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
IfTrim（GetPsw（Trim（Me.Label4.Text）））=Trim（Me.TextBox2.Text）AndLen（Me.Label4.Text）>0Then
DimmfAsNewFrmMain（Label4.
升级会员 