人事工資管理系統(tǒng)

1、高等教育自學考試本科畢業(yè)論文（計算機信息管理專業(yè)）人事工資管理系統(tǒng)申請人 姓名 學 科 專 業(yè) 計算機信息管理 指 導 教 師 長沙航空職業(yè)技術學院二二年十月摘要隨著計算機技術的飛速發(fā)展，計算機在企業(yè)管理中應用的普及，利用計算機實現(xiàn)企業(yè)人事工資的管理勢在必行。本系統(tǒng)結合某中型公司實際的人事、財務制度，經(jīng)過實際的需求分析，采用功能強大的DDLPHI 5做為開發(fā)工具、Paradox7做為數(shù)據(jù)庫開發(fā)出來的單機版人事管工資理系統(tǒng)。整個系統(tǒng)從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，完成人事、工資管理的全過程，包括新進員工加入時人事檔案的建立、老員工的轉(zhuǎn)出、職位等的變動引起職工信息的修改、員工

2、信息查詢、統(tǒng)計等人事管理工作以及新進員工工資的新增、老員工工資修改、出盤、工資短信等工資管理工作。經(jīng)過實際使用證明，本文所設計的人事工資管理系統(tǒng)可以滿足某中型公司人事、工資管理方面的需要。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。重點的說明了系統(tǒng)設計的重點、設計思想、難點技術和解決方案。關鍵詞：數(shù)據(jù)庫，Paradox7，Delph 5，出盤，工資短信、人事工資管理目 錄第一章 緒 論51.1 課題來源51.2 開發(fā)工具的選擇51.3 本文所作工作6第二章 需求分析82.1 總體需求調(diào)查82.1.1 組織結構圖82.1.2 系統(tǒng)目標82.1.3 應用現(xiàn)狀調(diào)查82.1.4業(yè)務總體

3、流程調(diào)查82.2系統(tǒng)功能調(diào)查92.2.1人事管理功能102.2.2工資管理功能102.2.3系統(tǒng)維護功能102.3系統(tǒng)功能模塊圖10第三章 概要設計113.1概念設計113.2數(shù)據(jù)庫設計133.2.1 ygzlb（員工資料表）133.2.2 Yhklb用戶口令表143.2.3 Ygxjjgb員工薪金結構表143.2.4 Kjcsb控制參數(shù)表153.2.5 Jbcsb基本參數(shù)表16第四章 詳細設計174.1啟動界面設計174.1.1 功能說明174.1.2屏幕格式設計174.2 登錄窗口設計174.2.1功能說明174.2.2屏幕格式設計184.2.3源程序分析184.3 主窗口設計194.3.

4、1功能說明194.3.2屏幕格式設計204.3.3源程序分析214.4人事管理模塊的實現(xiàn)244.4.2員工基本信息維護274.4.3員工基本信息查看:294.4.4員工基本信息條件查詢304.4.5人事狀況曲線:324.4.6企業(yè)員工花名冊:334.5 工資管理模塊的實現(xiàn)334.5.1出盤334.5.2員工工資結構調(diào)整474.5.3工資短信504.6系統(tǒng)維護模塊設計544.6.1基本參數(shù)維護544.6.2 用戶管理554.7系統(tǒng)其它功能的實現(xiàn)564.7.1 打開計算器564.7.2打開寫字板574.7.3窗口的層疊、平鋪、極小化操作574.7.4關于窗口的實現(xiàn)57第五章 畢業(yè)設計小結57第一章

5、 緒 論 1.1 課題來源隨著計算機技術的飛速發(fā)展，計算機在企業(yè)管理中應用的普及，利用計算機實現(xiàn)企業(yè)人事工資的管理勢在必行。對于大中型企業(yè)來說，利用計算機支持企業(yè)高效率完成勞動人事管理的日常事務，是適應現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動人事管理走向科學化、規(guī)范化的必要條件；而工資管理是一項瑣碎、復雜而又十分細致的工作，工資計算、發(fā)放、核算的工作量很大，一般不允許出錯，如果實行手工操作，每月發(fā)放工資須手工填制大量的表格，這就會耗費工作人員大量的時間和精力，計算機進行工資發(fā)放工作，不僅能夠保證工資核算準確無誤、快速輸出，而且還可以利用計算機對有關工資的各種信息進行統(tǒng)計，服務于財務部門其他方面的核算和財

