人事管理信息系統(tǒng)課程設計講課稿

1、目錄1 引言 . 12 系統(tǒng)調查與可行性研究 . 32.1 初步調查 . 32.2 可行性研究 . 63 系統(tǒng)分析 . 83.1 業(yè)務流程分析. 83.2 數據流程分析. 83.3 數據字典 . 114 系統(tǒng)設計 . 194.1 功能結構設計. 194.2 數據庫設計 . 194.3 代碼設計 . 284.4 輸入輸出設計. 294.5 系統(tǒng)配置設計 . 305 結 束 語 38參考文獻 . 47附錄 . 481 引言隨著計算機技術的飛速發(fā)展，計算機在各種單位機構管理中應用的普及，管理信息 系統(tǒng)的開發(fā)在強調管理、強調信息的現代社會中也顯得越來越重要。因此，利用計算機 支持單位高效率地完成人事管

2、理的日常事務，是適應現代各種單位機構制度要求、推動 各種單位機構人事管理走向科學化、規(guī)范化的必要條件。在當今的信息社會，隨著信息的不斷增長和企業(yè)對信息的要求，信息管理技術隨之 出現。企業(yè)人事管理信息系統(tǒng)是一個現代化的企業(yè)在競爭中立于不敗之地的必要部分， 它能夠為查詢人事信息提供充足的信息和快捷的查詢手段 1 。一直以來使用傳統(tǒng)人工的 方式管理文件檔案，這種管理方式存在著許多缺點 , 如：效率低、保密性差，另外時間 一長，將產生大量的文件和數據 , 這對于查找、更新和維護都帶來了不少的困難，而且 容易丟失。自 20 世紀 50年代將計算機引入數據處理以來，歷經管理信息系統(tǒng)發(fā)展的各 個階段。一方面

3、是信息技術應用的迅猛發(fā)展，另一方面，許多管理信息系統(tǒng)在耗費了大 量的人力、物力、財力之后夭折了，或者根本沒有實現原系統(tǒng)的開發(fā)目標，而把計算機 用作了打字機。這是長期以來困惑人們的一大問題 2 ?，F在人們日益深刻認識到，把信 息技術應用與應用環(huán)境分離是辦不到的。管理信息系統(tǒng)根本不僅是技術系統(tǒng)，而且是社 會系統(tǒng)。使用計算機對企業(yè)人事信息進行管理，具有手工管理所無法比擬的優(yōu)點。例如：檢 索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能 夠極大地提高企業(yè)人事管理的效率 , 也是企業(yè)的科學化、正規(guī)化管理，與世界接軌的重 要條件 3 。因此，開發(fā)一個代替手工操作的新型的計算機管

4、理的信息系統(tǒng)對保定隆達鋁業(yè)有限 公司來說刻不容緩，這也是本課題的由來。本論文就是以 VISUAL BASIC 6.0 為前臺和 ACCESS 2003為后臺等軟件作為開發(fā)工 具，以各種單位機構為對象，開發(fā)一個從某種程度上能滿足中小型機構對人事信息管理 的要求的“人事管理系統(tǒng)” 。本系統(tǒng)具有數據管理和企業(yè)事務管理功能。使用該系統(tǒng)， 可以方便地進行系統(tǒng)管理，基礎數據管理，人事檔案管理，考勤管理，數據庫管理，并 且?guī)в袀渫浌δ埽€能夠快捷地查詢公司員工的情況，方便企業(yè)高層領導對該企業(yè)人 力資源的現狀有個比較全面的認識，也方便他們的管理和人員調動，可輔助企業(yè)領導決策科學化，從而大大減少了工作量，提高

5、了工作效率。本課題是輔助企業(yè)管理的系統(tǒng)，擬采用的開發(fā)平臺為 Windows平臺，系統(tǒng)所采用的開發(fā)工具為VISUAL BASIC 6.0和ACCESS 200。32系統(tǒng)調查與可行性研究在系統(tǒng)的開發(fā)前期對系統(tǒng)進行可行性分析是十分必要的一個環(huán)節(jié)，這對于保證資源的合理使用，避免浪費是十分必要的，也是項目一旦開始以后能順利進行的必要保證。 信息系統(tǒng)的建設是一項投資大，時間長的復雜工程，可行性研究更為必要，也更復雜，更困難。“可行性”是指在當前情況下，企業(yè)研制這個信息系統(tǒng)是否有必要，是否具備 必要的條件?？尚行缘暮x不僅包括可能性，還包括必要性，合理性。2.1初步調查隨著科技日新月異的發(fā)展，網絡的更加成熟

