rptcjuserfm.pas

一个电力部门的催缴费用系统

unit RptCjUserFM;

interface

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

type
  TFM_RptCjUser = class(TForm)
    QRpt_CjUserList: TQuickRep;
    PageHeaderBand1: TQRBand;
    TitleBand1: TQRBand;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    QRShape1: TQRShape;
    QRImage2: TQRImage;
    QRLabel2: TQRLabel;
    qrlbl_Title: TQRLabel;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRBand1: TQRBand;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    QRSysData3: TQRSysData;
    QRLabel8: TQRLabel;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PreviewRpt(sSql:String);
  end;

var
  FM_RptCjUser: TFM_RptCjUser;

implementation
uses CommonDataDM;
{$R *.DFM}
procedure TFM_RptCjUser.PreviewRpt(sSql:String);
begin
  with DM_CommonData.Qr_RptCjUserList do
  begin
    Close;
    SQL.Text :=sSql;
    Prepare;
    Open;
  end;
  QRpt_CjUserList.Preview;
end;
end.