借用excel 设计 fasterport 表格,主要是考虑 转回excel 整齐好看

半年前,搞了个小项目.编写约140个 报表.头都大了.
先人工设计,半天对不齐线.转excel 或者word,表格不齐 好难看,

没办法,动手写了个小工具.借用EXCE设计 报表.
再转转回 excel 或者word 很工整.
目前效率提高许多了.

Rm太贵了.

思路

读EXCEL 的 表，
1，打印设置，边距，纸张大小，纸张摆放方向。
2、读各表格的信息，字体大小，字体颜色，背景颜色，表格位置，
是否为合并单元。表格线的颜色和显示，
是否有数据信息。

3根据以上信息，动态创建FASTERPORT 的报表，保存后编写脚本。

// pas文件
unit Unit1;
interface
uses
Printers, Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,Dialogs, ExcelXP, OleServer, StdCtrls, Grids,
Mask, RzEdit,frxDesgn,frxClass, frxExportRTF, DB, DBGrids, ADODB, frxDBSet;
type papgxy=record
l,t,r,b:Extended;
end;

type bktype =record      // 边框
line:boolean;
color:integer;
width:Extended;
end;

type txttpye =record
text:string;
fontcolor, fontSize:integer;
FontBold,FontItalic:boolean;
thi,tvi:integer;//文字排列位置
fontstyle, fontname:string;
fontun,fontstr:boolean;
bcolor:integer;
end;

type cell= record
 t,L,h,w :Extended  ;
 row,col,row2:integer;
 txt:txttpye;
 leftb,topb,Bottomb,Rightb:bktype;// 边框
 k:integer;
end;
type
  TForm1 = class(TForm)
    Button1: TButton;    Button2: TButton;
    Ea1: TExcelApplication;    Es1: TExcelWorksheet;
    fr1: TfrxReport;    Memo1: TMemo;
    Button4: TButton;    Button5: TButton;
    Ed2: TEdit;    Ed1: TEdit;
    Od1: TOpenDialog;     sd1: TSaveDialog;
    Button6: TButton;     ed3: TEdit;
    Button7: TButton;     Button8: TButton;
    Cs1: TComboBox;       Button9: TButton;
    fd2: TfrxDBDataset;   fd3: TfrxDBDataset;
    fd1: TfrxDBDataset; 
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var  Form1: TForm1;
implementation
{$R *.dfm}

function color_i(i:integer):tcolor;     //颜色转换
var c1: tcolor;
begin
case i of
1 : c1:=$000000;
2 : c1:=$FFFFFF;
3 : c1:=$0000FF;
4 : c1:=$00FF00;
5 : c1:=$FF0000;
6 : c1:=$00FFFF;
7 : c1:=$FF00FF;
8 : c1:=$FFFF00;
9 : c1:=$000080;
10 : c1:=$008000;
11 : c1:=$800000;
12 : c1:=$008080;
13 : c1:=$800080;
14 : c1:=$808000;
15 : c1:=$C0C0C0;
16 : c1:=$808080;
17 : c1:=$FF9999;
18 : c1:=$663399;
19 : c1:=$CCFFFF;
20 : c1:=$FFFFCC;
21 : c1:=$660066;
22 : c1:=$8080FF;
23 : c1:=$CC6600;
24 : c1:=$FFCCCC;
25 : c1:=$800000;
26 : c1:=$FF00FF;
27 : c1:=$00FFFF;
28 : c1:=$FFFF00;
29 : c1:=$800080;
30 : c1:=$000080;
31 : c1:=$808000;
32 : c1:=$FF0000;
33 : c1:=$FFCC00;
34 : c1:=$FFFFCC;
35 : c1:=$CCFFCC;
36 : c1:=$99FFFF;
37 : c1:=$FFCC99;
38 : c1:=$CC99FF;
39 : c1:=$FF99CC;
40 : c1:=$99CCFF;
41 : c1:=$FF6633;
42 : c1:=$CCCC33;
43 : c1:=$00CC99;
44 : c1:=$00CCFF;
45 : c1:=$0099FF;
46 : c1:=$0066FF;
47 : c1:=$996666;
48 : c1:=$969696;
49 : c1:=$663300;
50 : c1:=$669933;
51 : c1:=$003300;
52 : c1:=$003333;
53 : c1:=$003399;
54 : c1:=$663399;
55 : c1:=$993333;
56 : c1:=$333333;
 end;
  Result:=c1;
