【正文】 根據(jù)員工姓名判斷記錄是否存在 function ProtitleRec2(Dji:string):Boolean。 通過(guò) SQL 語(yǔ)句執(zhí)行插入操作過(guò)程 procedure RecUpdate(UpdateSQl:string)。 根據(jù)員工編號(hào)和月份返回員工礦工天數(shù) function GetLeaveTimes(Id,month:string):string。 根據(jù)員工姓名判斷記錄是否存在 function CheckInfoRec4(month:string):Boolean。 通過(guò) SQL 語(yǔ)句返回方案信息 procedure RecInsert(InsertSQl:string)。 根據(jù)工資方案編號(hào)返回請(qǐng)假扣除 function GetJiaBan_JR(Id:string):string。 根據(jù)工資方案編號(hào)返回二級(jí)員工工資 function GetYangLao_BX(Id:string):string。 根據(jù)工資方案編號(hào)返回副經(jīng)理工資 function GetKeZhang(Id:string):string。 通過(guò) SQL 按員工編號(hào)執(zhí)行刪除操作過(guò)程 procedure RecDel3(Name:string)。 根據(jù)員工編號(hào)和月份返回住房公積金 function GetIneTax(Id,GiveDate:string):string。 根據(jù)員工編號(hào)和月份返回公共補(bǔ)貼 function GetReward(Id,GiveDate:string):string。 通過(guò)傳遞 SQL 語(yǔ)句判斷查詢記錄是否存在 function GetRecId(Id,GiveDate:string):string。 通過(guò) SQL 語(yǔ)句執(zhí)行按編號(hào)和單位刪除操作過(guò)程 procedure RecDel6(Name,Place:string)。 根據(jù)記錄編號(hào)返回員工備注 function GetSumWorTime(Id:string):Integer。 根據(jù)記錄編號(hào)返回員工編號(hào) function GetUnitName(ReId:string):string。類中定義的方法和過(guò)程如表310 所示 表 310 Tworkage 類封裝的方法和過(guò)程 方法和過(guò)程名 具體說(shuō)明 function WorkAgeRec(Id,Work_unit:string):Boolean。 通過(guò)傳遞 SQL 語(yǔ)句返回查詢記錄 procedure PhotoUpdate(Id:string。 根據(jù)員工編號(hào)返回員工 畢業(yè)學(xué)校 function GetPoliSta(WorkId:string):string。 根據(jù)員工編號(hào)返回員工 所在部門 function GetPosition(WorkId:string):string。 根據(jù)員工所在部門判斷記錄是否存在 function CheckRec2(ZW:string):Boolean。 表 33 員工獎(jiǎng)懲信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵 功能描述 RECORD_ID Bigint 8 是 記錄號(hào) WORKER_ID Nvarchar 15 否 員工編號(hào) WORKER_NAME Nvarchar 8 否 員工姓名 RECORD_DATE Datetime 否 獎(jiǎng)懲日期 RECORD_TYPE Nvarchar 2 否 獎(jiǎng)懲類型 RECORD_CONTENT Nvarchar 30 否 獎(jiǎng)懲內(nèi)容 RECORD_REASON Nvarchar 30 否 獎(jiǎng)懲理由 ALLOW_UNIT Nvarchar 20 否 批準(zhǔn)單位 REMARK Nvarchar 255 否 備注 （ 4）員工評(píng)定信息表 (PRO_TITLE) 員工評(píng)定信息表的作用是存入員工的評(píng)定信息，其結(jié)構(gòu)如表 34所示。 創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步 是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。根據(jù)這個(gè)系統(tǒng)所要實(shí)現(xiàn)的目的和任務(wù)，總結(jié)出這個(gè)系統(tǒng)最終要實(shí)現(xiàn)的主要功能如下： 數(shù)據(jù)設(shè)置部分：主要包括考勤錄入 、各項(xiàng)工資設(shè)置、以及員工工資編輯等 功能。 系統(tǒng)功能需求 系統(tǒng)主要功能模塊說(shuō)明 （ 1） 系統(tǒng)管理模塊的主要功能是版本 信息、 用戶賬戶 設(shè)置、 用戶賬戶維護(hù) 、 注銷系統(tǒng)以及退出系統(tǒng) 。 SQL Server 2021 對(duì) XML和 HTTP 提供充分的支持；提供分割裝載和確保時(shí)間的特性；提供先進(jìn)的管理和協(xié)調(diào)機(jī)制，可以自動(dòng)管理線程任務(wù)，降低總體開(kāi)銷。因此，可以說(shuō)應(yīng)用程序框架通過(guò)提供所有應(yīng)用程序共有的東西，為用戶應(yīng)用程序的開(kāi)發(fā)打下了良好的基礎(chǔ)。 （ 5） 數(shù)據(jù)庫(kù)結(jié)構(gòu)的靈活性和擴(kuò)展性。故實(shí)現(xiàn)本系統(tǒng)用 Delphi 作為開(kāi)發(fā)工具是一個(gè)明智的選擇。 SQL Server 2021 是為數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)而設(shè)計(jì)的功能強(qiáng)大、面向?qū)ο蟮木幊坦ぞ?。合理的利用有助于企業(yè)發(fā)展的管理系統(tǒng)是企業(yè)改革的一種優(yōu)越的體現(xiàn)。而如今電腦已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂(lè)等。計(jì)算機(jī)已經(jīng)成為人們?nèi)粘９ぷ髦刑幚頂?shù)據(jù)的得力助手和工具，數(shù)據(jù)處理與科學(xué)計(jì)算、過(guò)程控制、輔助設(shè)計(jì)一起，并稱為計(jì)算機(jī)四大應(yīng)用。管理信息系統(tǒng)根本不僅是技術(shù)系統(tǒng)，而且是社會(huì)系統(tǒng)。 1979年，AshtonTate公司引入了微機(jī)產(chǎn)品 dBase Ⅱ ，并稱之為關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)，從此數(shù)據(jù)庫(kù)技術(shù)移植到了個(gè)人計(jì)算機(jī)上。分布式數(shù)據(jù)庫(kù)、并行數(shù)據(jù)庫(kù)、工程數(shù)據(jù)庫(kù)、演繹數(shù)據(jù)庫(kù)、知識(shí)庫(kù)、多媒體庫(kù)、模糊數(shù)據(jù)庫(kù)等都是這方面的實(shí)例。 20世紀(jì) 80年代幾乎所有新開(kāi)發(fā)的系統(tǒng)均是關(guān)系型的，其中涌現(xiàn)出了許多性能優(yōu)良的商品化關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)，如 DB Ingres、 Oracle、 Informix、 Sybase等。 DBTG報(bào)告確定并建立了網(wǎng)狀數(shù)據(jù)庫(kù)系統(tǒng)的許多概念、方法和技術(shù)，是網(wǎng)狀數(shù)據(jù)庫(kù)的典型代表。在這 30多年的歷程中，人們?cè)跀?shù)據(jù)庫(kù)技術(shù)的理論研究和系統(tǒng)開(kāi)發(fā)上都取得了輝煌的成就，而且已經(jīng)開(kāi)始對(duì)新一代數(shù)據(jù)庫(kù)系統(tǒng)的深入研究。 在本系統(tǒng)開(kāi)發(fā)中，使用原型法（ Rapid Prototyping）即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。二是前 端應(yīng)用程序的開(kāi)發(fā)。 本系統(tǒng)的前端開(kāi)發(fā)工具是 ,后臺(tái)數(shù)據(jù)庫(kù)采用的是 SQL Server 2021數(shù)據(jù)庫(kù)。 1. 第一代數(shù)據(jù)庫(kù)系統(tǒng) 第一代數(shù)據(jù)庫(kù)系統(tǒng)是 20世紀(jì) 70年代研制的層次和網(wǎng)狀數(shù)據(jù)庫(kù)系統(tǒng)。 Edgar F. Codd于 1981年被授予 ACM圖靈獎(jiǎng)，以表彰他在關(guān)系數(shù)據(jù)庫(kù)研究方面的杰出貢獻(xiàn)。 ② 必須保持或繼承第二代數(shù)據(jù)庫(kù)系統(tǒng)的技術(shù)。 Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 8 20世紀(jì) 60年代中期，數(shù)據(jù)庫(kù)技術(shù)是用來(lái)解決文件處理系統(tǒng)問(wèn)題的 。一方面是信息技術(shù)應(yīng)用的迅猛發(fā)展，另一方面，許多管理信息系統(tǒng)在耗費(fèi)了大量的人力、物力、財(cái)力之后夭折了，或者根本沒(méi)有實(shí)現(xiàn)原定系統(tǒng)開(kāi)發(fā)目標(biāo)，或者根本沒(méi)有實(shí)現(xiàn)原系統(tǒng)的開(kāi)發(fā)目標(biāo)，而把計(jì)算機(jī)用作了打字機(jī)。而且可以使他們從簡(jiǎn)單的數(shù)據(jù)統(tǒng)計(jì)、收集、匯總等重復(fù)繁重的事務(wù)中解脫出來(lái)。一直以來(lái)人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 ,另外時(shí)間一長(zhǎng) ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。不但有利于企業(yè)的統(tǒng)一性管理 ,而且還大在提高了企業(yè)的全體員工的工作效率和積極性。其中，基于微型計(jì)算機(jī)的數(shù)據(jù)庫(kù)系統(tǒng)是應(yīng)用最廣泛、實(shí)用性最強(qiáng)的一種計(jì)算機(jī)技術(shù)。 業(yè)界有一句很經(jīng)典的話：真正的程序員用 VC++，而聰明的程序員用Delphi。 （ 2） 面向?qū)ο缶幊痰母拍睢Ｄ墓ぷ髦皇窃凇肮羌堋敝屑尤肽某绦颉?Delphi 把 Windows 編程的回調(diào)、句柄處理等過(guò)程都放在一個(gè)不可見(jiàn)的 Romulam覆蓋物下面，這樣您可以不為它們所困擾，輕松從容地對(duì)可視部件進(jìn)行編程。 Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 12 SQL Server 2021 是 Microsoft． NET Enterprise Server 的數(shù)據(jù)管理與分析中樞。 （ 6）員工評(píng)定信息管理莫主要是記錄員工的評(píng)定等級(jí)信息，實(shí)行不同等級(jí)的員工，擁有一定的等級(jí)工資。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。 各個(gè)表中列名的定義如下： （ 1） 基本信息表 (BASE_DATA) 基本信息表的作用是存入每個(gè)員工的基本信息，其結(jié)構(gòu)如表 31所示。 1. Tbasedata類 Tbasedata類主要是封裝了對(duì) BASE_DATA表的各種操作，類中定義的方法和過(guò)程如表 39所示。 根據(jù)員工政治面貌判斷記錄是否存在 function GetArcId(WorkId:string):string。 根據(jù)員工編號(hào)返回員工 民族 function GetSchAge(WorkId:string):string。 根據(jù)員工編號(hào)返回員工 住址 function GetRemark(WorkId:string):string。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行插入操作過(guò)程 procedure RecUpdate(UpdateSQL:string)。 根據(jù)員工 編號(hào)和工作單位 判斷查詢記錄是否存在 function WorkAgeRec6(Name,Place:string):Boolean。 根據(jù)記錄編號(hào)返回員工工作時(shí)間 function GetDuty(ReId:string):string。 通過(guò) SQL 語(yǔ)句執(zhí)行按員工編號(hào)刪除操作過(guò)程 procedure RecDel3(Name:string)。 根據(jù)員工編號(hào)判斷查詢記錄是否存在 function WageInfoRec4(Name:string):Boolean。 根據(jù)員工編號(hào)和月份返回員工姓名 function GetBaseWage(Id,GiveDate:string):string。 根據(jù)員工編號(hào)和月份返回醫(yī)療保險(xiǎn) function GetCompoMoney(Id,GiveDate:string):string。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行修改操作過(guò)程 procedure RecDel(Id,GiveDate:string)。 通過(guò)傳遞 SQL 語(yǔ)句判斷查詢記錄是否存在 function GetIdLists():Tstrings。 根據(jù)工資方案編號(hào)返回普通員工工資 function GetTeJi_YG(Id:string):string。 根據(jù)工資方案編號(hào)返回遲到扣除 function GetKuangGong(Id:string):string。 根據(jù)工資方案編號(hào)返回稅率（ %） function GetXiaXian(Id:string):string。 根據(jù)員工編號(hào)和月份判斷記錄是否存在 function CheckInfoRec1(Name,month:string):Boolean。 根據(jù)員工編號(hào)和月份返回員工實(shí)際出勤天數(shù) function GetWorkDays(Id,month:string):string。 根據(jù)員工編號(hào)和月份返回員工其他加班次數(shù) function GetRemark(Id,month:string):string。 通過(guò) SQL 語(yǔ)句執(zhí)行按月份刪除操作過(guò)程 6. Tprotitle類 Tprotitle類 封裝了對(duì) PRO_TITLE表的各種操作，類中定義的方法和過(guò)程如表 414所示。 根據(jù)員工姓名和等級(jí)判斷記錄是否存在 function ProtitleRec1(FindSQL:string。 通過(guò) SQL 語(yǔ)句執(zhí)行按員工姓名和月份刪除操作過(guò)程 procedure RecDel2(Id:string) 通過(guò) SQL 語(yǔ)句執(zhí)行按員工編號(hào)刪除操作過(guò)程 procedure RecDel3(Name:string)。 根據(jù)員工編號(hào)和月份返回員工早退天數(shù) function GetHOliOverTimes(Id,month:string):string。 根據(jù)員工編號(hào)和月份返回當(dāng)月天數(shù) function GetHolidays(Id,month:string):string。 通過(guò) SQL 語(yǔ)句執(zhí)行刪除操作過(guò)程 5. Tcheckinfo類 Tcheckinfo 類 封裝了對(duì) CHECK_INFO 表的各種操作，類中定義的方法和過(guò)程如表413所示。 根據(jù)工資方案編號(hào)返回出差補(bǔ)貼 function GetGongLing(Id:string):string。 根據(jù)工資方案編號(hào)返回醫(yī)療保險(xiǎn) function GetShiYe_BX(Id:string):string。 根據(jù)工資方案編號(hào)返回部長(zhǎng)工資 function GetFuBuZhang(Id:string):string。 表 412 Twageset 類封裝的方法和過(guò)程 方法或過(guò)程名 具體說(shuō)明 function wagesetRec(Id:string):Boolean。 通過(guò)傳遞 SQL 語(yǔ)句返回工資信息記錄 procedure RecInsert(InsertSQl:string)。 根據(jù)員工編號(hào)和月份返回口考核 function GetAgedMoney(Id,GiveDate:string):string。 根據(jù)員工編號(hào)和月份返回所