jm_htkc_rpt.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                   库存量一览表打印                    }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在地市pub库存量一览表模块里面调用。

*)
unit JM_HTKC_RPT;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls, Db, DBTables;

type
  TQuickRep_htkc = class(TQuickRep)
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRRichText1: TQRRichText;
    QRRichText2: TQRRichText;
    QRRichText3: TQRRichText;
    QRRichText4: TQRRichText;
    QRRichText5: TQRRichText;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    Qry_print: TQuery;
    procedure QuickRepNeedData(Sender: TObject; var MoreData: Boolean);
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private

  public

  end;

var
  QuickRep_htkc: TQuickRep_htkc;

implementation

{$R *.DFM}

procedure TQuickRep_htkc.QuickRepNeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  with Qry_Print do
  begin
    QRRichText1.Lines.Text:=FieldbyName('zh').AsString;
    QRRichText2.Lines.Text:=FieldbyName('tmc').AsString;
    if QRRichText2.Lines.Count=1 then
    begin
      QRRichText2.Height :=QRRichText1.Height;
      QRRichText2.Top :=QRRichText1.Top;
    end;
    if QRRichText2.Lines.Count>=2 then
    begin
      QRRichText2.Height :=27;
      QRRichText2.Top :=1;
    end;
    QRRichText3.Lines.Text:=FormatFloat('#,##0.00',FieldbyName('jj').AsFloat);
    QRRichText4.Lines.Text:=FormatFloat('#,##',FieldbyName('ts').AsFloat);
    QRRichText5.Lines.Text:=FieldbyName('type').AsString;
    MoreData:=not Eof;
    if not Eof then
      next;
  end;
end;

procedure TQuickRep_htkc.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  Qry_Print.First;
end;

end.