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

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

2、员工工资或员工信息进行输岀预览.5）系统管理：登录用户可对系统进行管理包括增加用户，修改用户，删除用户和修改密码.值得一提的是登录用户进行修改时仅限自身，不可对别的用户进行修改操作.数据库设计：2.1员工信息表：用户需要录入的员工信息表主要字段包括：员工编号、员工姓名、部门编号、性别、生日、住址、职位、岀 生地、联系电话。字段字段名类型宽度Nulls1员工编号char10否2员工姓名Char15否3部门编号Int4否4性别char2否5生日Char10否6住址Char30否7职位Varchar20否8岀生地Char10否9联系电话Char20否10最高学历Char20否字段字段名类型宽度Nul

3、ls1员工编号Char10否2加班日期Char10否3加班天数Int4是4加班补助Numeric9(10,0)是加班补助。2.2加班信息表：包括：员工编号、加班日期、加班天数、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养老保险Numeri

4、c9(19,4)是8其他补贴Numeric9(19,4)是9发放时间Char20否10加班补助Numeric9(18,0)是11缺勤扣除Numeric9(18,0)是12实发工资Numeric9(18,0)是缺勤信息表：包括：员工编号、缺勤日期、缺勤天数、缺勤类型、缺勤扣除。字段字段名类型宽度Nulls1员工编号Char10否2缺勤日期Char10否3缺勤天数char10是4缺勤类型Int4是5缺勤扣除char10是用户信息表：字段字段名类型宽度Nulls1用户名Char10否2用户密码Char20否3用户类型int4否用户类型。包括：用户名、用户密码、登录时间表：包括：用户名、用户类型、登录

5、时间。字段字段名类型宽度Nulls1用户名Char10否2用户类型Char10否3登录时间char40否部门信息表：包括：部门编号、部门名称、部门人数、部门级别字段字段名类型宽度Nulls1部门编号Int4否2部门名称Char20是3部门人数Int4是4部门级别char10是2.42.52.62.7代码3添加用户代码：在FormMain.vb窗体中:Imp orts System.lOPrivate Sub Menultem20_Click(ByValsender As System.Object, ByVal e As System.EventArgs) HandlesMen uItem20

6、.ClickEnd Sub 在 FormXTGL.vb 窗体中：Public Class FrmXTGLPrivate MyTag As StringPrivate Username As StringPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security

7、 Info=false;Initial Catalog=wage;Data Source=.;")Dim Cn As New OleDbConnectionDim cmd As OleDbCommandDim SQLString As String IfEnd IfTryIf MyTag = 1 ThenSQLString = "INSERT INTO 用户信息表 (用户名 , 用户密码 ,用户类型 )" & _ " VALUES('" & TextBox1.Text & "', "

8、& CInt(TextBox2.Text) & "," & _ ComboBox1.SelectedIndex & ")"ElseIf MyTag = 2 Then用户信息表 WHERE 用户名 ='" & TextBox1.Text & "'"SQLString = "DELETEElseIf MyTag = 3 ThenSQLString = "UpDate 用户信息表 SET 用户密码 ='" & TextBo

9、x2.Text & "',用户类型 =" & ComboBox1.SelectedIndex & "WHERE 用户名 ='" &TextBox1.Text & "'"ElseIf MyTag = 4 ThenIf TextBox1.Text = Username ThenSQLString = "UpDate 用户信息表 SET 用户密码 ='" & TextBox2.Text & "' WHERE 用户名

10、='" & TextBox1.Text & "'"ElseExit SubEnd IfEnd IfCn.ConnectionString = connstrCn.Open()cmd = New OleDbCommand(SQLString, Cn) cmd.ExecuteNonQuery()Catch ex As ExceptionMsgBox(ex.Message)End Trycmd.Dispose()Cn.Dispose()Button2.Enabled = FalseGetUser()End Sub4.3 修改用户界面 代码

11、如下：在 FrmMain.vb 窗体中：'/引入系统命名空间的文件Imports System.IOPrivate Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click/ 修改用户End Sub在 FormXTGL.vb 窗体中：Public Class FrmXTGLPrivate MyTag As StringPrivate Username As StringPrivate Sub Button2_Click(ByVal s

12、ender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")Dim Cn As New OleDbConnectionDim cmd As OleDbCommandDim SQLString As String/如果删除

13、自己的账户，将不能在使用本系统End IfTryIf MyTag = 1 ThenSQLString = "INSERT INTO 用户信息表 (用户名 , 用户密码 ,用户类型 )" & _ " VALUES('" & TextBox1.Text & "', " & CInt(TextBox2.Text) & "," & _ ComboBox1.SelectedIndex & ")"ElseIf MyTag = 2 The

14、n用户信息表 WHERE 用户名 ='" & TextBox1.Text & "'"SQLString = "DELETEElseIf MyTag = 3 ThenSQLString = "UpDate 用户信息表 SET 用户密码 ='" & TextBox2.Text &"',用户类型 =" & ComboBox1.SelectedIndex & "WHERE 用户名 ='" &TextBox1.

15、Text & "'"ElseIf MyTag = 4 ThenIf TextBox1.Text = Username ThenSQLString = "UpDate 用户信息表 SET 用户密码 ='" & TextBox2.Text & "' WHERE 用户名 ='" & TextBox1.Text & "'"Else/您无权修改别人的密码Exit SubEnd IfEnd IfCn.ConnectionString = conns

16、trCn.Open()cmd = New OleDbCommand(SQLString, Cn) cmd.ExecuteNonQuery()Catch ex As ExceptionMsgBox(ex.Message)End Trycmd.Dispose()Cn.Dispose()Button2.Enabled = FalseGetUser()End Sub 删除用户代码： 在 FrmMain.vb 窗体中：'/引入系统命名空间的文件Imports System.IOPrivate Sub MenuItem14_Click(ByVal sender As System.Object,

17、ByVal e As System.EventArgs) MenuItem14.Click/ 删 除用户HandlesEnd Sub在 login.vb 窗体中：“确定”按钮的 Text 属性变为“删除”，TextBox1 的 Visible 属性设置为 False 不可见， Label3 的 Visible 属性设置为 False 不可见， ComboBox1不可见， 的 Visible 属性设置为 False 不可见， Label2 的 Visible 属性设置为 False 不可见， TextBox2 的 Visible 属性设置为 False 不 可见Label1 的 Visible

