main.pas

FastReport 数据库字段动态打印

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, frxClass, DB, Grids, DBGrids, ADODB, frxDBSet, frxCross,
  DBTables, ExtCtrls, jpeg;

type
  TForm2 = class(TForm)
    btn1: TButton;
    frxCrossObject1: TfrxCrossObject;
    table1: TADOTable;
    pnl1: TPanel;
    lst1: TListBox;
    lbl1: TLabel;
    table1CustNo: TFloatField;
    table1Company: TWideStringField;
    table1Addr1: TWideStringField;
    table1Addr2: TWideStringField;
    table1City: TWideStringField;
    table1State: TWideStringField;
    table1Zip: TWideStringField;
    table1Country: TWideStringField;
    table1Phone: TWideStringField;
    table1FAX: TWideStringField;
    table1TaxRate: TFloatField;
    table1Contact: TWideStringField;
    table1LastInvoiceDate: TDateTimeField;
    frxReport1: TfrxReport;
    img1: TImage;
    lbl2: TLabel;
    lbl3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure frxReport1BeforePrint(c: TfrxReportComponent);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Crosssum : TfrxCrossView;
implementation

{$R *.dfm}

procedure TForm2.btn1Click(Sender: TObject);
begin
  frxReport1.showreport;
end;

procedure TForm2.frxReport1BeforePrint(c: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if c is TfrxCrossView then
  begin
    Cross := TfrxCrossView(c);
    Table1.First;
    i := 0;
    while not Table1.Eof do
    begin
      for j := 0 to lst1.Items.Count - 1 do
      begin
        if lst1.Selected[j] then
        Cross.AddValue([i], [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);
      end;
      Table1.Next;
      Inc(i);
    end;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  path : string;
  j : Integer;
begin
  for j:=0 to table1.FieldCount - 1 do
  begin
    lst1.Items.Add(table1.Fields[j].DisplayName);
  end;
  path := ExtractFilePath(Application.ExeName);
  path := path + 'reportdemo.mdb';
  table1.Close;
  table1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='''+path+''';Persist Security Info=True';
  table1.TableName := 'customer';
  table1.Open;
  end;

end.