home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 August
/
VPR9608A.BIN
/
del20try
/
install
/
data.z
/
BIOREP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-05-08
|
2KB
|
68 lines
{*************************************************}
{* QuickReport for Delphi *}
{* Demo Report BioRep *}
{* *}
{* Shows how to use memo fields and pictures *}
{* in reports *}
{*************************************************}
unit Biorep;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, DBCtrls, Quickrep, StdCtrls, ExtCtrls, DB, DBTables;
type
TBioform = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DetailBand: TQRBand;
QRDBText1: TQRDBText;
Biorep: TQuickReport;
Table1SpeciesNo: TFloatField;
Table1Category: TStringField;
Table1Common_Name: TStringField;
Table1SpeciesName: TStringField;
Table1Lengthcm: TFloatField;
Table1Length_In: TFloatField;
Table1Notes: TMemoField;
Table1Graphic: TGraphicField;
DBImage1: TDBImage;
QRDBText3: TQRDBText;
QRLabel1: TQRLabel;
QRDBText4: TQRDBText;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRDBText5: TQRDBText;
QRLabel4: TQRLabel;
TitleBand: TQRBand;
Image1: TImage;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRShape2: TQRShape;
QRLabel5: TQRLabel;
QRDBText2: TQRDBText;
QRBand1: TQRBand;
QRShape1: TQRShape;
QRBand2: TQRBand;
QRSysData1: TQRSysData;
QRDetailLink1: TQRDetailLink;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Bioform: TBioform;
implementation
{$R *.DFM}
end.