09-04-2020, 07:21 AM
كود :
procedure TForm2.BitBtn2Click(Sender: TObject);
var
i,ii,iii,iiii:real;
b: integer;
begin
i:=0;ii:=0;iii:=0;b:=1;
Form1.aBSTABLE1.Close;
Form1.aBSTABLE1.Open;
repeat
i:=i+Form1.ABSTable1D_pension.AsFloat;
ii:=ii+Form1.ABSTable1Pension.AsFloat;
iii:=iii+Form1.ABSTable1B_retro.AsFloat;
iiii:=i+ii+iii;
Form1.ABSTable1.Next;
b:=b+1;
if b=20 then begin
Form1.ABSTable2.Append;
Form1.ABSTable2D_pension.AsFloat:=i;
Form1.ABSTable2Pension.AsFloat:=ii;
Form1.ABSTable2B_retro.AsFloat:=iii;
Form1.ABSTable2Total.AsFloat:=iiii;
Form1.ABSTable2.Post ;
b:=0;
end;
until Form1.ABSTable1.Eof;
if b<>0 then begin
Form1.ABSTable2.Append;
Form1.ABSTable2D_pension.AsFloat:=i;
Form1.ABSTable2Pension.AsFloat:=ii;
Form1.ABSTable2B_retro.AsFloat:=iii;
Form1.ABSTable2Total.AsFloat:=iiii;
Form1.ABSTable2.Post ;
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