6、，以及企業(yè)規(guī)模的擴大，越來越多的企 業(yè)對自己員工的情況也開始使用計算機進行自動化的管理。河北威遠生物化工股份有限公司也正需要一個這樣的人事管理信息系統(tǒng)，因此，開發(fā)一個操作方便、功能適合的 管理系統(tǒng)，提高威遠生化的管理效率已成為當務之急。經過調查我了解到河北威遠生物化工股份有限公司的組織機構圖如圖2.1所示：參挖脫金司|研扯中也鍛際中心中卍 右家?guī)咨杲?粧叩耶地血梟貳堆 郎加名斯妹地 lx1 LJi ur' Lii 河北竝述動物藥業(yè)會限藝司北和申農尢坐物按術腔愉訴園仝可圖2.1 河北威遠生物化工股份有限公司組織機構圖目前，該公司在人事管理方面主要還是手工操作為主，不僅辦公效率低，容易出錯

7、,而且還需要很多的專門人員從事這項工作。這對于公司來講無益于長遠的發(fā)展，為了改 精品文檔善這方面的管理，該公司需要引進一套人事管理系統(tǒng)。人事管理系統(tǒng)是一個面向企業(yè)人事人員，為其提供服務的綜合信息管理系統(tǒng)。人事 人員通過本系統(tǒng)完成相關的日常工作，這些工作也是平常較為繁重的工作。公司人事基 礎數據信息、人員的個人檔案信息、系統(tǒng)管理以及考勤管理和數據庫管理等情況都記錄 在人事系統(tǒng)里進行管理。2.2 可行性研究可行性是指在當前組織內外的具體條件下，這個信息系統(tǒng)的開發(fā)是否具備必要的資 源及其它條件?？尚行?，是指在當前情況下，設計開發(fā)這個系統(tǒng)是否有必要，是否具備 必要的條件，它不僅包括必要性，還包括合理性

8、。系統(tǒng)的可行性分析，是針對設計一個 系統(tǒng)，它的設計是否存在內外部的必要條件，包括技術上、經濟上、人力資源以及組織 管理上的必要條件，同時還要分析在目前條件下是否有必要設計這樣一個系統(tǒng)。隨著計算機技術、網絡技術和信息技術的發(fā)展，越來越多地改善著現代人的觀念。 辦公自動化系統(tǒng)是計算機技術和網絡迅速發(fā)展的一個辦公應用解決方案， 它的主要目的 是實現信息交流和信息共享，提供協(xié)同工作的手段，提高辦公的效率，讓人們從繁瑣的 有紙辦公中解脫出來。目前，國內人事信息管理系統(tǒng)的開發(fā)技術基本成熟；主要原因在 于人事信息管理系統(tǒng)本身具有業(yè)務清晰、數據處理規(guī)范等許多優(yōu)點，為其實現計算機信 息化提供了必要的優(yōu)越條件；加

9、上近十年來計算機技術的飛躍發(fā)展，以及國內各應用單 位的高度重視，人事信息管理系統(tǒng)在國內基本上已進入了普及應用的階段。國內近 90% 以上的應用計算機及開發(fā)管理信息系統(tǒng)的公司和單位均開發(fā)并運行了人事信息管理系 統(tǒng)，其他沒有和正準備開發(fā)計算機應用或開發(fā)管理系統(tǒng)的公司和單位，也把人事信息管 理系統(tǒng)作為其應用與開發(fā)的首要目標。 加上國家勞動主管部門及國內計算機應用開發(fā)商 的共同努力，國內目前已有多種通用的人事信息管理系統(tǒng)軟件供應用單位選擇使用，而 且還有多種人事信息管理系統(tǒng)開發(fā)通用工具供用戶開發(fā)自己的人事信息管理系統(tǒng)。 應該 說，人事信息管理系統(tǒng)的開發(fā)與應用在國內已進入相對成熟期。為解決這一問題，企業(yè)

