Array
(
)

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

Ilanocf
   - 02 set 2004

Olá pessoal,

Tenho o seguinte código:


Citação:

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: http://geocities.yahoo.com.br/linkotecabr/

Como faço para corrigir isso?

Grato,

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