工資管理系統(tǒng)

1、.編 號(hào)： 審定成績(jī)：先鋒軟件學(xué)院2011屆畢業(yè)論文題目： ERP工資管理系統(tǒng) 分 院：軟件工程分院學(xué)生XX：專 業(yè)：計(jì)算機(jī)應(yīng)用技術(shù)班 級(jí)：學(xué) 號(hào)：指導(dǎo)教師：填表時(shí)間： 年 月先鋒軟件學(xué)院學(xué)生畢業(yè)設(shè)計(jì)（論文）工作自查表（2010 年 10 月- 2011 年 4 月檢查）學(xué)生XX專業(yè)學(xué)號(hào)導(dǎo)師XX職稱教師導(dǎo)師每周指導(dǎo)次數(shù)5每次： 3 小時(shí)題目名稱ERP工資管理系統(tǒng)作息時(shí)間上午9時(shí) 12 時(shí)下午14時(shí) 17 時(shí)晚間19時(shí) 21 時(shí)個(gè)人精力實(shí)際投入日均工作小時(shí)8周均工作小時(shí)40缺席天數(shù)0出勤率%100畢業(yè)設(shè)計(jì)（論文）工作進(jìn)度已完成主要內(nèi)容%待完成主要內(nèi)容%2010年11月初開(kāi)始收集資料，工具的選擇；

2、2011年1月初開(kāi)始論文的編寫(xiě)，排版。圖表的添加，刪除等操作；2011年1月中旬完成論文，發(fā)表總結(jié)，修改不足之處等結(jié)尾工作。95加入圖片，表格頁(yè)面的美工，論文的批改，頁(yè)眉頁(yè)腳，字體文表等各方面不足之處的修改和完善論文。（薪酬管理）5存在問(wèn)題工作措施主要是各個(gè)功能塊的連接方式還存在問(wèn)題，待老師幫助解決后，有了初步的解決構(gòu)思。指導(dǎo)教師（簽字）： 日期： 年 月 日先鋒軟件學(xué)院畢業(yè)論文評(píng)閱表（指導(dǎo)教師、評(píng)閱人用）論文（設(shè)計(jì)）名稱ERP工資管理系統(tǒng)學(xué)生XX學(xué)號(hào)5指導(dǎo)教師或評(píng)閱人）XX序號(hào)評(píng)審項(xiàng)目指標(biāo)滿分評(píng)分1論文（設(shè)計(jì)）完成量論文（設(shè)計(jì)）內(nèi)容完成量，難易程度符合教學(xué)基本要求202調(diào)查與綜合根據(jù)論文（設(shè)

3、計(jì)）任務(wù)，能獨(dú)立查閱文獻(xiàn)資料和從事其它有關(guān)調(diào)研。有收集、綜合和正確利用各種信息的能力。203論文（設(shè)計(jì)）質(zhì)量文章切合選題，材料豐富、內(nèi)容充實(shí)，觀點(diǎn)明確、論據(jù)充分、論證嚴(yán)格，構(gòu)思完整、層次分明、段落、論題間的銜接自然、舒展。文筆流暢、語(yǔ)言通順、使用專業(yè)術(shù)語(yǔ)準(zhǔn)確，圖表清楚，符合要求。504創(chuàng)新有獨(dú)特的見(jiàn)解，或有一定應(yīng)用價(jià)值10總分評(píng)語(yǔ)：（明確指出論文（設(shè)計(jì)）的調(diào)研論證材料收集是否適合論點(diǎn)要求、創(chuàng)新點(diǎn)、論文（設(shè)計(jì)）論證能力、寫(xiě)作水平，同時(shí)要明確指出論文（設(shè)計(jì)）的不足之處及改進(jìn)方向。）（薪酬相關(guān)）評(píng)閱人： 年 月 日摘 要 摘要：隨著Internet技術(shù)的發(fā)展，人們的日常生活已經(jīng)離不開(kāi)網(wǎng)絡(luò)。未來(lái)社會(huì)人

4、們的生活和工作將越來(lái)越依賴于數(shù)字技術(shù)的發(fā)展，越來(lái)越數(shù)字化點(diǎn)、網(wǎng)絡(luò)化、電子化、虛擬化。電子商務(wù)也會(huì)隨著網(wǎng)絡(luò)的發(fā)展日益貼近人們的生活。Internet目前的發(fā)展趨勢(shì)以及應(yīng)用狀況,可以充分的相信網(wǎng)絡(luò)技術(shù),極大的改善我們的生活方式和工作方式。本設(shè)計(jì)嘗試使用Delphi開(kāi)發(fā)一個(gè)屬于本公司的員工的工資管理系統(tǒng)，以使得整個(gè)公司上下很好的管理每一位員工每月的工資發(fā)放和統(tǒng)計(jì)。關(guān)鍵詞：Internet RAD Delphi電子商務(wù) 數(shù)據(jù)庫(kù)AbstractAbstract: Summary along with the development of Internet tschnology, daily life c

