免費的Access數據庫員工管理系統下載

前言：滿足大多數誌在指尖用戶的要求，今天給大家帶來一個誌在指尖團隊自己用Access開發的數據庫員工管理系統。下面就給大家介紹一下本系統的大概功能！網上有許多員工管理系統的源代碼，有java編寫的，有C#編寫的，我大概看了一下都只有源代碼，沒有管理系統成品，所以今天這個系統就是成品，相關語言用的是Visual Basic，大家想看代碼的話可以點擊各個窗體的設計窗口-再點擊相關控件-右鍵事件生成器，就能看到本系統的相關Visual Basic的代碼了！

想學更多IT技術或者想下載更多關於IT方面的軟件，腳本，或者源碼，就請大家記住本站域名喲：http://www.zzzjtd.com 每天不定時更新最新IT技術資源供大家學習和下載

員工管理系統登陸界面

本界面相對來說做的不是那麽美觀，不過無傷大雅，麻雀雖小，五臟俱全，功能還是非常齊全的，而且做的非常的完善下面是員工管理系統的登陸界面圖

員工管理系統的登陸界面圖

員工管理系統登陸界面-登陸控件相關VB代碼

 1 Option Compare Database
 2 
 3 Private Sub 登陸_Click()
 4  If IsNull(Me.user) Then
 5  MsgBox "請輸入用戶名"
 6  Exit Sub
 7  ElseIf IsNull(Me.pwd) Then
 8  MsgBox "請輸入密碼"
 9  Exit Sub
10
 
  End If
11  
12 If Me.pwd.Value = DLookup("密碼", "用戶表", "用戶名=‘" & Me.user.Value & "‘") Then
13  DoCmd.OpenForm "人力資源管理系統"
14  DoCmd.Close acfrom, "登陸窗體"
15  Else
16  MsgBox "用戶名和密碼不正確"
17  End If
18 End Sub
19 
20 Private Sub 退出_Click()
21 DoCmd.Close
22 End Sub

員工管理系統登陸界面-退出控件相關VB代碼

Private
 
 Sub 退出_Click()
DoCmd.Close
End Sub

員工管理系統相關窗體以及用到的數據表

數據表有如下：

出差情況，出勤管理，工作時間，加班管理，考勤統計，缺勤管理，用戶表，員工信息

系統窗體一共有如下：

出差情況窗體，出勤管理窗體，出勤管理子窗體，單個員工詳細信息，工資管理子系統，工作時間窗體，公司介紹窗體，加班管理窗體，人力管理子系統窗體，人力資源管理系統窗體，添加員工信息窗體，系統登陸窗體，系統管理子系統，用戶表窗口，員工詳情信息窗體，員工詳細信息瀏覽窗體，員工信息窗體。

本系統有許多的數據表和各個實現功能的窗體，我就不一一介紹以及一一截圖了，我就給大家發布一下總體窗體截圖吧。

員工管理系統窗體以及數據表

員工管理系統之報表中心功能一之人事管理

人事管理系統分為：

員工管理，缺勤管理，工作時間，出差記錄，公司介紹

報表中心功能一之人事管理

員工管理系統之報表中心功能二之工資管理

工資管理系統分為：

加班管理，工資管理

報表中心功能二之工資管理

員工管理系統之報表中心功能三之報表中心

報表中心裏面就只有一個子窗體：出勤報表，這是一個非常重要的功能，無論是大企業或小型公司，都需要對員工進行一個出勤管理，所以就需要用到本系統的出勤報表功能！

報表中心功能三之報表中心

員工管理系統之報表中心功能三之報表中心-業務員客戶管理軟件

最後一個功能，也是非常重要的一個功能，賬戶管理功能，這個功能簡單來說就是，你如果是公司主管或者說是老板，你需要給你的員工開通本系統的管理權限，讓這位員工有權利登陸員工管理系統，就需要在賬戶管理單獨給這位員工註冊添加一個賬號，讓他也可以像你一樣可以登陸本系統！

報表中心功能三之報表中心

