Estos son los archivos, si copias y creas los archivos tendrás el ejemplo.
QuickDM.dfm
Código:
program QuickDM;
uses
unDataModule in 'unDataModule.pas' {DataModule1: TDataModule},
unQuickReport in 'unQuickReport.pas' {QuickReport1: TQuickRep};
unDataModule.dfm
Código:
object DataModule1: TDataModule1
OldCreateOrder = False
Height = 0
Width = 0
object Table1: TTable
TableName = 'Contacts.DB'
Left = 16
Top = 12
end
end
unDataModule.pas
Código:
unit unDataModule;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables;
type
TDataModule1 = class(TDataModule)
Table1: TTable;
private
public
end;
var
DataModule1: TDataModule1;
implementation
{$R *.DFM}
end.
unQuickReport.dfm
Código:
object QuickReport1: TQuickReport1
DataSet = DataModule1.Table1
object QRBand1: TQRBand
BandType = rbDetail
object QRExpr1: TQRExpr
Left = 271
Top = 24
Width = 198
Height = 17
Alignment = taCenter
AlignToBand = True
Expression = 'Table1.Copies + Table1.ProductID'
end
end
end
unQuickReport.pas
Código:
unit unQuickReport;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;
type
TQuickReport1 = class(TQuickRep)
QRBand1: TQRBand;
QRExpr1: TQRExpr;
private
public
end;
var
QuickReport1: TQuickReport1;
implementation
uses Unit1;
{$R *.DFM}
end.
Saludos!