企業(yè)人事管理系統(tǒng)畢業(yè)論文

1、<p><b>　　企業(yè)人事管理系統(tǒng)</b></p><p>　　摘要：在這個信息化時代，計算機(jī)在各個行業(yè)中都得到廣泛的應(yīng)用。在現(xiàn)代化社會使用計算機(jī)來管理人事資料是必然的結(jié)果。本系統(tǒng)是適應(yīng)中小型公司的人事信息，工資管理的系統(tǒng)。它采用了DELPHI 7.0作為開發(fā)，SQL SEVER做數(shù)據(jù)庫，在WindowsXP下運行的簡單系統(tǒng)。</p><p>　　這個簡單

2、的系統(tǒng)對操作者的要求不高，界面簡單，美觀。這個系統(tǒng)可以增加員工的基本資料，老員工資料的刪除；可以對員信息進(jìn)行修改，查詢，刪除和增加，還可以對員工的工資，工作評價進(jìn)行修改，查詢，刪除和增加。本系統(tǒng)是一個簡單便捷的系統(tǒng)，適用于中小型企業(yè)公司。</p><p>　　關(guān)鍵詞：數(shù)據(jù)庫，Delphi 7，人事信息管理</p><p><b>　　引言：</b></p>

3、<p>　　21世紀(jì)是一個信息化時代,科學(xué)技術(shù)的不斷進(jìn)步，計算機(jī)更是在企業(yè)人事管理中應(yīng)用廣泛，這樣計算機(jī)在實現(xiàn)企事業(yè)人事的管理就是必然的結(jié)果。對于各種類型企業(yè)來說，使用計算機(jī)來提高完成人事工資管理的基本功能，是適應(yīng)這個時代企業(yè)的要求、實現(xiàn)企業(yè)的科學(xué)化、系統(tǒng)化，同時也解決了使用人工記錄，效率底、出錯率頻繁的缺點。</p><p>　　人力資源是企業(yè)人事管理的基礎(chǔ)，企業(yè)人事管理系統(tǒng)更體現(xiàn)了這是一個信息化

4、時代。系統(tǒng)中主要包括數(shù)據(jù)庫的設(shè)計、建立以及應(yīng)用程序的開發(fā)兩個方面。在數(shù)據(jù)庫方面，必須使數(shù)據(jù)的一致和完整、數(shù)據(jù)庫的安全行好高、數(shù)據(jù)庫使用方便；在應(yīng)用程序這方面要使該應(yīng)用程序功能完善、界面友好、使用方便等特點。</p><p>　　本系統(tǒng)是使用delphi7.0這個軟件編寫的。該程序包括員工基本資料管理，工資管理、信息查詢和幫助，該程序?qū)崿F(xiàn)了數(shù)據(jù)的輸入輸出、查詢、修改、刪除等基本功能，還可以查看幫助文件。</p

5、><p><b>　　1概述-</b></p><p><b>　　1.1 系統(tǒng)說明</b></p><p>　　本系統(tǒng)是根據(jù)現(xiàn)代社會各個企業(yè)所需要的功能來完成的，它是使用Delphi 7.0和SQL server開發(fā)的一個應(yīng)用程序。系統(tǒng)包含了用戶權(quán)限、員工基本資料、員工工資和系統(tǒng)的幫助查詢的功能。系統(tǒng)的優(yōu)點是簡單實用、方便

6、、快捷，是企業(yè)人事管理工作者的好幫手。</p><p>　　采用SQL Server 2000來連接數(shù)據(jù)庫，數(shù)據(jù)庫中存放著應(yīng)用程序中所要用到的數(shù)據(jù)和相關(guān)的資料。因為SQL Server 2000的安全性比較高，所以本系統(tǒng)使用了SQL Server 2000來完成數(shù)據(jù)庫。</p><p><b>　　1.2 系統(tǒng)特點</b></p><p>　

7、　1、 滿足中小型企業(yè)人事管理的基本要求；</p><p>　　2、 具有完整的系統(tǒng)，可以方便的進(jìn)行數(shù)據(jù)的導(dǎo)入與導(dǎo)出；</p><p>　　3、 對操作人員的技能要求不高，操作方便，簡單；</p><p>　　4、 能夠保證企業(yè)人事管理數(shù)據(jù)的安全、準(zhǔn)確。</p><p>　　1.3 系統(tǒng)功能簡介</p><p>&l

8、t;b>　　1.3.1 功能</b></p><p>　　主要功能有：數(shù)據(jù)入庫、查詢、修改和刪除等</p><p>　　對員工基本信息的查詢、修改、刪除、查詢和戶注冊</p><p>　　對員工工資的修改、查詢，統(tǒng)計員工基本信息表</p><p>　　對員工考勤情況的查詢、統(tǒng)計和刪除員工考勤等情況</p>&l

9、t;p>　　對員工工作評價的查詢、修改和刪除員工工作評價表。</p><p>　　本系統(tǒng)在運行時需要輸入用戶名和密碼，才可以操作系統(tǒng)相關(guān)的數(shù)據(jù)</p><p><b>　　2 系統(tǒng)設(shè)計</b></p><p>　　2.1 系統(tǒng)目標(biāo)設(shè)計</p><p>　　為了使企業(yè)人事管理系統(tǒng)進(jìn)入一個新階段，讓它成現(xiàn)代時代的新產(chǎn)物

