VB課程設(shè)計(jì)——企業(yè)人事信息管理系統(tǒng)

1、VB課程設(shè)計(jì)企業(yè)人事信息管理系統(tǒng)2008-09-27 23:55分類：計(jì)算機(jī)類知識(shí) 字號(hào)： 大大  中中  小小 1 概述：1.1簡(jiǎn)單介紹本系統(tǒng)實(shí)現(xiàn)的內(nèi)容 用戶登錄通過(guò)權(quán)限判斷，普通用戶不能瀏覽、閱讀和查詢信息，指定用戶可以操作，可以進(jìn)行信息錄入、修改和刪除的操作。1.2 系統(tǒng)的主要功能特點(diǎn)有:1.2.1系統(tǒng)登錄表單該表單的功能是在系統(tǒng)被訪問(wèn)之前，要對(duì)進(jìn)入系統(tǒng)的用戶進(jìn)行安全性檢查，防止非法用戶進(jìn)行系統(tǒng)破壞數(shù)據(jù)及威脅系統(tǒng)安全，避免不必要的損失。只有合法的用戶在輸入正確的密碼后方可進(jìn)入系統(tǒng)。 1.2.2系統(tǒng)分為五個(gè)大的功能模塊:用戶在經(jīng)過(guò)正確的登錄后可進(jìn)行 1)人事管理:包括部

2、門信息和員工信息的查看,進(jìn)行人員的調(diào)動(dòng),并查看各部門員工的福利待遇.2)考勤管理:進(jìn)行日常出勤管理和加班出差的管理3)工資管理:可對(duì)各部門員工的工資進(jìn)行登錄和查詢.4)打印:以條目或表格的形式對(duì)員工工資或員工信息進(jìn)行輸出預(yù)覽.5)系統(tǒng)管理:登錄用戶可對(duì)系統(tǒng)進(jìn)行管理包括增加用戶,修改用戶,刪除用戶和修改密碼.值得一提的是登錄用戶進(jìn)行修改時(shí)僅限自身,不可對(duì)別的用戶進(jìn)行修改操作.  數(shù)據(jù)庫(kù)設(shè)計(jì)：2.1員工信息表：用戶需要錄入的員工信息表主要字段包括：?jiǎn)T工編號(hào)、員工姓名、部門編號(hào)、性別、生日、住址、職位、出生地、聯(lián)系電話。  字段字段名類型寬度Nulls1員工編號(hào)char

3、10否2員工姓名Char15否3部門編號(hào)Int4否4性別char2否5生日Char10 否6住址Char30否7職位Varchar20否8出生地 Char10否9聯(lián)系電話Char20否10最高學(xué)歷 Char20否   2.2加班信息表： 包括：?jiǎn)T工編號(hào)、加班日期、加班天數(shù)、 加班補(bǔ)助。  字段字段名類型寬度Nulls1員工編號(hào)Char10否2加班日期 Char 10否3加班天數(shù)Int4是4加班補(bǔ)助Numeric9(10,0)是 2.3工資福利表：包括：?jiǎn)T工編號(hào)、崗位工資、基本工資、伙食補(bǔ)貼、住房補(bǔ)貼、住房公積金、養(yǎng)老保險(xiǎn)、其他補(bǔ)貼、發(fā)

4、放時(shí)間、加班補(bǔ)助、缺勤扣除、實(shí)發(fā)工資。  字段字段名類型寬度Nulls1員工編號(hào)Char10否2崗位工資Numeric9(19,4)是3基本工資Numeric9(19,4)是4伙食補(bǔ)貼Numeric9(19,4)是5住房補(bǔ)貼Numeric9(19,4)是6住房公積金Numeric9(19,4)是7養(yǎng)老保險(xiǎn)Numeric9(19,4)是8其他補(bǔ)貼Numeric9(19,4)是9發(fā)放時(shí)間Char20否10加班補(bǔ)助Numeric9(18,0)是11缺勤扣除Numeric9(18,0)是12實(shí)發(fā)工資Numeric9(18,0)是 2.4缺勤信息表： 包括：?jiǎn)T工編號(hào)、缺勤日

5、期、缺勤天數(shù)、缺勤類型、缺勤扣除。字段字段名類型寬度Nulls1員工編號(hào) Char 10否2缺勤日期 Char 10否3缺勤天數(shù)char 10是4缺勤類型 Int 4是5缺勤扣除 char 10是 2.5用戶信息表： 包括：用戶名、用戶密碼、 用戶類型。字段字段名類型寬度Nulls1用戶名 Char 10否2用戶密碼 Char 20否3用戶類型int 4否 2.6登錄時(shí)間表： 包括：用戶名、用戶類型、登錄時(shí)間。字段字段名類型寬度Nulls1用戶名 Char 10否2用戶類型 Char 10否3登錄時(shí)間char 40否 2.7部門信息表： 包括：部門編號(hào)、部門名稱、

6、部門人數(shù)、部門級(jí)別字段字段名類型寬度Nulls1部門編號(hào) Int 4否2部門名稱 Char20是3部門人數(shù)Int 4是4部門級(jí)別 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.Event

7、Args) 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

8、) 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 = "

9、;INSERT INTO 用戶信息表 (用戶名,用戶密碼,用戶類型)" & _ " VALUES('" & TextBox1.Text & "', " & CInt(TextBox2.Text) & "," & _ ComboBox1.SelectedIndex & ")" ElseIf MyTag = 2 Then SQLString = "DELETE 用戶信息表 WHERE 用戶名='" &

