MyBaseを試してみる。(Index、FilterでAggregateが変！？)

Index、Filterを設定するとAggregateの値がおかしくなります。どこか使い方が間違ってるのかな？よくわからないけど、Aggregateを使うときには、このことに注意が必要です。

起動時画面

★Filterプロパティを使った場合
その１

１．[ITEMでソート]を押すと、ITEMでソートされて、合計金額は表示されません。
　　ITEMでの並び替えは、合計金額の計算に影響はないでしょうって言いたく
　　なりますが、表示されないなら別にいいけどー(^-^)

２．[ORD_IDXでソート]を押すと、再度、合計金額が表示されます。

３．フィルター[ON]を押すと、フィルター処理された合計金額が表示されます。

４．ここで[ITEMでソート]を押すと、なんと合計金額は２倍になりました。

５．驚いて[ORD_IDXでソート]を押すと、合計金額は３倍になりました。

６．これはいけないと思い、フィルター[OFF]を押すと元に戻りました。

その２

１．フィルター[ON]を押して、フィルター処理後の合計金額が正しいことを確認します。

２．フィルター[OFF]を押して、合計金額が正しいことを確認します。

３．[ITEMでソート]を押すと、なんと合計金額は２倍になりました。

４．驚いて[ORD_IDXでソート]を押すと、合計金額は３倍になりました。

５．再び[ITEMでソート]を押すと、なんと合計金額は、４倍になりました。

６．もう一度[ORD_IDXでソート]を押すと、なんと合計金額は、５倍になりました。

[ITEMでソート]、[ORD_IDXでソート]を交互に押すと、合計金額はとどまるところを
知らないようです。(^-^)

★OnFilterRecordを使った場合
その１

１．[ITEMでソート]を押すと・・・ITEMでソートされて、合計金額は表示されません。

２．[ORD_IDXでソート]を押すと・・・再度、合計金額が表示されます。

３．フィルター[ON]を押すと・・・合計金額が表示されません。

　　しかしここで、次のレコードに移動させるとフィルター処理前の合計金額が
　　表示されています。

４．ここで[ITEMでソート]を押すと・・・合計金額は表示されません。

５．驚いて[ORD_IDX]を押すと・・・合計金額は表示されません。

６．これはいけないと思い、フィルター[OFF]を押すと・・・合計金額は表示されません。

その２

１．フィルター[ON]を押すと・・・合計金額が表示されません。
　　しかしここで、次のレコードに移動させるとフィルター処理前の合計金額が
　　表示されました。

２．フィルター[OFF]を押して、合計金額が正しいことを確認します。
　　合計金額は正しく表示されました。

　　と思ったけど、フィルター処理されたレコードに移動させると、
　　合計金額が消えてしまいました。

３．[ITEMでソート]を押すと・・・合計金額は表示されません。

４．驚いて[ORD_IDX]を押すと・・・合計金額は表示されません。

５．[ITEMでソート]を押すと・・・合計金額は表示されません。

６．[ORD_IDXでソート]を押すと・・・合計金額は表示されません。

７．[ITEMでソート]、[ORD_IDXでソート]を交互に押すと・・・
　　合計金額は表示されません。

いろいろ試した結果、インデックスを入れ替えず、Filterプロパティでフィルター処理すれば正常な動作をしているようです。フィルター時には、フィルター処理後の合計金額が表示されますし、解除後は、正しい合計金額が表示されました。しかしOnFilterRecordでフィルター処理した場合は、正しく表示されませんでした。

// COMMON

// サンプルデータを追加します。
procedure MakeSample(CDS: TClientDataSet);
var
  No: Integer;
  F: Boolean;
begin
  F := CDS.Active;
  if not F then
    CDS.Open;
  try
    // サンプルデータの追加
    No := 0;
    with CDS do
    begin
      Inc(No);
      Appendrecord([No, 'Delphi XE2 Starter ESD',10,'本',18000]);
      Inc(No);
      Appendrecord([No, 'Delphi XE2 Professional ESD',5,'本',94000]);
      Inc(No);
      Appendrecord([No, 'Delphi XE2 Enterprise ESD',10,'本',236000]);
      Inc(No);
      Appendrecord([No, 'Delphi XE2 Ultimate ESD',3,'本',356000]);
      Inc(No);
      Appendrecord([No, 'Delphi XE2 Architect ESD',1,'本',416000]);
      CheckBrowseMode;
    end;
  finally
    if not F then
      CDS.Close;
  end;
