【正文】 基本做成 ,下面就進(jìn)行必要的測(cè)試 ,首先是登錄界面 ,這是整個(gè)系統(tǒng)的開(kāi)始 ,所以比較重要。 5 系統(tǒng)測(cè)試 測(cè)試環(huán)境 ： Windows2020。 在以上代碼中，主要運(yùn)用了 select distinct來(lái)保證名稱的唯一性，以及ADOquery組件的 Eof屬性返回?cái)?shù)據(jù)集的最后一條記錄， ADOquery組件的 Next屬性返回?cái)?shù)據(jù)集中當(dāng)前記錄的下一 條記錄，這樣就保證了對(duì)數(shù)據(jù)表中的所有行進(jìn)行查詢。 。 (subt,b)。).Value。 while Not do begin b:=(39。 open。select distinct 部門名稱 from 部門表 39。 。 subt:=(nil,a)。單位名稱 39。 end。)。 (39。 with do begin close。 end。)。 (39。 begin with do begin close。 var a,b:string。 TTreeView是顯示單位信息和員工信息，如果在設(shè)計(jì)時(shí)就設(shè)計(jì)好，在公司增加部門的時(shí)候就會(huì)無(wú)法添加，所以在這里是通過(guò)對(duì)單位信息表和部門信息表進(jìn)行檢索后動(dòng)態(tài)地創(chuàng)建樹(shù)形選項(xiàng)。員工信息瀏覽模塊的運(yùn)行結(jié)果如圖 11所示。 end。)。 (39。 Close。)。39。+dir+39。39。+39。 (39。 數(shù)據(jù)庫(kù)還原由以下代碼實(shí)現(xiàn)： begin Close。,0+mb_iconinformation)。,39。 except (39。提示 39。數(shù)據(jù)備份成功 39。 execsql。39。39。39。 TO DISK =39。db_manpowerinfo39。 BACKUP DATABASE 39。 。 圖 10 人事管理系統(tǒng) 主窗體 此窗體的設(shè)計(jì)主要運(yùn)用了以下組件： “ TMainMenu”組件 、 “ TCoolBar”組件 、 “ TSpeenButton”組件 、 “ TPanel”組件 、 “ TImage”組件 、 “ TOpenDialog”組件 和“ TSaveDialog”組件 。 主窗體 設(shè)計(jì) 主窗體中主要控制方式 是通過(guò)菜單和工具欄按鈕來(lái)調(diào)用子窗體，它的背景區(qū)由一幅圖片填充。 end。).Value。).Value) then :=(39。).Value) and (strtofloat()(39。 首先同樣是用 select 語(yǔ)句查詢個(gè)人所得稅表，然后執(zhí)行以下代碼： while not do begin if (strtofloat()=(39。).Value。 :=(39。 end。).Value:=。 (39。select * from 人事表 where bh=:a39。 。 此模塊在“員工編號(hào)”的下拉列表框中選中選擇編號(hào)后員工姓名的列表框中的自動(dòng)變?yōu)橄鄬?duì)應(yīng)的姓名，這個(gè)功能首先也是用的 select 語(yǔ)句對(duì)數(shù)據(jù)庫(kù)進(jìn)行查詢。 圖 9 工資設(shè)置 模塊 此模塊主要用了以下的組件： “ TPanel”組件 、 “ TGroupBox”組件 、 “ TLabel”組件 、 “ TEdit”組件 、 “ TCombobox”組件 、 “ TCheckBox”組件 、 “ TBitBtn”組件 、“ TDataSource”組件 、 “ TDBGrid”組件 ，其中 “ TDataSource”組件 、 “ TDBGrid”組件 兩個(gè)組件是顯示數(shù)據(jù)庫(kù)中內(nèi)容的組件在運(yùn)行時(shí)是看不到的。 工資設(shè)置 模塊設(shè)計(jì) 工資設(shè)置模塊主要用于設(shè)置員工的工資信息，此窗體中主要應(yīng)用的也是基本的 SQL 語(yǔ)句 Insert 向數(shù)據(jù)中插入數(shù)據(jù)。+ InttoStr(n +1) else s:= s+InttoStr(n +1)。+ InttoStr(n +1) else if n99 then s:=s+39。//將 m的值從第 4位取 2位變?yōu)檎? if n9 then s:= s+39。).Value) 。 如果不為空就需要分情況進(jìn)行處理，這里實(shí)現(xiàn)代碼如下： m:= Trim((39。).Value = null then s :=’ mr’ +39。 If (39。 end。)。 (39。 這個(gè)功能實(shí)現(xiàn)，首先需要使用 select語(yǔ)句在人事表中找到最大的編號(hào)，實(shí)現(xiàn)如下： begin Close。 在一個(gè)企業(yè)里，難免會(huì)用重名的員工，所 以姓名不能作為員工的唯一標(biāo)識(shí)，那么如果用員工編號(hào)來(lái)做唯一標(biāo)識(shí)，就可以解決這個(gè)問(wèn)題了。 //將指針指向下一條記錄 end。).Value)。 while Not do //在不是最后一條記錄時(shí)進(jìn)行循環(huán) begin ((39。 open。select distinct 民族 from 民族表 39。 。 在窗體的 OnShow 事件中添加如下代碼，用來(lái)向下拉列表框（ TCombobox）組件添加數(shù)據(jù)表中的數(shù)據(jù)， 為了避免下拉列表框中出現(xiàn)重復(fù)，這里用了 select distinct 語(yǔ)句，以民族為例。) then :=true else :=false。) and (39。) and (39。) and (39。) and (39。) and (39。) and (39。) and(39。) and (39。) and (39。) and (39。) and(39。) and (39。) and (39。) and (39。) and(39。) and (39。) and (39。) and (39。) and(39。) and (39。) and (39。) and (39。) and(39。) and (39。) and (39。) and (39。 begin if (39。 在編輯框的 OnChange 事件中添加如下代碼，用來(lái)控制保存 按鈕的使用，如果沒(méi)有完全填寫信息， bitbtn 的 Enabled 屬性就設(shè)置為 false，則設(shè)置 【保存】按鈕不可用。)。 (39。 “保存”按鈕的功能主要是通過(guò) Insert 語(yǔ)句向數(shù)據(jù)庫(kù)中插入和添加數(shù)據(jù)， 這段 Insert 語(yǔ)句如下： with do begin close。1。 （ 2）在窗體中添加“ TPanel”組件、“ TGroupBox”組件、“ TEdit”組件、“ TCombobox” 組件、“ TLabel”組件、“ TMaskEdit”組件、“ TMemo”組件、“ TBitbtn”組件、“ TImage”組件，設(shè)置屬性如表 5所示。新員工登記模塊運(yùn)行結(jié)果如圖 8 所示。 這里將輸入的用戶名和密碼與操作員信息表中的操作員名稱和操作員密碼進(jìn)行比較，如果兩者相同才能進(jìn)入本系統(tǒng)。 open。b39。).Value:=trim()。 //使用 SQL語(yǔ)句檢索數(shù)據(jù)表中的用戶名和密碼 (39。select * from 操作員信息表 where 操作員名稱 = :a and 操作員密碼 = :b39。 。 此 模塊調(diào)用了數(shù)據(jù)模塊中的 ADOquery 組件連接數(shù)據(jù)庫(kù)，然后用 select 語(yǔ)句對(duì)操作員信息這張數(shù)據(jù)表進(jìn)行操作。 （ 3）在“ Standard”組件頁(yè)中點(diǎn)選“ TEdit”組件，添加到窗體上，設(shè)置 Ctl3D屬性為“ False”；設(shè)置 Text 屬性為空，設(shè)置 Edir2 的 PasswordChar 屬性為“ *”。 圖 7 登錄 界面 此模塊的設(shè)計(jì)步驟如下： （ 1）新建一個(gè)窗 體 ，命名為“ frm_Login”，設(shè)置 Caption 屬性為“登錄”，設(shè)置 Position 屬性為“ poScreenCenter”。主要是通過(guò)對(duì)數(shù)據(jù)表中的操作員信息表的查詢，判斷用戶輸入的密碼是否符合數(shù)據(jù)庫(kù)中的信息，如果符合則允許登錄；否則會(huì)有相應(yīng)的提示。只有合法的用戶，才可以進(jìn)入系統(tǒng)。 這里的每個(gè) TADOQuery組件連接一個(gè)數(shù)據(jù)表。 圖 6 連接屬性對(duì)話框 （ 6）單擊【測(cè)試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫(kù)的連接。 圖 4 數(shù)據(jù)連接對(duì)話框 （ 4）單擊【 Build】按鈕，在彈出的對(duì)話框中的“提供程序”選項(xiàng)卡中設(shè)置希望連接的數(shù)據(jù)，如圖 5 所示。 （ 2）在“ ADO”組件頁(yè)中點(diǎn)選“ TADOConnection”組件，添加到窗體上，TADOConnection組件用到連接數(shù)據(jù)庫(kù)，其它數(shù)據(jù)庫(kù)組件通過(guò)它連接數(shù)據(jù)庫(kù)。 表 4 人事 表 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 功能描述 bh Varchar 5 是 編號(hào) xm Varchar 10 姓名 xb Varchar 2 性別 sfzh Varchar 20 身份證號(hào) csny Datetime 8 出生年月 mz Varchar 20 民族 hyzk Varchar 4 婚姻狀況 zzmm Varchar 10 政治面貌 jg Varchar 50 籍貫 nxdh Varchar 20 聯(lián)系電話 sjhm Varchar 30 手機(jī)號(hào) 碼 dzyx Varchar 20 電子郵箱 jtdz Varchar 50 家庭地址 byyx Varchar 50 畢業(yè)院校 zy Varchar 20 專業(yè) whcd Varchar 10 文化程度 tc Varchar 50 特長(zhǎng) gzsj Datetime 8 參加工作時(shí)間 gn Int 4 工齡 zp Image 16 照片 ssbm Varchar 50 所屬部門 gz Varchar 10 工種 zw Varchar 10 職務(wù) zc Varchar 20 職稱 jbgz Float 8 基本工資 qtgz Float 8 其它工資 drsj Datetime 8 調(diào)入時(shí)間 jl Varchar 200 簡(jiǎn)歷 djrq Datetime 8 登記日期 各功能模塊的實(shí)現(xiàn) 數(shù)據(jù) 模塊設(shè)計(jì) 數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)庫(kù)訪問(wèn)組件， 在本系統(tǒng)中，這個(gè)模塊是最重要的模塊，其他模塊都要通過(guò)這個(gè)模塊中的組件訪問(wèn)數(shù)據(jù)庫(kù)，雖然只有簡(jiǎn)單的組件屬性設(shè)置， Delphi自動(dòng)生成代碼，但是不容有誤。 表 2 考勤 表 字段名 數(shù)據(jù)類型 長(zhǎng)度 主鍵否 功能描述 kgkc float 8 曠工扣除 qqj float 8 全勤獎(jiǎng) cqts Int 4 出勤天數(shù) cdztcs Int 4 遲到早退次數(shù) jbf Float 8 加班費(fèi) ypjts Int 4 月平均工作天數(shù) jb float 8 幾倍 3． 工資表 工資表的作用是存放員工每個(gè)月的工資信息，工資表結(jié)構(gòu)如表 3 所示。 圖 2 數(shù)據(jù)表樹(shù)形結(jié)構(gòu)圖 1． 考核表 考核表的作用是存入員工每個(gè)月的考核信息，考核表結(jié)構(gòu)如表 1 所示。 如圖 2 所示的即為本系統(tǒng)中數(shù)據(jù)庫(kù)中的數(shù)據(jù)表的樹(shù)形結(jié)構(gòu)圖，該數(shù)據(jù)表樹(shù)型結(jié)構(gòu)圖包含系統(tǒng)所有數(shù)據(jù)表。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。合理的數(shù)據(jù)庫(kù)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，有利于程序的實(shí)現(xiàn)。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。 數(shù)據(jù)查詢部分：主要包括用戶信息查詢、考勤信息查詢、工資情況查詢、部門情況查詢各項(xiàng)報(bào)表統(tǒng)計(jì)等工作。 數(shù)據(jù)修改部分 : 主要修改員工信息 ,修改基本工資 ,人事調(diào)動(dòng)。 總之 , 開(kāi)發(fā)這個(gè)系統(tǒng)的目的就是要幫助企業(yè)的人 事 部門提高工作效率，實(shí)現(xiàn)企業(yè)人事信息管理系統(tǒng)的系統(tǒng)化、規(guī)范化和自動(dòng)化。 (3) 員工信息管理 模塊主要功能是新員工登記、應(yīng)聘登記、員工調(diào)動(dòng)、員工離職、考核管理、合同管理、應(yīng)聘信息瀏覽、員工信息瀏覽。 3 需求分析及系統(tǒng)設(shè)計(jì) 人事管理系統(tǒng) 是一個(gè)典型的數(shù)據(jù)庫(kù)應(yīng) 用程序，由啟動(dòng)窗體、登錄模塊、系統(tǒng) 主界面、系統(tǒng)管理模塊、信息設(shè)置模塊、 員工信息管理 管理模塊、工資管理模塊等組成，具體的功能模塊如下： (1)系統(tǒng)管理模塊的主要功能是單位信息、管理員設(shè)置、更改密碼、重新登錄。 SQL Server 2020 包括加速?gòu)母拍畹阶詈蠼桓堕_(kāi)發(fā)過(guò)程的工具。主要體現(xiàn)為： （ 1） 高度可用性； （ 2） 可伸縮性； （ 3） 安全性； （ 4） 分布式分區(qū)圖； （ 5） 索引視圖； （ 6） 虛擬接口系統(tǒng) 網(wǎng)絡(luò)； （ 7） 復(fù)制特性。使用 SQL Server 2020 可以獲得非凡的可伸縮性和可靠性。 SQL Server 2020 對(duì)XML和 HTTP 提供充分的支持；提供分割裝載和確保時(shí)間的特性；提供先進(jìn)的管理和協(xié)調(diào)機(jī)制，可以自動(dòng)管理線程任務(wù)，降低總體開(kāi)銷。 SQL Ser