10、TextBox1.Text & "'" ElseIf MyTag = 3 Then SQLString = "UpDate 用戶信息表 SET 用戶密碼='" & TextBox2.Text & _ "',用戶類型=" & ComboBox1.SelectedIndex & " WHERE 用戶名='" & _ TextBox1.Text & "'" ElseIf MyTag = 4 Then If

11、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.

12、ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try cmd.Dispose() Cn.Dispose() Button2.Enabled = False GetUser() End Sub4.3修改用戶界面代碼如下：在FrmMain.vb窗體中：'/ 引入系統(tǒng)命名空間的文件Imports System.Data.OleDbImports System.Data.SqlClientImports System.IOImports System.Windows.Forms.HelpPrivate Sub Me

13、nuItem21_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 Su

14、b 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 D

15、im SQLString As String /如果刪除自己的賬戶，將不能在使用本系統(tǒng) End If Try If MyTag = 1 Then SQLString = "INSERT INTO 用戶信息表 (用戶名,用戶密碼,用戶類型)" & _ " VALUES('" & TextBox1.Text & "', " & CInt(TextBox2.Text) & "," & _ ComboBox1.SelectedIndex & "

16、;)" ElseIf MyTag = 2 Then SQLString = "DELETE 用戶信息表 WHERE 用戶名='" & TextBox1.Text & "'" ElseIf MyTag = 3 Then SQLString = "UpDate 用戶信息表 SET 用戶密碼='" & TextBox2.Text & _ "',用戶類型=" & ComboBox1.SelectedIndex & " WHE

17、RE 用戶名='" & _ TextBox1.Text & "'" ElseIf MyTag = 4 Then If TextBox1.Text = Username Then SQLString = "UpDate 用戶信息表 SET 用戶密碼='" & TextBox2.Text & _ "' WHERE 用戶名='" & TextBox1.Text & "'" Else /您無(wú)權(quán)修改別人的密碼 Exit

18、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窗體中：'/ 引入系統(tǒng)命名空間的文件Imports System.Data.OleDb

19、Imports 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屬性變?yōu)椤皠h除”，Label1的Visible屬性設(shè)置為False不可見， TextBox1的Visible屬性設(shè)置為False不可見

20、，Label3的Visible屬性設(shè)置為False不可見，ComboBox1的Visible屬性設(shè)置為False不可見，Label2的Visible屬性設(shè)置為False不可見，TextBox2的Visible屬性設(shè)置為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("系統(tǒng)用戶&q

21、uot;) 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 S

22、ource=.;") Dim Cn As New OleDbConnection Dim cmd As OleDbCommand Dim SQLString As String If TextBox1.Text = Username And MyTag = 2 Then If MsgBox("如果刪除自己的賬戶，將不能在使用本系統(tǒng)。", MsgBoxStyle.YesNo, "警告！") = MsgBoxResult.No Then Exit Sub End If Try If MyTag = 1 Then SQLString = "

23、INSERT INTO 用戶信息表 (用戶名,用戶密碼,用戶類型)" & _ " VALUES('" & TextBox1.Text & "', " & CInt(TextBox2.Text) & "," & _ ComboBox1.SelectedIndex & ")" ElseIf MyTag = 2 Then SQLString = "DELETE 用戶信息表 WHERE 用戶名='" & T

24、extBox1.Text & "'" ElseIf MyTag = 3 Then SQLString = "UpDate 用戶信息表 SET 用戶密碼='" & TextBox2.Text & _ "',用戶類型=" & ComboBox1.SelectedIndex & " WHERE 用戶名='" & _ TextBox1.Text & "'" ElseIf MyTag = 4 Then If T

25、extBox1.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()

26、 End Sub修改用戶代碼如下：在FrmMain.vb窗體中：Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click / 修改個(gè)人密碼 Dim xgmm As New FrmXTGL(4, Username) xgmm.Show()End Sub在FormXTGL.vb窗體中：'/ 引入系統(tǒng)命名空間文件Imports System.Data.OleDbImports System.Data.SqlClientPub

27、lic 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 Secur

28、ity 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 & "&#

29、39;, " & CInt(TextBox2.Text) & "," & _ ComboBox1.SelectedIndex & ")" ElseIf MyTag = 2 Then SQLString = "DELETE 用戶信息表 WHERE 用戶名='" & TextBox1.Text & "'" ElseIf MyTag = 3 Then SQLString = "UpDate 用戶信息表 SET 用戶密碼='&quo

30、t; & TextBox2.Text & _ "',用戶類型=" & ComboBox1.SelectedIndex & " WHERE 用戶名='" & _ TextBox1.Text & "'" ElseIf MyTag = 4 Then If TextBox1.Text = Username Then SQLString = "UpDate 用戶信息表 SET 用戶密碼='" & TextBox2.Text & _

31、 "' WHERE 用戶名='" & TextBox1.Text & "'" Else 同樣也可在工具欄中對(duì)用戶密碼進(jìn)行修改. 用戶查詢登錄時(shí)間代碼如下：在FrmMain.vb窗體下： Private Sub MenuItem29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem29.Click /調(diào)用用戶登錄時(shí)間窗體Dim frmdl As New Formdlsj frmdl.Show() End

32、 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, ByV

33、al 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 登錄時(shí)間表(用戶名,用戶類型,登錄時(shí)間) values('" & Label4.Text.Trim & "','" & Label5.Text & "','" & s.Substring(0, 15) &a