动态创建FastReport4报表2 - 由cxGrid动态创建报表

动态创建FastReport4报表2

这次在第一版的基础上增加了对数据集的支持

unit Unit1;

  

interface

  

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,

  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, cxStyles,

  cxCustomData, cxFilter, cxData, cxDataStorage, DB, cxDBData,

  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ComCtrls, frxClass,

  ToolWin, ADODB, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, frxDesgn,

  frxDBSet, frxDMPExport, frxDCtrl, frxBarcode;

  

type

  TForm1 = class(TForm)

    cxGrid1DBTableView1: TcxGridDBTableView;

    cxGrid1Level1: TcxGridLevel;

    cxGrid1: TcxGrid;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    ADOConnection1: TADOConnection;

    ToolBar1: TToolBar;

    ToolButton1: TToolButton;

    cxGrid1DBTableView1OID: TcxGridDBColumn;

    cxGrid1DBTableView1AID: TcxGridDBColumn;

    cxGrid1DBTableView1Name: TcxGridDBColumn;

    cxGrid1DBTableView1Code: TcxGridDBColumn;

    cxGrid1DBTableView1Description: TcxGridDBColumn;

    cxGrid1DBTableView1Address: TcxGridDBColumn;

    cxGrid1DBTableView1Logo: TcxGridDBColumn;

    cxGrid1DBTableView1Level: TcxGridDBColumn;

    cxGrid1DBTableView1CodeB: TcxGridDBColumn;

    frxDesigner1: TfrxDesigner;

    frxDBDataset1: TfrxDBDataset;

    frxDialogControls1: TfrxDialogControls;

    frxReport1: TfrxReport;

    frxBarCodeObject1: TfrxBarCodeObject;

    procedure ToolButton1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  

var

  Form1: TForm1;

  

implementation

  

{$R *.dfm}

  

procedure TForm1.ToolButton1Click(Sender: TObject);

var

  vPage: TfrxReportPage;

  vTitle: TfrxReportTitle;

  vHeader: TfrxPageHeader;

  vView: TfrxMemoView;

  vData: TfrxMasterData;

  vDataView: TfrxMemoView;

  vHeadView: TfrxMemoView;

  i: integer;

  vLeft: integer;

begin

  frxReport1.Clear;

  frxReport1.DataSets.Add(frxDBDataset1);

  vPage := TfrxReportPage.Create(frxReport1);

  vPage.CreateUniqueName;

  vPage.LeftMargin := 10;

  vPage.RightMargin := 10;

  vPage.TopMargin := 10;

  vPage.BottomMargin := 10;

  vTitle := TfrxReportTitle.Create(vPage);

  vTitle.CreateUniqueName;

  vTitle.Height := 48;

  vTitle.Top := 0;

  

  vView := TfrxMemoView.Create(vTitle);

  vView.CreateUniqueName;

  vView.Top := 0;

  vView.Left := 0;

  vView.Width := vPage.Width - Round(vPage.LeftMargin * 2.8) - Round(vPage.RightMargin* 2.8);

  vView.Height := vTitle.Height;

  vView.Text := 'This is a title';

  vView.Font.Size := 24;

  vView.Font.Style := vView.Font.Style + [fsBold];

  vView.HAlign := frxClass.haCenter;

  

  vHeader := TfrxPageHeader.Create(vPage);

  vHeader.CreateUniqueName;

  vHeader.Top := 0;

  vHeader.Height := 20;

  

  vData := TfrxMasterData.Create(vPage);

  vData.CreateUniqueName;

  vData.Height := 20;

  vData.Top := 0;

  vData.DataSet := frxDBDataset1;

  vLeft := 0;

  for i := 0 to cxGrid1DBTableView1.ColumnCount - 1 do

  begin

    vDataView := TfrxMemoView.Create(vData);

    vDataview.WordBreak := True;

    vDataView.Frame.Typ := [ftLeft, ftRight, ftTop, ftBottom];

    vDataView.VAlign := frxClass.vaCenter;

    vDataView.Top := 0;

    vDataView.Left := vLeft;

    vDataView.Height := vData.Height;

    vDataView.Font.Name := 'Tahoma';

    vDataView.Font.Size := 8;

  

    vHeadView := TfrxMemoView.Create(vHeader);

    vHeadView.CreateUniqueName;

    vHeadView.WordBreak := True;

    vHeadView.Frame.Typ := [ftLeft, ftRight, ftTop, ftBottom];

    vHeadView.VAlign := frxClass.vaCenter;

    vHeadView.Left := vLeft;

    vHeadView.Height := vData.Height;

    vHeadView.Font.Name := 'Tahoma';

    vHeadView.Font.Size := 8;

  

    vDataView.Width := cxGrid1DBTableView1.Columns[i].Width;

  

    vHeadView.Width :=cxGrid1DBTableView1.Columns[i].Width;

    vHeadView.Text := cxGrid1DBTableView1.Columns[i].Caption;

    vDataView.Text := Format('[frxDBDataset1."%s"]', [cxGrid1DBTableView1.Columns[i].DataBinding.FieldName]);

    vleft := vLeft + cxGrid1DBTableView1.Columns[i].Width;

  end;

  

//  frxReport1.PrepareReport();

  frxReport1.ShowReport();

//  frxReport1.DesignReport();

end;

  

  

  

end.