printlskcunit.pas

一个用delphi 开发的商场销售系统 涵盖很多功能

unit PrintlskcUnit;

interface

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

type
  TPrintlskcForm = class(TForm)
    QuickRep_LSKCCX: TQuickRep;
    TitleBand1: TQRBand;
    QRS_TITLE: TQRSysData;
    QRL_coname: TQRLabel;
    QRExpr13: TQRExpr;
    QRL_printdate: TQRLabel;
    SummaryBand1: TQRBand;
    QRExpr7: TQRExpr;
    QRBand1: TQRBand;
    QRE_price: TQRExpr;
    QRE_depotname: TQRExpr;
    QRE_goodsname: TQRExpr;
    QRE_goodstype: TQRExpr;
    QRE_unit: TQRExpr;
    QRE_number: TQRExpr;
    ColumnHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel2: TQRLabel;
    PageFooterBand1: TQRBand;
    QRExpr11: TQRExpr;
    Query_data: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure QuickRep_LSKCCXPreview(Sender: TObject);
    procedure Query_dataAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PrintlskcForm: TPrintlskcForm;

implementation

uses FunctionUnit, MainUnit, QuerylskccxUnit, PrintBassUnit;

{$R *.dfm}

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

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

procedure TPrintlskcForm.Query_dataAfterScroll(DataSet: TDataSet);
begin
  if qre_number.Value.dblResult < 0 then
  begin
    QRE_depotname.Font.Color := clred;
    qre_goodsname.Font.Color := clred;
    qre_goodstype.Font.Color := clred;
    QRE_unit.Font.Color := clred;
    qre_number.Font.Color := clred;
    qre_price.Font.Color := clred;
  end
  else
  begin
    QRE_depotname.Font.Color := clWindowText;
    qre_goodsname.Font.Color := clWindowText;
    qre_goodstype.Font.Color := clWindowText;
    QRE_unit.Font.Color := clWindowText;
    qre_number.Font.Color := clWindowText;
    qre_price.Font.Color := clWindowText;
  end;
end;

end.