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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

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

Select Sum(Field) From "Table.dbf"

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