新增数据——单表带批量插入

procedure TAcptkController.CreateAdvancePayment;
var
  Acptk: TAcptk;
  Acptks: TObjectList<TAcptk>;
begin
  if Context.Request.QueryStringParam('Batch').ToLower() = 'true' then
  begin
    Acptks := Context.Request.BodyAsListOf<TAcptk>;
    try
      for Acptk in Acptks do
      begin
            //必须先关闭
        Acptk.PrimaryKeyIsAutogenerated := False;
        Acptk.Insert;
      end;
      Render201Created('/api/AdvancePayment/' + 'AdvancePayment Create');
    finally
      FreeAndNil(Acptks);
    end;
  end
  else
  begin
    Acptk := Context.Request.BodyAs<TAcptk>;
    try
          //必须先关闭
      Acptk.PrimaryKeyIsAutogenerated := False;

      Acptk.Insert;

      Render(201, 'Create Successfully');
    finally
      FreeAndNil(Acptk);
    end;
  end;
end;