【正文】 在此一并表示感謝。除這些之外還要感謝我們父母，是他們在背后不斷地鼓勵和支持才讓我沒有什么后顧之憂，可以靜下心來，踏實學(xué)習(xí)。其次，感謝畢業(yè)設(shè)計過程中幫助過我的同學(xué)和朋友，正是因為和你們在一起共同面對問題，共同探討和學(xué)習(xí)，才使我感受到，學(xué)習(xí)的樂趣和團(tuán)隊合作的重要性。致 謝為期5周的畢業(yè)設(shè)計已經(jīng)結(jié)束，在程序設(shè)計的過程中得到了很多人的幫助和支持，在此一一表示衷心的感謝。否則，前功盡棄，甚至不能完成任務(wù)。需求分析是整個課程設(shè)計的中心，考慮要全面，分析徹底。在設(shè)計過程中一定要慎重，仔細(xì)。本次給我的最大的印象是：流程是一切的根本；架構(gòu)是重要的，想像的還要重要；實踐比一切空談和理論更能學(xué)到東西。測試范圍主要內(nèi)容簡要說明部門信息增刪測試系統(tǒng)接收數(shù)據(jù)能力功能性測試員工信息增刪測試系統(tǒng)接收數(shù)據(jù)能力功能性測試信息檢索功能測試測試數(shù)據(jù)庫檢索代碼的健壯性功能性測試當(dāng)月數(shù)據(jù)存檔測試備份數(shù)據(jù)庫能力功能性測試核心代碼復(fù)檢檢驗核心代碼的質(zhì)量邏輯檢錯性測試功能性測試：黑盒測試 邏輯檢錯性測試：白盒測試測試項目測試目的測試數(shù)據(jù)測試結(jié)果改進(jìn)意見修改狀態(tài)部門信息增刪測試系統(tǒng)接收數(shù)據(jù)能力18 財務(wù)部正常員工信息增刪測試系統(tǒng)接收數(shù)據(jù)能力財務(wù)部 1 楊騏榕正常信息檢索信息檢索功能的準(zhǔn)確性和健壯性顯示正常核心代碼復(fù)檢檢驗核心代碼的質(zhì)量與效率變量名規(guī)范，內(nèi)部注釋不足。 for i:=1 to do sf:=sf+strtofloat([22,i])。 end。39。,strtofloat([16,i]))。 [16,i]:=FormatFloat(39。39。,sf)。 [22,i]:=FormatFloat(39。 sf:=yf(strtofloat([18,i])+strtofloat([19,i])+strtofloat([20,i]))。39。 //[i,18]:=Floattostr(yf)。39。 yf:=yf+strtofloat([16,i])。 yf:=yf+strtofloat([10,i])+strtofloat([11,i])+strtofloat([12,i])。 for i:=1 to do begin yf:=strtofloat([2,i])+strtofloat([3,i])+strtofloat([4,i])。 。 End。 Try 。+trim()+39。).Value:=+39。 (39。).Value:=[1,i]+39。 (39。 where (bm like :y1) and (rq like :y2)39。)。 (39。sum(k1),sum(k2),sum(k3),sum(kbx),sum(z13) 39。)。 (39。sum(z4),sum(z5),sum(z6),sum(z7),sum(z8),39。)。 (39。Select sum(z1),sum(z2),sum(z3),39。 。 合 計39。 end。 [1,j]:=copy([i],3,20)。[1].Range[s]. := 12。 [1].Range[s]. := 39。A3:J39。]. := 18。 //字號 [1].Range[39。 // 39。]. :=39。 //字體 [1].Range[39。A1:w239。 [1].Columns[3].ColumnWidth := 5。//設(shè)置列寬 [1].Columns[1].ColumnWidth := 4。39。 for j:=0 to do [1].Cells[i,j+1].Value :=[j,0]。 //報表頭 [1].Cells[1,1].Value := 。A1:J239。].Merge(True)。 //單元格合并 [1].range[39。 := true。無法運行EXCEL!請確認(rèn)已安裝!39。)。 MyWorkBook:=CreateOleobject(39。39。 s:string。 var ExcelApp,MyWorkbook:oleVariant。本模塊包含歷史月報表與歷史匯總表兩個子功能模塊，用于查詢一個多多個部門的歷史工資匯總。 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。本模塊包含當(dāng)月報表與當(dāng)月匯總表兩個子功能模塊，當(dāng)月報表用于打印某一個部門的工資表或工資條，月匯總表可以查看一個或幾個部門的月工資匯總信息。)。 showmessage(39。 。 exit。 存檔失敗,程序退出! 39。 end。)。 except showmessage(39。%39。rq39。)。 (39。delete from sj 39。 。 Try 。kbx39。y2439。).AsString。).Value:=(39。 (39。k339。y2239。).AsFloat。).Value:=(39。 (39。k139。y2039。).AsFloat。).Value:=(39。 (39。j339。y1839。).AsFloat。).Value:=(39。 (39。j139。y1639。).AsFloat。).Value:=(39。 (39。z1239。y1439。).AsFloat。).Value:=(39。 (39。z1039。y1239。).AsFloat。).Value:=(39。 (39。z839。y1039。).AsFloat。).Value:=(39。 (39。z639。y839。).AsFloat。).Value:=(39。 (39。z439。y639。).AsFloat。).Value:=(39。 (39。z239。y439。).AsFloat。).Value:=(39。 (39。xm39。y239。).AsString。).Value:=(39。 (39。bm39。y039。)。 (39。Insert Into sj (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)39。 for I := 1 to do BEGIN 。 exit。 操作失敗，請重來! 39。 Try 。Select * From ry 39。 。 end。)。 if xy then begin showmessage(39。條 39。 當(dāng)前月數(shù)據(jù)共39。 y:=[0].asinteger。 except exit。%39。y139。)。 (39。 From ry39。)。 (39。 。人 39。 本單位共39。 x:=[0].asinteger。 except exit。)。 (39。Select count(*) 39。 。 end。)。 except showmessage(39。%39。rq39。)。 (39。delete from sj 39。 。 s:string。數(shù)據(jù)存檔界面與代碼： 數(shù)據(jù)存檔該部分核心代碼：procedure (Sender: TObject)。 。 。mc39。bh39。 End。)。 except showmessage(39。)。 (39。Select bh,mc From bm 39。 。 。+inttostr(Month)。 :=inttostr(year)+39。 Year,Month,Day:word。procedure (Sender: TObject)。action:=cafree。 var Action: TCloseAction)。end。 End。).Asstring。 [6,i]:=(39。k239。).Asfloat)。 [4,i]:=floattostr((39。j339。).Asfloat)。 [2,i]:=floattostr((39。z139。).AsString。).AsString+(39。 For I:=1 To Do Begin [0,i]:=(39。 [6,0]:=39。 [5,0]:=39。 [4,0]:=39。 [3,0]:=39。 [2,0]:=39。 [1,0]:=39。 [0,0]:=39。 :=+1。 End。)。 except showmessage(39。)。 (39。).Value:=copy(,3,20)+39。 (39。 where (bm like :bm )39。)。 (39。 begin 。procedure (Sender: TObject)。 操作 OK ！39。 end。 exit。數(shù)據(jù)庫更新error 重新點擊“更新”按鈕！39。 Try 。).Value:=copy(s,1,2)+39。 (39。).Value:=copy(,3,20)+39。 (39。rq39。).Value:=strtofloat([5,i])。 (39。k139。).Value:=strtofloat([3,i])*。 (39。j339。).Value:=strtofloat([2,i])*strtofloat([1,i])/30。 (39。j139。)。 (39。k1=:k1,k2=:k2,rq=:rq 39。)。 (39。 。39。 if k0 then exit。 end。)。+inttostr(j)+39。+inttostr(i)+39。 except showmessage(39。 k:=0。39。,mtconfirmation,[mbyes,mbno],0) =mrno then exit。if messagedlg(39。 s:string。每月活動工資填報 每月數(shù)據(jù)填報該部分核心代碼：procedure (Sender: TObject)。 。 。mc39。bh39。 End。)。 except showmessage(39。)。 (39。Select bh,mc From bm 39。 。 。 var i:integer。end。begin:=false。procedure (Sender: TObject。 。 。kbx39。).Asfloat)。 [9,i]:=floattostr((39。z1039。).Asfloat)。 [7,i]:=floattostr((39。z839。).Asfloat)。 [5,i]:=floattostr((39。z639。).Asfloat)。 [3,i]:=floattostr((39。z439。).Asfloat)。 [1,i]:=floattostr((39。xm39。bh39。).AsString))。).AsString)+((39。 For I:=1 To Do