6、務處理，同時計算機具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事工資資管理的效率,也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要條件。不同的企業(yè)具有不同的人事、工資管理制度，這就決定了不同的企業(yè)需要不同的人事工資管理系統(tǒng)。某中型公司以前的所有資料都是用Foxbase來進行管理的，面對目前的實際狀況，迫切需要開發(fā)一個新系統(tǒng)來適應這一些工作。1.2 開發(fā)工具的選擇現(xiàn)在，市場上可以選購的應用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場上最為流行、使用最多、最為先進的可用作企業(yè)級開發(fā)工具的產(chǎn)品有：Microsoft

7、公司的Visual BasicMicrosoft公司的Visual CBorland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市場上這些眾多的程序開發(fā)工具中，有些強調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標榜的效率提高的優(yōu)點失去了作用；相反，如果只強調(diào)程語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，

8、也會嚴重地浪費程序設計師的寶貴時間。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Delphi是一個非常理想選擇。Delphi因簡單易學、功能強大、編譯速度快而從眾多的軟件開發(fā)工具中脫穎而出。它提供了靈活的可視化設計工具，將可視化界面與面向?qū)ο蠹夹g完善、緊密地結合起來，并封裝了Windows編程的復雜性。程序的規(guī)模小到簡單的個人數(shù)據(jù)庫應用，大到復雜的企業(yè)的多層次分布式系統(tǒng)，都可以使用Delphi進行開發(fā)，其友好的集成開發(fā)界面，可視化的雙向開發(fā)模式，良好的數(shù)據(jù)庫應用支持高效的程序開發(fā)和程序運行，備受廣大程序開發(fā)人員的好評。尤其是Delphi對數(shù)據(jù)庫應用的強大支持，大大提高了數(shù)據(jù)庫應用軟件開發(fā)的效率，縮短了開發(fā)周期，深受

9、廣大數(shù)據(jù)庫應用程序設計人員的喜愛。Delphi為數(shù)據(jù)庫應用開發(fā)人員提供了豐富的數(shù)據(jù)庫開發(fā)組件，使數(shù)據(jù)庫應用開發(fā)功能更強大，控制更靈活，編譯后的程序運行速度更快。本系統(tǒng)采用Dephi 5而不選擇Dephi 6、Dephi 7是因為開發(fā)移動2000綜合業(yè)務管理系統(tǒng)的過程中發(fā)現(xiàn)其穩(wěn)定性比較好，所以到現(xiàn)在還用它。 1.3 本文所作工作第一章 緒論部分 主要敘述課題提出背景、目前應用現(xiàn)狀、分析比較當前開發(fā)工具，數(shù)據(jù)庫技術的比較。第二章 結合軟件工程方法,對系統(tǒng)進行需求分析、功能劃分、數(shù)據(jù)流圖設計，并結合數(shù)據(jù)庫原理和功能劃分進行ER圖的繪制、數(shù)據(jù)庫結構設計，第三章 根據(jù)需求分析的結果，用戶概念數(shù)據(jù)模型表示

10、數(shù)據(jù)及其相互間的聯(lián)系。第四章 根據(jù)需求分析的結果，對系統(tǒng)進行詳細設計，主要介紹用Delphi和Pradox實現(xiàn)每一個模塊的具體功能。第五章 畢業(yè)設計小結，總結部分介紹了設計體會和編程體會，并指出了系統(tǒng)設計中的不足和改進的方向。第二章 需求分析2.1 總體需求調(diào)查2.1.1 組織結構圖某中型公司組織結構圖如下2.1.2 系統(tǒng)目標采用公司現(xiàn)有的軟硬件軟件及科學的管理系統(tǒng)開發(fā)方案，建立某中型人事工資管理系統(tǒng)，實現(xiàn)移動人事工資管理的計算機自動化。系統(tǒng)應符合公司人事、工資管理制度，并達到操作直觀、方便、實用、安全等要求。2.1.3 應用現(xiàn)狀調(diào)查 目前，公司使用的人事工資管理系統(tǒng)采用的是DOS環(huán)境下的Fo

