procedure TDMTransaksi.qry_transdetail1CalcFields(DataSet: TDataSet);
var Arange: integer;
  Adiscount: double;
begin
  Arange := trunc(qry_transdetail1DEPARTUREDATE.Value - qry_transdetail1ARRIVALDATE.Value);
  if Arange = 0 then Arange := 1;

  if (not qry_transdetail1ARRIVALDATE.IsNull) and
    (not qry_transdetail1DEPARTUREDATE.IsNull) and
    (not (qry_transdetail1DEPARTUREDATE.Value < qry_transdetail1ARRIVALDATE.Value)) and
    (not qry_transdetail1HARGA.IsNull)
    then
  begin
    if qry_transdetail1DISCOUNT.Value >= 0 then
      Adiscount := ((qry_transdetail1DISCOUNT.Value / 100)  qry_transdetail1HARGA.Value)   Arange;
//    field total per baris grid//
qry_transdetail1CALCTOTAL.Value :=
      (qry_transdetail1HARGA.Value * Arange) - Adiscount;
  end;

procedure TForm1.Button1.Onclick(Sender:Tobject);
var 
  i : integer;
  total : float;
begin
 for i := 0 to table.recordcount -1 do
  begin
     total := total + qry_transdetail1calctotal.value;
  end;
end;

procedure TForm1.Button1click(Sender:Tobject);
   var
      i : integer;
      total : float;
begin
      with qry_transdetail1 do
     begin
       first;
       disablecontrols;
      for i := 0 to recordcount -1 do
        begin
         total := total + qry_transdetail1calctotal.value;
         next;
        end;
     enablecontrols;
     showMessage('Total : '+ formatFloat('###,###,###',total);
   end;
end;

procedure TForm1.Button1click(Sender:Tobject);
 var
      i : integer;
      total : double;
begin
  with qry_transdetail1 do
     begin
      first;
      disablecontrols;
        for i := 0 to recordcount -1 do
         begin
           total := total + qry_transdetail1calctotal.value;
           next;
         end;
      enablecontrols;
      showMessage('Total : '+ formatFloat('###,###,###',total);
      end;
 end;