【正文】 .................................. 26 服務(wù)端工作截圖 .................................................................................................................... 31 第五章 總結(jié) .......................................................................................................................................... 33 2 致 謝 ......................................................................................................................................................... 34 參考文獻(xiàn) .................................................................................................................................................. 34 1 第一章 緒論 系統(tǒng)開發(fā)背景 信息 化是當(dāng)今世界的主題和標(biāo)志，信息就是數(shù)據(jù)，信息化就是要方便、快捷地獲取數(shù)據(jù)，充分而有效地利用數(shù)據(jù)，使得工作更加有效地完成。 本系統(tǒng)是從企業(yè)人力資源管 理這一角度出發(fā)的，采用 C/S數(shù)據(jù)庫模型。 早期的員工信息資料統(tǒng)計都是使用人工方式處理紙質(zhì)材料，不僅花費人力部門大量的時間且不易保存，往往由于個人的因素抄寫不慎，出現(xiàn)數(shù)據(jù)錯誤的現(xiàn)象。 0 基于 VB 的企業(yè)人力資源管理系統(tǒng) 物理與信息工程 學(xué)院 通訊工程 專業(yè) 指導(dǎo)教師 副 教授 【摘要】 數(shù)據(jù)庫管理的應(yīng)用在企業(yè)里是極為重要的一環(huán)，可以說是關(guān)系到企業(yè)是否正常運作的一環(huán)。沒有數(shù)據(jù)庫的支持，企業(yè)就很難做到管理一致，管理及時，和合理調(diào)度。 因而 實現(xiàn)人力資源管理的系統(tǒng)化、規(guī)范化、自動化 就顯得格外的重要，也是現(xiàn)在企業(yè)不可或缺的一環(huán)。提供較為完善的登錄方式、認(rèn)證方式、權(quán)限分配方式、數(shù)據(jù)管理方式等。沒有了數(shù)據(jù)，就沒有了一切，這決定著數(shù)據(jù)庫的應(yīng)用是廣泛而深刻的。 什么是數(shù)據(jù)庫管理系統(tǒng)？說白了就是人機(jī)交流界面。 隨著計算機(jī)及其萬維網(wǎng)在全世界的普及，開發(fā)一個合格，能夠滿足人們的日常需要的數(shù)據(jù)庫管理系統(tǒng)也就非常有必要了。 系統(tǒng)開發(fā)目標(biāo) 企業(yè)人事管理是一項瑣碎、復(fù)雜而又十分細(xì)致的工作，一般不允許發(fā)生差錯。 本系統(tǒng) 供合理的登陸安全認(rèn)證，由本地或者服務(wù)端進(jìn)行 認(rèn)證；二、進(jìn)行權(quán)限分配 ，包括管理員和普通員工的之分，普通員工 只能查看不能修改；三、提供 留言模塊，為 管理員 和普通員工 之間的對話提供捷徑；四、提供各種詳細(xì)查詢。 整個開發(fā)過程始終是圍繞著 提高人力資源部門的工作效率 、降低人工成本、量化對人的管理。如果只是憑空猜想用戶的要求，結(jié)果不會令人滿意。未真正明白這些問題就開始編碼，結(jié)果沒有人對產(chǎn)品滿意。這里所指的風(fēng)險承擔(dān)者包括客戶方面的項目負(fù)責(zé)人和用戶，開發(fā)方面的需求分析人員和項目管理者。若處理的不好，則會都只誤解、挫折、障礙以及潛在的質(zhì)量和業(yè)務(wù)價值上的威脅。 需求分析的方法有很多 .比如 :結(jié)構(gòu)化方法 ,動態(tài)分析法、原型法等 ， 而這里采用的正是原型法。 可行性分析 軟件可行性分析最根本的任務(wù)是對以后的行動方針提出建議。具體可分為： 1. 市場分析 （ 1）分析市場發(fā)展歷史與發(fā)展趨勢，說明本產(chǎn)品處于市場的什么發(fā)展階段。 （ 4）產(chǎn)品消費群體特征、消費方式以及影響市場的因素分析。 2. 政策分析 （ 1）分析有無政策 “支持 ”或者 “限制 ”； （ 2）分析有無地方政府（或其它機(jī)構(gòu)）的 “扶持 ”或者 “干擾 ”。 4. 技術(shù)可行性分析 從技術(shù)角度分析本產(chǎn)品 “做得了嗎？ ”、 “做得好嗎？ ”、 “做得快嗎？ ”。無論是企業(yè)級用戶還是個人開發(fā)者，都能夠利用 Visual Basic 輕松、快捷地構(gòu)建企業(yè)應(yīng)用。 （ 1） Visual Basic 的語法簡單易 學(xué)，很容易上手 （ 2） Visual Basic 提供了強(qiáng)大的可視化編程能力，可以輕松地做出漂亮的程序。它提供了表、查詢、窗體、報表、頁、宏、模塊 7 種用來建立數(shù)據(jù)庫系統(tǒng)的對象；提供了多種向?qū)?、生成器、模板，把?shù)據(jù)存儲、數(shù)據(jù)查詢、界面設(shè)計、 報表生成等操作規(guī)范化；為建立功能完善的數(shù)據(jù)庫管理系統(tǒng)提供了方便，也使得普通用戶不必編寫代碼，就可以完成大部分?jǐn)?shù)據(jù)管理的任務(wù)。熟練的軟件設(shè)計師和資料分析師利用它來開發(fā)應(yīng)用軟件，而一些不熟練的程序員和非程序員的 進(jìn)階用戶 則能使用它來開發(fā)簡單的應(yīng)用軟件。 ADO 數(shù)據(jù)庫訪問技術(shù)簡介 ADO 是 ActiveX Data Object(ActiveX 數(shù)據(jù)對象 )的縮寫，這是由微軟提出的一種新的數(shù)據(jù)庫訪問方法，它專門用于訪問復(fù)雜的大型商業(yè)數(shù)據(jù)庫，包括傳統(tǒng)的關(guān)系型數(shù)據(jù)庫、電子郵件系統(tǒng)、 Inter 資源等等。 ADO 提供對各種數(shù)據(jù)庫訪問的標(biāo)準(zhǔn)接口。連接時必須指定要連接到的數(shù)據(jù)源以及連接所使用的用戶名和口令等信息； (2)命令對象 Command。查詢命令可以將查詢結(jié)果存儲在本地，這些數(shù)據(jù)以 “行 ”（記錄）為單位，返回數(shù)據(jù)的集合被稱為記錄集； (4)字段對象 Field。如果將記錄集看作二維網(wǎng)格，字段將排列起來構(gòu)成列。 系統(tǒng)總體結(jié)構(gòu)設(shè)計 當(dāng)前最流行的兩種軟件 模式結(jié)構(gòu)分別是 C/S 和 B/S。它是隨著 Inter 技術(shù)的興起，對 C/S結(jié)構(gòu)的一種變化或者改進(jìn)的結(jié)構(gòu)。這樣就大大簡化了客戶端電腦載荷，減輕了系統(tǒng)維護(hù)與升級的成本和工作量，降低了用戶的總體成本（ TCO）。在客戶機(jī) /服務(wù) 器網(wǎng)絡(luò)中，服務(wù)器是網(wǎng)絡(luò)的核心，而客戶機(jī)是網(wǎng)絡(luò)的基礎(chǔ)，客戶機(jī)依靠服務(wù)器獲得所需要的網(wǎng)絡(luò)資源，而服務(wù)器為客戶機(jī)提供網(wǎng)絡(luò)必須的資源。對應(yīng)的優(yōu)點就是客戶端響應(yīng)速度快。 它是軟件系統(tǒng)體系結(jié)構(gòu)，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將任務(wù)合理分配到 Client 端和 Server 端來實現(xiàn)，降低了系統(tǒng)的通訊開銷。數(shù)據(jù)庫設(shè)計的好與壞，直接影響到這個系統(tǒng)的運行效率。 針對企業(yè)人力資源管理系統(tǒng)的需求，通過 對員工工資計算過程的內(nèi)容分析，為本系統(tǒng)設(shè)計如下的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu) ： 表 用戶信息表 字 段 類 型 長 度 是否空 userID 文本 20 否 password 文本 20 否 IP 文本 20 否 管理員 文本 2 否 在線 文本 2 否 上表是用來驗證遠(yuǎn)程用戶的身份合法性，進(jìn)行權(quán)限分配的依據(jù)。主鍵是 userID，保證用戶名的唯一性。 表 留言表 字 段 類 型 長 度 是否空 UserID 文本 20 否 Time 文本 50 否 message 文本 50 否 5 上表是對于遠(yuǎn)程用戶留言的保存設(shè)置，記錄用戶名、時間、內(nèi)容。 服務(wù)端設(shè)計 服務(wù)端是用來處理客戶端的請求的處理站。它是否正常工作關(guān)系到整個 C/S 系統(tǒng)的穩(wěn)定性 。 各控件的主要屬性設(shè)置如下。 （ 2） Adodc1 的數(shù)據(jù)源為 設(shè)計完成的服務(wù)端主窗體如下圖 圖 服務(wù)端 賬號驗證窗體 服務(wù)端的賬號驗證窗體是用來驗證管理員賬號的合法性，通過比對 中的用戶信息表中數(shù)據(jù)來確定是否用戶有權(quán)限登錄系統(tǒng)。 amp。 amp。 39。 amp。 If Then MsgBox 用戶名或密碼錯誤 , , 錯誤 Else If (password).Value = Then MsgBox 歡迎使用 , , 確認(rèn)登陸 6 Unload Me Else MsgBox 用戶名或密碼錯誤 , , 錯誤 End If End If = = End Sub 服務(wù) 端的主窗體 在服務(wù)端工程 中 添加一個 MDIFORM窗體 ， 打開菜單編輯器，在 MDIFORM窗體中添加菜單和子菜單。添加一個 WINSOCK 控件，用來進(jìn)行支持網(wǎng)絡(luò)數(shù)據(jù)傳輸，協(xié) 議使用 TCP 協(xié)議。添加一個 COMMONDIALOG 控件，為數(shù)據(jù)庫備份提供路徑選擇。代碼如下 Private Sub MDIForm_Load() = False = False If Winsock1(0).State 0 Then Winsock1(0).Close End If Winsock1(0).LocalPort = 50400 Winsock1(0).Listen linkcount = 0 = provider=。 persist security info= false。 data source = C:\Documents and Settings\Administrator\桌面 \ = adCmdTable = 用戶信息 = False = provider=。 persist security info= false。 data source = C:\Documents and Settings\Administrator\桌面 \ = adCmdTable = 員工資料 8 = False = provider=。 persist security info= false。 data source = C:\Documents and Settings\Administrator\桌面 \ = adCmdTable = 留言 = False If And Then Exit Sub While Not (在線 ).Value = 0 (IP).Value = 0 Wend End Sub 接受客戶端的連接 如果有客戶端連接到服務(wù)器，那么就會激活 Winsock 的 Winsock1_ConnectionRequest事件過程，代碼如下： Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long) linkcount = linkcount + 1 Load Winsock1(linkcount) Winsock1(linkcount).LocalPort = 0 Winsock1(linkcount).Accept requestID End Sub 程序首先將連接到服務(wù)端的客戶端的數(shù)目加 1，然后通過 Load 方法為 Winsock 控件數(shù)組添加一個新的 Winsock 控件元素，并且通過 Winsock1(linkcount).Accept requestID 語句設(shè)置這個新控件元素專門對應(yīng)這個客戶端的連接。, vbBinaryCompare) name = Left(y, z 1) password = Mid(y, z + 1) userID= amp。 amp。 39。 。 (管理員 ).Value (在線 ).Value = 1 Winsock1(Index).Tag = name Else Winsock1(Index).SendData 40 End If Else Winsock1(Index).SendData 20 End If End If Case 2 z = InStr(1, y, 。, vbBinaryCompare) time = Left(temp, temp1 1) msge = Mid(temp, temp1 + 1) (UserID).Value = name (Time).Value = time (message).Value = msge 11 Case 4 = True = True Case 5 姓名 = amp。 amp。 39。 。 (姓名 ) amp。 amp。 。 (聯(lián)系 方式 ) amp。 amp。, vbBinaryCompare) name = Left(y, z 1) temp = Mid(y, z + 1) temp1 = InStr(1, temp, 。 39。 name amp。 (password).Value = time (管理員 ).Value = msge Case 7 z = InStr(1, y, 。, vbBinaryCompare) time = Left(temp, temp1 1) msge = Mid(temp, temp1 + 1) userID= amp。 amp。 39。, vbBinaryCompare) t