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

  • 格式:doc
  • 大小:113.50 KB
  • 文档页数:18

1 概述:1.1简单介绍本系统实现的内容用户登录通过权限判断,普通用户不能浏览、阅读和查询信息,指定用户可以操作,可以进行信息录入、修改和删除的操作。

1.2 系统的主要功能特点有:1.2.1系统登录表单该表单的功能是在系统被访问之前,要对进入系统的用户进行安全性检查,防止非法用户进行系统破坏数据及威胁系统安全,避免不必要的损失。

只有合法的用户在输入正确的密码后方可进入系统。

1.2.2系统分为五个大的功能模块:用户在经过正确的登录后可进行—1)人事管理:包括部门信息和员工信息的查看,进行人员的调动,并查看各部门员工的福利待遇.2)考勤管理:进行日常出勤管理和加班出差的管理3)工资管理:可对各部门员工的工资进行登录和查询.4)打印:以条目或表格的形式对员工工资或员工信息进行输出预览.5)系统管理:登录用户可对系统进行管理包括增加用户,修改用户,删除用户和修改密码.值得一提的是登录用户进行修改时仅限自身,不可对别的用户进行修改操作.数据库设计:2.1员工信息表:用户需要录入的员工信息表主要字段包括:员工编号、员工姓名、部门编号、性别、生日、住址、职位、出生地、联系电话。

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

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

2.4缺勤信息表:包括:员工编号、缺勤日期、缺勤天数、缺勤类型、缺勤扣除。

2.5用户信息表:包括:用户名、用户密码、用户类型。

2.6登录时间表:包括:用户名、用户类型、登录时间。

2.7部门信息表:包括:部门编号、部门名称、部门人数、部门级别3 代码添加用户代码:在FormMain.vb窗体中:Imports System.Data.OleDbImports System.Data.SqlClientImports System.IOImports System.Windows.Forms.HelpPrivate Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click………..…..End Sub在FormXTGL.vb窗体中:Imports System.Data.OleDbImports System.Data.SqlClient——————————————————————————————————————————————Public Class FrmXTGLInherits System.Windows.Forms.FormPrivate 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 Info=false;Initial Catalog=wage;Data Source=.;")Dim Cn As New OleDbConnectionDim cmd As OleDbCommandDim SQLString As StringIf…….End IfTryIf MyTag = 1 ThenSQLString = "INSERT INTO 用户信息表 (用户名,用户密码,用户类型)" & _" VALUES('" & TextBox1.Text & "', " & CInt(TextBox2.Text) & "," & _ComboBox1.SelectedIndex & ")"ElseIf MyTag = 2 ThenSQLString = "DELETE 用户信息表 WHERE 用户名='" & TextBox1.Text & "'"ElseIf MyTag = 3 ThenSQLString = "UpDate 用户信息表 SET 用户密码='" & TextBox2.Text & _"',用户类型=" & ComboBox1.SelectedIndex & " WHERE 用户名='" & _TextBox1.Text & "'"ElseIf MyTag = 4 ThenIf TextBox1.Text = Username ThenSQLString = "UpDate 用户信息表 SET 用户密码='" & TextBox2.Text & _"' WHERE 用户名='" & TextBox1.Text & "'"Else……….Exit 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修改用户界面代码如下:在FrmMain.vb窗体中:'/////////// 引入系统命名空间的文件Imports System.Data.OleDbImports System.Data.SqlClientImports System.IOImports System.Windows.Forms.Help——————————————————————————————————————————————Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click////// 修改用户………End Sub在FormXTGL.vb窗体中:Imports System.Data.OleDbImports System.Data.SqlClient——————————————————————————————————————————————Public Class FrmXTGLInherits System.Windows.Forms.FormPrivate MyTag As StringPrivate Username As String——————————————————————————————————————————————Private 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 Info=false;Initial Catalog=wage;Data Source=.;")Dim Cn As New OleDbConnectionDim cmd As OleDbCommandDim SQLString As String//如果删除自己的账户,将不能在使用本系统…………End IfTryIf MyTag = 1 ThenSQLString = "INSERT INTO 用户信息表 (用户名,用户密码,用户类型)" & _" VALUES('" & TextBox1.Text & "', " & CInt(TextBox2.Text) & "," & _ComboBox1.SelectedIndex & ")"ElseIf MyTag = 2 ThenSQLString = "DELETE 用户信息表 WHERE 用户名='" & TextBox1.Text & "'"ElseIf MyTag = 3 ThenSQLString = "UpDate 用户信息表 SET 用户密码='" & TextBox2.Text & _"',用户类型=" & ComboBox1.SelectedIndex & " WHERE 用户名='" & _TextBox1.Text & "'"ElseIf MyTag = 4 ThenIf TextBox1.Text = Username ThenSQLString = "UpDate 用户信息表 SET 用户密码='" & TextBox2.Text & _"' WHERE 用户名='" & TextBox1.Text & "'"Else//您无权修改别人的密码……Exit 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 Sub删除用户代码:在FrmMain.vb窗体中:'/////////// 引入系统命名空间的文件Imports System.Data.OleDbImports System.Data.SqlClientImports System.IOImports System.Windows.Forms.HelpPrivate Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click///////// 删除用户……….End Sub在login.vb窗体中:“确定”按钮的Text属性变为“删除”,Label1的Visible属性设置为False 不可见, TextBox1的Visible属性设置为False不可见,Label3的Visible属性设置为False不可见,ComboBox1的Visible属性设置为False不可见,Label2的Visible属性设置为False不可见,TextBox2的Visible属性设置为False不可见Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadGetUser()ComboBox1.Items.Add("普通用户")ComboBox1.Items.Add("系统用户")Button2.Enabled = False…….…….End IfEnd Sub在FormXTGL.vb窗体中:Private 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 Info=false;Initial Catalog=wage;Data Source=.;")Dim Cn As New OleDbConnectionDim cmd As OleDbCommandDim SQLString As StringIf TextBox1.Text = Username And MyTag = 2 ThenIf MsgBox("如果删除自己的账户,将不能在使用本系统。