公司人事管理系統(tǒng)畢業(yè)設計

1、<p>　　公司人事管理系統(tǒng)畢業(yè)設計 </p><p><b>　　摘 要</b></p><p>　　隨著信息科學技術的飛速發(fā)展，人們逐漸意識到對信息管理軟件的運用可以使日常工作更加方便、快捷和高效。論文詳細論述了一個公司人事管理系統(tǒng)的開發(fā)設計過程。系統(tǒng)采用Delphi 7.0作開發(fā)平臺，SQL Server 2000作數據庫管理系統(tǒng)，實現了系統(tǒng)管理

2、、信息設置、員工信息管理、工資管理等功能。系統(tǒng)符合公司人事管理的要求，能夠幫助公司切實提高工作效率。</p><p>　　論文組織如下：首先闡述了該系統(tǒng)的開發(fā)背景、意義；其次介紹了相關的開發(fā)工具及技術基礎；接著對系統(tǒng)的需求進行了分析，并提出了具體的設計方案和數據庫模型；然后展現了整個系統(tǒng)的具體實現，包括數據庫的設計和連接，各功能模塊的實現；最后對該軟件進行了嚴格的測試。</p><p>　

3、　關鍵詞： 信息管理；MIS；Delphi7.0；SQL server 2000</p><p>　　The Design and Implementation of Personnel Management System based on Delphi</p><p><b>　　Abstract</b></p><p>　　Along wi

4、th the rapid development of the information science technology, people gradually realize that the utilization of information management software could make the routine more convenient, quickly and efficient. The paper di

5、scusses in detail the development and design process of the external affair of headhunter company management software. It uses Delphi 7.0 as the development platform, SQL Server 2000 as the database management system, a

6、nd includes system management, information setup, st</p><p>　　The paper is organized as following: Firstly, analyzes the background and significance; Secondly, introduces the development tools and the founda

7、tion of the technology; Thirdly, analyses the demand of the system, gives a specific design project and a database model; Then shows the implementation of the whole system, which includes the design and linkage of the da

8、tabase and the implementation of every module. Finally gives a test of the system.</p><p>　　Key words: Information management; MIS;Delphi7.0; SQL server 2000</p><p><b>　　目 錄</b><

9、/p><p><b>　　論文總頁數：28頁</b></p><p><b>　　1 引言1</b></p><p><b>　　1.1 背景1</b></p><p><b>　　1.2意義1</b></p><p><b

10、>　　1.3研究思路3</b></p><p>　　2 開發(fā)工具介紹3</p><p>　　2.1 開發(fā)工具的選擇3</p><p>　　2.2 Delphi 7.0 及 SQL Server 2000簡介4</p><p>　　2.2.1 Delphi 7.0簡介4</p><p>　　

11、2.2.2 SQL Server 2000簡介5</p><p>　　3 需求分析及系統(tǒng)設計6</p><p><b>　　4系統(tǒng)的實現7</b></p><p>　　4.1 數據庫設計7</p><p>　　4.2 各功能模塊的實現11</p><p>　　4.2.1 數據模塊設計1

12、1</p><p>　　4.2.2 登錄界面的設計13</p><p>　　4.2.3 新員工登記模塊設計14</p><p>　　4.2.4 工資設置模塊設計17</p><p>　　4.2.5 主窗體設計19</p><p>　　4.2.6 員工信息瀏覽模塊設計20</p><p>

13、;<b>　　5 系統(tǒng)測試22</b></p><p>　　5.1 測試環(huán)境23</p><p>　　5.2 主要模塊測試23</p><p>　　5.2.1 登錄界面測試23</p><p>　　5.2.2 所得稅模塊測試24</p><p>　　5.2.3 工資設置模塊測試24&l

14、t;/p><p><b>　　結 論25</b></p><p><b>　　參考文獻25</b></p><p><b>　　致 謝27</b></p><p><b>　　聲 明28</b></p><p>

15、;<b>　　1 引言</b></p><p><b>　　1.1 背景</b></p><p>　　對于大中型企業(yè)來說，利用計算機支持企業(yè)高效率完成勞動人事管理的日常事務，是適應現代企業(yè)制度要求、推動企業(yè)勞動人事管理走向科學化、規(guī)范化的必要條件；而工資管理是一項瑣碎、復雜而又十分細致的工作，工資計算、發(fā)放、核算的工作量很大，一般不允許出錯，如果

16、實行手工操作，每月發(fā)放工資須手工填制大量的表格，這就會耗費工作人員大量的時間和精力，計算機進行工資發(fā)放工作，不僅能夠保證工資核算準確無誤、快速輸出，而且還可以利用計算機對有關工資的各種信息進行統(tǒng)計，服務于財務部門其他方面的核算和財務處理，同時計算機具有手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事工資管理的效率,也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要

17、條件。</p><p>　　不同的企業(yè)具有不同的人事、工資管理制度，這就決定了不同的企業(yè)需要不同的人事工資管理系統(tǒng)。企業(yè)以前的所有資料都是用人工記錄的方式來進行管理的，面對目前的實際狀況，迫切需要開發(fā)一個計算機系統(tǒng)來適應這一些工作。</p><p>　　管理信息系統(tǒng)（MIS）的概念是1961年美國人J.D.GALLAGHER首先提出來的，是一門新興的、集管理科學、信息科學、系統(tǒng)科學及計算機

