【文章內(nèi)容簡介】 退出 !39。 。 。 End。 39。 編號 姓名 39。 。 For I: 1 To Do Begin 39。39。+ 39。bh39。 .AsString+39。39。+ 39。xm39。 .AsString 。 。 End。 。 : 39。39。 : 39。39。 end。 procedure Sender: TObject。 var Action: TCloseAction 。 begin : false。 action: cafree。 end。 procedure Sender: TObject 。 var i:integer。 begin : rgb 220,170,140 。 。 。 39。Select mc From bm 39。 。 39。 order by bh39。 。 Try 。 except showmessage 39。服務(wù)器連接 error,程序退出 !39。 。 。 End。 For I: 1 To Do Begin 39。mc39。 .AsString 。 。 End。 。 for i: 1 to 9 do 39。039。+inttostr i 。 for i: 10 to 99 do inttostr i 。 end。 工資數(shù)據(jù)模塊 本模塊包括月基本工資數(shù)據(jù)、月活動工資填報、月數(shù)據(jù)存檔三個子模塊，分別用于查看修改月基本工資數(shù)據(jù)，填報月活動工資數(shù)據(jù)以及對填報好的所有數(shù)據(jù)存檔。 月基本數(shù)據(jù)界面設(shè)計如圖 所示： 圖 月基本數(shù)據(jù) 核心代碼： procedure Sender: TObject 。 var i,j,k:integer。 s:string。 begin if messagedlg 39。確認更新數(shù)據(jù)嗎 ?39。,mtconfirmation,[mbyes,mbno],0 mrno then exit。 if 39。39。 then exit。 k: 0。 for i: 1 to do for j: 1 to 10 do begin try [j,i]: floattostr strtofloat [j,i] 。 except showmessage 39。第 39。+inttostr i +39。行 第 39。+inttostr j +39。列有非法數(shù)字 39。 。 k: k+1。 end。 end。 if k 0 then exit。 s: 39。39。 for i: 1 to do begin s: [0,i]。 。 。 39。 update ry set z1 :z1,z2 :z2,z3 :z3,z4 :z4,z5 :z5,z6 :z6, 39。 。 39。z7 :z7,z8 :z8,z9 :z9,z10 :z10,z11 :z11,k3 :k3,kbx :kbx 39。 。 39。 where bm like :bm and bh like :bh 39。 。 39。z139。 .Value: strtofloat [1,i] 。 39。z239。 .Value: strtofloat [1,i] *。 39。z339。 .Value: strtofloat [1,i] *。 39。z439。 .Value: strtofloat [2,i] 。 39。z539。 .Value: strtofloat [3,i] 。 39。z639。 .Value: strtofloat [4,i] 。 39。z739。 .Value: strtofloat [5,i] 。 39。z839。 .Value: strtofloat [6,i] 。 39。z939。 .Value: strtofloat [7,i] 。 39。z1039。 .Value: strtofloat [8,i] 。 39。z1139。 .Value: strtofloat [1,i] * 。 // 39。z1139。 .Asfloat: 0。 39。k339。 .Value: strtofloat [9,i] 。 39。bm39。 .Value: copy ,3,20 +39。%39。 39。bh39。 .Value: copy s,1,2 +39。%39。 39。kbx39。 .Value: strtofloat [10,i] 。 Try 。 except showmessage 39。數(shù)據(jù)庫更新 error 重新點擊“更新”按鈕！ 39。 。 exit。 end。 end。 showmessage 39。 操作 OK ！ 39。 end。 procedure Sender: TObject 。 var i:integer。 begin 。 。 39。Select bh,xm,z1,z4,z5,z6,z7,z8,z9,z10,k3,kbx From ry 39。 。 39。 where bm like :bm 39。 。 39。bm39。 .Value: copy ,3,20 +39。%39。 39。 order by bh39。 。 Try 。 except showmessage 39。數(shù)據(jù)庫連接 error,程序退出 !39。 。 。 End。 : +1。 : 11。 For I: 0 To Do [I].Clear。 [0,0]: 39。編號姓名 39。 [1,0]: 39。崗位資 39。 [2,0]: 39。計生補 39。 [3,0]: 39。月效資 39。 [4,0]: 39。技師補 39。 [5,0]: 39。醫(yī)務(wù)補 39。 [6,0]: 39。護 10%39。 [7,0]: 39。教護齡 39。 [8,0]: 39。女工衛(wèi) 39。 [9,0]: 39。公積金 39。 [10,0]: 39。保險 39。 //。 // 39。 39。 。 For I: 1 To Do Begin // 39。bh39。 .AsString + 39。xm39。 .AsString 。 [0,i]: 39。bh39。 .AsString+ 39。xm39。 .AsString。 [1,i]: floattostr 39。z139。 .Asfloat 。 [2,i]: floattostr 39。z439。 .Asfloat 。 [3,i]: floattostr 39。z539。 .Asfloat 。 [4,i]: floattostr 39。z639。 .Asfloat 。 [5,i]: floattostr 39。z739。 .Asfloat 。 [6,i]: floattostr 39。z839。 .Asfloat 。 [7,i]: floattostr 39。z939。 .Asfloat 。 [8,i]: floattostr 39。z1039。 .Asfloat 。 [9,i]: floattostr 39。k339。 .Asfloat 。 [10,i]: floattostr 39。kbx39。 .Asfloat 。 。 End。 。 end。 procedure Sender: TObject。 var Action: TCloseAction 。 begin : false。 action: cafree。 end。 procedure Sender: TObject 。 var i:integer。 begin : rgb 255,255,255 。 。 。 。 39。Select bh,mc From bm 39。 。 39。 order by bh39。 。 Try 。 except showmessage 39。服務(wù)器連接 error,程序退出 !39。 。 。 End。 For I: 1 To Do Begin 39。bh39。 .AsString+ 39。mc39。 .AsString 。 。 End。 。 end。 每月活動工資填報 圖 每月數(shù)據(jù)填報 該部分核 心代碼： procedure Sender: TObject 。 var i,j,k:integer。 s:string。 begin For I: 1 To Do [6,i]: 。 if messagedlg 39。確認更新數(shù)據(jù)嗎 ?39。,mtconfirmation,[mbyes,mbno],0 mrno then exit。 if trim 39。39。 then exit。 k: 0。 for i: 1 to do for j: 2 to 5 do begin try [j,i]: floattostr strtofloat [j,i] 。 except showmessage 39。第 39。+inttostr i +39。行 第 39。+inttostr j +39。列有非法數(shù)字 39。 。 k: k+1。 end。 end。 if k 0 then exit。 s: 39。39。 for i: 1 to do begin s: [0,i]。 。 。 39。 update ry set j1 :j1,j2 :j2,j3 :j3,j4 :j4, 39。 。 39。k1 :k1,k2 :k2,rq :rq 39。 。 39。 where bm like :bm and bh like :bh 39。 。 39。j139。 .Value: strtofloat [2,i] 。 39。j239。 .Value: strtofloat [2,i] *strtofloat [1,i] /30。 39。j339。 .Value: strtofloat [3,i] 。 39。j439。 .Value: strtofloat [3,i] *。 39。k139。 .Value: strtofloat [4,i] 。 39。k239。 .Value: strtofloat [5,i] 。 39。rq39。 .Value: [6,i]。 39。bm39。 .Value: copy ,3,20 +39。%39。 39。bh39。 .Value: copy s,1,2 +39。%39。 Try 。 except showmessage 39。數(shù)據(jù)庫更新 error 重新點擊“更新”按鈕！ 39。 。 exit。 end。 end。 showmessage 39。 操作 OK ！ 39。 end。 procedure Sender: TObject 。 var i:integer。 begin 。 。 39。Select bh,xm,z1,j1,j3,k1