end;

function cd(i:Extended):Extended;
begin
 Result:=1.34*i;
end;

procedure papg_set(PageSet:Variant;P:Tfrxreportpage);
var a:integer;
begin
p.LeftMargin :=PageSet.LeftMargin/2.8348;
p.TopMargin  :=PageSet.topMargin/2.8348;
p.RightMargin :=PageSet.RightMargin/2.8348;
p.BottomMargin :=PageSet.BottomMargin/2.8348;

if PageSet.Orientation=2
 then p.Orientation:=poLandscape
 else p.Orientation:=poPortrait;
p.PaperSize:=PageSet.PaperSize;
end;


function cell_du(row,col:integer;o1:integer;row2:integer):cell;
var mm:cell;
ms :boolean;
fontsyle1:string;
r2,c2:integer;
begin
with form1.Es1 do
begin
mm.txt.text :=Cells.Item[row,col];          // 内容
mm.t        := Cells.Item[row,col].top;          //顶
mm.l        := cells.Item[row,col].left;          //左
mm.k:=0;
r2:= Cells.Item[row,col].MergeArea.Rows.Count;
mm.row2 :=R2;
if (o1>=1) and (col>=1) then
 mm.l:= cells.Item[row,col].left-cells.Item[row,2].left; //左

if (o1>=1) and (row>1)and (row>=row2) then
 mm.t:= cells.Item[row,col].top-cells.Item[row2,1].top; //顶
 ms:= cells.Item[row,col].MergeCells;   //检查是否为 合并单位
if ms then
begin
r2:= Cells.Item[row,col].MergeArea.Rows.Count;
c2:= Cells.Item[row,col].MergeArea.Columns.Count;
mm.h := Cells.Item[row+r2,col].top-Cells.Item[row,col].top;  //高度
mm.w := Cells.Item[row,col+c2].left-Cells.Item[row,col].left;//宽度
end else
begin
mm.h:= Cells.Item[row,col].height;      //高度
mm.w:= Cells.Item[row,col].width;       //宽度
end;
if o1=3 then
begin
mm.txt .FontBold := Cells.Item[row,col].font.Bold;
mm.txt .FontItalic:= Cells.Item[row,col].Font.Italic;
mm.txt .thi:=Cells.Item[row,col].HorizontalAlignment;
mm.txt .tvi:=Cells.Item[row,col].VerticalAlignment;

mm.txt.fontname := Cells.Item[row,col].font.name;      // 字名称
mm.txt.fontSize := Cells.Item[row,col].font.Size;      // 字大小
mm.txt.fontcolor:= Cells.Item[row,col].font.ColorIndex;// 字颜色
if mm.txt.fontcolor<=0 then  mm.txt.fontcolor :=1;
//mm.fontstyle:= cells.Item[row,col].FontStyle;      //字格式
mm.txt.bcolor:= Cells.Item[row,col].Interior.ColorIndex;// 底颜色

if  mm.txt.bcolor<=0 then  mm.txt.bcolor :=2;
//左1
If cells.Item[row,col].Borders[xlEdgeLeft].LineStyle = xlContinuous
     Then mm.k := 1 ;
// 右2
If cells.Item[row,col].Borders[xlEdgeRight].LineStyle = xlContinuous
    Then mm.k := mm.k + 2 ;
// 上4
If cells.Item[row,col].Borders[xlEdgeTop].LineStyle = xlContinuous
   Then mm.k := mm.k + 4 ;
//  '下8
If cells.Item[row,col].Borders[xlEdgeBottom].LineStyle = xlContinuous
 Then mm.k := mm.k + 8 ;
end;
 Result:=mm;
end;
end;

procedure txt_xie(j,i:integer;mm:cell);
var  e:TfrxMemoView; //text
begin
e:= TfrxMemoView.Create(form1.fr1.Pages[1]);
e.Left:=cd(mm.L);
e.top:=cd(mm.t);
e.Height:=cd(mm.h);
e.Width :=cd(mm.w);
e.Name  :='c'+ inttostr(j)+'r'+inttostr(i);
e.Text  :=mm.txt.text;//+' * '+  e.Name  ;
e.Font.Size :=mm.txt.fontSize ;
e.Font.Name :=mm.txt.fontname ;
e.Font.Color:= color_i(mm.txt.fontcolor);
e.Color := color_i(mm.txt.bcolor);
e.Frame.Typ:=[ftLeft,ftRight,ftTop,ftBottom];
end;

