Fórum Incrementando contador #237311
11/06/2004
0
Olá pessoal,
Tenho o seguinte código:
No evento OnCreate do [b:e47ca4d1c0]FrmRelTrancNominal[/b:e47ca4d1c0] tenho:
No relatório tenho:
No evento BeforePrint da QRBand2, tenho o código:
Só q, quando mando imprimir, surge assim:
Quando o q eu quero é q fique assim:
Como posso incrementar o código? Pois se eu usar o [b:e47ca4d1c0]QRExp[/b:e47ca4d1c0], tb dá no mesmo.
Código Completo:
Estou utilizando [b:e47ca4d1c0]Delphi 5 - Enterprise, QuickReport e banco de dados MySQL[/b:e47ca4d1c0]
Grato,
Ilano.
Tenho o seguinte código:
With DMConsultas.Alunos Do
Begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM TB_Alunos´);
SQL.Add(´WHERE Trancamento= :P1´);
SQL.Add(´ORDER BY Turma, NomeDoCurso, NomeDoAluno´);
ParamByName(´P1´).Value:=´Não´;
Open;
End;
Application.CreateForm(TFrmRelTrancNominal, FrmRelTrancNominal);
FrmRelTrancNominal.QuickRep1.PreviewModal;
No evento OnCreate do [b:e47ca4d1c0]FrmRelTrancNominal[/b:e47ca4d1c0] tenho:
f_TotalTurma:=0;
f_Item:=0;
No relatório tenho:
- [b:e47ca4d1c0]QRBand:[/b:e47ca4d1c0] Titulo
- [b:e47ca4d1c0]QRGroup1:[/b:e47ca4d1c0] Turma (FooterBand = QRBand1)
- [b:e47ca4d1c0]QRGroup2:[/b:e47ca4d1c0] NomeDoCurso
- [b:e47ca4d1c0]QRBand2:[/b:e47ca4d1c0] Detail, onde tenho:
[b:e47ca4d1c0]QRLabel:[/b:e47ca4d1c0] Item (QrlItem)
[b:e47ca4d1c0]QRDBText:[/b:e47ca4d1c0] Matricula
[b:e47ca4d1c0]QRDBText:[/b:e47ca4d1c0] NomeDoAluno
- [b:e47ca4d1c0]QRBand1:[/b:e47ca4d1c0] Group Footer, que está ligada à QRGroup1 onde está a Turma
No evento BeforePrint da QRBand2, tenho o código:
f_Item:=f_Item + 1;
QrlItem.Caption := ´´;
If f_Item > 0 Then
QrlItem.Caption := FormatFloat(´#,000´, f_Item);
f_TotalTurma:=f_Item;
Só q, quando mando imprimir, surge assim:
[b:e47ca4d1c0]1998.1[/b:e47ca4d1c0]
[b:e47ca4d1c0]Eletromecânica[/b:e47ca4d1c0]
001 9803101 Fulano de Tal
002 9803102 Nonn Nonnonon
003 9803103 Raimundo nenenen
[b:e47ca4d1c0]Recursos Hídricos / Irrigação[/b:e47ca4d1c0]
004 9803104 Zezinho
005 9803105 Chiquinho
[b:e47ca4d1c0]1998.2[/b:e47ca4d1c0]
[b:e47ca4d1c0]Eletromecânica[/b:e47ca4d1c0]
006 9803106 Raimundinha
007 9803107 Chiquinha
...
Quando o q eu quero é q fique assim:
[color=blue:e47ca4d1c0][b:e47ca4d1c0]1998.1[/b:e47ca4d1c0]
[b:e47ca4d1c0]Eletromecânica[/b:e47ca4d1c0]
001 9803101 Fulano de Tal
002 9803102 Nonn Nonnonon
003 9803103 Raimundo nenenen
[b:e47ca4d1c0]Recursos Hídricos / Irrigação[/b:e47ca4d1c0]
001 9803104 Zezinho
002 9803105 Chiquinho
[b:e47ca4d1c0]1998.2[/b:e47ca4d1c0]
[b:e47ca4d1c0]Eletromecânica[/b:e47ca4d1c0]
001 9803106 Raimundinha
002 9803107 Chiquinha
...[/color:e47ca4d1c0]
Como posso incrementar o código? Pois se eu usar o [b:e47ca4d1c0]QRExp[/b:e47ca4d1c0], tb dá no mesmo.
Código Completo:
[color=red:e47ca4d1c0]unit UFrmRelTrancNominal;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, QuickRpt, Qrctrls;
type
TFrmRelTrancNominal = class(TForm)
QuickRep1: TQuickRep;
Titulo: TQRBand;
QRBand2: TQRBand;
QRBand3: TQRBand;
QRGroup1: TQRGroup;
QRGroup2: TQRGroup;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRImage1: TQRImage;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRBand1: TQRBand;
QRLabel3: TQRLabel;
QrlItem: TQRLabel;
procedure QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
procedure FormCreate(Sender: TObject);
private
f_TotalTurma, f_Item: Integer;
{ Private declarations }
public
{ Public declarations }
end;
var
FrmRelTrancNominal: TFrmRelTrancNominal;
implementation
Uses UConsultas;
{$R *.DFM}
procedure TFrmRelTrancNominal.QRBand2BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
f_Item:=f_Item + 1;
QrlItem.Caption := ´´;
If f_Item > 0 Then
QrlItem.Caption := FormatFloat(´#,000´, f_Item);
f_TotalTurma:=f_Item;
end;
procedure TFrmRelTrancNominal.FormCreate(Sender: TObject);
begin
f_TotalTurma:=0;
f_Item:=0;
end;
end.[/color:e47ca4d1c0]
Estou utilizando [b:e47ca4d1c0]Delphi 5 - Enterprise, QuickReport e banco de dados MySQL[/b:e47ca4d1c0]
Grato,
Ilano.
Ilanocf
Curtir tópico
+ 0
Responder
Posts
11/06/2004
Djjunior
simples no BeforePrint da QRGroup1 zere o F_Item
[/b]
[/b]
Responder
Gostei + 0
11/06/2004
Ilanocf
Valeu djjunior,
Deu certo!
Obrigado.
Deu certo!
Obrigado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)