- •Приложение
- •Interface
- •Implementation
- •Interface
- •Img1: tImage;
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
- •Interface
- •Implementation
Implementation
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
edit1.Text := OpenDialog1.FileName;
end;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
edit2.Text := OpenDialog1.FileName;
end;
end;
procedure TForm7.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
edit3.Text := OpenDialog1.FileName;
end;
end;
procedure TForm7.Button4Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
edit4.Text := OpenDialog1.FileName;
end;
end;
procedure TForm7.Button5Click(Sender: TObject);
begin
Close;
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, ExtCtrls, QRCtrls, StdCtrls, jpeg;
type
TForm8 = class(TForm)
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
StaticText4: TStaticText;
Button1: TButton;
img1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject);
begin
close;
end;
end.
unit Unit9;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls;
type
TQuickReport9 = class(TQuickRep)
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
PageFooterBand1: TQRBand;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRSysData1: TQRSysData;
QRLabel5: TQRLabel;
private
public
end;
var
QuickReport9: TQuickReport9;
Implementation
{$R *.DFM}
end.
unit Unit10;
Interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls;
type
TQuickReport10 = class(TQuickRep)
ColumnHeaderBand1: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
DetailBand1: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
PageFooterBand1: TQRBand;
QRSysData1: TQRSysData;
QRLabel5: TQRLabel;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
private
public
end;
var
QuickReport10: TQuickReport10;
Implementation
{$R *.DFM}
end.
unit Unit11;
Interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls;
type
TQuickReport11 = class(TQuickRep)
ColumnHeaderBand1: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
DetailBand1: TQRBand;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
PageFooterBand1: TQRBand;
QRSysData1: TQRSysData;
QRLabel5: TQRLabel;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
SummaryBand1: TQRBand;
QRDBText4: TQRDBText;
QRLabel6: TQRLabel;
QRLabel10: TQRLabel;
private
public
end;
var
QuickReport11: TQuickReport11;