基于delphi的公司人事管理系統(tǒng)的設(shè)計與實現(xiàn)課程設(shè)計

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

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

3、<p>　　關(guān)鍵詞： 信息管理；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>

4、　　Along with 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. Th

5、e paper discusses 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

6、 system, and 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

7、the foundation 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

8、 of the database 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>　　目 錄<

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

10、p><b>　　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>&

11、lt;p>　　2.2.2 SQL Server 2000簡介5</p><p>　　3 需求分析及系統(tǒng)設(shè)計6</p><p><b>　　4系統(tǒng)的實現(xiàn)7</b></p><p>　　4.1 數(shù)據(jù)庫設(shè)計7</p><p>　　4.2 各功能模塊的實現(xiàn)11</p><p>　　4.2.

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

13、<p><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 工資設(shè)

14、置模塊測試24</p><p><b>　　結(jié) 論25</b></p><p><b>　　參考文獻25</b></p><p><b>　　致 謝27</b></p><p><b>　　聲 明28</b></p>

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

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

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

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

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

20、2意義</b></p><p>　　企業(yè)人事管理系統(tǒng)是一個現(xiàn)代化的企業(yè)在競爭中立于不敗之地的必要部分，它能夠為查詢?nèi)耸滦畔⑻峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。?0世紀50年代將計算機引入數(shù)據(jù)處理以來，歷經(jīng)管理信息系統(tǒng)發(fā)展的各個階段。一方面是信息技術(shù)應(yīng)用的迅猛發(fā)展，另一方面，許多管理信息系統(tǒng)在耗費了大量的人力、物力、財力之后夭折了，或者根本沒有實現(xiàn)原定系統(tǒng)開發(fā)目標，或者根本沒有實現(xiàn)原系統(tǒng)的開發(fā)目標，而把計

21、算機用作了打字機。這是長期以來困惑人們的一大問題。現(xiàn)在人們?nèi)找嫔羁陶J識到，把信息技術(shù)應(yīng)用與應(yīng)用環(huán)境分離是辦不到的。管理信息系統(tǒng)根本不僅是技術(shù)系統(tǒng)，而且是社會系統(tǒng)。管理信息系統(tǒng)是一門融管理科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)、現(xiàn)代通信技術(shù)和電子計算機技術(shù)為一體的綜合性邊緣學(xué)科，它以人為主導(dǎo)，利用計算機硬件、軟件、網(wǎng)絡(luò)通信設(shè)備辦公設(shè)備，進行信息的收集、傳輸、加工、存儲、更新和維護，以及提高企業(yè)效率為目的一種集成化的人機系統(tǒng)。MIS系統(tǒng)涉及到多方面的內(nèi)容

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

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

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

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

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

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

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

29、整而又豐富、界面友好、處理速度高的關(guān)系型數(shù)據(jù)庫。SQL Server 2000主要用于Windows環(huán)境，利用它可設(shè)計出體現(xiàn)Windows風(fēng)格的豐富多彩的圖形化用戶界面，使用戶的操作和使用十分便利。SQL Server 2000 是為數(shù)據(jù)庫應(yīng)用程序開發(fā)而設(shè)計的功能強大、面向?qū)ο蟮木幊坦ぞ摺Ｋ軌蚬芾泶罅繌?fù)雜的數(shù)據(jù)信息，同時有具有很好的安全性和較強的網(wǎng)絡(luò)功能，甚至還能夠?qū)崿F(xiàn)數(shù)據(jù)的遠程訪問和存儲加工。</p><p>

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

31、VC++，而聰明的程序員用Delphi?？梢?，VC++與Delphi是兩種較優(yōu)秀的語言開發(fā)工具。</p><p>　　Delphi 7.0應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具，Delphi 7.0提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。故實現(xiàn)本系統(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應(yīng)用程序開發(fā)工具。它使用了Microsoft Windows圖形用戶界面的許多先進特性和設(shè)計思想，采用了彈性

33、可重復(fù)利用的完整的面向?qū)ο蟪绦蛘Z言(Object-Oriented Language)、當今世界上最快的編輯器、最為領(lǐng)先的數(shù)據(jù)庫技術(shù)。它簡單易學(xué)、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，使用Delphi開發(fā)應(yīng)用軟件，無疑會大大地提高編程效率。 </p><p>　　DELPHI最顯著的特點就是高效性和穩(wěn)定性，總的來說，主要體現(xiàn)在以下6個方面： </p><p>

