Desenhar relatório

[Estudante Corrupto 0]

Pessoal antes de mais nada parabéns pelo fórum que me ajudou durante esse ano inteiro...

 

Agora estou com mais dúvida...

 

Se eu quero criar uma unit, vou em File New Unit... Se eu quiser um form eu vou em file new form

Mas... como que eu crio um quickreport?

 

Eu poderia muito bem criar um form e jogar o TQuickRep la dentro, mas nao vai funcionar para o que eu quero..

 

O que eu quero eh desenhar somente o quickreport, como mostra a imagem...

 

Como faço isso? Fui la em file => new mas nao tem quick report...

 

 

Como podem ver na imagem, nao existe uma borda de form pq isso aí não é form... e é isso que quero...

 

o código é esse:

unit uQuickReport;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, DBClient, QRPrntr;

type
  TqrpExemplo = class(TQuickRep)
    cdsExemplo: TClientDataSet;
    cdsExemploid_registro: TIntegerField;
    cdsExemplodes_registro: TStringField;
    cdsExemplodta_registro: TDateField;
    qrbndTitulo: TQRBand;
    qrbndTituloColuna: TQRBand;
    qrlblTitulo: TQRLabel;
    qrlblId: TQRLabel;
    qrlblDescricao: TQRLabel;
    qrlblData: TQRLabel;
    QRBand11: TQRBand;
    QRDBText31: TQRDBText;
    QRDBText32: TQRDBText;
    QRDBText33: TQRDBText;
    procedure QuickRepPreview(Sender: TObject);
  private

  public

  end;

var
  qrpExemplo: TqrpExemplo;

implementation

uses ufrmPreview, Unit1, dm;

{$R *.DFM}

procedure TqrpExemplo.QuickRepPreview(Sender: TObject);
begin

	frmPreview := TfrmPreview.Create(Application);

  with frmPreview do
  begin
		qrprvwPadrao.QRPrinter := TQRPrinter(Sender);
  	ShowModal;
  end;
end;
end.

Valeu!

[Vinicius Infoloko 0]

Olá

 

No delphi 7 tem a opção New > Aba New > Report, que abre um novo quick report...

Agora nas outras versões deveria ter tbm... se estiver instalado o pacote completo e correto.

 

Att.

[marcio.theis 3]

Você quer que seja possível de editar o relatório mesmo depois de esta no executável no caso? Tipo, permitir o seu cliente mexer nas posições?