Delphi Excel FastReport

原创 2015年07月06日 23:27:11


unit Unit1;
interface
uses
Printers,Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, ExcelXP, OleServer, StdCtrls, Grids,
Mask, RzEdit,frxDesgn,
frxClass, frxExportRTF, frxDBSet, frxExportPDF;
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;
    fd3: TfrxDBDataset;
    fd2: TfrxDBDataset;
    fd1: TfrxDBDataset;
    Button3: TButton;
    frxPDFExport1: TfrxPDFExport;
    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 Button7Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(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;
p.PrintOnPreviousPage:=True ; //合并打印
if PageSet.Orientation=2
 then p.Orientation:=poLandscape
 else p.Orientation:=poPortrait;
p.PaperSize:=PageSet.PaperSize;
{
if PageSet.PaperSize=xlPaperA3 then p.PaperSize:=DMPAPER_A3;
if PageSet.PaperSize=xlPaperA4 then p.PaperSize:=DMPAPER_A4;
if PageSet.PaperSize=xlPaperA5 then p.PaperSize:=DMPAPER_A5;
 }    
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 pic2_xie(j,i:integer;mm:cell;pic:TfrxPictureView);
begin
pic.Left:=cd(mm.L);
pic.top:=cd(mm.t);
pic.Height:=cd(mm.h);
pic.Width :=cd(mm.w);
pic.Name  :=pic.Parent.Name+inttostr(j)+'_'+inttostr(i);
//e.Text  :=mm.txt.text ;//+' * '+  e.Name;
case mm.k of
   1:pic.Frame.Typ :=[ftLeft ];
   2:pic.Frame.Typ :=[ftRight ];
   3:pic.Frame.Typ :=[ftLeft,ftRight ];
   4:pic.Frame.Typ :=[ftTop ];
   5:pic.Frame.Typ :=[ftLeft,ftTop ];
   6:pic.Frame.Typ :=[ftRight,ftTop ];
   7:pic.Frame.Typ :=[ftLeft,ftRight,ftTop ];
   8:pic.Frame.Typ :=[ftBottom ];
   9:pic.Frame.Typ :=[ftLeft,ftBottom ];
  10:pic.Frame.Typ :=[ftRight,ftBottom ];
  11:pic.Frame.Typ :=[ftLeft,ftRight,ftBottom ];
  12:pic.Frame.Typ :=[ftTop,ftBottom ];
  13:pic.Frame.Typ :=[ftLeft,ftTop,ftBottom ];
  14:pic.Frame.Typ :=[ftRight,ftTop,ftBottom ];
  15:pic.Frame.Typ :=[ftLeft,ftRight,ftTop,ftBottom];
else
     pic.Frame.Typ :=[];
end;
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.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
PageSet:OLEVariant;
i,j,k :integer;
frtemp: TfrxReport;
mm1,mm:cell;
r11,c11,r1:integer;
row,col:integer;
e  :TfrxMemoView;     //  text 文字框
pic:TfrxPictureView;  //  图片框


pt:TfrxReportTitle;
pf:TfrxReportSummary;
ht:TfrxPageHeader;
hf:TfrxPageFooter;
md:TfrxMasterData;
Mxd:TfrxDetailData;
sd:TfrxSubdetailData;
 P:Tfrxreportpage;
tempage:TfrxReportPage;
kk:integer;
Designer: TfrxDesignerForm;//
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 ; //excel   的列
  row :=es1.UsedRange[1].Rows.Count;     //excel   的行


 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);
      if mm1.txt.text='{[图片]}'
       then  begin
         pic:= TfrxPictureView.Create(pt);
         pic2_xie(i,j,mm1,pic);
         end else
         begin
          e:= TfrxMemoView.Create(pt);
          txt2_xie(i,j,mm1,e);
         end;
    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);    //读 excel cell的文字
       if mm1.txt.text='{[图片]}'
        then  begin
         pic:= TfrxPictureView.Create(HT);
         pic2_xie(i,j,mm1,pic);
                 end else
         begin
          e:= TfrxMemoView.Create(HT);
          txt2_xie(i,j,mm1,e);
         end;
   // 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);


     if mm1.txt.text='{[图片]}'
      then  begin
        pic:= TfrxPictureView.Create(HF);
        pic2_xie(i,j,mm1,pic);
         end else
       begin
         e:= TfrxMemoView.Create(HF);
         txt2_xie(i,j,mm1,e);
        end;
    //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);
      if mm1.txt.text='{[图片]}'
        then  begin
         pic:= TfrxPictureView.Create(MD);
         pic2_xie(i,j,mm1,pic);
        end else
         begin
          e:= TfrxMemoView.Create(MD);
          txt2_xie(i,j,mm1,e);
         end;
     // 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);
       if mm1.txt.text='{[图片]}'
        then  begin
         pic:= TfrxPictureView.Create(MXD);
         pic2_xie(i,j,mm1,pic);
          end else
         begin
          e:= TfrxMemoView.Create(MXD);
          txt2_xie(i,j,mm1,e);
         end;
   // 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);
       if mm1.txt.text='{[图片]}'
        then
        begin
         pic:= TfrxPictureView.Create(SD);
         pic2_xie(i,j,mm1,pic);
          end
       else
        begin
          e:= TfrxMemoView.Create(SD);
          txt2_xie(i,j,mm1,e);
         end;


    //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);


       if mm1.txt.text='{[图片]}'
        then  begin
         pic:= TfrxPictureView.Create(PF);
         pic2_xie(i,j,mm1,pic);
                 end else
         begin
          e:= TfrxMemoView.Create(PF);
          txt2_xie(i,j,mm1,e);
         end;
    //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.SetProperty()
 //.setpr
 frtemp.DesignReport();
 frtemp.SaveToFile(ed2.Text +ed3.Text);
 frtemp.Free;
  fr1.LoadFromFile(ed2.Text +ed3.Text);
  


 //fr1.DesignPreviewPage;
 end;