34、　　(1)可視化開發(fā)環(huán)境的性能。</p><p>　　(2)面向?qū)ο缶幊痰母拍睢?lt;/p><p>　　(3)編譯器的速度和已編譯代碼的效率。</p><p>　　(4)編程語言的功能及其復(fù)雜性。</p><p>　　(5)數(shù)據(jù)庫結(jié)構(gòu)的靈活性和擴展性。</p><p>　　(6)框架對設(shè)計和使用模式的擴充。</p&

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

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

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

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

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

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

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

42、t;　　（1）經(jīng)過簡化的數(shù)據(jù)庫管理；</p><p>　?。?）提高開發(fā)人員的工作效率；</p><p>　?。?）數(shù)據(jù)轉(zhuǎn)換服務(wù)（DTS）；</p><p>　?。?）擴展應(yīng)用程序；</p><p><b>　?。?）英語查詢；</b></p><p><b>　　（6）數(shù)據(jù)挖掘；<

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

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

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

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

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

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

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

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

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

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

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

54、><p><b>　　圖3 數(shù)據(jù)模塊</b></p><p>　　此模塊的設(shè)計步驟如下：</p><p>　　（1）在Delphi中選擇“File”/“New”/“Data Module”菜單項，新建一個數(shù)據(jù)模塊，命名為“Data1”。</p><p>　?。?）在“ADO”組件頁中點選“TADOConnection”組件

55、，添加到窗體上，TADOConnection組件用到連接數(shù)據(jù)庫，其它數(shù)據(jù)庫組件通過它連接數(shù)據(jù)庫。</p><p>　?。?）點選ADOConnection1組件，在“Object Inspector”窗口中，單擊ConnectionString屬性右側(cè)的【…】按鈕，彈出對話框如圖4所示。</p><p>　　圖4 數(shù)據(jù)連接對話框</p><p>　?。?）單擊【Bu

56、ild】按鈕，在彈出的對話框中的“提供程序”選項卡中設(shè)置希望連接的數(shù)據(jù)，如圖5所示。</p><p>　　圖5 連接屬性對話框</p><p>　?。?）選擇“連接”選項卡，設(shè)置連接相關(guān)設(shè)置，如圖6所示。</p><p>　　圖6 連接屬性對話框</p><p>　　（6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完

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

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

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

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

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

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

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

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

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

66、、“TEdit”組件、“TCombobox” 組件、“TLabel”組件、“TMaskEdit”組件、“TMemo”組件、“TBitbtn”組件、“TImage”組件，設(shè)置屬性如表5所示。</p><p>　　表5 主要組件屬性設(shè)置</p><p>　　此模塊調(diào)用數(shù)據(jù)模塊中的ADOquery組件連接數(shù)據(jù)庫中的人事表。</p><p>　　“保存”按鈕的功能主要是通過

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

68、<p>　　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”后面的括號中的項目數(shù)要與數(shù)據(jù)表中的

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

70、: TObject);</p><p><b>　　begin</b></p><p>　　if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (maskedit5.Text<>'

71、9;) then</p><p>　　bitbtn1.Enabled:=true</p><p><b>　　else</b></p><p>　　bitbtn1.Enabled:=false;</p><p><b>　　end;</b></p><p>　　在窗體的OnS

72、how事件中添加如下代碼，用來向下拉列表框（TCombobox）組件添加數(shù)據(jù)表中的數(shù)據(jù)，為了避免下拉列表框中出現(xiàn)重復(fù)，這里用了select distinct語句，以民族為例。 </p><p>　　with data1.ADOpublic do</p><p><b>　　begin</b></p><p><b>　　close;&

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

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

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

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

77、gt;　　SQL.Clear;</p><p>　　SQL.Add('select max(bh) as ss From 人事表 ');</p><p><b>　　Open;</b></p><p><b>　　end;</b></p><p>　　當然，如果是第一次添加新員工，返

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

79、:= Trim(data1.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)&

80、lt;/p><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>　　這樣就有效的避免了人