10、在更新硬件的同時，根據實際狀況，設計出這款企業(yè)人事管 理系統(tǒng)。這款企業(yè)人事管理系統(tǒng)主要有 5 個功能部分組成，分別是：1 ) 系統(tǒng)管理功能2 ) 員工信息管理功能3 ) 工資管理功能4 ) 數據管理功能5 ) 用戶管理功能 主要實現企業(yè)人事信息的管理查看，員工調動管理，以及員工薪資管理等功能。 經過分析，我們選用微軟公司的 VISUAL BASIC 6.0和 ACCESS 2003作為開發(fā)工具， 利用其提供的各種面向對象的開發(fā)工具，開發(fā)了這套企業(yè)人事信息管理系統(tǒng)。首先 , 在 短時間內建立系統(tǒng)應用原型；然后，對初始原型系統(tǒng)進行需求迭代，根據需求不斷修正 和改進，直到形成用戶滿意的可行系統(tǒng)。2.

11、2.1 技術可行性1) 硬件、軟件要求不高，目前市場上的一般計算機軟硬件資源均能滿足系統(tǒng)開發(fā)要求。其中運用 的主要軟件有 photoshop,Acdsee 等，數據庫采用 Access 2003 。2) 維護操作 工作方便，后臺操作快截明了，操作人員可以在短時間內完全掌握維護技術。2.2.2 經濟可行性1) 資金可得性 由于系統(tǒng)開發(fā)并不復雜，操作起來也比較簡單，只需一些基本的編輯軟件，另外具備網 絡中心的一些資源優(yōu)勢，因此開發(fā)費用較低。2) 經濟合理性 由于該系統(tǒng)用于企業(yè)工作的大部分信息發(fā)布和傳遞工作， 不僅能夠節(jié)省大量的人工信息 傳遞任務，提高了工作效率，更加有利于整個企業(yè)各部門之間的無紙化

12、辦公的推廣。2.4 社會可行性 網絡安全技術的不斷提升，網絡管理人事在實際運用中越來越被企業(yè)或個人所接受(這 些都可以在實際生活中找到材料和數據。 )，并且在不斷的提升和表現它在實際企業(yè)活動 中的經濟價值，這個經濟價值也是當前的企業(yè)所期望看到的。人事管理工作覆蓋面廣 , 涉及到機構設置、人員調配、員工培訓、考核、獎懲、工資福利待遇等多個方面。人事管理活動中產生的大量數據和信息，如:各級機構的層次構建，職工的自然狀況，職稱、職 務變動情況，考核培訓結果，專業(yè)技術工作及主要業(yè)績以及針對這些數據進行的各類統(tǒng) 計報表的制作和綜合分析等。對如此多的數據、信息的管理、開發(fā)及運用，都必須在規(guī)范化和標準化的基

13、礎上實現，借助于網絡化管理手段能夠滿足這些要求。3系統(tǒng)分析3.1業(yè)務流程分析業(yè)務流程分析是對業(yè)務功能分析的進一步細化。業(yè)務流程分析的目的是：形成合理、科學的業(yè)務流程。根據人力資源管理業(yè)務的流程特點，繪制其業(yè)務流程圖如下：人事管理信息系統(tǒng)人員變動單人員查詢單工資查詢單3.2數據流程分析數據流程分析就是把數據在現行系統(tǒng)內部的流動情況抽象出來，舍去了具體組織機構、 信息載體、處理工作等物理組成，單純從數據流動過程來考察實際業(yè)務的數據處理模式 數據流程分析主要包括對信息的流動、變換、存貯等的分析。其目的是要發(fā)現和解決數 據流動中的問題。根據人力資源管理業(yè)務數據流動的特點，繪制其數據流程圖如下： 精品文

14、檔管理員管理員管理員有關雄昭檔案表部門一般用戶數據存檔工資基本表登記處理基礎檔案表登記處理人員變動表 登記處理3.3數據字典數據字典是關于數據的信息的集合，也就是對數據流圖中包含的所有元素的定義的集合。為了對設 計了傳統(tǒng)中的各個元素作出詳細的說明，有必要建立數據字典。數據字典的主要內容是對數據流程 圖中的數據項，數據結構，數據流，處理邏輯，數據存儲和外部實體等六個方面進行具體的定義。數據項1） 數據項名稱：用戶名簡述：用戶的名字，沒有重復，可以唯一標識每一用戶類型：文本長度：502）數據項名稱：用戶密碼簡述：用戶的密碼，用來證驗登陸的用戶是否合法。類型：文本長度：503）數據項名稱：是否管理員

