Board index » delphi » Migrating reports

Migrating reports

How should i do to migrate Quickreports reports from delphi 2.0 to
delphi 3.0?
Thanks

--
Guillermo Casta?o Acevedo <SIRIO>
refor...@latino.net.co
Systems and Computers Engineer

 

Re:Migrating reports


Attach here a text file to help you, maybe...

Quote
Guillermo Casta?o A wrote:
> How should i do to migrate Quickreports reports from delphi 2.0 to
> delphi 3.0?
> Thanks

> --
> Guillermo Casta?o Acevedo <SIRIO>
> refor...@latino.net.co
> Systems and Computers Engineer

[ qr1to2.txt 4K ]
// QuickReport 1.x to 2.x// ----------------------
// Technical Revision : 1.00 Date: 04 Feb 1998
//
// Prepared -by- T.K.Cham (VISION Software (M) Sdn. Bhd.)
//
// Pulau Pinang, Malaysia. South East Asia.
//
// Welcome to 16th CommonWealth Games, Kuala Lumpur Destination 98 (Sept 11-21)
//
// Website under-reconstruction :-
//
//   http://www.geocities.com/SiliconValley/Peaks/6789/index.htm
//

{ --------------- }
{ QuickReport 1.x }
{ --------------- }
{   9 components  }

//  QuickReport1: TQuickReport;
//  QRBand1: TQRBand;
//  QRGroup1: TQRGroup;
//  QRDetailLink1: TQRDetailLink;
//  QRDBCalc1: TQRDBCalc;
//  QRPreview1: TQRPreview;
//  QRLabel1: TQRLabel;
//  QRDBText1: TQRDBText;
//  QRSysData1: TQRSysData;
//  QRMemo1: TQRMemo;
//  QRShape1: TQRShape;

{ QuickReport 1.x to 2.x : Stage #1 -> Save All }

// Converting ? TQuickReport -> TQuickRep
//
// Incompatible ? TQRBand :
//   [ 1.x ] AfterPrint ( BandPrinted : Boolean );
//   [ 2.x ] AfterPrint( Sender : TQRCustomBand; BandPrinted : Boolean );
//   [ 1.x ] BeforePrint ( var PrintBand : Boolean );
//   [ 2.x ] BeforePrint( Sender : TQRCustomBand; var PrintBand : Boolean );
//
// Incompatible ? TQRDetailLink : ( as "Sub-Detail Band" in 2.x )
//   [ 1.x ] NeedData ( var MoreData : Boolean );
//   [ 2.x ] NeedData ( Sender : TObject; var MoreData : Boolean );
//
// ---------------
// Simple Solution
// ---------------
// Converting ?   Accept [ Yes ] for TQuickReport -> TQuickRep
// Incompatible ? Accept [ Yes ] to remove this problem, then
//                (1) remove or remark "procedure" declaration in
//                    "INTERFACE" section.
//                (2) delete content of procedure in
//                    "IMPLEMENTATION" section by "Edit and Cut".
//                (3) recreate the same event and "Edit and Paste"
//                    back the content of procedure within "begin..end".

{ QuickReport 1.x to 2.x : Stage #2 -> new events }

// TQRDetailLink :
//   AfterPrint ( Sender : TQRCustomBand; BandPrinted : Boolean );
//   BeforePrint ( Sender : TQRCustomBand; var PrintBand : Boolean );
//
// TQRGroup :
//   AfterPrint ( Sender : TQRCustomBand; BandPrinted : Boolean );
//   BeforePrint ( Sender : TQRCustomBand; var PrintBand : Boolean );
//
// TQRPreview :
//   PageAvailable ( Sender : TObject; PageNum : Integer );
//   ProgressUpdate ( Sender : TObject; Progress : Integer );
//
// TQuickRep : ( old component is known as "TQuickReport" in 1.x )
//   AfterPreview ( Sender : TObject );
//   Preview ( Sender : TObject );

{ QuickReport 1.x to 2.x : Stage #3 -> incompatible events }

// ------
// *note* please follows "SIMPLE SOLUTION" (1-3) to solve this issue
// ------

// TQuickRep : ( old component is known as "TQuickReport" in 1.x )
//   [ 1.x ] BeforePrint ( var PrintReport : Boolean );
//   [ 2.x ] BeforePrint ( Sender : TQuickRep; var PrintReport : Boolean );
//   [ 1.x ] EndPage ( Sender : TObject );
//   [ 2.x ] EndPage ( Sender : TQuickRep );
//   [ 1.x ] NeedData ( var MoreData : Boolean );
//   [ 2.x ] NeedData ( Sender : TObject; var MoreData : Boolean );
//   [ 1.x ] StartPage ( Sender : TObject );
//   [ 2.x ] StartPage ( Sender : TQuickRep );

{ QuickReport 1.x to 2.x : Stage #4 -> re-arrange components }

// TQRDBCalc (non-visual in 2.x) -> TQRExpr.Expression
// TQRDetailLink -> TQRSubDetail
//   *note* (1) Select all components in this band by using mouse
//              with "SHIFT" key and then "Edit and Cut".
//          (2) Delete this band, TQRDetailLink.
//          (3) Create a new band, TQRSubDetail.
//          (4) Click TQRSubDetail and then "Edit and Paste" back
//              all components which previously cut.

{ QuickReport 2.x : new components }

// TQRSubDetail
//
// TQRChildBand
//
// TQRExpr (previously known as TDBCalc and now is a non-visual component)
//   Print ( sender : TObject; var Value : String );
//
// TQRMemo
//
// TQRRichText
//
// TQRDBRichText
//
// TQRImage
//
// TQRDBImage
//
// TQRCompositeReport
//   AddReports ( Sender : TObject );
//   Finished ( Sender : TObject );
//
// TQRChart
//
// TQREditor
//   CloseReport ( Sender : TObject );
//   NewReport ( Sender : TObject );
//   OpenReport ( Sender : TObject );
//   SaveReport ( Sender : TObject );
//
// TQExprMemo
//

Other Threads