18、科學為一體的綜合性學科，研究的是企業(yè)中信息管理活動的全過程，以便有效的管理信息，提供各類管理決策信息，輔助企業(yè)進行現代化管理。管理信息系統(tǒng)是企業(yè)的信息系統(tǒng)，它具備數據處理、計劃、控制、預測和輔助決策功能，具體作用如下：</p><p>　?。?） 用統(tǒng)一標準處理和提供信息，排除使用前后矛盾的不完整的數據。</p><p>　?。?） 完整、及時提供在管理及決策中需要的數據。</p&g

19、t;<p>　　（3） 利用指定的數據關系式分析數據，客觀預測未來。</p><p>　?。?） 向各級管理機構提供不同詳細程度的報告，縮短分析和解釋時間。</p><p>　　（5） 用最低的費用最短的時間提供盡可能精確、可靠的信息，以便使決策者選擇最佳的實施方案，以提高企業(yè)的經濟效益。</p><p><b>　　1.2意義</b&

20、gt;</p><p>　　企業(yè)人事管理系統(tǒng)是一個現代化的企業(yè)在競爭中立于不敗之地的必要部分，它能夠為查詢人事信息提供充足的信息和快捷的查詢手段。自20世紀50年代將計算機引入數據處理以來，歷經管理信息系統(tǒng)發(fā)展的各個階段。一方面是信息技術應用的迅猛發(fā)展，另一方面，許多管理信息系統(tǒng)在耗費了大量的人力、物力、財力之后夭折了，或者根本沒有實現原定系統(tǒng)開發(fā)目標，或者根本沒有實現原系統(tǒng)的開發(fā)目標，而把計算機用作了打字機。這

21、是長期以來困惑人們的一大問題。現在人們日益深刻認識到，把信息技術應用與應用環(huán)境分離是辦不到的。管理信息系統(tǒng)根本不僅是技術系統(tǒng)，而且是社會系統(tǒng)。管理信息系統(tǒng)是一門融管理科學、信息科學、系統(tǒng)科學、現代通信技術和電子計算機技術為一體的綜合性邊緣學科，它以人為主導，利用計算機硬件、軟件、網絡通信設備辦公設備，進行信息的收集、傳輸、加工、存儲、更新和維護，以及提高企業(yè)效率為目的一種集成化的人機系統(tǒng)。MIS系統(tǒng)涉及到多方面的內容，因此，人們稱MIS

22、學科是一個交叉綜合性的學科。</p><p>　　企業(yè)人事管理是一項瑣碎，繁雜而又非常細致的工作，一般是不允許發(fā)生差錯的，它直接影響著勞動者隊工作的積極性，是提高勞動生產力，提高企業(yè)活力的基礎，在以往手工進行的辦公工作中，需反復的進行各種抄寫，計算等工作，不僅花費大量的時間，而且往往會出錯。計算機應用于企業(yè)的人事信息處理處理，不僅可以使企業(yè)各類人員以最少的勞動和最短的實踐取得足夠的、可靠的、準確的信息。而且可以使

23、他們從簡單的數據統(tǒng)計、收集、匯總等重復繁重的事務中解脫出來。</p><p>　　時至今日，計算機正在令人難以置信的速度步入普通人的學習、工作和生活。在初見端倪的信息化社會里，不能有效使用計算機的單位和個人，無疑將在其個種活動中面臨重重的障礙。計算機已經成為人們日常工作中處理數據的得力助手和工具，數據處理與科學計算、過程控制、輔助設計一起，并稱為計算機四大應用。古往今來，信息都上一種資源，只是未得到應有的重視。事

24、實上，對一個國家來說，信息決定其如何建設和治理；對一個人來說，信息是其決定如何發(fā)展才能適應社會需要的 基本要求；對政府來說，各種必須的信息是其賴以生存和活動至關重要的條件；而對與任何工商貿企業(yè)來說，信息就是他們的生命線，沒有大量的信息想要在市場環(huán)境下生存是不可能的。</p><p>　　由此可見，信息是維持生產活動、經濟活動和社會活動必不可少的基本資源，他是有價值，是構成客觀世界的三大要素之一。同時也說明了一點，

25、就是信息處理也非常的重要。一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產生大量的文件和數據,這對于查找、更新和維護都帶來了不少的困難。隨著計算機技術的飛速發(fā)展，計算機在企業(yè)管理中應用的普及，利用計算機實現企業(yè)人事管理勢在必行。企業(yè)人事信息管理系統(tǒng)是大中型企業(yè)單位不可缺少的工具,它的內容對于企業(yè)的決策者和管理者來說都至關重要,所以企業(yè)人事信息管理系統(tǒng)應該能夠為用戶提供充足的

26、信息和快捷的查詢手段。而如今電腦已經深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設計、圖形圖像處理、教育培訓以及游戲娛樂等。所以利用計算機管理人事是以后企業(yè)最佳選擇。企業(yè)人事管理是相對企業(yè)內部員工的管理。集人員、考勤、工資、員工培訓、系統(tǒng)功能等于一體的大型管理系統(tǒng)。為企業(yè)在人事管理等方面提供極大的方便。不但有利于企業(yè)的統(tǒng)一性管理,而且還大在提高了企業(yè)的全體員工的工作效率和積極性。企業(yè)人事管理可以說是一項瑣碎、繁雜<