15、簡述：描述是否系統(tǒng)管理員類型：是/否取值范圍：真/假數據結構1）數據結構名稱：用戶名和密碼信息組成：用戶名，密碼，是否管理員2）數據結構名稱：民族檔案設置組成：民族編號，民族名稱3）數據結構名稱：職工類型設置組成：職工類型編號，職工類型名稱4）數據結構名稱：文化程度設置組成：文化程度編號，文化程度名稱。5）數據結構名稱：政治面貌設置組成：政治面貌編號，政治面貌名稱6）數據結構名稱：部門類別設置組成：部門類別編號，部門類別名稱7）數據結構名稱：工資類型設置組成：工資類型編號，工資類型名稱8）數據結構名稱：職稱類別設置 組成：職稱類別編號，職稱類別名稱。9）數據結構名稱：職務類別設置組成：職務類別

16、編號，職務類別名稱10）數據結構名稱：職工信息組成：職工編號，職工性別，職工年齡，民族，婚姻狀況，家庭電話，電子郵箱，手機，籍貫，地 址，畢業(yè)學校，職稱，入職時間，職稱類別，部門類別，職務類別。11）數據結構名稱：職工的家庭成員組成：編號，員工號，成員姓名，關系，出生日期，工作單位，擔任職務，政治面貌4系統(tǒng)設計4.1功能結構設計根據系統(tǒng)的總體要求及設計思想，結合上面的分析，設計得出的人事信息系統(tǒng)模塊主要由以下幾個功能模塊組成具體實現步驟為：2）系統(tǒng)功能模塊圖檔案操作系統(tǒng)管理用戶管理數據管理幫助關 于 系 統(tǒng)3）系統(tǒng)圖D1管理信息表D2基礎數據表P1后臺 管理D3人員基本表D4工資基本表D7人員

17、詳細表D5人員查詢表般訪問者P2前臺 管理管理員D6工資查詢表4）系統(tǒng)流程圖用戶登錄4.2數據庫設計數據庫在一個信息管理系統(tǒng)中占有非常主要的地位，數據庫結構設計的好壞，將直 接對應用系統(tǒng)的效率以及實現的效果產生影響， 合理的數據庫機構設計可以提高數據庫 存儲的效率，保證數據的完整和一致，同時也有利于程序的實現。設計數據庫時應考慮到用戶各方面的需求，包括現有的以及將來的可能增加的需 求。同時，也要考慮到由于用戶錯誤的數據操作所可能產生的問題，以及解決此類問題 的辦法。用戶的需求體現在各種信息的提供、保存、更新和查詢上。這就要求數據庫系統(tǒng)能夠充分滿足以上要求，根據系統(tǒng)用戶的需求，結合數據庫自身的條

18、件和一般的信息管理 系統(tǒng)的需求，利用Access數據庫設計企業(yè)人事信息管理系統(tǒng)所需的數據庫項和數據結 構如下：1）基礎檔案表字薛稱數據類型Ld號名貫晦編姓籍號編動本本本自文文文職工功101050況癥號期狀面證日 址鋪別否廉族治份生 住郵性婚健民政身岀本本本本本本本本本 丈文丈丈文丈文丈丸職工類型單位 部門聯(lián)系電話 移動電話參加工作時間 _入本單位時間 »曾經學歷攝高學歷本本本本本本本本本 瓦玄丈丈丈丈文丈艾5050202010102）參數設置表字段名稱數毎類型目動編號項目值文本3）部門設置表字殷名稱數據類型自動編號單位名稱文本foot數字4）個人簡歷表字段名稱數據荽型5)j乓id 職

19、工姓名開始時間結束時間 所在單位 職務 證明人號勿字本本本本本本 自數文文文文立文SI個人榮譽表字段名稱rzgid 職工姓名枝得時間所獲稱號舷單位6）家庭信息表字段名稱czgi d職工姓名 咸員姓名 關采所在單位7）工資發(fā)放表1字段名稱fzcid姓名職務單位部門月度開尸銀行銀行帳號崗位工資補貼加班工資效益工資耳它應發(fā)養(yǎng)老金失業(yè)金醫(yī)保金公積金房水電苴它應扣代扣稅£ f£id記錄人8）工資管理表數據類型號動字本本本恭 自數文文文文自動編號數字文本10文本10文本10文本50數范類型號動字本本本 自數文文文工資表嗎id10105025號動字本本本 自數文文文工資表王£人

