www.pudn.com > del6235577244.rar > phostu.pas

unit phostu; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls, QuickRpt, QRCtrls; 
 
type 
  TForm7 = class(TForm) 
    QuickRep1: TQuickRep; 
    QRSubDetail1: TQRSubDetail; 
    QRDBText1: TQRDBText; 
    QRDBText2: TQRDBText; 
    QRDBText3: TQRDBText; 
    QRDBText4: TQRDBText; 
    QRDBText5: TQRDBText; 
    QRDBText6: TQRDBText; 
    QRDBText7: TQRDBText; 
    QRDBText8: TQRDBText; 
    QRDBText10: TQRDBText; 
    QRDBText11: TQRDBText; 
    QRDBText12: TQRDBText; 
    QRLabel1: TQRLabel; 
    QRLabel2: TQRLabel; 
    QRLabel3: TQRLabel; 
    QRLabel4: TQRLabel; 
    QRLabel5: TQRLabel; 
    QRLabel6: TQRLabel; 
    QRLabel7: TQRLabel; 
    QRLabel8: TQRLabel; 
    QRLabel9: TQRLabel; 
    QRLabel10: TQRLabel; 
    QRLabel11: TQRLabel; 
    QRLabel12: TQRLabel; 
    QRLabel13: TQRLabel; 
    QRDBText9: TQRDBText; 
    QRLabel14: TQRLabel; 
    QRLabel15: TQRLabel; 
    QRDBText13: TQRDBText; 
    QRImage1: TQRImage; 
    QRDBImage1: TQRDBImage; 
    procedure FormShow(Sender: TObject); 
    procedure QRSubDetail1NeedData(Sender: TObject; var MoreData: Boolean); 
    procedure QRSubDetail1BeforePrint(Sender: TQRCustomBand; 
      var PrintBand: Boolean); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form7: TForm7; 
 
implementation 
uses main_un,da_un; 
{$R *.dfm} 
 
procedure TForm7.FormShow(Sender: TObject); 
begin 
QRImage1.Picture.LoadFromFile(da.temp.FieldValues['photo']); 
end; 
 
procedure TForm7.QRSubDetail1NeedData(Sender: TObject; 
  var MoreData: Boolean); 
begin 
QRImage1.Picture.LoadFromFile(da.temp.FieldValues['photo']); 
 
end; 
 
procedure TForm7.QRSubDetail1BeforePrint(Sender: TQRCustomBand; 
  var PrintBand: Boolean); 
begin 
QRImage1.Picture.LoadFromFile(da.temp.FieldValues['photo']); 
end; 
 
end.