5、an not already do without the network. The life and work of the social people of future will depend on the development of digital technology more and more, Digitize more and more, the networking, electronization, virtual, E-merce presses close to peoples life day by day along with the development of

6、 network too.Development course and present application state and development trend of Internet, can believe network technology great change life and working way of us fully, even a certain change will take place in the values of the society.This design tries to use Delphi to develop a pany is emplo

7、yees Belong to the Salary Management System,To make the whole well managedAcross the pany every employee payroll and monthly statistica.Keyword：Internet RAD Delphi E-merce Database.目錄前言11系統(tǒng)概況21.1系統(tǒng)開(kāi)發(fā)背景21.2系統(tǒng)開(kāi)發(fā)目的21.3系統(tǒng)平臺(tái)選用21.3.1數(shù)據(jù)庫(kù)技術(shù)的現(xiàn)狀與發(fā)展31.3.2數(shù)據(jù)庫(kù)系統(tǒng)的選擇原則41.3.3系統(tǒng)開(kāi)發(fā)工具的選擇42需求分析72.1需求陳述72.2可行性分析72.2.1技術(shù)

8、可行性72.2.2時(shí)間、設(shè)備可行性72.2.3經(jīng)濟(jì)可行性83概要設(shè)計(jì)93.1系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)93.2數(shù)據(jù)庫(kù)設(shè)計(jì)93.2.1數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)103.2.2 數(shù)據(jù)庫(kù)E-R圖123.2.3 Oracle數(shù)據(jù)庫(kù)的使用134詳細(xì)設(shè)計(jì)144.1主界面設(shè)計(jì)144.2基本信息管理模塊154.3工資數(shù)據(jù)模塊244.4當(dāng)月報(bào)表模塊354.5歷史數(shù)據(jù)模塊375系統(tǒng)性能測(cè)試與分析425.2測(cè)試方法425.3測(cè)試報(bào)告42總 結(jié)44致 謝45參考文獻(xiàn)46前言上世紀(jì)八、九十年代以來(lái)，計(jì)算機(jī)產(chǎn)業(yè)飛速發(fā)展，其應(yīng)用滲透在社會(huì)生產(chǎn)的各個(gè)領(lǐng)域。計(jì)算機(jī)在國(guó)內(nèi)的崛起加速了各企事業(yè)單位、機(jī)關(guān)的自動(dòng)化進(jìn)程，提高了國(guó)民生產(chǎn)的效率，從而為國(guó)民經(jīng)濟(jì)

9、的飛速發(fā)展創(chuàng)造了必要的條件。步入21世紀(jì)以來(lái)，計(jì)算機(jī)更是以驚人的普及速度，進(jìn)入各行各業(yè)和大部分家庭。各種應(yīng)用的需求也不斷增加，人們更加追求生活的品質(zhì)和工作的效率，企業(yè)更是視提高生產(chǎn)效率為生存和發(fā)展之道，于是通過(guò)科技手段提高生產(chǎn)和管理效率自然成為競(jìng)爭(zhēng)和發(fā)展的焦點(diǎn)。這不僅包括如何實(shí)現(xiàn)企業(yè)生產(chǎn)設(shè)備的改進(jìn)和生產(chǎn)技術(shù)的提高還包括如何有效地組織和管理企業(yè)各項(xiàng)事務(wù)，實(shí)現(xiàn)企業(yè)的辦公自動(dòng)化。而管理信息系統(tǒng)（Management Information System, MIS）在辦公自動(dòng)化的進(jìn)程中發(fā)揮著重要的作用。市場(chǎng)需求也日益增加。大型企業(yè)的分工比較嚴(yán)格、細(xì)致，組織較為緊密，對(duì)軟硬件的要求也就比較高，因此試圖以

10、一款軟件來(lái)解決企業(yè)的所有問(wèn)題顯然是不可能的，這就需要我們細(xì)化事務(wù)，有針對(duì)性地開(kāi)發(fā)縱向應(yīng)用廣泛的MIS系統(tǒng)。不僅能夠解決大型企業(yè)和機(jī)構(gòu)的某方面問(wèn)題，還應(yīng)該能為更多的中、小型企業(yè)利用，提高他們的工作效率，加速企業(yè)的發(fā)展，從而促進(jìn)國(guó)民經(jīng)濟(jì)的建設(shè)。財(cái)務(wù)是每一個(gè)單位都會(huì)涉及的問(wèn)題，管理軟件雨后春筍般崛起的今天，企業(yè)不僅需要通過(guò)軟件有效地對(duì)其實(shí)施管理，還想操作能夠盡可能簡(jiǎn)單，軟件易于上手。通過(guò)查閱相關(guān)資料，對(duì)市場(chǎng)需求進(jìn)行分析，對(duì)既成工資管理軟件的研究和測(cè)試，我們認(rèn)為本課題是一個(gè)適應(yīng)現(xiàn)今工資管理需求的計(jì)算機(jī)信息管理系統(tǒng)，具有一定的現(xiàn)實(shí)意義和開(kāi)發(fā)使用價(jià)值。1.系統(tǒng)概況1.1系統(tǒng)開(kāi)發(fā)背景自20世紀(jì)80年代以來(lái)，

