Raportarea cu QuickReport 3 (art), delphisite

Procedura TForm1. Button1Click # 40; Expeditor: TObject # 41; ;

În acest moment ar trebui să facă câteva observații. Acest program de testare componentă TQuickRep este situat pe formularul principal, și, după cum se poate vedea nu arata foarte bine. Într-un program real, nu vă va arăta forma care conține TQuickRep. În schimb îl folosiți pe o altă formă.
Pentru a face acest exemplu este similar cu prezenta cerere, câteva etape: 1Sozdaem o altă formă, suna-l ca Form2 2Sdelaem forma principală a proiectului | Opțiuni | Formularul principal de la butonul Form2 3Brosim pe codul Form2 4Napishem în tratare a evenimentelor unui buton

Procedura TForm2. Button1Click # 40; Expeditor: TObject # 41; ;

Form1. QuickRep1. previzualizare;

Procedura TForm1. QRCompositeReport1AddReports # 40;

Expeditor: TObject # 41; ;

QRCompositeReport1. Rapoarte. adăuga # 40; RepNewCust. raport # 41; ;

QRCompositeReport1. Rapoarte. adăuga # 40; RepOrderSummary. raport # 41; ;

QRCompositeReport1. Rapoarte. adăuga # 40; RepStockReorder. raport # 41; ;

# 40; Dacă nu disprețuim folosind cu declarația în codul dvs., atunci puteți scrie acest lucru

cu QRCompositeReport1. Raporturi

Procedura TrepCusList. RepDetailBeforePrint

# 40; Expeditor: TQRCustomBand;

var PrintBand: Boolean # 41; ;

PrintBand: = CustTableTotalSales> 3000000;

Notă: Când PrintBand setat la False la secțiunea detaliu, valorile pentru o anumită înregistrare nu sunt incluse în calculul funcțiilor TQRExr agregate, cum ar fi funcția SUM. Acest comportament diferă între versiunile QuickReport QuickReport 2 și 3.
Dacă dezactivați secțiunea subsolul paginii, rezultatul va fi apariția de spațiu gol în partea de jos a fiecărei pagini - secțiunea Detaliu nu folosește acest spațiu, QuickReport nu verifică dimensiunea paginii de fiecare dată. Deci, dacă modificați proprietatea Activat subsolul paginii, apoi apel metoda ResetPageFooterSize pentru a actualiza informațiile.

// folosesc QRPrntr pentru a obține TQRPreviewInterface

TQRCustomPreviewInterface = class # 40; TQRPreviewInterface # 41;

funcţia Afișare # 40; AQRPrinter. TQRPrinter # 41;

funcţia ShowModal # 40; AQRPrinter. TQRPrinter # 41;

TQRCustomPreviewInterface funcționează. spectacol # 40;