printspfbunit.pas

安装完成后

unit PrintspfbUnit;

interface

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

type
  TPrintspfbForm = class(TForm)
    Query_data: TQuery;
    Query_depot: TQuery;
    DataSource1: TDataSource;
    QuickRep_spfb: TQuickRep;
    DetailBand: TQRBand;
    QRExpr3: TQRExpr;
    QRExpr4: TQRExpr;
    QRExpr5: TQRExpr;
    QRExpr10: TQRExpr;
    PageFooterBand1: TQRBand;
    QRExpr11: TQRExpr;
    TitleBand1: TQRBand;
    QRSysData1: TQRSysData;
    QRL_coname: TQRLabel;
    QRExpr13: TQRExpr;
    QRL_printdate: TQRLabel;
    ColumnHeaderBand1: TQRBand;
    QRLabel4: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel10: TQRLabel;
    QRSubDetail1: TQRSubDetail;
    QRExpr12: TQRExpr;
    QRExpr14: TQRExpr;
    QRExpr1: TQRExpr;
    QRExpr2: TQRExpr;
    procedure FormCreate(Sender: TObject);
    procedure QuickRep_spfbPreview(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PrintspfbForm: TPrintspfbForm;

implementation

uses MainUnit, FunctionUnit, PrintBassUnit;

{$R *.dfm}

procedure TPrintspfbForm.FormCreate(Sender: TObject);
begin
  qrl_coname.Caption := S_name;
  Query_data.DatabaseName := 'CPXSGL';
  Query_depot.DatabaseName := 'CPXSGL';
  with query_data do
  begin
    close;
    sql.Clear;
    sql.Text := 'SELECT * FROM goods ORDER BY NAME';
  end;
  with query_depot do
  begin
    close;
    sql.Clear;
    SQL.Text := 'SELECT Depot.NAME, Storagerecord.NUMBER, Storagerecord.PRICE,'
      + ' SUM(  Storagerecord.NUMBER * Storagerecord.PRICE  ) allprice'
      + ' FROM Storagerecord INNER JOIN Depot'
      + ' ON  (Storagerecord.DEPOTID = Depot.ID)'
      + ' WHERE GOODSID=:"ID"'
      + ' GROUP BY Depot.NAME, Storagerecord.NUMBER, Storagerecord.PRICE';
  end;

  QRL_printdate.Caption := '统计日期：' + formatdatetime('yyyy-mm-dd', now);
  try
    Query_data.open;
    query_depot.open;
  except
    messagedlg(Errormsg0001 + '0000', mtError, [mbok], 0);
    query_depot.close;
    Query_data.close;
    self.Close;
  end;
end;

procedure TPrintspfbForm.QuickRep_spfbPreview(Sender: TObject);
begin
  with TprintBassForm.Create(Application) do
  begin
    QRP_print.QRPrinter := TQRPrinter(Sender);
    show;
  end;
end;

end.