11、知識(shí)經(jīng)濟(jì)的興起和信息技術(shù)的日新月異消除了人與人之間知識(shí)、信息傳遞的障礙，也帶來(lái)了人類經(jīng)營(yíng)意識(shí)、管理觀念的巨大改變。21世紀(jì)是一個(gè)經(jīng)濟(jì)時(shí)代，經(jīng)濟(jì)競(jìng)爭(zhēng)說(shuō)到底是人才的競(jìng)爭(zhēng)，誰(shuí)擁有了人才，誰(shuí)就將最終擁有財(cái)富。通過(guò)工資人事管理可以獲得并維持組織的競(jìng)爭(zhēng)優(yōu)勢(shì)，人作為公司最重要的資產(chǎn)，如何用好人才，為每個(gè)人找到合適的崗位去發(fā)揮其特長(zhǎng)是用人的關(guān)鍵環(huán)節(jié)。而運(yùn)用先進(jìn)科技手段進(jìn)行有效管理是最好的發(fā)展方向。MIS作為提高管理效率和辦公自動(dòng)化進(jìn)程的重要工具，已深入到國(guó)民生產(chǎn)的方方面面。我們更加需要開(kāi)發(fā)適應(yīng)不同行業(yè)不同需求的MIS系統(tǒng)。1.2系統(tǒng)開(kāi)發(fā)目的本系統(tǒng)開(kāi)發(fā)的主要目的就是要使企事業(yè)單位工資管理實(shí)現(xiàn)計(jì)算機(jī)管理，使管理員

12、能夠有序地管理每一位職工的各項(xiàng)工資條款的發(fā)放以及員工個(gè)人臺(tái)帳的生成，使企業(yè)運(yùn)用現(xiàn)代化技術(shù)創(chuàng)造更多更高的經(jīng)濟(jì)效益。1.3系統(tǒng)平臺(tái)選用1.3.1數(shù)據(jù)庫(kù)技術(shù)的現(xiàn)狀與發(fā)展數(shù)據(jù)庫(kù)是60年代末出現(xiàn)的一門(mén)計(jì)算機(jī)軟件技術(shù)，到現(xiàn)在雖然只有三十多年的歷史，但在理論和時(shí)間上都得到了和很大的發(fā)展?，F(xiàn)在，數(shù)據(jù)庫(kù)是數(shù)據(jù)處理的主要工具，是管理信息系統(tǒng)(MIS)的核心部分。數(shù)據(jù)庫(kù)系統(tǒng)是當(dāng)今計(jì)算機(jī)信息系統(tǒng)的核心,是計(jì)算機(jī)技術(shù)和應(yīng)用發(fā)展的關(guān)鍵。傳統(tǒng)的數(shù)據(jù)庫(kù)系統(tǒng)旨在處理永久、穩(wěn)定的數(shù)據(jù)，強(qiáng)調(diào)維護(hù)數(shù)據(jù)的完整性、一致性。數(shù)據(jù)庫(kù)理論與技術(shù)的發(fā)展極其迅速，其應(yīng)用日益廣泛，在當(dāng)今的信息社會(huì)中，它幾乎無(wú)所不在。以關(guān)系型為代表的三大經(jīng)典（層次、

13、網(wǎng)狀、關(guān)系）型數(shù)據(jù)庫(kù)在傳統(tǒng)的（商務(wù)和管理的事務(wù)型）應(yīng)用領(lǐng)域獲得了極大成功。計(jì)算機(jī)世界報(bào)社與IBM公司聯(lián)合舉辦了"21世紀(jì)數(shù)據(jù)庫(kù)技術(shù)發(fā)展專家研討會(huì)"。IBM DB2的創(chuàng)始人Donald Haderle先生與國(guó)內(nèi)著名數(shù)據(jù)庫(kù)專家,就下世紀(jì)數(shù)據(jù)庫(kù)發(fā)展的趨勢(shì)、數(shù)據(jù)庫(kù)領(lǐng)域革命性的突破、IBM DB2的應(yīng)用、數(shù)據(jù)倉(cāng)庫(kù)的實(shí)施、我國(guó)數(shù)據(jù)庫(kù)技術(shù)和應(yīng)用的現(xiàn)狀及趨勢(shì)、我國(guó)數(shù)據(jù)庫(kù)用戶的需求等問(wèn)題,進(jìn)行了廣泛而深入的討論。1.3.2數(shù)據(jù)庫(kù)系統(tǒng)的選擇原則數(shù)據(jù)庫(kù)系統(tǒng)采用易于集成的，開(kāi)放的技術(shù)。產(chǎn)品質(zhì)量?jī)?yōu)異，可靠性高，適于長(zhǎng)期運(yùn)行，能支持關(guān)鍵應(yīng)用。數(shù)據(jù)安全，保安型高。能提供分布式數(shù)據(jù)庫(kù)功能。支持多種開(kāi)發(fā)環(huán)境

