【正文】 = (39。ksbh39。).AsString,1,4)。 3: xt_gs := copy((39。ksbh39。 end。select * from rs_zd_czy where czybm=:czybm and czymm =:czymm 39。).AsString := trim()。 。 。).AsString。 czymm := (39。czybm39。).AsString。 czyksmc := (39。gwmc39。).AsString。 1: xt_gs := copy((39。ksbh39。).AsString,1,8)。 end。 end else begin showmessage(39。 end。 (39。)。 begin close。 。 。 end。, czylsh, czyxm, 39。39。)。 end。ksbh39。 3: xt_gs := copy((39。).AsString,1,4)。ksbh39。 czyqx := (39。).AsString。ksbh39。 czyzwmc := (39。).AsString。czylsh39。 42 end else begin czyxm := (39。查無(wú)此人 39。czymm39。 (39。 。 end。).AsString,1,8)。ksbh39。 1: xt_gs := copy((39。).AsString。gwmc39。 czyksmc := (39。).AsString。czybm39。 czymm := (39。).AsString。 。 。).AsString := trim()。select * from rs_zd_czy where czylsh=:czylsh and czymm =:czymm 39。員工號(hào)： 39。39。39。39。39。39。 + vDownFile), SW_SHOWDEFAULT)。本程序已發(fā)布新的版本，需要下載新的程序！ 39。 //終止應(yīng)用程序 end。) else begin Showmessage(39。39。) then begin := false。 end。 + (39。).AsString)) or (not FileExists(ExtractFilePath() + (39。) and (GetExeFileVer(ExtractFilePath() + (39。 while not do begin if (((39。, MAINPROG)0) 39。39。39。SELECT RNO, NAMEE, NAMEC, FVER, FSIZE, DOWNFLAG FROM ZD_EXEFILEINF F WHERE (NAMEE=39。 := false。)而不允許運(yùn)行 !39。 vDownFile := vExeFile。 qDownFCONTENT: TBlobField。 xt_path := ExtractFilePath()。 39 程序設(shè)計(jì)代碼 系統(tǒng)登錄代碼 表單的 onShow 事件代碼 procedure (Sender: TObject)。 數(shù)據(jù)源配置 在 BDE 目錄下點(diǎn)擊 ，安裝 BDE 數(shù)據(jù)源軟件，建立一個(gè) BDE 數(shù)據(jù)源，名稱為 sumpo_ehr。 20xx [5]《 SQL Server 數(shù)據(jù)庫(kù)開(kāi)發(fā)經(jīng)典案例解析》，清華大學(xué)出版社， 20xx 年 [6]《 SQL SERVER 20xx 開(kāi)發(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)開(kāi)發(fā)是在 Windows XP 下開(kāi)發(fā)的，開(kāi)發(fā)數(shù)據(jù)庫(kù)使用的是 SQL 20xx。 其次要感謝在我做設(shè)計(jì)過(guò)程中幫助我的同學(xué) ， 在設(shè)計(jì)調(diào)試過(guò)程中遇到不少 問(wèn)題題，他們都細(xì)心的幫助我查看代碼，指出其中的錯(cuò)誤。通過(guò)與人力資源部的協(xié)同工作，增進(jìn)了人系關(guān)系，讓我融入到企業(yè)大家庭，感觸到大家庭的包容與幫助，體會(huì)到團(tuán)隊(duì)精神的力量。 首先，對(duì)組成系統(tǒng)的各個(gè)模塊分別進(jìn)行單元測(cè)試；其次，對(duì)通過(guò)單元測(cè)試的各個(gè)模塊進(jìn)行了組裝測(cè) 試即集成測(cè)試，并完成系統(tǒng)模塊功能有效性測(cè)試；最后完成系統(tǒng)測(cè)試。 32 對(duì)項(xiàng)名 屬性 屬性值 TDBChart1 圖表 Tbitbtn1 Caption 按公司 Tbitbtn2 Caption 按中心 Tbitbtn3 Caption 按部門(mén) Tbitbtn4 Caption 按科室 Tbitbtn5 Caption 按學(xué)歷 Tbitbtn6 Caption 按級(jí)別 Tbitbtn6 Caption 按性別 系統(tǒng)維護(hù) （ 1） 權(quán)限管理 【主要功能】提供軟件操作人員的權(quán)限設(shè)置等工作的查詢、 開(kāi)放 、保存 、刪除等窗口。 對(duì)項(xiàng)名 屬性 屬性值 TDateTimePick 日期選擇 Tbitbtn1 Caption 確認(rèn)錄用 Tbitbtn2 Caption 提交審批 Tbitbtn3 Caption 轉(zhuǎn)人才庫(kù) Tbitbtn4 Caption 取消錄入 29 Tbitbtn5 Caption 保存資料 Tbitbtn6 Caption 打印 Tbitbtn7 Caption 退出 （ 5） 應(yīng)聘花名冊(cè) 【主要功能】提供招聘人員表格式一覽表查詢及快捷按鈕 對(duì)項(xiàng)名 屬性 屬性值 TDBGrid1 表格 Tbitbtn1 Caption 資料新增 Tbitbtn2 Caption 面試預(yù)約 Tbitbtn3 Caption 領(lǐng)導(dǎo)審批 Tbitbtn4 Caption 轉(zhuǎn)人才庫(kù) Tbitbtn5 Caption 退出 教育培訓(xùn)管理 （ 1） 培訓(xùn)計(jì)劃 [安排 ] 【主要功能】提供在職人員培訓(xùn)計(jì)劃安排的查詢、增加、修改、保存等窗口，并對(duì)在職人員的培訓(xùn)類(lèi)型、方式、時(shí)間等情 況進(jìn)行存儲(chǔ)。 26 對(duì)項(xiàng)名 屬性 屬性值 Treeview1 樹(shù)型結(jié)構(gòu)表 TDBGrid 表細(xì)表格 Tbitbtn1 Caption 增加 Tbitbtn2 Caption 修改 Tbitbtn3 Caption 保存 Tbitbtn4 Caption 取消 Tbitbtn5 Caption 崗位級(jí)別設(shè)置 Tbitbtn6 Caption 退出 招聘入職管理 （ 1） 招聘快捷窗口 【主要功能】提供招聘入職管理的流程式快捷登錄窗口。 end. 24 程序（主要模塊）設(shè)計(jì) 登錄窗口 【主要功能】系統(tǒng)登錄窗口，提供系統(tǒng)的員工號(hào)、呢稱輸入，待密碼確認(rèn)后登錄。 。 Dateseparator := 39。對(duì)不起 ,您已經(jīng)打開(kāi)一個(gè)人力資源管理軟件 !39。ehr39。 （ 2） 用戶界面設(shè)計(jì)（詳見(jiàn)各子模塊用戶界面） a) 人機(jī)對(duì)話方式：通過(guò)屏幕、鍵盤(pán)與系統(tǒng)對(duì)話，當(dāng)操作錯(cuò)誤時(shí)系統(tǒng)發(fā)出提示和警告，有：選單式、填表式、回答式及提問(wèn)式； b) 菜單方式：設(shè)計(jì)成下拉式 、上彈式、按鈕式，功能選擇有：光帶移動(dòng)、數(shù)字或字母選擇、鼠標(biāo)驅(qū)動(dòng)等。系統(tǒng)表結(jié)構(gòu)描述如下： 系統(tǒng)公共用表 、字典參數(shù)表等 表名 rs_zd_tx 人事 _字典 _提醒 字段 類(lèi)型 說(shuō)明 [txlx] [char] (10) 提醒類(lèi)型 [txbh] [char] (10) 提醒編碼 [txrylsh] [char] (12) 提醒人員流水號(hào) [txryxm] [char] (10) 提醒人員姓名 [txnr] [char] (50) 提醒內(nèi)容 [txksrq] [datetime] 提醒開(kāi)始日期 [txjsrq] [datetime] 提醒結(jié)束日期 14 [txczylsh] [char] (12) 提醒操作員流水號(hào) [txczyxm] [char] (10) 提醒操作員姓名 [txbz] [char] (10) 提醒標(biāo)志 [txbzrq] [datetime] 修改標(biāo)志日期 [bz] [char] (20) 備注 表名 rs_zd_czy 人事 _字典 _操作員 字段 類(lèi)型 說(shuō)明 [id] [char] (10) 序號(hào) [ksbh] [char] (12) 科室編號(hào) [ksmc] [char] (12) 科室名稱 [czylsh] [char] (12) 操作員流水 號(hào) [czyxm] [char] (10) 姓名 [zwms] [char] (20) 職務(wù)描述 [gwms] [char] (20) 崗位描述 [qx] [char] (10) 權(quán)限 [zt] [char] (10) 狀態(tài) [jmsz] [char] (10) 界面設(shè)置 [txsz] [char] (10) 提醒設(shè)置 表名 rs_zd_zzjg 人事 _字典 _組織機(jī)構(gòu) 字段 類(lèi)型 說(shuō)明 [id] [char] (3) 序號(hào) [gsj] [char] (2) 公司級(jí) [gsmc] [char] (12) 公司名稱 [zxj] [char] (2) 中心級(jí) [zxmc] [char] (12) 中心名稱 [bmj] [char] (2) 部門(mén)級(jí) [bmmc] [char] (12) 部門(mén)名稱 [ksj] [char] (2) 科室級(jí) [ksmc] [char] (12) 科室名稱 [xzj] [char] (2) 小組級(jí) [xzmc] [char] (12) 小組名稱 [jgmc] [char] (2) 機(jī)構(gòu)標(biāo)志 [bymc] [char] (12) 備用名稱 表名 rs_zd_dbdg 人事 _字典 _科室（定崗定編） 字段 類(lèi)型 說(shuō)明 [id] [char] (2) 序號(hào) [ksbh] [char] (12) 科室編號(hào) [ksmc] [char] (12) 科室名稱 15 [ksms] [char] (50) 科室描述 [bzrs] [numeric](18, 2) 編制人數(shù) [zbry] [char] (13) 在編人員 [npry] [char] (14) 擬聘人員 [ksjb] [char] (12) 科室 級(jí)別 [qx] [char] (10) 權(quán)限 [zt] [char] (10) 狀態(tài) 表名 rs_zd_zwjb 人事 _字典 _職務(wù)級(jí)別 字段 類(lèi)型 說(shuō)明 [id] [char] (2) 序號(hào) [zw1] [char] (2) 職務(wù)編碼 1 [zwjb1] [char] (12) 職務(wù)級(jí)別名稱 1 [zw2] [char] (2) 職務(wù)編碼 2 [zwjb2] [char] (12) 職務(wù)級(jí)別名稱 2 [zw3] [char] (2) 職務(wù)編碼 3 [zwjb3] [char] (12) 職務(wù)級(jí)別名稱 3 [zw4] [char] (2) 職務(wù)編碼 4 [zwjb4] [char] (12) 職務(wù)級(jí)別名稱 4 [zwbz] [char] (10) 職務(wù)標(biāo)志 表名 rs_zd_zwmc 人事 _字典 _職務(wù)名稱 字段 類(lèi)型 說(shuō)明 [id] [char] (2) 序號(hào) [zwbh] [char] (12) 職務(wù)編號(hào) [zwmc] [char] (12) 職務(wù)名稱 [zwms] [char] (50) 職務(wù)描述 [qx] [char] (10)