畢業(yè)設(shè)計(論文)DELPHI工資管理論文(附設(shè)計源代碼)

）工管理1前..................................................................12系統(tǒng)概..............................................................22.1系統(tǒng)開發(fā)背景2.2系統(tǒng)開發(fā)目的2.3系統(tǒng)平臺選用

.........................................................................................................................2.........................................................................................................................2.........................................................................................................................22.3.1數(shù)據(jù)庫技術(shù)的現(xiàn)狀與發(fā)展.....................................22.3.2數(shù)據(jù)庫系統(tǒng)的選擇原則.......................................32.3.3系統(tǒng)開發(fā)工具的選擇.........................................33需求分..............................................................73.1需求陳述

3.2可行性分析

3.2.1技術(shù)可行性.................................................73.2.2時間、設(shè)備可行性...........................................73.2.3經(jīng)濟可行性.................................................84概要設(shè)..............................................................94.1系統(tǒng)功能結(jié)構(gòu)設(shè)計

4.2數(shù)據(jù)庫設(shè)計

4.2.1數(shù)據(jù)庫邏輯結(jié)構(gòu)............................................104.2.2數(shù)據(jù)庫E-R..............................................4.2.3Oracle數(shù)據(jù)庫的使用.......................................135詳細(xì)設(shè).............................................................145.1主界面設(shè)計

5.2基本信息管理模塊

..............................................................................................................155.3工資數(shù)據(jù)模塊5.4當(dāng)月報表模塊5.5歷史數(shù)據(jù)模塊5.6系統(tǒng)信息模塊word檔可自由復(fù)制編輯

6系統(tǒng)性能測試與分...................................................6.1測試范圍與主要內(nèi)容

.........................................................................................................426.2測試方法6.3測試報告

................................................................................................................................42................................................................................................................................427結(jié).................................................................43參考文...............................................................致...................................................................45word檔可自由復(fù)制編輯

1前言上世紀(jì)八、九十年代以來，計算機產(chǎn)業(yè)飛速發(fā)展，其應(yīng)用滲透在社會生產(chǎn)的各個領(lǐng)域。計算機在國內(nèi)的崛起加速了各企事業(yè)單位、機關(guān)的自動化進(jìn)程，提高了國民生產(chǎn)的效率，從而為國民經(jīng)濟的飛速發(fā)展創(chuàng)造了必要的條件。步入21世紀(jì)以來，計算機更是以驚人的普及速度，進(jìn)入各行各業(yè)和大部分家庭。各種應(yīng)用的需求也不斷增加，人們更加追求生活的品質(zhì)和工作的效率，企業(yè)更是視提高生產(chǎn)效率為生存和發(fā)展之道于是通過科技手段提高生產(chǎn)和管理效率自然成為競爭和發(fā)展的焦點這不僅包括如何實現(xiàn)企業(yè)生產(chǎn)設(shè)備的改進(jìn)和生產(chǎn)技術(shù)的提高還包括如何有效地組織和管理企業(yè)各項事務(wù)，實現(xiàn)企業(yè)的辦公自動化。而

管理信息系統(tǒng)（ManagementInformationSystem,MIS）在辦公自化的進(jìn)程中發(fā)揮著重要的作用。市場需求也日益增加。大型企業(yè)的分工比較嚴(yán)格、細(xì)致，組織較為緊密，對軟硬件的要求也就比較高，因此試圖以一款軟件來解決企業(yè)的所有問題顯然是不可能的，這就需要我們細(xì)化事務(wù)，有針對性地開發(fā)縱向應(yīng)用廣泛MIS系統(tǒng)。不僅能夠解決大型企業(yè)和機構(gòu)的某方面問題，還應(yīng)該能為更多的中、小型企業(yè)利用，提高他們的工作效率，加速企業(yè)的發(fā)展，從而促進(jìn)國民經(jīng)濟的建設(shè)。財務(wù)是每一個單位都會涉及的問題，管理軟件雨后春筍般崛起的今天，企業(yè)不僅需要通過軟件有效地對其實施管理，還想操作能夠盡可能簡單，軟件易于上手。通過查閱相關(guān)資料，對市場需求進(jìn)行分析，對既成工資管理軟件的研究和測試，我們認(rèn)為本課題是一個適應(yīng)現(xiàn)今工資管理需求的計算機信息管理系統(tǒng)具有一定的現(xiàn)實意義和開發(fā)使用價值。word檔可自由復(fù)制編輯

2系統(tǒng)概2.1統(tǒng)發(fā)景自20世紀(jì)80年代以來知識經(jīng)濟的興起和信息技術(shù)的日新月異消除了人與人之間知識、信息傳遞的障礙，也帶來了人類經(jīng)營意識、管理觀念的巨大改變世紀(jì)是一個經(jīng)濟時代經(jīng)濟競爭說到底是人才的競爭擁有了人才誰就將最終擁有財富。通過工資人事管理可以獲得并維持組織的競爭優(yōu)勢，人作為公司最重要的資產(chǎn)，如何用好人才，為每個人找到合適的崗位去發(fā)揮其特長是用人的關(guān)鍵環(huán)節(jié)。而運用先進(jìn)科技手段進(jìn)行有效管理是最好的發(fā)展方向。MIS作為提高管理效率和辦公自動化進(jìn)程的重要工具，已深入到國民生產(chǎn)的方方面面。我們更加需要開發(fā)適應(yīng)不同行業(yè)不同需求的MIS系統(tǒng)。2.2統(tǒng)發(fā)的本系統(tǒng)開發(fā)的主要目的就是要使企事業(yè)單位工資管理實現(xiàn)計算機管理使管理員能夠有序地管理每一位職工的各項工資條款的發(fā)放以及員工個人臺帳的生成使企業(yè)運用現(xiàn)代化技術(shù)創(chuàng)造更多更高的經(jīng)濟效益。2.3統(tǒng)臺用2.3.1據(jù)庫技術(shù)現(xiàn)狀與展數(shù)據(jù)庫是60年代末出現(xiàn)的一門計算機軟件技術(shù)，到現(xiàn)在雖然只有三十多年的歷史但在理論和時間上都得到了和很大的發(fā)展在數(shù)據(jù)庫是數(shù)據(jù)處理的主要工具，是管理信息系統(tǒng)(MIS)的核心部分?jǐn)?shù)據(jù)庫系統(tǒng)是當(dāng)今計算機信息系統(tǒng)的核心,是計算機技術(shù)和應(yīng)用發(fā)展的關(guān)鍵。傳統(tǒng)的數(shù)據(jù)庫系統(tǒng)旨在處理永久、穩(wěn)定的數(shù)據(jù)，強調(diào)維護(hù)數(shù)據(jù)的完整性、一致性。數(shù)據(jù)庫理論與技術(shù)的發(fā)展極其迅速，其應(yīng)用日益廣泛，在當(dāng)今的信息社會中，它幾乎無所不在。以關(guān)系型為代表的三大經(jīng)典（層次、網(wǎng)狀、關(guān)系）型數(shù)據(jù)庫在傳統(tǒng)的word檔可自由復(fù)制編輯