14、，軟件開(kāi)發(fā)容易。擴(kuò)充性和升級(jí)能力強(qiáng)。1.3.3系統(tǒng)開(kāi)發(fā)工具的選擇本次工資管理系統(tǒng)選用Delphi與Oracle11g進(jìn)行開(kāi)發(fā)，現(xiàn)在市場(chǎng)上有很多MIS的開(kāi)發(fā)工具，如：Visual basic、Delphi、ASP等等，數(shù)據(jù)庫(kù)開(kāi)發(fā)工具又有很多種，如：Access，SQL Sever，Oracle等等。與其他開(kāi)發(fā)工具相比，Delphi與Oracle有著自己的特點(diǎn)與優(yōu)勢(shì)。Delphi簡(jiǎn)介Delphi，是Windows平臺(tái)下著名的快速應(yīng)用程序開(kāi)發(fā)工具（Rapid Application Development，簡(jiǎn)稱RAD）。它的前身，即是DOS時(shí)代盛行一時(shí)的“Borland Turbo Pascal”，

15、最早的版本由美國(guó)Borland（寶蘭）公司于1995年開(kāi)發(fā)。主創(chuàng)者為Anders Hejlsberg。經(jīng)過(guò)數(shù)年的發(fā)展，此產(chǎn)品也轉(zhuǎn)移至Embarcadero公司旗下。從產(chǎn)品名稱上就可以知道，Turbo Pascal使用的是Pascal語(yǔ)言。從Turbo Pascal 5.5版開(kāi)始，Borland公司在傳統(tǒng)Pascal的基礎(chǔ)上加入了面向?qū)ο蟮墓δ堋elphi是一個(gè)集成開(kāi)發(fā)環(huán)境（IDE），使用的核心是由傳統(tǒng)Pascal語(yǔ)言發(fā)展而來(lái)的Object Pascal，以圖形用戶界面（Graphical User Interface，簡(jiǎn)稱GUI）為開(kāi)發(fā)環(huán)境，透過(guò)IDE、VCL工具與編譯器，配合連結(jié)數(shù)據(jù)庫(kù)的功

16、能，構(gòu)成一個(gè)以面向?qū)ο蟪绦蛟O(shè)計(jì)為中心的應(yīng)用程序開(kāi)發(fā)工具。Delphi所編譯的可運(yùn)行檔，雖然容量較大，但效能上卻比較快。除了使用數(shù)據(jù)庫(kù)的程序之外，不需安裝即可運(yùn)行，在使用上相當(dāng)方便。Delphi在本質(zhì)上應(yīng)該歸類為軟件開(kāi)發(fā)工具，而非程序語(yǔ)言，但由于Delphi幾乎是目前市場(chǎng)上唯一使用Pascal，并持續(xù)推出新版本的商業(yè)產(chǎn)品。因此，有時(shí)人們會(huì)把Delphi視為Object Pascal的代名詞。Borland公司因而把Object Pascal改稱為Delphi。2006年，Borland把開(kāi)發(fā)工具產(chǎn)品線獨(dú)立出來(lái)，成立了一家新的公司CodeGear，并把產(chǎn)品線交由此公司負(fù)責(zé)。原本的Delphi，亦曾

17、一度因此被命名為T(mén)urbo Delphi。但是在新的版本中，除了Delphi for Win32（原有的Delphi版本）之外，還有一個(gè)新產(chǎn)品“Delphi for PHP”。在CodeGear的發(fā)展規(guī)劃中，或許“Delphi”不再是Object Pascal的專屬I(mǎi)DE名稱，而是將之提升到通用IDE品牌的層次。2008年5月7日，Embarcadero Technologies（易博龍）公司宣布以2300萬(wàn)美元的價(jià)格收購(gòu)CodeGear公司，從而把Delphi收入囊中。2009年5月6日，Micro Focus宣布以7500萬(wàn)美元收購(gòu)Borland。Delphi目前的最新版本是2010。De

18、lphi具有如下特點(diǎn)：直接編譯生成可執(zhí)行代碼，編譯速度快。由于Delphi編譯器采用了條件編譯和選擇技術(shù)，使用它生成的執(zhí)行文件更加精煉，運(yùn)行速度更快。在處理速度和存取服務(wù)器方面，Delphi的性能遠(yuǎn)遠(yuǎn)高于其他同類產(chǎn)品。 支持將存取規(guī)則分別交給客戶機(jī)或服務(wù)器處理的兩種方案，而且允許開(kāi)發(fā)人員建立一個(gè)簡(jiǎn)單的部件或部件集合，封裝起所有的規(guī)則，并獨(dú)立于服務(wù)器和客戶機(jī)，所有的數(shù)據(jù)轉(zhuǎn)移通過(guò)這些部件來(lái)完成。這樣，大大減少了對(duì)服務(wù)器的請(qǐng)求和網(wǎng)絡(luò)上的數(shù)據(jù)傳輸量，提高了應(yīng)用處理的速度。 提供了許多快速方便的開(kāi)發(fā)方法，使開(kāi)發(fā)人員能用盡可能少的重復(fù)性工作完成各種不同的應(yīng)用。利用項(xiàng)目模板和專家生成器可以很快建立項(xiàng)目的構(gòu)架

