【正文】 。 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā) 概述 開發(fā)工具的選擇 隨著社會需求的推動和計算機(jī)技術(shù)的發(fā)展普及，各行業(yè)的管理機(jī)構(gòu)需要有計算機(jī)來處理大量的信息。 SQL Server 2021主要用于 Windows環(huán)境，利用它可設(shè)Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計報告書 10 計出體現(xiàn) Windows風(fēng)格的豐富多彩的圖形化用戶界面，使用戶的操作和使用十分便利。 而 對 于 前 臺 編 程 工 具 ， 目 前 比 較 流 行 的 是 VC++,VB ， Delphi ，PowerBuilder,C++builder 等。 Delphi 應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具， Delphi 提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。 它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與 Windows的專業(yè)開發(fā)工具 SDK相媲美，使用 Delphi開發(fā)應(yīng)用軟件，無疑會大大地提高編程效率。 （ 4） 編程語言的功能及其復(fù)雜性。一個 Delphi程序首先是應(yīng)用程序框架，而這一框架正是應(yīng)用程序的“骨架”。這個窗口具有 Windows窗口的全部屬性：可以被放大縮小、移動、最大最小化等，但您卻沒有編寫一行代碼。 在空白窗口的背后，應(yīng)用程序的框架正在等待用戶的輸入。作為 Microsoft． NET Enterprise Servers 的核心組件，它將減少電子商務(wù)、在線商務(wù)和數(shù)據(jù)倉 庫應(yīng)用程序推向市場的時間，并對需要的環(huán)境提供可靠的支持。通過向上伸縮和向外擴(kuò)展的能力， SQL Server 2021 滿足苛刻的電子商務(wù)和企業(yè)應(yīng)用程序要求。主要體現(xiàn)為： （ 1） 經(jīng)過簡化 的數(shù)據(jù)庫管理； （ 2） 提高開發(fā)人員的工作效率； （ 3） 數(shù)據(jù)轉(zhuǎn)換服務(wù)（ DTS）； （ 4）擴(kuò)展應(yīng)用程序； （ 5） 英語查詢； （ 6） 數(shù)據(jù)挖掘； （ 7） OLAP 服務(wù)； （ 8） OLAP 靈活性； Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計報告書 13 第二章 系統(tǒng)分析需求 概述 企業(yè)人事管理系統(tǒng)是一個典型的數(shù)據(jù)庫應(yīng)用程序，由啟動窗體、登錄模塊、系統(tǒng)主界面、系統(tǒng)管理模塊、員工基本信息管理模塊、員工考勤信息管理模塊、員工獎懲信息管理模塊、員工履歷信息管理模塊、員工評定信息管理模塊、員工工資信息管理模塊等組成，非常符合現(xiàn)代企業(yè) 的要求。 （ 4） 員工獎懲信息管理模塊主要功能是記錄員工每月的獎懲信息，為后面工資 編輯中，獎金的確定提供信息。 總之 , 開發(fā)這個系統(tǒng)的目的就是要幫助企業(yè)的人事部門提高工作效率，實現(xiàn)企業(yè)人事信息管理系統(tǒng)的系統(tǒng)化、規(guī)范化和自動化。 數(shù)據(jù)查詢部分：主要包括用 戶信息查詢、考勤信息查詢、工資情況查詢、評定信息查詢、履歷信息查詢 等工作。合理的數(shù)據(jù)庫設(shè)計可以提高數(shù)據(jù)存儲的效率，有利于程序的實現(xiàn)。 如圖 37所示的即為本系統(tǒng)中數(shù)據(jù)庫中 所有 的數(shù)據(jù)表。 表 42 員工考勤信息表 字段名 數(shù)據(jù)類型 長度 主鍵 功能描述 WORKER_ID Nvarchar 15 是 員工編號 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 否 請 假次數(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） 員工獎懲信息表 (REWARD_PUN) Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計報告書 19 員工獎懲信息表的作用是存入員工獎懲信息，其結(jié)構(gòu)如表 33所示。 表 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 否 獎金 OVERTIME_MONEY Float 8 否 加班費 DEDUCT_CHECK Float 8 否 扣考核 AGED_MONEY Float 8 否 養(yǎng)老保險 MEDICAL_MONEY Float 8 否 醫(yī)療保險 COMPO_MONEY Float 8 否 工傷保險 UNEMPLOY_MONEY Float 8 否 失業(yè)保險 HOUSING_MONEY Float 8 否 住房公積金 INCOME_TAX Float 8 否 所得稅 REAL_WAGE Float 8 否 實發(fā)工資 GIVE_DATE Nvarchar 8 否 月份 DEPARTMENT Nvarchar 8 否 部門名稱 POSITION Nvarchar 8 否 擔(dān)任職務(wù) （ 7）各項工資設(shè)置表 (WAGE_SET) 各項工資設(shè)置表的作用是存入各項工資的設(shè)置，以便編輯員工工資時調(diào)用，其結(jié)構(gòu)如表 37所示 表 37 各項工資設(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è)計報告書 21 ERJI_YG Nvarchar 8 否 二級員工 YANGLAO_BX Nvarchar 8 否 養(yǎng)老保險 GONGSHANG_BX Nvarchar 8 否 工傷保險 YILIAO_BX Nvarchar 8 否 醫(yī)療保險 SHIYE_BX Nvarchar 8 否 失業(yè)保險 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 否 獎金 （ 8）用戶表（ USER_TABLE） 用戶表的作用是存入每個用 戶的信息，其結(jié)構(gòu)如表 38所示 表 38 用戶表 字段名 數(shù)據(jù)類型 長度 主鍵 功能描述 USER_NAME Nvarchar 20 是 用戶名 USER_PWD Nvarchar 16 否 用戶密碼 POWER_LEVEL Nvarchar 8 否 用戶權(quán)限 數(shù)據(jù)表操作類的設(shè)計 在實例中，對數(shù)據(jù)庫的連接和操作都被封裝成類，類名以“ T”開頭，類的單元文件名的后綴為“ _unit”，例如類名為 Tlist，對應(yīng)的 單元文件為 list_unit。 根據(jù)員工編號判斷記錄是否存在 Delphi+SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計報告書 22 function CheckRec1(BM:string):Boolean。 根據(jù)員工學(xué)歷判斷記錄是否存在 function CheckRec5(MZ:string):Boolean。 根據(jù)員工編號返回員工 姓名 function GetDepartName(WorkId:string):string。 根據(jù)員工編號返回員工 出生日期 function GetNativePlace(WorkId:string):string。 根據(jù)員工編號返回員工 專業(yè) function GetGraSch(WorkId:string):string。 根據(jù)員工編號返回員工 如本單位日期 function GetLinkPhone(WorkId:string):string。 根據(jù)員工編號返回員工 照片 function GetAllRec(SQL:string):OLEVariant。 path1:string)。 通過傳遞 SQL 語句執(zhí)行刪除操作過程 procedure FindRec(Id:string) 根據(jù)員工編號返回員工 編號 執(zhí)行查詢操作過程 2. Tworkage 類 Tworkage 類封裝了對 WORK_AGE 表的各種操作。 根據(jù)員工 姓名 判斷查詢記錄是否存在 function WorkAgeRec4(Place:string):Boolean。 通過傳遞 SQL 語句判斷查詢記錄是否存在 function GetWorkerId(ReId:string):string。 根據(jù)記錄編號返回員工起始日期 function GetOverDate(ReId:string):string。 根據(jù)記錄編號返回員工級別 function GetRemark(ReId:string):string。 通 過 SQL 語句執(zhí)行插入操作過程 procedure RecUpdate(UpdateSQl:string)。 通過 SQL 語句執(zhí)行按工作單位刪除操作過程 procedure RecDel5(Id,Place:string)。 根據(jù)員工編號和 月份判斷查詢記錄是否存在 function WageInfoRec2(Name,GiveDate:string):Boolean。 根據(jù)月份判斷查詢記錄是否存在 function WageInfoRec1(FindSQL:string):Boolean。 根據(jù)員工編號和月份返回所在部門 function GetPosition(Id,GiveDate:string):string。 根據(jù)員工編號和月份返回出差補(bǔ)貼 function GetAllowance2(Id,GiveDate:string):string。 根據(jù)員工編號和月份返回口考核 function GetAgedMoney(Id,GiveDate:string):string。 根據(jù)員工編號和月份返回失業(yè)保險 function GetHouseMoney(Id,GiveDate:string):string。 通過傳遞 SQL 語句返回工資信息記錄 procedure RecInsert(InsertSQl:string)。 通過 SQL 按員工姓名和月份執(zhí)行刪除操作過程 procedure RecDel2(Id:string)。 表 412 Twageset 類封裝的方法和過程 方法或過程名 具體說明 function wagesetRec(Id:string):Boolean。 根據(jù)工資方案編號返回經(jīng)理工資 Delphi + SQL Server 企業(yè)人事管理系統(tǒng)設(shè)計報告書 25 function GetFuJingLi(Id:string):string。 根據(jù)工資方案編號返回部長工資 function GetFuBuZhang(Id:string):string。 根據(jù)工資方案編號返回一級員工工資 funct