11、xbase數(shù)據(jù)庫，界面不友好，不能適應移動公司發(fā)展的需要。2.1.4業(yè)務總體流程調(diào)查 維護員工基本信息維護員工工資信息數(shù)據(jù)統(tǒng)計表格制作出盤結束開始維護員工基本信息：人事管理主要負責人員基本信息的維護，包括新進員工檔案的建立，員工信息的修改。公司工資管理基本流程如下：數(shù)據(jù)來源：將各部門送達的員工工資信息包括基本工資、獎金、水電費等作為數(shù)據(jù)來源，分為新增員工工資數(shù)據(jù)和老員工每月修改數(shù)據(jù)。數(shù)據(jù)的輸入：由工作人員通過新員工本月工資增加和老員工上月工資表修改完成。數(shù)據(jù)的統(tǒng)計：由工作人員通過對修改后的上月工資表進行計算得到每個人的實發(fā)工資以及總金額。表格的制作：由工作人員以修改、計算后的在上月工資表為藍本

12、生成與銀行進行數(shù)據(jù)交換的軟件即出盤。同時可打印工資報表。2.2系統(tǒng)功能調(diào)查整個系統(tǒng)從總體上分為人事管理、工資管理、系統(tǒng)維護三大部分，每一部分應實現(xiàn)的功能如下：2.2.1人事管理功能 新員工檔案的輸入: 員工基本信息維護:包括修改、刪除（刪除員工只是將該員工登記為無效，并不要求從表中刪除）. 員工基本信息查看: 員工基本信息查詢：支持多條件查詢，可以選擇某一部門、某一職位、某一職稱、學歷、性別等進行查詢，也可以組合查詢。 人事狀況曲線: 企業(yè)員工花名冊:2.2.2工資管理功能 新員工工資新增： 員工工資修改： 出盤:按所規(guī)定的格式生成與銀行進行數(shù)據(jù)交換的軟件，一般為文本文件 出盤出錯回滾： 工資

13、短信：將員工本月工資信息通過短信發(fā)出，并通知領工資時間。2.2.3系統(tǒng)維護功能 部門信息維護：實現(xiàn)靈活的增減部門信息 職務信息維護：實現(xiàn)靈活的增減職務信息 職稱信息維護：實現(xiàn)靈活的增減職稱信息 工資賬目維護：能夠靈活的改變員工的薪水賬目。 用戶管理：包括新增用戶、刪除用戶、修改用戶密碼等。2.3系統(tǒng)功能模塊圖株洲移動人事工資管理系統(tǒng)新增用戶修改密碼刪除用戶工資管理模塊工資短信新員工工資新增老員工工資維護出 盤工資報表系統(tǒng)維護模塊工資賬目維護職務信息維護部門信息維護職稱信息維護用戶管理人事管理模塊新員工檔案的新增員工基本信息維護員工基本信息查看員工基本信息查詢?nèi)耸聽顩r曲線分析企業(yè)員工花名冊第三章

14、 概要設計3.1概念設計概要設計基礎是完成需求分析后提供的需求說明書，用概念數(shù)據(jù)模型表示數(shù)據(jù)及其相互間的關系，這種數(shù)據(jù)模型是與DBMS無關的、面向現(xiàn)實世界的、易如理解的數(shù)據(jù)模型，其獨立于計算機的數(shù)據(jù)模型，獨立于計算機的軟硬件系統(tǒng)，與用戶進行交流十分方便。概念性數(shù)據(jù)模型關心的是如何完整、正確地反映客觀實際情況，不關心在數(shù)據(jù)庫中如何實現(xiàn)。這種數(shù)據(jù)模式能真實地反應用戶要求的實際情況，是一種容易被人們理解的直觀的數(shù)據(jù)庫結構模式。同時也是一種相對穩(wěn)定統(tǒng)一的數(shù)據(jù)模式，一般情況下很少變動。概念性數(shù)據(jù)在用戶和設計者之間建立了橋梁。是設計數(shù)據(jù)庫結構的基礎。概念設計中自頂向下的實體分析方法，即常用的實體聯(lián)系模型（

15、簡稱E-R模型），對具體數(shù)據(jù)進行抽象加工，將實體集合抽象成實體類型。用實體間聯(lián)系反映現(xiàn)實世界事物間的內(nèi)在聯(lián)系。E-R模型是建立概念性數(shù)據(jù)模型的有力工具。通過對企業(yè)員工管理內(nèi)容、工資管理內(nèi)容和過程的分析，本系統(tǒng)應設計的實體和屬性如下：員工（包括員工工號、員工姓名、學歷、性別、政治面貌、出生日期、所屬部門、職稱、職務、入職時間、身份證號、聯(lián)系電話、家庭住址、手機號碼、Email、有效標志）部門（部門代號、部門名稱）職務（職務代號、職務名稱）職稱（職稱代號、職稱名稱）薪金結構（月份、員工工號、薪水帳目、數(shù)目）薪水帳目（薪水帳目代號、薪水帳目名稱）員工工號員工姓名學歷性別政治面貌出生日期所屬部門職稱職