{
ver:
aaaa:OLEVariant
ExcelApp.activeworkbook.close;
  ExcelApp.Quit;
  ExcelApp:=UnAssigned;
}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
es1.Disconnect;
ea1.Quit ;
ea1.Disconnect ;


end;


procedure TForm1.Button7Click(Sender: TObject);
var i:Integer;
begin


fr1.DesignReport();
end;


procedure TForm1.Button2Click(Sender: TObject); //连续打印2个报表
begin
//   fr1.LoadFromFile(ed2.Text +ed3.Text);
fr1.LoadFromFile('D:\excel\新建文件夹 (2)\1.fr3');


fr1.PrepareReport(True );
fr1.LoadFromFile('D:\excel\新建文件夹 (2)\3.fr3');
fr1.PrepareReport(False );


fr1.ShowPreparedReport ;
end;


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


procedure TForm1.Button3Click(Sender: TObject);
var i:Integer ;
p : TfrxReportPage;


begin     //3个报表连续 合并
fr1.LoadFromFile('D:\excel\新建文件夹 (2)\4.fr3');
fr1.PrepareReport(True);


fr1.LoadFromFile('D:\excel\新建文件夹 (2)\1.fr3');
fr1.PrepareReport(false);
p := TfrxReportPage(fr1.Objects[1]);
p.PrintOnPreviousPage :=True;
fr1.DesignReport();


fr1.LoadFromFile('D:\excel\新建文件夹 (2)\3.fr3');
fr1.PrepareReport(False);
p := TfrxReportPage(fr1.Objects[1]);
p.PrintOnPreviousPage :=True;


fr1.DesignReport();
 { i:= fr1.PreviewPages.Count;
  ShowMessage(IntToStr(i));
fr1.PreviewPages.Page[0].PrintOnPreviousPage:=True;
}
fr1.DesignReport();
 p := TfrxReportPage(fr1.Objects[1]);
p.PrintOnPreviousPage :=True;
p := TfrxReportPage(fr1.Objects[1]);
p.PrintOnPreviousPage :=True;
fr1.ShowPreparedReport ;
end;


end.

delphi 简单的 fastreport 设计

加入控件TFrxreport、frxDesigner1,导出部分添加TfrxSimpleTextExport、TfrxXLSExport、TfrxPDFExport、TfrxHtmlExport等表示...
  • Trassion
  • Trassion
  • 2012年10月24日 10:21
  • 19409

Delphi报表(QuickReport & FastReport)

QuickReport、FastReport简单应用
  • kampan
  • kampan
  • 2011年05月07日 16:45
  • 5640

windowsXP + delphi2007 安装FastReport 4的方法

        以前曾经安装过FastReport数据报表控件,觉得功能不错。现在发现网上已经有4以上的版本下载使用。于是从CCRUN上下载了FastReport V4.7.9进行安装,在下载后发现安...
  • ijong
  • ijong
  • 2011年01月13日 14:37
  • 1508

FastReport 中添加二维码功能.(Delphi)

====================================================== 注:本文源代码点此下载 =============================...

Delphi中用FastReport制作报表

====================================================== 注:本文源代码点此下载 =============================...

使用FastReport-v5.3.17把fp3文件转为excel文件

软件下载地址: http://pan.baidu.com/s/1bpJVl1t 1. 打开FastReport-v5.3.17.zip压缩文件,双击里面的fr5_demo.exe文件进行安装.一直...

delphi_fastreport_db_example

  • 2014年03月21日 14:09
  • 7KB
  • 下载

FastReport 2.42 delphi5

  • 2014年05月19日 14:02
  • 3.79MB
  • 下载

delphi学习点滴——将数据库数据快速导入Excel

在开发数据库应用程序中,经常要将类型相同的数据导出来,放到Excel文件中,利用Excel强大的编辑功能,对数据作进一步的加工处理。这有许多的方法,我们可以使用OLE技术,在Delphi中创建一个自动...

FastReport 3.0 Trial for Delphi7 无源码

  • 2006年02月23日 09:05
  • 1.49MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi Excel FastReport
举报原因:
原因补充:

(最多只允许输入30个字)