20、|110開尸銀行 銀行帳號 崗位工資 補貼加班工費 效益工資 茸它應發(fā) 養(yǎng)老金 失業(yè)金 醫(yī)保金 公祝金 房水電 苴它應扣 代扣稅本本幣幣幣幣 尤文貨貨貨貨幣幣幣幣幣幣幣幣 貨貨貨貨貨貨貨貨5025_ 吁段名稱數曙裘型旦文本9）公司信息表公司地址文本郵政編碼文本負責人文本聯(lián)系電話文本移動電話文本10）系統(tǒng)用戶表字綾名稱數據類型自動褊號passCzyqK操作員權限4.3代碼設計代碼是代表事物名稱，屬性，狀態(tài)等的符號，為了便于計算機處理，一般用數字，字母或它們的組合來表示。本系統(tǒng)需設計的代碼是員工工號，根據公司員工人數和人員特點，決定選用順序碼編制員工工號。具體設計如下：員工工號由工作單位識別碼（公

21、司代碼、部門代碼），個人信息識別碼（入司年碼、入司月碼、入司序號）共10位數字構成，其排列順序為：工作單位識別碼個人信息識別碼公司代碼部門代碼入司年碼入司月碼入司序號XXXXXXXXXX其中 工作單位識別碼”是各子公司各部門在全集團內唯一標識符，由四位數字組成。前兩位數 精品文檔字是 “公司代碼 ”，后兩位是 “部門代碼 ”。而 “個人信息識別碼 ”由六位數字組成， 前兩位是 “入司年碼中間兩位是 “入司年碼 ”、后兩位位是 “入司序號 ”。4.4 輸入輸出設計系統(tǒng)設計的過程和系統(tǒng)實施的過程恰好相反，并不是從輸入設計到輸出設計，而是 從輸出設計到輸入設計，這是因為輸出設計直接和用戶需求相聯(lián)系，

22、設計的出發(fā)點應該 是保證輸出方便地為用戶服務，正確地反映用戶所需要的有用信息。1）輸出設計輸出設計的主要目的是滿足用戶和管理者對數據和信息的要求。 輸出設計要考慮的主要 內容有： 輸出信息名：該輸出信息的名稱。 輸出功能：該輸出信息起什么作用。 輸出周期：多長時間輸出一次。 輸出期限：每次輸出的期限 。 輸出媒體：輸出信息記錄媒體名稱。 輸出方式：批輸出還是實時輸出。 輸出用紙：專用紙或通用紙。 傳遞方式：郵遞、電話、傳真、電子郵件或人工傳遞。 使用后的處理：保存、銷毀或上繳。 輸出用文字：英文、漢字、漢語拼音。輸出信息校驗：檢驗輸出信息的正確性，包括確定校驗內容、檢驗方法和校驗后的處 理。保

23、密要求：有或無。輸出項目名稱：構成輸出信息的每個數據項。本系統(tǒng)中所選用的輸出方式有三種：查詢顯示輸出、報表打印輸出和圖形顯示輸出。查詢顯示輸出的信息主要是各種查詢結果，這是一種實時性要求很高的輸出，輸出設備是顯示器。報表打印輸出的信息主要是各種報表形式的數據信息，如工資發(fā)放信息，上級部門要求上繳的統(tǒng)計數字等。圖形顯示輸出具有前兩者所無法比擬的優(yōu)越性，它直觀, 可比，易于理解，結論明顯。例如圖形顯示輸出：別職工工資Excel表2）輸入設計在計算機信息系統(tǒng)中，輸入數據的正確性決定著整個系統(tǒng)質量的好壞。若輸人數據缺精 確性和適時性，即使計算和處理十分正確，也不可能得到可靠的輸出信息。最佳的信息 系統(tǒng)

24、始于最佳的輸入系統(tǒng)。根據輸出信息的要求，輸入設計要考慮的主要內容如下 輸入信息名：該輸入信息的名稱。 輸入功能：該輸入信息起什么作用。 輸入周期：多長時間輸入一次。 輸入期限；每次輸入的期限。 輸入媒體：輸入信息記錄媒體名稱。 輸入方式：批輸入還是實時輸入 精品文檔 收集方式：原始記錄如何收集。 原始信息名：與本輸入對應的用戶原始憑證。 輸入項目名：構成輸入信息的每個數據項名稱。 輸入用文字：英文、漢字或漢語拼音。本系統(tǒng)采用的輸入方式主要是鍵盤輸入，便于查詢和檢索系統(tǒng)。因此，友好的輸入 界面變得非常重要，必須保證用戶在輸入時方便、安全、高效。例如新增職工信息輸入 如下圖：新增職工信息輸入圖隨著

