企業人事管理系統設計報告書-免費閱讀

　　

【正文】 根據員工姓名判斷記錄是否存在 function ProtitleRec2(Dji:string):Boolean。 通過 SQL 語句執行插入操作過程 procedure RecUpdate(UpdateSQl:string)。 根據員工編號和月份返回員工礦工天數 function GetLeaveTimes(Id,month:string):string。 根據員工姓名判斷記錄是否存在 function CheckInfoRec4(month:string):Boolean。 通過 SQL 語句返回方案信息 procedure RecInsert(InsertSQl:string)。 根據工資方案編號返回請假扣除 function GetJiaBan_JR(Id:string):string。 根據工資方案編號返回二級員工工資 function GetYangLao_BX(Id:string):string。 根據工資方案編號返回副經理工資 function GetKeZhang(Id:string):string。 通過 SQL 按員工編號執行刪除操作過程 procedure RecDel3(Name:string)。 根據員工編號和月份返回住房公積金 function GetIneTax(Id,GiveDate:string):string。 根據員工編號和月份返回公共補貼 function GetReward(Id,GiveDate:string):string。 通過傳遞 SQL 語句判斷查詢記錄是否存在 function GetRecId(Id,GiveDate:string):string。 通過 SQL 語句執行按編號和單位刪除操作過程 procedure RecDel6(Name,Place:string)。 根據記錄編號返回員工備注 function GetSumWorTime(Id:string):Integer。 根據記錄編號返回員工編號 function GetUnitName(ReId:string):string。類中定義的方法和過程如表310 所示 表 310 Tworkage 類封裝的方法和過程 方法和過程名 具體說明 function WorkAgeRec(Id,Work_unit:string):Boolean。 通過傳遞 SQL 語句返回查詢記錄 procedure PhotoUpdate(Id:string。 根據員工編號返回員工 畢業學校 function GetPoliSta(WorkId:string):string。 根據員工編號返回員工 所在部門 function GetPosition(WorkId:string):string。 根據員工所在部門判斷記錄是否存在 function CheckRec2(ZW:string):Boolean。 表 33 員工獎懲信息表 字段名 數據類型 長度 主鍵 功能描述 RECORD_ID Bigint 8 是 記錄號 WORKER_ID Nvarchar 15 否 員工編號 WORKER_NAME Nvarchar 8 否 員工姓名 RECORD_DATE Datetime 否 獎懲日期 RECORD_TYPE Nvarchar 2 否 獎懲類型 RECORD_CONTENT Nvarchar 30 否 獎懲內容 RECORD_REASON Nvarchar 30 否 獎懲理由 ALLOW_UNIT Nvarchar 20 否 批準單位 REMARK Nvarchar 255 否 備注 （ 4）員工評定信息表 (PRO_TITLE) 員工評定信息表的作用是存入員工的評定信息，其結構如表 34所示。 創建任何一個數據庫的第一步 是仔細的規劃數據庫，設計必須是靈活的、有邏輯的。根據這個系統所要實現的目的和任務，總結出這個系統最終要實現的主要功能如下： 數據設置部分：主要包括考勤錄入 、各項工資設置、以及員工工資編輯等 功能。 系統功能需求 系統主要功能模塊說明 （ 1） 系統管理模塊的主要功能是版本 信息、 用戶賬戶 設置、 用戶賬戶維護 、 注銷系統以及退出系統 。 SQL Server 2021 對 XML和 HTTP 提供充分的支持；提供分割裝載和確保時間的特性；提供先進的管理和協調機制，可以自動管理線程任務，降低總體開銷。因此，可以說應用程序框架通過提供所有應用程序共有的東西，為用戶應用程序的開發打下了良好的基礎。 （ 5） 數據庫結構的靈活性和擴展性。故實現本系統用 Delphi 作為開發工具是一個明智的選擇。 SQL Server 2021 是為數據庫應用程序開發而設計的功能強大、面向對象的編程工具。合理的利用有助于企業發展的管理系統是企業改革的一種優越的體現。而如今電腦已經深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設計、圖形圖像處理、教育培訓以及游戲娛樂等。計算機已經成為人們日常工作中處理數據的得力助手和工具，數據處理與科學計算、過程控制、輔助設計一起，并稱為計算機四大應用。管理信息系統根本不僅是技術系統，而且是社會系統。 1979年，AshtonTate公司引入了微機產品 dBase Ⅱ ，并稱之為關系數據庫管理系統，從此數據庫技術移植到了個人計算機上。分布式數據庫、并行數據庫、工程數據庫、演繹數據庫、知識庫、多媒體庫、模糊數據庫等都是這方面的實例。 20世紀 80年代幾乎所有新開發的系統均是關系型的，其中涌現出了許多性能優良的商品化關系數據庫管理系統，如 DB Ingres、 Oracle、 Informix、 Sybase等。 DBTG報告確定并建立了網狀數據庫系統的許多概念、方法和技術，是網狀數據庫的典型代表。在這 30多年的歷程中，人們在數據庫技術的理論研究和系統開發上都取得了輝煌的成就，而且已經開始對新一代數據庫系統的深入研究。 在本系統開發中，使用原型法（ Rapid Prototyping）即以少量代價快速地構造一個可執行的軟件系統模型。二是前 端應用程序的開發。 本系統的前端開發工具是 ,后臺數據庫采用的是 SQL Server 2021數據庫。 1. 第一代數據庫系統 第一代數據庫系統是 20世紀 70年代研制的層次和網狀數據庫系統。 Edgar F. Codd于 1981年被授予 ACM圖靈獎，以表彰他在關系數據庫研究方面的杰出貢獻。 ② 必須保持或繼承第二代數據庫系統的技術。 Delphi+SQL Server 企業人事管理系統設計報告書 8 20世紀 60年代中期，數據庫技術是用來解決文件處理系統問題的 。一方面是信息技術應用的迅猛發展，另一方面，許多管理信息系統在耗費了大量的人力、物力、財力之后夭折了，或者根本沒有實現原定系統開發目標，或者根本沒有實現原系統的開發目標，而把計算機用作了打字機。而且可以使他們從簡單的數據統計、收集、匯總等重復繁重的事務中解脫出來。一直以來人們使用傳統人工的方式管理文件檔案，這種管理方式存在著許多缺點 ,如 :效率低、保密性差 ,另外時間一長 ,將產生大量的文件和數據 ,這對于查找、更新和維護都帶來了不少的困難。不但有利于企業的統一性管理 ,而且還大在提高了企業的全體員工的工作效率和積極性。其中，基于微型計算機的數據庫系統是應用最廣泛、實用性最強的一種計算機技術。 業界有一句很經典的話：真正的程序員用 VC++，而聰明的程序員用Delphi。 （ 2） 面向對象編程的概念。您的工作只是在“骨架”中加入您的程序。 Delphi 把 Windows 編程的回調、句柄處理等過程都放在一個不可見的 Romulam覆蓋物下面，這樣您可以不為它們所困擾，輕松從容地對可視部件進行編程。 Delphi+SQL Server 企業人事管理系統設計報告書 12 SQL Server 2021 是 Microsoft． NET Enterprise Server 的數據管理與分析中樞。 （ 6）員工評定信息管理莫主要是記錄員工的評定等級信息，實行不同等級的員工，擁有一定的等級工資。數據庫的作用在于組織和表達信息，簡而言之，數據庫就是信息的集合。 各個表中列名的定義如下： （ 1） 基本信息表 (BASE_DATA) 基本信息表的作用是存入每個員工的基本信息，其結構如表 31所示。 1. Tbasedata類 Tbasedata類主要是封裝了對 BASE_DATA表的各種操作，類中定義的方法和過程如表 39所示。 根據員工政治面貌判斷記錄是否存在 function GetArcId(WorkId:string):string。 根據員工編號返回員工 民族 function GetSchAge(WorkId:string):string。 根據員工編號返回員工 住址 function GetRemark(WorkId:string):string。 通過傳遞 SQL 語句執行插入操作過程 procedure RecUpdate(UpdateSQL:string)。 根據員工 編號和工作單位 判斷查詢記錄是否存在 function WorkAgeRec6(Name,Place:string):Boolean。 根據記錄編號返回員工工作時間 function GetDuty(ReId:string):string。 通過 SQL 語句執行按員工編號刪除操作過程 procedure RecDel3(Name:string)。 根據員工編號判斷查詢記錄是否存在 function WageInfoRec4(Name:string):Boolean。 根據員工編號和月份返回員工姓名 function GetBaseWage(Id,GiveDate:string):string。 根據員工編號和月份返回醫療保險 function GetCompoMoney(Id,GiveDate:string):string。 通過傳遞 SQL 語句執行修改操作過程 procedure RecDel(Id,GiveDate:string)。 通過傳遞 SQL 語句判斷查詢記錄是否存在 function GetIdLists():Tstrings。 根據工資方案編號返回普通員工工資 function GetTeJi_YG(Id:string):string。 根據工資方案編號返回遲到扣除 function GetKuangGong(Id:string):string。 根據工資方案編號返回稅率（ %） function GetXiaXian(Id:string):string。 根據員工編號和月份判斷記錄是否存在 function CheckInfoRec1(Name,month:string):Boolean。 根據員工編號和月份返回員工實際出勤天數 function GetWorkDays(Id,month:string):string。 根據員工編號和月份返回員工其他加班次數 function GetRemark(Id,month:string):string。 通過 SQL 語句執行按月份刪除操作過程 6. Tprotitle類 Tprotitle類 封裝了對 PRO_TITLE表的各種操作，類中定義的方法和過程如表 414所示。 根據員工姓名和等級判斷記錄是否存在 function ProtitleRec1(FindSQL:string。 通過 SQL 語句執行按員工姓名和月份刪除操作過程 procedure RecDel2(Id:string) 通過 SQL 語句執行按員工編號刪除操作過程 procedure RecDel3(Name:string)。 根據員工編號和月份返回員工早退天數 function GetHOliOverTimes(Id,month:string):string。 根據員工編號和月份返回當月天數 function GetHolidays(Id,month:string):string。 通過 SQL 語句執行刪除操作過程 5. Tcheckinfo類 Tcheckinfo 類 封裝了對 CHECK_INFO 表的各種操作，類中定義的方法和過程如表413所示。 根據工資方案編號返回出差補貼 function GetGongLing(Id:string):string。 根據工資方案編號返回醫療保險 function GetShiYe_BX(Id:string):string。 根據工資方案編號返回部長工資 function GetFuBuZhang(Id:string):string。 表 412 Twageset 類封裝的方法和過程 方法或過程名 具體說明 function wagesetRec(Id:string):Boolean。 通過傳遞 SQL 語句返回工資信息記錄 procedure RecInsert(InsertSQl:string)。 根據員工編號和月份返回口考核 function GetAgedMoney(Id,GiveDate:string):string。 根據員工編號和月份返回所