Delphi Dbgrid Сумма

DBGrid - это компонент Delphi, который предназначен для отображения и редактирования таблиц баз данных. С помощью DBGrid вы можете отобразить содержимое таблицы из базы данных на форме приложения.

При работе с DBGrid часто возникает необходимость рассчитать сумму значений в столбце. Для этого в Delphi есть несколько способов. Один из них - использование метода TDataSet.AggregateValue().

var
   sum: Currency;
 begin
   sum := MyDataSet.AggregateValue(agSum, 'MyFieldName');
   ShowMessage('Сумма значений: ' + CurrToStr(sum));
 end;

В данном примере создается переменная sum типа Currency, которая будет хранить сумму значений столбца MyFieldName. Затем вызывается метод AggregateValue() объекта MyDataSet и передаются два параметра: agSum - указывает на то, что нужно рассчитать сумму значений, и 'MyFieldName' - имя столбца, для которого нужно рассчитать сумму.

Если вы хотите отобразить сумму значений в DBGrid, то можно воспользоваться событием OnDrawColumnCell. В этом событии можно изменить отображение ячейки столбца. Например:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
   DataCol: Integer; Column: TColumn; State: TGridDrawState);
 var
   d: Double;
 begin
   if (gdFocused in State) or (gdSelected in State) then
   begin
     DBGrid1.Canvas.Brush.Color := clHighlight;
     DBGrid1.Canvas.Font.Color := clHighlightText;
   end;
   if Column.FieldName = 'MyFieldName' then
   begin
     d := MyDataSet.AggregateValue(agSum, 'MyFieldName');
     DBGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,
       FloatToStr(d));
   end
   else
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
 end;

В данном примере при каждой отрисовке ячейки с помощью метода AggregateValue() рассчитывается сумма значений столбца MyFieldName. Затем полученное значение отображается в ячейке.