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

1、1 概述：簡單介紹本系統(tǒng)實現(xiàn)的內(nèi)容 用戶登錄通過權(quán)限判斷，普通用戶不能瀏覽、閱讀和查詢信息，指定用戶可以操作，可以進(jìn)行信息錄入、修改和刪除的操作。 系統(tǒng)的主要功能特點有:系統(tǒng)登錄表單該表單的功能是在系統(tǒng)被訪問之前，要對進(jìn)入系統(tǒng)的用戶進(jìn)行安全性檢查，防止非法用戶進(jìn)行系統(tǒng)破壞數(shù)據(jù)及威脅系統(tǒng)安全，避免不必要的損失。只有合法的用戶在輸入正確的密碼后方可進(jìn)入系統(tǒng)。 系統(tǒng)分為五個大的功能模塊:用戶在經(jīng)過正確的登錄后可進(jìn)行 1)人事管理:包括部門信息和員工信息的查看,進(jìn)行人員的調(diào)動,并查看各部門員工的福利待遇.2)考勤管理:進(jìn)行日常出勤管理和加班出差的管理3)工資管理:可對各部門員工的工資進(jìn)行登錄和查詢.4

2、)打印:以條目或表格的形式對員工工資或員工信息進(jìn)行輸出預(yù)覽.5)系統(tǒng)管理:登錄用戶可對系統(tǒng)進(jìn)行管理包括增加用戶,修改用戶,刪除用戶和修改密碼.值得一提的是登錄用戶進(jìn)行修改時僅限自身,不可對別的用戶進(jìn)行修改操作. 數(shù)據(jù)庫設(shè)計：員工信息表：用戶需要錄入的員工信息表主要字段包括：員工編號、員工姓名、部門編號、性別、生日、住址、職位、出生地、聯(lián)系電話。字段字段名類型寬度Nulls1員工編號char10否2員工姓名Char15否3部門編號Int4否4性別char2否5生日Char10 否6住址Char30否7職位Varchar20否8出生地 Char10否9聯(lián)系電話Char20否10最高學(xué)歷 Char2

3、0否加班信息表： 包括：員工編號、加班日期、加班天數(shù)、 加班補助。字段字段名類型寬度Nulls1員工編號Char10否2加班日期 Char 10否3加班天數(shù)Int4是4加班補助Numeric9(10,0)是工資福利表：包括：員工編號、崗位工資、基本工資、伙食補貼、住房補貼、住房公積金、養(yǎng)老保險、其他補貼、發(fā)放時間、加班補助、缺勤扣除、實發(fā)工資。字段字段名類型寬度Nulls1員工編號Char10否2崗位工資Numeric9(19,4)是3基本工資Numeric9(19,4)是4伙食補貼Numeric9(19,4)是5住房補貼Numeric9(19,4)是6住房公積金Numeric9(19,4)是

4、7養(yǎng)老保險Numeric9(19,4)是8其他補貼Numeric9(19,4)是9發(fā)放時間Char20否10加班補助Numeric9(18,0)是11缺勤扣除Numeric9(18,0)是12實發(fā)工資Numeric9(18,0)是缺勤信息表： 包括：員工編號、缺勤日期、缺勤天數(shù)、缺勤類型、缺勤扣除。字段字段名類型寬度Nulls1員工編號 Char 10否2缺勤日期 Char 10否3缺勤天數(shù)char 10是4缺勤類型 Int 4是5缺勤扣除 char 10是用戶信息表： 包括：用戶名、用戶密碼、 用戶類型。字段字段名類型寬度Nulls1用戶名 Char 10否2用戶密碼 Char 20否3用戶

