【正文】 :string)。 根據(jù)員工編號(hào)判斷記錄是否存在 function ProtitleRec1(Name:string):Boolean。 根據(jù)等級(jí)判斷記錄是否存在 function ProtitleRec3(Id,Dji:string):Boolean。 通過 SQL 語句執(zhí)行修改操作過程 procedure RecDel(Id,month:string)。 根據(jù)員工編號(hào)和月份返回員工請(qǐng)假天數(shù) function GetLateTimes(Id,month:string):string。 根據(jù)月份判斷記錄是否存在 function GetWorkerName(Id,month:string):string。 通過 SQL 語句執(zhí)行插入操作過程 procedure RecUpdate(UpdateSQl:string)。 根據(jù)工資方案編號(hào)返回節(jié)假日加班工資 function GetJiaBan_QT(Id:string):string。 根據(jù)工資方案編號(hào)返回養(yǎng)老保險(xiǎn) function GetGongShang_BX(Id:string):string。 根據(jù)工資方案編號(hào)返回科長工資 function GetFuKeZhang(Id:string):string。 通過 SQL 按員工姓名執(zhí)行刪除操作過程 procedure RecDel4(GiveDate:string)。 根據(jù)員工編號(hào)和月份返回個(gè)人所得稅 function GetRealWage(Id,GiveDate:string):string。 根據(jù)員工編號(hào)和月份返回獎(jiǎng)金 function GetOverTimeMoney(Id,GiveDate:string):string。 根據(jù)員工編號(hào)和月份返回記錄號(hào) function GetSche_Id(Id,GiveDate:string):string。 通過 SQL 語句執(zhí)行按姓名和單位刪除操作過程 3. Twageinfo類 Twageinfo 類封裝 了 對(duì) WAGE_INFO 表的各種操作，類中定義的方法和過程如表311所示。 根據(jù)記錄編號(hào)返回員工工齡 function WorkAgeRecs(SQL:string):OLEVariant。 根據(jù)記錄編號(hào)返回員工單位名稱 function GetWorkerName(ReId:string):string。 根據(jù)員工編號(hào)和工作單位判斷查詢記錄是否存在 function WorkAgeRec2(Id:string):Boolean。 path1:string)。 根據(jù)員工編號(hào)返回員工 政治面貌 function GetWorkTime(WorkId:string):string。 根據(jù)員工編號(hào)返回員工 職位 function GetSex(WorkId:string):string。 根據(jù)員工職務(wù)判斷記錄是否存在 function CheckRec3(XB:string):Boolean。 表 34 員工評(píng)定信息表 字段名 數(shù)據(jù)類型 長度 主鍵 功能描述 WORKER_ID Nvarchar 15 是 員工編號(hào) WORKER_NAME Nvarchar 8 否 員工姓名 ASSESS_DATE Datetime 否 評(píng)定日期 ASSESS_UNIT Nvarchar 20 否 評(píng)定單位 ASSESS_TITLE Nvarchar 10 否 評(píng)定等級(jí) REMARK Nvarchar 255 否 備注 （ 5）員工履歷信息表 (WORKE_AGE) 員工履歷信息表的作用是存入每個(gè)員工的履歷信息，其結(jié)構(gòu)如表 35所示。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 數(shù)據(jù)修改部分 : 主要修改 員工信息 ,修改 各項(xiàng) 工資 設(shè)置等 。 （ 2） 員工 基本 信息管理模塊主要功能是 記錄員工的基本信息，如：工號(hào)、姓名、所在部門、職位等。 SQL Server 2021 是一個(gè)具備完全 Web 支持的數(shù)據(jù)庫產(chǎn)品，提供了可擴(kuò)展標(biāo)記語言（ XML）核心支持以及 Inter 上和防火墻外進(jìn)行查詢的能力，具有可伸縮性、靈活性、擴(kuò)充性好，而且價(jià)格便宜等特點(diǎn)；還可以使用 XML 更新程序更容易地插入、更新和刪除數(shù)據(jù)。 Delphi 已經(jīng)為您做好了一切基礎(chǔ)工作 程序框架就是一個(gè)已經(jīng)完成的可運(yùn)行應(yīng)用程序，只是不處理任何事情。 （ 6） 框架對(duì)設(shè)計(jì)和使用模式的擴(kuò)充。 Delphi 及 SQL Server 2021 簡介 （一） Delphi 簡介 Delphi 是全新的可視化編 程環(huán)境，為我們提供了一種方便、快捷的 Windows 應(yīng)用程序開發(fā)工具。它能夠管理大量復(fù)雜的數(shù) 據(jù)信息，同時(shí)有具有很好的安全性和較強(qiáng)的網(wǎng)絡(luò)功能，甚至還能夠?qū)崿F(xiàn)數(shù)據(jù)的遠(yuǎn)程訪問和存儲(chǔ)加工。利用計(jì)算機(jī)對(duì)企業(yè)人事管理不僅保證了核算準(zhǔn)確度，還成倍的提高了工作效率，而且便于查詢。所以利用計(jì)算機(jī)管理人事是以后企業(yè)最佳選擇。古往今來，信息都上一種資源，只是未Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 9 得到應(yīng)有的重視。管理信息系統(tǒng)是一門融管理科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)、現(xiàn)代通信技術(shù)和電子計(jì)算機(jī)技術(shù)為一體的綜合性邊緣學(xué)科，它以人為主導(dǎo)，利用計(jì)算機(jī)硬件、軟件、網(wǎng)絡(luò)通信設(shè)備辦公設(shè)備，進(jìn)行信息的收集、傳輸、加工、存儲(chǔ)、更新和維護(hù)，以及提高企業(yè)效率為目的一種集成化的人機(jī)系統(tǒng)。 20世紀(jì) 80年代中期到后期，終端用戶開始使用局域網(wǎng)技術(shù)將獨(dú)立的計(jì)算機(jī)連接成網(wǎng)絡(luò)，終端之間共享數(shù)據(jù)庫，形成了一種新型的多用戶數(shù)據(jù)處理，稱為客戶機(jī) /服務(wù)器數(shù)據(jù)庫結(jié)構(gòu)。 數(shù)據(jù)庫技術(shù)的應(yīng)用及特點(diǎn) 數(shù)據(jù)庫最初是在大公司或大機(jī)構(gòu)中用作大規(guī)模事務(wù)處理的基礎(chǔ)。這些商用數(shù)據(jù)庫系統(tǒng)的應(yīng)用使數(shù)據(jù)庫技術(shù)日益廣泛地應(yīng)用到企業(yè)管理、情報(bào)檢索、輔助決策等方面，成為實(shí)現(xiàn)和優(yōu)化信息系統(tǒng)的基本技術(shù)。在DBTG思想和方法的指引下數(shù)據(jù)庫系統(tǒng)的實(shí)現(xiàn)技術(shù)不斷成熟，開發(fā)了許多商品化的數(shù)據(jù)庫系統(tǒng)，它們都是基于層次模型和網(wǎng)狀模型的。數(shù)據(jù)庫系統(tǒng)已經(jīng)成為現(xiàn)代計(jì)算機(jī)系統(tǒng)的重要組成部分。使用戶可以較快地確定需求，然后采用循環(huán)進(jìn)化的開發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。本系統(tǒng)是一個(gè)典型的信息管理系統(tǒng)，它的開發(fā)主要包括兩個(gè)方面，一是后臺(tái)數(shù)據(jù)庫的建立，維護(hù)。 本系統(tǒng)采用類的封裝的方法，大大地減小了代碼的冗繁，使系統(tǒng)可行性更加好。數(shù)據(jù)庫技術(shù)與網(wǎng)絡(luò)通信技術(shù)、人工智能技術(shù)、面向?qū)ο蟪绦蛟O(shè)計(jì)技術(shù)、并行計(jì)算技術(shù)等相互滲透、有機(jī)結(jié)合，成為當(dāng)代數(shù)據(jù)庫技術(shù)發(fā)展的重要特征。 1970年 IBM公司的 San Jose研究試驗(yàn)室的研究員 Edgar F. Codd發(fā)表了題為《大型共享數(shù)據(jù)庫數(shù)據(jù)的關(guān)系模型》的論文，提出了關(guān)系數(shù)據(jù)Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 7 模型，開創(chuàng)了關(guān)系數(shù)據(jù)庫方法和關(guān)系數(shù)據(jù)庫理論，為關(guān)系數(shù)據(jù)庫技術(shù)奠定了理論基礎(chǔ)。 1990年高級(jí) DBMS功能委員會(huì)發(fā)表了《第三代數(shù)據(jù)庫系統(tǒng)宣言》，提出了第三代數(shù)據(jù)庫管理系統(tǒng)應(yīng)具有的三個(gè)基本特征： ① 應(yīng)支持?jǐn)?shù)據(jù)管理、對(duì)象管理和知識(shí)管理?，F(xiàn)在，數(shù)據(jù)庫正在 Inter和內(nèi)聯(lián)網(wǎng)中廣泛使用。自 20世紀(jì) 50年代將計(jì)算機(jī)引入數(shù)據(jù)處理以來，歷經(jīng)管理信息系統(tǒng)發(fā)展的各個(gè)階段。計(jì)算機(jī)應(yīng)用于企業(yè)的人事信息處理處理，不僅可以使企業(yè)各類人員以最少的勞動(dòng)和最短的實(shí)踐取得足夠的、可靠的、準(zhǔn)確的信息。同時(shí)也說明了一點(diǎn)，就是信息處理也非常的重要。為企業(yè)在人事管理等方面提供極大的方便。選擇一優(yōu)秀的數(shù)據(jù) 庫管理系統(tǒng)作為開發(fā)平臺(tái)，將給日后的信息處理帶來便利性。對(duì)底層編程比較需要的地方就大部分 VC++，而 Delphi 的IDE 是非常易用的。 DELPHI最顯著的特點(diǎn)就是高效性和穩(wěn)定性，總的來說，主要體現(xiàn)在以下 6個(gè) 方面： （ 1） 可視化開發(fā)環(huán)境的性能。在骨架上即使沒有附著任何東西，仍可以嚴(yán)格地按照設(shè)計(jì)運(yùn)行。由于您并未告訴它接收到用戶輸入后作何反應(yīng)，窗口除了響應(yīng) Windows的基本操作 (移動(dòng)、縮放等 )外，它只是接受用戶的輸入，然后再忽略。主要體現(xiàn)為： （ 1）高度可用性； （ 2）可伸縮性； （ 3）安全性； （ 4）分布式分區(qū)圖； （ 5）索引視圖； （ 6）虛擬接口系統(tǒng)網(wǎng)絡(luò)； （ 7）復(fù)制特性 。 （ 5）員工履歷信息管理模塊主要是記錄員工進(jìn)入本單位前 的履歷信息，為后面的工資計(jì)算中的工齡工資計(jì)算提供參考信息。 Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 14 系統(tǒng)功能模塊圖 圖 21 Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 15 第三章 系統(tǒng)設(shè)計(jì) 概念設(shè)計(jì) （ ER 圖） ①員工基本信息管理 ER圖 ： 圖 31 基本信息 ER圖 ②員工考勤信息管理 ER圖： 圖 32 員工考勤信息 ER圖 ③員工獎(jiǎng)懲信息 ER圖： 圖 33 員工獎(jiǎng)懲信息 ER圖 Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 16 ④員工履歷 信息 ER圖： 圖 34 員工履歷信息 ER圖 ⑤員工評(píng)定信息 ER圖： 圖 35 員工評(píng)定信息 ER圖 ⑥員工工資信息 ER圖： 圖 36 員工工資信息 ER圖 Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 17 數(shù)據(jù)庫設(shè)計(jì) 創(chuàng)建數(shù)據(jù)庫及數(shù)據(jù)庫表 數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。 圖 37 數(shù)據(jù)庫表 以上各表分別保存員工基本信息、員工考勤信息、員工評(píng)定信息、員工獎(jiǎng)懲信息、員工工資信息、各項(xiàng)工資設(shè)設(shè)置、員工履歷信息。 對(duì)每張數(shù)據(jù)表的操作都可以封裝到對(duì)應(yīng)類的方法和過程中，在使用類時(shí)先要實(shí)例化，使用完之后，也要講實(shí)例釋放，調(diào)用類中方法和過程時(shí)只需要向方法和過程傳遞參數(shù)就可以實(shí)現(xiàn)調(diào)用。 根據(jù)員工民族判斷記錄是否存在 function CheckRec6(MM:string):Boolean。 根 據(jù)員工編號(hào)返回員工 籍貫 function GetNationality(WorkId:string):string。 根據(jù)員工編號(hào)返回員工 聯(lián)系電話 function GetAddress(WorkId:string):string。 根據(jù)員工編號(hào)和圖片路徑插入一條記錄 procedure RecInsert(InsertSQL:string)。 根據(jù)員工 工作單位 判斷查詢記錄是否存在 Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 23 function WorkAgeRec5(Id,Place:string):Boolean。 根據(jù)記錄編號(hào)返回員工終止日期 function GetWorkTime(ReId:string):string。 通過 SQL 語句執(zhí)行修改操作過程 procedure RecDel2(Id:string)。 根據(jù)員工姓名和月份判斷查詢記錄是否存在 function WageInfoRec3(Id:string):Boolean。 根據(jù)員工編號(hào)和月份返回職務(wù) Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 24 function GetWorkerName(Id,GiveDate:string):string。 根據(jù)員工編號(hào)和月份返回養(yǎng)老保險(xiǎn) function GetMedicalMoney(Id,GiveDate:string):string。 通過傳遞 SQL 語句執(zhí)行插入操作過程 procedure RecUpdate(UpdateSQl:string)。 根據(jù)方案編號(hào)判斷記錄是否存在 function wagesetRec1(FindSQL:string):Boolean。 根據(jù)工資方案編號(hào)返回副部長工資 function GetPuTong(Id:string):string。 根據(jù)工資方案編號(hào)返回失業(yè)保險(xiǎn) function GetChiDao(Id:string):string。 根據(jù)工資方案編號(hào)返回工齡工資（ /年） function GetShuiLv(Id:string):string。 Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 26 表 413 Tcheck_info 類封裝的方法和過程 方法或過程名 具體說明 function CheckInfoRec(Id,month:string):Boolean。 根據(jù)員工編號(hào)和月份返回員工公休假天數(shù) function GetReWorkDays(Id,month:string):string。 根據(jù)員工編號(hào)和月份返回員工節(jié)假日加班次數(shù) function GetOtherOverTimes(Id,month:string):string。 通過 SQL 語句執(zhí)行按員工姓名刪除操作過程 procedure RecDel4(month:string