【正文】 。 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]:=。 享有工作室 為您提 供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 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 k0 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。 享有工作室 為您提 供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 (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,k2,rq 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。 For I:=0 To Do [I].Clear。 :=+1。 :=7。 [0,0]:=39。編號姓名 39。 [1,0]:=39。崗位資 39。 [2,0]:=39。加班 39。 [3,0]:=39。夜班 39。 [4,0]:=39。房租 39。 [5,0]:=39。水電暖 39。 [6,0]:=39。日期 39。 享有工作室 為您提 供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 For I:=1 To Do Begin [0,i]:=(39。bh39。).AsString+(39。xm39。).AsString。 [1,i]:=floattostr((39。z139。).Asfloat)。 [2,i]:=floattostr((39。j139。).Asfloat)。 [3,i]:=floattostr((39。j339。).Asfloat)。 [4,i]:=floattostr((39。k139。).Asfloat)。 [5,i]:=floattostr((39。k239。).Asfloat)。 [6,i]:=(39。rq39。).Asstring。 。 End。 。 end。 procedure (Sender: TObject。 var Action: TCloseAction)。 begin :=false。 action:=cafree。 end。 procedure (Sender: TObject)。 var i:integer。 Year,Month,Day:word。 begin DecodeDate(Date,Year,Month,Day)。 :=inttostr(year)+39。39。+inttostr(Month)。 :=rgb(220,170,140)。 。 。 。 (39。Select bh,mc From bm 39。)。 (39。 order by bh39。)。 Try 。 except showmessage(39。服務(wù)器連接 error,程序退出 !39。)。 。 享有工作室 為您提 供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 End。 For I:=1 To Do Begin ((39。bh39。).AsString+(39。mc39。).AsString)。 。 End。 。 end。 數(shù)據(jù)存檔 界面與代碼： 圖 數(shù)據(jù)存檔 該部分核心代碼： procedure (Sender: TObject)。 var i,x,y:integer。 s:string。 begin 。 。 (39。delete from sj 39。)。 (39。 where ( rq like :rq )39。)。 (39。rq39。).Value:=+39。%39。 Try 。 except showmessage(39。 存檔失敗 ,程序退出 ! 39。)。 exit。 享有工作室 為您提 供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 end。 。 。 (39。Select count(*) 39。)。 (39。 From ry39。)。 Try 。 except exit。 End。 x:=[0].asinteger。 showmessage(39。 本單位共 39。+inttostr(x)+39。人 39。)。 。 。 (39。Select count(*) 39。)。 (39。 From ry39。)。 (39。 where (rq like :y1)39。)。 (39。y139。).Value:=+39。%39。 Try 。 except exit。 End。 y:=[0].asinteger。 showmessage(39。 當前月數(shù)據(jù)共 39。+inttostr(y)+39。條 39。)。 if xy then begin showmessage(39。 當月數(shù)據(jù)未填報完畢 ,不許存檔 !39。)。 exit。 end。 。 。 (39。Select * From ry 39。)。 Try 。 except showmessage(39。 操作失敗，請重來 ! 39。)。 exit。 享有工作室 為您提 供最優(yōu)秀的計算機畢業(yè)設(shè)計論文解決方案 客服 :810354974/844511071/465729264 畢業(yè)設(shè)計論文購買 畢業(yè)設(shè)計論文定做 End。 for I := 1 to do BEGIN 。 (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。)。 (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。y039。).Value:=(39。bm39。).AsString。 (39。y139。).Value:=(39。bh39。).AsString。 (39。y239。).Value:=(39。xm39。).AsString。 (39。y339。).Value:=(39。z139。).AsFloat。 (39。y439。).Value:=(39。z239。).AsFloat。 (39。y539。).Value:=(39。z339。).AsFloat。 (39。y639。).Value:=(39。z439。).AsFloat。 (39。y739。).Value:=(39。z539。).AsFloat。 (39。y839。).Value:=(39。z639。).AsFloat。 (39。y939。).Value:=(39。z739。).AsFloat。 (39。y1039。).Value:=(39。z839。).AsFloat。 (39。y1139。).Value:=(39。z939。).AsFloat。 (39。y1239。).Value:=(39。z1039。).AsFloat。 (39。y1339。).Value:=(39。z1139。).AsFloat。 (39。y1439。).Value:=(39。z1239。).AsFloat。 (39。y1539。).Value:=(39。z1339。).AsFloat。 (39。y1639。).Value:=(39。j139。).AsFloat。 (39。y1739。).Value:=(39。j239。).AsFloat。 (39。y1839。).Value:=(39。j339。).AsFloat。 (39。y1939。).Value:=(39。j439。).AsFloat。 (39。y2039。