【正文】 .......................... 5 第四節(jié) 系統(tǒng)功能模塊設(shè)計(jì) ............................... 7 第五節(jié) 系統(tǒng)的流程分析 ................................. 9 第二章 數(shù)據(jù)庫(kù)應(yīng)用程序開發(fā)概述 ........................... 11 第一節(jié) 創(chuàng)建數(shù)據(jù)庫(kù) .................................... 11 第二節(jié) 邏輯數(shù)據(jù)庫(kù)設(shè)計(jì) ................................ 11 第三節(jié) 數(shù)據(jù)表操作類的設(shè)計(jì) ............................ 18 第三章 人事工資管理信息系統(tǒng)的系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) ............. 28 DELPHI 課程設(shè)計(jì) 第 2 頁(yè) 共 132 頁(yè) 2 第一節(jié) 系統(tǒng)實(shí)現(xiàn)技術(shù) .................................. 28 一、選擇 Borland Delphi 7 做為開發(fā)工具 ............. 29 二、選擇 Microsoft Server 2021 作為服務(wù)器端數(shù)據(jù)庫(kù)軟件 30 第二節(jié) 系統(tǒng)運(yùn)行軟件環(huán)境 ............................. 31 第三節(jié) 模塊的設(shè)計(jì)與實(shí)現(xiàn) ............................ 32 一、創(chuàng)建啟動(dòng)畫面 .................................. 32 二、創(chuàng)建登錄窗體 .................................. 33 三、連接數(shù)據(jù)庫(kù)設(shè)置 ................................ 39 四、創(chuàng)建系統(tǒng)主界面 ................................ 43 五、基本信息管理模塊 .............................. 48 六、考勤信息管理模塊 .............................. 59 七、獎(jiǎng)懲信息管理模塊 .............................. 73 八、員工履歷管理模塊 .............................. 82 九、職稱信息管理模塊 .............................. 93 十、員工工資管理模塊 ............................. 104 十一、系統(tǒng)功能模塊 ............................... 120 第四章 結(jié)論 ......................................... 131 第一章 系統(tǒng)需求分析 第一節(jié) 問(wèn)題的提出 DELPHI 課程設(shè)計(jì) 第 3 頁(yè) 共 132 頁(yè) 3 隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及，利用計(jì)算機(jī)實(shí)現(xiàn)企業(yè)人事工資的管理勢(shì)在必行。這些優(yōu)點(diǎn)能夠極大地提高人事工資資管理的效率 ,也是企業(yè)的科學(xué)化、正規(guī)化管理 ,與世界接軌的重要條件。 第二節(jié) 系統(tǒng)功能分析 本系統(tǒng)主要包括員工基本信息管理、考勤信息管理、獎(jiǎng)懲信息管理、員工履歷管理、職稱信息管理、員工工資管理等模塊，另外還包括進(jìn)行系統(tǒng)管理的一些輔助模塊，其具體各模塊功能如下： 一、基本信息管理 員工的基本信息包括員工的編號(hào)、員工姓名、員工所 在部門、DELPHI 課程設(shè)計(jì) 第 4 頁(yè) 共 132 頁(yè) 4 性別、畢業(yè)學(xué)校、專業(yè)、職稱、政治面貌、工作時(shí)間和聯(lián)系方式等。員工考勤信息管理主要包括以下功能： 考勤信息錄入與維護(hù) 員工考勤信息查詢 三、獎(jiǎng)懲信息管理 員工獎(jiǎng)懲信息主要記錄對(duì)員工的獎(jiǎng)勵(lì)和懲罰信息，獎(jiǎng)勵(lì)和 懲罰信息與獎(jiǎng)金掛鉤，以激勵(lì)或約束員工。員工工作履及管理主要實(shí)現(xiàn)的功能有： DELPHI 課程設(shè)計(jì) 第 5 頁(yè) 共 132 頁(yè) 5 履歷信息與維護(hù) 員工履歷信息查詢 五、職稱信息管理 員工職稱信息記錄員工的職稱評(píng)定信息，因?yàn)閱T工的職稱高低與工資有直接的關(guān)系，所以員工職稱信息記錄的結(jié)果將直接影響員工的工資水平。員工工資管理主要包括以下功能： 工資信息錄入與維護(hù)，員工工資在錄入時(shí)有些項(xiàng)目?jī)?nèi)容是固化在程序中的，有些是根據(jù)其他管理信息獲取的，最后根據(jù)這些信息按照一定的方法算出員工工資 員工工資查詢 七、系統(tǒng)功能模塊 系統(tǒng)維護(hù)和賬戶管理是數(shù)據(jù)庫(kù)應(yīng)用程序必不可少的一塊。 用戶權(quán)限控制無(wú)疑是安全中最重要的環(huán)節(jié)； DELPHI 課程設(shè)計(jì) 第 6 頁(yè) 共 132 頁(yè) 6 其次簡(jiǎn)單實(shí)用的數(shù)據(jù)備份也是系統(tǒng)功能模塊的重要組成部分。由于本系統(tǒng)對(duì)不同的用戶帳號(hào)設(shè)置了不同的操作權(quán)限，因此不同用戶的操作流程有所不一樣。用戶登錄操作，用戶登錄操作主要是對(duì)用戶的帳號(hào)（包括用戶名和密碼）進(jìn)行身份驗(yàn)證。業(yè)務(wù)操作根據(jù)帳號(hào)的權(quán)限允許或限制用戶的行為。 本系統(tǒng)創(chuàng)建的數(shù)據(jù)庫(kù)名為 personnel_sys,單擊開始 /程序/Microsoft SQL Server /企業(yè)管理器，為所使用電腦 SQL Server進(jìn)行注冊(cè)，在控制臺(tái)根目錄 下，右擊‘?dāng)?shù)據(jù)庫(kù)’ /新建數(shù)據(jù)庫(kù) /‘常規(guī)’：數(shù)據(jù)庫(kù)名稱設(shè)為 personnel_sys/在‘?dāng)?shù)據(jù)文件’和‘事務(wù)日記’ 內(nèi)設(shè)置相應(yīng)的位置、初始大小、文件增長(zhǎng)方式等屬性。 第二節(jié) 邏輯數(shù)據(jù)庫(kù)設(shè)計(jì) 根據(jù)系統(tǒng)設(shè)計(jì)的要求對(duì)數(shù)據(jù)庫(kù)進(jìn)行邏輯結(jié)構(gòu)設(shè)計(jì)，下面分別對(duì)這些表的結(jié)構(gòu)進(jìn)行具體介紹。用戶帳號(hào)表的具體結(jié)構(gòu)如表 所示。 表 Tbasedata 類封裝的方法和過(guò)程 方法或過(guò)程名 具體說(shuō)明 function checkrec(id:string):boolean。 根據(jù)員工編號(hào)返回員工的檔案編DELPHI 課程設(shè)計(jì) 第 19 頁(yè) 共 132 頁(yè) 19 號(hào) function getworkername(workid:string):string。 根據(jù)員工編號(hào)返回員工所在部門名稱 function getsex(workid:string):string。 根據(jù)員工編號(hào)趕回員工出生日期 function getnativeplace(workid:string):string。 根據(jù)員工編號(hào)趕回員工學(xué)歷 function getmajor(workid:string):string。 根據(jù)員工編號(hào)趕回員工畢業(yè)學(xué)校 function getpolista(workid:string):string。 根據(jù)員工編號(hào)趕回員工參加工作時(shí)間 function getetime(workid:string):string。 根據(jù)員工編號(hào)趕回員工聯(lián)系電話 DELPHI 課程設(shè)計(jì) 第 20 頁(yè) 共 132 頁(yè) 20 function getaddress(workid:string):string。 根據(jù)員工編號(hào)趕回員工備注信息 function getphone(workid:string):tstream。path1:string)。path1:string)。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行插入操作過(guò)程 procedure recupdate(updatesql:stirng)。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行刪除操作過(guò)程 procedure findrec(id:stirng)。 根據(jù)員工編號(hào)和工作單位查詢記錄是否存在 function workagerec1(findsql:string):boolean。 根據(jù)記錄號(hào)返回記錄號(hào) function getworkername(reid:string):string。 根據(jù)記錄號(hào)返回起始日期 function getoverdate(reid:string):string。 根據(jù)記錄號(hào)返回工作時(shí)間 function getduty(reid:string):string。 根據(jù)記錄號(hào)返回員工級(jí)別 function getremark(reid:string):string。 根據(jù)記錄號(hào)返回員工工齡 DELPHI 課程設(shè)計(jì) 第 22 頁(yè) 共 132 頁(yè) 22 function workagerecs(sql:string):olevariant。 通過(guò)傳遞 sql 語(yǔ)句執(zhí)行插入操作 procedure recupdate(updatesql:string)。 通過(guò)傳遞記錄號(hào)執(zhí)行刪除操作 Twageinfo 類封裝了對(duì) wage_info 表的各種操作，類中定義的方法和過(guò)程如 表 。 通過(guò)傳遞 SQL 語(yǔ)句查詢記錄是否已經(jīng)存在 Function GetRecId(Id,givedata:sting):sting。 根據(jù)員工編號(hào)和月份返回員工姓名 Function Getbase wage(Id,givedata:string):string。 根據(jù)員工編號(hào)和月份返回公共補(bǔ)貼信息 Function Getallowance2(Id,GiveData:string):string。 根 據(jù)員工編號(hào)和月份返回獎(jiǎng)金信息 Funcrion getovertimemoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回扣除的考核費(fèi)用 Function getagedmoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回醫(yī)療保險(xiǎn)費(fèi) Function getpomoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回失保險(xiǎn)費(fèi)業(yè) Function gethousemoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回所得稅 Function getrealwage(Id,GiveData:string):string。 通過(guò)傳遞 SQL 語(yǔ)句返回工資信息記錄 DELPHI 課程設(shè)計(jì) 第 24 頁(yè) 共 132 頁(yè) 24 表 Twageinfo 類封裝的方法和過(guò)程 類封裝了對(duì) reward_pun 表的各種操作，類中定義的方法和過(guò)程如 表 。 根據(jù)記錄號(hào)查詢記錄是否存在 Function RewardPunRec1(SQL:string):Boolean 。 通過(guò)記錄號(hào)返回記錄號(hào) Function Getwokename(ReId:string):string。 通過(guò)記錄號(hào)返回獎(jiǎng)懲內(nèi)容 Function Getrecreason(ReId:string):string。 通過(guò)記錄號(hào)返回批準(zhǔn)單位 procedure Recinsert(insertSQL:string)。 通過(guò)傳遞 SQL 語(yǔ)句返回修改操作過(guò)程 procedure Recdel(Id,givedata:string)。 通過(guò)記錄號(hào)返回備注信息 Function Getrewardcount(month1,month2:string):integer。 根據(jù)年份和月份返回懲罰記錄條數(shù) Function rewardpunrecs(SQL:string):OLEVariant。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行插入操作 procedure RecUpdate(updateSQL:string)。 根據(jù)記錄號(hào)執(zhí)行刪除操作 Tprotitle 類封裝了對(duì) pro_title 表的各種操作，類的定義的方法和過(guò)程如 表 。 根據(jù)員工編號(hào)查詢職稱記錄是否存在 Function ProtitleRec1(findSQL:string):Boolean。 根據(jù)員工編號(hào)返回員工姓名 DELPHI 課程設(shè)計(jì) 第 26 頁(yè) 共 132 頁(yè) 26 Function Getassessdate(Id:string):string。 根據(jù)員工編號(hào)返回評(píng)定單位 Function Getassesstitle(Id:string):string。 根據(jù)員工編號(hào)返回備注信息 Function ProtitleRecs(SQL:string):OLEVariant。 通過(guò)傳遞 SQL語(yǔ)句執(zhí)行插入操作 procedure RecUpdate(updateSQL:string)。 根據(jù)員工編號(hào)執(zhí)行刪除操作 Tcheckinfo 類封裝了對(duì) check_info 表的各種操作，類中定義的方法和過(guò)程如 表 表 Tcheckinfo 類封裝的方法和過(guò)程 方法或過(guò)程名 具體說(shuō)明 Function CheckInforec(Id,momth:string):Boolean。 根據(jù)員工編號(hào)和月份返回員工姓名 Function Getmonthdays(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回公休假天數(shù) Function 根據(jù)員工編號(hào)和月份返回應(yīng)出勤天DELPHI 課程設(shè)計(jì) 第 27 頁(yè) 共 132 頁(yè) 27 Getreworkdays(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回出勤天數(shù) Function Getbusinessd