transfer_r.pas

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

unit Transfer_R;

interface

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

type
  TR_Transfer = class(TQuickRep)
    DetailBand1: TQRBand;
    TitleBand1: TQRBand;
    QRL_Title: TQRLabel;
    QRGroup1: TQRGroup;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    procedure TitleBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private

  public

  end;

var
  R_Transfer: TR_Transfer;

implementation

uses Table_DM, CommSmdljf, Comm;

{$R *.DFM}

procedure TR_Transfer.TitleBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
	QRL_Title.Caption := StationName+'变压器一览表';
    Dm_Table.V_Transfer.Refresh;
end;





procedure TR_Transfer.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
	P_OpenTable(Dm_Table.v_Transfer);
end;

end.