【正文】 設(shè)置，完成系統(tǒng)的初始架構(gòu)定義及修改。 對(duì)項(xiàng)名 屬性 屬性值 Tbitbtn1 Caption 增加 Tbitbtn2 Caption 修改 Tbitbtn3 Caption 保存 Tbitbtn4 Caption 取消 Tbitbtn5 Caption 刪除 Tbitbtn6 Caption 退出 （ 3） 外送培訓(xùn)審批表 【主要功能】提供在職人員 外送審批 申請(qǐng)等 工作 的查詢、增加、修改、保存等窗口，并對(duì)在職人員 培訓(xùn)內(nèi)容 、 培訓(xùn)目的等 進(jìn)行存儲(chǔ)。 在測(cè)試過程中，不僅選擇正確的數(shù)據(jù)，還要錄入假定錯(cuò)誤的數(shù)據(jù)，并對(duì)系統(tǒng)的數(shù)據(jù)進(jìn)行核對(duì)，填寫系統(tǒng)運(yùn)行日志，整理成文檔資料，以便于今后系統(tǒng)的維護(hù)。我愿在未來(lái)的學(xué)習(xí)和工作過程中，以更加豐厚的成果來(lái)答謝曾經(jīng)關(guān)心、幫助和支持過我的所有領(lǐng)導(dǎo)、老師、同學(xué) 、同事 和朋友。如圖所示。 “登錄”按鈕的 onClick 事件代碼 procedure (Sender: TObject)。此文件由于修改了文件名 (39。39。) or (charindex(39。 ORDER BY RNO 39。).AsString) (39。).AsString。vFileName39。)。 WinExec(Pchar(ExtractFilePath() + 39。39。39。39。 (39。查無(wú)此人 39。czylsh39。 czyzwmc := (39。).AsString。ksbh39。 3: xt_gs := copy((39。 end。).AsString := trim()。 。 czymm := (39。).AsString。gwmc39。 1: xt_gs := copy((39。).AsString,1,8)。 end else begin showmessage(39。 (39。 begin close。 。, czylsh, czyxm, 39。)。ksbh39。).AsString,1,4)。 czyqx := (39。ksbh39。).AsString。 42 end else begin czyxm := (39。czymm39。 。).AsString,1,8)。 1: xt_gs := copy((39。gwmc39。).AsString。 czymm := (39。 。).AsString := trim()。員工號(hào)： 39。39。39。 + vDownFile), SW_SHOWDEFAULT)。 //終止應(yīng)用程序 end。39。 end。).AsString)) or (not FileExists(ExtractFilePath() + (39。 while not do begin if (((39。39。SELECT RNO, NAMEE, NAMEC, FVER, FSIZE, DOWNFLAG FROM ZD_EXEFILEINF F WHERE (NAMEE=39。)而不允許運(yùn)行 !39。 qDownFCONTENT: TBlobField。 39 程序設(shè)計(jì)代碼 系統(tǒng)登錄代碼 表單的 onShow 事件代碼 procedure (Sender: TObject)。 20xx [5]《 SQL Server 數(shù)據(jù)庫(kù)開發(fā)經(jīng)典案例解析》，清華大學(xué)出版社， 20xx 年 [6]《 SQL SERVER 20xx 開發(fā)與應(yīng)用》，機(jī)械工業(yè)出版社， 20xx 年 7月 [7] 王學(xué)慶． Delphi 6 數(shù)據(jù)庫(kù)設(shè)計(jì)實(shí)例導(dǎo)航．北京：科學(xué)出版社． 20xx [8] 付軍． Delphi7 實(shí)例編程 100 例．北京：中國(guó)鐵道出版社 ． 20xx 38 附錄 后臺(tái)數(shù)據(jù)庫(kù)配置 本系統(tǒng)開發(fā)是在 Windows XP 下開發(fā)的，開發(fā)數(shù)據(jù)庫(kù)使用的是 SQL 20xx。通過與人力資源部的協(xié)同工作，增進(jìn)了人系關(guān)系，讓我融入到企業(yè)大家庭，感觸到大家庭的包容與幫助，體會(huì)到團(tuán)隊(duì)精神的力量。 32 對(duì)項(xiàng)名 屬性 屬性值 TDBChart1 圖表 Tbitbtn1 Caption 按公司 Tbitbtn2 Caption 按中心 Tbitbtn3 Caption 按部門 Tbitbtn4 Caption 按科室 Tbitbtn5 Caption 按學(xué)歷 Tbitbtn6 Caption 按級(jí)別 Tbitbtn6 Caption 按性別 系統(tǒng)維護(hù) （ 1） 權(quán)限管理 【主要功能】提供軟件操作人員的權(quán)限設(shè)置等工作的查詢、 開放 、保存 、刪除等窗口。 26 對(duì)項(xiàng)名 屬性 屬性值 Treeview1 樹型結(jié)構(gòu)表 TDBGrid 表細(xì)表格 Tbitbtn1 Caption 增加 Tbitbtn2 Caption 修改 Tbitbtn3 Caption 保存 Tbitbtn4 Caption 取消 Tbitbtn5 Caption 崗位級(jí)別設(shè)置 Tbitbtn6 Caption 退出 招聘入職管理 （ 1） 招聘快捷窗口 【主要功能】提供招聘入職管理的流程式快捷登錄窗口。 。對(duì)不起 ,您已經(jīng)打開一個(gè)人力資源管理軟件 !39。 （ 2） 用戶界面設(shè)計(jì)（詳見各子模塊用戶界面） a) 人機(jī)對(duì)話方式：通過屏幕、鍵盤與系統(tǒng)對(duì)話，當(dāng)操作錯(cuò)誤時(shí)系統(tǒng)發(fā)出提示和警告，有：選單式、填表式、回答式及提問式； b) 菜單方式：設(shè)計(jì)成下拉式 、上彈式、按鈕式，功能選擇有：光帶移動(dòng)、數(shù)字或字母選擇、鼠標(biāo)驅(qū)動(dòng)等。 12 數(shù)據(jù)庫(kù)及其表的建立和使用 系統(tǒng)組成及數(shù)據(jù)環(huán)境 （ 1）數(shù)據(jù)庫(kù)： 企業(yè)人力資源管理數(shù)據(jù)庫(kù) （ 2）表： rs_zd_tx 人事 _字典 _提醒 rs_zd_txls 字典 _提醒歷史 rs_zd_czy 人事 _字典 _操作員 rs_zd_zzjg 人事 _字典 _組織機(jī)構(gòu) rs_zd_dbdg 人事 _字典 _科室（定崗定編） rs_zd_zwjb 人事 _字典 _職務(wù)級(jí)別 rs_zd_zwmc 人事 _字典 _職務(wù)名稱 rs_zd_gwjb 人事 _字典 _崗位級(jí)別 rs_zd_gwmc 人事 _字典 _崗位名稱 rs_zp_ypsqb 人事 _招聘 _應(yīng)聘申請(qǐng)表 rs_zp_jyzs 人事 _招聘 _教育經(jīng)歷及資格證書 rs_zp_jt 人事 _招聘 _家庭情況 rs_zp_gzjl 人事 _招聘 _工作經(jīng)歷 rs_zp_mssp 人事 _招聘 _面試審批 rs_zp_msyy 人事 _招聘 _面試預(yù)約 rs_px_pxjh 人事 _培訓(xùn) _培訓(xùn)計(jì)劃 rs_px_pxjr 人事 _培訓(xùn) _培訓(xùn)記錄 13 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì) 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)主要完成從 E－ R 模型向數(shù)據(jù)邏輯模型的轉(zhuǎn)換。 （ 6）退出系統(tǒng) 系統(tǒng)業(yè)務(wù)流程圖 （ 1） 招聘管理流程 （ 2） 培訓(xùn)流程圖 10 系統(tǒng)數(shù)據(jù)流程圖 11 4 系統(tǒng)設(shè)計(jì) 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)計(jì)要點(diǎn) （ 1） 第一階段 的設(shè)計(jì)任務(wù)是收集和分析用戶需求，完成數(shù)據(jù)庫(kù)的概念設(shè)計(jì)。登錄模塊由兩部分組成，即用于收集登錄信息的前臺(tái)表單部分和用于驗(yàn)證的后臺(tái)處理部分。 （ 7）提供個(gè)人工作管理平臺(tái)，方便員工日常工作管理，日常信息傳遞。 （ 3） 人力資源 管理系統(tǒng)的 統(tǒng)計(jì) 人力資源 管理 系統(tǒng)通過系統(tǒng)的設(shè) 計(jì) 報(bào)表 和提供的查詢方案工具 ， 設(shè)立多 種查詢方式和統(tǒng)計(jì)方式，并根據(jù)設(shè)定的條件進(jìn)行篩選，統(tǒng)計(jì)并生成的報(bào)表格式 進(jìn)行 打印。提高工作效率，是許多企業(yè)引入人力資源管理系統(tǒng)（ EHR）的首要目的。因此，只有用科學(xué)化 . 標(biāo)準(zhǔn)化的管理替代傳統(tǒng)的經(jīng)驗(yàn)管理，才是實(shí)現(xiàn)最高 工作效率 的手段。同時(shí)，也便于準(zhǔn)確的生成整體統(tǒng)計(jì)報(bào)表，提高人力資源管理水平，為企業(yè)發(fā)展提供決策依據(jù)。 [關(guān)鍵詞 ] 人力資源管理 信息化 企業(yè) 5 1 引言 人力資源管理 現(xiàn)狀 企業(yè) 由于業(yè)務(wù)的增加，企業(yè)規(guī)模的擴(kuò)大，人員由原來(lái) 300人左右，增加到 20xx人左右。對(duì)本研究提供過幫助和做出過貢獻(xiàn)的個(gè)人或集體，均已在文中作了明確的說(shuō)明并表示了謝意。運(yùn)用現(xiàn)代人力資源管理理論，結(jié)合當(dāng)前企業(yè)的發(fā)展趨勢(shì)。對(duì) 公司內(nèi)部 的 人事的管理造成了比較大的困難。從時(shí)間上看，從 18世紀(jì)末開始的工業(yè)革命，一直到 20 世紀(jì) 70 年代，這一時(shí)期被稱為傳統(tǒng)的人事管理階段。系統(tǒng)后臺(tái)采用 MS SQL 20xx為數(shù)據(jù)庫(kù)存貯平臺(tái)， 作為數(shù)據(jù)庫(kù)服務(wù)器使用 。 (3) 提高管理水平 在實(shí)施人力資源管理系統(tǒng)后，經(jīng)過整合的、較為全面、準(zhǔn)確、一致和相容的信息不僅可以讓企業(yè)領(lǐng)導(dǎo)對(duì)本企業(yè)人力資源的現(xiàn)狀有一個(gè)比較全面和準(zhǔn)確的認(rèn)識(shí)，同時(shí)也可以生成綜合的分析報(bào)表供企業(yè)領(lǐng)導(dǎo)人在決策時(shí)參考。 （ 2）由于該系統(tǒng)的使用對(duì)象多，要求有較好的權(quán)限管理。 （ 10）員工薪酬信息的管理，包括薪酬信息的查詢、登記、刪除。 （ 3）招聘入職管理 主要是用戶通過招聘入職模快對(duì)擬招聘人員的基本資料進(jìn)入（ 增加、修改、保存 ）等操作，錄入內(nèi)容包括基本資料、教育經(jīng)歷、家 庭成員、工作經(jīng)歷等。 數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)要點(diǎn)及難點(diǎn) （ 1） 建立數(shù)據(jù)庫(kù)，確定數(shù)據(jù)庫(kù)中的數(shù)量及其每個(gè)表中各個(gè)字段的字段名、類型、寬度、小數(shù)及索引、排序。每一記錄類型確定為數(shù)據(jù)庫(kù)中的一張表；記錄類型中的數(shù)據(jù)項(xiàng)成為相應(yīng)表中的字段，字段屬性根據(jù)各字段的數(shù)據(jù)特點(diǎn)設(shè)置；確定索引和表之間的聯(lián)系。 begin hMutex := CreateMutex(nil, True, 39。 end。 。 對(duì)項(xiàng)名 屬性 屬性值 TDateTimePick 日期選擇 Tbitbtn1 Caption 新增 Tbitbtn2 Caption 修改 Tbitbtn3 Caption 保存 Tbitbtn4 Caption 打印 Tbitbtn5 Caption 退出 （ 4） 領(lǐng)導(dǎo)審批 【主要功能】提供招聘人員的應(yīng)聘第 三階段審批，包含人資源部、擬聘部門、分管領(lǐng)導(dǎo)、人力高管、總裁等部門的意見資料錄入 、薪資定義等 窗口。 對(duì)項(xiàng)名 屬性 屬性值 Tbitbtn1 Caption 新增 Tbitbtn2 Caption 修改 Tbitbtn3 Caption 保存 Tbitbtn4 Caption 取消 Tbitbtn5 Caption 刪除 Tbitbtn6 Caption 退出 34 系統(tǒng)測(cè)試 系統(tǒng)程序設(shè)計(jì)后，依照測(cè)試用例分別進(jìn)行系統(tǒng)的單元測(cè)試、集成測(cè)試、有效性測(cè)試，最后進(jìn)行系統(tǒng)的總體測(cè)試。 在寫論文 的過程中 三位 老師又仔細(xì)的幫我審查論文的內(nèi)容和排版格式 ， 提出了很多的寶貴意見。 系統(tǒng)測(cè)試用戶名：?jiǎn)T工號(hào)： 123 密碼 ： 123 。true39。)。 end。 + vExeFile + 39。39。139。 39。39。39。 Showmessage(39。 czylsh := 39。 czyksmc := 39。 if (trim() 39。 41 (39。).AsString := trim()。czyxm39。 czybm := (39。).AsString。qx39。 2: xt_gs := copy((39。).AsString,1,8)。)。 if = 0 then begin showmessage(39。 czylsh := (39。).AsString。ksmc39。 case strtoint(czyqx) of 0: xt_gs := copy((39。).AsString,1,6)。 end。 if trim(czylsh) 39。 end