10、，成為具有專業(yè)化、信息化的工具。</p><p>　　2.2 開發(fā)設(shè)計思想</p><p>　　本系統(tǒng)的開發(fā)設(shè)計思想：</p><p>　　1、使用現(xiàn)有軟件和硬件的基礎(chǔ)上，采用較好的管理系統(tǒng)的開發(fā)方案，讓它能和效的利用公司現(xiàn)有的資源，來提高系統(tǒng)的水平和工作效率。</p><p>　　2、系統(tǒng)應(yīng)符合企業(yè)人事管理的需求，滿足公司日常對員工管理的需

11、要，同時在操作過程中要達(dá)到直觀、方便、實用、安全；</p><p>　　3、系統(tǒng)中還涉及到數(shù)據(jù)庫功能，可以及時根據(jù)用戶需求進(jìn)行數(shù)據(jù)的添加、刪除、修改等操作。</p><p>　　2.3　開發(fā)和運行環(huán)境選擇</p><p>　　開發(fā)工具：Delphi7.0</p><p>　　數(shù)據(jù)庫：SQL Server2000</p><

12、p>　　運行環(huán)境：WindowsXP</p><p>　　2.4 系統(tǒng)功能分析</p><p>　　1、密碼設(shè)置：每個操作員都有自己的密碼，這是為了防止非工作人員進(jìn)入本系統(tǒng)；因為權(quán)限的不同，所以可以防止越權(quán)的操作。</p><p>　　2、檔案更新：為了存放員工的全部資料數(shù)據(jù)。檔案更新包括對各種表的記錄修改、刪除、添加等操作。</p><p

13、>　　3、檔案查詢：可以按姓名、編號的條件查詢個人和一部分人的情況。</p><p>　　4、檔案輸出：輸出個人檔案、全體檔案</p><p>　　5、其他操作：包括修改密碼。</p><p>　　6、退出：直接退出。</p><p><b>　　3 需求分析</b></p><p><

14、;b>　　3.1 開發(fā)背景</b></p><p>　　在這個信息化時代，科技不斷進(jìn)步，計算機(jī)已成為不可缺少一部分，在各個行業(yè)更是不可少的。現(xiàn)在社會經(jīng)濟(jì)發(fā)展很快，各企業(yè)間的競爭日益激烈，這樣就使得企業(yè)要采取更有效，更高質(zhì)量的方式。我的畢業(yè)設(shè)計就是企業(yè)人事管理系統(tǒng)。</p><p>　　3.2 系統(tǒng)結(jié)構(gòu)設(shè)計</p><p>　　3.3 系統(tǒng)功能

15、分析</p><p>　　本系統(tǒng)是為了更好的對企業(yè)人事進(jìn)行管理。本系統(tǒng)主要是對查看員工的信息來設(shè)計的，可以很好的管理數(shù)據(jù)。主要功能有：數(shù)據(jù)入庫、查詢、修改和刪除等。因此，本系統(tǒng)的主要功能由以下幾個部分組成：</p><p>　　1、員工基本信息模塊</p><p><b>　　輸入：員工信息</b></p><p>　　

16、功能：對員工基本信息的查詢、修改、刪除和增加</p><p>　　2、員工工資管理模塊</p><p><b>　　輸入：員工工資情況</b></p><p>　　功能：完成對員工工資的修改、查詢員工基本信息表</p><p>　　3、員工考勤管理模塊</p><p>　　輸入：員工每月考勤情況&

17、lt;/p><p>　　功能：完成對員工考勤情況的查詢和刪除員工考勤等情況</p><p>　　4、員工工作評價模塊</p><p>　　輸入：企業(yè)對員工工作的評價資料</p><p>　　功能：完成對員工工作評價的查詢、修改和刪除員工工作評價表</p><p><b>　　3.4 信息分析</b>&

18、lt;/p><p>　　本系統(tǒng)中的處理的信息由以下五種信息組成：</p><p><b>　　1.用戶個人信息；</b></p><p>　　2.員工基本錄入信息；</p><p>　　3.員工工作評價信息；</p><p><b>　　4.員工考勤信息；</b></p&g

19、t;<p><b>　　5.員工工資信息。</b></p><p><b>　　3.5 模塊分析</b></p><p>　　可以把系統(tǒng)分為兩塊，一個是數(shù)據(jù)庫模塊、還有一個是系統(tǒng)功能模塊</p><p>　　數(shù)據(jù)庫模塊指的是對數(shù)據(jù)庫的建立，要建立員工基本信息表、用戶表和員工工作評價信息表、員工工資信息表、員

20、工考勤信息表。用戶表實現(xiàn)的功能主要有用戶登陸、注冊新用戶、密碼修改。員工基本信息表所實現(xiàn)的功能主要是對員工基本信息的修改、刪除等。員工工作評價信息表所實現(xiàn)的和員工基本信息表有所類似，是進(jìn)入員工工作評價信息，也對員工工作評價信息的修改和刪除等。員工工資信息表和員工考勤信息表和員工基本信息表是相似的。</p><p>　　查詢功能是建立在表的基礎(chǔ)是，是用戶對資料的查詢。從查詢要用的表來看，可以分為員工基本信息的查詢和

