Formatador de Relatório - ReportBuilder (Resumo do guia do desenvolvedor)
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.