企業人事管理系統設計報告書(更新版)

　　

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