Relatório de Avaliação (MySQL) - Estou neste sufoco há meses

unit UFrmRelResolucao; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, QuickRpt, Qrctrls; type TFrmRelResolucao = class(TForm) QuickRep1: TQuickRep; QRBand1: TQRBand; QRGroup1: TQRGroup; QRDBText1: TQRDBText; QRGroup2: TQRGroup; QRDBText2: TQRDBText; QRGroup3: TQRGroup; QRDBText3: TQRDBText; QRSubDetail1: TQRSubDetail; QRDBText6: TQRDBText; QRDBText7: TQRDBText; QRDBText8: TQRDBText; QRLabel1: TQRLabel; QRBand3: TQRBand; QRImage1: TQRImage; QRGroup4: TQRGroup; QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRLabel2: TQRLabel; QRShape1: TQRShape; QRLabel3: TQRLabel; QRBand2: TQRBand; RodaPe: TQRLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure QRSubDetail1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); procedure QRGroup4BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); procedure QRBand3BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); procedure QRBand2BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); procedure FormCreate(Sender: TObject); private VValor, VSoma, VCalculo, VRegistro: Integer; VMedia, VTotalMedia: Real; { Private declarations } public { Public declarations } end; var FrmRelResolucao: TFrmRelResolucao; implementation Uses UConsultas; {$R *.DFM} procedure TFrmRelResolucao.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; procedure TFrmRelResolucao.QRSubDetail1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin VValor:=VValor + DMConsultas.Resolucao2SomaDeContador.AsInteger; QRLabel2.Caption:=FormatFloat(´#,,000´, VValor); If VCalculo > 0 Then Begin VMedia:=(DMConsultas.Resolucao2SomaDeContador.Value / VCalculo) * 100; QRLabel1.Caption:=FormatFloat(´0.00´, VMedia) + ´ ¬´; End; If VMedia > 0 Then Begin VTotalMedia:=VMedia + VTotalMedia; QRLabel3.Caption:=FormatFloat(´0.00´, VTotalMedia) + ´ ¬´; End; end; procedure TFrmRelResolucao.QRGroup4BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin VCalculo:=VValor; If VValor > 0 Then Begin VValor:=0; //Zera para iniciar o próximo bloco de perguntas. End; If VMedia > 0 Then Begin VMedia:=0; End; If VTotalMedia > 0 Then Begin VTotalMedia:=0; End; If VSoma > 0 Then Begin VSoma:=0; End; end; procedure TFrmRelResolucao.QRBand3BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin //VSoma:=VValor; //VCalculo:=VSoma; end; procedure TFrmRelResolucao.QRBand2BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin RodaPe.Caption:=´OBS.: Esse conceito médio foi definido como a média aritimética dos valores relacionados aos conceitos dados pelos´ + #13 + ´alunos (variação de 1 a 4) a cada um dos ´ + FormatFloat(´,000´, VRegistro) + ´ questionamentos.´; end; procedure TFrmRelResolucao.FormCreate(Sender: TObject); begin VValor:=0; VSoma:=0; VCalculo:=0; VRegistro:=0; VMedia:=0; VTotalMedia:=0; DMConsultas.Perguntas.Active:=True; VRegistro:=DMConsultas.Perguntas.RecordCount; //VRegistro está pegando o total da consulta DMConsultas.Perguntas.Active:=False; end; end.