unidad Unit1;
interfaz
aplicaciones
Windows, mensajes, SysUtils, variantes, clases, gráficos, controles, formas,
Diálogos, StdCtrls, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;
tipo
TForm1 = clase (TForm)
Table1: TTable;
QuickRep1: TQuickRep;
QRBand2: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
Button1: TButton;
procedimiento Button1Click (remitente: TObject);
procedimiento QRBand2BeforePrint (remitente: TQRCustomBand; var PrintBand: Boleano);
procedimiento QRBand2AfterPrint (remitente: TQRCustomBand; BandPrinted: Boleano);
privado
{Declaraciones privadas}
público
{Declaraciones públicas}
extremo;
var
Form1: TForm1;
i: Número entero;
puesta en práctica
{$R *.dfm}
procedimiento TForm1.Button1Click (remitente: TObject);
comenzar
i: = 0;
QuickRep1.Preview;
extremo;
procedimiento TForm1.QRBand2AfterPrint (remitente: TQRCustomBand; BandPrinted: Boleano);
comenzar
si MOD 5 = 0 de i entonces
QuickRep1.NewPage;
extremo;
procedimiento TForm1.QRBand2BeforePrint (remitente: TQRCustomBand; var PrintBand: Boleano);
comenzar
Inc. (i);
extremo;
extremo.
la forma
objeto Form1: TForm1
Izquierda = 245
Tapa = 92
Subtítulo = “Form1”
ClientHeight = 464
ClientWidth = 854
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = “Tahoma”
Font.Style = []
OldCreateOrder = falso
Escalado = falso
PixelsPerInch = 96
TextHeight = 13
objeto QuickRep1: TQuickRep
Izquierda = 76
Tapa = 54
Anchura = 794
Altura = 1123
Frame.Color = clBlack
Frame.DrawTop = falso
Frame.DrawBottom = falso
Frame.DrawLeft = falso
Frame.DrawRight = falso
Grupo de datos = Table1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = “Arial”
Font.Style = []
Functions.Strings = (
“PAGENUMBER”
“COLUMNNUMBER”
“REPORTTITLE ")
Functions.DATA = (
“0”
“0”
#39#39)
Opciones = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = A4
Page.Values = (
100.000000000000000000
2970.000000000000000000
100.000000000000000000
2100.000000000000000000
100.000000000000000000
100.000000000000000000
0.000000000000000000)
PrinterSettings.Copies = 1
PrinterSettings.OutputBin = automóvil
PrinterSettings.Duplex = falso
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.UseStandardprinter = falso
PrinterSettings.UseCustomBinCode = falso
PrinterSettings.CustomBinCode = 0
PrinterSettings.ExtendedDuplex = 0
PrinterSettings.UseCustomPaperCode = falso
PrinterSettings.CustomPaperCode = 0
PrinterSettings.PrintMetaFile = falso
PrinterSettings.PrintQuality = 0
PrinterSettings.Collate = 0
PrinterSettings.ColorOption = 0
PrintIfEmpty = verdad
SnapToGrid = verdad
Unidades = milímetro
Zumbido = 100
PrevFormStyle = fsNormal
PreviewInitialState = wsNormal
PrevInitialZoom = qrZoomToFit
objeto QRBand2: TQRBand
Izquierda = 38
Tapa = 38
Anchura = 718
Altura = 40
Frame.Color = clBlack
Frame.DrawTop = falso
Frame.DrawBottom = falso
Frame.DrawLeft = falso
Frame.DrawRight = falso
AfterPrint = QRBand2AfterPrint
AlignToBottom = falso
BeforePrint = QRBand2BeforePrint
Color = clWhite
TransparentBand = falso
ForceNewColumn = falso
ForceNewPage = falso
Size.Values = (
105.833333333333300000
1899.708333333333000000)
PreCaluculateBandHeight = falso
KeepOnOnePage = falso
BandType = rbDetail
objeto QRDBText1: TQRDBText
Izquierda = 18
Tapa = 12
Anchura = 44
Altura = 17
Frame.Color = clBlack
Frame.DrawTop = falso
Frame.DrawBottom = falso
Frame.DrawLeft = falso
Frame.DrawRight = falso
Size.Values = (
44.979166666666670000
47.625000000000000000
31.750000000000000000
116.416666666666700000)
La alineación = taLeftJustify
AlignToBand = falso
AutoSize = verdad
AutoStretch = falso
Color = clWhite
Grupo de datos = Table1
DataField = “CustNo”
Transparente = falso
La vuelta de carro automática = verdad
FontSize = 10
extremo
objeto QRDBText2: TQRDBText
Izquierda = 104
Tapa = 12
Anchura = 56
Altura = 17
Frame.Color = clBlack
Frame.DrawTop = falso
Frame.DrawBottom = falso
Frame.DrawLeft = falso
Frame.DrawRight = falso
Size.Values = (
44.979166666666670000
275.166666666666700000
31.750000000000000000
148.166666666666700000)
La alineación = taLeftJustify
AlignToBand = falso
AutoSize = verdad
AutoStretch = falso
Color = clWhite
Grupo de datos = Table1
DataField = “compañía”
Transparente = falso
La vuelta de carro automática = verdad
FontSize = 10
extremo
objeto QRDBText3: TQRDBText
Izquierda = 454
Tapa = 11
Anchura = 24
Altura = 17
Frame.Color = clBlack
Frame.DrawTop = falso
Frame.DrawBottom = falso
Frame.DrawLeft = falso
Frame.DrawRight = falso
Size.Values = (
44.979166666666670000
1201.208333333333000000
29.104166666666670000
63.500000000000000000)
La alineación = taLeftJustify
AlignToBand = falso
AutoSize = verdad
AutoStretch = falso
Color = clWhite
Grupo de datos = Table1
DataField = “ciudad”
Transparente = falso
La vuelta de carro automática = verdad
FontSize = 10
extremo
extremo
extremo
objeto Button1: TButton
Izquierda = 10
Tapa = 12
Anchura = 75
Altura = 25
Subtítulo = “Button1”
TabOrder = 1
OnClick = Button1Click
extremo
objeto Table1: TTable
El Active = verdad
DatabaseName = “DBDEMOS”
TableName = “customer.db”
Izquierda = 228
Tapa = 120
extremo
extremo
|