下面是員工管理系統子窗體之員工信息窗體的Visual Basic代碼-免費業務員管理軟件

 1 Option Compare Database
 2 
 3 Private Sub Auto_Logo0_Click()
 4 Me.Requery
 5 End Sub
 6 
 7 Private Sub myID2_Click()
 8 yuangongid = Me![myID].Value
 9 DoCmd.OpenForm "單個員工詳細信息"
10 
11 End Sub
12 
13 Private Sub 根據員工編號刪除_Click()
14 
15  Dim Stemp As String
16  logic = 1
17  Dim i As Integer
18  ‘定義數據集變量
19  Dim Rs As ADODB.Recordset
20  ‘定義數據集變量分配空間
21  Set Rs = New ADODB.Recordset
22  Stemp = "Select * from 員工信息"
23  ‘打開員工信息表數據
24  Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
25  ‘使用For...next循環語句在Rs數據集中循環判斷
26  For i = 1 To Rs.RecordCount
27  ‘判斷記錄集合中的員工字段是否與窗體中的員工
28  If Rs("員工編號") = Me.myID.Value Then
29  ‘如果相同則刪除
30  Rs.Delete 1
31  logic = 2
32  MsgBox "成功刪除員工記錄", vbOKOnly, "刪除完成"
33  ‘設置i的值跳出循環
34  i = Rs.RecordCount + 1
35  Else
36  ‘如果不同移動下一條記錄
37  Rs.MoveNext
38  End If
39  Next i
40  If logic = 1 Then
41  MsgBox "你輸入的編號沒有找到！"
42  End If
43  
44  Me.Requery
45  Set Rs = Nothing
46 
47 End Sub
48 
49 Private Sub 員工姓名_DblClick(Cancel As Integer)
50 yuangongid = Me![員工編號].Value
51 DoCmd.OpenForm "單個員工詳細信息"
52 End Sub

員工信息登陸窗體

這段代碼的事件產生在按鈕名叫“根據員工編號刪除”這個按鈕，單機右鍵-事件生成器-企業員工信息管理系統

下面是員工管理系統子窗體之事件管理窗體的Visual Basic代碼-員工管理系統用java

 1 Private Sub 清空記錄_Click()
 2 On Error GoTo Err_清空記錄_Click
 3  ‘定義字符串變量
 4  Dim Stemp As String
 5  ‘定義數據集變量
 6  Dim Rs As ADODB.Recordset
 7  ‘定義數據集變量的空間
 8  Set Rs = New ADODB.Recordset
 9  ‘清空文本框的現有記錄
10  Stemp = "Delete * from 工作時間"
11  ‘使用Docmd 對象的RunSql 方法執行查詢
12  DoCmd.RunSQL Stemp
13  MsgBox "工作時間已刪除！", vbOKOnly, "刪除時間"
14  Me.Requery
15  
16 Exit_清空記錄_click:
17  Exit Sub
18 Err_清空記錄_Click:
19  MsgBox Err.Description
20  Resume Exit_清空記錄_click
21 End Sub
22 
23 Private Sub 關閉_Click()
24  On Error GoTo Err_關閉_Click
25  DoCmd.Close
26 exit_關閉_Click:
27 Exit Sub
28 Err_關閉_Click:
29 MsgBox Err.Description
30 Resume exit_關閉_Click
31 End Sub
32 
33 Private Sub 默認時間_Click()
34  On Error GoTo Err_默認時間_click
35  ‘默認上班時間
36  Me![早上班時間] = "09:00"
37  Me![午下班時間] = "12:00"
38  Me![午上班時間] = "13:00"
39  Me![晚下班時間] = "17:00"
40  MsgBox "已恢復為系統默認時間！", vbOKOnly, "默認時間"
41 Exit_默認時間_Click:
42  Exit Sub
43 Err_默認時間_click:
44 MsgBox Err.Description
45 Resume Err_默認時間_click
46 End Sub
47 
48 Private Sub 修改時間_Click()
49 On Error GoTo Err_修改時間_Click
50  ‘修改工作時間
51  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
52  ‘彈出修改成功信息
53  MsgBox "員工工作時間設置成功！", vbOKOnly, "修改成功"
54 Exit_修改時間_Click:
55  Exit Sub
56 Err_修改時間_Click:
57  MsgBox Err.Description
58  Resume Exit_修改時間_Click
59 
60 End Sub

