【正文】 .......................................... 25 主要模塊測(cè)試 ........................................................ 25 登錄界面測(cè)試 ..................................................... 25 所得稅模塊測(cè)試 ................................................... 26 工資設(shè)置模塊測(cè)試 ................................................. 27 結(jié) 論 ...........................................................28 參考文獻(xiàn) ...........................................................28 致 謝 ...........................................................29 聲 明 ...........................................................30 1 引言 背景 對(duì)于大中型企業(yè)來(lái)說(shuō)，利用計(jì)算機(jī)支持企業(yè)高效率完成勞動(dòng)人事管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動(dòng)企業(yè)勞動(dòng)人事管理走向科學(xué)化、規(guī)范化的必要條件；而工資管理是一項(xiàng)瑣碎、復(fù)雜而又十分細(xì)致的工作，工資計(jì)算、發(fā)放、核算的工作量很大，一般不允許出錯(cuò)，如果實(shí)行手工操作，每月發(fā)放工資須手工填制大量的表格，這就會(huì)耗費(fèi)工作人員大量的時(shí)間和精力，計(jì)算機(jī)進(jìn)行工資發(fā)放工作，不僅能夠保證工資核算準(zhǔn)確無(wú)誤、快速輸出，而且還可以利用計(jì)算機(jī)對(duì)有關(guān)工資的各種信息進(jìn)行統(tǒng)計(jì)，服務(wù)于 財(cái)務(wù)部門(mén)其他方面的核算和財(cái)務(wù)處理，同時(shí)計(jì)算機(jī)具有手工管理所無(wú)法比擬的優(yōu)點(diǎn) .例如 :檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。 （ 4） 向各級(jí)管理機(jī)構(gòu)提供不同詳細(xì)程度的報(bào)告 ，縮短分析和解釋時(shí)間。管理信息系統(tǒng)是一門(mén)融管理科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)、現(xiàn)代通信技術(shù)和電子計(jì)算機(jī)技術(shù)為一體的綜合性邊緣學(xué)科，它以人為主導(dǎo)，利用計(jì)算機(jī)硬件、軟件、網(wǎng)絡(luò)通信設(shè)備辦公設(shè)備，進(jìn)行信息的收集、傳輸、加工、存儲(chǔ)、更新和維護(hù)，以及提高企業(yè)效率為目的一種集成化的人機(jī)系統(tǒng)。古往今來(lái)，信息都上一種資源，只是未得到應(yīng)有的重視。所以利用計(jì)算機(jī)管理人事是以后企業(yè)最佳選擇。利用計(jì)算機(jī)對(duì)企業(yè)人事管理不僅保證了核算準(zhǔn)確度，還成倍的提高了工作效率，而且便于查詢。 SQL Server 2020 是為數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)而設(shè)計(jì)的功能強(qiáng)大、面向?qū)ο蟮木幊坦ぞ?。故?shí)現(xiàn)本系統(tǒng) 用 Delphi 作為開(kāi)發(fā)工具 是一個(gè)明智 的選擇。 (5)數(shù)據(jù)庫(kù)結(jié)構(gòu)的靈活性和擴(kuò)展性。因此，可以說(shuō)應(yīng)用程序框架通過(guò)提供所有應(yīng)用程序共有的東西，為用戶應(yīng)用程序的開(kāi)發(fā)打下了良好的基礎(chǔ)。 SQL Server 2020 對(duì)XML和 HTTP 提供充分的支持；提供分割裝載和確保時(shí)間的特性；提供先進(jìn)的管理和協(xié)調(diào)機(jī)制，可以自動(dòng)管理線程任務(wù)，降低總體開(kāi)銷。 3 需求分析及系統(tǒng)設(shè)計(jì) 人事管理系統(tǒng) 是一個(gè)典型的數(shù)據(jù)庫(kù)應(yīng) 用程序，由啟動(dòng)窗體、登錄模塊、系統(tǒng)主界面、系統(tǒng)管理模塊、信息設(shè)置模塊、 員工信息管理 管理模塊、工資管理模塊等組成，具體的功能模塊如下： (1)系統(tǒng)管理模塊的主要功能是單位信息、管理員設(shè)置、更改密碼、重新登錄。 數(shù)據(jù)查詢部分：主要包括用戶信息查詢、考勤信息查詢、工資情況查詢、部門(mén)情況查詢各項(xiàng)報(bào)表統(tǒng)計(jì)等工作。 如圖 2 所示的即為本系統(tǒng)中數(shù)據(jù)庫(kù)中的數(shù)據(jù)表的樹(shù)形結(jié)構(gòu)圖，該數(shù)據(jù)表樹(shù)型結(jié)構(gòu)圖包含系統(tǒng)所有數(shù)據(jù)表。 （ 2）在“ ADO”組件頁(yè)中點(diǎn)選“ TADOConnection”組件，添加到窗體上，TADOConnection組件用到連接數(shù)據(jù)庫(kù)，其它數(shù)據(jù)庫(kù)組件通過(guò)它連接數(shù)據(jù)庫(kù)。只有合法的用戶，才可以進(jìn)入系統(tǒng)。 此 模塊調(diào)用了數(shù)據(jù)模塊中的 ADOquery 組件連接數(shù)據(jù)庫(kù)，然后用 select 語(yǔ)句對(duì)操作員信息這張數(shù)據(jù)表進(jìn)行操作。).Value:=trim()。新員工登記模塊運(yùn)行結(jié)果如圖 8 所示。 (39。) and (39。) and (39。) and (39。) and (39。) and (39。) and (39。) and (39。 。).Value)。 (39。).Value = null then s :=’ mr’ +39。+ InttoStr(n +1) else if n99 then s:=s+39。 此模塊在“員工編號(hào)”的下拉列表框中選中選擇編號(hào)后員工姓名的列表框中的自動(dòng)變?yōu)橄鄬?duì)應(yīng)的姓名，這個(gè)功能首先也是用的 select 語(yǔ)句對(duì)數(shù)據(jù)庫(kù)進(jìn)行查詢。).Value:=。 首先同樣是用 select 語(yǔ)句查詢個(gè)人所得稅表，然后執(zhí)行以下代碼： while not do begin if (strtofloat()=(39。 end。 BACKUP DATABASE 39。39。提示 39。 數(shù)據(jù)庫(kù)還原由以下代碼實(shí)現(xiàn)： begin Close。+dir+39。 (39。 TTreeView是顯示單位信息和員工信息，如果在設(shè)計(jì)時(shí)就設(shè)計(jì)好，在公司增加部門(mén)的時(shí)候就會(huì)無(wú)法添加，所以在這里是通過(guò)對(duì)單位信息表和部門(mén)信息表進(jìn)行檢索后動(dòng)態(tài)地創(chuàng)建樹(shù)形選項(xiàng)。)。)。 。).Value。 5 系統(tǒng)測(cè)試 測(cè)試環(huán)境 ： Windows2020。 結(jié) 論 總結(jié)本系統(tǒng)的開(kāi)發(fā)我做了如下工作 ,首先 了解系統(tǒng)需要實(shí)現(xiàn)如下功能 :具有良好的操作界面 ； 業(yè)務(wù)模塊能夠自由增加、修改及刪除信息 ； 建立數(shù)據(jù)庫(kù)備份機(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ù)職操作。 [4] 林華聰，余劍鋒 . Delphi 6 數(shù)據(jù)庫(kù)設(shè)計(jì) 思想與實(shí)踐 [M].天津 :冶金工業(yè)出版社 ,2020。文中除了特別加以標(biāo)注地方外，不包含他人已經(jīng)發(fā)表或撰寫(xiě)過(guò)的研究成果，也不包含為獲得成都信息工程學(xué)院或其他教學(xué)機(jī)構(gòu)的學(xué)位或證書(shū)而使用過(guò)的材料。 特此聲明！ 作者簽名： 年 月 日 t was not until midafternoon that the inspector ambled up on his pony. My father pulled himself together, and went out to receive him。s history that I would prefer not to have known. I was sitting quietly in the room next to my parents39。t mean to say you39。s lovely, Emily. She39。t suppose the babies looked much different from other babies, really. My mother said: 39。You39。Are you going to tell me that you have not got a certificate?39。Nothing much!39。Oh! Oh! Oh! ...39。 When she came — when I saw her, I wanted to kill myself. I knew they would never approve her, although it39。s had roses and heliotrope, myrtle, and a little orange tree in it. Jo39。d like to know why you have e here, Harriet? Why did you bring it here?39。 Aunt Harriet39。s nothing much.39。Harriet!39。t know what to do. Then when I heard your baby had e early and was a girl, too, it was like God answering a prayer.39。t she a lovely darling?39。s tone, 39。s voice exclaimed in surprise, and not altogether in approval. 39。s bed. She looked so pink and wrinkled to me that I did not see how the inspector c ould have been quite sure about her. However, there was nothing obviously wrong with her, so she had got her certificate. Nobody could blame the inspector for that。 （ 5）學(xué)?？梢怨紝W(xué)位論文的全部或部分內(nèi)容（保密學(xué)位論文在解密后遵守此規(guī)定）。 在做 畢業(yè)設(shè)計(jì)過(guò)程中曾遇到不少困難， 葉 老師 和曾老師 總是給我最耐心的指導(dǎo)，給我提出了許多寶貴的意見(jiàn)和建議，在此特別謝謝 葉 老師 和曾老師 給予我的幫助。 [2] 劉藝 . Delphi5 企業(yè)級(jí)解決方案及應(yīng)用剖析 [M].北京 :機(jī)械工藝出版社 ,2020。 工資設(shè)置 模塊測(cè)試 圖 15 工資設(shè)置測(cè)試 工資設(shè)置里面能對(duì)每一位員工的工資進(jìn)行設(shè)置，如果不勾設(shè)置保險(xiǎn)，那么該員工的保險(xiǎn)就默認(rèn)為 0，即不購(gòu)買保險(xiǎn)。 在以上代碼中，主要運(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)行查詢。 while Not do begin b:=(39。 subt:=(nil,a)。 (39。 (39。員工信息瀏覽模塊的運(yùn)行結(jié)果如圖 11所示。 Close。39。,0+mb_iconinformation)。數(shù)據(jù)備份成功 39。39。 。).Value。).Value。 (39。 圖 9 工資設(shè)置 模塊 此模塊主要用了以下的組件： “ TPanel”組件 、 “ TGroupBox”組件 、 “ TLabel”組件 、 “ TEdit”組件 、 “ TCombobox”組件 、 “ TCheckBox”組件 、 “ TBitBtn”組件 、 “ TDataSource”組件 、 “ TDBGrid”組件 ，其中 “ TDataSource”組件 、“ TDBGrid”組件 兩個(gè)組件是顯示數(shù)據(jù)庫(kù)中內(nèi)容的組件在運(yùn)行時(shí)是看不到的。//將 m的值從第 4位取 2位變?yōu)檎? if n9 then s:= s+39。 If (39。 這個(gè)功能實(shí)現(xiàn)，首先需要使用 select語(yǔ)句在人事表中找到最大的編號(hào)，實(shí)現(xiàn)如下： begin Close。 while Not do //在不是最后一條記錄時(shí)進(jìn)行循環(huán) begin ((39。 在窗體的 OnShow 事件中添加如下代碼，用來(lái)向下拉列表框（ TCombobox）組件添加數(shù)據(jù)表中的數(shù)據(jù)， 為了避免下拉列表框中出現(xiàn)重復(fù)，這里用了 select distinct 語(yǔ)句，以民族為例。) and (39。) and(39。) and(39。) and(39。) and(39。) and(39。 begin if (39。 “保存”按鈕的功能主要是通過(guò) Insert 語(yǔ)句向數(shù)據(jù)庫(kù)中插入和添加數(shù)據(jù)，這段 Insert 語(yǔ)句如下： with do begin close。 這里將輸入的用戶名和密碼與操作員信息表中的操作員名稱和操作員密碼進(jìn)行比較，如果兩者相同才能進(jìn)入本系統(tǒng)。 //使用 SQL語(yǔ)句檢索數(shù)據(jù)表中的用戶名和密碼 (39。 （ 3）在“ Standard”組件頁(yè)中點(diǎn)選“ TEdit”組件，添加到窗體上，設(shè)置 Ctl3D屬性為“ False”；設(shè)置 Text 屬性為空，設(shè)置 Edir2 的 PasswordChar 屬性為“ *”。 這里的每個(gè) TADOQuery組件連接一個(gè)數(shù)據(jù)表。 表 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 民族