27、/p><p><b>　　1.3研究思路</b></p><p>　　正如研究任何其它軟件項目一樣，我做的畢業(yè)設計也經歷了從選題，調研，熟悉開發(fā)環(huán)境，實驗關鍵技術，查找類似的相關系統(tǒng)的資料；系統(tǒng)需求分析，數據庫結構設計，功能模塊開發(fā)，功能模塊測試，系統(tǒng)調試和系統(tǒng)試運行和修改。</p><p><b>　　2 開發(fā)工具介紹</b>

28、;</p><p>　　2.1 開發(fā)工具的選擇</p><p>　　隨著社會需求的推動和計算機技術的發(fā)展普及，各行業(yè)的管理機構需要有計算機來處理大量的信息。選擇一優(yōu)秀的數據庫管理系統(tǒng)作為開發(fā)平臺，將給日后的信息處理帶來便利性。其中，基于微型計算機的數據庫系統(tǒng)是應用最廣泛、實用性最強的一種計算機技術。而事實證明：SQL數據庫是一個廣泛使用、簡單易用、性能價格比較高、工具完整而又豐富、界面友好

29、、處理速度高的關系型數據庫。SQL Server 2000主要用于Windows環(huán)境，利用它可設計出體現Windows風格的豐富多彩的圖形化用戶界面，使用戶的操作和使用十分便利。SQL Server 2000 是為數據庫應用程序開發(fā)而設計的功能強大、面向對象的編程工具。它能夠管理大量復雜的數據信息，同時有具有很好的安全性和較強的網絡功能，甚至還能夠實現數據的遠程訪問和存儲加工。</p><p>　　從本人的實際情

30、況看：因為在校期間也有學習過可視化的編程，對這一類的軟件的使用也有較深的認識，所以說選用SQL Server 2000作為開發(fā)工具是很有優(yōu)勢的。</p><p>　　而對于前臺編程工具，目前比較流行的是VC++,VB，Delphi，PowerBuilder,C++builder等。對底層編程比較需要的地方就大部分VC++，而Delphi的IDE是非常易用的。業(yè)界有一句很經典的話：真正的程序員用VC++，而聰明的程

31、序員用Delphi?？梢?，VC++與Delphi是兩種較優(yōu)秀的語言開發(fā)工具。</p><p>　　Delphi 7.0應用程序開發(fā)工具，是目前最為廣泛的、易學易用的面向對象的開發(fā)工具，Delphi 7.0提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故實現本系統(tǒng)用Delphi作為開發(fā)工具是一個明智的選擇。</

32、p><p>　　2.2 Delphi 7.0 及 SQL Server 2000簡介</p><p>　　2.2.1 Delphi 7.0簡介</p><p>　　Delphi是全新的可視化編程環(huán)境，為我們提供了一種方便、快捷的Windows應用程序開發(fā)工具。它使用了Microsoft Windows圖形用戶界面的許多先進特性和設計思想，采用了彈性可重復利用的完整的面

33、向對象程序語言(Object-Oriented Language)、當今世界上最快的編輯器、最為領先的數據庫技術。它簡單易學、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，使用Delphi開發(fā)應用軟件，無疑會大大地提高編程效率。 </p><p>　　DELPHI最顯著的特點就是高效性和穩(wěn)定性，總的來說，主要體現在以下6個方面： </p><p>　　(1)可視化開發(fā)

34、環(huán)境的性能。</p><p>　　(2)面向對象編程的概念。</p><p>　　(3)編譯器的速度和已編譯代碼的效率。</p><p>　　(4)編程語言的功能及其復雜性。</p><p>　　(5)數據庫結構的靈活性和擴展性。</p><p>　　(6)框架對設計和使用模式的擴充。</p><p

35、>　　Delphi實際上是Pascal語言的一種版本，但它與傳統(tǒng)的Pascal語言有天壤之別。一個Delphi程序首先是應用程序框架，而這一框架正是應用程序的“骨架”。在骨架上即使沒有附著任何東西，仍可以嚴格地按照設計運行。您的工作只是在“骨架”中加入您的程序。缺省的應用程序是一個空白的窗體(Form)，您可以運行它，結果得到一個空白的窗口。這個窗口具有Windows窗口的全部屬性：可以被放大縮小、移動、最大最小化等，但您卻沒有編

36、寫一行代碼。因此，可以說應用程序框架通過提供所有應用程序共有的東西，為用戶應用程序的開發(fā)打下了良好的基礎。Delphi已經為您做好了一切基礎工作--程序框架就是一個已經完成的可運行應用程序，只是不處理任何事情。您所需要做的，只是在程序中加入完成您所需功能的代碼而已。</p><p>　　在空白窗口的背后，應用程序的框架正在等待用戶的輸入。由于您并未告訴它接收到用戶輸入后作何反應，窗口除了響應Windows的基本操

37、作(移動、縮放等)外，它只是接受用戶的輸入，然后再忽略。Delphi把Windows編程的回調、句柄處理等過程都放在一個不可見的Romulam覆蓋物下面，這樣您可以不為它們所困擾，輕松從容地對可視部件進行編程。</p><p>　　2.2.2 SQL Server 2000簡介</p><p>　　SQL Server 2000 繼承了數據庫軟件設計和引擎方面的優(yōu)勢，已經成為新一代網絡應用