procedure txt2_xie(j,i:integer;mm:cell;e:TfrxMemoView);
begin
e.Left:=cd(mm.L);
e.top:=cd(mm.t);
e.Height:=cd(mm.h);
e.Width :=cd(mm.w);
e.Name  :=E.Parent.Name+inttostr(j)+'_'+inttostr(i);
e.Text  :=mm.txt.text ;//+' * '+  e.Name  ;
e.Font.Size :=mm.txt.fontSize ;
e.Font.Name :=mm.txt.fontname ;
e.Font.Style :=[];
if mm.txt.FontBold
 then  e.Font.Style:= [fsBold];
if mm.txt.FontItalic
 then  e.Font.Style:=e.Font.Style + [fsItalic];

 case mm.txt.tvi of  //垂直排版
-4108:e.VAlign:=vaCenter;
-4107:e.VAlign:=vaBottom ;
else
e.VAlign:=vatop ;
 end;

case mm.txt.thi of  //水平排版
-4108:e.HAlign := haCenter;
-4152:e.HAlign := haRight;
1    :e.HAlign := haRight;
else
e.HAlign := haLeft;
 end;
e.Font.Color:=  color_i(mm.txt.fontcolor);        //字颜色
e.Color := color_i(mm.txt.bcolor);          //背景颜色

case mm.k of
1:e.Frame.Typ:=[  ftLeft  ];
2:e.Frame.Typ:=[  ftRight  ];
3:e.Frame.Typ:=[  ftLeft,ftRight  ];
4:e.Frame.Typ:=[  ftTop  ];
5:e.Frame.Typ:=[  ftLeft,ftTop  ];
6:e.Frame.Typ:=[  ftRight,ftTop  ];
7:e.Frame.Typ:=[  ftLeft,ftRight,ftTop  ];
8:e.Frame.Typ:=[  ftBottom  ];
9:e.Frame.Typ:=[  ftLeft,ftBottom  ];
10:e.Frame.Typ:=[  ftRight,ftBottom  ];
11:e.Frame.Typ:=[  ftLeft,ftRight,ftBottom  ];
12:e.Frame.Typ:=[  ftTop,ftBottom  ];
13:e.Frame.Typ:=[  ftLeft,ftTop,ftBottom  ];
14:e.Frame.Typ:=[  ftRight,ftTop,ftBottom  ];
15:e.Frame.Typ:=[  ftLeft,ftRight,ftTop,ftBottom  ];
else
e.Frame.Typ :=[];
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
fr1.DesignPreviewPage
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ed1.Text :=ExtractFilePath(ParamStr(0))+'模板.xls';
ed2.text:=ExtractFilePath(ParamStr(0));
ed3.Text :='ont.fr3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if od1.Execute then
begin
  ed1.Text := od1.FileName ;
  Button8.Click ;
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if sd1.Execute then
begin
ed2.Text:=ExtractFilePath(sd1.FileName) ;
if pos('.fr3',sd1.FileName)>0
 then
   ed3.Text :=ExtractFileName(sd1.FileName)
 else
   ed3.Text :=ExtractFileName(sd1.FileName)+'.fr3';
end;
end;

