【正文】 在此一并表示感謝。 除這些之外還要感謝我們父母，是他們在背后不斷地鼓勵和支持才讓我沒有什么后顧之憂，可以靜下心來，踏實學習。 再次，感謝畢業(yè)設(shè)計過程中幫助過我 的同學和朋友，正是因為和你們在一起共同面對問題，共同探討和學習，才使我感受到，學習的樂趣和團隊合作的重要性。使得我們在整個設(shè)計過程都受益匪淺。設(shè)計過程中不論有任何問題，趙老師都與我們共同解決。 首先，要感謝我的畢業(yè)設(shè)計指導教師，趙俊龍老師，在他的耐心指導和悉心幫助下，我的設(shè)計程序也已經(jīng)順利運行。 參考文獻 [1] 楊長春等 . Delphi 程序設(shè)計教程 第二版 [M]. 北京：清華大學出版社， [2]吳天準 . Delphi7 程序設(shè)計技巧與實例 [M]. 北京：中國鐵道出版社， [3]尹立民 . Delphi7 應(yīng)用編程 150 例 [M]. 北京：電子工業(yè)出版社， [4]王沛等 . 百例課堂 Delphi7 編程入門篇 [M]. 北京：機械工業(yè)出版社， [5]楊海東，劉海英 . Delphi 數(shù)據(jù)庫高級實例導航 [M] .北京：科學出版社，2021 [6]肖慶航，陸定淑等 . Delphi7 數(shù)據(jù)庫開發(fā)教程 [M]. 北京：清華大學出版社， 2021 [7]董志鵬等 . Oracle 11g 從入門到精通 [M]. 北京：電子工業(yè)出版社， [8]劉甫迎，王道學，黨晉蓉 . 數(shù)據(jù)庫原理及應(yīng)用（ Oracle）實用教程 [M]. 北京： 清華大學出版社， [9]王珊，薩師煊 . 數(shù)據(jù)庫系統(tǒng)概論 [M]. 北京：高等教育出版社， [10]（美）帕特里克；高京義，湯嚴等譯 [M]. SQL 基礎(chǔ)：第二版 . 北京：清華大學出版社 , [11]趙應(yīng)丁等 . Delphi7 數(shù)據(jù)庫應(yīng)用技術(shù)與實例 [M]. 北京：中國水利水電出版社， 2021 [12]賽奎春等 . Delphi 數(shù)據(jù)庫開發(fā)實例解析 [M]. 北京：機械工業(yè)出版社， [13]明日科技，賽奎春，陳紫鴻，宋坤 . Delphi 數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實例應(yīng)用 [M]. 北 京：人民郵電出版社， [14]高繼民 Oracle 數(shù)據(jù)庫 SQL和 PL/SQ實例教程寧麗娟，劉文菊 Oracle 11g數(shù)據(jù)庫編程入門與實戰(zhàn) Nick Langley. Certification can be expensive, but Oracle 11g skills bring rich rewards [J]. Computer Weekly， 20210 23 （美）Ramez Elmasri， Shamkant . Fundamentals of Database System Fourth Edition [M],人民郵電出版社 [18] Michael Rosenblum， Paul Dorsey， Oracle PL/SQL For Dummies[M]， John Wiley amp。否則，前功盡棄，甚至不能完成任務(wù)。需求 分析是整個課程設(shè)計的中心，考慮要全面，分析徹底。在設(shè)計過程中一定要慎重，仔細。 本次給我的最大的印象是：流程是一切的根本；架構(gòu)是重要的，想像的還要重要；實踐比一切空談和理論更能學到東西。 圖 系統(tǒng)信息 6 系統(tǒng)性能測試與分析 測試范圍與主要內(nèi)容 表 測試范圍與主要內(nèi)容 測試范圍 主要內(nèi)容 簡要說明 部門信息增刪 測試 系統(tǒng)接收數(shù)據(jù)能力 功能性測試 員工信息增刪 測試系統(tǒng)接收數(shù)據(jù)能力 功能性測試 信息檢索功能測試 測試數(shù)據(jù)庫檢索代碼的健壯性 功能性測試 當月數(shù)據(jù)存檔 測試備份數(shù)據(jù)庫能力 功能性測試 核心代碼復(fù)檢 檢驗核心代碼的質(zhì)量 邏輯檢錯性測試 測試方法 功能性測試：黑盒測試 邏輯檢錯性測試：白盒測試 測試報告 表 測試報告 測試項目 測試目的 測試數(shù)據(jù) 測試結(jié)果 改進意見 修改狀態(tài) 部門信息增刪 測試系統(tǒng)接收數(shù)據(jù)能力 18 財務(wù)部 正常 員工信息增刪 測試系統(tǒng)接收數(shù)據(jù)能力 財務(wù)部 1 楊騏榕 正常 信息檢索 信息檢索功能的準確性和健壯性 顯示正常 核心代碼復(fù)檢 檢驗核心代碼的質(zhì)量與效率 變量名規(guī)范， 內(nèi)部注釋不足。 [22,]: floattostr sf 。 sf: 0。,strtofloat [17,i] 。 [17,i]: FormatFloat 39。39。,strtofloat [6,i] 。 [6,i]: FormatFloat 39。39。 sf: sfstrtofloat [21,i] 。,yf 。 [17,i]: FormatFloat 39。,yf 。 //yf: FormatFloat 39。 yf: yf+strtofloat [13,i] +strtofloat [14,i] +strtofloat [15,i] 。 yf: yf+strtofloat [6,i] +strtofloat [8,i] +strtofloat [9,i] 。 End。 for j: 0 to 20 do [j+2,i]: floattostr [j].asfloat 。 except exit。%39。39。y239。%39。y139。 。 39。 From ry39。 。 39。sum z9 ,sum z10 ,sum z11 ,sum z12 ,39。 。 39。sum j1 ,sum j2 ,sum j3 ,sum j4 ,39。 。 39。 for i: 1 to do begin 。 [1,]: 39。 j: j+1。 for i: 0 to do if [i] then begin [0,j]: copy [i],1,2 。仿宋 39。+inttostr +2 。 //設(shè)置數(shù)據(jù)行字體 ,大小 s: 39。A1:J139。隸書 39?？w 39。A1:F139。]. : clBlue。 //字體顏色 [1].Range[39。 [1].Columns[8].ColumnWidth : 4。 then [1].Cells[h+2,j+1].Value : [j,h]。 for h: 1 to do for j: 0 to do if trim [j,h] 39。 //表頭 i : 2。].HorizontalAlignment : $FFFFEFF4。 //單元格居中 [1].range[39。A1:W139。 //增加一個工作表 MyworkBook: 。 end。 except on Exception do raise 39。39。 。 begin try ExcelApp: CreateOleObject 39。 i,j,h:integer。 圖 歷史月報表 圖 歷史匯總表 核心代碼： procedure Sender: TObject 。 歷史數(shù)據(jù)模塊 本模塊包含歷史月報表與歷史匯總表兩個子功能模塊，用于查詢一個多多個部門的歷史工資匯總。 k: k+2。 [j,k+1]: [j,i]。 k: 0。 : *2。 end。 : false。 procedure Sender: TObject 。 end。 for i: 1 to do yf: yf+strtofloat [i,j] 。 end。39。,strtofloat [i,7] 。 [i,7]: FormatFloat 39。39。 sf: sfstrtofloat [i,22] 。,yf 。 [i,18]: FormatFloat 39。,yf 。 //yf: FormatFloat 39。 yf: yf+strtofloat [i,13] +strtofloat [i,14] +strtofloat [i,15] 。 begin yf: strtofloat [i,3] +strtofloat [i,7] +strtofloat [i,9] 。 var i,j:integer。 end。 當月數(shù)據(jù)存檔 OK! 39。 END。 end。 。 showmessage 39。 exit。 存檔失敗 ,程序退出 ! 39。 Try 。 .Value: +39。 39。 where rq like :rq 39。 。 39。 except 。 .AsFloat。 .Value: 39。 39。rq39。y2339。 .AsFloat。 .Value: 39。 39。k239。y2139。 .AsFloat。 .Value: 39。 39。j439。y1939。 .AsFloat。 .Value: 39。 39。j239。y1739。 .AsFloat。 .Value: 39。 39。z1339。y1539。 .AsFloat。 .Value: 39。 39。z1139。y1339。 .AsFloat。 .Value: 39。 39。z939。y1139。 .AsFloat。 .Value: 39。 39。z739。y939。 .AsFloat。 .Value: 39。 39。z539。y739。 .AsFloat。 .Value: 39。 39。z339。y539。 .AsFloat。 .Value: 39。 39。z139。y339。 .AsString。 .Value: 39。 39。bh39。y139。 .AsString。 .Value: 39。 39。 Values :y0,:y1,:y2,:y3,:y4,:y5,:y6,:y7,:y8,:y9,:y10,:y11,:y12,:y13,:y14,:y15,:y16,:y17,:y18,:y19,:y20,:y21,:y22,:y23,:y24 39。 。 39。 End。 。 except showmessage 39。 。 39。 。 exit。 當月數(shù)據(jù)未填報完畢 ,不許存檔 !39。 。+inttostr y +39。 showmessage 39。 End。 Try 。 .Value: +39。 39。 where rq like :y1 39。 。 39。Select count * 39。 。 。+inttostr x +39。 showmessage 39。 End。 Try 。 From ry39。 。 39。 。 exit。 存檔失敗 ,程序退出 ! 39。 Try 。 .Value: +39。 39。 where rq like :rq 39。 。 39。 begin 。 var i,x,y:integer。 end。 End。 .AsString 。 .AsString+ 39。 For I: 1 To Do Begin 39。 。服務(wù)器連接 error,程序退出 !39。 Try 。 order by bh39。 。 39。 。 : rgb 220,170,140 。39。 begin DecodeDate Date,Year,Month,Day 。 var i:integer。 end。 begin : false。 procedure Sender: TOb