Uso de Aggregates no ClientDataSet

Olá pessoal.
Hoje nesse post, falarei sobre o uso de aggregates no ClientDataSet.


PARA QUÊ E ONDE EU UTILIZO AGGREGATES?

Uma das funções do aggregate, é poder gerar expressões que envolvam todas as ocorrências adquiridas em uma Query como Somar, Contar, adquirir o valor Mínimo, Máximo e média total.
Muitos programadores costumam fazer isso atribuindo valores a um loop Do While Next;
Mas essa é uma alternativa lerda em que caso for contar uma quantidade grande de registros, a aplicação pode ficar lenta.

Você pode estar se perguntando: "Eu não posso fazer isso pelo InternalCalc?".
Com o Internalcalc, eu consigo fazer operações no registro onde esta o ponteiro, mas não em todos os registros.


UTILIZANDO AGGREGATES

Vamos botar a mão na massa.
Arraste um Panel, um ClientDataSet, um DataSource e um DBGrid para o formulário.
Marque a opção Align do panel para AlBottom e a opção Align do DBGrid para AlClient.

Vamos carregar os dados no ClientDataSet de um arquivo XML.
A instalação do Delphi gera alguns arquivos XML por padrão, para uso de testes dentro do Delphi.

• Clique no ClientDataSet e clique na elipse(...) da propriedade FileName.
• Vá na raiz onde esta instalado o Delphi-> Arquivos de Programas ->Arquivos Comuns->Borland Shared (ou CodeGear Shared) ->Data.
• Escolha o arquivo Employee.xml
• Marque a propriedade Active do CDS para TRUE.
• Aponte a propriedade DataSet do DataSource1 para o ClientDataset1.

Seu Form deverá ficar assim:

• Clique 2x no ClientDataSet, e tecla CTRL+F(Add All Fields).
• Marque a opção AggregatesActive do CDS para True.
• No FieldsEditor do CDS, tecle CTRL+M(New Field).
• em Name, digite SOMA e em FieldType, marque a opção Aggregate. Note que o Type do novo Field, também ficará como Aggregate.

Note que o FieldEditor adicionou uma nova linha separada com o campo Agregado. O CDS faz isso com todos os campos agregados que lhe é carregado.
Clique no TField Soma e vá até a propriedade Expression no Object Inspector.
Digite o seguinte: SUM(salary) e ainda no TFieldSoma, marque a propriedade Active para TRUE.
Arraste um DBText para o Panel abaixo do DBGrid. Aponte o DataSource1 na propriedade DataSource do DBText e em DataField selecione a opção SOMA (que é o novo TField agregado que criamos).
Note que o Caption do DBText já é alterado pegando a soma total do campo Salary em todas as ocorrências. Caso você filtre o ClientDataSet, a somatotal do DBText será a soma de todos os registros filtrados.

Nossa aplicação não fica beeeeeeeeeeem mais rápida assim?
:D
legal né?

Em caso de dúvidas, podem comentar que respondo o mais rápido que eu puder.

Abraços e até a proxima.