（商務(wù)和管理的事務(wù)型）應(yīng)用領(lǐng)域獲得了極大成功。計算機世界報社與I公司聯(lián)合舉辦了"21紀(jì)數(shù)據(jù)庫技術(shù)發(fā)展專家研討會"。DB2創(chuàng)始人Haderle先生與國內(nèi)著名數(shù)據(jù)庫專,下世紀(jì)數(shù)據(jù)庫發(fā)展的趨勢、數(shù)據(jù)庫領(lǐng)域革命性的突破、IBMDB2的應(yīng)用、數(shù)據(jù)倉庫的實施、我國數(shù)據(jù)庫技術(shù)和應(yīng)用的現(xiàn)狀及趨勢、我國數(shù)據(jù)庫用戶的需求等問題,進(jìn)行了廣泛而深入的討論。2.3.2據(jù)庫系統(tǒng)選擇原①數(shù)據(jù)庫系統(tǒng)采用易于集成的，開放的技術(shù)。②產(chǎn)品質(zhì)量優(yōu)異，可靠性高，適于長期運行，能支持關(guān)鍵應(yīng)用。③數(shù)據(jù)安全，保安型高。④能提供分布式數(shù)據(jù)庫功能。⑤支持多種開發(fā)環(huán)境，軟件開發(fā)容易。⑥擴充性和升級能力強。2.3.3統(tǒng)開發(fā)工的選擇本次工資管理系統(tǒng)選用DelphiOracle11g進(jìn)行開發(fā)，現(xiàn)在市場上有很多的開發(fā)工具，如：Visualbasic、Delphi、ASP等，數(shù)據(jù)庫開發(fā)工具又有很多種，如：Access，SQLSever，Oracle等。與其他開發(fā)工具相比，Delphi與Oracle有著自己的特點與優(yōu)勢。⑴簡介Delphi，是平臺下著名的快速應(yīng)用程序開發(fā)工具（RapidApplicationDevelopment簡稱RAD它的前身，即是DOS時代盛行一時的“BorlandTurboPascal早的版本由美國Borland（寶蘭）公司1995年開發(fā)。主創(chuàng)者為AndersHejlsberg。經(jīng)過數(shù)年的發(fā)展，此產(chǎn)品也轉(zhuǎn)移至公司旗下。從產(chǎn)品名稱上就可以知道TurboPascal用的是Pascal語言從TurboPascal5.5版開始，Borland公司在傳統(tǒng)Pascal的基礎(chǔ)上加入了面向?qū)ο蟮墓δ?。Delphi是一個集成開發(fā)環(huán)境IDE用的核心是由傳統(tǒng)Pascal語言發(fā)展而來的Object，以圖形用戶界面（，簡稱）為開發(fā)環(huán)word檔可自由復(fù)制編輯

境，透過、VCL具與編譯器，配合連結(jié)數(shù)據(jù)庫的功能，構(gòu)成一個以面向?qū)ο蟪绦蛟O(shè)計為中心的應(yīng)用程序開發(fā)工具Delphi所編譯的可運行檔雖然容量較大但效能上卻比較快除了使用數(shù)據(jù)庫的程序之外需安裝即可運行在使用上相當(dāng)方便。Delphi在本質(zhì)上應(yīng)該歸類為軟件開發(fā)工具，而非程序語言，但由于幾乎是目前市場上唯一使用Pascal并持續(xù)推出新版本的商業(yè)產(chǎn)品因此有時人們會把Delphi為Pascal的代名詞。Borland公司因而把ObjectPascal改稱為2006年，Borland把開發(fā)工具產(chǎn)品線獨立出來，成立了一家新的公司CodeGear把產(chǎn)品線交由此公司負(fù)責(zé)的Delphi曾一度因此被命名為TurboDelphi。但是在新的版本中，除了DelphiforWin32（原有的Delphi本）之外，還有一個新產(chǎn)品“DelphiforCodeGear的發(fā)展規(guī)劃中，或許“Delphi”不再是Pascal的專屬IDE名，而是將之提升到通用IDE品牌的層次。2008年5月7，EmbarcaderoTechnologies易博龍）公司宣布以2300萬美元的價格收購CodeGear公司，從而把Delphi收入囊中。年5月6日，MicroFocus宣布以7500萬美元收購Borland。Delphi目前的最新版本是2010。Delphi具有如下特點：①直接編譯生成可執(zhí)行代碼，編譯速度快。由于Delphi編譯器采用了條件編譯和選擇鏈接技術(shù)，使用它生成的執(zhí)行文件更加精煉，運行速度更快。在處理速度和存取服務(wù)器方面，Delphi的性能遠(yuǎn)遠(yuǎn)高于其他同類產(chǎn)品。②支持將存取規(guī)則分別交給客戶機或服務(wù)器處理的兩種方案，而且允許開發(fā)人員建立一個簡單的部件或部件集合，封裝起所有的規(guī)則，并獨立于服務(wù)器和客戶機，所有的數(shù)據(jù)轉(zhuǎn)移通過這些部件來完成。這樣，大大減少了對服務(wù)器的請求和網(wǎng)絡(luò)上的數(shù)據(jù)傳輸量，提高了應(yīng)用處理的速度。③提供了許多快速方便的開發(fā)方法，使開發(fā)人員能用盡可能少的重復(fù)性工作完成各種不同的應(yīng)用。利用項目模板和專家生成器可以很快建立項目的構(gòu)架，然后根據(jù)用戶的實際需要逐步完善。④具有可重用性和可擴展性。開發(fā)人員不必再對諸如標(biāo)簽、按鈕及對話框等Windows的常見部件進(jìn)行編程。Delphi包含許多可以重復(fù)使用的部件，允許用戶控制Windows的開發(fā)效果。word檔可自由復(fù)制編輯

