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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

25、計(jì)視圖，存儲(chǔ)過(guò)程和觸發(fā)器。下面分別講述系統(tǒng)中數(shù)據(jù)庫(kù)的設(shè)計(jì)。</p><p>　　4.3.1創(chuàng)建表/字段</p><p>　　本系統(tǒng)數(shù)據(jù)庫(kù)采用SQL Server 2000數(shù)據(jù)庫(kù)，系統(tǒng)數(shù)據(jù)庫(kù)名稱為Managedata_Data。數(shù)據(jù)庫(kù)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 工作評(píng)價(jià)表</b></p><p><b

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

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

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

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

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

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

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

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

35、;b>　　功能說(shuō)明：</b></p><p><b>　　搜索條件</b></p><p>　　選擇所有，點(diǎn)擊搜索，則顯示所有員工信息如圖7所示</p><p>　　選擇員工編號(hào)，點(diǎn)擊搜索，則只顯示輸入的該員工的資料</p><p>　　選擇員工姓名，點(diǎn)擊搜索，則只顯示該員工一個(gè)人的信息</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>　　功能說(shuō)明：</b&

37、gt;</p><p><b>　　添加員工信息</b></p><p>　　輸入編號(hào)，點(diǎn)擊編號(hào)檢測(cè)，若沒填寫編號(hào)則提示“請(qǐng)輸入編號(hào)！”</p><p>　　輸入姓名，點(diǎn)擊姓名檢測(cè)，若沒填寫姓名則提示“請(qǐng)輸入姓名！”</p><p>　　4.1.4.3 刪除員工信息</p><p>　　選擇刪除

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

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

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

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

42、lt;/b></p><p><b>　　搜索條件</b></p><p>　　選擇所有，點(diǎn)擊搜索，則顯示所有員工的工作評(píng)價(jià)</p><p>　　選擇員工編號(hào)，點(diǎn)擊搜索，則只顯示輸入的該員工的工作評(píng)價(jià)</p><p>　　選擇員工姓名，點(diǎn)擊搜索，則只顯示該員工一個(gè)人的工作評(píng)價(jià)</p><p>

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

44、，則只能添加的該員工的工作評(píng)價(jià)</p><p>　　選擇員工姓名，點(diǎn)擊搜索，則只添加該員工一個(gè)人的工作評(píng)價(jià)</p><p>　　4.1.5.3 刪除工作評(píng)價(jià)</p><p>　　選擇刪除工作評(píng)價(jià)，則看到界面，如圖13所示</p><p>　　圖13 刪除工作評(píng)價(jià)</p><p><b>　　功能說(shuō)明：<

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

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

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

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

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

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

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

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

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

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

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

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

57、，如圖20所示</p><p><b>　　圖20 修改工資</b></p><p><b>　　功能說(shuō)明：</b></p><p>　　選擇員工編號(hào)，點(diǎn)擊搜索，則只能修改的該員工工資進(jìn)行修改</p><p>　　選擇員工姓名，點(diǎn)擊搜索，則只修改該員工的工資</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 第三方控件的說(shuō)明</p><p>　　系統(tǒng)中

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

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

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

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

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

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

65、elphi程序設(shè)計(jì)》張龍 清華大學(xué)出版社</p><p>　　[5]《SQL Server 2000實(shí)用教程》劉衛(wèi)宏 科學(xué)出版社</p><p>　　[6]《SQL Server 2000應(yīng)用實(shí)訓(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 //是否搜索到了最后一條，如果是最后一條，提示錯(cuò)誤信息</p><p><b>　　begin</b></p>

68、<p>　　Application.MessageBox('您輸入的用戶名或密碼不正確，請(qǐng)重新輸入！','出錯(cuò):',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('請(qǐng)輸入密碼！')</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('您輸入的兩次新密碼不同，請(qǐng)重新輸入！')</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 員工編號(hào),empname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as'+'自我評(píng)價(jià) from employee');<

79、;/p><p>　　if IDRB.Checked=True then</p><p>　　if empid.Text='' then</p><p>　　ShowMessage('請(qǐng)輸入員工編號(hào)進(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 員工編號(hào),empname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as

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

83、howMessage('請(qǐng)輸入員工姓名進(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 員工編號(hào),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'+ '自我評(píng)價(jià) 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('請(qǐng)輸入員工編號(hào)！');</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('請(qǐng)輸入員工姓名！');</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('請(qǐng)輸入基本工資！');</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 員工編號(hào),empname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as''自我

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

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

102、;/p><p>　　if empid.Text='' then</p><p>　　ShowMessage('請(qǐng)輸入員工編號(hào)進(jìn)行搜索！')</p><p><b>　　else</b></p><p>　　if MySQL(dmf.Qry,'select empid as 員工編號(hào),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'+ '自我評(píng)價(jià) 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 員工編號(hào),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'+'自我評(píng)價(jià) from employee where empid='''+empid.Text+''&

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

107、lt;/p><p>　　if MySQL(dmf.Qry,'select empid as 員工編號(hào),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'+'自我評(píng)價(jià) 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 員工編號(hào),empname as 員工姓名,empsex as 性別,empbir as 出生日期,empsco as '+</p><p>　　'學(xué)歷,empjob as 職位,empsal as 基本工資,empadd as 家庭地址,emptel as 聯(lián)系電話,empself as'+'自

110、我評(píng)價(jià) 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íng)價(jià)，代碼如下：</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('請(qǐng)輸入員工編號(hào)進(jìn)行搜索！')</p><p><b>　　else</b></p><p>　　if MySQL(dmf.Qry,'select * from descvie

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

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

118、ShowMessage('請(qǐng)輸入員工姓名進(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('對(duì)不起，你所查找的員工不存在或?qū)υ搯T工還未進(jìn)行工作評(píng)價(jià)！')</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íng)價(jià)，代碼如下：</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('請(qǐng)輸入編號(hào)進(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('您搜索的員工工作評(píng)價(jià)已經(jīng)添加，如要修改，請(qǐ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('請(qǐng)輸入員工姓名進(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('您搜索的員工工作評(píng)價(jià)已經(jīng)添加，如要修改，請(qǐ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('請(qǐng)?zhí)砑庸?/p>

132、作評(píng)價(jià)！')</p><p><b>　　else</b></p><p>　　if length(des.Text)>255 then</p><p>　　ShowMessage('您輸入的字符數(shù)過(guò)長(zhǎng)！')</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íng)價(jià)，代碼如下：</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 員工編號(hào),des

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

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