21、員工工資信息、員工工作評價信息、員工考勤信息的查詢。</p><p><b>　　4 數(shù)據(jù)庫設(shè)計</b></p><p>　　數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞直接影響到信息管理系統(tǒng)的效率和實現(xiàn)的效果。合理地設(shè)計數(shù)據(jù)庫結(jié)構(gòu)可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和統(tǒng)一。數(shù)據(jù)庫設(shè)計一般包括如下幾個步驟。</p><p><b>　　1.數(shù)據(jù)庫需求分析&

22、lt;/b></p><p>　　2.數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計</p><p>　　3.數(shù)據(jù)庫邏輯結(jié)構(gòu)分析</p><p>　　4.1數(shù)據(jù)庫需求分析</p><p>　　企業(yè)人事管理系統(tǒng)數(shù)據(jù)庫功能主要體現(xiàn)在對查看員工信息、添加員工信息、 刪除員工信息、修改員工信息、查看工作評價、添加工作評價、刪除工作評價、修改工作評價、考勤信息、查看考勤、

23、當(dāng)日考勤、月考勤、刪除考勤、工資信息查看工資、修改工資各種信息的提供，保存，更新和查詢操作上，信息分類、個人信息詳細(xì)、各個部分的數(shù)據(jù)內(nèi)容又有內(nèi)在聯(lián)系。</p><p>　　4.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計</p><p>　　企業(yè)人事管理系統(tǒng)的實體關(guān)系（E-R）分析是建立在系統(tǒng)功能模塊分析基礎(chǔ)上的。進(jìn)行E-R分析首先要確定系統(tǒng)中的各個實體，并分析它們的屬性和它們之間的關(guān)系，然后畫出它們的E-R圖。

24、</p><p>　　企業(yè)人事管理系統(tǒng)中存在的實體有：員工信息、員工信息實體，用戶刪除員工信息、修改、查看工作評價、添加工作評價、刪除工作評等實體. </p><p>　　4.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計</p><p>　　有了數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計，數(shù)據(jù)庫的設(shè)計就簡單多了。在企業(yè)人事管理系統(tǒng)中，首先要創(chuàng)建系統(tǒng)數(shù)據(jù)庫，然后在數(shù)據(jù)庫中創(chuàng)建需要的表和字段。如果有需要，還可以設(shè)計設(shè)

25、計視圖，存儲過程和觸發(fā)器。下面分別講述系統(tǒng)中數(shù)據(jù)庫的設(shè)計。</p><p>　　4.3.1創(chuàng)建表/字段</p><p>　　本系統(tǒng)數(shù)據(jù)庫采用SQL Server 2000數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名稱為Managedata_Data。數(shù)據(jù)庫Managedata_Data中包含5張表。</p><p><b>　　圖1 用戶登陸表</b></p&

26、gt;<p><b>　　圖2 員工信息表</b></p><p><b>　　圖3 考勤表</b></p><p><b>　　圖4 月考勤表</b></p><p><b>　　圖5 工作評價表</b></p><p><b

27、>　　4詳細(xì)設(shè)計</b></p><p><b>　　4.1登入和主界面</b></p><p><b>　　4.1.1 登入</b></p><p>　　登錄界面如圖 1所示。登錄時，需要輸入用戶名及密碼，并單擊“登錄”按鈕，完成登錄過程。</p><p><b>　

28、　圖 1 登錄頁面</b></p><p><b>　　功能說明：</b></p><p><b>　　用戶名/密碼</b></p><p>　　用戶名長度不得超過10個字符,不能為空。</p><p>　　密碼長度不得超過20個字符，超過以后限制輸入。在這里如果密碼不正確，則無法進(jìn)入系

29、統(tǒng)。</p><p>　　密碼用掩碼 * 顯示，長度根據(jù)已設(shè)值進(jìn)行限制（默認(rèn)為8~20位），不能為空。</p><p><b>　　登錄</b></p><p>　　如果登錄者的輸入是正確的，則直接進(jìn)入主界面</p><p>　　若用戶名或密碼為空或是不正確，則顯示“您輸入的用戶名或密碼不正確，請重新輸入！”，鼠標(biāo)停留在

30、“登錄名”文本框，如圖 2</p><p><b>　　圖 2 登錄出錯頁</b></p><p>　　4.1.2 主界面</p><p>　　系統(tǒng)登錄成功后所看到的主界面，如 \* MERGEFORMAT 圖 3 所示。</p><p><b>　　圖 3 主界面</b></p>

31、<p><b>　　功能說明：</b></p><p>　　進(jìn)入主界面可以看到所有員工的資料：員工編號、員工姓名、性別、出生日期、基本工資、職位、家庭地址、E—mail、聯(lián)系電話、自我評價</p><p>　　4.1.3 用戶信息</p><p>　　系統(tǒng)登錄成功后所看到的主界面，如圖4 所示</p><p>

32、;<b>　　圖 4 用戶信息</b></p><p><b>　　功能說明：</b></p><p><b>　　用戶資料修改 </b></p><p><b>　　修改密碼</b></p><p><b>　　輸入原始密碼</b>

