undetailreport.pas

本产品是开发LISTVIEW相关功能的可定制产品

{**********************************************************************
                 通用报表显示窗体单元
代码名称:   通用报表显示窗体单元
编译工具：  Delphi 6.0
作者：      邓普德
版权：      成都四方信息技术有限公司
定义时间：  2006-08-02
修改时间：  2006-08-06
**********************************************************************}

unit unDetailReport;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Qrctrls, QuickRpt, ExtCtrls,unCDefine, QRExport, TeeProcs, TeEngine,
  Chart, DbChart;

type
  TFrmReport = class(TForm)
    PrintReport: TQuickRep;
    QRBand2: TQRBand;
    FrmUnitName1: TQRLabel;
    FrmPrintDate1: TQRSysData;
    ChildBand1: TQRChildBand;
    FrmReportCaption: TQRLabel;
    FrmMemo: TQRMemo;
    QRBand5: TQRBand;
    FrmUnitName2: TQRLabel;
    FrmPrintDate2: TQRSysData;
    QRDetailDataBand: TQRBand;
    arbStatics: TQRBand;
    FrmReportCaption2: TQRLabel;
    xShape10: TQRShape;
    wShape10: TQRShape;
    fShape10: TQRShape;
    tShape10: TQRShape;
    sShape10: TQRShape;
    sShape9: TQRShape;
    sShape8: TQRShape;
    sShape7: TQRShape;
    sShape4: TQRShape;
    sShape3: TQRShape;
    sShape6: TQRShape;
    tShape9: TQRShape;
    tShape8: TQRShape;
    tShape7: TQRShape;
    tShape4: TQRShape;
    tShape3: TQRShape;
    tShape6: TQRShape;
    fShape9: TQRShape;
    fShape8: TQRShape;
    fShape7: TQRShape;
    fShape6: TQRShape;
    fShape5: TQRShape;
    fShape4: TQRShape;
    wShape9: TQRShape;
    wShape8: TQRShape;
    wShape7: TQRShape;
    wShape4: TQRShape;
    wShape3: TQRShape;
    wShape6: TQRShape;
    xShape9: TQRShape;
    xShape8: TQRShape;
    xShape7: TQRShape;
    xShape4: TQRShape;
    xShape3: TQRShape;
    xShape6: TQRShape;
    sShape5: TQRShape;
    tShape5: TQRShape;
    fShape3: TQRShape;
    wShape5: TQRShape;
    xShape5: TQRShape;
    sShape2: TQRShape;
    tShape2: TQRShape;
    fShape2: TQRShape;
    wShape2: TQRShape;
    xShape2: TQRShape;
    qrbPageNo: TQRBand;
    QRSysData2: TQRSysData;
    Shape10: TQRShape;
    Shape9: TQRShape;
    Shape8: TQRShape;
    Shape7: TQRShape;
    Shape4: TQRShape;
    Shape3: TQRShape;
    Shape6: TQRShape;
    Shape5: TQRShape;
    Shape2: TQRShape;
    QRDetailTitleBand: TQRBand;
    QSD9: TQRShape;
    QSD8: TQRShape;
    QSD7: TQRShape;
    QSD6: TQRShape;
    QSD4: TQRShape;
    QSD5: TQRShape;
    QSD3: TQRShape;
    QSD2: TQRShape;
    QSD1: TQRShape;
    QSD0: TQRShape;
    QSU9: TQRShape;
    QSU8: TQRShape;
    QSU7: TQRShape;
    QSU6: TQRShape;
    QSU5: TQRShape;
    QSU4: TQRShape;
    QSU3: TQRShape;
    QSU2: TQRShape;
    QSU1: TQRShape;
    QSU0: TQRShape;
    QRLb9: TQRLabel;
    QRLb8: TQRLabel;
    QRLb7: TQRLabel;
    QRLb6: TQRLabel;
    QRLb5: TQRLabel;
    QRLb4: TQRLabel;
    QRLb3: TQRLabel;
    QRLb2: TQRLabel;
    QRLb1: TQRLabel;
    QRLb0: TQRLabel;
    QRDBT0: TQRDBText;
    QRDBT1: TQRDBText;
    QRDBT2: TQRDBText;
    QRDBT3: TQRDBText;
    QRDBT4: TQRDBText;
    QRDBT5: TQRDBText;
    QRDBT6: TQRDBText;
    QRDBT7: TQRDBText;
    QRDBT8: TQRDBText;
    QRDBT9: TQRDBText;
    Shape1: TQRShape;
    Shape0: TQRShape;
    sShape1: TQRShape;
    sShape0: TQRShape;
    tShape1: TQRShape;
    tShape0: TQRShape;
    fShape1: TQRShape;
    fShape0: TQRShape;
    wShape1: TQRShape;
    wShape0: TQRShape;
    xShape1: TQRShape;
    xShape0: TQRShape;
    QRLabel2: TQRLabel;
    QRLabel1: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel0: TQRLabel;
    sQRLabel10: TQRLabel;
    sQRLabel9: TQRLabel;
    sQRLabel8: TQRLabel;
    sQRLabel7: TQRLabel;
    sQRLabel6: TQRLabel;
    sQRLabel5: TQRLabel;
    sQRLabel4: TQRLabel;
    sQRLabel3: TQRLabel;
    sQRLabel2: TQRLabel;
    sQRLabel1: TQRLabel;
    sQRLabel0: TQRLabel;
    rQRLabel10: TQRLabel;
    rQRLabel9: TQRLabel;
    rQRLabel8: TQRLabel;
    rQRLabel7: TQRLabel;
    rQRLabel6: TQRLabel;
    rQRLabel5: TQRLabel;
    rQRLabel4: TQRLabel;
    rQRLabel3: TQRLabel;
    rQRLabel2: TQRLabel;
    rQRLabel1: TQRLabel;
    rQRLabel0: TQRLabel;
    fQRLabel10: TQRLabel;
    fQRLabel9: TQRLabel;
    fQRLabel8: TQRLabel;
    fQRLabel7: TQRLabel;
    fQRLabel6: TQRLabel;
    fQRLabel5: TQRLabel;
    fQRLabel4: TQRLabel;
    fQRLabel3: TQRLabel;
    fQRLabel2: TQRLabel;
    fQRLabel1: TQRLabel;
    vQRLabel10: TQRLabel;
    vQRLabel9: TQRLabel;
    vQRLabel8: TQRLabel;
    vQRLabel7: TQRLabel;
    vQRLabel6: TQRLabel;
    vQRLabel5: TQRLabel;
    vQRLabel4: TQRLabel;
    vQRLabel3: TQRLabel;
    vQRLabel2: TQRLabel;
    vQRLabel1: TQRLabel;
    vQRLabel0: TQRLabel;
    QRShape1: TQRShape;
    qQRLabel10: TQRLabel;
    qQRLabel9: TQRLabel;
    qQRLabel8: TQRLabel;
    qQRLabel7: TQRLabel;
    qQRLabel6: TQRLabel;
    qQRLabel5: TQRLabel;
    qQRLabel4: TQRLabel;
    qQRLabel3: TQRLabel;
    qQRLabel2: TQRLabel;
    qQRLabel1: TQRLabel;
    qQRLabel0: TQRLabel;
    vShape10: TQRShape;
    vShape9: TQRShape;
    vShape8: TQRShape;
    vShape7: TQRShape;
    vShape6: TQRShape;
    vShape5: TQRShape;
    vShape4: TQRShape;
    vShape3: TQRShape;
    vShape2: TQRShape;
    vShape1: TQRShape;
    vShape0: TQRShape;
    vLabel10: TQRLabel;
    vLabel9: TQRLabel;
    vLabel8: TQRLabel;
    vLabel7: TQRLabel;
    vLabel6: TQRLabel;
    vLabel5: TQRLabel;
    vLabel4: TQRLabel;
    vLabel3: TQRLabel;
    vLabel2: TQRLabel;
    vLabel1: TQRLabel;
    vLabel0: TQRLabel;
    QRLabel11: TQRLabel;
    fQRLabel0: TQRLabel;
    zShape0: TQRShape;
    zShape1: TQRShape;
    zShape2: TQRShape;
    zShape3: TQRShape;
    zShape4: TQRShape;
    zShape5: TQRShape;
    zShape6: TQRShape;
    zShape7: TQRShape;
    zShape8: TQRShape;
    zShape9: TQRShape;
    zShape10: TQRShape;
    QRExcelFilter1: TQRExcelFilter;
    zLabel1: TQRLabel;
    zLabel2: TQRLabel;
    zLabel3: TQRLabel;
    zLabel4: TQRLabel;
    zLabel5: TQRLabel;
    zLabel6: TQRLabel;
    zLabel7: TQRLabel;
    zLabel8: TQRLabel;
    zLabel9: TQRLabel;
    zLabel10: TQRLabel;
    zLabel0: TQRLabel;
    QRHTMLFilter1: TQRHTMLFilter;
    QRRTFFilter1: TQRRTFFilter;
//    QRExcelFilter1: TQRExcelFilter;
    procedure FormHide(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormEndDock(Sender, Target: TObject; X, Y: Integer);
    procedure PrintReportAfterPreview(Sender: TObject);
  private
    { Private declarations }
  public
//    LockState,QRDBT1,QRDBT2,QRDBT3,QRDBT4,QRDBT5,QRDBT6,QRDBT7,QRDBT8:TQRDBText;
    procedure CreateDetail();
    //const l1,l2,l3,l4,l5:string
    { Public declarations }
  end;

var
  FrmReport: TFrmReport;

implementation

{$R *.DFM}

procedure TFrmReport.CreateDetail();
begin

end;

procedure TFrmReport.FormHide(Sender: TObject);
begin
//
end;

procedure TFrmReport.FormResize(Sender: TObject);
begin
//
end;

procedure TFrmReport.FormEndDock(Sender, Target: TObject; X, Y: Integer);
begin
//
end;

procedure TFrmReport.PrintReportAfterPreview(Sender: TObject);
begin
//
end;

end.