[ソフトウェア販売・システム開発 / 求人 * しょろぢ屋]

  if not QuickReport.DataSet.Eof then
    QuickReport.NewPage

  with QuickReport.DataSet do
    if not RecNO + 1 < RecordCount then
      QuickReport.NewPage

if FResultType in [ftFloat, ftCurrency] then 

if FResultType in [ftFloat, ftCurrency, ftBCD, ftInteger] then 

update h set
  発注数   = 発注数SUM 
  発注金額 = 発注金額SUM 
from
  発注H h
  right join (
  select
    発注NO,
    Sum(発注数）  [発注数SUM],
    Sum(発注金額) [発注金額SUM]
  from 受注D
  group by 発注NO
  ) d
  on d.発注NO = h.発注NO

  { 受注H * 集計 }
  if (dmMng.ADOConSqlServer.InTransaction) then
    with cdsOrderH do begin
      if not (State in [dsEdit, dsInsert]) then
        Edit;

      FieldValues['出荷数']   := cdsOrderD.FieldValues['出荷数Agg'];
  end;

Param.Size := Field.Size; //※1
if Param.Size <= 0 then
  Param.Size := 1; // ※2
if VarIsNull(Value) then
  Param.DataType := ftString; //※3

procedure Tdm.SetUSQLParams(Query: TAdoQuery;
  DeltaDS: TClientDataSet);
var
  I: Integer;
  Old: Boolean;
  Param: TParameter;
  PName: string;
  Field: TField;
  Value: Variant;
begin
  if not Assigned(DeltaDs) then Exit;
  with Query do begin
    for I := 0 to Parameters.Count - 1 do begin
      Param := Parameters[I];
      PName := Param.Name;
      Old := CompareText(Copy(PName, 1, 4), 'OLD_') = 0;
      if Old then System.Delete(PName, 1, 4);
      Field := DeltaDs.FindField(PName);
      if not Assigned(Field) then Continue;
      if not Old then begin
        Value := Field.NewValue;
        if VarIsClear(Value) then Value := Field.OldValue;
        Param.Value := Value;
      end else
        Field.Value := Field.OldValue;

      // debug
      writeln(Format('%s: %s', [Parameters[i].Name, 
Parameters[i].Value]));
    end;
  end;

end;

procedure Tdm.dspSupplierBeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  UpdateKind: TUpdateKind; var Applied: Boolean);
begin
  { SQLを使って、更新 }
    with dm1.AdoTmpQuery do begin
      SQL.Assign(uSqlSupplier.Query[UpdateKind].SQL);


      SetUSQLParams(dm1.AdoTmpQuery, TClientDataSet(DeltaDS));
      ExecSQL;
    end;

    Applied := True;
end;