课程设计企业人事信息管理系统文档格式.docx

1、员工编号、员工姓名、部门编号、性别、生日、住址、职位、出生地、联系电话。字段字段名类型宽度Nulls1员工编号char10否2员工姓名Char153部门编号Int4性别5生日10 6住址307职位Varchar208出生地 Char9联系电话最高学历2.2加班信息表： 包括：员工编号、加班日期、加班天数、 加班补助。加班日期 Char 加班天数是加班补助Numeric9（10,0）2.3工资福利表：包括：员工编号、岗位工资、基本工资、伙食补贴、住房补贴、住房公积金、养老保险、其他补贴、发放时间、加班补助、缺勤扣除、实发工资。岗位工资9（19,4）基本工资伙食补贴住房补贴住房公积金养老保险其他补

2、贴发放时间9（18,0）11缺勤扣除12实发工资2.4缺勤信息表：员工编号、缺勤日期、缺勤天数、缺勤类型、缺勤扣除。 10缺勤日期缺勤天数缺勤类型 Int 4 char2.5用户信息表：用户名、用户密码、 用户类型。用户名用户密码 20用户类型int2.6登录时间表：用户名、用户类型、登录时间。登录时间 402.7部门信息表：部门编号、部门名称、部门人数、部门级别部门名称部门人数部门级别3 代码 添加用户代码：在FormMain.vb窗体中：Imports System.Data.OleDbImports System.Data.SqlClientImports System.IOImport

3、s System.Windows.Forms.HelpPrivate Sub MenuItem20_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles MenuItem20.Click . End Sub在FormXTGL.vb窗体中：Public Class FrmXTGL Inherits System.Windows.Forms.Form Private MyTag As String Private Username As StringPrivate Sub Button2_Click（By

4、Val 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 . En

5、d If Try If MyTag = 1 Then SQLString = INSERT INTO 用户信息表 （用户名,用户密码,用户类型） & _ VALUES（ TextBox1.Text &, CInt（TextBox2.Text） &, ComboBox1.SelectedIndex &） ElseIf MyTag = 2 ThenDELETE 用户信息表 WHERE 用户名= ElseIf MyTag = 3 ThenUpDate 用户信息表 SET 用户密码= TextBox2.Text &,用户类型= WHERE 用户名= ElseIf MyTag = 4 Then If T

6、extBox1.Text = Username Then Else . Exit Sub 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（）4.3修改用户界面代码如下：在FrmMain.vb窗体中：/ 引入系统命名空间的文件Priv

7、ate Sub MenuItem21_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles MenuItem21.Click / 修改用户 Private Username As String Private Sub Button2_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button2.Click /如果删除自己的账户，将不能在使用本系统 /您无权修改别人的密码 删除用户代码：Private

8、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不可见，T

9、extBox2的Visible属性设置为False不可见Private Sub login_Load（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles MyBase.Load ComboBox1.Items.Add（普通用户系统用户 . If TextBox1.Text = Username And MyTag = 2 Then If MsgBox（如果删除自己的账户，将不能在使用本系统。, MsgBoxStyle.YesNo, 警告！） = MsgBoxResult.No Then Exit Sub .修改

10、用户代码如下：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（）/ 引入系统命名空间文件 /给出警告，不能修改别人的密码 同样也可在工具栏中对用户密码进行修改.用户查询登录时间代码如下：在FrmMain.vb窗体下： Private Sub MenuItem29_Click（ByVal sender As

11、System.Object, ByVal e As System.EventArgs） Handles MenuItem29.Click /调用用户登录时间窗体Dim frmdl As New Formdlsj frmdl.Show（）在login.vb窗体下：Imports System.DataPublic Class loginDim conn As New SqlConnection（data source=.;database=wage;integrated security=sspi; 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 登录时间表（用户名,用