【正文】 英文 Structure Query Language 的縮寫，意思為結(jié)構(gòu)化查詢語(yǔ)言。實(shí)際上有很多的方法可以提高 SQL Server2021 的系統(tǒng)性能。 在設(shè)計(jì)并且建立數(shù)據(jù)庫(kù)后，我們還需要進(jìn)行一些優(yōu)化工作。 。 DELPHI 課程設(shè)計(jì) 第 31 頁(yè) 共 132 頁(yè) 31 。 。因此我們選用 Microsoft SQL Server2021來創(chuàng)建數(shù)據(jù)庫(kù)。另外， SQL Server 2021 除了具有擴(kuò)展性，可靠性以外，還具有可以迅速開發(fā)新的因特網(wǎng)系統(tǒng)的功能。 二、選擇 Microsoft Server 2021 作為服務(wù)器端數(shù)據(jù)庫(kù)軟件 1． Microsoft SQL Server2021簡(jiǎn)介 SQL Server 2021 是 Microsoft 公司推出的 SQL Server 數(shù)據(jù)庫(kù)管理系統(tǒng)，該版本繼承了 SQL Server 版木的優(yōu)點(diǎn)同時(shí)又比它增加了許多更先進(jìn)的功能具有使用方便可伸縮性好與相關(guān)軟件集成程度高等優(yōu)點(diǎn)可跨越從運(yùn)行 Microsoft Windows 98 的膝上型電腦到運(yùn)行Microsoft Windows 2021 的大型多處理器的服務(wù)器等多種平臺(tái)使用 由于 SQL Server 與 Windows 界而風(fēng)格完全一致，且有許多向?qū)?Wizard)幫助，因此易于安裝和學(xué)習(xí)，有一關(guān) SQL Server 的資料、培訓(xùn)隨處可得，所以容易上手。除此之外，還允許用戶掛接其它的應(yīng)用程序開 發(fā)工具，如 Borland 公司的資源編輯器（ Resourse Workshop）。 Object Pascal 語(yǔ)言是在 Pascal 語(yǔ)言的基礎(chǔ)上發(fā)展起來的，簡(jiǎn)單易學(xué)。 Delphi 具有以下的特性：基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，強(qiáng)大的數(shù)據(jù)庫(kù)支持，與 Windows 編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)?？梢哉f Delphi 同時(shí)兼?zhèn)淞?VC 功能強(qiáng)大和VB 簡(jiǎn)單易學(xué)的特點(diǎn)。 Delphi 被稱為第四代編程語(yǔ)言，它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)。 通過腳本 SQL 語(yǔ)句創(chuàng)建用戶數(shù)據(jù)表 第三章 人事工資管理信息系統(tǒng)的系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 第一節(jié) 系統(tǒng)實(shí)現(xiàn) 技術(shù) DELPHI 課程設(shè)計(jì) 第 29 頁(yè) 共 132 頁(yè) 29 一、選擇 Borland Delphi 7 做為開發(fā)工具 Delphi 是著名的 Borland（現(xiàn)在已和 Inprise 合并）公司開發(fā)的可視化軟件開發(fā)工具。 通過傳遞 SQL 語(yǔ)句執(zhí)行修改操作 procedure Userdelete(DeleteSQL:string)。 根據(jù)用戶名返回查詢賬號(hào)記錄是否存在 procedure UserInsert(InsertSQL:string)。 根據(jù)用戶名返回用戶密碼信息 Function GetuserLevel(UserName:string):string。 通過傳遞 SQL 語(yǔ)句執(zhí)行修改操作 DELPHI 課程設(shè)計(jì) 第 28 頁(yè) 共 132 頁(yè) 28 procedure Recdel(Id,month:string)。 通過傳遞 SQL 語(yǔ)句返回查詢記錄 procedure RecInsert(InsertSQL:string)。 根據(jù)員工編號(hào)和月份返回返回其他加班時(shí)間 Function Getremark(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回早退次數(shù) Function GetHOliOvertimes(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回請(qǐng)假次數(shù) Function Getlatetimes(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回出差天數(shù) Function Getabsentdays(Id,momth:string):string。 數(shù) Function Getworkdays(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回當(dāng)月天數(shù) Function Getholidays(Id,momth:string):string。 根據(jù)員工編號(hào)和月份查詢記錄是否存在 Function Getworkername(Id,momth:string):string。 通過傳遞 SQL語(yǔ)句執(zhí)行修改操作 procedure Recdel(Id:string)。 通過傳遞 SQL語(yǔ)句返回查詢記錄 procedure Recinsert(insertSQL:string)。 根據(jù)員工編號(hào)返回評(píng)定職稱 Function Getremark(Id:string):string。 根據(jù)員工編號(hào)返回評(píng)定日期 Function Getassessunit(Id:string):string。 通過查詢 SQL語(yǔ)句 查詢記錄是否存在 Function Getworkername(Id:string):string。 表 Tprotitle 類封裝的方法和過程 方法或過程名 具體說明 Function ProtitleRec(Id:string):Boolean。 通過傳遞 SQL 語(yǔ)句執(zhí)行修改操作 procedure Recdel(ReId:string)。 通過傳遞 SQL 語(yǔ)句返回記錄查詢 procedure Recinsert(insertSQL:string)。 根據(jù)年份和月 份返回獎(jiǎng)勵(lì)記錄條數(shù) Function Getpuncount(month1,month2:string):integer。 根據(jù)員工編號(hào)和月份執(zhí)行刪除操作 DELPHI 課程設(shè)計(jì) 第 25 頁(yè) 共 132 頁(yè) 25 Function Getremark(ReId:string):string。 通過傳遞 SQL 語(yǔ)句返回插入操作過程 procedure RecUpdate(updateSQL:string)。 通過記錄號(hào)返回獎(jiǎng)懲原因 Function Getallowunit(ReId:string):string。 通過記錄號(hào)返回員工名稱 Function Getreccont(ReId:string):string。 通過傳遞 SQL 語(yǔ)句查詢記錄是否存在 Function GetrecId(ReId:string):string。 表 trewardpun 類封裝的方法和過程 方法或過程名 具體說明 Function RewardPunRec(ReId:string):Boolean 。 根據(jù)員工編號(hào)和月份返回實(shí)發(fā)工資 procedure wagesrecs(SQL:string):OLEVariant。 根據(jù)員工編號(hào)和月份返回住房公積金 Function getiax(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回工傷保險(xiǎn)費(fèi) Function getunemploymoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回養(yǎng)老保險(xiǎn)費(fèi) Function getmedicalmomey(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回加班費(fèi) Function getdeductcheck(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回出差補(bǔ)貼信息 DELPHI 課程設(shè)計(jì) 第 23 頁(yè) 共 132 頁(yè) 23 Function getreward(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回基本工資信息 Function Getallowance1(Id,givedata:string):string。 根據(jù)員工編號(hào)和月份返回記錄號(hào) Function Getworkname(Id,givedata:sting):sting。 方法或過程名 具體說明 Function WageInfoRec(Id,GiveData:string):Boolean: 根據(jù)員工編號(hào)和月份查詢記錄是否存在 Function WageInfoRec(FindSQL:string):Boolean。 通過傳遞 sql 語(yǔ)句執(zhí)行修改操作 procedure recdel(reid:string)。 通過傳遞 sql 語(yǔ)句返回查詢記錄 procedure recinsert(insertsql:string)。 根據(jù)記錄號(hào)返回員工備注信息 function getsumwortime(id:string):integer。 根據(jù)記錄號(hào)返回員工擔(dān)任的職務(wù) function getlevel1(reid:string):string。 根據(jù)記錄號(hào)返回結(jié)束日期 function getworktime(reid:string):string。 根據(jù)記錄號(hào)返回員工名稱 function getbegindate(reid:string):string。 通過傳遞 SQL 語(yǔ)句查詢記錄是否存在 function getrecid(reid:string):string。 根據(jù)員工編號(hào)執(zhí)行查詢操作過程 Tworkage 類封裝了對(duì) work_age 表的各種操作，類中定義的方法和過程如 表 表 Tworkage 類封裝的方法和過程 DELPHI 課程設(shè)計(jì) 第 21 頁(yè) 共 132 頁(yè) 21 方法或過程名 具體說明 function workagerec(id,workunit:string):boolean。 通過傳遞 SQL 語(yǔ)句執(zhí)行修改操作過程 procedure recdel(id:stirng)。 根據(jù)員工編號(hào)和圖片路徑插入一條記錄 procedure recinsert(insertsql:stirng)。 修改指定員工編號(hào)的照片信息 procedure workid(id:stirng。 根據(jù)員工編號(hào)趕回圖片信息的數(shù)據(jù)流 function allrec(sql:string):olevariant 通過傳遞 SQL 語(yǔ)句返回查詢記錄 procedure photoupdate(id:stirng。 根據(jù)員工編號(hào)趕回員工住址信息 function getremark(workid:string):string。 根據(jù)員工編號(hào)趕回員工如本單位時(shí)間 function getlinkphone(workid:string):string。 根據(jù)員工編號(hào)趕回員工政治面貌 function getworktime(workid:string):string。 根據(jù)員工編號(hào)趕回員工所學(xué)專業(yè) function getgrasch(workid:string):string。 根據(jù)員工編號(hào)趕回員工籍貫 function getschage(workid:string):string。 根據(jù)員工編號(hào)趕回員工性別 function getbirth(workid:string):string。 根據(jù)員工編號(hào)返回員工名稱 function getdepartname(workid:string):string。 根據(jù)員工編號(hào)判斷記錄是否存在 function getarcid(workid:string):string。 表 表 user_table 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說明 1 user_name varchar(30) 用戶名，關(guān)鍵字 2 user_pwd varchar(30) 用戶密碼 3 power_level varchar(12) 權(quán)限級(jí)別 第三節(jié) 數(shù)據(jù)表操作類的設(shè)計(jì) 在實(shí)例中，對(duì)數(shù)據(jù)庫(kù)的連接和操作都被封裝成類，類名以“ T”開頭，對(duì)每張數(shù)據(jù)表的操作都可以封裝到對(duì)應(yīng)類的方法和過程中，在使用類時(shí)要先實(shí)例化，使用完后要將實(shí)例釋放，調(diào)用類中方法和過程時(shí)只需要向方法和過程傳遞參數(shù)就可以實(shí)現(xiàn)調(diào) 用，下面類出類中方法和過程的名稱 Tbasedata 類主要封裝了對(duì) base_data 表的各種操作，類中定義的方法和過程如 表 所示。 base_data，主要用來存放企業(yè)中每個(gè)員工的基本信息，結(jié)構(gòu)如 表 所示 表 表 base_data的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說明 1 worker_id varchar(15 員工編號(hào) ,關(guān)鍵DELPHI 課程設(shè)計(jì) 第 12 頁(yè) 共 132 頁(yè) 12 ) 字 2 archivers_id varchar(10) 檔案編號(hào) 3 worker_name varchar(8) 員工姓名 4 department_name varchar(15) 部門名稱 5 sex varchar(2 ) 性別 6 birthday datetime 出生日期 7 native_place varchar(25) 籍貫 8 school_age varchar(4) 學(xué)歷 9 major varchar(15) 專業(yè) 10 graduate_sc