printckunit.pas

简单的进销存系统,包含登陆等界面,内容丰富,各种技巧,适合初学者

unit PrintckUnit;

interface

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

type
  TPrintckForm = class(TForm)
    QuickRep_ckjhmx: TQuickRep;
    DetailBand1: TQRBand;
    QRE_goodsname: TQRExpr;
    QRE_type: TQRExpr;
    QRE_unit: TQRExpr;
    QRE_number: TQRExpr;
    QRE_JHDJ: TQRExpr;
    PageFooterBand1: TQRBand;
    QRExpr11: TQRExpr;
    TitleBand1: TQRBand;
    QRS_TITLE: TQRSysData;
    QRExpr13: TQRExpr;
    QRL_printdate: TQRLabel;
    ColumnHeaderBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRBand1: TQRBand;
    ADOQuery_DATA: TADOQuery;
    DataSource1: TDataSource;
    QRExpr1: TQRExpr;
    procedure FormCreate(Sender: TObject);
    procedure QuickRep_ckjhmxPreview(Sender: TObject);
    procedure Query_dataAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PrintckForm: TPrintckForm;

implementation

uses FunctionUnit, MainUnit, QueryDepotInputUnit, PrintBassUnit,DMUNIT,
  QueryDepotUnit;

{$R *.dfm}

procedure TPrintckForm.FormCreate(Sender: TObject);
begin
  //qrl_coname.Caption := S_name;
 QRL_printdate.Caption := '统计日期：' + formatdatetime('yyyy-mm-dd', QueryDepotForm.DTP_begin.DateTime)
    + ' 至 ' + formatdatetime('yyyy-mm-dd', QueryDepotForm.DTP_end.DateTime);
  if QueryDepotForm.CB_depot.Text = '' then
    QRS_TITLE.Text := QRS_TITLE.Text + '（所有）'
  else
    QRS_TITLE.Text := QRS_TITLE.Text + '（' + QueryDepotForm.CB_depot.Text + '）';
  with ADOquery_data do
  begin
      ADOQuery_DATA.Connection :=DM.ADOCon ;

    close;
    sql.Clear;
    sql.Text :=QueryDepotForm.ADOQuery_DATA.SQL.Text;
    try
      if not (SQL.Text = '') then Open;
    except
      messagedlg(Errormsg0001, mtError, [mbok], 0);
      close;
    end;
  end;


end;

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

procedure TPrintckForm.Query_dataAfterScroll(DataSet: TDataSet);
begin
  if QRE_number.Value.intResult < 0 then
  begin
    //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_jhdj.Font.Color := clred;
   // qre_price.Font.Color := clred;
    //QRE_memo.Font.Color := clred;
  end
  else
  begin
    //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_jhdj.Font.Color := clWindowText;
    //qre_price.Font.Color := clWindowText;
   // QRE_memo.Font.Color := clWindowText;
  end;
end;

end.