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

课程设计企业人事信息管理系统1概述:1.1简单介绍本系统实现的内容用户登录经过权限判断,普通用户不能浏览、阅读和查询信息,指定用户能够操作,能够进行信息录入、修改和删除的操作。1.2系统的主要功能特点有:1.2.1系统登录表单该表单的功能是在系统被访问之前,要对进入系统的用户进行安全性检查,防止非法用户进行系统破坏数据及威胁系统安全,避免不必要的损失。只有合法的用户在输入正确的密码后方可进入系统。1.2.2系统分为五个大的功能模块:用户在经过正确的登录后可进行—1)人事管理:包括部门信息和员工信息的查看,进行人员的调动,并查看各部门员工的福利待遇.2)考勤管理:进行日常出勤管理和加班出差的管理3)工资管理:可对各部门员工的工资进行登录和查询.4)打印:以条目或表格的形式对员工工资或员工信息进行输出预览.5)系统管理:登录用户可对系统进行管理包括增加用户,修改用户,删除用户和修改密码.值得一提的是登录用户进行修改时仅限自身,不可对别的用户进行修改操作.

数据库设计:2.1员工信息表:用户需要录入的员工信息表主要字段包括:员工编号、员工姓名、部门编号、性别、生日、住址、职位、出生地、联系电话。

字段字段名类型宽度Nulls1员工编号char10否2员工姓名Char15否3部门编号Int4否4性别char2否5生日Char10否6住址Char30否7职位Varchar20否8出生地Char10否9联系电话Char20否10最高学历Char20否

2.2加班信息表:包括:员工编号、加班日期、加班天数、加班补助。

字段字段名类型宽度Nulls1员工编号Char10否2加班日期Char10否3加班天数Int4是4加班补助Numeric9(10,0)是

2.3工资福利表:包括:员工编号、岗位工资、基本工资、伙食补贴、住房补贴、住房公积金、养老保险、其它补贴、发放时间、加班补助、缺勤扣除、实发工资。

字段字段名类型宽度Nulls1员工编号Char10否2岗位工资Numeric9(19,4)是3基本工资Numeric9(19,4)是4伙食补贴Numeric9(19,4)是5住房补贴Numeric9(19,4)是6住房公积金Numeric9(19,4)是7养老保险Numeric9(19,4)是8其它补贴Numeric9(19,4)是9发放时间Char20否10加班补助Numeric9(18,0)是11缺勤扣除Numeric9(18,0)是12实发工资Numeric9(18,0)是

2.4缺勤信息表:包括:员工编号、缺勤日期、缺勤天数、缺勤类型、缺勤扣除。字段字段名类型宽度Nulls1员工编号Char10否2缺勤日期Char10否3缺勤天数char10是4缺勤类型Int4是5缺勤扣除char10是

2.5用户信息表:包括:用户名、用户密码、用户类型。字段字段名类型宽度Nulls1用户名Char10否2用户密码Char20否3用户类型int4否

2.6登录时间表:包括:用户名、用户类型、登录时间。字段字段名类型宽度Nulls1用户名Char10否2用户类型Char10否3登录时间char40否

2.7部门信息表:包括:部门编号、部门名称、部门人数、部门级别字段字段名类型宽度Nulls1部门编号Int4否2部门名称Char20是3部门人数Int4是4部门级别char10是3代码

添加用户代码:

