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

VB课程设计企业人事信息管理系统2008-09-27 23:55分类：计算机类知识 字号： 大大 中中 小小 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加班日期 Char 10否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员工编号 Char 10否2缺勤日期 Char 10否3缺勤天数char 10是4缺勤类型 Int 4是5缺勤扣除 char 10是2.5用户信息表： 包括：用户名、用户密码、 用户类型。字段字段名类型宽度Nulls1用户名 Char 10否2用户密码 Char 20否3用户类型int 4否2.6登录时间表： 包括：用户名、用户类型、登录时间。字段字段名类型宽度Nulls1用户名 Char 10否2用户类型 Char 10否3登录时间char 40否2.7部门信息表： 包括：部门编号、部门名称、部门人数、部门级别字段字段名类型宽度Nulls1部门编号 Int 4否2部门名称 Char20是3部门人数Int 4是4部门级别 char 10是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.SqlClientPublic Class FrmXTGL Inherits System.Windows.Forms.Form Private MyTag As String Private Username As StringPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim 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 OleDbConnection Dim cmd As OleDbCommand Dim SQLString As String If . End If Try If MyTag = 1 Then SQLString = INSERT INTO 用户信息表 (用户名,用户密码,用户类型) & _ VALUES( & TextBox1.Text & , & CInt(TextBox2.Text) & , & _ ComboBox1.SelectedIndex & ) ElseIf MyTag = 2 Then SQLString = DELETE 用户信息表 WHERE 用户名= & TextBox1.Text & ElseIf MyTag = 3 Then SQLString = UpDate 用户信息表 SET 用户密码= & TextBox2.Text & _ ,用户类型= & ComboBox1.SelectedIndex & WHERE 用户名= & _ TextBox1.Text & ElseIf MyTag = 4 Then If TextBox1.Text = Username Then SQLString = UpDate 用户信息表 SET 用户密码= & TextBox2.Text & _ WHERE 用户名= & TextBox1.Text & Else . Exit Sub End If End If Cn.ConnectionString = connstr Cn.Open() cmd = New OleDbCommand(SQLString, Cn) cmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try cmd.Dispose() Cn.Dispose() Button2.Enabled = False GetUser() End Sub4.3修改用户界面代码如下：在FrmMain.vb窗体中：/ 引入系统命名空间的文件Imports System.Data.OleDbImports System.Data.SqlClientImports System.IOImports System.Windows.Forms.HelpPrivate 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.SqlClientPublic Class FrmXTGL Inherits System.Windows.Forms.Form Private MyTag As StringPrivate Username As String Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim 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 OleDbConnection Dim cmd As OleDbCommand Dim SQLString As String /如果删除自己的账户，将不能在使用本系统 End If Try If MyTag = 1 Then SQLString = INSERT INTO 用户信息表 (用户名,用户密码,用户类型) & _ VALUES( & TextBox1.Text & , & CInt(TextBox2.Text) & , & _ ComboBox1.SelectedIndex & ) ElseIf MyTag = 2 Then SQLString = DELETE 用户信息表 WHERE 用户名= & TextBox1.Text & ElseIf MyTag = 3 Then SQLString = UpDate 用户信息表 SET 用户密码= & TextBox2.Text & _ ,用户类型= & ComboBox1.SelectedIndex & WHERE 用户名= & _ TextBox1.Text & ElseIf MyTag = 4 Then If TextBox1.Text = Username Then SQLString = UpDate 用户信息表 SET 用户密码= & TextBox2.Text & _ WHERE 用户名= & TextBox1.Text & Else /您无权修改别人的密码 Exit Sub End If End If Cn.ConnectionString = connstr Cn.Open() cmd = New OleDbCommand(SQLString, Cn) cmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try cmd.Dispose() Cn.Dispose() Button2.Enabled = False GetUser() 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.Load GetUser() 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.Click Dim 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 OleDbConnection Dim cmd As OleDbCommand Dim SQLString As String If TextBox1.Text = Username And MyTag = 2 Then If MsgBox(如果删除自己的账户，将不能在使用本系统。, MsgBoxStyle.YesNo, 警告！) = MsgBoxResult.No Then Exit Sub End If Try If MyTag = 1 Then SQLString = INSERT INTO 用户信息表 (用户名,用户密码,用户类型) & _ VALUES( & TextBox1.Text & , & CInt(TextBox2.Text) & , & _ ComboBox1.SelectedIndex & ) ElseIf MyTag = 2 Then SQLString = DELETE 用户信息表 WHERE 用户名= & TextBox1.Text & ElseIf MyTag = 3 Then SQLString = UpDate 用户信息表 SET 用户密码= & TextBox2.Text & _ ,用户类型= & ComboBox1.SelectedIndex & WHERE 用户名= & _ TextBox1.Text & ElseIf MyTag = 4 Then If TextBox1.Text = Username Then SQLString = UpDate 用户信息表 SET 用户密码= & TextBox2.Text & _ WHERE 用户名= & TextBox1.Text & Else . End If Cn.ConnectionString = connstr Cn.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.Show()End Sub在FormXTGL.vb窗体中：/ 引入系统命名空间文件Imports System.Data.OleDbImports System.Data.SqlClientPublic Class FrmXTGL Inherits System.Windows.Forms.Form Private MyTag As String Private Username As StringPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim 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 OleDbConnection Dim cmd As OleDbCommand Dim SQLString As String /给出警告，不能修改别人的密码 Try If MyTag = 1 Then SQLString = INSERT INTO 用户信息表 (用户名,用户密码,用户类型) & _ VALUES( & TextBox1.Text & , & CInt(TextBox2.Text) & , & _ ComboBox1.SelectedIndex & ) ElseIf MyTag = 2 Then SQLString = DELETE 用户信息表 WHERE 用户名= & TextBox1.Text & ElseIf MyTag = 3 Then SQLString = UpDate 用户信息表 SET 用户密码= & TextBox2.Text & _ ,用户类型= & ComboBox1.SelectedIndex & WHERE 用户名= & _ TextBox1.Text & ElseIf MyTag = 4 Then If TextBox1.Text = Username Then SQLString = UpDate 用户信息表 SET 用户密码= & TextBox2.Text & _ WHERE 用户名= & TextBox1.Text & Else 同样也可在工具栏中对用户密码进行修改. 用户查询登录时间代码如下：在FrmMain.vb窗体下： Private Sub MenuItem29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem29.Click /调用用户登录时间窗体Dim frmdl As New Formdlsj frmdl.Show() End Sub在login.vb窗体下：Imports System.Data.OleDbImports System.Data.SqlClientImports System.DataPublic Class login Inherits System.Windows.Forms.FormDim 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.Click If Trim(GetPsw(Trim(Me.Label4.Text) = Trim(Me.TextBox2.Text) And Len(Me.Label4.Text) 0 Then Dim mf As New FrmMain(Label4.Text, Label5.Text) Dim s As String = Now.ToString Dim c As New SqlCommand(insert into 登录时间表(用户名,用户类型,登录时间) values( & Label4.Text.Trim & , & Label5.Text & , & s.Substring(0, 15) & ), conn) Try conn.Open() c.ExecuteNonQuery() conn.Close() mf.Show() M