38、程序的最佳數據庫和分析解決方案之一。作為Microsoft．NET Enterprise Servers 的核心組件，它將減少電子商務、在線商務和數據倉庫應用程序推向市場的時間，并對需要的環(huán)境提供可靠的支持。SQL Server 2000 對XML和HTTP 提供充分的支持；提供分割裝載和確保時間的特性；提供先進的管理和協(xié)調機制，可以自動管理線程任務，降低總體開銷。SQL Server 2000 是一個具備完全Web 支持的數據庫產品，

39、提供了可擴展標記語言（XML）核心支持以及Internet 上和防火墻外進行查詢的能力，具有可伸縮性、靈活性、擴充性好，而且價格便宜等特點；還可以使用XML 更新程序更容易地插入、更新和刪除數據。使用SQL Server 2000 可以獲得非凡的可伸縮性和可靠性。通過向上伸縮和向外擴展的能力，SQL Server 2000 滿足苛刻的電子商務和企業(yè)應用程序要求。主要體現為：</p><p><b>　　

40、（1）高度可用性；</b></p><p><b>　?。?）可伸縮性；</b></p><p><b>　?。?）安全性；</b></p><p>　?。?）分布式分區(qū)圖；</p><p><b>　?。?）索引視圖；</b></p><p&g

41、t;　?。?）虛擬接口系統(tǒng)網絡；</p><p><b>　?。?）復制特性。</b></p><p>　　SQL Server 2000 是Microsoft．NET Enterprise Server 的數據管理與分析中樞。SQL Server 2000 包括加速從概念到最后交付開發(fā)過程的工具。主要體現為：</p><p>　?。?）經過簡

42、化的數據庫管理；</p><p>　?。?）提高開發(fā)人員的工作效率；</p><p>　?。?）數據轉換服務（DTS）；</p><p>　?。?）擴展應用程序；</p><p><b>　?。?）英語查詢；</b></p><p><b>　?。?）數據挖掘；</b><

43、;/p><p>　?。?）OLAP 服務；</p><p>　　（8）OLAP 靈活性；</p><p>　?。?）閉合循環(huán)分析。</p><p>　　3 需求分析及系統(tǒng)設計</p><p>　　人事管理系統(tǒng)是一個典型的數據庫應用程序，由啟動窗體、登錄模塊、系統(tǒng)主界面、系統(tǒng)管理模塊、信息設置模塊、員工信息管理管理模塊、工資

44、管理模塊等組成，具體的功能模塊如下：</p><p>　　(1)系統(tǒng)管理模塊的主要功能是單位信息、管理員設置、更改密碼、重新登錄。</p><p>　　(2) 信息設置模塊主要功能是對部門信息、工種類型、職稱類型、文化程度、政治面貌、民族類型、得稅設置、考勤設置等進行設置。</p><p>　　(3) 員工信息管理模塊主要功能是新員工登記、應聘登記、員工調動、員工離

45、職、考核管理、合同管理、應聘信息瀏覽、員工信息瀏覽。</p><p>　　(4) 工資管理模塊主要是：設置員工的工資信息、生成工資報表、工資檔案瀏覽。</p><p>　　總之, 開發(fā)這個系統(tǒng)的目的就是要幫助企業(yè)的人事部門提高工作效率，實現企業(yè)人事信息管理系統(tǒng)的系統(tǒng)化、規(guī)范化和自動化。根據這個系統(tǒng)所要實現的目的和任務，總結出這個系統(tǒng)最終要實現的主要功能如下： </p><

46、;p>　　數據設置部分：主要包括考勤錄入功能。</p><p>　　數據修改部分: 主要修改員工信息,修改基本工資,人事調動。</p><p>　　數據采集部分：主要完成日常登記。</p><p>　　數據查詢部分：主要包括用戶信息查詢、考勤信息查詢、工資情況查詢、部門情況查詢各項報表統(tǒng)計等工作。</p><p>　　本系統(tǒng)的功能模塊如

47、圖1所示：</p><p>　　圖1 系統(tǒng)功能模塊圖</p><p><b>　　4系統(tǒng)的實現</b></p><p>　　4.1 數據庫設計 </p><p>　　數據庫是一種存儲數據并對數據進行操作的工具。數據庫的作用在于組織和表達信息，簡而言之，數據庫就是信息的集合。數據庫在系統(tǒng)中占有非常重要的地位，數據庫設計的好

48、壞將直接影響系統(tǒng)的效率。合理的數據庫設計可以提高數據存儲的效率，有利于程序的實現。</p><p>　　創(chuàng)建任何一個數據庫的第一步是仔細的規(guī)劃數據庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數據庫結構的過程被認為是數據模型設計。</p><p>　　1．標識需要的數據；</p><p>　　2．收集被標識的字段到表中；</p><p>　　3．標

49、識主關鍵字字段；</p><p>　　4．繪制一個簡單的數據圖表；</p><p><b>　　5．規(guī)范數據；</b></p><p>　　6．標識指定字段的信息；</p><p><b>　　7．創(chuàng)建物理表。</b></p><p>　　如圖2所示的即為本系統(tǒng)中數據庫中的數

50、據表的樹形結構圖，該數據表樹型結構圖包含系統(tǒng)所有數據表。可以清晰地反應數據庫信息。</p><p>　　圖2 數據表樹形結構圖</p><p><b>　　1．考核表</b></p><p>　　考核表的作用是存入員工每個月的考核信息，考核表結構如表1所示。</p><p><b>　　表1 考核表</

