Вычисление суммы полей

Delphi , Базы данных , Поля

Создайте TQuery с SQL запросом подобно этому:

Select Sum(Field) From "Table.dbf"

Дважды щелкните на TQuery и в открывшемся редакторе полей выберите "Add" (добавить). В нашем случае это будет SumOfField. Затем в обработчике события OnCalcFields сошлитесь на Query1SumOfField (например, Table1TotalSalary.Value := Query1SumOfField.AsInteger ;).

Here is the translation of the provided Pascal code into Russian:

Единица Unit1;

интерфейс

используемые Data.DB, DBClientDataSetProvider, DBGridsProv;

тип TForm1 = класс (TForm) Query1: TQuery; procedure FormCreate(Sender: TObject);

private { Приватные объявления }

public { Объявления public } end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); begin // Создайте новый компонент запроса Query1 := TQuery.Create(nil);

// Установите команду SQL для расчета суммы поля Query1.SQL.Add('SELECT SUM(Поле) FROM ""Таблица.dbf""'); Query1.Open;

// Добавьте рассчитанное поле в запрос Query1.Edit; Query1.Fields.Append('СуммаПоля', ftInteger); Query1.FieldName('СуммаПоля').DefaultExpression := 'SUM(Поле)'; Query1.Post;

// Свяжите поле SumOfField запроса с контролем на форме (например, компонентом редактирования) Table1TotalSalary.Value := Query1.SumOfField.AsInteger; end.

Note: I translated "Field" to "Поле", "Table" to "Таблица", and "SumOfField" to "СуммаПоля".

Вычисление суммы полей в TQuery Delphi заключается в создании запроса SELECT SUM(поле) FROM "Таблица.dbf", добавлении результата к форме с помощью обработчика события OnCalcFields.

Комментарии и вопросы

:: Главная :: Поля ::