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

標籤：connect   save   alt   https   key   com   下載   集中   project   

免費的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 Sub10  End If11  12 If Me.pwd.Value = DLookup("密碼", "使用者表", "使用者名稱=‘" & Me.user.Value & "‘") Then13  DoCmd.OpenForm "人力資源管理系統"14  DoCmd.Close acfrom, "登陸表單"15  Else16  MsgBox "使用者名稱和密碼不正確"17  End If18 End Sub19 20 Private Sub 退出_Click()21 DoCmd.Close22 End Sub23 員工管理系統登陸介面-退出控制項相關VB代碼24 25 Private Sub 退出_Click()26 DoCmd.Close27 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 Sub12 13 Private Sub 根據員工編號刪除_Click()14 15  Dim Stemp As String16  logic = 117  Dim i As Integer18  ‘定義資料集變數19  Dim Rs As ADODB.Recordset20  ‘定義資料集變數分配空間21  Set Rs = New ADODB.Recordset22  Stemp = "Select * from 員工資訊"23  ‘開啟員工資訊表資料24  Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic25  ‘使用For...next迴圈語句在Rs資料集中迴圈判斷26  For i = 1 To Rs.RecordCount27  ‘判斷記錄集合中的員工欄位是否與表單中的員工28  If Rs("員工編號") = Me.myID.Value Then29  ‘如果相同則刪除30  Rs.Delete 131  logic = 232  MsgBox "成功刪除員工記錄", vbOKOnly, "刪除完成"33  ‘設定i的值跳出迴圈34  i = Rs.RecordCount + 135  Else36  ‘如果不同移動下一條記錄37  Rs.MoveNext38  End If39  Next i40  If logic = 1 Then41  MsgBox "你輸入的編號沒有找到！"42  End If43  44  Me.Requery45  Set Rs = Nothing46 47 End Sub48 49 Private Sub 員工姓名_DblClick(Cancel As Integer)50 yuangongid = Me![員工編號].Value51 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 Stemp13  MsgBox "工作時間已刪除！", vbOKOnly, "刪除時間"14  Me.Requery15  16 Exit_清空記錄_click:17  Exit Sub18 Err_清空記錄_Click:19  MsgBox Err.Description20  Resume Exit_清空記錄_click21 End Sub22 23 Private Sub 關閉_Click()24  On Error GoTo Err_關閉_Click25  DoCmd.Close26 exit_關閉_Click:27 Exit Sub28 Err_關閉_Click:29 MsgBox Err.Description30 Resume exit_關閉_Click31 End Sub32 33 Private Sub 預設時間_Click()34  On Error GoTo Err_預設時間_click35  ‘預設上班時間36  Me![早上班時間] = "09:00"37  Me![午下班時間] = "12:00"38  Me![午上班時間] = "13:00"39  Me![晚下班時間] = "17:00"40  MsgBox "已恢複為系統預設時間！", vbOKOnly, "預設時間"41 Exit_預設時間_Click:42  Exit Sub43 Err_預設時間_click:44 MsgBox Err.Description45 Resume Err_預設時間_click46 End Sub47 48 Private Sub 修改時間_Click()49 On Error GoTo Err_修改時間_Click50  ‘修改工作時間51  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer7052  ‘彈出修改成功資訊53  MsgBox "員工工作時間設定成功！", vbOKOnly, "修改成功"54 Exit_修改時間_Click:55  Exit Sub56 Err_修改時間_Click:57  MsgBox Err.Description58  Resume Exit_修改時間_Click59 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, adLockOptimistic12 ‘判斷表單中必填文字框和組合框是否為空白13 If Me![員工編號] <> "" And Me![部門編號] <> "" And Me![上班日期] <> "" And Me![上班時間] <> "" And Me![下班時間] <> "" And Me![是否為下午] <> "" Then14 ‘使用記錄集Addnew方法添加記錄15 Rs.AddNew16 ‘把視窗文字框和和組合框的值賦值給記錄集合對應的欄位中17 Rs("員工編號") = Me![員工編號]18 Rs("部門編號") = Me![部門編號]19 Rs("上班日期") = Me![上班日期]20 Rs("上班時間") = Me![上班時間]21 Rs("下班時間") = Me![下班時間]22 Rs("是否為下午") = Me![是否為下午]23 ‘判斷選擇的是上午還是下午24 If Me![是否為下午].Value = -1 Then25 ‘如選擇的是下午，值為=true26 Rs("是否為下午").Value = True27 28 Else29 ‘如果選擇的是下午，值=false30 Rs("是否為下午").Value = False31 End If32 Rs("備忘") = Me![備忘]33 ‘使用記錄集的Update 方法來重新整理記錄集34 Rs.Update35 MsgBox "出勤記錄添加成功", vbOKOnly, "添加完成"36 Else37 ‘如果必填文字框和組合框為空白，則彈出"注意"資訊38 MsgBox "必要欄位不可為空！", vbOKOnly, "注意"39 ‘把游標置於 ”員工編號“文字框內40 Me![員工編號].SetFocus41 End If42 ‘釋放系統Rs 資料集分配的空間43 Set Rs = Nothing44 45 Exit_儲存記錄_Click:46 Exit Sub47 Err_儲存記錄_Click:48 MsgBox Err.Description49 Resume Exit_儲存記錄_Click50 51 End Sub

 

出勤管理表單

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

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

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

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

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

登陸表單帳號預設為：志在指尖 密碼：admin

本文原網址：https://zzzjtd.com/803.html

  標籤: Access員工管理系統, 資料庫員工管理系統, vb員工管理系統, 開源員工管理系統, 公司員工管理系統

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