【文章內(nèi)容簡介】 。WHERE ((()=39。+id+39。))。 39。 //原本工資的算法 := sql。 。 jbgz :=(39。jbgz39。).AsFloat。 //將 jbgz 里的內(nèi)容轉(zhuǎn)換 。 // 計算津貼 sql := 39。SELECT Sum( * ) AS jt 39。+39。FROM jblb INNER JOIN jtxx ON =39。+39。WHERE((()=39。+id+39。)AND(()=39。+y+39。/1/39。+n+39。) AND 39。+39。(()=39。+y+39。/39。+r+39。/39。+n+39。))。 39。 := sql。 。 jt :=(39。jt39。).AsFloat。 //將 jt 里的值轉(zhuǎn)換成 float 。 // 計算扣除 sql := 39。SELECT Sum(*) AS kc 39。+39。FROM qqlb INNER JOIN kqxx ON =39。+39。WHERE((()=39。+id+39。)AND(()=39。+y+39。/1/39。+n+39。) AND 39。+ 39。(()=39。+y+39。/39。+r+39。/39。+n+39。))。 39。 := sql； 。 kc :=(39。kc39。).AsFloat。 。 // 計算報銷 /保險 sql:=‘ SELECTSum(+)ASbx39。+39。FROMylbx39。+39。WHERE((()=39。+id+39。)AND(()=39。+y+39。/1/39。+n+39。) AND 39。+39。(()=39。+y+39。/39。+r+39。/39。+n+39。))。 39。 //保險和報銷的算法 := sql。 。 bx :=(39。bx39。).AsFloat。 //對保險和報銷的結(jié)果進(jìn)行變量類型的轉(zhuǎn)換 。 。 。 // 計算總計 zj := jbgz + jt kc bx。 //這個用來計算不同工資的稅收 算法 if zj 0 then zj := 0 //工資小于 0 的情況 else if zj 0 then if zj = 800 then zj:=zj //工資在 0 與 800 之間的情況 else if zj 800 then if zj= 1000 then zj := zj * //工資在 800 到 1000 之間的情況 else if zj 1000 then if zj =5000 then zj := zj * //工資在 1000 到 5000 之間的情況 else zj := zj * 。 //工資大于 5000 的情況 //將算好的數(shù)據(jù)寫入數(shù)據(jù)庫 。 [39。yg_id39。] := StrToInt(id)。 [39。nian39。] := StrToInt(n)； [39。yue39。] := StrToInt(y)。 [39。jbgz39。] := jbgz。 [39。jt39。] := jt。 [39。kc39。] := kc。 [39。bx39。] := bx。 [39。zj39。] := zj。 。 end。 // 月工資報表 procedure (Sender: TObject)。 var sql, n, y, filename: String。 qry: TADOQuery。 i, z: Integer。 ExcelApp: Variant。 sheet, template: Variant。 begin try StrToInt()。 except (39。請輸入正確的年份 39。, PChar(), MB_OK + MB_ICONWARNING)。 //看是否和已有的工資信息的年分是否相同 exit。 end。 n := ； y := IntToStr(+1)。 qry := (nil)。 := 。 sql := 39。SELECT 39。+39。FROM ygz INNER JOIN ygxx ON = 39。+39。WHERE ((()=39。+n+39。) AND (()=39。+y+39。))。39。 // 是否生成了月工資 := sql。 。 z := 。 。 if z=0 then begin 。 (39。請生成月工資記錄，然后使用報表功能。 39。, PChar(), MB_OK + MB_ICONINFORMATION)。 //沒有可以報表的工資信息 exit。 end。 try := 0。 := z+4。 := 1。 := 0。 := True。 := False。 := crHourGlass。 創(chuàng)建 Excel 例程 ExcelApp := CreateOleObject(39。39。)。 := False。 filename := ExtractFilePath() + 39。template\39。 (filename)。 sheet := [1].Sheets[1]。 template := [1].Sheets[2]。 := [1].Sheets[1].Name+39。報表 39。 。 CopyRange(template, 1,1, 8,3, sheet, 1,1)。 // 復(fù)制模板樣子 FillValue(sheet, 1,8, [1,8].Value+n+39。年 39。+y+39。月 39。,0,False)。 // 填寫日期 。 sql := 39。SELECT , , , , , , , 39。+39。FROM gz INNER JOIN (ygz INNER JOIN ygxx ON = 39。+39。 ) ON = 39。+ 39。WHERE ((()=39。+n+39。) AND (()=39。+y+39。)) 39。+39。ORDER BY , , 。39。 // 統(tǒng)計月工資 := sql。 。 。 i := 4。 while not do begin 。 FillValue(sheet, i,1, (39。ygh39。).AsString,3)。 // 填寫數(shù)據(jù) FillValue(sheet, i,2, (39。xm39。).AsString,3)。 FillValue(sheet, i,3, (39。gz39。).AsString,3)。 FillValue(sheet, i,4, (39。jbgz39。).AsFloat)。 FillValue(sheet, i,5, (39。jt39。).AsFloat)。 FillValue(sheet, i,6, (39。kc39。).AsFloat)。 FillValue(sheet, i,7, (39。bx39。).AsFloat)。 FillValue(sheet, i,8, (39。zj39。).AsFloat)。 。 Inc(i)。 。 end。 filename := ExtractFilePath() + 39。報表 \39。+n+39。.39。+y+39。 員工月工資報表 .xls39。 // 保存報表 if FileExists(file