19、，然后根據(jù)用戶的實(shí)際需要逐步完善。 具有可重用性和可擴(kuò)展性。開(kāi)發(fā)人員不必再對(duì)諸如標(biāo)簽、按鈕及對(duì)話框等Windows的常見(jiàn)部件進(jìn)行編程。Delphi包含許多可以重復(fù)使用的部件，允許用戶控制Windows的開(kāi)發(fā)效果。具有強(qiáng)大的數(shù)據(jù)存取功能。它的數(shù)據(jù)處理工具BDE(BorlandDatabaseEngine)是一個(gè)標(biāo)準(zhǔn)的中介軟件層，可以用來(lái)處理當(dāng)前流行的數(shù)據(jù)格式，如xBase、Paradox等，也可以通過(guò)BDE的SQLLink直接與Sybase、SQLServer、Informix、Oracle等大型數(shù)據(jù)庫(kù)連接。 Delphi既可用于開(kāi)發(fā)系統(tǒng)軟件，也適合于應(yīng)用軟件的開(kāi)發(fā)。 擁有強(qiáng)大的網(wǎng)絡(luò)開(kāi)發(fā)能力，能

20、夠快速的開(kāi)發(fā)B/S應(yīng)用，它內(nèi)置的IntraWeb和ExpressWeb使得對(duì)于網(wǎng)絡(luò)的開(kāi)發(fā)效率超過(guò)了其他任何的開(kāi)發(fā)工具。 Delphi使用獨(dú)特的VCL類庫(kù)，使得編寫(xiě)出的程序顯得條理清晰，VCL是現(xiàn)在最優(yōu)秀的類庫(kù)，它使得Delphi在軟件開(kāi)發(fā)行業(yè)處于一個(gè)絕對(duì)領(lǐng)先的地位。用戶可以按自己的需要，任意的構(gòu)建、擴(kuò)充、甚至是刪減VCL，以滿足不同的需要。 從Delphi8開(kāi)始Delphi也支持.Net框架下程序開(kāi)發(fā)。 當(dāng)前DELPHI 已經(jīng)成為一個(gè)品牌，而不僅僅是一個(gè)開(kāi)發(fā)平臺(tái)或開(kāi)發(fā)語(yǔ)言的名稱。 當(dāng)前DELPHI產(chǎn)品已經(jīng)由CodeGear公司繼續(xù)發(fā)展，該公司是BORLAND公司的全資子公司。當(dāng)前，CodeGe

21、ar為廣大開(kāi)發(fā)者提供了DELPHI FOR PHP，以高度可視化的方式全面支持面向?qū)ο蟮腜HP 開(kāi)發(fā)，大大提高了PHP開(kāi)發(fā)的代碼復(fù)用程度，成為WEB應(yīng)用開(kāi)發(fā)的新利器。Oracle簡(jiǎn)介Oracle的關(guān)系數(shù)據(jù)庫(kù)是世界第一個(gè)支持SQL語(yǔ)言的數(shù)據(jù)庫(kù)。1977年，Lawrence J.Ellison領(lǐng)著一些同事成立了Oracle公司，他們的成功強(qiáng)力反擊了那些說(shuō)關(guān)系數(shù)據(jù)庫(kù)無(wú)法成功商業(yè)化的說(shuō)法。現(xiàn)在，Oracle公司的財(cái)產(chǎn)凈值已經(jīng)由當(dāng)初的2000美元增值到了現(xiàn)在的年收入超過(guò)97億美元。Oracle 11g 擴(kuò)展了 Oracle 獨(dú)家具有的提供網(wǎng)格計(jì)算優(yōu)勢(shì)的功能，可以利用它來(lái)提高用戶服務(wù)水平、減少停機(jī)時(shí)間以及

22、更加有效地利用 IT資源，同時(shí)還可以增強(qiáng)全天候業(yè)務(wù)應(yīng)用程序的性能、可伸縮性和安全性。11 g降低了數(shù)據(jù)庫(kù)升級(jí)以及其他硬件和操作系統(tǒng)更改的成本，顯著簡(jiǎn)化了更改前后的系統(tǒng)測(cè)試以便您可以識(shí)別和解決問(wèn)題。例如： 利用 DatabaseReplay，可以在數(shù)據(jù)庫(kù)級(jí)別輕松捕獲實(shí)際的生產(chǎn)負(fù)載并在您的測(cè)試系統(tǒng)上重新播放，這樣您可以全面測(cè)試系統(tǒng)更改（包括關(guān)鍵的并發(fā)特性）的影響。 Oracle 數(shù)據(jù)庫(kù) 11 g繼續(xù)致力于（從 Oracle9i數(shù)據(jù)庫(kù)開(kāi)始一直到 Oracle 數(shù)據(jù)庫(kù)10 g）顯著簡(jiǎn)化和完全自動(dòng)化 DBA 任務(wù)。 Oracle數(shù)據(jù)庫(kù)11 g中的新功能包括： 利用自學(xué)功能自動(dòng)進(jìn)行 SQL 優(yōu)化系統(tǒng)全局區(qū)

