1、1 概述：1.1簡單介紹本系統(tǒng)實(shí)現(xiàn)的內(nèi)容 用戶登錄通過權(quán)限判斷，普通用戶不能瀏覽、閱讀和查詢信息，指定用戶可以操作，可以進(jìn)行信息錄入、修改和刪除的操作。1.2 系統(tǒng)的主要功能特點(diǎn)有:1.2.1系統(tǒng)登錄表單該表單的功能是在系統(tǒng)被訪問之前，要對進(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)過正確的登錄后可進(jìn)行 1)人事管理:包括部門信息和員工信息的查看,進(jìn)行人員的調(diào)動(dòng),并查看各部門員工的福利待遇.2)考勤管理:進(jìn)行日常出勤管理和加班出差的管理3)工資管理:可對各

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

3、否8出生地 Char10否9聯(lián)系電話Char20否10最高學(xué)歷 Char20否   2.2加班信息表： 包括：員工編號(hào)、加班日期、加班天數(shù)、 加班補(bǔ)助。  字段字段名類型寬度Nulls1員工編號(hào)Char10否2加班日期 Char 10否3加班天數(shù)Int4是4加班補(bǔ)助Numeric9(10,0)是 2.3工資福利表：包括：員工編號(hào)、崗位工資、基本工資、伙食補(bǔ)貼、住房補(bǔ)貼、住房公積金、養(yǎng)老保險(xiǎn)、其他補(bǔ)貼、發(fā)放時(shí)間、加班補(bǔ)助、缺勤扣除、實(shí)發(fā)工資。  字段字段名類型寬度Nulls1員工編號(hào)Char10否2崗位工資Numer

4、ic9(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缺勤信息表： 包括：員工編號(hào)、缺勤日期、缺勤天數(shù)、缺勤類型、缺勤扣除。字段字段名類型寬度Nulls1員工編號(hào) Char 10否2缺勤日期 Char 10否3缺勤天數(shù)cha

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

6、ar 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 Sys

7、tem.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=SQ

8、LOLEDB.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('

9、;" & TextBox1.Text & "', " & CInt(TextBox2.Text) & "," & _ ComboBox1.SelectedIndex & ")" ElseIf MyTag = 2 Then SQLString = "DELETE 用戶信息表 WHERE 用戶名='" & TextBox1.Text & "'" ElseIf MyTag = 3 Then SQLStri

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

11、密碼='" & 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

12、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 MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.Eve

13、ntArgs) 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.Ev

14、entArgs) 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 /如果刪除自己的賬戶，將不能在使用本系統(tǒng) End If Try If MyTag = 1

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

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

17、seIf MyTag = 4 Then If TextBox1.Text = Username Then SQLString = "UpDate 用戶信息表 SET 用戶密碼='" & TextBox2.Text & _ "' WHERE 用戶名='" & TextBox1.Text & "'" Else /您無權(quán)修改別人的密碼 Exit Sub End If End If Cn.ConnectionString = connstr Cn.Open() cmd = New

18、 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.OleDbImports System.Data.SqlClientImports System.IOImports System.Window

19、s.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不可見，Label3的Visible屬性設(shè)置為False不可見，ComboBox1的Visible屬性設(shè)置為False不可見，Label2的

20、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)用戶") Button2.Enabled = False . End IfEnd Sub在FormXTGL.vb窗體中：Privat

21、e 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 OleDbComma

22、nd 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 = "INSERT INTO 用戶信息表 (用戶名,用戶密碼,用戶類型)" & _ " VALUES('

23、" & TextBox1.Text & "', " & CInt(TextBox2.Text) & "," & _ ComboBox1.SelectedIndex & ")" ElseIf MyTag = 2 Then SQLString = "DELETE 用戶信息表 WHERE 用戶名='" & TextBox1.Text & "'" ElseIf MyTag = 3 Then SQLStrin

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

25、碼='" & 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

26、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.SqlClientPublic Class FrmXTGL Inherits System.Windows.Forms.Form Private MyTag

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

28、 New OleDbConnection Dim cmd As OleDbCommand Dim SQLString As String /給出警告，不能修改別人的密碼 Try If MyTag = 1 Then SQLString = "INSERT INTO 用戶信息表 (用戶名,用戶密碼,用戶類型)" & _ " VALUES('" & TextBox1.Text & "', " & CInt(TextBox2.Text) & "," & _ C

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

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

31、'" Else 同樣也可在工具欄中對用戶密碼進(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 Sub在login.vb窗體下：Imports System.Data.OleDbImports System.Data.SqlCl

32、ientImports 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

33、(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