{ vba
XlPaperSize 可为以下 XlPaperSize 常量之一。
xlPaper11x17. 11 in. x 17 in.
xlPaperA4. A4 (210 mm x 297 mm)
xlPaperA5. A5 (148 mm x 210 mm)
xlPaperB5. A5 (148 mm x 210 mm)
xlPaperDsheet. D size sheet
xlPaperEnvelope11. Envelope #11 (4-1/2 in. x 10-3/8 in.)
xlPaperEnvelope14. Envelope #14 (5 in. x 11-1/2 in.)
xlPaperEnvelopeB4. Envelope B4 (250 mm x 353 mm)
xlPaperEnvelopeB6. Envelope B6 (176 mm x 125 mm)
xlPaperEnvelopeC4. Envelope C4 (229 mm x 324 mm)
xlPaperEnvelopeC6. Envelope C6 (114 mm x 162 mm)
xlPaperEnvelopeDL. Envelope DL (110 mm x 220 mm)
xlPaperEnvelopeMonarch. Envelope Monarch (3-7/8 in. x 7-1/2 in.)
xlPaperEsheet. E size sheet
xlPaperFanfoldLegalGerman. German Legal Fanfold (8-1/2 in. x 13 in.)
xlPaperFanfoldUS. U.S. Standard Fanfold (14-7/8 in. x 11 in.)
xlPaperLedger. Ledger (17 in. x 11 in.)
xlPaperLetter. Letter (8-1/2 in. x 11 in.)
xlPaperNote. Note (8-1/2 in. x 11 in.)
xlPaperStatement. Statement (5-1/2 in. x 8-1/2 in.)
xlPaperUser. 用户自定义
xlPaper10x14. 25.40 cm. x 35.56 cm.
xlPaperA3. A3 (297 mm x 420 mm)
xlPaperA4Small. A4 Small (210 mm x 297 mm)
xlPaperB4. B4 (250 mm x 354 mm)
xlPaperCsheet. C size sheet
xlPaperEnvelope10. Envelope #10 (4-1/8 in. x 9-1/2 in.)
xlPaperEnvelope12. Envelope #12 (4-1/2 in. x 11 in.)
xlPaperEnvelope9. Envelope #9 (3-7/8 in. x 8-7/8 in.)
xlPaperEnvelopeB5. Envelope B5 (176 mm x 250 mm)
xlPaperEnvelopeC3. Envelope C3 (324 mm x 458 mm)
xlPaperEnvelopeC5. Envelope C5 (162 mm x 229 mm)
xlPaperEnvelopeC65. Envelope C65 (114 mm x 229 mm)
xlPaperEnvelopeItaly. Envelope (110 mm x 230 mm)
xlPaperEnvelopePersonal. Envelope (3-5/8 in. x 6-1/2 in.)
xlPaperExecutive. Executive (7-1/2 in. x 10-1/2 in.)
xlPaperFanfoldStdGerman. German Legal Fanfold (8-1/2 in. x 13 in.)
xlPaperFolio. Folio (8-1/2 in. x 13 in.)
xlPaperLegal. Legal (8-1/2 in. x 14 in.)
xlPaperLetterSmall. Letter Small (8-1/2 in. x 11 in.)
xlPaperQuarto. Quarto (215 mm x 275 mm)
xlPaperTabloid. Tabloid (11 in. x 17 in.)
}
procedure TForm1.Button8Click(Sender: TObject);
var b,a:string;
i,j,k,n:integer;
begin
ea1.Connect;
ea1.Workbooks.Open(ed1.Text ,null,null,null,null,
    null,null,null,null,null,null,null,null,null,null,0);

cs1.Items.Clear ;

k:=ea1.Workbooks[ExtractFileName(ed1.Text)].Sheets.Count;
for j:=1 to k do
begin
es1.ConnectTo(ea1.Workbooks[ExtractFileName(ed1.Text)].Worksheets[j] as ExcelWorksheet);
b:=es1.Name;
cs1.Items.Add(b);
end;
cs1.Text :=cs1.Items.Strings[0];
Button9.Enabled:=true;
end;

//
procedure TForm1.Button9Click(Sender: TObject);
var
Designer:TfrxDesignerForm;
PageSet:OLEVariant;
i,j,k :integer;
frtemp: TfrxReport;
mm1,mm:cell;
r11,c11,r1:integer;
row,col:integer;
e:TfrxMemoView; //text
pt:TfrxReportTitle;
pf:TfrxReportSummary;
ht:TfrxPageHeader;
hf:TfrxPageFooter;
md:TfrxMasterData;
Mxd:TfrxDetailData;
sd:TfrxSubdetailData;
 P:Tfrxreportpage;
tempage:TfrxReportPage;
kk:integer;
begin
frtemp:=TfrxReport.Create(form1);

// frtemp.DataSets.Add(fd1);
// frtemp.DataSets.Add(fd2);
// frtemp.DataSets.Add(fd3);
tempage:=TfrxReportPage.Create(frtemp);
tempage.NAME:='page1';
P:=Tfrxreportpage(tempage);
es1.ConnectTo(ea1.Workbooks
[ExtractFileName(ed1.Text)].Worksheets[cs1.text ] as ExcelWorksheet);

