课程设计企业人事信息管理系统文档格式.docx
《课程设计企业人事信息管理系统文档格式.docx》由会员分享，可在线阅读，更多相关《课程设计企业人事信息管理系统文档格式.docx（15页珍藏版）》请在冰豆网上搜索。
员工编号、员工姓名、部门编号、性别、生日、住址、职位、出生地、联系电话。
字段
字段名
类型
宽度
Nulls
1
员工编号
char
10
否
2
员工姓名
Char
15
3
部门编号
Int
4
性别
5
生日
10
6
住址
30
7
职位
Varchar
20
8
出生地
Char
9
联系电话
最高学历
2.2加班信息表：
包括：
员工编号、加班日期、加班天数、加班补助。
加班日期
Char
加班天数
是
加班补助
Numeric
9（10,0）
2.3工资福利表：
包括：
员工编号、岗位工资、基本工资、伙食补贴、住房补贴、住房公积金、养老保险、其他补贴、发放时间、加班补助、缺勤扣除、实发工资。
岗位工资
9（19,4）
基本工资
伙食补贴
住房补贴
住房公积金
养老保险
其他补贴
发放时间
9（18,0）
11
缺勤扣除
12
实发工资
2.4缺勤信息表：
员工编号、缺勤日期、缺勤天数、缺勤类型、缺勤扣除。
10
缺勤日期
缺勤天数
缺勤类型
Int
4
char
2.5用户信息表：
用户名、用户密码、用户类型。
用户名
用户密码
20
用户类型
int
2.6登录时间表：
用户名、用户类型、登录时间。
登录时间
40
2.7部门信息表：
部门编号、部门名称、部门人数、部门级别
部门名称
部门人数
部门级别
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窗体中：
——————————————————————————————————————————————
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
DELETE用户信息表WHERE用户名='
ElseIfMyTag=3Then
UpDate用户信息表SET用户密码='
TextBox2.Text&
用户类型="
WHERE用户名='
ElseIfMyTag=4Then
IfTextBox1.Text=UsernameThen
Else
……….
ExitSub
Cn.ConnectionString=connstr
Cn.Open（）
cmd=NewOleDbCommand（SQLString,Cn）
cmd.ExecuteNonQuery（）
CatchexAsException
MsgBox（ex.Message）
EndTry
cmd.Dispose（）
Cn.Dispose（）
Button2.Enabled=False
GetUser（）
4.3修改用户界面
代码如下：
在FrmMain.vb窗体中：
///////////引入系统命名空间的文件
PrivateSubMenuItem21_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMenuItem21.Click
//////修改用户
………
PrivateUsernameAsString
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
//如果删除自己的账户，将不能在使用本系统
…………
//您无权修改别人的密码
……
删除用户代码：
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
ComboBox1.Items.Add（"
普通用户"
系统用户"
…….
IfTextBox1.Text=UsernameAndMyTag=2Then
IfMsgBox（"
如果删除自己的账户，将不能在使用本系统。
MsgBoxStyle.YesNo,"
警告！
）=MsgBoxResult.NoThenExitSub
.......
修改用户代码如下：
PrivateSubMenuItem26_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMenuItem26.Click
//////////修改个人密码
DimxgmmAsNewFrmXTGL（4,Username）
xgmm.Show（）
//////////引入系统命名空间文件
//给出警告，不能修改别人的密码
………
……
同样也可在工具栏中对用户密码进行修改.
用户查询登录时间代码如下：
在FrmMain.vb窗体下：
PrivateSubMenuItem29_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMenuItem29.Click
‘/////调用用户登录时间窗体
DimfrmdlAsNewFormdlsj
frmdl.Show（）
在login.vb窗体下：
ImportsSystem.Data
PublicClasslogin
DimconnAsNewSqlConnection（"
datasource=.;
database=wage;
integratedsecurity=sspi;
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登录时间表（用户名,用
升级会员 