Have an amazing solution built in RAD Studio? Let us know. Looking for discounts? Visit our Special Offers page!
CodeDatabaseDelphiRAD Studio

Quickly Define Powerful Client-Side Aggregating Formulas With FireDAC Using TFDQuery In Delphi

This sample demonstrates how to define the client-side aggregating formulas with TFDQuery. You can find out more about aggregated fields and values in the Embarcadero DocWiki.

The fkAggregate aggregated fields management is similar to the expression calculated fields management. FireDAC calculates aggregated fields when TFDDataSet.AggregatesActive is set to True (by default, its value is set to False). The aggregated expression cannot be changed when the dataset is active. Also, the FireDAC application can use the TFDDataSet.Aggregates collection to define aggregated values. They are more light-weighted than fields and can be defined at any time, including when the dataset is active.

Location

You can find the Aggregates sample project at:

  • Start | Programs | Embarcadero RAD Studio Sydney | Samples and then navigate to:
    • Object PascalDatabaseFireDACSamplesComp LayerTFDQueryAggregates
  • Subversion Repository:
    • You can find Delphi code samples in GitHub Repositories. Search by name into the samples repositories according to your RAD Studio version.

How to Use the Sample

  1. Navigate to the location given above and open Aggregates.dproj.
  2. Press F9 or choose Run > Run.

Files

File in DelphiContains
Aggregates.dproj
Aggregates.dpr
The project itself.
fAggregates.pas
fAggregates.fmx
The main form.

Implementation

Before running the sample, the main components are configured at design time using the Object Inspector as follows:

  • TFDQuery object named qryAggregates. This component is used to implement a dataset capable of executing SQL queries. The following setup is needed:
  • Configure the Connection property to specify the FireDAC connection object that is used to connect to a DBMS.
  • Set the SQL property to select * from {id Orders}. It specifies the SQL statement to execute for the query.
  • Edit the Aggregates property with 4 aggregate expressions:
    1. AVG(Freight)
    2. SUM(Freight)
    3. MAX(OrderID)
    4. Typed by the user using the edit box.
  • TDataSource object named DataSource1. This component provides an interface between a dataset component and data-aware controls on a form. In this sample, it is used to provide communication between the dataset and the grid where the dataset is displayed. To this end, the DataSet property of DataSource1 is set to qryAggregates and the DataSource property of DBGrid1 is set to DataSource1.

When you run the application, click on the Use Connection Definition combo box and select an option in order to define a connection. When you select an item of the combo box, the sample uses the Open method of qryAggregates in order to execute the SQL statement that retrieves the “Orders” table from the database. Then, the sample displays the “Orders” table using a TDBGrid component. Once the DBGrid1 is filled, you can interact with the sample in the following ways:

  1. Set an aggregate expression. Type your own aggregate expression on the Try edit box and press Enter for evaluation. For example: type MAX(Freight) and press Enter to see the maximum value of the Freight field on the Result edit box.
  2. Preset aggregate expressions. See the evaluation of the preset aggregate expressions.

The next link will guide you to the original post, on which you will find more detailed information, as well as other interesting links:

http://docwiki.embarcadero.com/CodeExamples/Sydney/en/FireDAC.TFDQuery.Aggregates_Sample

Head over and check out the full source code for the TFDQuery Aggregates sample on Embarcadero’s GitHub.


What's New for RAD Studio 11

Reduce development time and get to market faster with RAD Studio, Delphi, or C++Builder.
Design. Code. Compile. Deploy.
Start Free Trial   Upgrade Today

   Free Delphi Community Edition   Free C++Builder Community Edition

Related posts
CodeDelphiRAD Studio

How To Build A Powerful Real-Time Stock Market App

CodeDelphi

5 Ways To Enhance The Security Of Windows Apps

CodeDelphi

11 Tutorials For Working With Ethereum From Delphi

C++DelphiRAD Studio

The High-Performance Future Of AI Is REST APIs

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.

IN THE ARTICLES