【正文】 增加上去，直到所有的性質(zhì)全部滿足。二是前 端應(yīng)用程序的開發(fā)。本系統(tǒng)是一個(gè)典型的信息管理系統(tǒng)，它的開發(fā)主要包括兩個(gè)方面，一是后臺數(shù)據(jù)庫的建立，維護(hù)。 在本系統(tǒng)開發(fā)中，使用原型法（ Rapid Prototyping）即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。 本系統(tǒng)采用類的封裝的方法，大大地減小了代碼的冗繁，使系統(tǒng)可行性更加好。在這 30多年的歷程中，人們在數(shù)據(jù)庫技術(shù)的理論研究和系統(tǒng)開發(fā)上都取得了輝煌的成就，而且已經(jīng)開始對新一代數(shù)據(jù)庫系統(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ā)展的重要特征。 DBTG報(bào)告確定并建立了網(wǎng)狀數(shù)據(jù)庫系統(tǒng)的許多概念、方法和技術(shù)，是網(wǎng)狀數(shù)據(jù)庫的典型代表。 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ǔ)。 20世紀(jì) 80年代幾乎所有新開發(fā)的系統(tǒng)均是關(guān)系型的，其中涌現(xiàn)出了許多性能優(yōu)良的商品化關(guān)系數(shù)據(jù)庫管理系統(tǒng)，如 DB Ingres、 Oracle、 Informix、 Sybase等。 1990年高級 DBMS功能委員會發(fā)表了《第三代數(shù)據(jù)庫系統(tǒng)宣言》，提出了第三代數(shù)據(jù)庫管理系統(tǒng)應(yīng)具有的三個(gè)基本特征： ① 應(yīng)支持?jǐn)?shù)據(jù)管理、對象管理和知識管理。分布式數(shù)據(jù)庫、并行數(shù)據(jù)庫、工程數(shù)據(jù)庫、演繹數(shù)據(jù)庫、知識庫、多媒體庫、模糊數(shù)據(jù)庫等都是這方面的實(shí)例?，F(xiàn)在，數(shù)據(jù)庫正在 Inter和內(nèi)聯(lián)網(wǎng)中廣泛使用。 1979年，AshtonTate公司引入了微機(jī)產(chǎn)品 dBase Ⅱ ，并稱之為關(guān)系數(shù)據(jù)庫管理系統(tǒng)，從此數(shù)據(jù)庫技術(shù)移植到了個(gè)人計(jì)算機(jī)上。自 20世紀(jì) 50年代將計(jì)算機(jī)引入數(shù)據(jù)處理以來，歷經(jīng)管理信息系統(tǒng)發(fā)展的各個(gè)階段。管理信息系統(tǒng)根本不僅是技術(shù)系統(tǒng)，而且是社會系統(tǒng)。計(jì)算機(jī)應(yīng)用于企業(yè)的人事信息處理處理，不僅可以使企業(yè)各類人員以最少的勞動和最短的實(shí)踐取得足夠的、可靠的、準(zhǔn)確的信息。計(jì)算機(jī)已經(jīng)成為人們?nèi)粘９ぷ髦刑幚頂?shù)據(jù)的得力助手和工具，數(shù)據(jù)處理與科學(xué)計(jì)算、過程控制、輔助設(shè)計(jì)一起，并稱為計(jì)算機(jī)四大應(yīng)用。同時(shí)也說明了一點(diǎn)，就是信息處理也非常的重要。而如今電腦已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂等。為企業(yè)在人事管理等方面提供極大的方便。合理的利用有助于企業(yè)發(fā)展的管理系統(tǒng)是企業(yè)改革的一種優(yōu)越的體現(xiàn)。選擇一優(yōu)秀的數(shù)據(jù) 庫管理系統(tǒng)作為開發(fā)平臺，將給日后的信息處理帶來便利性。 SQL Server 2021 是為數(shù)據(jù)庫應(yīng)用程序開發(fā)而設(shè)計(jì)的功能強(qiáng)大、面向?qū)ο蟮木幊坦ぞ?。對底層編程比較需要的地方就大部分 VC++，而 Delphi 的IDE 是非常易用的。故實(shí)現(xiàn)本系統(tǒng)用 Delphi 作為開發(fā)工具是一個(gè)明智的選擇。 DELPHI最顯著的特點(diǎn)就是高效性和穩(wěn)定性，總的來說，主要體現(xiàn)在以下 6個(gè) 方面： （ 1） 可視化開發(fā)環(huán)境的性能。 （ 5） 數(shù)據(jù)庫結(jié)構(gòu)的靈活性和擴(kuò)展性。在骨架上即使沒有附著任何東西，仍可以嚴(yán)格地按照設(shè)計(jì)運(yùn)行。因此，可以說應(yīng)用程序框架通過提供所有應(yīng)用程序共有的東西，為用戶應(yīng)用程序的開發(fā)打下了良好的基礎(chǔ)。由于您并未告訴它接收到用戶輸入后作何反應(yīng)，窗口除了響應(yīng) Windows的基本操作 (移動、縮放等 )外，它只是接受用戶的輸入，然后再忽略。 SQL Server 2021 對 XML和 HTTP 提供充分的支持；提供分割裝載和確保時(shí)間的特性；提供先進(jìn)的管理和協(xié)調(diào)機(jī)制，可以自動管理線程任務(wù)，降低總體開銷。主要體現(xiàn)為： （ 1）高度可用性； （ 2）可伸縮性； （ 3）安全性； （ 4）分布式分區(qū)圖； （ 5）索引視圖； （ 6）虛擬接口系統(tǒng)網(wǎng)絡(luò)； （ 7）復(fù)制特性 。 系統(tǒng)功能需求 系統(tǒng)主要功能模塊說明 （ 1） 系統(tǒng)管理模塊的主要功能是版本 信息、 用戶賬戶 設(shè)置、 用戶賬戶維護(hù) 、 注銷系統(tǒng)以及退出系統(tǒng) 。 （ 5）員工履歷信息管理模塊主要是記錄員工進(jìn)入本單位前 的履歷信息，為后面的工資計(jì)算中的工齡工資計(jì)算提供參考信息。根據(jù)這個(gè)系統(tǒng)所要實(shí)現(xiàn)的目的和任務(wù)，總結(jié)出這個(gè)系統(tǒng)最終要實(shí)現(xiàn)的主要功能如下： 數(shù)據(jù)設(shè)置部分：主要包括考勤錄入 、各項(xiàng)工資設(shè)置、以及員工工資編輯等 功能。 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圖 ⑤員工評定信息 ER圖： 圖 35 員工評定信息 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ù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進(jìn)行操作的工具。 創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步 是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。 圖 37 數(shù)據(jù)庫表 以上各表分別保存員工基本信息、員工考勤信息、員工評定信息、員工獎(jiǎng)懲信息、員工工資信息、各項(xiàng)工資設(shè)設(shè)置、員工履歷信息。 表 33 員工獎(jiǎng)懲信息表 字段名 數(shù)據(jù)類型 長度 主鍵 功能描述 RECORD_ID Bigint 8 是 記錄號 WORKER_ID Nvarchar 15 否 員工編號 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）員工評定信息表 (PRO_TITLE) 員工評定信息表的作用是存入員工的評定信息，其結(jié)構(gòu)如表 34所示。 對每張數(shù)據(jù)表的操作都可以封裝到對應(yīng)類的方法和過程中，在使用類時(shí)先要實(shí)例化，使用完之后，也要講實(shí)例釋放，調(diào)用類中方法和過程時(shí)只需要向方法和過程傳遞參數(shù)就可以實(shí)現(xiàn)調(diào)用。 根據(jù)員工所在部門判斷記錄是否存在 function CheckRec2(ZW:string):Boolean。 根據(jù)員工民族判斷記錄是否存在 function CheckRec6(MM:string):Boolean。 根據(jù)員工編號返回員工 所在部門 function GetPosition(WorkId:string):string。 根 據(jù)員工編號返回員工 籍貫 function GetNationality(WorkId:string):string。 根據(jù)員工編號返回員工 畢業(yè)學(xué)校 function GetPoliSta(WorkId:string):string。 根據(jù)員工編號返回員工 聯(lián)系電話 function GetAddress(WorkId:string):string。 通過傳遞 SQL 語句返回查詢記錄 procedure PhotoUpdate(Id:string。 根據(jù)員工編號和圖片路徑插入一條記錄 procedure RecInsert(InsertSQL:string)。類中定義的方法和過程如表310 所示 表 310 Tworkage 類封裝的方法和過程 方法和過程名 具體說明 function WorkAgeRec(Id,Work_unit:string):Boolean。 根據(jù)員工 工作單位 判斷查詢記錄是否存在 Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 23 function WorkAgeRec5(Id,Place:string):Boolean。 根據(jù)記錄編號返回員工編號 function GetUnitName(ReId:string):string。 根據(jù)記錄編號返回員工終止日期 function GetWorkTime(ReId:string):string。 根據(jù)記錄編號返回員工備注 function GetSumWorTime(Id:string):Integer。 通過 SQL 語句執(zhí)行修改操作過程 procedure RecDel2(Id:string)。 通過 SQL 語句執(zhí)行按編號和單位刪除操作過程 procedure RecDel6(Name,Place:string)。 根據(jù)員工姓名和月份判斷查詢記錄是否存在 function WageInfoRec3(Id:string):Boolean。 通過傳遞 SQL 語句判斷查詢記錄是否存在 function GetRecId(Id,GiveDate:string):string。 根據(jù)員工編號和月份返回職務(wù) Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 24 function GetWorkerName(Id,GiveDate:string):string。 根據(jù)員工編號和月份返回公共補(bǔ)貼 function GetReward(Id,GiveDate:string):string。 根據(jù)員工編號和月份返回養(yǎng)老保險(xiǎn) function GetMedicalMoney(Id,GiveDate:string):string。 根據(jù)員工編號和月份返回住房公積金 function GetIneTax(Id,GiveDate:string):string。 通過傳遞 SQL 語句執(zhí)行插入操作過程 procedure RecUpdate(UpdateSQl:string)。 通過 SQL 按員工編號執(zhí)行刪除操作過程 procedure RecDel3(Name:string)。 根據(jù)方案編號判斷記錄是否存在 function wagesetRec1(FindSQL:string):Boolean。 根據(jù)工資方案編號返回副經(jīng)理工資 function GetKeZhang(Id:string):string。 根據(jù)工資方案編號返回副部長工資 function GetPuTong(Id:string):string。 根據(jù)工資方案編號返回二級員工工資 function GetYangLao_BX(Id:string):string。 根據(jù)工資方案編號返回失業(yè)保險(xiǎn) function GetChiDao(Id:string):string。 根據(jù)工資方案編號返回請假扣除 function GetJiaBan_JR(Id:string):string。 根據(jù)工資方案編號返回工齡工資（ /年） function GetShuiLv(Id:string):string。 通過 SQL 語句返回方案信息 procedure RecInsert(InsertSQl:string)。 Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 26 表 413 Tcheck_info 類封裝的方法和過程 方法或過程名 具體說明 function CheckInfoRec(Id,month:string):Boolean。 根據(jù)員工姓名判斷記錄是否存在 function CheckInfoRec4(month:string):Boolean。 根據(jù)員工編號和月份返回員工公休假天數(shù) function GetReWorkDays(Id,month:string):string。 根據(jù)員工編號和月份返回員工礦工天數(shù) function GetLeaveTimes(Id,month:string):string。 根據(jù)員工編號和月份返回員工節(jié)假日加班次數(shù) function GetOtherOverTimes(Id,month:string):string。 通過 SQL 語句執(zhí)行插入操作過程 procedure RecUpdate(UpdateSQl:string)。 通過 SQL 語句執(zhí)行按員工姓名刪除操作過程 procedure RecDel4(month:string)。 根據(jù)員工姓名判斷記錄是否存在 function ProtitleRec2(Dji:string):Boolea