這段代碼的事件產生在按鈕名叫“修改時間”這個按鈕，單機右鍵-事件生成器-員工管理系統修改員工

時間管理窗體

下面是員工管理系統子窗體之出勤管理子窗體的Visual Basic代碼-java編寫員工管理系統

 1 Private Sub 保存記錄_Click()
 2 ‘定義字符型變量
 3 Dim Stemp As String
 4 ‘定義數據集變量
 5 Dim Rs As ADODB.Recordset
 6 ‘為定義的數據集變量分配空間
 7 Set Rs = New ADODB.Recordset
 8 ‘打開數據表 查詢語句字符變量賦值
 9 Stemp = "select * from 出勤管理"
10 ‘打開《出勤管理》數據表
11 Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
12 ‘判斷窗體中必填文本框和組合框是否為空
13 If Me![員工編號] <> "" And Me![部門編號] <> "" And Me![上班日期] <> "" And Me![上班時間] <> "" And Me![下班時間] <> "" And Me![是否為下午] <> "" Then
14 ‘使用記錄集Addnew方法添加記錄
15 Rs.AddNew
16 ‘把窗口文本框和和組合框的值賦值給記錄集合對應的字段中
17 Rs("員工編號") = Me![員工編號]
18 Rs("部門編號") = Me![部門編號]
19 Rs("上班日期") = Me![上班日期]
20 Rs("上班時間") = Me![上班時間]
21 Rs("下班時間") = Me![下班時間]
22 Rs("是否為下午") = Me![是否為下午]
23 ‘判斷選擇的是上午還是下午
24 If Me![是否為下午].Value = -1 Then
25 ‘如選擇的是下午，值為=true
26 Rs("是否為下午").Value = True
27 
28 Else
29 ‘如果選擇的是下午，值=false
30 Rs("是否為下午").Value = False
31 End If
32 Rs("備註") = Me![備註]
33 ‘使用記錄集的Update 方法來刷新記錄集
34 Rs.Update
35 MsgBox "出勤記錄添加成功", vbOKOnly, "添加完成"
36 Else
37 ‘如果必填文本框和組合框為空，則彈出"註意"信息
38 MsgBox "必填字段不能為空！", vbOKOnly, "註意"
39 ‘把光標置於 ”員工編號“文本框內
40 Me![員工編號].SetFocus
41 End If
42 ‘釋放系統Rs 數據集分配的空間
43 Set Rs = Nothing
44 
45 Exit_保存記錄_Click:
46 Exit Sub
47 Err_保存記錄_Click:
48 MsgBox Err.Description
49 Resume Exit_保存記錄_Click
50 
51 End Sub

出勤管理窗體

這段代碼的事件產生在按鈕名叫“保存記錄”這個按鈕，單機右鍵-事件生成器

以上就是本系統的大概描述，更詳細的大家可以下載下來自己研究研究，有什麽需要更新的地方，或者那些可以更加完善的地方，歡迎各位來聯系我，我的郵箱是：[email protected]

註意：本系統全網只有本IT技術網（誌在指尖）站發表得有，以及系統所有內容全是本站自主研發，請各位在明確使用前聯系本人購買軟件版權，否則，一經發現，本站將追溯法律程序已保護本軟件的版權所有

因為本員工管理系統對本站來說意義重大，所以本站將此系統設置為了評論才能下載，大家快去註冊一個賬號來評論然後再下載吧

本系統加有數據庫驗證密碼：www.zzzjtd.com（數據庫密碼）

登陸窗體賬號默認為：誌在指尖 密碼：admin

員工管理系統
員工管理系統源代碼
員工管理系統軟件
書寫不易，如需轉載請註明文章來源以及軟件來源：

IT技術網站-團隊原創

數據庫管理系統是
屬於數據庫管理系統的是
數據庫管理系統有哪些

www.zzzjtd.com員工管理系統需求分析
員工信息管理系統
個人信息管理系統
數據庫員工管理系統設計

免費的Access數據庫員工管理系統下載-IT技術網站 企業人員管理系統源碼