print_spfb.pas

pos商场、超市管理系统

unit PRINT_SPFB;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DB, DBTables, QRCTRLS, QUICKRPT, ExtCtrls,QRPrntr,frmmain,myself;

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

var
  Frm_print_spfb: TFrm_print_spfb;

implementation

uses PRINT_TEMP;

{$R *.dfm}

procedure TFrm_print_spfb.FormCreate(Sender: TObject);
begin
   qrl_coname.Caption :=S_name;
   Query_data.DatabaseName :=HWSHOPDATA;
   Query_depot.DatabaseName :=HWSHOPDATA;
   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 TFrm_print_spfb.QuickRep_spfbPreview(Sender: TObject);
begin
   with Tfrm_print_temp.Create(Application) do
   begin
    	QRP_print.QRPrinter := TQRPrinter(Sender);
    	frm_print_temp.CurRep := QuickRep_spfb;
      show;
   end;

end;

end.