16、務所屬部門身份證號家庭住址聯(lián)系電話手機號碼Email有效標志員工部門部門代號部門名稱職務職務代號職務名稱職稱職稱代號職稱名稱薪水帳目名稱薪水帳目薪水帳目代號薪金結構薪水帳目月份數(shù)目員工工號實體和實體之間的關系E-R圖如下：部門職稱職務員工屬于具有擔任薪金結構薪水賬目具有1：N具有1：N3.2數(shù)據(jù)庫設計作為Borland公司的桌面數(shù)據(jù)庫，Paradox在Delphi中的應用非常廣泛，為此我選用Paradox數(shù)據(jù)庫來進行數(shù)據(jù)庫的邏輯設計。根據(jù)前面定義的實體及實休之間的關系，形成數(shù)據(jù)庫的表格以及各個表之間的關系。為了減少數(shù)據(jù)冗余度，將職稱實體、部門實體、職務實體、薪水帳目實體放在同一個表里，以一個類

17、型字段加以區(qū)分。對個關系選擇主健，按照關系模式的規(guī)范化進行規(guī)范，消除數(shù)據(jù)依賴中不合適的部分，使模式中的各關系模式達到某種程度的分離。3.2.1 ygzlb（員工資料表）序號域名域中文名域類型備注1Ygh員工工號Alpha(6)主鍵2Xm員工姓名Alpha (12)3Xb性別Alpha(2)4Zzmm政治面貌Alpha(4)5Xl學歷Alpha(12)6Qsrq出生日期Alpha(19)7Ssbm所屬部門Alpha(30)8Zc職稱Alpha(30)9Zw職務Alpha(30)10Rzsj入職時間Alpha(19)11Sfzh身份證號Alpha(20)12Gdlxdh聯(lián)系電話Alpha(16)1

18、3Jtzz家庭住址Alpha(60)14Sjhm手機號碼Alpha(12)15EmailEmailAlpha(20)16Yxbz有效標志Short1代表有效員工；9代表無效員工17Czy操作員Alpha(20)18Czrq操作時間Alpha(19)說明：員工基本信息表用于存儲員工基本信息，為保證數(shù)據(jù)的一致和歷史資料的完整，表的記錄在一般的情況不能被刪除，如果發(fā)生員工離職，只更改其有效標志為9。3.2.2 Yhklb用戶口令表序號域名域中文名域類型備注1Dlgh登錄工號Alpha(20)主鍵2Pswd口令Alpha (10)說明：為了便于多個用戶管理該系統(tǒng)，建立此表，記錄用戶的登錄工號和口令3.

19、2.3 Ygxjjgb員工薪金結構表序號域名域中文名域類型備注1Yf月份Alpha(6)主鍵2Ygh員工工號Alpha(6)主鍵3Xszmid薪水帳目IDShort主鍵4Sm數(shù)目Money5Czy操作員Alpha(6)6Czsj操作時間Alpha(19)說明：員工薪金結構表采用豎表結構，便于以后薪水帳目的新增，利于系統(tǒng)保持較長時間的適用。同時該表采用月帳的形式，便于歷史資料的穩(wěn)定查詢，和統(tǒng)計，同時也能做到出盤發(fā)生錯誤時，進行回滾。在準備當前月份的數(shù)據(jù)的時候，將同時校驗該員工的有效性。如果是無效員工，則系統(tǒng)將不會顯示該員工的資料。但在歷史月份還是將體現(xiàn)該員工的資料。系統(tǒng)將根據(jù)基本參數(shù)表中的工資帳

20、目的費用影響關系（1或-1）來形成員工的應發(fā)工資和實發(fā)工資。3.2.4 Kjcsb控制參數(shù)表序號域名域中文名域類型備注1Yf序列Short主鍵2Csdm參數(shù)代碼Alpha(20)3Csmc參數(shù)名稱Alpha(40)4Czy操作員Alpha(6)5Czsj操作時間Alpha(19)說明：控制參數(shù)表用于控制出盤，在每次出盤成功后，會在該表中插入一條記錄，以記錄該月是否已經(jīng)出盤；在需要再次出盤的時候，系統(tǒng)將會首先判斷該月的出盤標志，如果已經(jīng)出盤，則對數(shù)據(jù)庫不做操作，僅僅在界面上進行出盤，生成TXT文本文件，如果未出盤則需要對數(shù)據(jù)庫進行操作（將該月的數(shù)據(jù)重新插入數(shù)據(jù)庫，作為下個月出盤的初始數(shù)據(jù)）3.2