⑤具有強大的數(shù)據(jù)存取功能。它的數(shù)據(jù)處理工具BDE(BorlandDatabaseEngine)是一個標(biāo)準(zhǔn)的中介軟件層，可以用來處理當(dāng)前流行的數(shù)據(jù)格式，如xBase可以通過BDE的SQLLink接與Sybase、SQLServer、等大型數(shù)據(jù)庫連接。Delphi既可用于開發(fā)系統(tǒng)軟件，也適合于應(yīng)用軟件的開發(fā)。⑥擁有強大的網(wǎng)絡(luò)開發(fā)能力，夠快速的開發(fā)B/S應(yīng)用它內(nèi)置的IntraWeb和使得對于網(wǎng)絡(luò)的開發(fā)效率超過了其他任何的開發(fā)工具。Delphi使用獨特的VCL類庫，使得編寫出的程序顯得條理清晰，VCL是現(xiàn)在最優(yōu)秀的類庫，它使得Delphi在軟件開發(fā)行業(yè)處于一個絕對領(lǐng)先的地位。用戶可以按自己的需要，任意的構(gòu)建、擴充、甚至是刪減，以滿足不同的需要。⑧從Delphi8開始Delphi也支持.Net框架下程序開發(fā)。當(dāng)前DELPHI已經(jīng)成為一個品牌，不僅僅是一個開發(fā)平臺或開發(fā)語言的名稱。當(dāng)前DELPHI產(chǎn)品已經(jīng)由CodeGear公司繼續(xù)發(fā)展，該公司是BORLAND公司的全資子公司。當(dāng)前，CodeGear為廣大開發(fā)者提供了DELPHIFORPHP，以高度可視化的方式全面支持面向?qū)ο蟮腜HP網(wǎng)站開發(fā)，大大提高了PHP發(fā)網(wǎng)站的代碼復(fù)用程度，成為WEB應(yīng)用開發(fā)的新利器。⑵Oracle簡Oracle的關(guān)系數(shù)據(jù)庫是世界第一個支持SQL言的數(shù)據(jù)庫。年，LawrenceJ.Ellison領(lǐng)著一些同事成立了Oracle司，他們的成功強力反擊了那些說關(guān)系數(shù)據(jù)庫無法成功商業(yè)化的說法?，F(xiàn)在，Oracle公司的財產(chǎn)凈值已經(jīng)由當(dāng)初的2000美元增值到了現(xiàn)在的年收入超過97美元。Oracle11g擴展了Oracle獨家具有的提供網(wǎng)格計算優(yōu)勢的功能，可以利用它來提高用戶服務(wù)水平、減少停機時間以及更加有效地利用IT資源，同時還可以增強全天候業(yè)務(wù)應(yīng)用程序的性能、可伸縮性和安全性。11g降低了數(shù)據(jù)庫升級以及其他硬件和操作系統(tǒng)更改的成本顯著簡化了更改前后的系統(tǒng)測試以便您可以識別和解決問題。例如：利用，可以在數(shù)據(jù)庫級別輕松捕獲實際的生產(chǎn)負(fù)載并在您的測試系統(tǒng)上重新播放這樣您可以全面測試系統(tǒng)更改（包括關(guān)鍵的并發(fā)特性）的影響。word檔可自由復(fù)制編輯

