home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Quickrpt / Qr3 / image.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  1KB  |  51 lines
  1. { :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2.   :: QuickReport 3.0 for Delphi 3.0/4.0/5.0                  ::
  3.   ::                                                         ::
  4.   :: Simple report with graphics                             ::
  5.   ::                                                         ::
  6.   :: Copyright (c) 1995-1999 QuSoft AS                       ::
  7.   :: All Rights Reserved                                     ::
  8.   ::                                                         ::
  9.   :: web: http://www.qusoft.com  fax: +47 22 41 74 91        ::
  10.   ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: }
  11. unit image;
  12.  
  13. interface
  14.  
  15. uses
  16.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  17.   Qrctrls, QuickRpt, Db, DBTables, ExtCtrls;
  18.  
  19. type
  20.   TfrmImageRpt = class(TForm)
  21.     QuickRep1: TQuickRep;
  22.     tbBio: TTable;
  23.     DetailBand1: TQRBand;
  24.     tbBioSpeciesNo: TFloatField;
  25.     tbBioCategory: TStringField;
  26.     tbBioCommon_Name: TStringField;
  27.     tbBioSpeciesName: TStringField;
  28.     tbBioLengthcm: TFloatField;
  29.     tbBioLength_In: TFloatField;
  30.     tbBioNotes: TMemoField;
  31.     tbBioGraphic: TGraphicField;
  32.     QRDBText1: TQRDBText;
  33.     QRDBImage1: TQRDBImage;
  34.     ColumnHeaderBand1: TQRBand;
  35.     QRLabel1: TQRLabel;
  36.     QRLabel2: TQRLabel;
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  42.  
  43. var
  44.   frmImageRpt: TfrmImageRpt;
  45.  
  46. implementation
  47.  
  48. {$R *.DFM}
  49.  
  50. end.
  51.