21、.5 Jbcsb基本參數(shù)表序號域名域中文名域類型備注1IDIDShort主鍵2Lx參數(shù)類型Short1：薪水帳目；2：部門代碼；3：職務代碼；4：職稱代碼3Mc參數(shù)名稱Alpha(30)4Czy操作員Alpha(20)5Czsj操作時間Alpha(19)6Rela費用影響關系Short-1代表該項目對實發(fā)工資是負的影響；1代表該項目對實發(fā)工資是正的影響；3.2.6工資短信表序號域名域中文名域類型備注1ygh員工號Alpha(6)主鍵2sfgz實發(fā)工資Alpha(10)說明：基本參數(shù)表用于維護系統(tǒng)的一些基本參數(shù)，例如職務，職稱，工資帳目等、部門。員工信息表和員工薪金結構表通過員工ID進行關聯(lián)；可

22、得知每個員工的工資明細情況；員工薪金結構表中的帳目ID在基本參數(shù)表中進行定義；員工信息表的職務ID和職稱ID和部門ID也在基本參數(shù)表中進行定義； 工資短信表：是為便于發(fā)送工資短信信息而建立的，只保存當前月的工資數(shù)據(jù)。第四章 詳細設計 根據(jù)需求分析、概要設計的結果，采用Delphi做為開發(fā)工具，實現(xiàn)公司人事工資管理各模塊的功能。4.1啟動界面設計4.1.1 功能說明系統(tǒng)運行時，首先彈出此啟動窗口，4秒鐘后自動關閉出現(xiàn)主窗口和登錄窗口,實現(xiàn)此界面主要是修改了工程文件，并調(diào)用了一個延時函數(shù)，實現(xiàn)起來很簡單，源程序不加以介紹。4.1.2屏幕格式設計啟動界面4.2 登錄窗口設計4.2.1功能說明控制員工

23、登錄，防止非法用戶闖入本系統(tǒng)，保證系統(tǒng)的安全，輸入口令時屏幕顯示為“*”以利保密。4.2.2屏幕格式設計登錄界面4.2.3源程序分析procedure TFrm_dl.Button1Click(Sender: TObject);begin if edit2.text= then /判斷密碼是否輸入為空 begin Application.MessageBox(密碼不能為空，請重新輸入！,系統(tǒng)提示,mb_IconInformation+mb_OK); Edit2.SetFocus; Exit; end; query1.sql.clear; query1.sql.add(select pswd f

24、rom yhklb where dlyh=+trim(edit1.text)+); if query1.Active then query1.close; query1.open; /根據(jù)用戶名從用戶口令表中取出用戶口令 if edit2.textquery1.fieldbyname(pswd).asstring then begin if err_cou=2 then /判斷是否三次輸入錯誤 begin application.messagebox(三次登錄的用戶名或密碼錯誤, 系統(tǒng)退出,mb_IconInformation+mb_OK); frm_main.close; /關閉主窗口，退出

25、系統(tǒng) end; Application.MessageBox(密碼或工號不正確,請重新輸入！,mb_IconInformation+mb_OK); /若密碼輸入錯誤，提示重新輸入 Edit2.SetFocus; err_cou:=err_cou+1; /輸入次數(shù)加1 exit; end; dluser:=edit1.text; /給變量賦值，記錄登錄用戶，供其它程序使用 Close; end;4.3 主窗口設計4.3.1功能說明界面采用MDI方式，可同時打開幾處子窗口體，在界面上放置了菜單欄和工具欄、狀態(tài)欄；菜單欄集中了系統(tǒng)操作的入口，各功能模塊的執(zhí)行從此進入；工具框顯示了系統(tǒng)菜單中常用項目的