33、;</p><p><b>　　輸入新密碼</b></p><p>　　在確認(rèn)密碼處輸入與新密碼相同的密碼。正確就顯示“修改成功！”，若兩次輸入的密碼不一致，則顯示“您輸入的兩次新密碼不同，請重新輸入！”如圖5所示</p><p><b>　　圖 5 修改密碼</b></p><p>　　4.1.

34、4 員工信息 </p><p>　　選擇員工信息，下拉菜單則顯示四個功能：查看、添加、刪除、修改</p><p>　　4.1.4.1 查看員工信息</p><p>　　選擇查看員工信息，則看到界面，如圖6 所示</p><p><b>　　圖6 查看員工信息</b></p><p><

35、;b>　　功能說明：</b></p><p><b>　　搜索條件</b></p><p>　　選擇所有，點擊搜索，則顯示所有員工信息如圖7所示</p><p>　　選擇員工編號，點擊搜索，則只顯示輸入的該員工的資料</p><p>　　選擇員工姓名，點擊搜索，則只顯示該員工一個人的信息</p&g

36、t;<p><b>　　圖7 所有員工信息</b></p><p>　　4.1.4.2 添加員工信息</p><p>　　選擇添加員工信息，則看到界面，如圖8 所示</p><p><b>　　圖8 添加員工信息</b></p><p><b>　　功能說明：</b&

37、gt;</p><p><b>　　添加員工信息</b></p><p>　　輸入編號，點擊編號檢測，若沒填寫編號則提示“請輸入編號！”</p><p>　　輸入姓名，點擊姓名檢測，若沒填寫姓名則提示“請輸入姓名！”</p><p>　　4.1.4.3 刪除員工信息</p><p>　　選擇刪除

38、員工信息，則看到界面，如圖9所示</p><p><b>　　圖9 刪除員工信息</b></p><p><b>　　功能說明：</b></p><p>　　選擇所有，點擊搜索，再顯示的結(jié)果中選擇所要刪除的員工，點擊刪除按鈕即可刪除</p><p>　　選擇員工編號，點擊搜索，則只顯示輸入的該員工的

39、資料，點擊刪除按鈕即可刪除</p><p>　　選擇員工姓名，點擊搜索，則只顯示該員工一個人的信息，點擊刪除按鈕即可刪除</p><p>　　4.1.4.4 修改員工信息</p><p>　　選擇修改員工信息，則看到界面，如圖10所示</p><p>　　圖10 員工資料修改</p><p><b>　　功能

40、說明：</b></p><p><b>　　修改員工信息</b></p><p>　　輸入編號，若沒填寫編號則提示“請輸入編號！”</p><p>　　輸入姓名，若沒填寫姓名則提示“請輸入姓名！”</p><p>　　修改只有在搜索成功才可以進(jìn)行其他相關(guān)資料的填寫</p><p>　　

41、4.1.5 工作評價</p><p>　　選擇工作評價，下拉菜單則顯示四個功能：查看、添加、刪除、修改</p><p>　　4.1.5.1 查看工作評價</p><p>　　選擇查看工作評價，則看到界面，如圖11 所示</p><p>　　圖11 查看員工工作評價</p><p><b>　　功能說明：&

42、lt;/b></p><p><b>　　搜索條件</b></p><p>　　選擇所有，點擊搜索，則顯示所有員工的工作評價</p><p>　　選擇員工編號，點擊搜索，則只顯示輸入的該員工的工作評價</p><p>　　選擇員工姓名，點擊搜索，則只顯示該員工一個人的工作評價</p><p>

43、;　　4.1.5.2 添加工作評價</p><p>　　選擇添加工作評價，則看到界面，如圖12 所示</p><p>　　圖12 添加工作評價</p><p><b>　　功能說明：</b></p><p>　　只有當(dāng)搜索成功后才可以進(jìn)行工作評價的添加</p><p>　　選擇員工編號，點擊搜索

44、，則只能添加的該員工的工作評價</p><p>　　選擇員工姓名，點擊搜索，則只添加該員工一個人的工作評價</p><p>　　4.1.5.3 刪除工作評價</p><p>　　選擇刪除工作評價，則看到界面，如圖13所示</p><p>　　圖13 刪除工作評價</p><p><b>　　功能說明：<

45、;/b></p><p>　　選擇所有，點擊搜索，再顯示的結(jié)果中選擇所要刪除的該員工工作評價，點擊刪除按鈕即可刪除</p><p>　　選擇員工編號，點擊搜索，則只顯示輸入的該員工工作評價，點擊刪除按鈕即可刪除</p><p>　　選擇員工姓名，點擊搜索，則只顯示該員工一個人的工作評價，點擊刪除按鈕即可刪除</p><p>　　4.1.

46、5.4 修改工作評價</p><p>　　選擇修改工作評價，則看到界面，如圖14所示</p><p>　　圖14 修改工作評價</p><p><b>　　功能說明：</b></p><p><b>　　修改員工工作</b></p><p>　　只有當(dāng)搜索成功后才可以進(jìn)行工作

47、評價的添加</p><p>　　選擇員工編號，點擊搜索，則只能修改的該員工工作評價</p><p>　　選擇員工姓名，點擊搜索，則只修改該員工一個人的工作評價</p><p>　　4.1.6 考勤信息</p><p>　　選擇考勤信息，下拉菜單則顯示四個功能：查看考勤、當(dāng)日考勤、月考勤、刪除考勤。</p><p>　