在FormMain.vb窗体中:ImportsSystem.Data.OleDbImportsSystem.Data.SqlClientImportsSystem.IOImportsSystem.Windows.Forms.HelpPrivateSubMenuItem20_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem20.Click …… ….. …..EndSub在FormXTGL.vb窗体中:ImportsSystem.Data.OleDbImportsSystem.Data.SqlClient——————————————————————————————————————————————PublicClassFrmXTGLInheritsSystem.Windows.Forms.FormPrivateMyTagAsStringPrivateUsernameAsStringPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimconnstrAsNewString("provider=SQLOLEDB.1;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;")DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsStringIf…….EndIfTryIfMyTag=1ThenSQLString="INSERTINTO用户信息表(用户名,用户密码,用户类型)"&_"VALUES('"&TextBox1.Text&"',"&CInt(TextBox2.Text)&","&_ComboBox1.SelectedIndex&")"ElseIfMyTag=2ThenSQLString="DELETE用户信息表WHERE用户名='"&TextBox1.Text&"'"ElseIfMyTag=3ThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_"',用户类型="&ComboBox1.SelectedIndex&"WHERE用户名='"&_TextBox1.Text&"'"ElseIfMyTag=4ThenIfTextBox1.Text=UsernameThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_"'WHERE用户名='"&TextBox1.Text&"'"Else……….ExitSubEndIfEndIfCn.ConnectionString=connstrCn.Open()cmd=NewOleDbCommand(SQLString,Cn)cmd.ExecuteNonQuery()CatchexAsExceptionMsgBox(ex.Message)EndTrycmd.Dispose()Cn.Dispose()Button2.Enabled=FalseGetUser()EndSub4.3修改用户界面代码如下:在FrmMain.vb窗体中:'///////////引入系统命名空间的文件ImportsSystem.Data.OleDbImportsSystem.Data.SqlClientImportsSystem.IOImportsSystem.Windows.Forms.Help——————————————————————————————————————————————PrivateSubMenuItem21_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem21.Click//////修改用户………EndSub在FormXTGL.vb窗体中:ImportsSystem.Data.OleDbImportsSystem.Data.SqlClient——————————————————————————————————————————————PublicClassFrmXTGLInheritsSystem.Windows.Forms.FormPrivateMyTagAsStringPrivateUsernameAsString——————————————————————————————————————————————PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimconnstrAsNewString("provider=SQLOLEDB.1;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;")DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsString//如果删除自己的账户,将不能在使用本系统…………EndIfTryIfMyTag=1ThenSQLString="INSERTINTO用户信息表(用户名,用户密码,用户类型)"&_"VALUES('"&TextBox1.Text&"',"&CInt(TextBox2.Text)&","&_ComboBox1.SelectedIndex&")"ElseIfMyTag=2ThenSQLString="DELETE用户信息表WHERE用户名='"&TextBox1.Text&"'"ElseIfMyTag=3ThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_"',用户类型="&ComboBox1.SelectedIndex&"WHERE用户名='"&_TextBox1.Text&"'"ElseIfMyTag=4ThenIfTextBox1.Text=UsernameThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_"'WHERE用户名='"&TextBox1.Text&"'"Else//您无权修改别人的密码……ExitSubEndIfEndIfCn.ConnectionString=connstrCn.Open()cmd=NewOleDbCommand(SQLString,Cn)cmd.ExecuteNonQuery()CatchexAsExceptionMsgBox(ex.Message)EndTrycmd.Dispose()Cn.Dispose()Button2.Enabled=FalseGetUser()EndSub删除用户代码:在FrmMain.vb窗体中:'///////////引入系统命名空间的文件ImportsSystem.Data.OleDbImportsSystem.Data.SqlClientImportsSystem.IOImportsSystem.Windows.Forms.HelpPrivateSubMenuItem14_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.LoadGetUser()ComboBox1.Items.Add("普通用户")ComboBox1.Items.Add("系统用户")Button2.Enabled=False …….…….EndIfEndSub在FormXTGL.vb窗体中:PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimconnstrAsNewString("provider=SQLOLEDB.1;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;")DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsStringIfTextBox1.Text=UsernameAndMyTag=2ThenIfMsgBox("如果删除自己的账户,将不能在使用本系统。",MsgBoxStyle.YesNo,"警告!")=MsgBoxResult.NoThenExitSubEndIfTryIfMyTag=1ThenSQLString="INSERTINTO用户信息表(用户名,用户密码,用户类型)"&_"VALUES('"&TextBox1.Text&"',"&CInt(TextBox2.Text)&","&_ComboBox1.SelectedIndex&")"ElseIfMyTag=2ThenSQLString="DELETE用户信息表WHERE用户名='"&TextBox1.Text&"'"ElseIfMyTag=3ThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_"',用户类型="&ComboBox1.SelectedIndex&"WHERE用户名='"&_TextBox1.Text&"'"ElseIfMyTag=4ThenIfTextBox1.Text=UsernameThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_"'WHERE用户名='"&TextBox1.Text&"'"Else.......EndIfCn.ConnectionString=connstrCn.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.OleDbImportsSystem.Data.SqlClientPublicClassFrmXTGLInheritsSystem.Windows.Forms.FormPrivateMyTagAsStringPrivateUsernameAsStringPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimconnstrAsNewString("provider=SQLOLEDB.1;UserID=sa;PassWord=110;PersistSecurityInfo=false;InitialCatalog=wage;DataSource=.;")DimCnAsNewOleDbConnectionDimcmdAsOleDbCommandDimSQLStringAsString//给出警告,不能修改别人的密码………TryIfMyTag=1ThenSQLString="INSERTINTO用户信息表(用户名,用户密码,用户类型)"&_"VALUES('"&TextBox1.Text&"',"&CInt(TextBox2.Text)&","&_ComboBox1.SelectedIndex&")"ElseIfMyTag=2ThenSQLString="DELETE用户信息表WHERE用户名='"&TextBox1.Text&"'"ElseIfMyTag=3ThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_"',用户类型="&ComboBox1.SelectedIndex&"WHERE用户名='"&_TextBox1.Text&"'"ElseIfMyTag=4ThenIfTextBox1.Text=UsernameThenSQLString="UpDate用户信息表SET用户密码='"&TextBox2.Text&_"'WHERE用户名='"&TextBox1.Text&"'"Else…………同样也可在工具栏中对用户密码进行修改.用户查询登录时间代码如下:在FrmMain.vb窗体下:PrivateSubMenuItem29_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem29.Click‘/////调用用户登录时间窗体DimfrmdlAsNewFormdlsjfrmdl.Show()EndSub在login.vb窗体下:ImportsSystem.Data.OleDbImportsSystem.Data.SqlClientImportsSystem.DataPublicClassloginInheritsSystem.Windows.Forms.FormDimconnAsNewSqlConnection("datasource=.;database=wage;integratedsecurity=sspi;")PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfTrim(GetPsw(Trim(Me.Label4.Text)))=Trim(Me.TextBox2.Text)AndLen(Me.Label4.Text)>0ThenDimmfAsNewFrmMain(Label4.Text,Label5.Text)DimsAsString=Now.ToStringDimcAsNewSqlCommand("insertinto登录时间表(用户名,用户类型,登录时间)values('"&Label4.Text.Trim&"','"&Label5.Text&"','"&s.Substring(0,15)&"')",conn)Try