Oracle數(shù)據(jù)庫11g繼續(xù)致力于（從Oracle9i數(shù)據(jù)庫開始一直到Oracle數(shù)據(jù)庫10g）顯著簡化和完全自動化任務(wù)。Oracle數(shù)據(jù)庫中的新功能包括：利用自學(xué)功能自動進(jìn)行優(yōu)化系統(tǒng)全局區(qū)(SGA)程序全局區(qū)(PGA)的內(nèi)存緩存區(qū)的自動統(tǒng)一調(diào)整新的advisor用于分區(qū)數(shù)據(jù)恢復(fù)流性能和空間管理針對自動數(shù)據(jù)庫診斷監(jiān)視器的增強夠提供Oracle真正應(yīng)用集群環(huán)境中的更好的性能全局視圖以及改進(jìn)的性能比較分析功能。Oracle數(shù)據(jù)庫11g中新增的故障診斷功能使客戶在發(fā)生錯誤后捕獲所需的數(shù)據(jù)變得極為簡單這可以加速問題的解決減少客戶重現(xiàn)問題的需要。⑶和Oracle數(shù)據(jù)庫的連方法Oracle是以高級結(jié)構(gòu)化查詢語言(SQL)為基礎(chǔ)的大型關(guān)系數(shù)據(jù)庫，是目前最流行的客戶/服務(wù)器(體系結(jié)構(gòu)的數(shù)據(jù)庫之一，目前被廣泛應(yīng)用于各類型企業(yè)的信息化管理中。數(shù)據(jù)庫支持是Delphi7.0開發(fā)環(huán)境的一個重要特性，很多程序員在數(shù)據(jù)庫應(yīng)用程序開發(fā)中都采用Delphi7.0為開發(fā)工具，來實現(xiàn)對數(shù)據(jù)庫的訪問和控制數(shù)據(jù)庫應(yīng)用程序是通過數(shù)據(jù)庫引擎來訪問它們引用的數(shù)據(jù)源的。本文概括性的介紹在WindowsXP環(huán)境中連接數(shù)據(jù)庫的3種方式，它們分別是、ADO、ADO(ActiveXDataObjects)是Microsoft的高級接口，基于Microsoft的數(shù)據(jù)訪問OLEDB技術(shù)而實現(xiàn)。本系統(tǒng)采用方式連接數(shù)庫。word檔可自由復(fù)制編輯

3需求分3.1求述本系統(tǒng)擬在完成工資管理的同時集成其他必要的功能以保證系統(tǒng)的完整性和安全性。具體包括，員工基本信息管理、部門管理、當(dāng)前工資及歷史工資管理等?，F(xiàn)對有關(guān)要求描述如下：①整體結(jié)構(gòu)合理，風(fēng)格一致，模塊化結(jié)構(gòu)，界面清晰，接口靈活，操作簡便。②開發(fā)方法，文檔規(guī)范化，便于管理，可擴充。③完善的數(shù)據(jù)輸入，維護(hù)，輸出。④自檢性能高，用戶誤輸、錯輸均有提示。⑤容錯性能高某個用戶的操作錯誤不會引起整個系統(tǒng)的癱瘓每一功能的操作都有信息提示以免重復(fù)操作，錯誤操作有警告，以便用戶及時改正。3.2行分3.2.1術(shù)可行性技術(shù)上的可行性分析主要分析現(xiàn)有技術(shù)條件能否順利完成開發(fā)工作軟硬件配置能否滿足開發(fā)者需要等，這一特點非常適合計算機的特點，發(fā)揮計算機的數(shù)據(jù)處理速度快，準(zhǔn)確率高的優(yōu)勢，現(xiàn)代計算機硬件和軟件技術(shù)的飛速發(fā)展，為系統(tǒng)的建設(shè)提供了技術(shù)條件。通過對Delphi和Oracle的系統(tǒng)學(xué)習(xí)已經(jīng)基本掌握了開發(fā)本系統(tǒng)所需的技術(shù)和查閱文獻(xiàn)的能力。對工資管理系統(tǒng)這一類的財務(wù)系統(tǒng)開發(fā)也有一定的認(rèn)識，因此具備技術(shù)可行性。3.2.2間、設(shè)備行性12周的時間足夠開發(fā)一個滿足中小型企業(yè)簡單需求的工資管理系統(tǒng)計算機的軟硬件配置能夠滿足系統(tǒng)開發(fā)的要求，具備時間和設(shè)備的可行性。word檔可自由復(fù)制編輯

3.2.3濟可行性基于企業(yè)的現(xiàn)有計算機及配套設(shè)備建設(shè)系統(tǒng)。不但能大大減少重復(fù)性的書面報告，降低辦公費用，提高辦公室效率，而且能提高檢測數(shù)據(jù)效用，為企業(yè)提供很方便。由于企業(yè)工資管理系統(tǒng)是一個比較小型的系統(tǒng)，開發(fā)工具也均可免費使用，網(wǎng)絡(luò)資源豐富，只需較少的花費在技術(shù)文獻(xiàn)上，開發(fā)成本較低，因此，開發(fā)本系統(tǒng)具有經(jīng)濟上的可行性。word檔可自由復(fù)制編輯

4概要設(shè)4.1統(tǒng)能構(gòu)計工資管理系統(tǒng)數(shù)據(jù)字典維護(hù)部門信息管理員工信息管理

工資數(shù)據(jù)基本數(shù)據(jù)每月填報

當(dāng)月報表當(dāng)月報表當(dāng)月匯總

歷史數(shù)據(jù)部門月報月匯總表

系統(tǒng)信息功能序號12345678910

每月存檔功能名稱部門信息管理員工信息管理基本工資數(shù)據(jù)活動工資數(shù)據(jù)每月工資存檔當(dāng)月報表當(dāng)月匯總表歷史部門月報歷史月匯總表系統(tǒng)信息

圖4.1功能模塊圖表4.1功能說明表功能說明包含對部門信息的增加、刪除包含對員工信息的增加、刪除查看和修改基本工資信息填報每月活動工資數(shù)據(jù)每月工資填報完畢后存儲數(shù)據(jù)查看當(dāng)月各部門工資表，打印工資條查詢當(dāng)月各部門工資匯總信息查詢歷史年月的部門工資信息查詢指定部門制定年月的歷史工資匯總信息系統(tǒng)與作者信息等設(shè)計角色：財務(wù)管理人員word檔可自由復(fù)制編輯

4.2據(jù)設(shè)4.2.1據(jù)庫邏輯構(gòu)表4.2部門信息表（bm）字段名稱Mc

類型VARCHAR2VARCHAR2

寬度

約束

說明部門編號部門名稱表4.3職工工資信息表（ry）字段名稱BmXmJ1J2J3J4Rq

類型VARCHAR2VARCHAR2VARCHAR2NUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERVARCHAR2NUMBER

寬度(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)

約束

說明部門編號姓名崗位資基本資效益資加班金額夜班金額獨子月效資技師補醫(yī)務(wù)補護(hù)10%護(hù)齡女工衛(wèi)廠扣應(yīng)得資房租金水電暖公積金保險日期實發(fā)工資word檔可自由復(fù)制編輯

表4.4歷史數(shù)據(jù)表（sj）字段名稱BmXmJ1J2J3J4Rq

類型VARCHAR2VARCHAR2VARCHAR2NUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERVARCHAR2NUMBER

寬度(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)(8,2)

約束

說明部門編號姓名崗位資基本資效益資加班金額夜班金額獨子月效資技師補醫(yī)務(wù)補護(hù)10%護(hù)齡女工衛(wèi)廠扣應(yīng)得資房租金水電暖公積金保險日期實發(fā)工資word檔可自由復(fù)制編輯

4.2.2數(shù)據(jù)庫E-R稱

號

號

名

門部門

工作

員工領(lǐng)取資資資加班金額獨子資補補

工資

夜班金額日期保險金暖金資廠扣

齡

衛(wèi)圖4.2工資管理系統(tǒng)實體關(guān)系圖word檔可自由復(fù)制編輯

4.2.3數(shù)據(jù)庫的使用在Oracle中創(chuàng)建用戶，如圖4.2所示圖4.2創(chuàng)建用戶在Oracle中建表，如圖4.3所示圖4.3建表word檔可自由復(fù)制編輯

5詳細(xì)設(shè)5.1界設(shè)由于本系統(tǒng)是針對財務(wù)管理人員角色設(shè)計開發(fā)的，故未進(jìn)行權(quán)限的設(shè)定。在主界面顯示每個模塊的入口，點擊即可進(jìn)入。在狀態(tài)欄顯示系統(tǒng)日期和登錄系統(tǒng)時間。系統(tǒng)主界面如圖5.1所示：圖5.1系統(tǒng)主界面該模塊主要代碼：Tgzgl_f.FormCreate(Sender:TObject);//據(jù)庫連接處理begintry連接數(shù)據(jù)庫失敗!');word檔可自由復(fù)制編輯

Tmainf.FormCreate(Sender://態(tài)欄系統(tǒng)日期與時間beginStatusbar1.Panels[0].Text:='系統(tǒng)日期:Statusbar1.Panels[1].Text:='系統(tǒng)時間:'+timetostr(time);//選中菜單顯示相應(yīng)的窗體處為部門管理beginIfbmi.CheckedThen//If句做異常處理ELSEbeginbmf.Show;5.2本息理塊此模塊包括部門和員工的基本信息維護(hù)體功能包括門信息的添加和刪除，員工信息的添加和刪除輸入要添加的數(shù)據(jù)后“添加完成數(shù)據(jù)添加點“刷新”按鈕顯示數(shù)據(jù)。刪除數(shù)據(jù)時程序?qū)⑦B接后臺數(shù)據(jù)庫，判斷是否存在該記錄的工資信息，若不存在則刪除成功，若存在，則刪除失敗。如圖，5.3所示圖5.2部門信息維護(hù)word檔可自由復(fù)制編輯

部門信息維護(hù)核心代碼：TObject);beginedit1.Text:=trim(edit1.text);if(length(edit1.Text)=0)begin編號與單位名稱不能為空!');withdobeginSql.Add('InsertIntobmSql.Add('Parameters.ParamByName('y0').Value:=bh.Text;TryExecSql;showmessage('務(wù)器連接程序退出!');application.Terminate;TObject);beginif如果系存在本據(jù)不能刪除確刪除嗎?',mtconfirmation,[mbyes,mbno],0)word檔可自由復(fù)制編輯

=mrnothenq1.Close;q1.Sql.Clear;q1.Sql.Add('deletefromq1.Sql.Add('wherelike');Try服務(wù)器連接error,程序退出!');application.Terminate;q1.Close;TObject);varbeginQ1.Close;Q1.Sql.Clear;Q1.Sql.Add('Selectbh,mcFrom');orderTry服務(wù)器連接error,程序退出!application.Terminate;word檔可自由復(fù)制編輯

