【文章內(nèi)容簡(jiǎn)介】 l:string)。 通過(guò)傳遞 sql 語(yǔ)句執(zhí)行插入操作 procedure recupdate(updatesql:string)。 通過(guò)傳遞 sql 語(yǔ)句執(zhí)行修改操作 procedure recdel(reid:string)。 通過(guò)傳遞記錄號(hào)執(zhí)行刪除操作 Twageinfo 類封裝了對(duì) wage_info 表的各種操作，類中定義的方法和過(guò)程如 表 。 方法或過(guò)程名 具體說(shuō)明 Function WageInfoRec(Id,GiveData:string):Boolean: 根據(jù)員工編號(hào)和月份查詢記錄是否存在 Function WageInfoRec(FindSQL:string):Boolean。 通過(guò)傳遞 SQL 語(yǔ)句查詢記錄是否已經(jīng)存在 Function GetRecId(Id,givedata:sting):sting。 根據(jù)員工編號(hào)和月份返回記錄號(hào) Function Getworkname(Id,givedata:sting):sting。 根據(jù)員工編號(hào)和月份返回員工姓名 Function Getbase wage(Id,givedata:string):string。 根據(jù)員工編號(hào)和月份返回基本工資信息 Function Getallowance1(Id,givedata:string):string。 根據(jù)員工編號(hào)和月份返回公共補(bǔ)貼信息 Function Getallowance2(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回出差補(bǔ)貼信息 DELPHI 課程設(shè)計(jì) 第 23 頁(yè) 共 132 頁(yè) 23 Function getreward(Id,GiveData:string):string。 根 據(jù)員工編號(hào)和月份返回獎(jiǎng)金信息 Funcrion getovertimemoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回加班費(fèi) Function getdeductcheck(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回扣除的考核費(fèi)用 Function getagedmoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回養(yǎng)老保險(xiǎn)費(fèi) Function getmedicalmomey(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) Function getunemploymoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回失保險(xiǎn)費(fèi)業(yè) Function gethousemoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回住房公積金 Function getiax(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回所得稅 Function getrealwage(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回實(shí)發(fā)工資 procedure wagesrecs(SQL:string):OLEVariant。 通過(guò)傳遞 SQL 語(yǔ)句返回工資信息記錄 DELPHI 課程設(shè)計(jì) 第 24 頁(yè) 共 132 頁(yè) 24 表 Twageinfo 類封裝的方法和過(guò)程 類封裝了對(duì) reward_pun 表的各種操作，類中定義的方法和過(guò)程如 表 。 表 trewardpun 類封裝的方法和過(guò)程 方法或過(guò)程名 具體說(shuō)明 Function RewardPunRec(ReId:string):Boolean 。 根據(jù)記錄號(hào)查詢記錄是否存在 Function RewardPunRec1(SQL:string):Boolean 。 通過(guò)傳遞 SQL 語(yǔ)句查詢記錄是否存在 Function GetrecId(ReId:string):string。 通過(guò)記錄號(hào)返回記錄號(hào) Function Getwokename(ReId:string):string。 通過(guò)記錄號(hào)返回員工名稱 Function Getreccont(ReId:string):string。 通過(guò)記錄號(hào)返回獎(jiǎng)懲內(nèi)容 Function Getrecreason(ReId:string):string。 通過(guò)記錄號(hào)返回獎(jiǎng)懲原因 Function Getallowunit(ReId:string):string。 通過(guò)記錄號(hào)返回批準(zhǔn)單位 procedure Recinsert(insertSQL:string)。 通過(guò)傳遞 SQL 語(yǔ)句返回插入操作過(guò)程 procedure RecUpdate(updateSQL:string)。 通過(guò)傳遞 SQL 語(yǔ)句返回修改操作過(guò)程 procedure Recdel(Id,givedata:string)。 根據(jù)員工編號(hào)和月份執(zhí)行刪除操作 DELPHI 課程設(shè)計(jì) 第 25 頁(yè) 共 132 頁(yè) 25 Function Getremark(ReId:string):string。 通過(guò)記錄號(hào)返回備注信息 Function Getrewardcount(month1,month2:string):integer。 根據(jù)年份和月 份返回獎(jiǎng)勵(lì)記錄條數(shù) Function Getpuncount(month1,month2:string):integer。 根據(jù)年份和月份返回懲罰記錄條數(shù) Function rewardpunrecs(SQL:string):OLEVariant。 通過(guò)傳遞 SQL 語(yǔ)句返回記錄查詢 procedure Recinsert(insertSQL:string)。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行插入操作 procedure RecUpdate(updateSQL:string)。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行修改操作 procedure Recdel(ReId:string)。 根據(jù)記錄號(hào)執(zhí)行刪除操作 Tprotitle 類封裝了對(duì) pro_title 表的各種操作，類的定義的方法和過(guò)程如 表 。 表 Tprotitle 類封裝的方法和過(guò)程 方法或過(guò)程名 具體說(shuō)明 Function ProtitleRec(Id:string):Boolean。 根據(jù)員工編號(hào)查詢職稱記錄是否存在 Function ProtitleRec1(findSQL:string):Boolean。 通過(guò)查詢 SQL語(yǔ)句 查詢記錄是否存在 Function Getworkername(Id:string):string。 根據(jù)員工編號(hào)返回員工姓名 DELPHI 課程設(shè)計(jì) 第 26 頁(yè) 共 132 頁(yè) 26 Function Getassessdate(Id:string):string。 根據(jù)員工編號(hào)返回評(píng)定日期 Function Getassessunit(Id:string):string。 根據(jù)員工編號(hào)返回評(píng)定單位 Function Getassesstitle(Id:string):string。 根據(jù)員工編號(hào)返回評(píng)定職稱 Function Getremark(Id:string):string。 根據(jù)員工編號(hào)返回備注信息 Function ProtitleRecs(SQL:string):OLEVariant。 通過(guò)傳遞 SQL語(yǔ)句返回查詢記錄 procedure Recinsert(insertSQL:string)。 通過(guò)傳遞 SQL語(yǔ)句執(zhí)行插入操作 procedure RecUpdate(updateSQL:string)。 通過(guò)傳遞 SQL語(yǔ)句執(zhí)行修改操作 procedure Recdel(Id:string)。 根據(jù)員工編號(hào)執(zhí)行刪除操作 Tcheckinfo 類封裝了對(duì) check_info 表的各種操作，類中定義的方法和過(guò)程如 表 表 Tcheckinfo 類封裝的方法和過(guò)程 方法或過(guò)程名 具體說(shuō)明 Function CheckInforec(Id,momth:string):Boolean。 根據(jù)員工編號(hào)和月份查詢記錄是否存在 Function Getworkername(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回員工姓名 Function Getmonthdays(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回當(dāng)月天數(shù) Function Getholidays(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。 數(shù) Function Getworkdays(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回出勤天數(shù) Function Getbusinessdays(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回出差天數(shù) Function Getabsentdays(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回缺勤天數(shù) Function GetLeavetimes(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回請(qǐng)假次數(shù) Function Getlatetimes(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回遲到次數(shù) Function GetleaEartimes(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回早退次數(shù) Function GetHOliOvertimes(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回節(jié)假日加班時(shí)間 Function Getotherovertimes(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回返回其他加班時(shí)間 Function Getremark(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回備注信息 Function CheckInfoRecs(SQL:string):OLEVariant。 通過(guò)傳遞 SQL 語(yǔ)句返回查詢記錄 procedure RecInsert(InsertSQL:string)。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行插入操作 procedure RecUpdate(UpdateSQL:string)。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行修改操作 DELPHI 課程設(shè)計(jì) 第 28 頁(yè) 共 132 頁(yè) 28 procedure Recdel(Id,month:string)。 根據(jù)員工編號(hào)和月份編號(hào)執(zhí)行刪除操作 類 Tusertable 類封裝了對(duì) user_table 表的各種操作，類中定義的方法和過(guò)程名稱如 表 表 Tusertable 類封裝的方法和過(guò)程 方法或過(guò)程名 具體說(shuō)明 Function Getuserpwd(UserName:string):string。 根據(jù)用戶名返回用戶密碼信息 Function GetuserLevel(UserName:string):string。 根據(jù)用戶名返回用戶級(jí)別信息 Function checkuser(UserName:string):Boolean。 根據(jù)用戶名返回查詢賬號(hào)記錄是否存在 procedure UserInsert(InsertSQL:string)。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行插入操作 procedure UserUpdate(UpdateSQL:string)。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行修改操作 procedure Userdelete(DeleteSQL:string)。 根據(jù)傳遞 SQL 語(yǔ)句執(zhí)行刪除操作 procedure CreatTable(SQL:string)。 通過(guò)腳本 SQL 語(yǔ)句創(chuàng)建用戶數(shù)據(jù)表 第三章 人事工資管理信息系統(tǒng)的系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 第一節(jié) 系統(tǒng)實(shí)現(xiàn) 技術(shù) DELPHI 課程設(shè)計(jì) 第 29 頁(yè) 共 132 頁(yè) 29 一、選擇 Borland Delphi 7 做為開發(fā)工具 Delphi 是著名的 Borland（現(xiàn)在已和 Inprise 合并）公司開發(fā)的可視化軟件開發(fā)工具?！罢嬲某绦騿T用 c，聰明的程序員用 Delphi”，這句話是對(duì) Delphi 最經(jīng)典、最實(shí)在的描述。 Delphi 被稱為第四代編程語(yǔ)言，它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)。和 VC 相比， Delphi更簡(jiǎn)單、更易于掌握，而在功能上卻絲毫不遜色；和 VB 相比， Delphi則功能更強(qiáng)大、更實(shí)用?？梢哉f(shuō) Delphi 同時(shí)兼?zhèn)淞?VC 功能強(qiáng)