48、　4.1.6.1 查看考勤</p><p>　　選擇查看考勤，則看到界面，如圖15所示</p><p><b>　　圖15 查看考勤</b></p><p><b>　　功能說明：</b></p><p><b>　　搜索條件</b></p><p>

49、　　選擇所有，點擊搜索，則顯示所有員工的出勤情況</p><p>　　選擇員工編號，點擊搜索，則只顯示輸入的該員工的出勤情況價</p><p>　　選擇時間，點擊搜索，則只顯示該天的員工的出勤情</p><p>　　4.1.6.2 當(dāng)日考勤</p><p>　　選擇當(dāng)日考勤，則看到界面，如圖16所示</p><p>

50、<b>　　圖16 當(dāng)日考勤</b></p><p><b>　　功能說明：</b></p><p><b>　　搜索條件</b></p><p>　　選擇所有，點擊搜索，則顯示所有員工的考勤情況</p><p>　　選擇員工編號，點擊搜索，則只顯示輸入的該員工的考勤情況<

51、;/p><p>　　可以在出勤情況下拉菜單下，選擇：全勤、缺勤、早退、遲到</p><p>　　可以選擇時間：年、月、日</p><p>　　4.1.6.3 月考勤</p><p>　　選擇月考勤，則看到界面，如圖17所示</p><p><b>　　圖17 月考勤</b></p>&

52、lt;p><b>　　功能說明：</b></p><p><b>　　搜索條件</b></p><p>　　選擇所有，點擊搜索，則顯示所有員工的出勤情況</p><p>　　選擇員工編號，點擊搜索，則只顯示輸入的該員工的出勤情況價</p><p>　　選擇月份，點擊搜索，則顯示該月的員工的出勤

53、情</p><p>　　4.1.6.4 刪除考勤</p><p>　　選擇刪除考勤，則看到界面，如圖18所示</p><p><b>　　圖18 刪除考勤</b></p><p><b>　　功能說明：</b></p><p>　　選擇所有，點擊搜索，再顯示的結(jié)果中選擇所要

54、刪除的該員工考勤情況，點擊刪除按鈕即可刪除</p><p>　　選擇員工編號，點擊搜索，則只顯示輸入的該員工的考勤情況，點擊刪除按鈕即可刪除</p><p>　　選擇日期，點擊搜索，則顯示該天的員工考勤情況，點擊刪除按鈕即可刪除</p><p><b>　　工資信息</b></p><p>　　選擇工資信息，下拉菜單顯示

55、：查看工資和修改工資功能</p><p>　　4.1.7.1 查看工資</p><p>　　選擇查看工資，則看到界面，如圖19所示</p><p><b>　　圖19 查看工資</b></p><p><b>　　功能說明：</b></p><p><b>　　搜

56、索條件</b></p><p>　　選擇所有，點擊搜索，則顯示所有員工的工資</p><p>　　選擇員工編號，點擊搜索，則只顯示輸入的該員工的工資</p><p>　　選擇員工姓名，點擊搜索，則只顯示該員工的工資</p><p>　　4.1.7.2 修改工資</p><p>　　選擇修改工資，則看到界面

57、，如圖20所示</p><p><b>　　圖20 修改工資</b></p><p><b>　　功能說明：</b></p><p>　　選擇員工編號，點擊搜索，則只能修改的該員工工資進(jìn)行修改</p><p>　　選擇員工姓名，點擊搜索，則只修改該員工的工資</p><p>

58、;　　只有當(dāng)搜索成功后才可以進(jìn)行員工工資的修改</p><p><b>　　4.1.8 其他</b></p><p>　　界面更換菜單：可任意更換自己喜歡的皮膚。</p><p>　　幫助菜單：關(guān)于系統(tǒng) (可參考本文檔)</p><p>　　4.1.9 第三方控件的說明</p><p>　　系統(tǒng)中

59、應(yīng)用到第三方控件，要使DELPHI與第三方控件聯(lián)系起來必須采取以下步驟：</p><p>　　(1)運行delphi,選擇“Component(組件)”菜單下的“Install Component(安裝組件)”</p><p>　　(2)在彈出的對話框中，選擇Into existing package頁。</p><p>　　(3)在Unit file name中選

60、擇當(dāng)前考勤系統(tǒng)所在的位置，再選擇它的下級文件“第三方控件”文件夾中的“WinSkinReg.pas”。</p><p>　　(4)單擊確定按鈕。</p><p>　　(5)在彈出的“包－－dclusr.dpk”窗口中選擇(compile),在隨即彈出的對話框中點擊“OK(確定)”。</p><p>　　(6)把“包－－dclusr.dpk”窗口關(guān)閉即可使用。<

61、/p><p>　　采用第三方控件可以使程序看上去更美觀。</p><p><b>　　5 總 結(jié)</b></p><p>　　本文論述了一個企業(yè)人事管理系統(tǒng)，基本上實現(xiàn)了一個小型企業(yè)人事管理系統(tǒng)的基本功能。</p><p>　　這個程序還用到了第三方控件，這是我們之前并為接觸過的一個新知識，使用它來編程可以使程序界面更美觀，

