jednostka Unit1;
interfejs
uses
Windows, Wiadomość, SysUtils, Wariant, Klasa, Grafika, Kontrola, Forma,
Dialog, StdCtrls, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;
typ
TForm1 = klasa (TForm)
Table1: TTable;
QuickRep1: TQuickRep;
QRBand2: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
Button1: TButton;
procedura Button1Click (Nadawca: TObject);
procedura QRBand2BeforePrint (Nadawca: TQRCustomBand; var PrintBand: Boolowski);
procedura QRBand2AfterPrint (Nadawca: TQRCustomBand; BandPrinted: Boolowski);
intymny
{Intymny deklaracja}
społeczeństwo
{Jawny deklaracja}
końcówka;
var
Form1: TForm1;
i: Integer;
urzeczywistnienie
{$R *.dfm}
procedura TForm1.Button1Click (Nadawca: TObject);
zaczynać
i: = (0);
QuickRep1.Preview;
końcówka;
procedura TForm1.QRBand2AfterPrint (Nadawca: TQRCustomBand; BandPrinted: Boolowski);
zaczynać
jeżeli i mod 5 = (0) wtedy
QuickRep1.NewPage;
końcówka;
procedura TForm1.QRBand2BeforePrint (Nadawca: TQRCustomBand; var PrintBand: Boolowski);
zaczynać
Inc (i);
końcówka;
końcówka.
the forma
przedmiot Form1: TForm1
Lewica = 245
Wierzchołek = 92
Podpis = "Form1"
ClientHeight = 464
ClientWidth = 854
Kolor = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = "Tahoma"
Font.Style = []
OldCreateOrder = Fałszywy
Ważyć = Fałszywy
PixelsPerInch = 96
TextHeight = 13
przedmiot QuickRep1: TQuickRep
Lewica = 76
Wierzchołek = 54
Szerokość = 794
Wzrost = 1123
Frame.Color = clBlack
Frame.DrawTop = Fałszywy
Frame.DrawBottom = Fałszywy
Frame.DrawLeft = Fałszywy
Frame.DrawRight = Fałszywy
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)
Opcja = [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 = Samochód
PrinterSettings.Duplex = Fałszywy
PrinterSettings.FirstPage = (0)
PrinterSettings.LastPage = (0)
PrinterSettings.UseStandardprinter = Fałszywy
PrinterSettings.UseCustomBinCode = Fałszywy
PrinterSettings.CustomBinCode = (0)
PrinterSettings.ExtendedDuplex = (0)
PrinterSettings.UseCustomPaperCode = Fałszywy
PrinterSettings.CustomPaperCode = (0)
PrinterSettings.PrintMetaFile = Fałszywy
PrinterSettings.PrintQuality = (0)
PrinterSettings.Collate = (0)
PrinterSettings.ColorOption = (0)
PrintIfEmpty = Prawdziwy
SnapToGrid = Prawdziwy
Jednostka = MM
Zoom = 100
PrevFormStyle = fsNormal
PreviewInitialState = wsNormal
PrevInitialZoom = qrZoomToFit
przedmiot QRBand2: TQRBand
Lewica = 38
Wierzchołek = 38
Szerokość = 718
Wzrost = 40
Frame.Color = clBlack
Frame.DrawTop = Fałszywy
Frame.DrawBottom = Fałszywy
Frame.DrawLeft = Fałszywy
Frame.DrawRight = Fałszywy
AfterPrint = QRBand2AfterPrint
AlignToBottom = Fałszywy
BeforePrint = QRBand2BeforePrint
Kolor = clWhite
TransparentBand = Fałszywy
ForceNewColumn = Fałszywy
ForceNewPage = Fałszywy
Size.Values = (
105.833333333333300000
1899.708333333333000000)
PreCaluculateBandHeight = Fałszywy
KeepOnOnePage = Fałszywy
RbDetail = rbDetail
przedmiot QRDBText1: TQRDBText
Lewica = 18
Wierzchołek = 12
Szerokość = 44
Wzrost = 17
Frame.Color = clBlack
Frame.DrawTop = Fałszywy
Frame.DrawBottom = Fałszywy
Frame.DrawLeft = Fałszywy
Frame.DrawRight = Fałszywy
Size.Values = (
44.979166666666670000
47.625000000000000000
31.750000000000000000
116.416666666666700000)
Wyrównanie = taLeftJustify
AlignToBand = Fałszywy
AutoSize = Prawdziwy
AutoStretch = Fałszywy
Kolor = clWhite
DataSet = Table1
DataField = "CustNo"
Przejrzysty = Fałszywy
WordWrap = Prawdziwy
FontSize = 10
końcówka
przedmiot QRDBText2: TQRDBText
Lewica = 104
Wierzchołek = 12
Szerokość = 56
Wzrost = 17
Frame.Color = clBlack
Frame.DrawTop = Fałszywy
Frame.DrawBottom = Fałszywy
Frame.DrawLeft = Fałszywy
Frame.DrawRight = Fałszywy
Size.Values = (
44.979166666666670000
275.166666666666700000
31.750000000000000000
148.166666666666700000)
Wyrównanie = taLeftJustify
AlignToBand = Fałszywy
AutoSize = Prawdziwy
AutoStretch = Fałszywy
Kolor = clWhite
DataSet = Table1
DataField = "Firma"
Przejrzysty = Fałszywy
WordWrap = Prawdziwy
FontSize = 10
końcówka
przedmiot QRDBText3: TQRDBText
Lewica = 454
Wierzchołek = 11
Szerokość = 24
Wzrost = 17
Frame.Color = clBlack
Frame.DrawTop = Fałszywy
Frame.DrawBottom = Fałszywy
Frame.DrawLeft = Fałszywy
Frame.DrawRight = Fałszywy
Size.Values = (
44.979166666666670000
1201.208333333333000000
29.104166666666670000
63.500000000000000000)
Wyrównanie = taLeftJustify
AlignToBand = Fałszywy
AutoSize = Prawdziwy
AutoStretch = Fałszywy
Kolor = clWhite
DataSet = Table1
DataField = "Miasto"
Przejrzysty = Fałszywy
WordWrap = Prawdziwy
FontSize = 10
końcówka
końcówka
końcówka
przedmiot Button1: TButton
Lewica = 10
Wierzchołek = 12
Szerokość = 75
Wzrost = 25
Podpis = "Button1"
TabOrder = (1)
OnClick = Button1Click
końcówka
przedmiot Table1: TTable
Aktywny = Prawdziwy
DatabaseName = "DBDEMOS"
TableName = "customer.db"
Lewica = 228
Wierzchołek = 120
końcówka
końcówka
|