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

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

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

---

員工管理系統登陸界面

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

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

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

Option Compare DatabasePrivate Sub 登陸_Click()If IsNull(Me.user) ThenMsgBox "請輸入用戶名"Exit SubElseIf IsNull(Me.pwd) ThenMsgBox "請輸入密碼"Exit SubEnd IfIf Me.pwd.Value = DLookup("密碼", "用戶表", "用戶名='" & Me.user.Value & "'") ThenDoCmd.OpenForm "人力資源管理系統"DoCmd.Close acfrom, "登陸窗體"ElseMsgBox "用戶名和密碼不正確"End If End SubPrivate Sub 退出_Click() DoCmd.Close End Sub

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

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

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

數據表有如下：

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

系統窗體一共有如下：

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

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

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

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

人事管理系統分為：

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

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

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

工資管理系統分為：

加班管理，工資管理

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

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

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

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

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

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

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

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

---

Option Compare DatabasePrivate Sub Auto_Logo0_Click() Me.Requery End SubPrivate Sub myID2_Click() yuangongid = Me![myID].Value DoCmd.OpenForm "單個員工詳細信息"End SubPrivate Sub 根據員工編號刪除_Click()Dim Stemp As Stringlogic = 1Dim i As Integer'定義數據集變量Dim Rs As ADODB.Recordset'定義數據集變量分配空間Set Rs = New ADODB.RecordsetStemp = "Select * from 員工信息"'打開員工信息表數據Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic'使用For...next循環語句在Rs數據集中循環判斷For i = 1 To Rs.RecordCount'判斷記錄集合中的員工字段是否與窗體中的員工If Rs("員工編號") = Me.myID.Value Then'如果相同則刪除Rs.Delete 1logic = 2MsgBox "成功刪除員工記錄", vbOKOnly, "刪除完成"'設置i的值跳出循環i = Rs.RecordCount + 1Else'如果不同移動下一條記錄Rs.MoveNextEnd IfNext iIf logic = 1 ThenMsgBox "你輸入的編號沒有找到！"End IfMe.RequerySet Rs = NothingEnd SubPrivate Sub 員工姓名_DblClick(Cancel As Integer) yuangongid = Me![員工編號].Value DoCmd.OpenForm "單個員工詳細信息" End Sub

員工信息登陸窗體

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

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

Private Sub 清空記錄_Click() On Error GoTo Err_清空記錄_Click'定義字符串變量Dim Stemp As String'定義數據集變量Dim Rs As ADODB.Recordset'定義數據集變量的空間Set Rs = New ADODB.Recordset'清空文本框的現有記錄Stemp = "Delete * from 工作時間"'使用Docmd 對象的RunSql 方法執行查詢DoCmd.RunSQL StempMsgBox "工作時間已刪除！", vbOKOnly, "刪除時間"Me.RequeryExit_清空記錄_click:Exit Sub Err_清空記錄_Click:MsgBox Err.DescriptionResume Exit_清空記錄_click End SubPrivate Sub 關閉_Click()On Error GoTo Err_關閉_ClickDoCmd.Close exit_關閉_Click: Exit Sub Err_關閉_Click: MsgBox Err.Description Resume exit_關閉_Click End SubPrivate Sub 默認時間_Click()On Error GoTo Err_默認時間_click'默認上班時間Me![早上班時間] = "09:00"Me![午下班時間] = "12:00"Me![午上班時間] = "13:00"Me![晚下班時間] = "17:00"MsgBox "已恢復為系統默認時間！", vbOKOnly, "默認時間" Exit_默認時間_Click:Exit Sub Err_默認時間_click: MsgBox Err.Description Resume Err_默認時間_click End SubPrivate Sub 修改時間_Click() On Error GoTo Err_修改時間_Click'修改工作時間DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70'彈出修改成功信息MsgBox "員工工作時間設置成功！", vbOKOnly, "修改成功" Exit_修改時間_Click:Exit Sub Err_修改時間_Click:MsgBox Err.DescriptionResume Exit_修改時間_ClickEnd Sub

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

時間管理窗體

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

Private Sub 保存記錄_Click() '定義字符型變量 Dim Stemp As String '定義數據集變量 Dim Rs As ADODB.Recordset '為定義的數據集變量分配空間 Set Rs = New ADODB.Recordset '打開數據表 查詢語句字符變量賦值 Stemp = "select * from 出勤管理" '打開《出勤管理》數據表 Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '判斷窗體中必填文本框和組合框是否為空 If Me![員工編號] <> "" And Me![部門編號] <> "" And Me![上班日期] <> "" And Me![上班時間] <> "" And Me![下班時間] <> "" And Me![是否為下午] <> "" Then '使用記錄集Addnew方法添加記錄 Rs.AddNew '把窗口文本框和和組合框的值賦值給記錄集合對應的字段中 Rs("員工編號") = Me![員工編號] Rs("部門編號") = Me![部門編號] Rs("上班日期") = Me![上班日期] Rs("上班時間") = Me![上班時間] Rs("下班時間") = Me![下班時間] Rs("是否為下午") = Me![是否為下午] '判斷選擇的是上午還是下午 If Me![是否為下午].Value = -1 Then '如選擇的是下午，值為=true Rs("是否為下午").Value = TrueElse '如果選擇的是下午，值=false Rs("是否為下午").Value = False End If Rs("備注") = Me![備注] '使用記錄集的Update 方法來刷新記錄集 Rs.Update MsgBox "出勤記錄添加成功", vbOKOnly, "添加完成" Else '如果必填文本框和組合框為空，則彈出"注意"信息 MsgBox "必填字段不能為空！", vbOKOnly, "注意" '把光標置于 ”員工編號“文本框內 Me![員工編號].SetFocus End If '釋放系統Rs 數據集分配的空間 Set Rs = NothingExit_保存記錄_Click: Exit Sub Err_保存記錄_Click: MsgBox Err.Description Resume Exit_保存記錄_ClickEnd Sub

出勤管理窗體

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

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

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

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

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

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

IT技術網站-團隊原創

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

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

總結

以上是生活随笔為你收集整理的免费的Access数据库员工管理系统下载-IT技术网站 企业人员管理系统源码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。