26、快鍵圖標，使用戶只需點擊相應圖標即可進入相應功能模塊，當鼠標移動到相應圖標時，系統(tǒng)會出現(xiàn)提示信息。狀態(tài)欄主要是用于顯示日期時鐘信息，以及系統(tǒng)操作過程中的信息。4.3.2屏幕格式設計系統(tǒng)主界面4.3.3源程序分析procedure TFrm_main.N20Click(Sender: TObject); /菜單關閉事件beginclose; end;procedure TFrm_main.N_shutdownClick(Sender: TObject);件begin /菜單退出系統(tǒng)并關機事件if messagedlg(是否退出并關閉計算機？,mtinformation,mbyes,mbno,1)

27、=mryes thenbegin close; ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 ); /調(diào)用API函數(shù)end;end;procedure TFrm_main.N_closeClick(Sender: TObject);beginclose;end;procedure TFrm_main.N_bmcxwhClick(Sender: TObject);/打開部門參數(shù)維護窗口begin Application.CreateForm(TFrm_bmxg, Frm_bmxg);if frm_bmxg.query1.active then frm_b

28、mxg.query1.close; /判斷Query是否打開frm_bmxg.query1.open; /打開Queryend;procedure TFrm_main.N_zwwhClick(Sender: TObject); /打開職務參數(shù)維護窗口begin Application.CreateForm(TFrm_zwxg, Frm_zwxg); if frm_zwxg.query1.active then frm_zwxg.query1.close; frm_zwxg.query1.open;end;procedure TFrm_main.N_ygjbxxsrClick(Sender: T

29、Object);/打開新增員工信息窗口beginApplication.CreateForm(Tfrm_ygzbxxsr, frm_ygzbxxsr);end;procedure TFrm_main.N_yhwhClick(Sender: TObject);/打開用戶維護窗口beginApplication.CreateForm(TFrm_yhgl, Frm_yhgl); if frm_yhgl.query1.active then frm_yhgl.query1.close; frm_yhgl.query1.open;end;procedure TFrm_main.Timer1Timer(S

30、ender: TObject); var y,m,d:word; /在狀態(tài)欄上顯示日期時間星期 begin decodedate(now,y,m,d); statusbar1.Panels1.text:=concat(【,inttostr(y),年,inttostr(m),月,inttostr(d),日 ,formatdatetime(hh:nn:ssAM/PM,now) ,f_get_week,】);/調(diào)用函數(shù)f_get_week end;procedure TFrm_main.N_zcwhClick(Sender: TObject);/打開職稱維護窗口beginApplication.Cr

31、eateForm(TFrm_zcxg, Frm_zcxg); if frm_zcxg.query1.active then frm_zcxg.query1.close; frm_zcxg.query1.open;end;procedure TFrm_main.N_ygzbxxwhClick(Sender: TObject);/打開員工信息維護窗口beginApplication.CreateForm(Tfrm_ygzbxxwh, frm_ygzbxxwh);end;procedure TFrm_main.N_zbxxckClick(Sender: TObject); /打開員工信息查看窗口be

32、ginApplication.CreateForm(Tfrm_llygzbxx, frm_llygzbxx);end;procedure TFrm_main.N_tjcxClick(Sender: TObject); /打開員工信息條件查詢窗口beginApplication.CreateForm(Tfrm_ygzlcx, frm_ygzlcx);end;procedure TFrm_main.N_gzzmwhClick(Sender: TObject);/打開薪水帳目維護窗口beginApplication.CreateForm(TFrm_gzzmwh, Frm_gzzmwh);if Frm

33、_gzzmwh.query1.active then Frm_gzzmwh.query1.close;Frm_gzzmwh.query1.open;end;procedure TFrm_main.N_cpClick(Sender: TObject); /打開出盤窗口beginApplication.CreateForm(Tfrm_cp, frm_cp);end;procedure TFrm_main.N_gzdxClick(Sender: TObject); /打開工資短信窗口beginfrm_gzdx:=Tfrm_gzdx.create(application);frm_gzdx.showm

34、odal;frm_gzdx.free;end;procedure TFrm_main.N_jsbClick(Sender: TObject); /打開寫字板beginShellExecute(handle,open,notepad.exe,nil,nil,SW_ShowNormal);/調(diào)用API函數(shù)end;procedure TFrm_main.N_jsqClick(Sender: TObject); /打開計算器beginShellExecute(handle,open,calc.exe,nil,nil,SW_ShowNormal); end;procedure TFrm_main.N_p

