Отчитане с quickreport 3 (чл), delphisite

процедура TForm1. Button1Click # 40; Подател: TObject # 41; ;

На този етап трябва да се направят няколко забележки. Този тест програма TQuickRep компонент се намира на основната форма, и, както можете да видите, че не изглежда много добре. В една реална програма, никога няма да покаже формата, съдържаща TQuickRep. Вместо да го използвате с различен начин.
За да направите това например е подобна на настоящата молба, още няколко стъпки: 1Sozdaem друга форма, като го наричат ФОРМА2 2Sdelaem нейната основна форма на проекта | Опции | Основна форма на бутон ФОРМА2 3Brosim на ФОРМА2 4Napishem код в събитието манипулатор на един бутон

процедура TForm2. Button1Click # 40; Подател: TObject # 41; ;

Form1. QuickRep1. преглед;

процедура TForm1. QRCompositeReport1AddReports # 40;

Подател: TObject # 41; ;

QRCompositeReport1. Доклади. Добави # 40; RepNewCust. доклад # 41; ;

QRCompositeReport1. Доклади. Добави # 40; RepOrderSummary. доклад # 41; ;

QRCompositeReport1. Доклади. Добави # 40; RepStockReorder. доклад # 41; ;

# 40; Ако не презират помощта на с изявление в кода си, а след това можете да напишете това

с QRCompositeReport1. Доклади направя

процедура TrepCusList. RepDetailBeforePrint

# 40; Подател: TQRCustomBand;

Var PrintBand: Булева # 41; ;

PrintBand: = CustTableTotalSales> 3000000;

Забележка: Когато PrintBand ЛЪЖА раздел детайл, стойностите за даден запис, не са включени в изчисляването на обобщаващи функции TQRExr като функция SUM. Това поведение се различава между версии QuickReport QuickReport 2 и 3.
Ако изключите раздела на Page Footer, резултатът ще бъде появата на празно пространство в долната част на всяка страница - раздел Подробности не използва това пространство, QuickReport не проверява размера на страницата всеки път. Така че, ако се промени Enabled собственост на Page Footer, а след това да се извика методът ResetPageFooterSize за актуализиране на информацията.

// използвате QRPrntr да получите TQRPreviewInterface

TQRCustomPreviewInterface = клас # 40; TQRPreviewInterface # 41;

функция Покажи # 40; AQRPrinter. TQRPrinter # 41;

функция ShowModal # 40; AQRPrinter. TQRPrinter # 41;

функционира TQRCustomPreviewInterface. шоу # 40;