23、(SGA)和程序全局區(qū)( PGA)的內(nèi)存緩存區(qū)的自動(dòng)、統(tǒng)一調(diào)整新的 advisor用于分區(qū)、數(shù)據(jù)恢復(fù)、流性能和空間管理針對(duì)自動(dòng)數(shù)據(jù)庫(kù)診斷監(jiān)視器 (ADDM)的增強(qiáng)，能夠提供 Oracle 真正應(yīng)用集群 (Oracle RAC)環(huán)境中的更好的性能全局視圖以及改進(jìn)的性能比較分析功能。Oracle 數(shù)據(jù)庫(kù) 11 g中新增的故障診斷功能使客戶在發(fā)生錯(cuò)誤后捕獲 OracleSupport所需的數(shù)據(jù)變得極為簡(jiǎn)單。這可以加速問(wèn)題的解決，減少客戶重現(xiàn)問(wèn)題的需要。Delphi 和 Oracle 數(shù)據(jù)庫(kù)的連接方法Oracle是以高級(jí)結(jié)構(gòu)化查詢語(yǔ)言(SQL)為基礎(chǔ)的大型關(guān)系數(shù)據(jù)庫(kù)，是目前最流行的客戶/服務(wù)器(CLI

24、ENT/SERVER)體系結(jié)構(gòu)的數(shù)據(jù)庫(kù)之一，目前被廣泛應(yīng)用于各類型企業(yè)的信息化管理中。數(shù)據(jù)庫(kù)支持是Delphi7.0開(kāi)發(fā)環(huán)境的一個(gè)重要特性，很多程序員在數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)中都采用Delphi7.0作為開(kāi)發(fā)工具，來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)和控制。Delphi數(shù)據(jù)庫(kù)應(yīng)用程序是通過(guò)數(shù)據(jù)庫(kù)引擎來(lái)訪問(wèn)它們引用的數(shù)據(jù)源的。本文概括性的介紹在Windows XP環(huán)境中Delphi7.0連接Oracle數(shù)據(jù)庫(kù)的3種方式，它們分別是BDE、ADO、DbExpress。ADO(ActiveX Data Objects)是Microsoft的高級(jí)接口，基于Microsoft的數(shù)據(jù)訪問(wèn)OLEDB技術(shù)而實(shí)現(xiàn)。本系統(tǒng)采用ADO

25、方式連接Oracle數(shù)據(jù)庫(kù)。2.需求分析2.1需求陳述本系統(tǒng)擬在完成工資管理的同時(shí)，集成其他必要的功能，以保證系統(tǒng)的完整性和安全性。具體包括，員工基本信息管理、部門(mén)管理、當(dāng)前工資及歷史工資管理等?，F(xiàn)對(duì)有關(guān)要求描述如下：整體結(jié)構(gòu)合理，風(fēng)格一致，模塊化結(jié)構(gòu)，界面清晰，接口靈活，操作簡(jiǎn)便。開(kāi)發(fā)方法，文檔規(guī)X化，便于管理，可擴(kuò)充。完善的數(shù)據(jù)輸入，維護(hù)，輸出。自檢性能高，用戶誤輸、錯(cuò)輸均有提示。容錯(cuò)性能高，某個(gè)用戶的操作錯(cuò)誤不會(huì)引起整個(gè)系統(tǒng)的癱瘓，每一功能的操作都有信息提示以免重復(fù)操作，錯(cuò)誤操作有警告，以便用戶及時(shí)改正。2.2可行性分析2.2.1技術(shù)可行性技術(shù)上的可行性分析主要分析現(xiàn)有技術(shù)條件能否順利完

26、成開(kāi)發(fā)工作，軟硬件配置能否滿足開(kāi)發(fā)者需要等，這一特點(diǎn)非常適合計(jì)算機(jī)的特點(diǎn)，發(fā)揮計(jì)算機(jī)的數(shù)據(jù)處理速度快，準(zhǔn)確率高的優(yōu)勢(shì)，現(xiàn)代計(jì)算機(jī)硬件和軟件技術(shù)的飛速發(fā)展，為系統(tǒng)的建設(shè)提供了技術(shù)條件。通過(guò)對(duì)Delphi和Oracle的系統(tǒng)學(xué)習(xí)，已經(jīng)基本掌握了開(kāi)發(fā)本系統(tǒng)所需的技術(shù)和查閱文獻(xiàn)的能力。對(duì)工資管理系統(tǒng)這一類的財(cái)務(wù)系統(tǒng)開(kāi)發(fā)也有一定的認(rèn)識(shí)，因此具備技術(shù)可行性。2.2.2時(shí)間、設(shè)備可行性5周的時(shí)間足夠開(kāi)發(fā)一個(gè)滿足中小型企業(yè)簡(jiǎn)單需求的工資管理系統(tǒng)，現(xiàn)有計(jì)算機(jī)的軟硬件配置能夠滿足系統(tǒng)開(kāi)發(fā)的要求，具備時(shí)間和設(shè)備的可行性。2.2.3經(jīng)濟(jì)可行性基于企業(yè)的現(xiàn)有計(jì)算機(jī)及配套設(shè)備，建設(shè)MIS系統(tǒng)。不但能大大減少重復(fù)性的書(shū)面報(bào)