PAGESET:=ES1.PageSetup;
papg_set(PAGESET,p);
PAGESET:=UnAssigned;
col :=es1.UsedRange[1].Columns.Count ; //列
row :=es1.UsedRange[1].Rows.Count;     //行
 for k:=1 to row do
begin
  r1:= es1.Cells.Item[k,1].MergeArea.Row;//s.Count;
 if r1=k then
 begin
 mm:= cell_du(k,1,0,0);
 if mm.txt.text ='表头'
  then   begin
  pt:= TfrxReportTitle.Create(tempage);
  pt.Height:=cd(mm.h);
  pt.Name  :='pt';//'ban'+inttostr(k);
  for i:=k to k+mm.row2-1 do  //行
  for j:=2 to col do        //列
  begin
    r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
    c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
    if (r11=I) and (c11=J) then
    begin
    mm1:= cell_du(i,j,3,k);
    e:= TfrxMemoView.Create(pt);
    txt2_xie(i,j,mm1,e);
    end;
  end;
  end;

 if mm.txt.text ='页头'
 then begin
  ht:= TfrxPageHeader.Create(tempage);
  ht.Height:=cd(mm.h);
  ht.Name  :='HT';
  for i:=k to k+mm.row2-1 do  //行
  for j:=2 to col do        //列
  begin
  r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
  c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
  if (r11=I) and (c11=J) then
   begin
    mm1:= cell_du(i,j,3,k);
    e:= TfrxMemoView.Create(HT);
    txt2_xie(i,j,mm1,e);
    end;
  end;
 end;
 if mm.txt.text ='页脚'
 then begin
  hf:=TfrxPageFooter.Create(tempage);
  hf.Height:=cd(mm.h);
  hf.Name  :='HF';
  for i:=k to k+mm.row2-1 do  //行
  for j:=2 to col do        //列
  begin
  r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
  c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
  if (r11=I) and (c11=J) then
   begin
    mm1:= cell_du(i,j,3,k);
    e:= TfrxMemoView.Create(HF);
    txt2_xie(i,j,mm1,e);
    end;
  end;
  end;
 TRY
 if mm.txt.text ='主数据'
then  begin
  md:=TfrxMasterData.Create(tempage);
  md.Height:=cd(mm.h);
  frtemp.DataSets.Add(fd1);
  md.Name  :='MD';
  md.DataSet:=fd1;
  MD.TOP:=MM.T;
  //md.DataSetName :='mda';
memo1.Lines.Text :=  tempage.DataSetName;
  //.DataSet.
  for i:=k to k+mm.row2-1 do  //行
  for j:=2 to col do        //列
  begin
  r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
  c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
  if (r11=I) and (c11=J) then
   begin
    mm1:= cell_du(i,j,3,k);
    e:= TfrxMemoView.Create(MD);
    txt2_xie(i,j,mm1,e);
    end;
  end;
  end;
 if mm.txt.text ='明细数据'
  then  begin
  Mxd:=TfrxDetailData.Create(tempage);
  Mxd.Height:=cd(mm.h);
  Mxd.Name  :='MXD';
  frtemp.DataSets.Add(fd2);
  MXD.TOP:=MM.T;
  mxd.DataSet:=fd2;
  for i:=k to k+mm.row2-1 do  //行
  for j:=2 to col do        //列
  begin
  r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
  c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
  if (r11=I) and (c11=J) then
   begin
    mm1:= cell_du(i,j,3,k);
    e:= TfrxMemoView.Create(MXD);
    txt2_xie(i,j,mm1,e);
    end;
  end;
  end;

 if mm.txt.text ='子数据'
 then begin
  sd:=TfrxSubdetailData.Create(tempage);
  sd.Height:=cd(mm.h);
  sd.Name  :='SD';
  frtemp.DataSets.Add(fd3);
  sd.DataSet:=fd3;
  SD.TOP:=MM.T;
  for i:=k to k+mm.row2-1 do  //行
  for j:=2 to col do        //列
  begin
  r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
  c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
  if (r11=I) and (c11=J) then
   begin
    mm1:= cell_du(i,j,3,k);
    e:= TfrxMemoView.Create(SD);
    txt2_xie(i,j,mm1,e);
    end;
  end;
  end;
 if mm.txt.text ='表合计'
  then   begin
  pf:=TfrxReportSummary.Create(tempage);
  pf.Height:=cd(mm.h);
  pf.Name  :='PF';
  for i:=k to k+mm.row2-1 do  //行
  for j:=2 to col do        //列
  begin
  r11:= es1.Cells.Item[i,j].MergeArea.Row;//s.Count;
  c11:= es1.Cells.Item[i,j].MergeArea.Column;//s.Count;
  if (r11=I) and (c11=J) then
   begin
    mm1:= cell_du(i,j,3,k);
    e:= TfrxMemoView.Create(pF);
    txt2_xie(i,j,mm1,e);
    end;
  end;
  end;
 except
 SHOWMESSAGE('错误出现在 K='+INTTOSTR(K)+' I='+INTTOSTR(I)+ ' JC='+INTTOSTR(I) )
 END;
 end;
 end;
 frtemp.SaveToFile(ed2.Text +ed3.Text);
 frtemp.Free;
 fr1.LoadFromFile(ed2.Text +ed3.Text);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
