课程设计企业人事信息管理系统.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.Text,Label5.Text)
DimsAsString=Now.ToString
DimcAsNewSqlCommand("insertinto登录时间表(用户名,用