免費的Access數(shù)據(jù)庫員工管理系統(tǒng)下載

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

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

---

員工管理系統(tǒng)登陸界面

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

員工管理系統(tǒng)的登陸界面圖

員工管理系統(tǒng)登陸界面-登陸控件相關(guān)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 "人力資源管理系統(tǒng)"DoCmd.Close acfrom, "登陸窗體"ElseMsgBox "用戶名和密碼不正確"End If End SubPrivate Sub 退出_Click() DoCmd.Close End Sub

員工管理系統(tǒng)登陸界面-退出控件相關(guān)VB代碼

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

員工管理系統(tǒng)相關(guān)窗體以及用到的數(shù)據(jù)表

數(shù)據(jù)表有如下：

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

系統(tǒng)窗體一共有如下：

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

本系統(tǒng)有許多的數(shù)據(jù)表和各個實現(xiàn)功能的窗體，我就不一一介紹以及一一截圖了，我就給大家發(fā)布一下總體窗體截圖吧。

員工管理系統(tǒng)窗體以及數(shù)據(jù)表

員工管理系統(tǒng)之報表中心功能一之人事管理

人事管理系統(tǒng)分為：

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

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

員工管理系統(tǒng)之報表中心功能二之工資管理

工資管理系統(tǒng)分為：

加班管理，工資管理

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

員工管理系統(tǒng)之報表中心功能三之報表中心

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

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

員工管理系統(tǒng)之報表中心功能三之報表中心-業(yè)務(wù)員客戶管理軟件

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

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

下面是員工管理系統(tǒng)子窗體之員工信息窗體的Visual Basic代碼-免費業(yè)務(wù)員管理軟件

---

Option Compare DatabasePrivate Sub Auto_Logo0_Click() Me.Requery End SubPrivate Sub myID2_Click() yuangongid = Me![myID].Value DoCmd.OpenForm "單個員工詳細信息"End SubPrivate Sub 根據(jù)員工編號刪除_Click()Dim Stemp As Stringlogic = 1Dim i As Integer'定義數(shù)據(jù)集變量Dim Rs As ADODB.Recordset'定義數(shù)據(jù)集變量分配空間Set Rs = New ADODB.RecordsetStemp = "Select * from 員工信息"'打開員工信息表數(shù)據(jù)Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic'使用For...next循環(huán)語句在Rs數(shù)據(jù)集中循環(huán)判斷For i = 1 To Rs.RecordCount'判斷記錄集合中的員工字段是否與窗體中的員工If Rs("員工編號") = Me.myID.Value Then'如果相同則刪除Rs.Delete 1logic = 2MsgBox "成功刪除員工記錄", vbOKOnly, "刪除完成"'設(shè)置i的值跳出循環(huán)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

員工信息登陸窗體

這段代碼的事件產(chǎn)生在按鈕名叫“根據(jù)員工編號刪除”這個按鈕，單機右鍵-事件生成器-企業(yè)員工信息管理系統(tǒng)

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

Private Sub 清空記錄_Click() On Error GoTo Err_清空記錄_Click'定義字符串變量Dim Stemp As String'定義數(shù)據(jù)集變量Dim Rs As ADODB.Recordset'定義數(shù)據(jù)集變量的空間Set Rs = New ADODB.Recordset'清空文本框的現(xiàn)有記錄Stemp = "Delete * from 工作時間"'使用Docmd 對象的RunSql 方法執(zhí)行查詢DoCmd.RunSQL StempMsgBox "工作時間已刪除！", vbOKOnly, "刪除時間"Me.RequeryExit_清空記錄_click:Exit Sub Err_清空記錄_Click:MsgBox Err.DescriptionResume Exit_清空記錄_click End SubPrivate Sub 關(guān)閉_Click()On Error GoTo Err_關(guān)閉_ClickDoCmd.Close exit_關(guān)閉_Click: Exit Sub Err_關(guān)閉_Click: MsgBox Err.Description Resume exit_關(guān)閉_Click End SubPrivate Sub 默認時間_Click()On Error GoTo Err_默認時間_click'默認上班時間Me![早上班時間] = "09:00"Me![午下班時間] = "12:00"Me![午上班時間] = "13:00"Me![晚下班時間] = "17:00"MsgBox "已恢復為系統(tǒng)默認時間！", 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 "員工工作時間設(shè)置成功！", vbOKOnly, "修改成功" Exit_修改時間_Click:Exit Sub Err_修改時間_Click:MsgBox Err.DescriptionResume Exit_修改時間_ClickEnd Sub

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

時間管理窗體

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

Private Sub 保存記錄_Click() '定義字符型變量 Dim Stemp As String '定義數(shù)據(jù)集變量 Dim Rs As ADODB.Recordset '為定義的數(shù)據(jù)集變量分配空間 Set Rs = New ADODB.Recordset '打開數(shù)據(jù)表 查詢語句字符變量賦值 Stemp = "select * from 出勤管理" '打開《出勤管理》數(shù)據(jù)表 Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '判斷窗體中必填文本框和組合框是否為空 If Me![員工編號] <> "" And Me![部門編號] <> "" And Me![上班日期] <> "" And Me![上班時間] <> "" And Me![下班時間] <> "" And Me![是否為下午] <> "" Then '使用記錄集Addnew方法添加記錄 Rs.AddNew '把窗口文本框和和組合框的值賦值給記錄集合對應(yīng)的字段中 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, "注意" '把光標置于 ”員工編號“文本框內(nèi) Me![員工編號].SetFocus End If '釋放系統(tǒng)Rs 數(shù)據(jù)集分配的空間 Set Rs = NothingExit_保存記錄_Click: Exit Sub Err_保存記錄_Click: MsgBox Err.Description Resume Exit_保存記錄_ClickEnd Sub

出勤管理窗體

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

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

注意：本系統(tǒng)全網(wǎng)只有本IT技術(shù)網(wǎng)（志在指尖）站發(fā)表得有，以及系統(tǒng)所有內(nèi)容全是本站自主研發(fā)，請各位在明確使用前聯(lián)系本人購買軟件版權(quán)，否則，一經(jīng)發(fā)現(xiàn)，本站將追溯法律程序已保護本軟件的版權(quán)所有

本系統(tǒng)加有數(shù)據(jù)庫驗證密碼：www.zzzjtd.com（數(shù)據(jù)庫密碼）

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

員工管理系統(tǒng)
員工管理系統(tǒng)源代碼
員工管理系統(tǒng)軟件
書寫不易，如需轉(zhuǎn)載請注明文章來源以及軟件來源：

IT技術(shù)網(wǎng)站-團隊原創(chuàng)

數(shù)據(jù)庫管理系統(tǒng)是
屬于數(shù)據(jù)庫管理系統(tǒng)的是
數(shù)據(jù)庫管理系統(tǒng)有哪些

www.zzzjtd.com員工管理系統(tǒng)需求分析
員工信息管理系統(tǒng)
個人信息管理系統(tǒng)
數(shù)據(jù)庫員工管理系統(tǒng)設(shè)計

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。