Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Marcones Borges

Relatorio Qreport

Recommended Posts

Olá pessoal boa noite, criei um relatório com qreport, porem quando eu gero ele puxa apenas o último registro do banco de dados que é em access... o que devo fazer?

 

o botão que pucha o relatorio eu coloquei assim

 

Form9.QuickRep1.preview;

Compartilhar este post


Link para o post
Compartilhar em outros sites

Posta o código inteiro, desde como você está selecionando os dados a como está os passando para o quickreport, componentes que está usando para exibir os dados no quickreport, etc... senão fica difícil ajudar.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Posta o código inteiro, desde como você está selecionando os dados a como está os passando para o quickreport, componentes que está usando para exibir os dados no quickreport, etc... senão fica difícil ajudar.

 

Seguinte cara,

 

Tenho no form um botão com o seguinte comando: Form9.QuickRep1.preview;

 

ele puxa o form9 que tem:

QuickRep = 1

QRLabel = 3

QRDBText = 3

 

esse é o código do Form9

 

unit Unit9;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

 

type

TForm9 = class(TForm)

QuickRep1: TQuickRep;

PageHeaderBand1: TQRBand;

ColumnHeaderBand1: TQRBand;

DetailBand1: TQRBand;

PageFooterBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRSysData1: TQRSysData;

QRSysData2: TQRSysData;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure PageHeaderBand1AfterPrint(Sender: TQRCustomBand;

BandPrinted: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form9: TForm9;

 

implementation

 

uses Unit4;

 

{$R *.dfm}

 

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caFree;

form9 := nil;

end;

 

procedure TForm9.PageHeaderBand1AfterPrint(Sender: TQRCustomBand;

BandPrinted: Boolean);

begin

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Seu código está incompleto na página, então vamos as especulações... como está alimentando seu quickreport, a partir de um select no banco? Um TTable? As propriedades de datasource do quickreport estão setadas corretamente? Os componentes do tipo TQrdDBText estão dentro de qual banda do quickreport?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Seu código está incompleto na página, então vamos as especulações... como está alimentando seu quickreport, a partir de um select no banco? Um TTable? As propriedades de datasource do quickreport estão setadas corretamente? Os componentes do tipo TQrdDBText estão dentro de qual banda do quickreport?

 

seguinte os dados vem do form4.

 

selecionei no Dataset: Form4.ADOTable1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Este AdoTable contém todos os registros da tabela do Access que está tentando imprimir no quick? Talvez esteja ai o problema, já tentou usar um TADOQuery no lugar da TADOTable para capturar os dados que serão impressos no quickreport?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.