【正文】 ..................... 39 4． 15． 1 添加窗體 ........................................................................................... 39 4． 15． 2 添加控件 ........................................................................................... 39 4． 15． 3 添加代碼 ........................................................................................... 39 4． 16 系統(tǒng)的配置運(yùn)行 ............................................................................................. 41 4． 17 測(cè)試數(shù)據(jù) ....................................................................................................... 41 小 結(jié) ................................................................................................................................ 41 致 謝 ................................................................................................................................ 42 參考文獻(xiàn) ........................................................................................................................... 42 4 摘要 人是生產(chǎn)力中最活躍的因素，人的能力就是人力。因此有必要開發(fā)一個(gè)基于網(wǎng)絡(luò)的勞資人事管理系統(tǒng)，能在網(wǎng)絡(luò)環(huán)境下實(shí)現(xiàn)數(shù)據(jù)的錄入、 插入、刪除、查詢、統(tǒng)計(jì)、更新、打印等功能 1． 1 編寫目的 1． 1． 1 人事管理的概念 所謂人事管理，是指以從事社會(huì)勞動(dòng)的人和有關(guān)的事的相互關(guān)系為對(duì)象，通過組織、協(xié)調(diào)、控制、監(jiān)督等手段，謀求人與事以及共事人之間的相互適應(yīng)，實(shí)現(xiàn)充分發(fā)揮人的潛能，把事情做得更好這一目標(biāo)所進(jìn)行的管理活動(dòng)。 ? 系統(tǒng)構(gòu)造合理、整體效率高，可應(yīng)用于大型數(shù)據(jù)庫(kù)，提供分布式解決方案。 第二章 相關(guān)技術(shù)介紹 2． 1 VisualBasic .NET 中文版工具軟件簡(jiǎn)介 VISUALBASIC .NET 經(jīng)過微軟公司長(zhǎng)期不斷的完善、第三方資源的大量加入以及廣大愛好者的大力支持， VISUALBASIC .NET 已經(jīng)成為功能強(qiáng)大、使用人數(shù)眾多的主流編程工具。 Access2020 是 Office2020 中文版的組件之一。在 Access2020 中，可以設(shè)定、修改基本表之間的關(guān)聯(lián)，從而實(shí)現(xiàn)在多個(gè)相關(guān)表之間的關(guān)系查詢。 使用簡(jiǎn)便，用戶無需了解編程語言，便可輕松地設(shè)計(jì)和開發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序。 ﹡ 職工考勤信息部分：主要完成職工考勤信息的管理。 VisualBasic .NET/SQL2020 的結(jié)合足以給企業(yè)帶來信息化的優(yōu)勢(shì)。 (4)刪除職工信息：直接從列表中選中需要?jiǎng)h除的職工信息，然后進(jìn) 行刪除操作，或者首先查詢需要?jiǎng)h除的職工信息，然后再刪除。 人事管理系統(tǒng) 員工基本信息管理 員工考勤信息管理 員工調(diào)動(dòng)信息管理 系統(tǒng) 員工基本信息添加 員工基本信息修改 員工基本信息查詢 員工基本信息刪除 員工考勤信息查詢 員工考勤信息刪除 員工調(diào)動(dòng)信息添加 員工調(diào)動(dòng)信息修改 員工調(diào)動(dòng)信息查詢 添加用戶 修改密碼 10 (2)修改調(diào)動(dòng)信息：修改相應(yīng)的職工調(diào)動(dòng)信息。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)打下基礎(chǔ)。這些實(shí)體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動(dòng)。在項(xiàng)目資源管理器中為這個(gè)工程添加一個(gè)模塊，保存為 Modulel． bas。 設(shè)置窗體的屬性如圖 120所示。 _ FROM UserInfo rd = () Do While () (Trim((0))) Loop Catch ex As Exception () Finally () End Try End Sub 4． 5 建立 用戶添加 添加一個(gè)普通窗體?？丶闹饕獙傩栽O(shè)置如表 14 所示。//關(guān)閉 RemoveMenu(GetSystemMenu(, 0), SC_MAXIMIZE, MF_REMOVE) 39。 )) Next End If End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub 27 4． 10． 建立 修改員工信息 4． 10． 1 添加窗體 添加一個(gè)普通窗體。 圖 125 刪除員工基本信息窗體 4． 9． 2 添加代碼 Public Class Emp_Info_Del Dim objconn As New ALL_SQL Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As 26 ) Handles If = Then = Else If () = Then = Else = √ If = √ Then = True Else = False End If End If End If End Sub Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As ) Handles If () Then = Else = √ If = √ Then = True Else = False End If End If End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim i As Integer If = Then () Else If Mid(, 2, 8) Mid(, 2, 8) Then For i = Mid(, 2, 8) To Mid(, 2, 8) ((Mid(, 1, 8 Len()) amp。HF030 Private Const SC_MINIMIZE = amp。 19 圖 122 設(shè)計(jì)好的窗體 添加代碼 Public Class User_Pass_Edit Dim objconn As New ALL_SQL Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles (, ) = = = MsgBox(密碼修改完成 ) End Sub Private Sub Old_Pass_LostFocus(ByVal sender As Object, ByVal e As ) Handles If Then If () = Then = 原始密碼通過驗(yàn)證！ = True Else = 原始密碼錯(cuò)誤！ = False End If Else = 原始密碼不能為空！ = False End If End Sub Private Sub New_pass1_TextChanged(ByVal sender As Object, ByVal e As ) Handles If = 原始密碼通過驗(yàn)證！ Then If = Then = = True Else 20 = 兩次輸入的密碼不同！ = False End If Else If = Then = = () Else = 兩次輸入的密碼不同！ = False End If End If End Sub 4． 7 建 立添加職工信息窗體 4． 7． 1 添加窗體 添加一個(gè)普通窗體。 \。顯示當(dāng)前日期和時(shí)間 = CStr(Now) End Sub End Class 注銷用戶代碼： Private Sub User_Writeoff_Click(ByVal sender As , ByVal e As ) Handles 系統(tǒng) = False = False = False = False = False = False () username = End Sub 4． 4 建立登錄窗體 4． 4． 1 添加窗體 在工具欄中選擇“添加窗體”命令為工程添加一個(gè)窗體。 為了提高代碼的效率方便維護(hù)，在 Visual 中可以用公用模塊來存放工程中經(jīng)常使用的函數(shù)、過程和全局變量等。 有了上面的數(shù)據(jù)結(jié)