print_ywyxsmx.pas

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

unit PRINT_YWYXSMX;

interface

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

type
  TFrm_print_ywyxsmx = class(TForm)
    QuickRep_ywyxsmx: TQuickRep;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    TitleBand1: TQRBand;
    QRS_TITLE: TQRSysData;
    ColumnHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    Query_DATA: TQuery;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRE_peoplename: TQRExpr;
    QRE_date: TQRExpr;
    QRE_depotname: TQRExpr;
    QRLabel2: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRE_goodsname: TQRExpr;
    QRE_type: TQRExpr;
    QRE_unit: TQRExpr;
    QRE_number: TQRExpr;
    QRE_selldj: TQRExpr;
    QRE_price: TQRExpr;
    QRE_memo: TQRExpr;
    QRL_coname: TQRLabel;
    QRExpr11: TQRExpr;
    QRLabel12: TQRLabel;
    QRBand1: TQRBand;
    QRExpr12: TQRExpr;
    QRExpr13: TQRExpr;
    QRL_printdate: TQRLabel;
    procedure FormCreate(Sender: TObject);
    procedure QuickRep_ywyxsmxPreview(Sender: TObject);
    procedure Query_DATAAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_print_ywyxsmx: TFrm_print_ywyxsmx;

implementation

uses  PRINT_TEMP;

{$R *.dfm}

procedure TFrm_print_ywyxsmx.FormCreate(Sender: TObject);
begin
  qrl_coname.Caption :=S_name;
    QRL_printdate.Caption :='统计日期：'+formatdatetime('yyyy-mm-dd',frm_main_query_ywyxsMX.DTP_begin.DateTime)
               +' 至 '+formatdatetime('yyyy-mm-dd',frm_main_query_ywyxsMX.DTP_end.DateTime);
    if frm_main_query_ywyxsMX.CB_ywy.Text='' then
      QRS_TITLE.Text :=QRS_TITLE.Text+'（所有）'
    else
      QRS_TITLE.Text :=QRS_TITLE.Text+'（'+frm_main_query_ywyxsMX.CB_ywy.Text +'）';
  with query_data do
  begin
     DatabaseName :=HWSHOPDATA;
     close;
     sql.Clear ;
     SQL.Text :=frm_main_query_ywyxsMX.Query_data.SQL.Text ;
     try
        Open ;
     except
        messagedlg(Errormsg0001+'0000',mtError,[mbok],0);
        close;
     end;
  end;
end;

procedure TFrm_print_ywyxsmx.QuickRep_ywyxsmxPreview(Sender: TObject);
begin
   with Tfrm_print_temp.Create(Application) do
   begin
    	QRP_print.QRPrinter := TQRPrinter(Sender);
    	frm_print_temp.CurRep := QuickRep_ywyxsmx;
      show;
   end;
end;

procedure TFrm_print_ywyxsmx.Query_DATAAfterScroll(DataSet: TDataSet);
begin
   if QRE_number.Value.intResult < 0 then
   begin
      QRE_peoplename.Font.Color :=clred;
      qre_date.Font.Color :=clred;
      qre_depotname.Font.Color :=clred;
      qre_goodsname.Font.Color :=clred;
      qre_type.Font.Color :=clred;
      QRE_unit.Font.Color :=clred;
      qre_number.Font.Color :=clred;
      QRE_selldj.Font.Color :=clred;
      qre_price.Font.Color :=clred;
      QRE_memo.Font.Color :=clred;
   end
   else
   begin
      QRE_peoplename.Font.Color :=clWindowText;
      qre_date.Font.Color :=clWindowText;
      qre_depotname.Font.Color :=clWindowText;
      qre_goodsname.Font.Color :=clWindowText;
      qre_type.Font.Color :=clWindowText;
      QRE_unit.Font.Color :=clWindowText;
      qre_number.Font.Color :=clWindowText;
      QRE_selldj.Font.Color :=clWindowText;
      qre_price.Font.Color :=clWindowText;
      QRE_memo.Font.Color :=clWindowText;
   end;
end;

end.