18、属性设置为 FalsePrivate Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load GetUser()Button2.Enabled = FalseEnd IfEnd Sub在 FormXTGL.vb 窗体中：Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim connstr As N

19、ew String("provider=SQLOLEDB.1;UserInfo=false;Initial Catalog=wage;Data Source=.;")Dim Cn As New OleDbConnectionID=sa;PassWord=110;Persist SecurityDim cmd As OleDbCommandDim SQLString As StringIf TextBox1.Text = Username And MyTag = 2 ThenIf MsgBox(" 如果删除自己的账户，将不能在使用本系统。 MsgBoxResult.

20、No Then Exit SubEnd If", MsgBoxStyle.YesNo, " 警告！ ") =TryIf MyTag = 1 ThenSQLString = "INSERT INTO 用户信息表 (用户名 , 用户密码 ,用户类型 )" & _ " VALUES('" & TextBox1.Text & "', " & CInt(TextBox2.Text) & "," & _ ComboBox1.Selec

21、tedIndex & ")"ElseIf MyTag = 2 ThenSQLString = "DELETE 用户信息表 WHERE 用户名 ='" & TextBox1.Text & "'" ElseIf MyTag = 3 ThenSQLString = "UpDate 用户信息表 SET 用户密码 ='" & TextBox2.Text & _ "',用户类型 =" & ComboBox1.SelectedIn

22、dex & "WHERE 用户名 ='" & _TextBox1.Text & "'"ElseIf MyTag = 4 ThenIf TextBox1.Text = Username ThenSQLString = "UpDate 用户信息表 SET 用户密码 ='" & TextBox2.Text & "' WHERE 用户名 ='" & TextBox1.Text & "'"ElseEnd

23、 IfCn.ConnectionString = connstrCn.Open()cmd = New OleDbCommand(SQLString, Cn) cmd.ExecuteNonQuery()End Sub 修改用户代码如下： 在 FrmMain.vb 窗体中：Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click/ 修改个人密码Dim xgmm As New FrmXTGL(4, Username) xgmm.Sh

24、ow()End Sub在 FormXTGL.vb 窗体中：'/ 引入系统命名空间文件 Public Class FrmXTGLPrivate MyTag As StringPrivate Username As StringPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;P

25、ersist Security Info=false;Initial Catalog=wage;Data Source=.;")Dim Cn As New OleDbConnectionDim cmd As OleDbCommandDim SQLString As String/给出警告，不能修改别人的密码TryIf MyTag = 1 ThenSQLString = "INSERT INTO 用户信息表 (用户名 , 用户密码 ,用户类型 )" & _ " VALUES('" & TextBox1.Text &

26、 "', " & CInt(TextBox2.Text) & "," & _ ComboBox1.SelectedIndex & ")"ElseIf MyTag = 2 ThenSQLString = "DELETE 用户信息表 WHERE 用户名 ='" & TextBox1.Text & "'" ElseIf MyTag = 3 ThenSQLString = "UpDate 用户信息表 SET 用户密码 =&

27、#39;" & TextBox2.Text & _"',用户类型 =" & ComboBox1.SelectedIndex & "WHERE 用户名 ='" & _TextBox1.Text & "'"ElseIf MyTag = 4 ThenIf TextBox1.Text = Username ThenSQLString = "UpDate 用户信息表 SET 用户密码 ='" & TextBox2.Text &a

28、mp; "' WHERE 用户名 ='" & TextBox1.Text & "'"Else同样也可在工具栏中对用户密码进行修改 用户查询登录时间代码如下： 在 FrmMain.vb 窗体下：Private Sub MenuItem29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMenuItem29.Click/ 调用用户登录时间窗体Dim frmdl As New Formdlsj frmdl.Show()En

29、d Sub在 login.vb 窗体下：Imports System.DataPublic Class loginDim conn As New SqlConnection("data source=.;database=wage;integrated security=sspi;")Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim mf As New FrmMain(Label4.Text, Label5.Text)Dim s As String = Now.ToStringTryconn.Open()c.E