sy_ndfpjhzd_rpt.pas

来自「省级集邮品管理ERP」· PAS 代码 · 共 117 行

{*******************************************************}
{                                                       }
{                    年度分配计划打印                   }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{               编制：中软金马项目开发组                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级零枚票管理模块 计划管理部分的计特零枚年度分配计划制定、封片年度分配计划制定两个模块调用。
*)

unit SY_NDFPJHZD_RPT;

interface

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

type
  TNDFPJHZD_RPT = class(TQuickRep)
    TitleBand1: TQRBand;
    DetailBand1: TQRBand;
    QRLab: TQRLabel;
    QRLabel1: TQRLabel;
    QRShape11: TQRShape;
    QRLabel5: TQRLabel;
    QRShape1: TQRShape;
    QRSysData1: TQRSysData;
    QRLabel6: TQRLabel;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    PageFooterBand1: TQRBand;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRDBText10: TQRDBText;
    Qry_Print: TQuery;
    QRShape4: TQRShape;
    QRLabel2: TQRLabel;
    QRShape5: TQRShape;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel10: TQRLabel;
    QRRichText1: TQRRichText;
    QRRichText2: TQRRichText;
    QRLabel11: TQRLabel;
    procedure QuickRepNeedData(Sender: TObject; var MoreData: Boolean);
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
    DetailLines:Integer;

  public

  end;

var
  NDFPJHZD_RPT: TNDFPJHZD_RPT;

implementation

{$R *.DFM}

procedure TNDFPJHZD_RPT.QuickRepNeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  DetailBand1.Height :=25;
  if DetailLines<=35 then
  begin
    Inc(DetailLines);
    MoreData:=True;
  end;

  if not Qry_Print.Eof  then
  begin
    QRLabel10.Caption := Qry_Print.FieldByName('ROWNUM').AsString;
    QRRichText1.Lines.Text := Qry_Print.FieldByName('DWMC').AsString;
    QRLabel12.Caption := FormatFloat('#,##',Qry_Print.fieldbyname('JHFPZTS').AsFloat);
    QRRichText2.Lines.Text := Qry_Print.FieldByName('BZ').AsString;

   end;

  if MoreData and (Qry_Print.Eof) then
  begin
    QRLabel10.Caption := '';
    QRRichText1.Lines.Text := '';
    QRLabel12.Caption := '';
    QRRichText2.Lines.Text := '';
    if DetailLines=36 then
      MoreData:=False;
  end;

  if (not Qry_Print.Eof) then
  begin
    MoreData:= not Qry_Print.eof;
    Qry_Print.Next;
  end;
   if Detaillines=36 then
    DetailLines:=0;

end;

procedure TNDFPJHZD_RPT.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  Qry_Print.First;
  Detaillines:=0;

end;

end.