【delphi开源代码栏目提醒】:本文主要为网学会员提供dy4.pas,希望对需要dy4.pas网友有所帮助,学习一下!
unit dy4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, QuickRpt, StdCtrls, Buttons, QRCtrls;
type
TForm1 = class(TForm)
QuickRep1: TQuickRep;
Table1: TTable;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
BitBtn1: TBitBtn;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRExpr1: TQRExpr;
QRExpr2: TQRExpr;
QRBand1: TQRBand;
QRDBText9: TQRDBText;
QRLabel12: TQRLabel;
QRDBText10: TQRDBText;
QRLabel13: TQRLabel;
QRDBText11: TQRDBText;
QRLabel14: TQRLabel;
QRDBText12: TQRDBText;
QRLabel15: TQRLabel;
QRDBText13: TQRDBText;
QRLabel16: TQRLabel;
QRDBText14: TQRDBText;
QRLabel17: TQRLabel;
QRDBText15: TQRDBText;
QRLabel18: TQRLabel;
QRDBText16: TQRDBText;
QRLabel19: TQRLabel;
BitBtn2: TBitBtn;
QRShape1: TQRShape;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
QuickRep1.Preview;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
end.