51、b></p><p><b>　　2．考勤表</b></p><p>　　考勤表的作用是存放員工考核的條件，考勤表結構如表2所示。</p><p><b>　　表2 考勤表</b></p><p><b>　　3．工資表</b></p><p>　

52、　工資表的作用是存放員工每個月的工資信息，工資表結構如表3所示。</p><p><b>　　表3 工資表</b></p><p><b>　　4．人事表</b></p><p>　　人事表用來存放員工的詳細信息，人事表結構如表4所示。</p><p><b>　　表4 人事表</b

53、></p><p>　　4.2 各功能模塊的實現</p><p>　　4.2.1 數據模塊設計</p><p>　　數據模塊窗體主要功能是統(tǒng)一管理數據庫訪問組件，在本系統(tǒng)中，這個模塊是最重要的模塊，其他模塊都要通過這個模塊中的組件訪問數據庫，雖然只有簡單的組件屬性設置，Delphi自動生成代碼，但是不容有誤。數據模塊如圖3所示：</p><

54、p><b>　　圖3 數據模塊</b></p><p>　　此模塊的設計步驟如下：</p><p>　?。?）在Delphi中選擇“File”/“New”/“Data Module”菜單項，新建一個數據模塊，命名為“Data1”。</p><p>　　（2）在“ADO”組件頁中點選“TADOConnection”組件，添加到窗體上，TA

55、DOConnection組件用到連接數據庫，其它數據庫組件通過它連接數據庫。</p><p>　　（3）點選ADOConnection1組件，在“Object Inspector”窗口中，單擊ConnectionString屬性右側的【…】按鈕，彈出對話框如圖4所示。</p><p>　　圖4 數據連接對話框</p><p>　　（4）單擊【Build】按鈕，在彈出

56、的對話框中的“提供程序”選項卡中設置希望連接的數據，如圖5所示。</p><p>　　圖5 連接屬性對話框</p><p>　?。?）選擇“連接”選項卡，設置連接相關設置，如圖6所示。</p><p>　　圖6 連接屬性對話框</p><p>　?。?）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數據庫的連接。&l

57、t;/p><p>　?。?）在窗體上添加TADOQuery組件，設置Connection為“ADOConnection1”。</p><p>　　這里的每個TADOQuery組件連接一個數據表。</p><p>　　4.2.2 登錄界面的設計</p><p>　　登錄界面主要是用于對用戶進行安全性檢查，以防止非法用戶進入該系統(tǒng)。只有合法的用戶，才

58、可以進入系統(tǒng)。</p><p>　　驗證操作員及其密碼。主要是通過對數據表中的操作員信息表的查詢，判斷用戶輸入的密碼是否符合數據庫中的信息，如果符合則允許登錄；否則會有相應的提示。為了安全本系統(tǒng)會在三次錯誤之后自動關閉。</p><p><b>　　圖7 登錄界面</b></p><p>　　此模塊的設計步驟如下：</p><

59、;p>　?。?）新建一個窗體，命名為“frm_Login”，設置Caption屬性為“登錄”，設置Position屬性為“poScreenCenter”。</p><p>　?。?）在“Additional”組件頁中點選“TImage”組件，添加到窗體上，設置Align屬性為“alClient”；Stretch屬性為“Tree”，在Pictuer屬性中添加圖片。</p><p>　　

60、（3）在“Standard”組件頁中點選“TEdit”組件，添加到窗體上，設置Ctl3D屬性為“False”；設置Text屬性為空，設置Edir2的PasswordChar屬性為“*”。</p><p>　?。?）在“Additional”組件頁中點選“TSpeedButton”組件，添加到窗體上，設置Caption屬性分別為“登錄”和“取消”；設置Flat屬性為“True”。</p><p&

61、gt;　　此模塊調用了數據模塊中的ADOquery組件連接數據庫，然后用select語句對操作員信息這張數據表進行操作。對數據庫的操作主要由以下代碼實現：</p><p>　　with Data1.ADOlogin do</p><p><b>　　begin</b></p><p><b>　　close;</b><

62、;/p><p>　　sql.Clear;</p><p>　　sql.Add('select * from 操作員信息表 where 操作員名稱 = :a and 操作員密碼 = :b'); </p><p>　　//使用SQL語句檢索數據表中的用戶名和密碼</p><p>　　parameters.ParamByName(

63、9;a').Value:=trim(edit1.Text);</p><p>　　parameters.ParamByName('b').Value:=trim(edit2.Text);</p><p><b>　　open; </b></p><p><b>　　end;</b></p>

64、;<p>　　這里將輸入的用戶名和密碼與操作員信息表中的操作員名稱和操作員密碼進行比較，如果兩者相同才能進入本系統(tǒng)。 </p><p>　　4.2.3 新員工登記模塊設計</p><p>　　新員工登記模塊，主要用于添加、修改新員工的個人基本信息，如：姓名、性別、民族、文化程度等。新員工登記模塊運行結果如圖8所示。</p><p>　　圖8 新

65、員工登記模塊</p><p><b>　　此模塊設計如下：</b></p><p>　　（1）新建一個窗體，命名為“frm_xygdj”，設置Caption屬性為“新員工登記”，設置Position屬性為“poScreenCenter”。</p><p>　?。?）在窗體中添加“TPanel”組件、“TGroupBox”組件、“TEdit”組件

