【正文】 end。 := false?！巴顺觥卑粹o的onClick事件代碼procedure (Sender: TObject)。 end。39。系統(tǒng)登錄39。 then begin close。 if trim(czylsh) 39。 。輸入[員工號][呢稱]或[密碼]不正確！將退出！39。 end。 end。).AsString,1,8)。 4: xt_gs := copy((39。ksbh39。).AsString,1,6)。 2: xt_gs := copy((39。ksbh39。).AsString,1,2)。 case strtoint(czyqx) of 0: xt_gs := copy((39。qx39。).AsString。 czygwmc := (39。ksmc39。).AsString。 czyksbh := (39。zwmc39。).AsString。 czybm := (39。czymm39。).AsString。 czylsh := (39。czyxm39。 exit。)。 if = 0 then begin showmessage(39。).AsString := trim()。 (39。czybm39。)。 (39。 end else begin with do begin close。 end。).AsString,1,8)。 4: xt_gs := copy((39。ksbh39。).AsString,1,6)。 2: xt_gs := copy((39。ksbh39。).AsString,1,2)。 case strtoint(czyqx) of 0: xt_gs := copy((39。qx39。).AsString。 czygwmc := (39。ksmc39。).AsString。 czyksbh := (39。zwmc39。).AsString。 czybm := (39。czymm39。).AsString。 czylsh := (39。czyxm39。 exit。)。 if = 0 then begin showmessage(39。).AsString := trim()。 (39。czylsh39。)。 (39。 then begin with do begin close。) then begin if = 39。) and (trim() 39。 if (trim() 39。 xt_gs := 39。 czyqx := 39。 czygwmc := 39。 czyksmc := 39。 czyksbh := 39。 czyzwmc := 39。 czyxm := 39。 czylsh := 39。 。 39。)。 Showmessage(39。 := false。 。請與管理員聯(lián)系！39。39。 := true。).AsString := 39。 (39。39。 := false。 。NAMEE39。 39。NAMEE39。FVer39。NAMEE39。139。DOWNFLAG39。 := true。 + 39。39。 + vExeFile + 39。39。39。 + vExeFile + 39。39。 + 39。 := 39。 end。)。 + vExeFile + 39。 if UpperCase(ExtractFileName()) vExeFile then begin Showmessage(39。)。begin //版本判斷 vExeFile := UpperCase(39。var vExeFile, vDownFile: string。end。true39。begin := true。在選擇卡建立后，填寫DATABASENAME指向sumpo_ehr，Server Name指向本地計算機名“ .” ，User Name填寫“sa” 。首先，執(zhí)行“BDE”中的“管理工具”中的“Object”項目，選擇“NEW”選項卡，下拉菜單“Database Driver Name”選擇“MSSQL”，單擊“OK”按鈕。密碼：123 。還原數(shù)據(jù)庫DATE 目錄下的sumpo_ehr文件。2002[5]《SQL Server數(shù)據(jù)庫開發(fā)經(jīng)典案例解析》，清華大學(xué)出版社，2006年 [6]《SQL SERVER 2000開發(fā)與應(yīng)用》，機械工業(yè)出版社，2003年7月[7] 王學(xué)慶．Delphi 6數(shù)據(jù)庫設(shè)計實例導(dǎo)航．北京：科學(xué)出版社．2003[8] 付軍．Delphi7實例編程100例．北京：中國鐵道出版社．2005附錄后臺數(shù)據(jù)庫配置本系統(tǒng)開發(fā)是在Windows XP下開發(fā)的，開發(fā)數(shù)據(jù)庫使用的是SQL 2000。我愿在未來的學(xué)習(xí)和工作過程中，以更加豐厚的成果來答謝曾經(jīng)關(guān)心、幫助和支持過我的所有領(lǐng)導(dǎo)、老師、同學(xué)、同事和朋友。其次要感謝在我做設(shè)計過程中幫助我的同學(xué)，在設(shè)計調(diào)試過程中遇到不少問題題，他們都細(xì)心的幫助我查看代碼，指出其中的錯誤。同時,使我明白無論做什么事情，一定要堅持，在完成的過程當(dāng)中一定會有很多困難,但是只要你堅持,逐一去解決,那么一定會走向成功的!致謝首先要感謝我的指導(dǎo)老師 老師、 老師、 老師，從畢業(yè)設(shè)計的選題，到收集材料，還后期的整理等階段都給予我很多幫助。通過與人力資源部的協(xié)同工作，增進了人系關(guān)系，讓我融入到企業(yè)大家庭，感觸到大家庭的包容與幫助，體會到團隊精神的力量。在測試過程中，不僅選擇正確的數(shù)據(jù)，還要錄入假定錯誤的數(shù)據(jù)，并對系統(tǒng)的數(shù)據(jù)進行核對，填寫系統(tǒng)運行日志，整理成文檔資料，以便于今后系統(tǒng)的維護。首先，對組成系統(tǒng)的各個模塊分別進行單元測試；其次，對通過單元測試的各個模塊進行了組裝測試即集成測試，并完成系統(tǒng)模塊功能有效性測試；最后完成系統(tǒng)測試。對項名屬性屬性值Tbitbtn1Caption保存Tbitbtn2Caption離開Tbitbtn3Caption檢查（3） 提醒設(shè)置【主要功能】提供軟件針對操作人員的工作性質(zhì)進行提醒的設(shè)置等窗口。對項名屬性屬性值TDBChart1圖表Tbitbtn1Caption按公司Tbitbtn2Caption按中心Tbitbtn3Caption按部門Tbitbtn4Caption按科室Tbitbtn5Caption按學(xué)歷Tbitbtn6Caption按級別Tbitbtn6Caption按性別 系統(tǒng)維護（1） 權(quán)限管理【主要功能】提供軟件操作人員的權(quán)限設(shè)置等工作的查詢、開放、保存、刪除等窗口。對項名屬性屬性值Tbitbtn1Caption增加Tbitbtn2Caption修改Tbitbtn3Caption保存Tbitbtn4Caption取消Tbitbtn5Caption刪除Tbitbtn6Caption退出（3） 外送培訓(xùn)審批表【主要功能】提供在職人員外送審批申請等工作的查詢、增加、修改、保存等窗口，并對在職人員培訓(xùn)內(nèi)容、培訓(xùn)目的等進行存儲。對項名屬性屬性值TDateTimePick日期選擇Tbitbtn1Caption確認(rèn)錄用Tbitbtn2Caption提交審批Tbitbtn3Caption轉(zhuǎn)人才庫Tbitbtn4Caption取消錄入Tbitbtn5Caption保存資料Tbitbtn6Caption打印Tbitbtn7Caption退出（5） 應(yīng)聘花名冊【主要功能】提供招聘人員表格式一覽表查詢及快捷按鈕對項名屬性屬性值TDBGrid1表格Tbitbtn1Caption資料新增Tbitbtn2Caption面試預(yù)約Tbitbtn3Caption領(lǐng)導(dǎo)審批Tbitbtn4Caption轉(zhuǎn)人才庫Tbitbtn5Caption退出 教育培訓(xùn)管理（1） 培訓(xùn)計劃[安排]【主要功能】提供在職人員培訓(xùn)計劃安排的查詢、增加、修改、保存等窗口，并對在職人員的培訓(xùn)類型、方式、時間等情況進行存儲。對項名屬性屬性值Image1照片顯示TComboBox1政治面貌Items清白中共黨員共青團員預(yù)備黨員群眾其它TComboBox2籍貫Items福建省龍巖市福建省福州市福建省廈門市福建省莆田市福建省泉州市福建省南平市福建省漳州市TComboBox3婚姻狀況Items未婚已婚離異TDateTimePick日期選擇Tbitbtn1Caption增加Tbitbtn2Caption修改Tbitbtn3Caption取消Tbitbtn4Caption完成Tbitbtn5Caption面試預(yù)約Tbitbtn6Caption入職審批Tbitbtn7Caption打印Tbitbtn8Caption退出（3） 面試預(yù)約【主要功能】提供招聘人員的應(yīng)聘第二階段面試，包含面試人員、面試時間等資料錄入窗口。對項名屬性屬性值Treeview1樹型結(jié)構(gòu)表TDBGrid表細(xì)表格Tbitbtn1Caption增加Tbitbtn2Caption修改Tbitbtn3Caption保存Tbitbtn4Caption取消Tbitbtn5Caption崗位級別設(shè)置