ForI:=0sg.RowCountsg.Cells[0,0]:='編號';sg.Cells[1,0]:='名稱';ForI:=1sg.RowCountBeginsg.Cells[0,i]:=(Q1.FieldByName('bh').AsString);sg.Cells[1,i]:=(Q1.FieldByName('mc').AsString);Q1.Close;TObject;varAction:TCloseAction);beginmainf.bmi.checked:=false;action:=cafree;varbeginfori:=1to9dofori:=10tobh.Items.Add(inttostr(i));word檔可自由復(fù)制編輯

員工信息維護(hù)：圖5.3員工信息維護(hù)員工信息維護(hù)核心代碼：TObject);beginedit1.Text:=trim(edit1.text);if(length(edit1.Text)=0)or(length(bm.Text)=0)begin編號與單位名稱不能為空!');withdobeginword檔可自由復(fù)制編輯

Sql.Add('InsertInto(bm,bh,xm)');Sql.Add('Values(:y0,:y1,:y2)');Parameters.ParamByName('y0').Value:=bm.Text;Parameters.ParamByName('y1').Value:=bh.Text;TryExecSql;服務(wù)器連接error,程序退出!');application.Terminate;TObject);beginifmessagedlg('如果統(tǒng)中存在本人資數(shù)據(jù)能刪確要刪除嗎?',mtconfirmation,[mbyes,mbno],0)=mrnothenbh.text:=trim(bh.text);if(length(bh.text)<2)thenexit;q1.Close;q1.Sql.Clear;q1.Sql.Add('deletefromq1.Sql.Add('wherelikelikeq1.Parameters.ParamByName('bm').Value:=bm.text+'%';Tryword檔可自由復(fù)制編輯

服務(wù)器連接error,程序退出!');application.Terminate;q1.Close;TObject);varbeginQ1.Close;Q1.Sql.Clear;Q1.Sql.Add('Selectry');q1.Sql.Add('wherelike:bm)');orderq1.Parameters.ParamByName('bm').Value:=bm.text+'%';Try服務(wù)器連接error,程序退出!application.Terminate;編號