25、信息技術的發(fā)展和各種新概念不斷地引入管理 （如電子化管理等），簡單的鍵盤 輸入必將不能適應快節(jié)奏的運營方式。因此有必要引進先進的技術手段，使系統(tǒng)實現聯(lián) 機輸入，將數據信息以報文的形式從各用戶終端送到處理中心。這是系統(tǒng)今后擴充時 要考慮的，另外，還要考慮數據輸入格式，主要要求如下： 輸人格式應保證輸入精度。 輸人格式應盡量減少填寫量，便于填寫，便于校對。 同意規(guī)格和代碼，按標準格式輸入。 簡化和減輕輸入負擔。例如在鍵盤輸入過程中，應保證畫面大小和屏幕大小相一致，各種憑證的輸入應考慮輸 入格式和憑證格式相一致。數據輸入完成后，并不能馬上就進入系統(tǒng)，還應對其進行檢驗，稱為輸人數據檢驗。輸 人數據檢驗

26、是保證輸入數據正確的重要措施。通過多種措施，對全部輸人數據設想其可 能出現的差錯，對之進行校驗，對校驗中查到的有錯數據，考慮修改及補救辦法。數據 校驗的辦法有兩類：靜態(tài)檢驗 (人工復核)和動態(tài)檢驗(計算機程序檢驗 )。在本系統(tǒng)中，進行輸入數據檢驗的具體做法要求如下：(1) 嚴格復核制度，未經復核的憑證、單據不得上機錄入。(2) 重復校驗，經過復核的數據、憑證還應經另外的輸人人員進行檢驗。(3) 人工靜態(tài)檢驗，在輸入的同時，由、計算機顯示輸入的數據，然后與原始單據進行 對比，查找錯誤。(4) 程序檢驗，根據輸入的數據類型、格式、邏輯性等進行檢驗，具體內容包括： 數字檢驗：檢查數字項目內容中是否出

27、現非數字數據。 界限檢驗：檢查數據項目是否超過規(guī)定的數據范圍，如數據位數、數值范圍等。 邏輯檢驗：檢查數據的合理性、邏輯性是否符合要求 (例如月份不會超過12,更不會 是負數 ) 。 格式檢驗：檢查數據記錄中各數據項的位數和位置是否符合預先規(guī)定的格式。例如工 資定為 4 位整數、 2 位小數，檢查最高位是不是空格或數字等。 字符檢驗：檢查全部由字母組成的數據(如姓名)中是否出現非字母字符，或檢查該數 據長度和格式是否符合規(guī)定。對于檢查出的輸人數據錯誤，應該以恰當的形式報告出來，或打印錯誤報告，或實時提 出錯誤警示和修改提示等，幫助用戶盡快正確輸入數據。4.5 系統(tǒng)配置設計多種多樣的的計算機技術

28、產品為信息系統(tǒng)的建設提供了極大的靈活性， 使我們可以 根據應用的需要選用不同生產商的性能各異的軟硬件產品， 但同時員工系統(tǒng)設計工作帶 來了新的困難，那就是面對眾多廠家生產的產品如何做出最明智的選擇。本系統(tǒng)的主要 設計依據是：1）系統(tǒng)的吞吐量2）系統(tǒng)的響應時間3）系統(tǒng)的可靠性4）系統(tǒng)的處理方式5）地域范圍6）數據管理方式根據以上六大依據，本系統(tǒng)最低的計算機硬件配置為：1GHz 32 位 （x86） 或 64 位 （x64） 處理器 1）。1 GB 系統(tǒng)內存。DirectX 9圖形支持，WDDMK動程序，至少128 MB圖形內存2, Pixel Shader 2.0和32 位/ 像素。40 GB

