---

1. Selecione a variável vrBuyTotal.

4. Assign the following code to this event handler:

2. Clique na guia Eventos do Object Inspector.

3. Dê um clique duplo sobre o evento OnCalc. Um evento shell será gerado em seu formulário de Delphi.

4. Atribua o seguinte código para este evento:

if(qryStock.FieldByName('Rcmndation').AsString = 'BUY') then
  Value := Value + 1;

5. Atribuir o seguinte código ao evento OnCalc da variável vrHoldTotal:

if(qryStock.FieldByName('Rcmndation').AsString = 'HOLD') then
  Value := Value + 1;

6. Atribuir o seguinte código ao evento OnCalc da variável vrSellTotal:

if(qryStock.FieldByName('Rcmndation').AsString = 'SELL') then
  Value := Value + 1;

Nota: Todos esses três eventos verificam o valor do campo para se certificarem que correspondem ao total e, em seguida, aumenta-lo. O evento OnCalc é um procedimento em que o parâmetro Value contém o valor atual da variável. Essas variáveis particulares são inteiras, porque vamos definir o DataType para inteiro quando os criarmos.

7. Selecione a opção de menu “File | Save”.

8. Selecione a opção de menu do Delphi “Project | Compile rbSTProj”. Corrija os problemas.

9. Execute o projeto.

10. Visualize o relatório. Clique no ícone “Last Page” da janela visualização. Um relatório de trinta e oito página deve aparecer. A banda resumo deve conter os totais de cada tipo recommendation.

Nota: Você deve compilar e executar este relatório, a fim de ver exatamente como ele vai ficar. Isso ocorre porque os eventos foram atribuídos ao relatório. Quando os eventos são atribuídos, o relatório deve ser compilado e executado; caso contrário, o código dos eventos não serão utilizados na geração do relatório e quaisquer mudanças feitas através dos eventos não serão refletidos no relatório.