【正文】 通過(guò) SQL 語(yǔ)句執(zhí)行按員工姓名刪除操作過(guò)程 procedure RecDel4(month:string)。 根據(jù)員工編號(hào)和月份返回員工公休假天數(shù) function GetReWorkDays(Id,month:string):string。 根據(jù)工資方案編號(hào)返回工齡工資（ /年） function GetShuiLv(Id:string):string。 根據(jù)工資方案編號(hào)返回副部長(zhǎng)工資 function GetPuTong(Id:string):string。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行插入操作過(guò)程 procedure RecUpdate(UpdateSQl:string)。 根據(jù)員工編號(hào)和月份返回職務(wù) Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書(shū) 24 function GetWorkerName(Id,GiveDate:string):string。 通過(guò) SQL 語(yǔ)句執(zhí)行修改操作過(guò)程 procedure RecDel2(Id:string)。 根據(jù)員工 工作單位 判斷查詢記錄是否存在 Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書(shū) 23 function WorkAgeRec5(Id,Place:string):Boolean。 根據(jù)員工編號(hào)返回員工 聯(lián)系電話 function GetAddress(WorkId:string):string。 根據(jù)員工民族判斷記錄是否存在 function CheckRec6(MM:string):Boolean。 圖 37 數(shù)據(jù)庫(kù)表 以上各表分別保存員工基本信息、員工考勤信息、員工評(píng)定信息、員工獎(jiǎng)懲信息、員工工資信息、各項(xiàng)工資設(shè)設(shè)置、員工履歷信息。 （ 5）員工履歷信息管理模塊主要是記錄員工進(jìn)入本單位前 的履歷信息，為后面的工資計(jì)算中的工齡工資計(jì)算提供參考信息。由于您并未告訴它接收到用戶輸入后作何反應(yīng)，窗口除了響應(yīng) Windows的基本操作 (移動(dòng)、縮放等 )外，它只是接受用戶的輸入，然后再忽略。 DELPHI最顯著的特點(diǎn)就是高效性和穩(wěn)定性，總的來(lái)說(shuō)，主要體現(xiàn)在以下 6個(gè) 方面： （ 1） 可視化開(kāi)發(fā)環(huán)境的性能。選擇一優(yōu)秀的數(shù)據(jù) 庫(kù)管理系統(tǒng)作為開(kāi)發(fā)平臺(tái)，將給日后的信息處理帶來(lái)便利性。同時(shí)也說(shuō)明了一點(diǎn)，就是信息處理也非常的重要。自 20世紀(jì) 50年代將計(jì)算機(jī)引入數(shù)據(jù)處理以來(lái)，歷經(jīng)管理信息系統(tǒng)發(fā)展的各個(gè)階段。 1990年高級(jí) DBMS功能委員會(huì)發(fā)表了《第三代數(shù)據(jù)庫(kù)系統(tǒng)宣言》，提出了第三代數(shù)據(jù)庫(kù)管理系統(tǒng)應(yīng)具有的三個(gè)基本特征： ① 應(yīng)支持?jǐn)?shù)據(jù)管理、對(duì)象管理和知識(shí)管理。數(shù)據(jù)庫(kù)技術(shù)與網(wǎng)絡(luò)通信技術(shù)、人工智能技術(shù)、面向?qū)ο蟪绦蛟O(shè)計(jì)技術(shù)、并行計(jì)算技術(shù)等相互滲透、有機(jī)結(jié)合，成為當(dāng)代數(shù)據(jù)庫(kù)技術(shù)發(fā)展的重要特征。本系統(tǒng)是一個(gè)典型的信息管理系統(tǒng)，它的開(kāi)發(fā)主要包括兩個(gè)方面，一是后臺(tái)數(shù)據(jù)庫(kù)的建立，維護(hù)。數(shù)據(jù)庫(kù)系統(tǒng)已經(jīng)成為現(xiàn)代計(jì)算機(jī)系統(tǒng)的重要組成部分。這些商用數(shù)據(jù)庫(kù)系統(tǒng)的應(yīng)用使數(shù)據(jù)庫(kù)技術(shù)日益廣泛地應(yīng)用到企業(yè)管理、情報(bào)檢索、輔助決策等方面，成為實(shí)現(xiàn)和優(yōu)化信息系統(tǒng)的基本技術(shù)。 20世紀(jì) 80年代中期到后期，終端用戶開(kāi)始使用局域網(wǎng)技術(shù)將獨(dú)立的計(jì)算機(jī)連接成網(wǎng)絡(luò)，終端之間共享數(shù)據(jù)庫(kù)，形成了一種新型的多用戶數(shù)據(jù)處理，稱為客戶機(jī) /服務(wù)器數(shù)據(jù)庫(kù)結(jié)構(gòu)。古往今來(lái)，信息都上一種資源，只是未Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書(shū) 9 得到應(yīng)有的重視。利用計(jì)算機(jī)對(duì)企業(yè)人事管理不僅保證了核算準(zhǔn)確度，還成倍的提高了工作效率，而且便于查詢。 Delphi 及 SQL Server 2021 簡(jiǎn)介 （一） Delphi 簡(jiǎn)介 Delphi 是全新的可視化編 程環(huán)境，為我們提供了一種方便、快捷的 Windows 應(yīng)用程序開(kāi)發(fā)工具。 Delphi 已經(jīng)為您做好了一切基礎(chǔ)工作 程序框架就是一個(gè)已經(jīng)完成的可運(yùn)行應(yīng)用程序，只是不處理任何事情。 （ 2） 員工 基本 信息管理模塊主要功能是 記錄員工的基本信息，如：工號(hào)、姓名、所在部門、職位等。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 根據(jù)員工職務(wù)判斷記錄是否存在 function CheckRec3(XB:string):Boolean。 根據(jù)員工編號(hào)返回員工 政治面貌 function GetWorkTime(WorkId:string):string。 根據(jù)員工編號(hào)和工作單位判斷查詢記錄是否存在 function WorkAgeRec2(Id:string):Boolean。 根據(jù)記錄編號(hào)返回員工工齡 function WorkAgeRecs(SQL:string):OLEVariant。 根據(jù)員工編號(hào)和月份返回記錄號(hào) function GetSche_Id(Id,GiveDate:string):string。 根據(jù)員工編號(hào)和月份返回個(gè)人所得稅 function GetRealWage(Id,GiveDate:string):string。 根據(jù)工資方案編號(hào)返回科長(zhǎng)工資 function GetFuKeZhang(Id:string):string。 根據(jù)工資方案編號(hào)返回節(jié)假日加班工資 function GetJiaBan_QT(Id:string):string。 根據(jù)月份判斷記錄是否存在 function GetWorkerName(Id,month:string):string。 通過(guò) SQL 語(yǔ)句執(zhí)行修改操作過(guò)程 procedure RecDel(Id,month:string)。 根據(jù)員工編號(hào)判斷記錄是否存在 function ProtitleRec1(Name:string):Boolean。 根據(jù)員工編號(hào)和月份返回員工出差天數(shù) function GetAbsentDays(Id,month:string):string。 根據(jù)工資方案編號(hào)返回獎(jiǎng)金 function wagesetRecs(SQL:string):OLEVariant。 根據(jù)工資方案編號(hào)返回一級(jí)員工工資 function GetErJi_YG(Id:string):string。 通過(guò) SQL 按員工姓名和月份執(zhí)行刪除操作過(guò)程 procedure RecDel2(Id:string)。 根據(jù)員工編號(hào)和月份返回出差補(bǔ)貼 function GetAllowance2(Id,GiveDate:string):string。 通過(guò) SQL 語(yǔ)句執(zhí)行按工作單位刪除操作過(guò)程 procedure RecDel5(Id,Place:string)。 通過(guò)傳遞 SQL 語(yǔ)句判斷查詢記錄是否存在 function GetWorkerId(ReId:string):string。 根據(jù)員工編號(hào)返回員工 照片 function GetAllRec(SQL:string):OLEVariant。 根據(jù)員工編號(hào)返回員工 姓名 function GetDepartName(WorkId:string):string。 表 42 員工考勤信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵 功能描述 WORKER_ID Nvarchar 15 是 員工編號(hào) WORKER_NAME Nvarchar 8 否 員工姓名 MONTHS Nvarchar 8 否 月份 MONTH_DAYS Int 8 否 當(dāng)月天數(shù) HOLIDAYS Int 8 否 公休假天數(shù) REAL_WORK_DAYS Int 8 否 出勤天數(shù) WORK_DAYS Int 8 否 應(yīng)出勤天數(shù) BUSINESS_DAYS Int 8 否 出差天數(shù) ABSENT_DAYS Int 8 否 曠工天數(shù) LEAVE_TIMES Int 8 否 請(qǐng) 假次數(shù) LATE_TIMES Int 8 否 遲到次數(shù) LEAVE_EARLY_TIMES Int 8 否 早退次數(shù) HOLIDAY_OVERTIME Int 8 否 節(jié)假日加班 OTHER_OVERTIME Int 8 否 其他加班 REMARK Nvarchar 255 否 備注 （ 3） 員工獎(jiǎng)懲信息表 (REWARD_PUN) Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書(shū) 19 員工獎(jiǎng)懲信息表的作用是存入員工獎(jiǎng)懲信息，其結(jié)構(gòu)如表 33所示。 總之 , 開(kāi)發(fā)這個(gè)系統(tǒng)的目的就是要幫助企業(yè)的人事部門提高工作效率，實(shí)現(xiàn)企業(yè)人事信息管理系統(tǒng)的系統(tǒng)化、規(guī)范化和自動(dòng)化。作為 Microsoft． NET Enterprise Servers 的核心組件，它將減少電子商務(wù)、在線商務(wù)和數(shù)據(jù)倉(cāng) 庫(kù)應(yīng)用程序推向市場(chǎng)的時(shí)間，并對(duì)需要的環(huán)境提供可靠的支持。 （ 4） 編程語(yǔ)言的功能及其復(fù)雜性。 SQL Server 2021主要用于 Windows環(huán)境，利用它可設(shè)Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書(shū) 10 計(jì)出體現(xiàn) Windows風(fēng)格的豐富多彩的圖形化用戶界面，使用戶的操作和使用十分便利。企業(yè)人事信息管理系統(tǒng)是大中型企業(yè)單位不可缺少的工具 ,它的內(nèi)容對(duì)于企業(yè)的決策者和管理者來(lái)說(shuō)都至關(guān)重要 ,所以企業(yè)人事信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁?充足的信息和快捷的查詢手段?，F(xiàn)在人們?nèi)找嫔羁陶J(rèn)識(shí)到，把信息技術(shù)應(yīng)用與應(yīng)用環(huán)境分離是辦不到的。 面向?qū)ο髷?shù)據(jù)模型是第三代數(shù)據(jù)庫(kù)系統(tǒng)的主要特征之一；數(shù)據(jù)庫(kù)技術(shù)與多學(xué)科技術(shù)的有機(jī)結(jié)合也是第三代數(shù)據(jù)庫(kù)技術(shù)的一 個(gè)重要特征。 20 世紀(jì) 60年代末70年代初，美國(guó)數(shù)據(jù)庫(kù)系統(tǒng)語(yǔ)言協(xié)會(huì) CODASYL(Conference on Data System Language)下屬的數(shù)據(jù)庫(kù)任務(wù)組 DBTG(Data Base Task Group)提出了若干報(bào)告，被稱為 DBTG報(bào)告。而對(duì)于前端的應(yīng)用程序則要求有友好的用戶界面，易操作，易使用等特點(diǎn)。 關(guān)鍵字： Delphi SQL Server 2021，類，原型法。 20世紀(jì) 70年代是關(guān)系數(shù)據(jù)庫(kù)理論研究和原型開(kāi)發(fā)的時(shí)代，其中以 IBM公司的 San Jose研究試驗(yàn)室開(kāi)發(fā)的 System R和 Berkeley大學(xué)研制的 Ingres為典型代表。當(dāng)時(shí)的數(shù)據(jù)庫(kù)處理技術(shù)還很脆弱，常常發(fā)生應(yīng)用不能提交的情況。 時(shí)至今日，計(jì)算機(jī)正在令人難以置信的速度步入普通人的學(xué)習(xí)、工作和生活。企業(yè)人事管理可以說(shuō)是一項(xiàng)瑣碎、繁雜而又必須十分細(xì)致的工作，是不能允許時(shí)常發(fā)生差錯(cuò)的?？梢?jiàn)， VC++與 Delphi是兩種較優(yōu)秀的語(yǔ)言開(kāi)發(fā)工具。缺省的應(yīng)用程序是一個(gè)空白的窗體 (Form)，您可以運(yùn)行它，結(jié)果得到一個(gè)空白的窗口。SQL Server 2021 包括加速?gòu)母拍畹阶詈蠼桓堕_(kāi)發(fā)過(guò)程的工具。數(shù)據(jù)庫(kù)在系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)設(shè)計(jì)的好壞將直接影響系統(tǒng)的效率。 表 39 Tbasedata 類封裝的方法和過(guò)程 方法或過(guò)程名 具體說(shuō)明 function CheckRec(Id:string):Boolean。 根據(jù)員工編號(hào)返回員工 學(xué)歷 function GetMajor(WorkId:string):string。 通過(guò)傳遞 SQL 語(yǔ)句執(zhí)行修改操作過(guò)程 procedure RecDel(Id:string)。 根據(jù)記錄編號(hào)返回員工擔(dān)任職務(wù) function GetLevel1(ReId:string):string。 根據(jù)員工姓名判斷查詢記錄是否存在 function WageInfoRec5(GiveDate:string):Boolean。 根據(jù)員工編號(hào)和月份返回工傷保險(xiǎn) function GetUnemployMoney(Id,GiveDate:string):string。 通過(guò) SQL 語(yǔ)句獲取所有工資方案編號(hào) function GetJingLi(Id:string):string。 根據(jù)工資方案編號(hào)返回礦工扣除 function GetZaoTui(Id:string):string。 根據(jù)員工姓名和月份判斷記錄是否存在 function CheckInfoRec2(Id:string):Boolean。 根據(jù)員工編號(hào)和月份返回員工備注 function CheckInfoRecs(SQL:string):OLEVariant。 根據(jù)員工編號(hào)和等級(jí)判斷記錄是否存在 function ProtitleRec4(Name,Dji:string):Boolean。 根據(jù)員工編號(hào)和月份返回員工遲到天數(shù) function GetLeaEarTimes(Id,month:string):string。 通過(guò) SQL 語(yǔ)句執(zhí)行修改操作過(guò)程 procedure RecDel(Id:string)。 根據(jù)工資方案編號(hào)返回工傷保險(xiǎn) function GetYiLiao_BX(Id:string):string。 通過(guò) SQL 按月份執(zhí)行刪除操作過(guò)程 4. Twageset類 Twageset 類 封裝了對(duì) WAGE_SET 表的各種操作，類中定義的方法和過(guò)程如表 412所示。 根據(jù)員工編號(hào)和月份返回加班費(fèi) function GetDeductCheck(Id,GiveDate:string):string。 表 311 Twageinfo 類 封裝的方法和過(guò)程 方法或過(guò)程名 具體說(shuō)明 function WageInfoRec(Id