29、硬盤容量， 15 GB 可用空間。DVD-ROM區(qū)動器3。音頻輸出能力。Internet 訪問能力。軟件配置為： windows 2000 以上， Access 2003,Visual Basic 6.0 中文版另外，其他系統(tǒng)配置根據自身公司的需要進行選擇。5 結束語本文介紹采用VB吉合Access數據庫開發(fā)的企業(yè)人事管理信息系統(tǒng)，提供了用戶的權限管理、人事檔案的查詢、添加、刪除、數據的導人導出、工資的管理以及數據庫的備 份和恢復等功能，操作簡單明了，與 Access和Excel聯(lián)合辦公緊密，方便人事管理部門 進行人事檔案查詢和管理，可大大提高工作效率，將會使企業(yè)的人事管理工作步人嶄新 的臺階

30、。本統(tǒng)在實際的使用過程中還有很多可以完善的地方，譬如各種人事檔案數據的 匯總、統(tǒng)計能和數據報表的制作等。不足的是，由于系統(tǒng)所采用的數據庫為Access，雖使用起來比較方便，但網絡化程度還不高且只能用于中小型企業(yè)?？傊?，該程序可以滿 足目前的人事管理的需求，隨著人事管理工作規(guī)范化、信息化、網絡化的發(fā)展趨勢，其 應用將會越來越廣泛。參考文獻1. 黃梯云管理信息系統(tǒng)高等教育出版社， 20092. 鄭阿齊.Visual Basic實用教程.電子工業(yè)出版社,20043. 黎連業(yè) .管理信息系統(tǒng)設計與實施 .清華大學出版社， 19984. 張曉黎.Visual Basic+SQL Server數據庫應用系

31、統(tǒng)開發(fā)與實例.人民郵電出版社，20035. 張德.人力資源開發(fā)和管理 .清華大學出版社， 19956. 許樹柏 .實用決策方法 層次分析原理 .天津大學出版社， 19987. 秦壽康 .綜合評價原理和應用 .電子工業(yè)出版社， 2000.38. 彭運芳.人力資源開發(fā)的層次分析模型系統(tǒng)工程，2004 （第22卷，第4期：7173）9. 張林.企業(yè)業(yè)績評價的戰(zhàn)略溝通功能研究 .天津大學學報（社會學版）， 2004（第 6 卷， 第 2期： 146149）10. 單薇.利用模糊綜合評價實現企業(yè)水平的量化分析.數學的實踐和認識， 2002（第 32卷，第 2 期： 206 210）11. 陳捷.績效評估

32、研究的新進展 .南京師范大學（社會科學版） ， 2003（第 3期： 8185）12. 符志明，李漢玲 .績效評價體系研究 .系統(tǒng)工程與電子技術， 2001（第 9期： 2325）13. 李昕，劉連臣， 吳澄.一種基于目標規(guī)劃的 AHP 參數學習算法 .清華大學學報（自然科 學版）， 2004（第 44 卷，第 4 期： 466 469）附錄 部分程序代碼1 系統(tǒng)的登錄Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private

33、 Const LWA_COLORKEY = &H1Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nInd

34、ex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongDim Alpha As Integer ' 聲明變量Private Sub cmdDL_Click()If Me.Combo1.Text = ""

