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

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在FormXTG