eenheid Unit1;
interface
gebruik
Vensters, Berichten, SysUtils, Varianten, Klassen, Grafiek, Controles, Vormen,
Dialogen, StdCtrls, QuickRpt, QRCtrls, ExtCtrls, OB, DBTables;
type
TForm1 = klasse (TForm)
Table1: TTable;
QuickRep1: TQuickRep;
QRBand2: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
Button1: TButton;
procedure Button1Click (Afzender: TObject);
procedure QRBand2BeforePrint (Afzender: TQRCustomBand; var PrintBand: Van Boole);
procedure QRBand2AfterPrint (Afzender: TQRCustomBand; BandPrinted: Van Boole);
privé
{Privé verklaringen}
openbaar
{Openbare verklaringen}
eind;
var
Form1: TForm1;
i: Geheel;
implementatie
{$R *.dfm}
procedure TForm1.Button1Click (Afzender: TObject);
begin
i: = 0;
QuickRep1.Preview;
eind;
procedure TForm1.QRBand2AfterPrint (Afzender: TQRCustomBand; BandPrinted: Van Boole);
begin
als Imod. 5 = 0 toen
QuickRep1.NewPage;
eind;
procedure TForm1.QRBand2BeforePrint (Afzender: TQRCustomBand; var PrintBand: Van Boole);
begin
N.v. (I);
eind;
eind.
de vorm
voorwerp Form1: TForm1
Linkerzijde = 245
Bovenkant = 92
Titel = „Form1“
ClientHeight = 464
ClientWidth = 854
Kleur = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = „Tahoma“
Font.Style = []
OldCreateOrder = Vals
Geschraapt = Vals
PixelsPerInch = 96
TextHeight = 13
voorwerp QuickRep1: TQuickRep
Linkerzijde = 76
Bovenkant = 54
Breedte = 794
Hoogte = 1123
Frame.Color = clBlack
Frame.DrawTop = Vals
Frame.DrawBottom = Vals
Frame.DrawLeft = Vals
Frame.DrawRight = Vals
Dataset = 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)
Opties = [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 = Auto
PrinterSettings.Duplex = Vals
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.UseStandardprinter = Vals
PrinterSettings.UseCustomBinCode = Vals
PrinterSettings.CustomBinCode = 0
PrinterSettings.ExtendedDuplex = 0
PrinterSettings.UseCustomPaperCode = Vals
PrinterSettings.CustomPaperCode = 0
PrinterSettings.PrintMetaFile = Vals
PrinterSettings.PrintQuality = 0
PrinterSettings.Collate = 0
PrinterSettings.ColorOption = 0
PrintIfEmpty = Waar
SnapToGrid = Waar
Eenheden = MM.
Gezoem = 100
PrevFormStyle = fsNormal
PreviewInitialState = wsNormal
PrevInitialZoom = qrZoomToFit
voorwerp QRBand2: TQRBand
Linkerzijde = 38
Bovenkant = 38
Breedte = 718
Hoogte = 40
Frame.Color = clBlack
Frame.DrawTop = Vals
Frame.DrawBottom = Vals
Frame.DrawLeft = Vals
Frame.DrawRight = Vals
AfterPrint = QRBand2AfterPrint
AlignToBottom = Vals
BeforePrint = QRBand2BeforePrint
Kleur = clWhite
TransparentBand = Vals
ForceNewColumn = Vals
ForceNewPage = Vals
Size.Values = (
105.833333333333300000
1899.708333333333000000)
PreCaluculateBandHeight = Vals
KeepOnOnePage = Vals
BandType = rbDetail
voorwerp QRDBText1: TQRDBText
Linkerzijde = 18
Bovenkant = 12
Breedte = 44
Hoogte = 17
Frame.Color = clBlack
Frame.DrawTop = Vals
Frame.DrawBottom = Vals
Frame.DrawLeft = Vals
Frame.DrawRight = Vals
Size.Values = (
44.979166666666670000
47.625000000000000000
31.750000000000000000
116.416666666666700000)
De groepering = taLeftJustify
AlignToBand = Vals
AutoSize = Waar
AutoStretch = Vals
Kleur = clWhite
Dataset = Table1
DataField = „CustNo“
Transparant = Vals
WordWrap = Waar
FontSize = 10
eind
voorwerp QRDBText2: TQRDBText
Linkerzijde = 104
Bovenkant = 12
Breedte = 56
Hoogte = 17
Frame.Color = clBlack
Frame.DrawTop = Vals
Frame.DrawBottom = Vals
Frame.DrawLeft = Vals
Frame.DrawRight = Vals
Size.Values = (
44.979166666666670000
275.166666666666700000
31.750000000000000000
148.166666666666700000)
De groepering = taLeftJustify
AlignToBand = Vals
AutoSize = Waar
AutoStretch = Vals
Kleur = clWhite
Dataset = Table1
DataField = „Bedrijf“
Transparant = Vals
WordWrap = Waar
FontSize = 10
eind
voorwerp QRDBText3: TQRDBText
Linkerzijde = 454
Bovenkant = 11
Breedte = 24
Hoogte = 17
Frame.Color = clBlack
Frame.DrawTop = Vals
Frame.DrawBottom = Vals
Frame.DrawLeft = Vals
Frame.DrawRight = Vals
Size.Values = (
44.979166666666670000
1201.208333333333000000
29.104166666666670000
63.500000000000000000)
De groepering = taLeftJustify
AlignToBand = Vals
AutoSize = Waar
AutoStretch = Vals
Kleur = clWhite
Dataset = Table1
DataField = „Stad“
Transparant = Vals
WordWrap = Waar
FontSize = 10
eind
eind
eind
voorwerp Button1: TButton
Linkerzijde = 10
Bovenkant = 12
Breedte = 75
Hoogte = 25
Titel = „Button1“
TabOrder = 1
OnClick = Button1Click
eind
voorwerp Table1: TTable
Actief = Waar
DatabaseName = „DBDEMOS“
TableName = „customer.db“
Linkerzijde = 228
Bovenkant = 120
eind
eind
|