66、、“TCombobox” 組件、“TLabel”組件、“TMaskEdit”組件、“TMemo”組件、“TBitbtn”組件、“TImage”組件，設置屬性如表5所示。</p><p>　　表5 主要組件屬性設置</p><p>　　此模塊調用數據模塊中的ADOquery組件連接數據庫中的人事表。</p><p>　　“保存”按鈕的功能主要是通過Insert語句向數

67、據庫中插入和添加數據，這段Insert語句如下：</p><p>　　with data1.ADOQYygxx do</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　sql.Clear;</p><p>　

68、　sql.Add('insert 人事表 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o,:p,:q,:r,:s,:t,:u,:v,:w,:x,:y,:z,:aa,:ab,:ac,:ad,:ae,:af)');</p><p>　　這里需要注意的是在“insert 人事表 values”后面的括號中的項目數要與數據表中的字段數目相同，因為這

69、是向數據表中依次插入數據，如果不相同就會出錯。</p><p>　　在編輯框的OnChange事件中添加如下代碼，用來控制保存按鈕的使用，如果沒有完全填寫信息，bitbtn的Enabled屬性就設置為false，則設置【保存】按鈕不可用。這部分判斷輸入是否為空的實現如下：</p><p>　　procedure Tfrm_xygdj.Edit1Change(Sender: TObject)

