urepform.pas

小型库存管理,希望有帮助,小型库存管理,希望有帮助

unit uRepForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, QuickRpt, DB, DBClient, QRCtrls, ADODB;

type
  TfrmRepForm = class(TForm)
    dsRep: TDataSource;
    QRep: TQuickRep;
    QRBand1: TQRBand;
    idtCompany: TQRLabel;
    idtTitle: TQRLabel;
    cdsRep: TADODataSet;
    procedure QRepPreview(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRepForm: TfrmRepForm;

implementation

{$R *.dfm}
uses FMDBU,uRepPreview ;

procedure TfrmRepForm.QRepPreview(Sender: TObject);
var
  myPreView : TfrmRepPreview ;
begin
  myPreView := TfrmRepPreview.Create(nil);
  with myPreView do
   begin
    Caption:= (QRep.Parent as TForm).Caption;
    QRPreview.QRPrinter:=QRep.QRPrinter;
    Show();
   end;
end;

end.