02/09/2004

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

Olá pessoal,

Tenho o seguinte código:

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.


Só q meu relatório está sendo exibido assim: [url]http://geocities.yahoo.com.br/linkotecabr/[/url]

Como faço para corrigir isso?

Grato,

Ilano. [img:af855760e7]http://www.forumweb.com.br/forum/style_emoticons/default/bangin.gif[/img:af855760e7]


Ilanocf