unidade Unit1;
relação
usos
Windows, mensagens, SysUtils, variações, classes, gráficos, controles, formulários,
Diálogos, StdCtrls, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;
tipo
TForm1 = classe (TForm)
Table1: TTable;
QuickRep1: TQuickRep;
QRBand2: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
Button1: TButton;
procedimento Button1Click (remetente: TObject);
procedimento QRBand2BeforePrint (remetente: TQRCustomBand; var PrintBand: Bôoleano);
procedimento QRBand2AfterPrint (remetente: TQRCustomBand; BandPrinted: Bôoleano);
confidencial
{Declarações confidenciais}
público
{Declarações públicas}
extremidade;
var
Form1: TForm1;
i: Inteiro;
execução
{$R *.dfm}
procedimento TForm1.Button1Click (remetente: TObject);
começar
i: = 0;
QuickRep1.Preview;
extremidade;
procedimento TForm1.QRBand2AfterPrint (remetente: TQRCustomBand; BandPrinted: Bôoleano);
começar
se modificação 5 = 0 de i então
QuickRep1.NewPage;
extremidade;
procedimento TForm1.QRBand2BeforePrint (remetente: TQRCustomBand; var PrintBand: Bôoleano);
começar
Inc (i);
extremidade;
extremidade.
o formulário
objeto Form1: TForm1
Esquerda = 245
Parte superior = 92
Subtítulo = “Form1”
ClientHeight = 464
ClientWidth = 854
Cor = 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
Esquerda = 76
Parte superior = 54
Largura = 794
Altura = 1123
Frame.Color = clBlack
Frame.DrawTop = falso
Frame.DrawBottom = falso
Frame.DrawLeft = falso
Frame.DrawRight = falso
Série de dados = 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)
Opções = [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óvel
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 = retifica
SnapToGrid = retifica
Unidades = milímetro
Zumbido = 100
PrevFormStyle = fsNormal
PreviewInitialState = wsNormal
PrevInitialZoom = qrZoomToFit
objeto QRBand2: TQRBand
Esquerda = 38
Parte superior = 38
Largura = 718
Altura = 40
Frame.Color = clBlack
Frame.DrawTop = falso
Frame.DrawBottom = falso
Frame.DrawLeft = falso
Frame.DrawRight = falso
AfterPrint = QRBand2AfterPrint
AlignToBottom = falso
BeforePrint = QRBand2BeforePrint
Cor = clWhite
TransparentBand = falso
ForceNewColumn = falso
ForceNewPage = falso
Size.Values = (
105.833333333333300000
1899.708333333333000000)
PreCaluculateBandHeight = falso
KeepOnOnePage = falso
BandType = rbDetail
objeto QRDBText1: TQRDBText
Esquerda = 18
Parte superior = 12
Largura = 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)
O alinhamento = taLeftJustify
AlignToBand = falso
AutoSize = retifica
AutoStretch = falso
Cor = clWhite
Série de dados = Table1
DataField = “CustNo”
Transparente = falso
A volta à linha automática = retifica
FontSize = 10
extremidade
objeto QRDBText2: TQRDBText
Esquerda = 104
Parte superior = 12
Largura = 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)
O alinhamento = taLeftJustify
AlignToBand = falso
AutoSize = retifica
AutoStretch = falso
Cor = clWhite
Série de dados = Table1
DataField = “companhia”
Transparente = falso
A volta à linha automática = retifica
FontSize = 10
extremidade
objeto QRDBText3: TQRDBText
Esquerda = 454
Parte superior = 11
Largura = 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)
O alinhamento = taLeftJustify
AlignToBand = falso
AutoSize = retifica
AutoStretch = falso
Cor = clWhite
Série de dados = Table1
DataField = “cidade”
Transparente = falso
A volta à linha automática = retifica
FontSize = 10
extremidade
extremidade
extremidade
objeto Button1: TButton
Esquerda = 10
Parte superior = 12
Largura = 75
Altura = 25
Subtítulo = “Button1”
TabOrder = 1
OnClick = Button1Click
extremidade
objeto Table1: TTable
O Ative = retifica
DatabaseName = “DBDEMOS”
TableName = “customer.db”
Esquerda = 228
Parte superior = 120
extremidade
extremidade
|