62、更直接。</p><p>　　經(jīng)過四個多月的畢業(yè)設(shè)計，我完成了這個小型的企業(yè)人事管理系統(tǒng)。通過畢業(yè)設(shè)計我學(xué)到了很多新知識，個人能力與了很大的提高。</p><p>　　致謝：在設(shè)計中經(jīng)常遇到種種困難與挫折，幾次陷入停頓狀態(tài)。在這種情況下，林恒建老師與同學(xué)不但給予我的很多的鼓勵，而且在設(shè)計上提出了很多正確的建議和善意的批評。</p><p>　　在這里，順利完成畢業(yè)設(shè)

63、計我首先要感謝指導(dǎo)老師林恒建老師的細(xì)心指導(dǎo)，他幫助解決了我設(shè)計中的疑難和困惑，為我們完成設(shè)計提供了極大的幫助。在這個學(xué)期中，我隨時都能與他取得聯(lián)系詢問相關(guān)問題，他總是耐心的為我們作出解答。我的這次設(shè)計順利完成離不開林恒建老師的幫助，在此一并向他表示衷心的感謝！</p><p>　　不過對我來說，由于時間有限，也包括我的知識水平有限，系統(tǒng)中有不足之處，還請各位老師指導(dǎo)指正。</p><p>

64、<b>　　[參 考 文 獻(xiàn)]</b></p><p>　　[1] 《Delphi系統(tǒng)開發(fā)實例精粹》劉山,趙輝 人民郵電出版社 </p><p>　　[2]《Delphi基礎(chǔ)教程》 丁兆海 電子工業(yè)出版社</p><p>　　[3]《Delphi應(yīng)用程序設(shè)計》 李目海 電子科技大學(xué)出版社</p><p>　　[4] 《D

65、elphi程序設(shè)計》張龍 清華大學(xué)出版社</p><p>　　[5]《SQL Server 2000實用教程》劉衛(wèi)宏 科學(xué)出版社</p><p>　　[6]《SQL Server 2000應(yīng)用實訓(xùn)教材》張曉云 科學(xué)出版社</p><p><b>　　附錄：</b></p><p><b>　　登錄，代碼如下：

66、</b></p><p>　　procedure TLoginForm.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　MySQL(dmf.Qry,'select*fromLogin where UserName='''

67、+username.Text+''' and Pwd='''+pwd.Text+'''');</p><p>　　if dmf.Qry.Eof then //是否搜索到了最后一條，如果是最后一條，提示錯誤信息</p><p><b>　　begin</b></p>

68、<p>　　Application.MessageBox('您輸入的用戶名或密碼不正確，請重新輸入！','出錯:',mb_ok);</p><p>　　Pwd.Clear;</p><p>　　username.SetFocus;</p><p><b>　　end</b></p><

69、;p><b>　　else</b></p><p><b>　　begin</b></p><p>　　ret:=true;</p><p>　　tools._name:=username.Text;</p><p>　　tools._pwd:=pwd.Text;</p><

70、;p><b>　　close;</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　用戶信息資料修改，代碼如下：</p><p>　　procedure TUserEditForm.Button1Clic

71、k(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if (trim(oldpwd.Text)='') or (trim(newpwd.Text)='') or (trim(newpwdr.Text)='') then</p><p>　　S

72、howMessage('請輸入密碼！')</p><p><b>　　else</b></p><p>　　if trim(oldpwd.Text)<>tools._pwd then</p><p>　　ShowMessage('您輸入的原始密碼不正確！')</p><p>&

73、lt;b>　　else</b></p><p>　　if trim(newpwd.Text)<>trim(newpwdr.Text) then</p><p>　　ShowMessage('您輸入的兩次新密碼不同，請重新輸入！')</p><p><b>　　else</b></p>

74、<p><b>　　begin</b></p><p>　　MySQL(dmf.Qry,'update Login set pwd='''+newpwd.Text+''' where username='''+username.Caption+'''');</p&g

75、t;<p>　　Tools._pwd:=newpwd.Text;</p><p>　　ShowMessage('修改成功！');</p><p><b>　　close;</b></p><p><b>　　end;</b></p><p><b>　　end

76、;</b></p><p>　　查看員工信息，代碼如下：</p><p>　　procedure TEmpSelForm.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if AllRB.Checked=True then<

77、;/p><p>　　if MySQL(dmf.Qry,'select * from employee')=0 then</p><p>　　ShowMessage('沒有你要搜索的內(nèi)容！')</p><p><b>　　else</b></p><p>　　MySQL(dmf.Qry,'

78、;select empid as 員工編號,empname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as'+'自我評價 from employee');<

79、;/p><p>　　if IDRB.Checked=True then</p><p>　　if empid.Text='' then</p><p>　　ShowMessage('請輸入員工編號進(jìn)行搜索！')</p><p><b>　　else</b></p><p&g

80、t;　　if MySQL(dmf.Qry,'select * from employee where empid='''+empid.Text+'''')=0 then</p><p>　　ShowMessage('沒有你要搜索的內(nèi)容！')</p><p><b>　　else</b>&l

81、t;/p><p>　　MySQL(dmf.Qry,'select empid as 員工編號,empname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as

82、'+ '自我評價 from employee where empid='''+empid.Text+'''');</p><p>　　if NameRB.Checked=True then</p><p>　　if empname.Text='' then</p><p>　　S

83、howMessage('請輸入員工姓名進(jìn)行搜索！')</p><p><b>　　else</b></p><p>　　if MySQL(dmf.Qry,'select * from employee where empname='''+empname.Text+'''')=0 then&

84、lt;/p><p>　　ShowMessage('沒有你要搜索的內(nèi)容！')</p><p><b>　　else</b></p><p>　　MySQL(dmf.Qry,'select empid as 員工編號,empname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as &#

85、39;+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as'+ '自我評價 from employee where empname='''+empname.Text+'''');</p><p>

86、<b>　　end;</b></p><p>　　添加員工信息，代碼如下：</p><p>　　procedure TEmpAddForm.Button1Click(Sender: TObject);</p><p><b>　　var</b></p><p>　　flag:boolean;<

87、/p><p>　　sex:string;</p><p><b>　　begin</b></p><p>　　flag:=True;</p><p>　　if empid.Text='' then</p><p><b>　　begin</b></p>

88、<p>　　flag:=False;</p><p>　　ShowMessage('請輸入員工編號！');</p><p><b>　　end</b></p><p>　　else if empname.Text='' then</p><p><b>　　begi

89、n</b></p><p>　　flag:=False;</p><p>　　ShowMessage('請輸入員工姓名！');</p><p><b>　　end</b></p><p>　　else if empsal.Text='' then</p><

90、p><b>　　begin</b></p><p>　　flag:=False;</p><p>　　ShowMessage('請輸入基本工資！');</p><p><b>　　end;</b></p><p>　　if empsexm.Checked=True then&l

91、t;/p><p><b>　　sex:='男';</b></p><p>　　if empsexf.Checked=True then</p><p><b>　　sex:='女';</b></p><p>　　if flag then</p><p&

92、gt;<b>　　begin</b></p><p>　　MySQL(dmf.Qry,'insertemployee(empid,empname,empsex,empbir,empsco,empjob,empsal,empadd,emptel,empEmail,empself'+ ') </p><p>　　values(''

93、;'+empid.Text+''','''+empname.Text+''','''+sex+''','''+DateToStr(empbir.DateTime)+''','''+empsco.Text+''',&#

94、39;''</p><p>　　+empjob.Text+''','''+empsal.Text+''','''+empadd.Text+''','''+emptel.Text+''','''+empEmai

95、l.Text+''','''+empself.Te')');</p><p>　　ShowMessage('添加成功！');</p><p>　　empid.Text:='';</p><p>　　empname.Text:='';</p>

