目錄1 前言12 系統(tǒng)概況22.1系統(tǒng)開發(fā)背景22.2系統(tǒng)開發(fā)目的22.3系統(tǒng)平臺選用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需求陳述73.2可行性分析73.2.1技術(shù)可行性73.2.2時間、設(shè)備可行性73.2.3經(jīng)濟(jì)可行性84 概要設(shè)計(jì)94.1系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)94.2數(shù)據(jù)庫設(shè)計(jì)104.2.1數(shù)據(jù)庫邏輯結(jié)構(gòu)104.2.2 數(shù)據(jù)庫E-R圖124.2.3 Oracle數(shù)據(jù)庫的使用135 詳細(xì)設(shè)計(jì)145.1主界面設(shè)計(jì)145.2基本信息管理模塊155.3工資數(shù)據(jù)模塊245.4當(dāng)月報表模塊355.5歷史數(shù)據(jù)模塊375.6系統(tǒng)信息模塊416 系統(tǒng)性能測試與分析426.1測試范圍與主要內(nèi)容426.2測試方法426.3測試報告427 結(jié)論43參考文獻(xiàn)44致謝45 1 前言上世紀(jì)八、九十年代以來，計(jì)算機(jī)產(chǎn)業(yè)飛速發(fā)展，其應(yīng)用滲透在社會生產(chǎn)的各個領(lǐng)域。計(jì)算機(jī)在國內(nèi)的崛起加速了各企事業(yè)單位、機(jī)關(guān)的自動化進(jìn)程，提高了國民生產(chǎn)的效率，從而為國民經(jīng)濟(jì)的飛速發(fā)展創(chuàng)造了必要的條件。步入21世紀(jì)以來，計(jì)算機(jī)更是以驚人的普及速度，進(jìn)入各行各業(yè)和大部分家庭。各種應(yīng)用的需求也不斷增加，人們更加追求生活的品質(zhì)和工作的效率，企業(yè)更是視提高生產(chǎn)效率為生存和發(fā)展之道，于是通過科技手段提高生產(chǎn)和管理效率自然成為競爭和發(fā)展的焦點(diǎn)。這不僅包括如何實(shí)現(xiàn)企業(yè)生產(chǎn)設(shè)備的改進(jìn)和生產(chǎn)技術(shù)的提高還包括如何有效地組織和管理企業(yè)各項(xiàng)事務(wù)，實(shí)現(xiàn)企業(yè)的辦公自動化。而管理信息系統(tǒng)（Management Information System, MIS）在辦公自動化的進(jìn)程中發(fā)揮著重要的作用。市場需求也日益增加。大型企業(yè)的分工比較嚴(yán)格、細(xì)致，組織較為緊密，對軟硬件的要求也就比較高，因此試圖以一款軟件來解決企業(yè)的所有問題顯然是不可能的，這就需要我們細(xì)化事務(wù)，有針對性地開發(fā)縱向應(yīng)用廣泛的MIS系統(tǒng)。不僅能夠解決大型企業(yè)和機(jī)構(gòu)的某方面問題，還應(yīng)該能為更多的中、小型企業(yè)利用，提高他們的工作效率，加速企業(yè)的發(fā)展，從而促進(jìn)國民經(jīng)濟(jì)的建設(shè)。財務(wù)是每一個單位都會涉及的問題，管理軟件雨后春筍般崛起的今天，企業(yè)不僅需要通過軟件有效地對其實(shí)施管理，還想操作能夠盡可能簡單，軟件易于上手。通過查閱相關(guān)資料，對市場需求進(jìn)行分析，對既成工資管理軟件的研究和測試，我們認(rèn)為本課題是一個適應(yīng)現(xiàn)今工資管理需求的計(jì)算機(jī)信息管理系統(tǒng)，具有一定的現(xiàn)實(shí)意義和開發(fā)使用價值。2 系統(tǒng)概況2.1系統(tǒng)開發(fā)背景自20世紀(jì)80年代以來，知識經(jīng)濟(jì)的興起和信息技術(shù)的日新月異消除了人與人之間知識、信息傳遞的障礙，也帶來了人類經(jīng)營意識、管理觀念的巨大改變。21世紀(jì)是一個經(jīng)濟(jì)時代，經(jīng)濟(jì)競爭說到底是人才的競爭，誰擁有了人才，誰就將最終擁有財富。通過工資人事管理可以獲得并維持組織的競爭優(yōu)勢，人作為公司最重要的資產(chǎn)，如何用好人才，為每個人找到合適的崗位去發(fā)揮其特長是用人的關(guān)鍵環(huán)節(jié)。而運(yùn)用先進(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è)單位工資管理實(shí)現(xiàn)計(jì)算機(jī)管理，使管理員能夠有序地管理每一位職工的各項(xiàng)工資條款的發(fā)放以及員工個人臺帳的生成，使企業(yè)運(yùn)用現(xiàn)代化技術(shù)創(chuàng)造更多更高的經(jīng)濟(jì)效益。2.3系統(tǒng)平臺選用2.3.1數(shù)據(jù)庫技術(shù)的現(xiàn)狀與發(fā)展數(shù)據(jù)庫是60年代末出現(xiàn)的一門計(jì)算機(jī)軟件技術(shù)，到現(xiàn)在雖然只有三十多年的歷史，但在理論和時間上都得到了和很大的發(fā)展?，F(xiàn)在，數(shù)據(jù)庫是數(shù)據(jù)處理的主要工具，是管理信息系統(tǒng)(MIS)的核心部分。數(shù)據(jù)庫系統(tǒng)是當(dāng)今計(jì)算機(jī)信息系統(tǒng)的核心,是計(jì)算機(jī)技術(shù)和應(yīng)用發(fā)展的關(guān)鍵。傳統(tǒng)的數(shù)據(jù)庫系統(tǒng)旨在處理永久、穩(wěn)定的數(shù)據(jù)，強(qiáng)調(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)的（商務(wù)和管理的事務(wù)型）應(yīng)用領(lǐng)域獲得了極大成功。計(jì)算機(jī)世界報社與IBM公司聯(lián)合舉辦了"21世紀(jì)數(shù)據(jù)庫技術(shù)發(fā)展專家研討會"。IBM DB2的創(chuàng)始人Donald Haderle先生與國內(nèi)著名數(shù)據(jù)庫專家,就下世紀(jì)數(shù)據(jù)庫發(fā)展的趨勢、數(shù)據(jù)庫領(lǐng)域革命性的突破、IBM DB2的應(yīng)用、數(shù)據(jù)倉庫的實(shí)施、我國數(shù)據(jù)庫技術(shù)和應(yīng)用的現(xiàn)狀及趨勢、我國數(shù)據(jù)庫用戶的需求等問題,進(jìn)行了廣泛而深入的討論。2.3.2數(shù)據(jù)庫系統(tǒng)的選擇原則數(shù)據(jù)庫系統(tǒng)采用易于集成的，開放的技術(shù)。產(chǎn)品質(zhì)量優(yōu)異，可靠性高，適于長期運(yùn)行，能支持關(guān)鍵應(yīng)用。數(shù)據(jù)安全，保安型高。能提供分布式數(shù)據(jù)庫功能。支持多種開發(fā)環(huán)境，軟件開發(fā)容易。擴(kuò)充性和升級能力強(qiáng)。2.3.3系統(tǒng)開發(fā)工具的選擇本次工資管理系統(tǒng)選用Delphi與Oracle11g進(jìn)行開發(fā)，現(xiàn)在市場上有很多MIS的開發(fā)工具，如：Visual basic、Delphi、ASP等等，數(shù)據(jù)庫開發(fā)工具又有很多種，如：Access，SQL Sever，Oracle等等。與其他開發(fā)工具相比，Delphi與Oracle有著自己的特點(diǎn)與優(yōu)勢。Delphi簡介Delphi，是Windows平臺下著名的快速應(yīng)用程序開發(fā)工具（Rapid Application Development，簡稱RAD）。它的前身，即是DOS時代盛行一時的“Borland Turbo Pascal”，最早的版本由美國Borland（寶蘭）公司于1995年開發(fā)。主創(chuàng)者為Anders Hejlsberg。經(jīng)過數(shù)年的發(fā)展，此產(chǎn)品也轉(zhuǎn)移至Embarcadero公司旗下。從產(chǎn)品名稱上就可以知道，Turbo Pascal使用的是Pascal語言。從Turbo Pascal 5.5版開始，Borland公司在傳統(tǒng)Pascal的基礎(chǔ)上加入了面向?qū)ο蟮墓δ?。Delphi是一個集成開發(fā)環(huán)境（IDE），使用的核心是由傳統(tǒng)Pascal語言發(fā)展而來的Object Pascal，以圖形用戶界面（Graphical User Interface，簡稱GUI）為開發(fā)環(huán)境，透過IDE、VCL工具與編譯器，配合連結(jié)數(shù)據(jù)庫的功能，構(gòu)成一個以面向?qū)ο蟪绦蛟O(shè)計(jì)為中心的應(yīng)用程序開發(fā)工具。Delphi所編譯的可運(yùn)行檔，雖然容量較大，但效能上卻比較快。除了使用數(shù)據(jù)庫的程序之外，不需安裝即可運(yùn)行，在使用上相當(dāng)方便。Delphi在本質(zhì)上應(yīng)該歸類為軟件開發(fā)工具，而非程序語言，但由于Delphi幾乎是目前市場上唯一使用Pascal，并持續(xù)推出新版本的商業(yè)產(chǎn)品。因此，有時人們會把Delphi視為Object Pascal的代名詞。Borland公司因而把Object Pascal改稱為Delphi。2006年，Borland把開發(fā)工具產(chǎn)品線獨(dú)立出來，成立了一家新的公司CodeGear，并把產(chǎn)品線交由此公司負(fù)責(zé)。原本的Delphi，亦曾一度因此被命名為Turbo Delphi。但是在新的版本中，除了Delphi for Win32（原有的Delphi版本）之外，還有一個新產(chǎn)品“Delphi for PHP”。在CodeGear的發(fā)展規(guī)劃中，或許“Delphi”不再是Object Pascal的專屬IDE名稱，而是將之提升到通用IDE品牌的層次。2008年5月7日，Embarcadero Technologies（易博龍）公司宣布以2300萬美元的價格收購CodeGear公司，從而把Delphi收入囊中。2009年5月6日，Micro Focus宣布以7500萬美元收購Borland。Delphi目前的最新版本是2010。Delphi具有如下特點(diǎn)：直接編譯生成可執(zhí)行代碼，編譯速度快。由于Delphi編譯器采用了條件編譯和選擇鏈接技術(shù)，使用它生成的執(zhí)行文件更加精煉，運(yùn)行速度更快。在處理速度和存取服務(wù)器方面，Delphi的性能遠(yuǎn)遠(yuǎn)高于其他同類產(chǎn)品。 支持將存取規(guī)則分別交給客戶機(jī)或服務(wù)器處理的兩種方案，而且允許開發(fā)人員建立一個簡單的部件或部件集合，封裝起所有的規(guī)則，并獨(dú)立于服務(wù)器和客戶機(jī)，所有的數(shù)據(jù)轉(zhuǎn)移通過這些部件來完成。這樣，大大減少了對服務(wù)器的請求和網(wǎng)絡(luò)上的數(shù)據(jù)傳輸量，提高了應(yīng)用處理的速度。 提供了許多快速方便的開發(fā)方法，使開發(fā)人員能用盡可能少的重復(fù)性工作完成各種不同的應(yīng)用。利用項(xiàng)目模板和專家生成器可以很快建立項(xiàng)目的構(gòu)架，然后根據(jù)用戶的實(shí)際需要逐步完善。 具有可重用性和可擴(kuò)展性。開發(fā)人員不必再對諸如標(biāo)簽、按鈕及對話框等Windows的常見部件進(jìn)行編程。Delphi包含許多可以重復(fù)使用的部件，允許用戶控制Windows的開發(fā)效果。 具有強(qiáng)大的數(shù)據(jù)存取功能。它的數(shù)據(jù)處理工具BDE(BorlandDatabaseEngine)是一個標(biāo)準(zhǔn)的中介軟件層，可以用來處理當(dāng)前流行的數(shù)據(jù)格式，如xBase、Paradox等，也可以通過BDE的SQLLink直接與Sybase、SQLServer、Informix、Oracle等大型數(shù)據(jù)庫連接。 Delphi既可用于開發(fā)系統(tǒng)軟件，也適合于應(yīng)用軟件的開發(fā)。 擁有強(qiáng)大的網(wǎng)絡(luò)開發(fā)能力，能夠快速的開發(fā)B/S應(yīng)用，它內(nèi)置的IntraWeb和ExpressWeb使得對于網(wǎng)絡(luò)的開發(fā)效率超過了其他任何的開發(fā)工具。 Delphi使用獨(dú)特的VCL類庫，使得編寫出的程序顯得條理清晰，VCL是現(xiàn)在最優(yōu)秀的類庫，它使得Delphi在軟件開發(fā)行業(yè)處于一個絕對領(lǐng)先的地位。用戶可以按自己的需要，任意的構(gòu)建、擴(kuò)充、甚至是刪減VCL，以滿足不同的需要。 從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ā)者提供了DELPHI FOR PHP，以高度可視化的方式全面支持面向?qū)ο蟮腜HP 網(wǎng)站開發(fā)，大大提高了PHP開發(fā)網(wǎng)站的代碼復(fù)用程度，成為WEB應(yīng)用開發(fā)的新利器。Oracle簡介Oracle的關(guān)系數(shù)據(jù)庫是世界第一個支持SQL語言的數(shù)據(jù)庫。1977年，Lawrence J.Ellison領(lǐng)著一些同事成立了Oracle公司，他們的成功強(qiáng)力反擊了那些說關(guān)系數(shù)據(jù)庫無法成功商業(yè)化的說法?，F(xiàn)在，Oracle公司的財產(chǎn)凈值已經(jīng)由當(dāng)初的2000美元增值到了現(xiàn)在的年收入超過97億美元。Oracle 11g 擴(kuò)展了 Oracle 獨(dú)家具有的提供網(wǎng)格計(jì)算優(yōu)勢的功能，可以利用它來提高用戶服務(wù)水平、減少停機(jī)時間以及更加有效地利用 IT資源，同時還可以增強(qiáng)全天候業(yè)務(wù)應(yīng)用程序的性能、可伸縮性和安全性。11 g降低了數(shù)據(jù)庫升級以及其他硬件和操作系統(tǒng)更改的成本，顯著簡化了更改前后的系統(tǒng)測試以便您可以識別和解決問題。例如： 利用 Database Replay，可以在數(shù)據(jù)庫級別輕松捕獲實(shí)際的生產(chǎn)負(fù)載并在您的測試系統(tǒng)上重新播放，這樣您可以全面測試系統(tǒng)更改（包括關(guān)鍵的并發(fā)特性）的影響。 Oracle 數(shù)據(jù)庫 11 g繼續(xù)致力于（從 Oracle9i數(shù)據(jù)庫開始一直到 Oracle 數(shù)據(jù)庫10 g）顯著簡化和完全自動化 DBA 任務(wù)。 Oracle數(shù)據(jù)庫11 g中的新功能包括： 利用自學(xué)功能自動進(jìn)行 SQL 優(yōu)化系統(tǒng)全局區(qū)(SGA)和程序全局區(qū)( PGA)的內(nèi)存緩存區(qū)的自動、統(tǒng)一調(diào)整新的 advisor用于分區(qū)、數(shù)據(jù)恢復(fù)、流性能和空間管理針對自動數(shù)據(jù)庫診斷監(jiān)視器 (ADDM)的增強(qiáng)，能夠提供 Oracle 真正應(yīng)用集群 (Oracle RAC)環(huán)境中的更好的性能全局視圖以及改進(jìn)的性能比較分析功能。Oracle 數(shù)據(jù)庫 11 g中新增的故障診斷功能使客戶在發(fā)生錯誤后捕獲 OracleSupport所需的數(shù)據(jù)變得極為簡單。這可以加速問題的解決，減少客戶重現(xiàn)問題的需要。Delphi 和 Oracle 數(shù)據(jù)庫的連接方法Oracle是以高級結(jié)構(gòu)化查詢語言(SQL)為基礎(chǔ)的大型關(guān)系數(shù)據(jù)庫，是目前最流行的客戶/服務(wù)器(CLIENT/SERVER)體系結(jié)構(gòu)的數(shù)據(jù)庫之一，目前被廣泛應(yīng)用于各類型企業(yè)的信息化管理中。數(shù)據(jù)庫支持是Delphi7.0開發(fā)環(huán)境的一個重要特性，很多程序員在數(shù)據(jù)庫應(yīng)用程序開發(fā)中都采用Delphi7.0作為開發(fā)工具，來實(shí)現(xiàn)對數(shù)據(jù)庫的訪問和控制。Delphi數(shù)據(jù)庫應(yīng)用程序是通過數(shù)據(jù)庫引擎來訪問它們引用的數(shù)據(jù)源的。本文概括性的介紹在Windows XP環(huán)境中Delphi7.0連接Oracle數(shù)據(jù)庫的3種方式，它們分別是BDE、ADO、DbExpress。ADO(ActiveX Data Objects)是Microsoft的高級接口，基于Microsoft的數(shù)據(jù)訪問OLEDB技術(shù)而實(shí)現(xiàn)。本系統(tǒng)采用ADO方式連接Oracle數(shù)據(jù)庫。3 需求分析3.1需求陳述本系統(tǒng)擬在完成工資管理的同時，集成其他必要的功能，以保證系統(tǒng)的完整性和安全性。具體包括，員工基本信息管理、部門管理、當(dāng)前工資及歷史工資管理等?，F(xiàn)對有關(guān)要求描述如下：整體結(jié)構(gòu)合理，風(fēng)格一致，模塊化結(jié)構(gòu)，界面清晰，接口靈活，操作簡便。開發(fā)方法，文檔規(guī)范化，便于管理，可擴(kuò)充。完善的數(shù)據(jù)輸入，維護(hù)，輸出。自檢性能高，用戶誤輸、錯輸均有提示。容錯性能高，某個用戶的操作錯誤不會引起整個系統(tǒng)的癱瘓，每一功能的操作都有信息提示以免重復(fù)操作，錯誤操作有警告，以便用戶及時改正。3.2可行性分析3.2.1技術(shù)可行性技術(shù)上的可行性分析主要分析現(xiàn)有技術(shù)條件能否順利完成開發(fā)工作，軟硬件配置能否滿足開發(fā)者需要等，這一特點(diǎn)非常適合計(jì)算機(jī)的特點(diǎn)，發(fā)揮計(jì)算機(jī)的數(shù)據(jù)處理速度快，準(zhǔn)確率高的優(yōu)勢，現(xiàn)代計(jì)算機(jī)硬件和軟件技術(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)，現(xiàn)有計(jì)算機(jī)的軟硬件配置能夠滿足系統(tǒng)開發(fā)的要求，具備時間和設(shè)備的可行性。3.2.3經(jīng)濟(jì)可行性基于企業(yè)的現(xiàn)有計(jì)算機(jī)及配套設(shè)備，建設(shè)MIS系統(tǒng)。不但能大大減少重復(fù)性的書面報告，降低辦公費(fèi)用，提高辦公室效率，而且能提高檢測數(shù)據(jù)效用，為企業(yè)提供很方便。由于企業(yè)工資管理系統(tǒng)是一個比較小型的系統(tǒng)，開發(fā)工具也均可免費(fèi)使用，網(wǎng)絡(luò)資源豐富，只需較少的花費(fèi)在技術(shù)文獻(xiàn)上，開發(fā)成本較低，因此，開發(fā)本系統(tǒng)具有經(jīng)濟(jì)上的可行性。4 概要設(shè)計(jì)4.1系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)工資管理系統(tǒng)數(shù)據(jù)字典維護(hù)工資數(shù)據(jù)當(dāng)月報表歷史數(shù)據(jù)系統(tǒng)信息部門信息管理員工信息管理基本數(shù)據(jù)每月填報每月存檔當(dāng)月報表當(dāng)月匯總部門月報月匯總表圖4.1 功能模塊圖表4.1功能說明表功能序號功能名稱功能說明1部門信息管理包含對部門信息的增加、刪除2員工信息管理包含對員工信息的增加、刪除3基本工資數(shù)據(jù)查看和修改基本工資信息4活動工資數(shù)據(jù)填報每月活動工資數(shù)據(jù)5每月工資存檔每月工資填報完畢后存儲數(shù)據(jù)6當(dāng)月報表查看當(dāng)月各部門工資表，打印工資條7當(dāng)月匯總表查詢當(dāng)月各部門工資匯總信息8歷史部門月報查詢歷史年月的部門工資信息9歷史月匯總表查詢指定部門制定年月的歷史工資匯總信息10系統(tǒng)信息系統(tǒng)與作者信息等設(shè)計(jì)角色：財務(wù)管理人員4.2數(shù)據(jù)庫設(shè)計(jì)4.2.1數(shù)據(jù)庫邏輯結(jié)構(gòu)表4.2 部門信息表（bm）字段名稱類型寬度約束說明BhVARCHAR23Pk部門編號McVARCHAR210部門名稱表4.3 職工工資信息表（ry）字段名稱類型寬度約束說明BmVARCHAR210部門BhVARCHAR23編號XmVARCHAR210姓名Z1NUMBER(8,2)崗位資Z2NUMBER(8,2)基本資Z3NUMBER(8,2)效益資J1NUMBER(8,2)加班J2NUMBER(8,2)金額J3NUMBER(8,2)夜班J4NUMBER(8,2)金額Z4NUMBER(8,2)獨(dú)子Z5NUMBER(8,2)月效資Z6NUMBER(8,2)技師補(bǔ)Z7NUMBER(8,2)醫(yī)務(wù)補(bǔ)Z8NUMBER(8,2)護(hù)10%Z9NUMBER(8,2)護(hù)齡Z10NUMBER(8,2)女工衛(wèi)Z11NUMBER(8,2)廠扣Z12NUMBER(8,2)應(yīng)得資K1NUMBER(8,2)房租金K2NUMBER(8,2)水電暖K3NUMBER(8,2)公積金Z13NUMBER(8,2)保險RqVARCHAR2200日期KbxNUMBER(8,2)實(shí)發(fā)工資表4.4 歷史數(shù)據(jù)表（sj）字段名稱類型寬度約束說明BmVARCHAR210部門BhVARCHAR23編號XmVARCHAR210姓名Z1NUMBER(8,2)崗位資Z2NUMBER(8,2)基本資Z3NUMBER(8,2)效益資J1NUMBER(8,2)加班J2NUMBER(8,2)金額J3NUMBER(8,2)夜班J4NUMBER(8,2)金額Z4NUMBER(8,2)獨(dú)子Z5NUMBER(8,2)月效資Z6NUMBER(8,2)技師補(bǔ)Z7NUMBER(8,2)醫(yī)務(wù)補(bǔ)Z8NUMBER(8,2)護(hù)10%Z9NUMBER(8,2)護(hù)齡Z10NUMBER(8,2)女工衛(wèi)Z11NUMBER(8,2)廠扣Z12NUMBER(8,2)應(yīng)得資K1NUMBER(8,2)房租金K2NUMBER(8,2)水電暖K3NUMBER(8,2)公積金Z13NUMBER(8,2)保險RqVARCHAR2200日期KbxNUMBER(8,2)實(shí)發(fā)工資4.2.2 數(shù)據(jù)庫E-R圖部門部門名稱部門編號員工員工編號員工姓名所在部門工作工資月效資應(yīng)得資房租金水電暖公積金保險日期實(shí)發(fā)工資金額夜班獨(dú)子金額加班效益資基本資崗位資醫(yī)務(wù)補(bǔ)技師補(bǔ)護(hù)10%廠扣護(hù)齡女工衛(wèi)領(lǐng)取n11n圖4.2 工資管理系統(tǒng)實(shí)體關(guān)系圖4.2.3 Oracle數(shù)據(jù)庫的使用在Oracle中創(chuàng)建用戶，如圖4.2所示圖4.2創(chuàng)建用戶在Oracle中建表，如圖4.3所示圖4.3建表5 詳細(xì)設(shè)計(jì)5.1主界面設(shè)計(jì)由于本系統(tǒng)是針對財務(wù)管理人員角色設(shè)計(jì)開發(fā)的，故未進(jìn)行權(quán)限的設(shè)定。在主界面顯示每個模塊的入口，點(diǎn)擊即可進(jìn)入。在狀態(tài)欄顯示系統(tǒng)日期和登錄系統(tǒng)時間。系統(tǒng)主界面如圖5.1所示：圖5.1 系統(tǒng)主界面該模塊主要代碼：procedure Tgzgl_f.FormCreate(Sender: TObject); /數(shù)據(jù)庫連接處理begingzgl_f.Color:=rgb(180,130,100); try db1.Connected:=true; except showmessage('連接數(shù)據(jù)庫失敗 ! '); application.terminate; end;end;procedure Tmainf.FormCreate(Sender: TObject); /狀態(tài)欄系統(tǒng)日期與時間begin Statusbar1.Panels0.Text:='系統(tǒng)日期:'+datetostr(date); Statusbar1.Panels1.Text:='系統(tǒng)時間:'+timetostr(time);end;procedure Tmainf.bmiClick(Sender: TObject); /選中菜單顯示相應(yīng)的窗體，此處為部門管理begin If bmi.Checked Then /用If語句做異常處理 bmf.Show ELSE begin Application.CreateForm(Tbmf,bmf); bmf.Show; bmi.Checked:=True; end;end;5.2基本信息管理模塊此模塊包括部門和員工的基本信息維護(hù)，具體功能包括，部門信息的添加和刪除，員工信息的添加和刪除。輸入要添加的數(shù)據(jù)后，點(diǎn)擊“添加”完成數(shù)據(jù)添加，點(diǎn)擊“刷新”按鈕顯示數(shù)據(jù)。刪除數(shù)據(jù)時程序?qū)⑦B接后臺數(shù)據(jù)庫，判斷是否存在該記錄的工資信息，若不存在則刪除成功，若存在，則刪除失敗。如圖5.2，5.3所示圖5.2部門信息維護(hù)部門信息維護(hù)核心代碼：procedure Tbmf.BitBtn1Click(Sender: TObject);begin edit1.Text:=trim(edit1.text); if (length(edit1.Text)=0) or (length(bh.Text)=0) then begin showmessage('編號與單位名稱不能為空!'); exit; end; with Q1 do begin Close; Sql.Clear; Sql.Add('Insert Into bm (bh,mc)'); Sql.Add(' Values(:y0,:y1) '); Parameters.ParamByName('y0').Value:=bh.Text; Parameters.ParamByName('y1').Value:=edit1.Text; Try ExecSql; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; end; end;end;procedure Tbmf.BitBtn2Click(Sender: TObject);beginif messagedlg('如果系統(tǒng)中存在本部門數(shù)據(jù)不能刪除,確要刪除嗎?',mtconfirmation,mbyes,mbno,0) =mrno then exit;q1.Close; q1.Sql.Clear; q1.Sql.Add('delete from bm '); q1.Sql.Add(' where (bh like :bh) '); q1.Parameters.ParamByName('bh').Value:=bh.text+'%' Try q1.ExecSql; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; end; q1.Close;end;procedure Tbmf.BitBtn3Click(Sender: TObject); var i:integer;begin Q1.Close; Q1.Sql.Clear; Q1.Sql.Add('Select bh,mc From bm '); Q1.Sql.Add(' order by bh'); Try Q1.Open; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; End; sg.RowCount:=Q1.RecordCount+1; sg.ColCount:=2; For I:=0 To sg.RowCount Do sg.RowsI.Clear; sg.Cells0,0:='編號' sg.Cells1,0:='名稱' For I:=1 To sg.RowCount Do Begin sg.Cells0,i:=(Q1.FieldByName('bh').AsString); sg.Cells1,i:=(Q1.FieldByName('mc').AsString); Q1.Next; End; Q1.Close;end;procedure Tbmf.FormClose(Sender: TObject; var Action: TCloseAction);beginmainf.bmi.checked:=false;action:=cafree;end;procedure Tbmf.FormCreate(Sender: TObject); var i:integer;beginbmf.Color:=rgb(220,170,140); for i:=1 to 9 do bh.Items.Add('0'+inttostr(i); for i:=10 to 50 do bh.Items.Add(inttostr(i); sg.FixedColor:=rgb(180,130,100);end;員工信息維護(hù)：圖5.3員工信息維護(hù)員工信息維護(hù)核心代碼：procedure Tryf.BitBtn1Click(Sender: TObject);begin edit1.Text:=trim(edit1.text); if (length(edit1.Text)=0) or (length(bh.Text)=0) or (length(bm.Text)=0) then begin showmessage('編號與單位名稱不能為空!'); exit; end; with Q1 do begin Close; Sql.Clear; Sql.Add('Insert Into ry (bm,bh,xm)'); Sql.Add(' Values(:y0,:y1,:y2) '); Parameters.ParamByName('y0').Value:=bm.Text; Parameters.ParamByName('y1').Value:=bh.Text; Parameters.ParamByName('y2').Value:=edit1.Text; Try ExecSql; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; end; end; end;procedure Tryf.BitBtn2Click(Sender: TObject);beginif messagedlg('如果系統(tǒng)中存在本人工資數(shù)據(jù)不能刪除,確要刪除嗎?',mtconfirmation,mbyes,mbno,0) =mrno then exit; bh.text:=trim(bh.text); if (length(bh.text)<2) then exit; q1.Close; q1.Sql.Clear; q1.Sql.Add('delete from ry '); q1.Sql.Add(' where (bh like :bh) and (bm like :bm)'); q1.Parameters.ParamByName('bh').Value:=bh.text+'%' q1.Parameters.ParamByName('bm').Value:=bm.text+'%' Try q1.ExecSql; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; end; q1.Close;end;procedure Tryf.BitBtn3Click(Sender: TObject);var i:integer;beginListBox1.Items.Clear; Q1.Close; Q1.Sql.Clear; Q1.Sql.Add('Select bh,xm From ry '); q1.Sql.Add(' where (bm like :bm) '); Q1.Sql.Add(' order by bh'); q1.Parameters.ParamByName('bm').Value:=bm.text+'%' Try Q1.Open; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; End; ListBox1.Items.Add(' 編號 姓名'); For I:=1 To Q1.RecordCount Do Begin ListBox1.Items.Add(' '+Q1.FieldByName('bh').AsString+' '+Q1.FieldByName('xm').AsString); Q1.Next; End; Q1.Close;end;procedure Tryf.bmChange(Sender: TObject); var i:integer; beginListBox1.Items.Clear; Q1.Close; Q1.Sql.Clear; Q1.Sql.Add('Select bh,xm From ry '); q1.Sql.Add(' where (bm like :bm) '); Q1.Sql.Add(' order by bh'); q1.Parameters.ParamByName('bm').Value:=bm.text+'%' Try Q1.Open; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; End; ListBox1.Items.Add(' 編號 姓名'); For I:=1 To Q1.RecordCount Do Begin ListBox1.Items.Add(''+Q1.FieldByName('bh').AsString+''+Q1.FieldByName('xm').AsString); Q1.Next; End; Q1.Close; bh.Text:='' edit1.Text:=''end;procedure Tryf.FormClose(Sender: TObject; var Action: TCloseAction);beginmainf.ryi.checked:=false;action:=cafree;end;procedure Tryf.FormCreate(Sender: TObject);var i:integer;beginryf.Color:=rgb(220,170,140); Q1.Close; Q1.Sql.Clear; Q1.Sql.Add('Select mc From bm '); Q1.Sql.Add(' order by bh'); Try Q1.Open; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; End; For I:=1 To Q1.RecordCount Do Begin bm.Items.Add(Q1.FieldByName('mc').AsString); Q1.Next; End; Q1.Close; for i:=1 to 9 do bh.Items.Add('0'+inttostr(i); for i:=10 to 99 do bh.Items.Add(inttostr(i);end;5.3工資數(shù)據(jù)模塊本模塊包括月基本工資數(shù)據(jù)、月活動工資填報、月數(shù)據(jù)存檔三個子模塊，分別用于查看修改月基本工資數(shù)據(jù)，填報月活動工資數(shù)據(jù)以及對填報好的所有數(shù)據(jù)存檔。月基本數(shù)據(jù)界面設(shè)計(jì)如圖5.4所示：圖5.4 月基本數(shù)據(jù)核心代碼：procedure Tjbf.BitBtn1Click(Sender: TObject); var i,j,k:integer; s:string;beginif messagedlg('確認(rèn)更新數(shù)據(jù)嗎?',mtconfirmation,mbyes,mbno,0) =mrno then exit; if bm.Text='' then exit; k:=0; for i:=1 to sg.RowCount-1 do for j:=1 to 10 do begin try sg.Cellsj,i:=floattostr(strtofloat(sg.Cellsj,i); except showmessage('第'+inttostr(i)+'行 第'+inttostr(j)+'列有非法數(shù)字'); k:=k+1; end; end; if k>0 then exit; s:='' for i:=1 to sg.RowCount-1 do begin s:=sg.Cells0,i; Q1.Close; Q1.Sql.Clear;Q1.Sql.Add(' update ry set z1=:z1,z2=:z2,z3=:z3,z4=:z4,z5=:z5,z6=:z6, ');Q1.Sql.Add('z7=:z7,z8=:z8,z9=:z9,z10=:z10,z11=:z11,k3=:k3,kbx=:kbx ');q1.Sql.Add(' where (bm like :bm ) and (bh like :bh)');q1.Parameters.ParamByName('z1').Value:=strtofloat(sg.Cells1,i);q1.Parameters.ParamByName('z2').Value:=strtofloat(sg.Cells1,i)*0.4;q1.Parameters.ParamByName('z3').Value:=strtofloat(sg.Cells1,i)*0.6;q1.Parameters.ParamByName('z4').Value:=strtofloat(sg.Cells2,i);q1.Parameters.ParamByName('z5').Value:=strtofloat(sg.Cells3,i);q1.Parameters.ParamByName('z6').Value:=strtofloat(sg.Cells4,i);q1.Parameters.ParamByName('z7').Value:=strtofloat(sg.Cells5,i);q1.Parameters.ParamByName('z8').Value:=strtofloat(sg.Cells6,i);q1.Parameters.ParamByName('z9').Value:=strtofloat(sg.Cells7,i);q1.Parameters.ParamByName('z10').Value:=strtofloat(sg.Cells8,i);q1.Parameters.ParamByName('z11').Value:=-(strtofloat(sg.Cells1,i)*0.1618);/q1.ParamByName('z11').Asfloat:=0;q1.Parameters.ParamByName('k3').Value:=strtofloat(sg.Cells9,i);q1.Parameters.ParamByName('bm').Value:=copy(bm.Text,3,20)+'%'q1.Parameters.ParamByName('bh').Value:=copy(s,1,2)+'%'q1.Parameters.ParamByName('kbx').Value:=strtofloat(sg.Cells10,i); Try Q1.ExecSql; except showmessage('數(shù)據(jù)庫更新error 重新點(diǎn)擊“更新”按鈕！'); exit; end; end; showmessage(' 操作 OK ！')end;procedure Tjbf.bmExit(Sender: TObject); var i:integer; begin Q1.Close; Q1.Sql.Clear; Q1.Sql.Add('Select bh,xm,z1,z4,z5,z6,z7,z8,z9,z10,k3,kbx From ry '); q1.Sql.Add(' where (bm like :bm )'); q1.Parameters.ParamByName('bm').Value:=copy(bm.text,3,20)+'%' Q1.Sql.Add(' order by bh'); Try Q1.Open; except showmessage('數(shù)據(jù)庫連接error,程序退出!'); application.Terminate; End; sg.RowCount:=Q1.RecordCount+1; sg.ColCount:=11; For I:=0 To sg.RowCount-1 Do sg.RowsI.Clear; sg.Cells0,0:='編號姓名' sg.Cells1,0:='崗位資' sg.Cells2,0:='計(jì)生補(bǔ)' sg.Cells3,0:='月效資' sg.Cells4,0:='技師補(bǔ)' sg.Cells5,0:='醫(yī)務(wù)補(bǔ)' sg.Cells6,0:='護(hù)10%' sg.Cells7,0:='教護(hù)齡' sg.Cells8,0:='女工衛(wèi)' sg.Cells9,0:='公積金' sg.Cells10,0:='保險' /md.Items.Clear; /md.Items.Add(' '); For I:=1 To Q1.RecordCount Do Begin / md.Items.Add(Q1.FieldByName('bh').AsString)+(Q1.FieldByName('xm').AsString); sg.Cells0,i:=Q1.FieldByName('bh').AsString+Q1.FieldByName('xm').AsString; sg.Cells1,i:=floattostr(Q1.FieldByName('z1').Asfloat); sg.Cells2,i:=floattostr(Q1.FieldByName('z4').Asfloat); sg.Cells3,i:=floattostr(Q1.FieldByName('z5').Asfloat); sg.Cells4,i:=floattostr(Q1.FieldByName('z6').Asfloat); sg.Cells5,i:=floattostr(Q1.FieldByName('z7').Asfloat); sg.Cells6,i:=floattostr(Q1.FieldByName('z8').Asfloat); sg.Cells7,i:=floattostr(Q1.FieldByName('z9').Asfloat); sg.Cells8,i:=floattostr(Q1.FieldByName('z10').Asfloat); sg.Cells9,i:=floattostr(Q1.FieldByName('k3').Asfloat); sg.Cells10,i:=floattostr(Q1.FieldByName('kbx').Asfloat); Q1.Next; End; Q1.Close;end;procedure Tjbf.FormClose(Sender: TObject; var Action: TCloseAction);beginmainf.jbi.checked:=false;action:=cafree;end;procedure Tjbf.FormCreate(Sender: TObject); var i:integer;beginjbf.Color:=rgb(255,255,255); bm.Items.Clear; Q1.Close; Q1.Sql.Clear; Q1.Sql.Add('Select bh,mc From bm '); Q1.Sql.Add(' order by bh'); Try Q1.Open; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; End; For I:=1 To Q1.RecordCount Do Begin bm.Items.Add(Q1.FieldByName('bh').AsString+Q1.FieldByName('mc').AsString); Q1.Next; End; Q1.Close;end;每月活動工資填報圖5.5 每月數(shù)據(jù)填報該部分核心代碼：procedure Tmybhf.BitBtn1Click(Sender: TObject); var i,j,k:integer; s:string;