27、告，降低辦公費(fèi)用，提高辦公室效率，而且能提高檢測(cè)數(shù)據(jù)效用，為企業(yè)提供很方便。由于企業(yè)工資管理系統(tǒng)是一個(gè)比較小型的系統(tǒng)，開(kāi)發(fā)工具也均可免費(fèi)使用，網(wǎng)絡(luò)資源豐富，只需較少的花費(fèi)在技術(shù)文獻(xiàn)上，開(kāi)發(fā)成本較低，因此，開(kāi)發(fā)本系統(tǒng)具有經(jīng)濟(jì)上的可行性。3.概要設(shè)計(jì)3.1系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)工資管理系統(tǒng)數(shù)據(jù)字典維護(hù)工資數(shù)據(jù)當(dāng)月報(bào)表歷史數(shù)據(jù)系統(tǒng)信息部門(mén)信息管理員工信息管理基本數(shù)據(jù)每月填報(bào)每月存檔當(dāng)月報(bào)表當(dāng)月匯總部門(mén)月報(bào)月匯總表圖3.1 功能模塊圖功能序號(hào)功能名稱功能說(shuō)明1部門(mén)信息管理包含對(duì)部門(mén)信息的增加、刪除2員工信息管理包含對(duì)員工信息的增加、刪除3基本工資數(shù)據(jù)查看和修改基本工資信息4活動(dòng)工資數(shù)據(jù)填報(bào)每月活動(dòng)工資數(shù)據(jù)5

28、每月工資存檔每月工資填報(bào)完畢后存儲(chǔ)數(shù)據(jù)6當(dāng)月報(bào)表查看當(dāng)月各部門(mén)工資表，打印工資條7當(dāng)月匯總表查詢當(dāng)月各部門(mén)工資匯總信息8歷史部門(mén)月報(bào)查詢歷史年月的部門(mén)工資信息9歷史月匯總表查詢指定部門(mén)制定年月的歷史工資匯總信息10系統(tǒng)信息系統(tǒng)與作者信息等表3.1功能說(shuō)明表 設(shè)計(jì)角色：財(cái)務(wù)管理人員3.2數(shù)據(jù)庫(kù)設(shè)計(jì)3.2.1數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)字段名稱類型寬度約束說(shuō)明BhVARCHAR23Pk部門(mén)編號(hào)McVARCHAR210部門(mén)名稱表3.2 部門(mén)信息表（bm）字段名稱類型寬度約束說(shuō)明BmVARCHAR210部門(mén)BhVARCHAR23編號(hào)XmVARCHAR210XXZ1NUMBER(8,2)崗位資Z2NUMBER(8,2

29、)基本資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)保險(xiǎn)RqVARCHAR22

30、00日期KbxNUMBER(8,2)實(shí)發(fā)工資表3.3 職工工資信息表（ry）字段名稱類型寬度約束說(shuō)明BmVARCHAR21部門(mén)BhVARCHAR23編號(hào)XmVARCHAR210XXZ1NUMBER(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ù)齡Z10NUMB

31、ER(8,2)女工衛(wèi)Z11NUMBER(8,2)廠扣Z12NUMBER(8,2)應(yīng)得資K1NUMBER(8,2)房租金K2NUMBER(8,2)水電暖K3NUMBER(8,2)公積金Z13NUMBER(8,2)保險(xiǎn)RqVARCHAR2200日期KbxNUMBER(8,2)實(shí)發(fā)工資表3.4 歷史數(shù)據(jù)表（sj）3.2.2 數(shù)據(jù)庫(kù)E-R圖部門(mén)部門(mén)名稱部門(mén)編號(hào)員工員工編號(hào)員工XX所在部門(mén)工作工資月效資應(yīng)得資房租金水電暖公積金保險(xiǎn)日期實(shí)發(fā)工資金額夜班獨(dú)子金額加班效益資基本資崗位資醫(yī)務(wù)補(bǔ)技師補(bǔ)護(hù)10%廠扣護(hù)齡女工衛(wèi)領(lǐng)取n11n圖3.2 工資管理系統(tǒng)實(shí)體關(guān)系圖3.2.3 Oracle數(shù)據(jù)庫(kù)的使用在Oracl

