【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“QReport.pas”一文,供大家参考学习!
unit QReport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls, StdCtrls;
type
Treport = class(TForm)
QuickRep1: TQuickRep;
detailBand1: TQRBand;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape4: TQRShape;
QRLabel3: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel11: TQRLabel;
QRShape5: TQRShape;
QRShape6: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
avarea: TQRLabel;
sarea: TQRLabel;
Name: TQRLabel;
unusual: TQRLabel;
QRImage1: TQRImage;
QRLabel2: TQRLabel;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRShape9: TQRShape;
QRLabel4: TQRLabel;
LiverType: TQRLabel;
Label1: TLabel;
Label2: TLabel;
QRLabel5: TQRLabel;
QRLabel8: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
report: Treport;
implementation
uses ChildWin, datamodule;
{$R *.dfm}
end.