96、<p>　　empsexm.Enabled:=True;</p><p>　　empbir.DateTime:=StrToDate('1980-1-1');</p><p>　　empsal.Text:='1000';</p><p>　　empadd.Text:='';</p><p&g

97、t;　　emptel.Text:='';</p><p>　　empEmail.Text:='';</p><p>　　empself.Text:='';</p><p><b>　　end;</b></p><p><b>　　end;</b><

98、;/p><p>　　刪除員工信息，代碼如下：</p><p>　　procedure TEmpDelForm.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if AllRB.Checked=True then</p><p

99、>　　if MySQL(dmf.Qry,'select empid as 員工編號,empname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as''自我

100、評價 from employee')=0 then</p><p>　　ShowMessage('沒有你要搜索的內(nèi)容！')</p><p><b>　　else</b></p><p>　　MySQL(dmf.Qry,'select empid as 員工編號,empname as 員工姓名,empsex as

101、性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as'+'自我評價 from employee');</p><p>　　if IDRB.Checked=True then<

102、;/p><p>　　if empid.Text='' then</p><p>　　ShowMessage('請輸入員工編號進(jìn)行搜索！')</p><p><b>　　else</b></p><p>　　if MySQL(dmf.Qry,'select empid as 員工編號,e

103、mpname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as'+ '自我評價 from employee where empid='''+emp

104、id.Text+'''')=0 then</p><p>　　ShowMessage('沒有你要搜索的內(nèi)容！')</p><p><b>　　else</b></p><p>　　MySQL(dmf.Qry,'select empid as 員工編號,empname as 員工姓名,emp

105、sex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as'+'自我評價 from employee where empid='''+empid.Text+''&

106、#39;');</p><p>　　if NameRB.Checked=True then</p><p>　　if empname.Text='' then</p><p>　　ShowMessage('請輸入員工姓名進(jìn)行搜索！')</p><p><b>　　else</b>&

107、lt;/p><p>　　if MySQL(dmf.Qry,'select empid as 員工編號,empname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empsel

108、f as'+'自我評價 from employee whereempname='''+empname.Text+'''')=0 then</p><p>　　ShowMessage('沒有你要搜索的內(nèi)容！')</p><p><b>　　else</b></p>&l

109、t;p>　　MySQL(dmf.Qry,'select empid as 員工編號,empname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as'+'自

110、我評價 from employee where empname='''+empname.Text+'''');</p><p><b>　　end;</b></p><p>　　procedure TEmpDelForm.Button3Click(Sender: TObject);</p><

111、p><b>　　begin</b></p><p>　　if DBGrid1.FieldCount=0 then</p><p>　　ShowMessage('沒有記錄可供刪除！')</p><p><b>　　else</b></p><p>　　if DBGrid1.Dat

112、aSource.DataSet.RecordCount=0 then</p><p>　　ShowMessage('沒有記錄可供刪除！')</p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　DBGrid1.DataSou

113、rce.DataSet.Delete;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　查看員工工作評價，代碼如下：</p><p>　　procedure TDesSelForm.Button1Click(Sender: TObjec

114、t);</p><p><b>　　begin</b></p><p>　　if AllRB.Checked=True then</p><p>　　MySQL(dmf.Qry,'select * from descview');</p><p>　　if IDRB.Checked=True then&l

115、t;/p><p>　　if empid.Text='' then</p><p>　　ShowMessage('請輸入員工編號進(jìn)行搜索！')</p><p><b>　　else</b></p><p>　　if MySQL(dmf.Qry,'select * from descvie

116、w where 員工編號='''+empid.Text+'''')=0 then</p><p>　　ShowMessage('對不起，你所查找的員工不存在或?qū)υ搯T工還未進(jìn)行工作評價！')</p><p><b>　　else</b></p><p>　　MySQL(dmf

117、.Qry,'select * from descview where 員工編號='''+empid.Text+'''');</p><p>　　if NameRB.Checked=True then</p><p>　　if empname.Text='' then</p><p>　　

118、ShowMessage('請輸入員工姓名進(jìn)行搜索！')</p><p><b>　　else</b></p><p>　　if MySQL(dmf.Qry,'select * from descview where 員工姓名='''+empname.Text+'''')=0 then<

119、;/p><p>　　ShowMessage('對不起，你所查找的員工不存在或?qū)υ搯T工還未進(jìn)行工作評價！')</p><p><b>　　else</b></p><p>　　MySQL(dmf.Qry,'select * from descview where 員工姓名='''+empname.Tex

120、t+'''');</p><p><b>　　end;</b></p><p>　　添加工作評價，代碼如下：</p><p>　　procedure TDesAddForm.Button3Click(Sender: TObject);</p><p><b>　　begin<

121、;/b></p><p>　　if IDRB.Checked=True then</p><p><b>　　begin</b></p><p>　　if empid.Text='' then</p><p>　　ShowMessage('請輸入編號進(jìn)行搜索！')</p>

122、<p><b>　　else</b></p><p>　　if MySQL(dmf.Qry,'select * from employee where empid='''+empid.Text+'''')=0 then</p><p>　　ShowMessage('您搜索的員工不存在

123、！')</p><p>　　else if MySQL(dmf.Qry,'select * from describe where empid='''+empid.Text+'''')>0 then</p><p>　　ShowMessage('您搜索的員工工作評價已經(jīng)添加，如要修改，請選擇修改面版。&#

124、39;)</p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　emp:=empid.Text;</p><p>　　YesBtn.Enabled:=True;</p><p><b>　　end;<

125、/b></p><p><b>　　end;</b></p><p>　　if NameRB.Checked=True then</p><p><b>　　begin</b></p><p>　　if empname.Text='' then</p><p

126、>　　ShowMessage('請輸入員工姓名進(jìn)行搜索！')</p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　if MySQL(dmf.Qry,'select * from employee where empname='

127、;''+empname.Text+'''')=0 then</p><p>　　ShowMessage('您搜索的員工不存在！')</p><p><b>　　else</b></p><p><b>　　begin</b></p><p&

128、gt;　　MySQL(dmf.Qry,'select empid from employee where empname='''+empname.Text+'''');</p><p>　　emp:=dmf.Qry.FieldValues['empid'];</p><p>　　if MySQL(dmf.Qry

129、,'select * from describe where empid='''+emp+'''')>0 then</p><p>　　ShowMessage('您搜索的員工工作評價已經(jīng)添加，如要修改，請選擇修改面版。')</p><p><b>　　else</b></p&g

130、t;<p>　　YesBtn.Enabled:=True</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p><p><b>　　end;</b>&

131、lt;/p><p>　　procedure TDesAddForm.YesBtnClick(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if trim(Des.Text)='' then</p><p>　　ShowMessage('請?zhí)砑庸?/p>

132、作評價！')</p><p><b>　　else</b></p><p>　　if length(des.Text)>255 then</p><p>　　ShowMessage('您輸入的字符數(shù)過長！')</p><p><b>　　else</b></p&g

133、t;<p><b>　　begin</b></p><p>　　MySQL(dmf.Qry,'insert Describe(empid,des) values('''+emp+''','''+des.Text+''')');</p><p>

134、　　ShowMessage('添加成功！');</p><p>　　YesBtn.Enabled:=False;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　刪除工作評價，代碼如下：</p><p

135、>　　procedure TDesDelForm.Button1Click(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if AllRB.Checked=True then</p><p>　　MySQL(dmf.Qry,'select empid as 員工編號,des

136、 as 工作評價 from describe');</p><p>　　if IDRB.Checked=True then</p><p>　　if empid.Text='' then</p><p>　　ShowMessage('請輸入員工編號進(jìn)行搜索！')</p><p><b>　　e

137、lse</b></p><p>　　if MySQL(dmf.Qry,'select empid as 員工編號,des as 工作評價 from describe where empid='''+empid.Text+'''')=0 then</p><p>　　ShowMessage('對不起，你所查找