rbbform.pas

来自「一个物流公司的物流配送系统」· PAS 代码 · 共 76 行

unit rbbForm;

interface

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

type
  TFrmrbb = class(TForm)
    qr: TQuickRep;
    TitleBand1: TQRBand;
    DetailBand1: TQRBand;
    QRLabel1: TQRLabel;
    lhLabel: TQRLabel;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    rqLabel: TQRLabel;
    spmcLabel: TQRLabel;
    ggLabel: TQRLabel;
    kcLabel: TQRLabel;
    kczlLabel: TQRLabel;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    procedure qrNeedData(Sender: TObject; var MoreData: Boolean);
    procedure qrBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmrbb: TFrmrbb;

implementation

uses DataModule;

{$R *.dfm}

procedure TFrmrbb.qrNeedData(Sender: TObject; var MoreData: Boolean);
begin
 MoreData:=True;
 if DM.tempquery.Eof then
  MoreData:=False;
 lhLabel.Caption:=inttostr(DM.tempquery.RecNO);
 spmcLabel.Caption:=DM.tempquery.FieldByName('spmc').AsString;
 ggLabel.Caption:=DM.tempquery.FieldByName('gg').AsString;
 kcLabel.Caption:=DM.tempquery.FieldByName('kc').AsString;
 kczlLabel.Caption:=DM.tempquery.FieldByName('kczl').AsString;
 DM.tempquery.Next;

end;

procedure TFrmrbb.qrBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
DM.tempquery.First;
end;

end.