35、; ThenMsgBox " 請選擇登陸用戶！ ", 48, "錯誤提示 "Exit SubEnd IfCall OpenConnSQL = "select * from 系統(tǒng)用戶表 where Czy='" & Me.Combo1.Text & "'" rs.Open SQL, cn, 1, 1If zhuan(txtPass.Text) = IIf(Trim(IsNull(rs.Fields("pass"), "", Trim(rs.Fie

36、lds("pass") ThengCzy = rs.Fields("czy")gCzyqx = rs.Fields("czyqx")Call CloseConnMDIfrm.ShowUnload MeElseMsgBox " 密碼錯誤！ ", 48, "錯誤提示 "End IfEnd SubPrivate Sub cmdTC_Click()EndEnd SubPrivate Sub Form_Initialize()Call InitCommonControls 'XP 效果End Su

37、bPrivate Sub Form_Load()Me.Shape1.Top = Me.Top ' 外邊框Me.Shape1.Left = Me.LeftMe.Shape1.Width = Me.ScaleWidthMe.Shape1.Height = Me.ScaleHeightDim Ret As LongRet = GetWindowLong(Me.hWnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret Timer1.Interval = 20Call OpenCon

38、nSQL = "select czy from 系統(tǒng)用戶表 " rs.Open SQL, cn, 1, 1Do While Not rs.EOF Me.Combo1.AddItem rs!czy rs.MoveNextLoopCall CloseConnCall OpenConnSQL = "select 公司名稱 from 公司信息 "rs.Open SQL, cn, 1, 1If rs.RecordCount > 0 Then gGsmc = rs! 公司名稱ElsegGsmc = "公司信息未知 "End IfCall C

39、loseConnEnd SubPrivate Sub Timer1_Timer()Alpha = Alpha + 5If Alpha > 255 ThenTimer1.Enabled = FalseExit SubEnd If精品文檔SetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHA End Sub2 基礎檔案查詢Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Pr

40、ivate Const LWA_COLORKEY = &H1Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal

41、 nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongDim Alpha As Integer ' 聲明變量Private Sub cmdDL_Click()If Me.Combo1.Text = "

42、" ThenMsgBox " 請選擇登陸用戶！ ", 48, "錯誤提示 "Exit SubEnd IfCall OpenConnSQL = "select * from 系統(tǒng)用戶表 where Czy='" & Me.Combo1.Text & "'"rs.Open SQL, cn, 1, 1If zhuan(txtPass.Text) = IIf(Trim(IsNull(rs.Fields("pass"), "", Trim(rs

43、.Fields("pass") Then gCzy = rs.Fields("czy") gCzyqx = rs.Fields("czyqx")Call CloseConnMDIfrm.ShowUnload MeElseMsgBox " 密碼錯誤！ ", 48, "錯誤提示 "End IfEnd SubPrivate Sub cmdTC_Click() 精品文檔EndEnd SubPrivate Sub Form_Initialize()Call InitCommonControls '

44、XP 效果End SubPrivate Sub Form_Load()Me.Shape1.Top = Me.Top ' 外邊框Me.Shape1.Left = Me.LeftMe.Shape1.Width = Me.ScaleWidthMe.Shape1.Height = Me.ScaleHeightDim Ret As LongRet = GetWindowLong(Me.hWnd, GWL_EXSTYLE)Ret = Ret Or WS_EX_LAYEREDSetWindowLong Me.hWnd, GWL_EXSTYLE, RetTimer1.Interval = 20Call

45、 OpenConnSQL = "select czy from 系統(tǒng)用戶表 " rs.Open SQL, cn, 1, 1Do While Not rs.EOF Me.Combo1.AddItem rs!czy rs.MoveNextLoopCall CloseConnCall OpenConnSQL = "select 公司名稱 from 公司信息 "rs.Open SQL, cn, 1, 1If rs.RecordCount > 0 Then gGsmc = rs! 公司名稱ElsegGsmc = "公司信息未知 "End

46、IfCall CloseConnEnd SubPrivate Sub Timer1_Timer()Alpha = Alpha + 5精品文檔If Alpha > 255 ThenTimer1.Enabled = FalseExit SubEnd IfSetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHAEnd Sub3 用戶管理Dim qx As String ' 權限Private Sub Check1_Click(Index As Integer)End SubPrivate Sub cmdBC_Click() '

47、; 保存按鈕If Trim(Me.txtCZY .Text) = "" ThenMsgBox " 登陸名不能為空！ ", 48, "提示" Exit SubEnd IfIf Me.cmdBC.Caption = " 新增 " ThenFor i = 0 If Trim(Me.txtCZY .Text) = Me.List1.List(i) Then MsgBox " 該用戶已經存在！ ", 48, " 提示 " Exit SubEnd IfNextCall OpenConnS

48、QL = "select * from 系統(tǒng)用戶表 "rs.Open SQL, cn, 3, 3rs.AddNewrs!czy = Trim(Me.txtCZY .Text) rs!pass = zhuan("123456") For i = 0 To 5qx = qx & Me.Check1(i).ValueNextrs!czyqx = qx精品文檔rs.UpdateCall CloseConn qx = ""MsgBox " 操作員添加成功，初始密碼為 123456，請注意修改！ ", 64, " 提示" Me.txtCZY.Enabled = TrueMe.cmdSC.Enabled = FalseElseCall OpenConnSQL = "select * from 系統(tǒng)用戶表 where czy='" & Me.txtCZY .Text & "'" rs.Open SQL, cn, 3, 3For i = 0 To 5qx = qx & Me.Check1(i).ValueNext rs!czyqx = qx rs.UpdateCall