姓名');ForI:=1Q1.RecordCountDoBeginword檔可自由復(fù)制編輯

Q1.Close;Tryf.bmChange(Sender:TObject);varbeginQ1.Close;Q1.Sql.Clear;Q1.Sql.Add('Selectry');q1.Sql.Add('wherelike:bm)');orderq1.Parameters.ParamByName('bm').Value:=bm.text+'%';Try服務(wù)器連接error,程序退出!application.Terminate;編號

姓名');ForI:=1Q1.RecordCountDoBeginListBox1.Items.Add(''+Q1.FieldByName('bh').AsString+''+Q1.FieldByName('xm').AsStrinQ1.Close;word檔可自由復(fù)制編輯

Tryf.FormClose(Sender:varTCloseAction);beginaction:=cafree;TObject);varbeginryf.Color:=rgb(220,170,140);Q1.Close;Q1.Sql.Clear;Q1.Sql.Add('SelectmcFrom');orderTry服務(wù)器連接error,程序退出!application.Terminate;ForI:=1Q1.RecordCountDoBeginbm.Items.Add(Q1.FieldByName('mc').AsString);Q1.Close;fori:=1to9dofori:=10tobh.Items.Add(inttostr(i));word檔可自由復(fù)制編輯

5.3資據(jù)塊本模塊包括月基本工資數(shù)據(jù)、月活動工資填報、月數(shù)據(jù)存檔三個子模塊，分別用于查看修改月基本工資數(shù)據(jù)，填報月活動工資數(shù)據(jù)以及對填報好的所有數(shù)據(jù)存檔。月基本數(shù)據(jù)界面設(shè)計如圖5.4所示：圖5.4月基本數(shù)據(jù)核心代碼：vari,j,k:integer;beginifmessagedlg('確認(rèn)更新數(shù)據(jù)嗎',mtconfirmation,[mbyes,mbno],0)=mrnothenifbm.Text=''k:=0;fori:=1tosg.RowCount-1doforj:=1to10begintrysg.Cells[j,i]:=floattostr(strtofloat(sg.Cells[j,i]));word檔可自由復(fù)制編輯

第'+inttostr(i)+'行第'+inttostr(j)+'列有非法數(shù)字);k:=k+1;ifthens:='';fori:=1tosg.RowCount-1dobegins:=sg.Cells[0,i];Q1.Close;Q1.Sql.Clear;updateryset');q1.Sql.Add('wherelike:bm)likeq1.Parameters.ParamByName('z10').Value:=strtofloat(sg.Cells[8,i]);q1.Parameters.ParamByName('z11').Value:=-(strtofloat(sg.Cells[1,i])*0.1618);//q1.ParamByName('z11').Asfloat:=0;q1.Parameters.ParamByName('k3').Value:=strtofloat(sg.Cells[9,i]);q1.Parameters.ParamByName('bh').Value:=copy(s,1,2)+'%';q1.Parameters.ParamByName('kbx').Value:=strtofloat(sg.Cells[10,i]);Try數(shù)據(jù)庫更新重新點擊更新”按鈕！');word檔可自由復(fù)制編輯

操作OK！Tjbf.bmExit(Sender:varbeginQ1.Close;Q1.Sql.Clear;Q1.Sql.Add('Selectbh,xm,z1,z4,z5,z6,z7,z8,z9,z10,k3,kbxFromry');q1.Sql.Add('wherelike:bm)');orderTry數(shù)據(jù)庫連接error,程序退出!application.Terminate;sg.ColCount:=11;ForI:=0sg.RowCount-1Dosg.Rows[I].Clear;sg.Cells[0,0]:='編號姓名;崗位資;計生補;月效資;技師補;醫(yī)務(wù)補;sg.Cells[6,0]:='護(hù)10%';sg.Cells[7,0]:='教護(hù)齡;sg.Cells[8,0]:='女工衛(wèi);sg.Cells[9,0]:='公積金;sg.Cells[10,0]:='保險;word檔可自由復(fù)制編輯

//md.Items.Clear;//md.Items.Add('');ForI:=1Q1.RecordCountDoBegin//md.Items.Add((Q1.FieldByName('bh').AsString)+(Q1.FieldByName('xm').AsString));sg.Cells[0,i]:=Q1.FieldByName('bh').AsString+Q1.FieldByName('xm').AsString;sg.Cells[9,i]:=floattostr(Q1.FieldByName('k3').Asfloat);sg.Cells[10,i]:=floattostr(Q1.FieldByName('kbx').Asfloat);Q1.Close;Tjbf.FormClose(Sender:TObject;Action:TCloseAction);beginaction:=cafree;Tjbf.FormCreate(Sender:varbeginjbf.Color:=rgb(255,255,255);bm.Items.Clear;Q1.Close;Q1.Sql.Clear;Q1.Sql.Add('Selectbh,mcFrom');orderTryword檔可自由復(fù)制編輯

服務(wù)器連接error,程序退出!application.Terminate;ForI:=1Q1.RecordCountDoBeginQ1.Close;每月活動工資填報圖5.5每月數(shù)據(jù)填報該部分核心代碼：Tmybhf.BitBtn1Click(Sender:vari,j,k:integer;beginForI:=1sg.RowCountsg.Cells[6,i]:=Label3.caption;word檔可自由復(fù)制編輯

ifmessagedlg('確認(rèn)更新數(shù)據(jù)嗎',mtconfirmation,[mbyes,mbno],0)=mrnothenifk:=0;fori:=1tosg.RowCount-1doforj:=2to5dobegintrysg.Cells[j,i]:=floattostr(strtofloat(sg.Cells[j,i]));第'+inttostr(i)+'行第'+inttostr(j)+'列有非法數(shù)字);k:=k+1;ifthens:='';fori:=1tosg.RowCount-1dobegins:=sg.Cells[0,i];Q1.Close;Q1.Sql.Clear;updaterysetj1=:j1,j2=:j2,j3=:j3,j4=:j4,');');q1.Sql.Add('wherelike:bm)likeq1.Parameters.ParamByName('j1').Value:=strtofloat(sg.Cells[2,i]);30;q1.Parameters.ParamByName('j3').Value:=strtofloat(sg.Cells[3,i]);q1.Parameters.ParamByName('j4').Value:=strtofloat(sg.Cells[3,i])*0.8;q1.Parameters.ParamByName('k1').Value:=strtofloat(sg.Cells[4,i]);q1.Parameters.ParamByName('k2').Value:=strtofloat(sg.Cells[5,i]);q1.Parameters.ParamByName('rq').Value:=sg.Cells[6,i];word檔可自由復(fù)制編輯

q1.Parameters.ParamByName('bh').Value:=copy(s,1,2)+'%';Try數(shù)據(jù)庫更新重新點擊更新”按鈕！');操作OK！TObject);varbeginQ1.Close;Q1.Sql.Clear;Q1.Sql.Add('Selectbh,xm,z1,j1,j3,k1,k2,rqry');q1.Sql.Add('wherelike:bm)');orderTry數(shù)據(jù)庫連接error,程序退出!application.Terminate;ForI:=0sg.RowCount-1Dosg.Rows[I].Clear;sg.Cells[0,0]:='編號姓名;sg.Cells[1,0]:='崗位資;sg.Cells[2,0]:='加班;sg.Cells[3,0]:='夜班;sg.Cells[4,0]:='房租;sg.Cells[5,0]:='水電暖;sg.Cells[6,0]:='日期;word檔可自由復(fù)制編輯

