【正文】 在部門 function GetPosition(Id,GiveDate:string):string。 根據(jù)員工編號和 月份判斷查詢記錄是否存在 function WageInfoRec2(Name,GiveDate:string):Boolean。 通 過 SQL 語句執(zhí)行插入操作過程 procedure RecUpdate(UpdateSQl:string)。 根據(jù)記錄編號返回員工起始日期 function GetOverDate(ReId:string):string。 根據(jù)員工 姓名 判斷查詢記錄是否存在 function WorkAgeRec4(Place:string):Boolean。 path1:string)。 根據(jù)員工編號返回員工 如本單位日期 function GetLinkPhone(WorkId:string):string。 根據(jù)員工編號返回員工 出生日期 function GetNativePlace(WorkId:string):string。 根據(jù)員工學(xué)歷判斷記錄是否存在 function CheckRec5(MZ:string):Boolean。 表 36 員工工資信息表 字段名 數(shù)據(jù)類型 長度 主鍵 功能描述 RECORD_ID Bigint 8 是 記錄號 SCHE_ID Nvarchar 4 是 工資方案 WORKER_ID Nvarchar 15 是 員工編號 WORKER_NAME Nvarchar 8 否 員工姓名 BASE_WAGE Float 8 否 基本工資 ALLOWANCE1 Float 8 否 出差補(bǔ)貼 ALLOWANCE2 Float 8 否 公共補(bǔ)貼 REWARD Float 8 否 獎(jiǎng)金 OVERTIME_MONEY Float 8 否 加班費(fèi) DEDUCT_CHECK Float 8 否 扣考核 AGED_MONEY Float 8 否 養(yǎng)老保險(xiǎn) MEDICAL_MONEY Float 8 否 醫(yī)療保險(xiǎn) COMPO_MONEY Float 8 否 工傷保險(xiǎn) UNEMPLOY_MONEY Float 8 否 失業(yè)保險(xiǎn) HOUSING_MONEY Float 8 否 住房公積金 INCOME_TAX Float 8 否 所得稅 REAL_WAGE Float 8 否 實(shí)發(fā)工資 GIVE_DATE Nvarchar 8 否 月份 DEPARTMENT Nvarchar 8 否 部門名稱 POSITION Nvarchar 8 否 擔(dān)任職務(wù) （ 7）各項(xiàng)工資設(shè)置表 (WAGE_SET) 各項(xiàng)工資設(shè)置表的作用是存入各項(xiàng)工資的設(shè)置，以便編輯員工工資時(shí)調(diào)用，其結(jié)構(gòu)如表 37所示 表 37 各項(xiàng)工資設(shè)置表 字 段名 數(shù)據(jù)類型 長度 主鍵 功能描述 SCHE_ID Nvarchar 8 是 方案編號 JINGLI Nvarchar 8 否 經(jīng)理 FUJINGLI Nvarchar 8 否 副經(jīng)理 KEZHANG Nvarchar 8 否 科長 FUKEZHANG Nvarchar 8 否 副科長 BUZHANG Nvarchar 8 否 部長 FUBUZHANG Nvarchar 8 否 副部長 PUTONG Nvarchar 8 否 普通員工 TEJI_YG Nvarchar 8 否 特級員工 YIJI_YG Nvarchar 8 否 一級員工 Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 21 ERJI_YG Nvarchar 8 否 二級員工 YANGLAO_BX Nvarchar 8 否 養(yǎng)老保險(xiǎn) GONGSHANG_BX Nvarchar 8 否 工傷保險(xiǎn) YILIAO_BX Nvarchar 8 否 醫(yī)療保險(xiǎn) SHIYE_BX Nvarchar 8 否 失業(yè)保險(xiǎn) KUANGGONG Nvarchar 8 否 曠工 CHIDAO Nvarchar 8 否 遲到 ZAOTUI Nvarchar 8 否 早退 QINGJIA Nvarchar 8 否 請假 JIABAN_JR Nvarchar 8 否 節(jié)假日加班 JIABAN_QT Nvarchar 8 否 其他加班 CHUCHAI Nvarchar 8 否 出差 SHUILV Nvarchar 4 否 稅率 XIAXIAN Nvarchar 8 否 征稅下限 GONGLING Nvarchar 否 工齡工資 JIANGJIN Nvarchar 否 獎(jiǎng)金 （ 8）用戶表（ USER_TABLE） 用戶表的作用是存入每個(gè)用 戶的信息，其結(jié)構(gòu)如表 38所示 表 38 用戶表 字段名 數(shù)據(jù)類型 長度 主鍵 功能描述 USER_NAME Nvarchar 20 是 用戶名 USER_PWD Nvarchar 16 否 用戶密碼 POWER_LEVEL Nvarchar 8 否 用戶權(quán)限 數(shù)據(jù)表操作類的設(shè)計(jì) 在實(shí)例中，對數(shù)據(jù)庫的連接和操作都被封裝成類，類名以“ T”開頭，類的單元文件名的后綴為“ _unit”，例如類名為 Tlist，對應(yīng)的 單元文件為 list_unit。 如圖 37所示的即為本系統(tǒng)中數(shù)據(jù)庫中 所有 的數(shù)據(jù)表。 數(shù)據(jù)查詢部分：主要包括用 戶信息查詢、考勤信息查詢、工資情況查詢、評定信息查詢、履歷信息查詢 等工作。 （ 4） 員工獎(jiǎng)懲信息管理模塊主要功能是記錄員工每月的獎(jiǎng)懲信息，為后面工資 編輯中，獎(jiǎng)金的確定提供信息。通過向上伸縮和向外擴(kuò)展的能力， SQL Server 2021 滿足苛刻的電子商務(wù)和企業(yè)應(yīng)用程序要求。 在空白窗口的背后，應(yīng)用程序的框架正在等待用戶的輸入。一個(gè) Delphi程序首先是應(yīng)用程序框架，而這一框架正是應(yīng)用程序的“骨架”。 它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與 Windows的專業(yè)開發(fā)工具 SDK相媲美，使用 Delphi開發(fā)應(yīng)用軟件，無疑會(huì)大大地提高編程效率。 而 對 于 前 臺(tái) 編 程 工 具 ， 目 前 比 較 流 行 的 是 VC++,VB ， Delphi ，PowerBuilder,C++builder 等。 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā) 概述 開發(fā)工具的選擇 隨著社會(huì)需求的推動(dòng)和計(jì)算機(jī)技術(shù)的發(fā)展普及，各行業(yè)的管理機(jī)構(gòu)需要有計(jì)算機(jī)來處理大量的信息。集人員、考勤、工資、員工培訓(xùn)、系統(tǒng)功能等于一體的大型管理系統(tǒng)。 由此可見，信息是維持生產(chǎn)活動(dòng)、經(jīng)濟(jì)活動(dòng)和社會(huì)活動(dòng)必 不可少的基本資源，他是有價(jià)值，是構(gòu)成客觀世界的三大要素之一。 企業(yè)人事管理是一項(xiàng)瑣碎，繁雜而又非常細(xì)致的工作，一般是不 允許發(fā)生差錯(cuò)的，它直接影響著勞動(dòng)者隊(duì)工作的積極性，是提高勞動(dòng)生產(chǎn)力，提高企業(yè)活力的基礎(chǔ)，在以往手工進(jìn)行的辦公工作中，需反復(fù)的進(jìn)行各種抄寫，計(jì)算等工作，不僅花費(fèi)大量的時(shí)間，而且往往會(huì)出錯(cuò)。 企業(yè)人事管理數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)的的意義 企業(yè)人事管理系統(tǒng)是一個(gè)現(xiàn)代化的企業(yè)在競爭中立于不敗之地的必要部分，它能夠?yàn)椴樵內(nèi)耸滦畔⑻峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。接著，由?PC機(jī)在工作組內(nèi)連成網(wǎng)，數(shù)據(jù)庫技術(shù)就移植到工作組級。這些新的領(lǐng)域?yàn)閿?shù)據(jù)庫應(yīng)用開辟了新的天地，并在應(yīng)用中提出了一些新的數(shù)據(jù)管理的需求，推動(dòng)了數(shù)據(jù)庫技術(shù)的研究與發(fā)展。 2. 第二代數(shù)據(jù)庫系統(tǒng) 第二代數(shù)據(jù)庫系統(tǒng)是關(guān)系數(shù)據(jù)庫系統(tǒng)。按照數(shù)據(jù)模型的發(fā)展演變過程，數(shù)據(jù)庫技術(shù)從開始到現(xiàn)在短短的 30年中，主要經(jīng)歷了三個(gè)發(fā)展階段：第一代是網(wǎng)狀和層次數(shù)據(jù)庫系統(tǒng)，第二代是關(guān)系數(shù)據(jù)庫系統(tǒng)，第三代是以面向?qū)ο髷?shù)據(jù)模型為主要特征的數(shù)據(jù)庫系統(tǒng)。以實(shí)現(xiàn)用戶方便的輸入、查詢、統(tǒng)計(jì)等的業(yè)務(wù)需求。 《企業(yè)人事 管理系統(tǒng)》設(shè)計(jì)報(bào)告 學(xué) 院： 信息科學(xué)與工程學(xué)院 班 級 : 測控 0902 班 學(xué) 號： 0909092020 姓 名： 楊 彪 指導(dǎo)老師： 韓 華 Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 2 摘要 本系統(tǒng)是從現(xiàn)代化企業(yè)管理中的人事管理現(xiàn)狀出發(fā)，為適應(yīng)當(dāng)前企業(yè)對人事管理信息化的迫切需求而開發(fā)一個(gè)操作簡單而且方便實(shí)用的人事管理系統(tǒng)。 本系統(tǒng)主要包括人員基本情況管理、考勤信息管理、獎(jiǎng)懲信息管理、履歷信息管理、評定信息管理、工資管理等幾個(gè) 方面的功能 , 提供員工記錄的添加，查詢（按條件查詢），刪除（按條件刪除）和統(tǒng)計(jì)等功能。 數(shù)據(jù)庫技術(shù)發(fā)展歷史 數(shù)據(jù)模型是數(shù)據(jù)庫技術(shù)的核心和基礎(chǔ)，因此，對數(shù)據(jù)庫系統(tǒng)發(fā)展階段的劃分應(yīng)該以數(shù)據(jù)模型的發(fā)展演變作為主要依據(jù)和標(biāo) 志。 可以說，層次數(shù)據(jù)庫是數(shù)據(jù)庫系統(tǒng)的先驅(qū)，而網(wǎng)狀數(shù)據(jù)庫則是數(shù)據(jù)庫概念、 方法、技術(shù)的奠基者。 3. 第三代數(shù)據(jù)庫系統(tǒng) 從 20世紀(jì) 80年代以 來，數(shù)據(jù)庫技術(shù)在商業(yè)上的巨大成功刺激了其他領(lǐng)域?qū)?shù)據(jù)庫技術(shù)需求的迅速增長。后來隨著個(gè)人計(jì)算機(jī)的普及，數(shù)據(jù)庫技術(shù)被移植到 PC機(jī) (Personal Computer，個(gè)人計(jì)算機(jī) )上，供單用戶個(gè)人數(shù)據(jù)庫應(yīng)用?，F(xiàn)在，數(shù)據(jù)庫技術(shù)正在被用來同 Inter技術(shù)相結(jié) 合，以便在機(jī)構(gòu)內(nèi)聯(lián)網(wǎng)、部門局域網(wǎng)甚至 WWW上發(fā)布數(shù)據(jù)庫數(shù)據(jù)。 MIS系統(tǒng)涉及到多方面的內(nèi)容，因此，人們稱 MIS學(xué)科是一個(gè)交叉綜合性的學(xué)科。事實(shí)上，對一個(gè)國家來說，信息決定其如何建設(shè)和治理；對一個(gè)人來說，信息是其決定如何發(fā)展才能適應(yīng)社會(huì)需要的 基本要求；對政府來說，各種必須的信息是其賴以生存和活動(dòng)至關(guān)重要的條件；而對與任何工商貿(mào)企業(yè)來說，信息就是他們的生命線，沒有大量的信息想要在市場環(huán)境下生存是不可能的。企業(yè)人事管理是相對企業(yè)內(nèi)部員工的管理。本軟件界面美觀、使用方便，是企業(yè)人事管理必不可缺的好幫手。 從本人的實(shí)際情況看：因?yàn)樵谛Ｆ陂g也有學(xué)習(xí)過可視化的編程，對這一類的軟件的使用也有較深的認(rèn)識(shí)，所以說選用 SQL Server 2021作為開發(fā)工具是很有優(yōu)勢的。它使用了 Microsoft Windows圖形用戶界面的許多先進(jìn)特性和設(shè)計(jì)思想，采用了彈性可重復(fù)利用的完整的面向?qū)ο蟪绦蛘Z言 (ObjectOriented Language)、當(dāng)今世界上最快的編輯器、最為領(lǐng)先的數(shù)據(jù)庫技術(shù)。 Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 11 Delphi實(shí)際上是 Pascal 語言的一種版本，但它與傳統(tǒng)的 Pascal 語言有天壤之別。您所需要做的，只是在程序中加入完成您所需功能的代碼而已。使用 SQL Server 2021 可以獲得非凡的可伸縮性和可靠性。 （ 3） 員工 考勤信息管理模塊主要功能是記錄員工每月的出 勤情況，以便在員工工資編輯時(shí)，調(diào)用相關(guān)信息。 數(shù)據(jù)采集部分：主要完成 每月考勤信息 。 1．標(biāo)識(shí)需要的數(shù)據(jù)； 2．收集被標(biāo)識(shí)的字段到表中； 3．標(biāo)識(shí)主關(guān)鍵字字段； 4．繪制一個(gè)簡單的數(shù)據(jù)圖表； 5．規(guī)范數(shù)據(jù)； 6．標(biāo)識(shí)指定字段的信息； 7．創(chuàng)建物理表。 表 35 員工履歷信息表 字段名 數(shù)據(jù)類型 長度 主鍵 功能描述 RECORD_ID Bigint 8 是 記錄號 WORKER_ID Nvarchar 15 否 員工編號 WORKER_NAME Nvarchar 8 否 員工姓名 BEGIN_DATE Datetime 否 起始日期 OVER_DATE Datetime 否 終止日期 UNIT_NAME Nvarchar 20 否 單位名稱 WORK_TIME Float 8 否 工齡 DUTY Nvarchar 10 否 擔(dān)任職位 LEVEL Nvarchar 4 否 級別 REMARK Nvarchar 255 否 備注 （ 6）員工工作信息表 (WAGE_INFO) Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計(jì)報(bào)告書 20 員工工資信息表的作用是存入各員工每個(gè)月的工資信息，其 結(jié)構(gòu)如表 36所示。 根據(jù)員工性別判斷記錄是否存在 function CheckRec4(XL:string):Boolean。 根據(jù)員工編號返回員工 性別 function GetBirth(WorkId:string):string。 根據(jù)員工編號返回員工 參加工作日期 function GetComeTime(WorkId:string):string。 修改指定員 工編號 的照片信息 procedure WorkId(Id:string。 根據(jù)員工編號判斷查詢 記錄是否存在 function WorkAgeRec3(Name:string):Boolean。 根據(jù)記錄 編號返回