70、;</p><p><b>　　begin</b></p><p>　　if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and(edit7.

71、Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<

72、;>'') and (edit16.Text<>'') and(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and(combobox

73、5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and(combobox9.Text<>'') and (combobox1.Text<>'')&

74、lt;/p><p>　　bitbtn1.Enabled:=true</p><p><b>　　else</b></p><p>　　bitbtn1.Enabled:=false;</p><p><b>　　end;</b></p><p>　　在窗體的OnShow事件中添加如

75、下代碼，用來向下拉列表框（TCombobox）組件添加數據表中的數據，為了避免下拉列表框中出現重復，這里用了select distinct語句，以民族為例。 </p><p>　　with data1.ADOpublic do</p><p><b>　　begin</b></p><p><b>　　close;</b>

76、</p><p>　　sql.Clear;</p><p>　　sql.Add('select distinct 民族 from 民族表');</p><p><b>　　open;</b></p><p><b>　　end;</b></p><p>　　w

77、hile Not Data1.ADOpublic.Eof do //在不是最后一條記錄時進行循環(huán)</p><p><b>　　begin</b></p><p>　　ComboBox1.Items.Add(Data1.ADOpublic.FieldByName('民族').Value);</p><p>　　Data1.AD

78、Opublic.Next; //將指針指向下一條記錄</p><p><b>　　end;</b></p><p>　　此模塊中的，婚姻狀況、文化程度等所有下拉列表框的實現都是這樣，這里不再重復。</p><p>　　在一個企業(yè)里，難免會用重名的員工，所以姓名不能作為員工的唯一標識，那么如果用員工編號來做唯一標識，就可以解決這個問題了。人為

79、的編號也難免會出錯，所以在這里我們設置單擊“添加”按鈕自動生成員工編號。</p><p>　　這個功能實現，首先需要使用select語句在人事表中找到最大的編號，實現如下：</p><p><b>　　begin</b></p><p><b>　　Close;</b></p><p>　　SQL.

80、Clear;</p><p>　　SQL.Add('select max(bh) as ss From 人事表 ');</p><p><b>　　Open;</b></p><p><b>　　end;</b></p><p>　　當然，如果是第一次添加新員工，返回值為空時，編號就

81、由001開始編排。</p><p>　　If data1.ADOpublic.FieldByName('ss').Value = null then</p><p>　　s :=’mr’+'001'</p><p>　　如果不為空就需要分情況進行處理，這里實現代碼如下：</p><p>　　m:= Trim(d

82、ata1.ADOpublic.FieldByName('ss').Value) ;</p><p>　　n:= StrToInt(copy(m,4,2)) ;//將m的值從第4位取2位變?yōu)檎?lt;/p><p>　　if n<9 then</p><p>　　s:= s+'00'+ InttoStr(n +1)</p>

83、<p>　　else if n<99 then</p><p>　　s:=s+'0'+ InttoStr(n +1)</p><p><b>　　else</b></p><p>　　s:= s+InttoStr(n +1);</p><p>　　這樣就有效的避免了人為操作的輸入失誤。

84、</p><p>　　4.2.4 工資設置模塊設計</p><p>　　工資設置模塊主要用于設置員工的工資信息，此窗體中主要應用的也是基本的SQL語句Insert向數據中插入數據。工資設置模塊運行結果如圖9所示。</p><p><b>　　圖9 工資設置模塊</b></p><p>　　此模塊主要用了以下的組件：“TP

85、anel”組件、“TGroupBox”組件、“TLabel”組件、“TEdit”組件、“TCombobox”組件、“TCheckBox”組件、“TBitBtn”組件、“TDataSource”組件、“TDBGrid”組件，其中“TDataSource”組件、“TDBGrid”組件兩個組件是顯示數據庫中內容的組件在運行時是看不到的。</p><p>　　工資設置模塊連接數據庫也和其他模塊一樣用的是數據模塊中的ADO

86、query組件。</p><p>　　此模塊在“員工編號”的下拉列表框中選中選擇編號后員工姓名的列表框中的自動變?yōu)橄鄬男彰?，這個功能首先也是用的select語句對數據庫進行查詢。查詢代碼如下：</p><p><b>　　begin</b></p><p><b>　　close;</b></p><

87、;p>　　sql.Clear;</p><p>　　sql.Add('select * from 人事表 where bh=:a');</p><p>　　parameters.ParamByName('a').Value:=combobox1.Text;</p><p><b>　　open;</b>&l

88、t;/p><p><b>　　end;</b></p><p>　　然后再將查詢到的行中的“姓名”字段中的值賦給模塊中的姓名后的combobox組件的text屬性，由下面一條代碼完成。</p><p>　　combobox2.Text:=data1.ADOpublic.FieldByName('xm').Value;</p&g

89、t;<p>　　本系統(tǒng)能夠通過輸入工資來對所要交納的個人所得稅的級別來進行判斷，這需要在基本工資后的OnChange事件中添加代碼。</p><p>　　首先同樣是用select語句查詢個人所得稅表，然后執(zhí)行以下代碼：</p><p>　　while not data1.ADOQYsl.Eof do</p><p><b>　　begin&l

90、t;/b></p><p>　　if (strtofloat(edit1.Text)>=data1.ADOQYsl.FieldByName('應納所得稅金額下限').Value) and</p><p>　　(strtofloat(edit1.Text)<data1.ADOQYsl.FieldByName('應納所得稅金額上限').Valu

91、e) then</p><p>　　edit7.Text:=data1.ADOQYsl.FieldByName('級別號').Value;</p><p>　　data1.ADOQYsl.Next;</p><p><b>　　end;</b></p><p>　　這段代碼中運用了ADOquery組件的E

92、of屬性返回數據集的最后一條記錄、ADOquery組件的Next屬性返回數據集中當前記錄的下一條記錄，這兩個屬性主要是實現對數據表的逐一查詢。</p><p>　　4.2.5 主窗體設計</p><p>　　主窗體中主要控制方式是通過菜單和工具欄按鈕來調用子窗體，它的背景區(qū)由一幅圖片填充。人事管理系統(tǒng)主窗體運行結果如圖10所示。</p><p>　　圖10 人事管

93、理系統(tǒng)主窗體</p><p>　　此窗體的設計主要運用了以下組件：“TMainMenu”組件、“TCoolBar”組件、“TSpeenButton”組件、“TPanel”組件、“TImage”組件、“TOpenDialog”組件和“TSaveDialog”組件。</p><p>　　為了防止數據庫被破壞，或者用戶的修改不合理需要還原，所以這里設置了數據庫備份和數據庫恢復，主要原理是將數據庫

94、文件拷貝另外的磁盤，這里運用了sql的BACKUP DATABASE語句和restore database語句，數據庫備份由以下的代碼完成：</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　sql.Clear;</p><p>　

95、　sql.Add(' BACKUP DATABASE '+'db_manpowerinfo'+ ' TO DISK =''' +save+'''');</p><p><b>　　execsql;</b></p><p>　　application.MessageBox(

96、'數據備份成功','提示',0+64);</p><p><b>　　except</b></p><p>　　application.MessageBox('數據庫備份失敗，請檢查備份的路徑或網絡狀態(tài)！','數據庫備份',0+mb_iconinformation);</p><p&g

97、t;<b>　　end;</b></p><p>　　數據庫還原由以下代碼實現：</p><p><b>　　begin</b></p><p><b>　　Close;</b></p><p>　　SqL.Clear;</p><p>　　SQL.Ad

98、d('use master restore database db_manpowerinfo from disk='+''''+dir+'''');</p><p><b>　　ExecSQL;</b></p><p><b>　　Close;</b></p&g

99、t;<p>　　SqL.Clear;</p><p>　　SQL.Add('use db_manpowerinfo ');</p><p><b>　　ExecSQL ;</b></p><p><b>　　end;</b></p><p>　　4.2.6 員工信息瀏

100、覽模塊設計</p><p>　　可以通過瀏覽模塊查看員工的詳細信息，還可以修改和刪除信息，并通過條件查詢來查看某人的信息。員工信息瀏覽模塊的運行結果如圖11所示。</p><p>　　圖11 員工信息瀏覽模塊</p><p>　　此模塊主要運用了以下組件：“TPanel”組件、“TLabel”組件、“TCombobox”組件、“TEdit”組件、“TBitbtn”組

101、件、“Treeview”組件、“Datasource”組件、“TDBGrid”組件，其中“Datasource”組件和“TDBGrid”組件是顯示數據庫中內容的組件，在運行時頁面上看不到的。</p><p>　　TTreeView是顯示單位信息和員工信息，如果在設計時就設計好，在公司增加部門的時候就會無法添加，所以在這里是通過對單位信息表和部門信息表進行檢索后動態(tài)地創(chuàng)建樹形選項。在窗體的OnShow事件中添加如下

102、代碼：</p><p>　　procedure Tfrm_ygxill.FormShow(Sender: TObject);</p><p><b>　　var</b></p><p>　　a,b:string;</p><p>　　subt:TTreenode;</p><p><b>

103、;　　begin</b></p><p>　　with data1.ADOQuery1 do</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　sql.Clear;</p><p>　　sql.A

104、dd('select * from 人事表');</p><p><b>　　open;</b></p><p><b>　　end;</b></p><p>　　data1.ADOQuery1.Active:=true;</p><p>　　with data1.ADOpublic

105、 do</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　sql.Clear;</p><p>　　sql.Add('select distinct 單位名稱 from 單位信息表');</p><

106、;p><b>　　open;</b></p><p><b>　　end;</b></p><p>　　a:=data1.ADOpublic.FieldByName('單位名稱').Value;</p><p>　　subt:=Treeview1.Items.Add(nil,a);</p>

107、<p>　　with data1.ADOpublic do</p><p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　sql.Clear;</p><p>　　sql.Add('select distinct 部門名稱

108、 from 部門表');</p><p><b>　　open;</b></p><p><b>　　end;</b></p><p>　　while Not Data1.ADOpublic.Eof do</p><p><b>　　begin</b></p>

109、;<p>　　b:=Data1.ADOpublic.FieldByName('部門名稱').Value;</p><p>　　Data1.ADOpublic.Next;</p><p>　　Treeview1.Items.AddChild(subt,b);</p><p><b>　　end;</b></p&

110、gt;<p>　　TreeView1.FullExpand;</p><p><b>　　end;</b></p><p>　　在以上代碼中，主要運用了select distinct來保證名稱的唯一性，以及ADOquery組件的Eof屬性返回數據集的最后一條記錄，ADOquery組件的Next屬性返回數據集中當前記錄的下一條記錄，這樣就保證了對數據表中的

111、所有行進行查詢。</p><p>　　以上六個模塊是了整個系統(tǒng)的主要模塊，包含了員工信息添加，修改，刪除，以及工資管理模塊和系統(tǒng)最重要的連接數據庫模塊，其他模塊的代碼與組件設置和以上代碼都有相同之處，在這里就不全部列出。</p><p><b>　　5 系統(tǒng)測試</b></p><p><b>　　5.1 測試環(huán)境</b>

112、</p><p>　　1.操作系統(tǒng)： Windows2000。</p><p>　　2.硬件：IBM兼容PC。</p><p>　　5.2 主要模塊測試</p><p>　　5.2.1 登錄界面測試</p><p>　　完成了以上工作,一個人事管理系統(tǒng)就基本做成,下面就進行必要的測試,首先是登錄界面,這是整個系統(tǒng)的開始

113、,所以比較重要。</p><p>　　圖12 登錄界面測試</p><p>　　如果輸入的用戶名和密碼匹配，點登錄后則顯示主頁面，如下圖： </p><p><b>　　圖13 主界面</b></p><p>　　系統(tǒng)最上面列出來了本系統(tǒng)的四個大的模塊，在第二行將整個系統(tǒng)的主要功能全部列出，方便用戶查找。當然這些功能也包

114、含在幾個功能模塊之中，也可以點擊功能模塊進行選擇。</p><p>　　5.2.2 所得稅模塊測試</p><p>　　在菜單中，選擇“信息設置”-->“所得稅設置”，進入所得稅設置界面，如圖14所示：</p><p>　　圖14 所得稅設置測試</p><p>　　這里可以設置工資在那個段屬于什么級別，應該交納的所得稅率，當設置完成之

115、后就能操作保存和取消按扭了，沒有完成設置是不能對他們進行操作的。</p><p>　　5.2.3 工資設置模塊測試</p><p>　　圖15 工資設置測試</p><p>　　工資設置里面能對每一位員工的工資進行設置，如果不勾設置保險，那么該員工的保險就默認為0，即不購買保險。</p><p>　　以上就是系統(tǒng)的部分功能，經測試無大的問題。

116、</p><p><b>　　結 論</b></p><p>　　總結本系統(tǒng)的開發(fā)我做了如下工作,首先了解系統(tǒng)需要實現如下功能:具有良好的操作界面；業(yè)務模塊能夠自由增加、修改及刪除信息；建立數據庫備份機制，并提供數據災難恢復功能；支持數據的查詢機制；自動計算員工工資；實現員工崗位調動操作；實現員工離職、復職操作。然后收集數據,分析數據,創(chuàng)建數據表。最后完成各個前

117、臺窗體的設計。通過這次畢業(yè)設計,讓我對系統(tǒng)的開發(fā)有了初步的了解。對Delphi 7.0 及SQL Server 2000兩種開發(fā)工具也有了較為熟悉的掌握。</p><p><b>　　參考文獻</b></p><p>　　[1] 李林. 實例解析Delphi6.0應用編程[M].北京:高等教育出版社,1997。</p><p>　　[2] 劉藝

118、. Delphi5企業(yè)級解決方案及應用剖析[M].北京:機械工藝出版社,2000。</p><p>　　[3] 薩師煊，王珊. 數據庫系統(tǒng)概論[M].陜西:高等教育出版社,1997。</p><p>　　[4] 林華聰，余劍鋒. Delphi 6數據庫設計思想與實踐[M].天津:冶金工業(yè)出版社,2002。</p><p>　　[5] 岳慶生. 版主答疑--Delph

119、i高級編程技巧[M].北京:清華大學出版社,2000。</p><p>　　[6] 飛思科研產品研發(fā)中心.Delphi數據庫應用開發(fā)[M].北京:電子工業(yè)出版社,2003。</p><p>　　[7] 飛思科研產品研發(fā)中心.Delphi網絡應用開發(fā)[M].北京：電子工業(yè)出版社,2003。</p><p>　　[8] 陳豫龍.Delphi數據庫系統(tǒng)開發(fā)實例導航[M].