【正文】 showmessage(39。 當月數(shù)據(jù)存檔OK! 39。)。end。本模塊包含當月報表與當月匯總表兩個子功能模塊，當月報表用于打印某一個部門的工資表或工資條，月匯總表可以查看一個或幾個部門的月工資匯總信息。 當月報表核心代碼：procedure (Sender: TObject)。 var i,j:integer。 yf,sf:real。begin yf:=strtofloat([i,3])+strtofloat([i,7])+strtofloat([i,9])。 yf:=yf+strtofloat([i,10])+strtofloat([i,11])+strtofloat([i,12])。 yf:=yf+strtofloat([i,13])+strtofloat([i,14])+strtofloat([i,15])。 yf:=yf+strtofloat([i,16])+strtofloat([i,17])。 //yf:=FormatFloat(39。39。,yf)。 //[i,18]:=Floattostr(yf)。 [i,18]:=FormatFloat(39。39。,yf)。 sf:=yf(strtofloat([i,19])+strtofloat([i,20])+strtofloat([i,21]))。 sf:=sfstrtofloat([i,22])。 [i,23]:=FormatFloat(39。39。,sf)。 [i,7]:=FormatFloat(39。39。,strtofloat([i,7]))。 [i,17]:=FormatFloat(39。39。,strtofloat([i,17]))。end。 for j:=3 to 23 do begin yf:=0。 for i:=1 to do yf:=yf+strtofloat([i,j])。 [,j]:=floattostr(yf)。 end。end。procedure (Sender: TObject)。 //選中工資表beginif =true then begin :=true。 :=false。 end。end。for I := 0 to 1 do [i].Clear。 :=()*2。 :=23。 k:=0。 for i:=1 to do begin for j:=0 to 22 do begin [j,k]:=[j,0]。 [j,k+1]:=[j,i]。 end。 k:=k+2。 end。本模塊包含歷史月報表與歷史匯總表兩個子功能模塊，用于查詢一個多多個部門的歷史工資匯總。 歷史匯總表核心代碼：procedure (Sender: TObject)。 var ExcelApp,MyWorkbook:oleVariant。 i,j,h:integer。 s:string。 begin try ExcelApp:=CreateOleObject(39。39。)。 MyWorkBook:=CreateOleobject(39。39。)。 except on Exception do raise (39。無法運行EXCEL!請確認已安裝!39。) end。 := true。 //增加一個工作表 MyworkBook:=。 //單元格合并 [1].range[39。A1:W139。].Merge(True)。 //單元格居中 [1].range[39。A1:J239。].HorizontalAlignment := $FFFFEFF4。 //報表頭 [1].Cells[1,1].Value := 。 //表頭 i := 2。 for j:=0 to do [1].Cells[i,j+1].Value :=[j,0]。 for h:= 1 to do for j:=0 to do if trim([j,h])39。39。 then [1].Cells[h+2,j+1].Value :=[j,h]。//設(shè)置列寬 [1].Columns[1].ColumnWidth := 4。 [1].Columns[8].ColumnWidth := 4。 [1].Columns[3].ColumnWidth := 5。//字體顏色 [1].Range[39。A1:w239。]. := clBlue。 //字體 [1].Range[39。A1:F139。]. :=39?？w39。 // 39。隸書39。 //字號 [1].Range[39。A1:J139。]. := 18。 //設(shè)置數(shù)據(jù)行字體,大小 s:=39。A3:J39。+inttostr(+2)。 [1].Range[s]. := 39。仿宋39。[1].Range[s]. := 12。for i:=0 to do if [i] then begin [0,j]:=copy([i],1,2)。 [1,j]:=copy([i],3,20)。 j:=j+1。 end。 [1,]:= 39。 合 計39。 for i:=1 to do begin 。 。 (39。Select sum(z1),sum(z2),sum(z3),39。)。 (39。sum(j1),sum(j2),sum(j3),sum(j4),39。)。 (39。sum(z4),sum(z5),sum(z6),sum(z7),sum(z8),39。)。 (39。sum(z9),sum(z10),sum(z11),sum(z12),39。)。 (39。sum(k1),sum(k2),sum(k3),sum(kbx),sum(z13) 39。)。 (39。 From ry39。)。 (39。 where (bm like :y1) and (rq like :y2)39。)。 (39。y139。).Value:=[1,i]+39。%39。 (39。y239。).Value:=+39。39。+trim()+39。%39。 Try 。 except exit。 End。 for j:=0 to 20 do [j+2,i]:= floattostr([j].asfloat)。 。 End。 for i:=1 to do begin yf:=strtofloat([2,i])+strtofloat([3,i])+strtofloat([4,i])。 yf:=yf+strtofloat([6,i])+strtofloat([8,i])+strtofloat([9,i])。 yf:=yf+strtofloat([10,i])+strtofloat([11,i])+strtofloat([12,i])。 yf:=yf+strtofloat([13,i])+strtofloat([14,i])+strtofloat([15,i])。 yf:=yf+strtofloat([16,i])。 //yf:=FormatFloat(39。39。,yf)。 //[i,18]:=Floattostr(yf)。 [17,i]:=FormatFloat(39。39。,yf)。 sf:=yf(strtofloat([18,i])+strtofloat([19,i])+strtofloat([20,i]))。 sf:=sfstrtofloat([21,i])。 [22,i]:=FormatFloat(39。39。,sf)。 [6,i]:=FormatFloat(39。39。,strtofloat([6,i]))。 [16,i]:=FormatFloat(39。39。,strtofloat([16,i]))。 [17,i]:=FormatFloat(39。39。,strtofloat([17,i]))。 end。 sf:=0。 for i:=1 to do sf:=sf+strtofloat([22,i])。 [22,]:=floattostr(sf)。測試范圍主要內(nèi)容簡要說明部門信息增刪測試系統(tǒng)接收數(shù)據(jù)能力功能性測試員工信息增刪測試系統(tǒng)接收數(shù)據(jù)能力功能性測試信息檢索功能測試測試數(shù)據(jù)庫檢索代碼的健壯性功能性測試當月數(shù)據(jù)存檔測試備份數(shù)據(jù)庫能力功能性測試核心代碼復檢檢驗核心代碼的質(zhì)量邏輯檢錯性測試功能性測試：黑盒測試 邏輯檢錯性測試：白盒測試測試項目測試目的測試數(shù)據(jù)測試結(jié)果改進意見修改狀態(tài)部門信息增刪測試系統(tǒng)接收數(shù)據(jù)能力18 財務部正常員工信息增刪測試系統(tǒng)接收數(shù)據(jù)能力財務部 1 楊騏榕正常信息檢索信息檢索功能的準確性和健壯性顯示正常核心代碼復檢檢驗核心代碼的質(zhì)量與效率變量名規(guī)范，內(nèi)部注釋不足。添加注釋統(tǒng)一變量名未修正總 結(jié)經(jīng)過一個月的時間，在同學和老師的幫助下，如期完成本次畢業(yè)設(shè)計，基本達到了工資管理系統(tǒng)的要求。本次給我的最大的印象是：流程是一切的根本；架構(gòu)是重要的，想像的還要重要；實踐比一切空談和理論更能學到東西。從開發(fā)此系統(tǒng)開始無論遇到什么困難，我都沒有一絲的放棄的念頭。在設(shè)計過程中一定要慎重，仔細。來不得半點馬虎。需求分析是整個課程設(shè)計的中心，考慮要全面，分析徹底。才會為后來的設(shè)計打下良好的基礎(chǔ)。否則，前功盡棄，甚至不能完成任務。做實例過程中要注意與說明書中數(shù)據(jù)項數(shù)據(jù)類型，數(shù)據(jù)長度等的一致，命令中心輸入任何命令都要謹記一條原則，那就是嚴格按照格式來，不能像平時在紙上作業(yè)。致 謝為期5周的畢業(yè)設(shè)計已經(jīng)結(jié)束，在程序設(shè)計的過程中得到了很多人的幫助和支持，在此一一表示衷心的感謝。首先，在即將畢業(yè)之際，還要感謝所有培養(yǎng)過我的老師們，正是他們傳道、授業(yè)、解惑才使我的專業(yè)課水平不斷進步與提高，才能在設(shè)計過程中做得更好。其次，感謝畢業(yè)設(shè)計過程中幫助過我的同學和朋友，正是因為和你們在一起共同面對問題，共同探討和學習，才使我感受到，學習的樂趣和團隊合作的重要性。也使我畢業(yè)設(shè)計的效率提高了很多。除這些之外還要感謝我們父母，是他們在背后不斷地鼓勵和支持才讓我沒有什么后顧之憂，可以靜下心來，踏實學習。在程序設(shè)計的過程中還得到了很多人的幫助和支持，并且參考了一些技術(shù)資料。在此一并表示感謝。參考文獻 [1] 楊長春等. Delphi程序設(shè)計教程(第二版)[M]. 北京：清華大學出版社，[2]吳天準. Delphi7程序設(shè)計技巧與實例[M]. 北京：中國鐵道出版社，[3]尹立民. Delphi7應用編程150例[M]. 北京：電子工業(yè)出版社，[4]王沛等. 百例課堂Delphi7編程入門篇[M]. 北京：機械工業(yè)出版社，[5]楊海東，劉海英. Delphi數(shù)據(jù)庫高級實例導航[M] .北京：科學出版社，2004[6]肖慶航，陸定淑等. Delphi7數(shù)據(jù)庫開發(fā)教程[M]. 北京：清華大學出版社，2004[7]董志鵬等. Oracle 11g從入門到精通[M]. 北京：電子工業(yè)出版社，[8]劉甫迎，王道學，黨晉蓉. 數(shù)據(jù)庫原理及應用（Oracle）實用教程[M]. 北京：清華大學出版社，[9]王珊，薩師煊. 數(shù)據(jù)庫系統(tǒng)概論[M]. 北京：高等教育出版社，[10]（美）帕特里克；高京義，湯嚴等譯[M]. SQL基礎(chǔ)：第二版. 北京：清華大學出版社,[11]趙應丁等. Delphi7數(shù)據(jù)庫應用技術(shù)與實例[M]. 北京：中國水利水電出版社，2003[12]賽奎春等. Delphi數(shù)據(jù)庫開發(fā)實例解析[M]. 北京：機械工業(yè)出版社，[13]明日科技，賽奎春，陳紫鴻，宋坤. Delphi數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實例應用[M]. 北京：人民郵電出版社，[14]高繼民. Oracle 數(shù)據(jù)庫SQL和PL/SQL實例教程[M]. 西安：西安電子科技大學出版社，[15]寧麗娟，劉文菊. Oracle 11g數(shù)據(jù)庫編程入門與實戰(zhàn)[M]. 人民郵電出版社，[16]Nick Langley. Certification can be expensive, but Oracle 11g skills bring rich rewards [J]. Computer Weekly，20080(23)[17] （美）Ramez Elmasri，Shamkant . Fundamentals of Database System(Fourth Edition)[M], 北京：人民郵電出版社，[18] Michael Rosenblum，Paul Dorsey，Oracle PL/SQL For Dummies[M]，John Wi