5、類型int 4否登錄時間表： 包括：用戶名、用戶類型、登錄時間。字段字段名類型寬度Nulls1用戶名 Char 10否2用戶類型 Char 10否3登錄時間char 40否部門信息表： 包括：部門編號、部門名稱、部門人數(shù)、部門級別字段字段名類型寬度Nulls1部門編號 Int 4否2部門名稱 Char20是3部門人數(shù)Int 4是4部門級別 char 10是3 代碼 添加用戶代碼：在窗體中：Imports Imports Sub MenuItem20_Click(ByVal sender As , ByVal e As Handles . End Sub在窗體中：Imports Public C

6、lass FrmXTGL Inherits Private MyTag As String Private Username As StringPrivate Sub Button2_Click(ByVal sender As , ByVal e As Handles Dim connstr As New String(provider=;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;) Dim Cn As New OleDbConnection Dim cmd As

7、 OleDbCommand Dim SQLString As String If . End If Try If MyTag = 1 Then SQLString = INSERT INTO 用戶信息表 (用戶名,用戶密碼,用戶類型) & _ VALUES( & & , & CInt & , & _ & ) ElseIf MyTag = 2 Then SQLString = DELETE 用戶信息表 WHERE 用戶名= & & ElseIf MyTag = 3 Then SQLString = UpDate 用戶信息表 SET 用戶密碼= & & _ ,用戶類型= & & WHERE 用戶名

8、= & _ & ElseIf MyTag = 4 Then If = Username Then SQLString = UpDate 用戶信息表 SET 用戶密碼= & & _ WHERE 用戶名= & & Else . Exit Sub End If End If = connstr () cmd = New OleDbCommand(SQLString, Cn) () Catch ex As Exception MsgBox End Try () () = False GetUser() End Sub修改用戶界面代碼如下：在窗體中：) Dim Cn As New OleDbConnec

9、tion Dim cmd As OleDbCommand Dim SQLString As String End Sub在窗體中：“確定”按鈕的Text屬性變?yōu)椤皠h除”，Label1的Visible屬性設(shè)置為False不可見， TextBox1的Visible屬性設(shè)置為False不可見，Label3的Visible屬性設(shè)置為False不可見，ComboBox1的Visible屬性設(shè)置為False不可見，Label2的Visible屬性設(shè)置為False不可見，TextBox2的Visible屬性設(shè)置為False不可見Private Sub login_Load(ByVal sender As ,

10、 ByVal e As Handles GetUser() 普通用戶) 系統(tǒng)用戶) = False . End IfEnd Sub在窗體中：Private Sub Button2_Click(ByVal sender As , ByVal e As Handles Dim connstr As New String(provider=;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;) Dim Cn As New OleDbConnection Dim cmd As O

11、leDbCommand Dim SQLString As String If = Username And MyTag = 2 Then If MsgBox(如果刪除自己的賬戶，將不能在使用本系統(tǒng)。, , 警告！) = Then Exit Sub End If Try If MyTag = 1 Then SQLString = INSERT INTO 用戶信息表 (用戶名,用戶密碼,用戶類型) & _ VALUES( & & , & CInt & , & _ & ) ElseIf MyTag = 2 Then SQLString = DELETE 用戶信息表 WHERE 用戶名= & & El

12、seIf MyTag = 3 Then SQLString = UpDate 用戶信息表 SET 用戶密碼= & & _ ,用戶類型= & & WHERE 用戶名= & _ & ElseIf MyTag = 4 Then If = Username Then SQLString = UpDate 用戶信息表 SET 用戶密碼= & & _ WHERE 用戶名= & & Else . End If = connstr () cmd = New OleDbCommand(SQLString, Cn) () End Sub修改用戶代碼如下：在窗體中：Private Sub MenuItem26_Cl

13、ick(ByVal sender As , ByVal e As Handles ) Dim Cn As New OleDbConnection Dim cmd As OleDbCommand Dim SQLString As String 用戶查詢登錄時間代碼如下：在窗體下： Private Sub MenuItem29_Click(ByVal sender As , ByVal e As Handles database=wage;integrated security=sspi;) Private Sub Button2_Click(ByVal sender As , ByVal e A

14、s Handles If Trim(GetPsw(Trim = Trim And Len 0 Then Dim mf As New FrmMain, Dim s As String = Dim c As New SqlCommand(insert into 登錄時間表(用戶名,用戶類型,登錄時間) values( & & , & & , & (0, 15) & ), conn) Try () () () () () Catch ex As Exception MsgBox End Try Else MsgBox(請選擇您的姓名并輸入正確的密碼！) End IfEnd Sub在Formdlsj窗

15、體下：Imports Imports Class Formdlsj Inherits Dim con As New SqlConnection(data source=.;database=wage;integrated security=sspi)Dim ds As New DataSetPrivate Sub Formdlsj_Load(ByVal sender As , ByVal e As Handles Dim ad As New SqlDataAdapter(select * from 登錄時間表 , con) () (ds) (0). = 登錄時間 = (0).DefaultViewEnd SubEnd Class第五章 課程設(shè)計總結(jié)本系統(tǒng)從功能上可以分為下列五個模塊：系統(tǒng)管理、部門管理、人員管理、工資管理及打印管理。系統(tǒng)管理（包括用戶管理）：分為系統(tǒng)用戶和普通用戶，主要對公司員工信息修整和查看，同時可以添