end;

// データベースの作成
procedure CreateDB(CDS: TClientDataSet);
var
  I: Integer;
begin
  // データベースの作成
  CDS.Close;
  CDS.FieldDefs.Add('ORD',ftInteger);
  CDS.FieldDefs.Add('ITEM',ftWideString,30);
  CDS.FieldDefs.Add('QTY',ftFloat);
  CDS.FieldDefs.Add('UNIT',ftWideString,4);
  CDS.FieldDefs.Add('PRICE',ftCurrency);
  CDS.IndexDefs.Add('ORD_IDX','ORD', [ixPrimary]);
  //CDS.IndexDefs.Add('ITEM_IDX','ITEM', []);
  CDS.CreateDataSet;
  CDS.Close;

  for I := 0 to CDS.FieldDefs.Count - 1 do
    CDS.FieldDefs[I].CreateField(CDS);

  // 計算フィールド
  with TCurrencyField.Create(CDS) do
  begin
    FieldName := 'AMOUNT';
    Visible:=True;
    FieldKind := fkInternalCalc;
    DataSet := CDS;
  end;

  // 集合フィールド
  with TAggregateField.Create(CDS) do
  begin
    DisplayLabel := '合計';
    DisplayWidth := 10;
    DisplayFormat := '#,###,###,###';
    AlignMent := taRightJustify;
    FieldKind := fkAggregate;
    FieldName := 'TOTAL_F';
    ReadOnly := True;
    Expression := 'SUM(AMOUNT)';
    Active := True;
    DataSet := CDS;
  end;
  CDS.AggregatesActive := True;

  // インデックスの設定
  CDS.IndexName := 'ORD_IDX';

  // 表示用にフィールド幅を設定
  CDS.FieldByName('ORD').DisplayWidth := 3;
  CDS.FieldByName('ITEM').DisplayWidth := 25;
  CDS.FieldByName('QTY').DisplayWidth := 3;
  CDS.FieldByName('UNIT').DisplayWidth := 4;
  CDS.FieldByName('PRICE').DisplayWidth := 8;
  CDS.FieldByName('AMOUNT').DisplayWidth := 10;

  // 計算フィールドの設定
  CDS.OnCalcFields := Form1.CalcFields;

  // DBEditの設定
  Form1.DBEdit1.DataField := 'TOTAL_F';
  CDS.Open;

  // サンプルデータの作成
  MakeSample(CDS);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateDB(ClientDataSet1);
end;

procedure TForm1.ClientDataSet1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := AnsiPos(Edit1.Text, DataSet.FieldByName('ITEM').AsString) > 0;
end;


// 計算フィールド
procedure TForm1.CalcFields(DataSet: TDataSet);
begin
  DataSet.FieldByName('AMOUNT').AsCurrency :=
    DataSet.FieldByName('QTY').AsFloat *
    DataSet.FieldByName('Price').AsCurrency;
end;

// フィルターON
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  //ClientDataSet1.Filter := 'ITEM LIKE '+QuotedStr('%'+ Edit1.Text+'%');
  ClientDataSet1.Filtered := True;
end;

// フィルターOFF
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  ClientDataSet1.Filtered := False;
  ClientDataSet1.Filter := '';
end;

// インデックス　ITEM
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  ClientDataSet1.IndexFieldNames := 'ITEM';
  // ClientDataSet1.IndexName := 'ITEM_IDX';
end;

// インデックス ORD_IDX
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ClientDataSet1.IndexName := 'ORD_IDX';
end;

// Helpより
// メモ：  IndexFieldNames プロパティと
// IndexName プロパティは相互に排他的です。
// 一方を設定するともう一方はクリアされます。