【正文】 特此聲明！ 作者簽名： 年 月 日 。 （ 5）學(xué)?？梢怨紝W(xué)位論文的全部或部分內(nèi)容（保密學(xué)位論文在解密后遵守此規(guī)定）。 （ 3）學(xué)?？梢詫W(xué)術(shù)交流為目的復(fù)制、贈(zèng)送和交換學(xué)位論文。 關(guān)于學(xué)位論文使用權(quán)和研究成果知識產(chǎn)權(quán)的說明 本人完全了解成都信息工程學(xué)院有關(guān)保管使用學(xué)位論文的規(guī)定，其中包括： （ 1）學(xué)校有權(quán)保管并向有關(guān)部門遞交學(xué)位論文的原件與復(fù)印件。文中除了特別加以標(biāo)注地方外，不包含他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲 得成都信息工程學(xué)院或其他教學(xué)機(jī)構(gòu)的學(xué)位或證書而使用過的材料。 在做畢業(yè)設(shè)計(jì)過程中曾遇到不少困難， 葉 老師 和曾老師 總是給我最耐心的指導(dǎo)，給我提出了許多寶 貴的意見和建議，在此特別謝謝 葉 老師 和曾老師 給予我的幫助。 [8] 陳豫龍 .Delphi 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航 [M].北京： 人民郵電出版社 ,2020。 第 26 頁 共 28 頁 [6] 飛思科研產(chǎn)品研發(fā)中心 .Delphi 數(shù)據(jù)庫應(yīng)用開發(fā) [M].北京 :電子工業(yè)出版社 ,2020。 [4] 林華聰，余劍鋒 . Delphi 6 數(shù)據(jù)庫設(shè)計(jì)思想與實(shí)踐 [M].天津 :冶金工業(yè)出版社 ,2020。 [2] 劉藝 . Delphi5企業(yè)級解決方案及應(yīng)用剖析 [M].北京 :機(jī)械工藝出版社 ,2020。對 Delphi 及 SQL Server 2020 兩種開發(fā)工具也有了較為熟悉的掌握 。最后完成各個(gè)前臺(tái)窗體的設(shè)計(jì)。 結(jié) 論 總結(jié)本系統(tǒng)的開發(fā)我做了如下工作 ,首先 了解系統(tǒng)需要實(shí)現(xiàn)如下功能 :具有良好的操作界面 ； 業(yè)務(wù)模塊能夠自由增加、修改及刪除信息 ； 建立數(shù)據(jù)庫備份機(jī)制，并提供數(shù)據(jù)災(zāi)難恢復(fù)功能 ； 支持?jǐn)?shù)據(jù)的查詢機(jī)制 ； 自動(dòng)計(jì)算員工工資 ；實(shí)現(xiàn)員工崗位調(diào)動(dòng)操作 ； 實(shí)現(xiàn)員工離職、復(fù)職操作。 工資設(shè)置 模塊測試 第 25 頁 共 28 頁 圖 15 工資設(shè)置測試 工資 設(shè)置里面能對每一位員工的工資進(jìn)行設(shè)置，如果不勾設(shè)置保險(xiǎn)，那么該員工的保險(xiǎn)就默認(rèn)為 0，即不購買保險(xiǎn)。當(dāng)然這些功能也包含在幾個(gè)功能模塊之中，也可以點(diǎn)擊功能模塊進(jìn)行選擇。 主要模塊測試 登錄 界面測試 完成了以上工作 ,一個(gè)人事管理系統(tǒng)就基本做成 ,下面就進(jìn)行必要的測 試 ,首先是登錄 界面 ,這是整個(gè)系統(tǒng)的開始 ,所以比較重要。 5 系統(tǒng)測試 第 23 頁 共 28 頁 測試環(huán)境 ： Windows2020。 在以上代碼中，主要運(yùn)用了 select distinct來保證名稱的唯一性， 以及ADOquery組件的 Eof屬性返回?cái)?shù)據(jù)集的最后一條記錄， ADOquery組件的 Next屬性返回?cái)?shù)據(jù)集中當(dāng)前記錄的下一條記錄，這樣就保證了對數(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。 第 22 頁 共 28 頁 end。)。 (39。 begin with do begin close。 var a,b:string。 TTreeView是顯示單位信息和員工信息，如果在設(shè)計(jì)時(shí)就設(shè)計(jì)好，在公司增加部門的時(shí)候就會(huì)無法添加，所以在這里是通過對單位信息表和部門信息表進(jìn)行檢索后動(dòng)態(tài)地創(chuàng)建樹形選項(xiàng)。員工信息瀏覽模塊的運(yùn)行結(jié)果如圖 11所示。 end。)。 (39。 Close。)。39。+dir+39。39。+39。 (39。 數(shù)據(jù)庫還原由以下代碼實(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”組 第 20 頁 共 28 頁 件 、 “ TSpeenButton”組件 、 “ TPanel”組件 、 “ TImage”組件 、 “ TOpenDialog”組件 和“ TSaveDialog”組件 。 主窗體 設(shè)計(jì) 主窗體中主要控制方式是通過菜單和工具欄按鈕來調(diào)用子窗體，它的背景區(qū)由一幅圖片填充。 end。).Value。).Value) then :=(39。).Value) and (strtofloat()(39。 首先同樣是用 select 語句查詢個(gè)人所得稅表，然后執(zhí)行以下代碼： while not do begin if (strtofloat()=(39。).Value。 :=(39。 end。).Value:=。 (39。select * from 人事表 where bh=:a39。 。 此模塊在“員工編號”的下拉列表框中選中選擇編號后員工姓名的列表框中的自動(dòng)變?yōu)橄鄬?yīng)的姓名，這個(gè)功能 首先 也是用的 select 語句對數(shù)據(jù)庫進(jìn)行查詢 。 第 18 頁 共 28 頁 圖 9 工資設(shè)置 模塊 此模塊主要用了以下的組件： “ TPanel”組件 、“ TGroupBox”組件 、“ TLabel”組件 、 “ TEdit”組件 、 “ TCombobox”組件 、 “ TCheckBox”組件 、 “ TBitBtn”組件 、“ TDataSource”組件 、“ TDBGrid”組件 ，其中 “ TDataSource”組件 、“ TDBGrid”組件 兩個(gè)組件是顯示數(shù)據(jù)庫中內(nèi)容的組件在運(yùn)行時(shí)是看不到的。 工資設(shè)置 模塊設(shè)計(jì) 工資設(shè)置模塊主要用于設(shè)置員工的工資信息，此窗體中主要應(yīng)用的也是基本的 SQL 語句 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語句在人事表中找到最大的編號，實(shí)現(xiàn)如下： 第 17 頁 共 28 頁 begin Close。 在一個(gè)企業(yè)里，難免會(huì)用重名的員工，所以姓名不能作為員工的唯一標(biāo)識，那么如果用員工編號來做唯一標(biāo)識，就可以解決這個(gè)問題了 。 //將指針指向下一條記錄 end。).Value)。 while Not do //在不是最后一條記錄時(shí)進(jìn)行循環(huán) begin ((39。 open。select distinct 民族 from 民族表 39。 。 在窗體的 OnShow 事件中添加如下代碼，用來向下拉列表框（ TCombobox）組件添加數(shù)據(jù)表中的數(shù)據(jù)， 為了避免下拉列表框中出現(xiàn)重復(fù)，這里用了 select distinct 語句，以民族為例 。) 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 第 16 頁 共 28 頁 (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 事件中添加如下代碼，用來控制保存按鈕的使用，如果沒有完全填寫信息， bitbtn 的 Enabled 屬性就設(shè)置為 false， 則設(shè)置 【保存】按鈕不可用。)。 (39。 “保存”按鈕的功能主要是通過 Insert 語句向數(shù)據(jù)庫中插入和添加數(shù)據(jù)，這段 Insert 語句如下： with do begin close。1。 （ 2）在窗體中添加“ TPanel”組件、“ TGroupBox”組件、“ TEdit”組件、“ TCombobox” 組件、“ TLabel”組件、“ TMaskEdit”組件、“ TMemo”組件、“ TBitbtn” 第 15 頁 共 28 頁 組件、“ TImage”組件，設(shè)置屬性如表 5所示。新員工登記模塊運(yùn)行結(jié)果如圖 8 所示。 這里將輸入的用戶名和密碼與操作員信息表中的操作員名稱和操作員密碼進(jìn)行比較，如果兩者相同才能進(jìn)入本系統(tǒng)。 open。b39。).Value:=trim()。 //使用