Советы по Delphi

       

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


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

Select Sum(Field) From "Table.dbf"

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



Содержание раздела