32、e中創(chuàng)建用戶，如圖3.2所示圖3.2創(chuàng)建用戶在Oracle中建表，如圖3.3所示圖3.3建表4.詳細(xì)設(shè)計(jì)4.1主界面設(shè)計(jì)由于本系統(tǒng)是針對(duì)財(cái)務(wù)管理人員角色設(shè)計(jì)開(kāi)發(fā)的，故未進(jìn)行權(quán)限的設(shè)定。在主界面顯示每個(gè)模塊的入口，點(diǎn)擊即可進(jìn)入。在狀態(tài)欄顯示系統(tǒng)日期和登錄系統(tǒng)時(shí)間。系統(tǒng)主界面如圖4.1所示：圖4.1 系統(tǒng)主界面該模塊主要代碼：procedure Tgzgl_f.FormCreate(Sender: TObject); /數(shù)據(jù)庫(kù)連接處理begingzgl_f.Color:=rgb(180,130,100); try db1.Connected:=true; except showmessage(&#

33、39;連接數(shù)據(jù)庫(kù)失敗 ! '); application.terminate; end;end;procedure Tmainf.FormCreate(Sender: TObject); /狀態(tài)欄系統(tǒng)日期與時(shí)間begin Statusbar1.Panels0.Text:='系統(tǒng)日期:'+datetostr(date); Statusbar1.Panels1.Text:='系統(tǒng)時(shí)間:'+timetostr(time);end;procedure Tmainf.bmiClick(Sender: TObject); /選中菜單顯示相應(yīng)的窗體，此處為部門(mén)管理be

34、gin If bmi.Checked Then /用If語(yǔ)句做異常處理 bmf.Show ELSE begin Application.CreateForm(Tbmf,bmf); bmf.Show; bmi.Checked:=True; end;end;4.2基本信息管理模塊此模塊包括部門(mén)和員工的基本信息維護(hù)，具體功能包括，部門(mén)信息的添加和刪除，員工信息的添加和刪除。輸入要添加的數(shù)據(jù)后，點(diǎn)擊“添加”完成數(shù)據(jù)添加，點(diǎn)擊“刷新”按鈕顯示數(shù)據(jù)。刪除數(shù)據(jù)時(shí)程序?qū)⑦B接后臺(tái)數(shù)據(jù)庫(kù)，判斷是否存在該記錄的工資信息，若不存在則刪除成功，若存在，則刪除失敗。如圖4.2，4.3所示圖4.2部門(mén)信息維護(hù)部門(mén)信息維護(hù)核

35、心代碼：procedure Tbmf.BitBtn1Click(Sender: TObject);begin edit1.Text:=trim(edit1.text); if (length(edit1.Text)=0) or (length(bh.Text)=0) then begin showmessage('編號(hào)與單位名稱不能為空!'); exit; end; with Q1 do begin Close; Sql.Clear; Sql.Add('Insert Into bm (bh,mc)'); Sql.Add(' Values(:y0,:y1)

36、 '); 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)中存在本部門(mén)數(shù)據(jù)不能刪除

37、,確要?jiǎng)h除嗎"',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,程序退出!')

38、; 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; En

39、d; sg.RowCount:=Q1.RecordCount+1; sg.ColCount:=2; For I:=0 To sg.RowCount Do sg.RowsI.Clear; sg.Cells0,0:='編號(hào)' 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;

40、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.I

41、tems.Add(inttostr(i); sg.FixedColor:=rgb(180,130,100);end;員工信息維護(hù)：圖4.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('編號(hào)與單位名稱不能為空!'); exit; end; wi

42、th 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; exce

43、pt showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; end; end; end;procedure Tryf.BitBtn2Click(Sender: TObject);beginif messagedlg('如果系統(tǒng)中存在本人工資數(shù)據(jù)不能刪除,確要?jiǎng)h除嗎"',mtconfirmation,mbyes,mbno,0) =mrno then exit; bh.text:=trim(bh.text); if (length(bh.text)<2) then exit; q1.Close

44、; 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ù)器連接erro

45、r,程序退出!'); 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.Param

46、eters.ParamByName('bm').Value:=bm.text+'%' Try Q1.Open; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; End; ListBox1.Items.Add(' 編號(hào) XX'); For I:=1 To Q1.RecordCount Do Begin ListBox1.Items.Add(' '+Q1.FieldByName('bh').AsString+' 

47、9;+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'

48、;); q1.Parameters.ParamByName('bm').Value:=bm.text+'%' Try Q1.Open; except showmessage('服務(wù)器連接error,程序退出!'); application.Terminate; End; ListBox1.Items.Add(' 編號(hào) XX'); For I:=1 To Q1.RecordCount Do Begin ListBox1.Items.Add(''+Q1.FieldByName('bh').AsStrin

49、g+''+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;beg

50、inryf.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').

51、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;4.3工資數(shù)據(jù)模塊本模塊包括月基本工資數(shù)據(jù)、月活動(dòng)工資填報(bào)、月數(shù)據(jù)存檔三個(gè)子模塊，分別用于查看修改月基本工資數(shù)據(jù)，填報(bào)月活動(dòng)工資數(shù)據(jù)以及對(duì)填報(bào)好的所有數(shù)據(jù)存檔。月基本數(shù)據(jù)界面設(shè)計(jì)如圖4.4所示：圖4.4 月基本數(shù)據(jù)核心代碼：procedure Tf.BitBtn1Click(Sender: TObject); var i,

52、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)+&

53、#39;行 第'+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(