es1.Disconnect;
ea1.Quit ;
ea1.Disconnect ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
fr1.ShowReport(true);
end;
end.

---------脚本代码，就不放了 ，单位要求兄弟保密
（脚本不是我一个人完成的）。 此帖子包含附件:

大小:114.6K-----------

rar 此帖子包含附件:

大小:14.9K

---------------------delphi7 + fastreport 4.9.31+ office2003 /win7 winxp
可以啊，
一开始单独点设计能出现 fastreport 设计界面吗。
如果出现 空白fastreport 设计界面的 
估计是 Office 版本高了 ，可以保存为 office 2003版.

有代码可以修改的。
在盒子ftp上  Excel2fr3.rar
带有 EXE 和 xls,可以测试下。-----

Rm太贵了?rm3.67开源免费的呀，我用了很不错的

其实直接 用excel 还快些,
1,服务器使用在php/linux平台.
2.B/S .报表输出格式 多种.PDF/WORD/EXCEL/HTML/JPG 我要怎么办..
3 报表二次修改,(报表的格式没定稿前,各部门或者各个业务口自己定报表样式).

我直接偷懒了,就用fasterport 输出转.最快.. 呵呵

配套的 web控件

楚琳Web打印控件
　　楚琳Web打印控件是以C/S架构的报表工具进行B/S架构的报表设计
　　【软件特点】
　　1、报表功能强大，报表设计采用FastReport，可以和水晶报表媲美，支持自定义纸张大小，支持直接打印。
　　2、报表设计高效而简单，和C/S架构下的报表设计效率差不多。
　　3、方便的中国式报表的设计，可以快速而准确设计出报表中的表格线。
　　4、支持ASP, ASP.NET, PHP, JSP等多开发语言。
　　5、支持简体中文、英文、繁体中文等多国语言。
　　6、免费使用，免费版无功能和时间限制。
　　作者博客：http://www.cnblogs.com/dong0738/

脚本例子
 
动态 设置/与修改

fr1 :TfrxReport


/
fr1.Script.Clear;  //清除脚本
fr1.ScriptLanguage :='PascalScript'; //选择脚本的语法
fr1.ScriptText.Text:=Memo1.Lines.Text ;
TfrxPictureView(fr1.FindObject('Pic1')).OnBeforePrint :='Pic1OnBeforePrint';//设置 Pic1的 OnBeforePrint 事件

//

memo1.Memo1.Lines.Text 
//==========

procedure Pic1OnBeforePrint(Sender: TfrxComponent);
//动态加载 jpg 图片文件
var a:string;  
begin
  a:=frxDBDataset1path.text; //存放在数据库记录 : 图片文件路径   
  a:=copy(a,1,length(a)-2);  // 字符串处理长度
try
 pic1.Picture.LoadFromFile(a)   //加载图片
except  //如果图片文件不存在 或者其他错误
  // pic1.Picture.LoadFromFile('c:\error.jpg'); //错误图片
  pic1.Picture:=nil;   //或者清除上次加载的图片
end;
end;

begin
end.

//==========
--------------

在盒子ftp上 下载  
Excel 转 fr3.rar

有源码和 EXE程序  XLS模板

1 指定EXCEL模板 文件
2 打开EXCEL 
3 在下拉列表 选择 xls 的表 (sheet)
4 生成 fr3
5 设计修改 保存