ForI:=1Q1.RecordCountDoBeginsg.Cells[0,i]:=Q1.FieldByName('bh').AsString+Q1.FieldByName('xm').AsString;sg.Cells[2,i]:=floattostr(Q1.FieldByName('j1').Asfloat);sg.Cells[3,i]:=floattostr(Q1.FieldByName('j3').Asfloat);sg.Cells[4,i]:=floattostr(Q1.FieldByName('k1').Asfloat);sg.Cells[5,i]:=floattostr(Q1.FieldByName('k2').Asfloat);sg.Cells[6,i]:=Q1.FieldByName('rq').Asstring;Q1.Close;Tmybhf.FormClose(Sender:TObject;varTCloseAction);beginmainf.ytbi.checked:=false;action:=cafree;Tmybhf.FormCreate(Sender:TObject);varYear,Month,Day:word;beginmybhf.Color:=rgb(220,170,140);bm.Items.Clear;Q1.Close;Q1.Sql.Clear;Q1.Sql.Add('Selectbh,mcFrom');orderTry服務(wù)器連接error,程序退出!application.Terminate;word檔可自由復(fù)制編輯

ForI:=1Q1.RecordCountDoBeginQ1.Close;數(shù)據(jù)存檔界面與代碼：圖5.6數(shù)據(jù)存檔該部分核心代碼：Tbcf.SpeedButton1Click(Sender:TObject);vari,x,y:integer;beginq3.Close;q3.Sql.Clear;q3.Sql.Add('deletefromsj');q3.Sql.Add('wherelikeq3.Parameters.ParamByName('rq').Value:=Label1.Caption+'%';Try存檔失敗程序退出!word檔可自由復(fù)制編輯

Q1.Close;Q1.Sql.Clear;Q1.Sql.Add('Selectry');Try本單位共'+inttostr(x)+'人Q1.Close;

');Q1.Sql.Clear;Q1.Sql.Add('Selectry');where(rqlike:y1)');Q1.Parameters.ParamByName('y1').Value:=Label1.Caption+'%';Try當(dāng)前月數(shù)據(jù)共'+inttostr(y)+'條');ifx<>ybegin當(dāng)月數(shù)據(jù)未填報完畢,許存檔!');q1.Close;Q1.Sql.Clear;Q1.Sql.Add('Select*Fromry');Try操作失敗，請重來!');word檔可自由復(fù)制編輯

forI:=1toQ1.RecordCountdoBEGINQ2.Sql.Add('InsertInto(bm,bh,xm,z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11,z12,z13,j1,j2,j3,j4,k1,k2,k3,rq,kbx)');q2.Sql.Add('Values(:y0,:y1,:y2,:y3,:y4,:y5,:y6,:y7,:y8,:y9,:y10,:y11,:y12,:y13,:y14,:y15,:y16,:y17,:y18,');Q2.Parameters.ParamByName('y1').Value:=Q1.FieldByName('bh').AsString;Q2.Parameters.ParamByName('y2').Value:=Q1.FieldByName('xm').AsString;Q2.Parameters.ParamByName('y3').Value:=Q1.FieldByName('z1').AsFloat;Q2.Parameters.ParamByName('y4').Value:=Q1.FieldByName('z2').AsFloat;Q2.Parameters.ParamByName('y5').Value:=Q1.FieldByName('z3').AsFloat;Q2.Parameters.ParamByName('y6').Value:=Q1.FieldByName('z4').AsFloat;Q2.Parameters.ParamByName('y7').Value:=Q1.FieldByName('z5').AsFloat;Q2.Parameters.ParamByName('y8').Value:=Q1.FieldByName('z6').AsFloat;Q2.Parameters.ParamByName('y9').Value:=Q1.FieldByName('z7').AsFloat;Q2.Parameters.ParamByName('y20').Value:=Q1.FieldByName('k1').AsFloat;Q2.Parameters.ParamByName('y21').Value:=Q1.FieldByName('k2').AsFloat;Q2.Parameters.ParamByName('y22').Value:=Q1.FieldByName('k3').AsFloat;Q2.Parameters.ParamByName('y24').Value:=Q1.FieldByName('kbx').AsFloat;Tryq3.Close;q3.Sql.Clear;word檔可自由復(fù)制編輯