35、pClick(Sender: TObject); /實現(xiàn)窗口平鋪begin TileMode := tbVertical; Tile;end;procedure TFrm_main.N_cdClick(Sender: TObject); /實現(xiàn)窗口層疊beginCascade;end;procedure TFrm_main.N_jxhClick(Sender: TObject); /實現(xiàn)窗口極小化var i:integer;beginwith frm_main do begin for i := MDIchildcount-1 downto 0 do MDIChildreni.Windowst

36、ate := wsMinimized; end;end;procedure TFrm_main.N_aboutClick(Sender: TObject); /打開關于本系統(tǒng)窗口beginApplication.CreateForm(Tfrm_about, frm_about);end;function Tfrm_main.f_get_week :string; /獲取星期函數(shù)var days: array1.7 of string;begin days1 := 星期日; days2 := 星期一; days3 := 星期二; days4 := 星期三; days5 := 星期四; days6

37、 := 星期五; days7 := 星期六; result :=daysDayOfWeek(now);end;procedure TFrm_main.N_ygzlbbClick(Sender: TObject); /生成企業(yè)員工花名冊beginfrm_ygbb:=Tfrm_ygbb.create(application);if frm_ygbb.Query1.active then frm_ygbb.Query1.close;frm_ygbb.Query1.open;frm_ygbb.QuickRep1.Prepare;frm_ygbb.QuickRep1.Preview;frm_ygbb.F

38、ree;end;procedure TFrm_main.N_rsqxfxClick(Sender: TObject); begin /打開人事狀況曲線分析窗口 Application.CreateForm(Tfrm_rsqkqxfs, frm_rsqkqxfs); if frm_rsqkqxfs.Query1.Active then frm_rsqkqxfs.Query1.Close; frm_rsqkqxfs.Query1.open;end;end.4.4人事管理模塊的實現(xiàn)4.4.1員工基本信息輸入4.4.1.1功能說明完成新員工人事檔案的建立，初始狀態(tài)下所有輸入和選擇框框均無效，只有點新增

39、按鈕后才可用，同時提交按鈕變成有效。4.4.1.2屏幕格式說明新員工資料錄入界面4.4.1.3源程序分析/增加按鈕事件，只是將各輸入框和提交按鈕置為可用。procedure Tfrm_ygzbxxsr.Button3Click(Sender: TObject); /提交按鈕事件var Sql: String; qsrq,rzsj,czdate: String;beginqsrq:=FormatDatetime(YYYY-MM-DD,datetimepicker1.Datetime); /出生日期rzsj:=FormatDatetime(YYYY-MM-DD,datetimepicker2.Da

40、tetime); /入職時間czdate := FormatDatetime(YYYY-MM-DD HH:MM:SS,Now); /操作時間if Application.MessageBox(您確認要提交嗎？,系統(tǒng)提示,mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then Exit; begin if (Edit1.text=) or (Edit2.text=) then begin Application.MessageBox(姓名不能為空或員工號不能為空!,系統(tǒng)提示,mb_IconInformation+mb_OK); Exit; end;

41、 if trim(DBLookupComboBox1.Text) = then begin showmessage(請選擇部門);exit;end; if trim(DBLookupComboBox2.Text) = then begin showmessage(請選擇職務);exit;end; if trim(DBLookupComboBox3.Text) = then begin showmessage(請選擇職稱);exit;end; sql:=select * from ygzlb where ygh=+trim(edit1.text)+; /根據(jù)此員工號是否已存在 query1.sq

42、l.clear; query1.sql.add(sql); if query1.Active then query1.close; query1.open; if not query1.isempty then begin showmessage(此員工號已存在，請重新輸入員工號); edit1.selectall; edit1.setfocus; exit; end else begin /執(zhí)行插入操作，往員工資料表中插入一條記錄 sql:=insert into ygzlb(ygh,xm,xb,xl,qsrq,ssbm,zc,zw,rzsj,sfzh,jtzz,gdlxdh, +sjhm,

43、email,zzmm,yxbz,czy,czrq) +values(+Trim(Edit1.Text)+,+trim(Edit2.text)+, +combobox1.text+,+combobox3.text+,+qsrq+,+DBLookupComboBox1.keyvalue+, +DBLookupComboBox3.keyvalue+,+DBLookupComboBox2.keyvalue+,+rzsj+,+edit3.text+, +trim(edit4.text)+,+trim(edit7.text)+,+trim(edit6.text)+,+trim(edit5.text)+, +combobox2.text+,1,+dluser+,+czDate+); query1.sql.clear; query1.sql.add(sql); query1.execsql; if Application.MessageBox(