q3.Sql.Add('deletefromsj');q3.Sql.Add('wherelikeq3.Parameters.ParamByName('rq').Value:=Label1.Caption+'%';Try存檔失敗,程序退出!');存檔失敗,程序退出!');END;當(dāng)月數(shù)據(jù)存檔OK!5.4月表塊本模塊包含當(dāng)月報表與當(dāng)月匯總表兩個子功能模塊當(dāng)月報表用于打印某一個部門的工資表或工資條，月匯總表可以查看一個或幾個部門的月工資匯總信息。界面設(shè)計如圖5.7，圖5.8所示。圖5.7當(dāng)月報表word檔可自由復(fù)制編輯

圖5.8月匯總表核心代碼：Thzbf.Button1Click(Sender:TObject);vari,j:integer;beginyf:=strtofloat(bb.EntryRC[i,3])+strtofloat(bb.EntryRC[i,7])+strtofloat(bb.EntryRC[i,9]);yf:=yf+strtofloat(bb.EntryRC[i,10])+strtofloat(bb.EntryRC[i,11])+strtofloat(bb.EntryRC[i,12]);yf:=yf+strtofloat(bb.EntryRC[i,13])+strtofloat(bb.EntryRC[i,14])+strtofloat(bb.EntryRC[i,15]);//bb.EntryRC[i,18]:=Floattostr(yf);sf:=yf-(strtofloat(bb.EntryRC[i,19])+strtofloat(bb.EntryRC[i,20])+strtofloat(bb.EntryRC[i,21]));sf:=sf-strtofloat(bb.EntryRC[i,22]);bb.EntryRC[i,7]:=FormatFloat('0.00',strtofloat(bb.EntryRC[i,7]));forj:=3to23word檔可自由復(fù)制編輯

beginyf:=0;fori:=1toyf:=yf+strtofloat(bb.EntryRC[i,j]);bb.EntryRC[bb.MaxRow,j]:=floattostr(yf);Tybf.R1Click(Sender://中工資表beginifbeginbb.Visible:=true;forI:=0tott.ColCount-dott.RowCount:=(bb.RowCount-2)*2;tt.ColCount:=23;k:=0;fori:=1tobeginforj:=0todobegintt.Cells[j,k+1]:=bb.Cells[j,i];k:=k+2;5.5史據(jù)塊本模塊包含歷史月報表與歷史匯總表兩個子功能模塊用于查詢一個多多個部門的歷史工資匯總。如圖5.9，圖5.10所示。word檔可自由復(fù)制編輯

圖5.9歷史月報表圖5.10歷史匯總表核心代碼：Tlshzf.Button2Click(Sender:TObject);vari,j,h:integer;word檔可自由復(fù)制編輯

begintryExcelApp:=CreateOleObject('Excel.Application');MyWorkBook:=CreateOleobject('Excel.Sheet');onraise無法運行請確認(rèn)已安裝!')//加一個工作表MyworkBook:=ExcelApp.workBooks.Add;//元格合并Myworkbook.worksheets[1].range['A1:W1'].Merge(True);//元格居中Myworkbook.worksheets[1].range['A1:J2'].HorizontalAlignment:=$FFFFEFF4;//表頭MyWorkBook.WorkSheets[1].Cells[1,1].Value:=Label3.Caption;//頭i:=2;forj:=0tobb.ColCountdoalueforh:=1bb.RowCountdoforj:=0tobb.ColCountdoifthenMyWorkBook.WorkSheets[1].Cells[h+2,j+1].Value:=bb.Cells[j,h];//置列寬:=4;:=4;:=5;//體顏色Myworkbook.worksheets[1].Range['A1:w2'].Font.Color:=clBlue;//體:='楷體;//'隸書';//號Myworkbook.worksheets[1].Range['A1:J1'].Font.Size:=18;//置數(shù)據(jù)行字體,大小word檔可自由復(fù)制編輯

:='仿宋';Myworkbook.worksheets[1].Range[s].Font.Size:=12;fori:=0todoifbeginbb.Cells[1,j]:=copy(bm.Items[i],3,20);bb.Cells[1,bb.RowCount-1]:='合計';fori:=1tobeginQ1.Close;Q1.Sql.Clear;Q1.Sql.Add('SelectQ1.Sql.Add('sum(k1),sum(k2),sum(k3),sum(kbx),sum(z13)');ry');where(bmlike:y1)andlike:y2)');Q1.Parameters.ParamByName('y1').Value:=bb.Cells[1,i]+'%';Q1.Parameters.ParamByName('y2').Value:=nd.Text+'-'+trim(yff.text)+'%';Tryforj:=0to20bb.Cells[j+2,i]:=floattostr(q1.fields[j].asfloat);fori:=1tobeginyf:=strtofloat(bb.Cells[2,i])+strtofloat(bb.Cells[3,i])+strtofloat(bb.Cells[4,i]);yf:=yf+strtofloat(bb.Cells[6,i])+strtofloat(bb.Cells[8,i])+strtofloat(bb.Cells[9,i]);yf:=yf+strtofloat(bb.Cells[10,i])+strtofloat(bb.Cells[11,i])+strtofloat(bb.Cells[12,i]);yf:=yf+strtofloat(bb.Cells[13,i])+strtofloat(bb.Cells[14,i])+strtofloat(bb.Cells[15,i]);word檔可自由復(fù)制編輯

yf:=yf+strtofloat(bb.Cells[16,i]);//bb.EntryRC[i,18]:=Floattostr(yf);bb.Cells[17,i]:=FormatFloat('0.00',yf);sf:=sf-strtofloat(bb.Cells[21,i]);bb.Cells[22,i]:=FormatFloat('0.00',sf);bb.Cells[6,i]: