有没有用过 fast-report 的？

Question

我是这样写的。
  ReportForm.FFrBandView:=TFrBandView.Create;
 ReportForm.FFrBandView.BandType:=btMasterData;
   ReportForm.FFrBandView.DataSet:='QryResult';
         ReportForm.FFrMemoView:=TFrMemoView.Create;
   .........................
   就是FFrMemoView 接下去不知怎么操作。？

Answer 1

报表快速生成构件库，功能全面适用于 D2 D3 D4 
下载地址：http://www.delphibyte.com/download/softdown.php?softid=111&url=http://61.132.118.165/soft/delphi/Delphi/uestc/Delphi/fr.zip

Answer 2

这里没有delphibbs 好，但那边我上不去。

Answer 3

var
  v: TfrMemoview;      v := TfrMemoview(frCreateObject(gtMemo, ''));         //创建序号
      v.SetBounds(Gaps, iTitleTop-2, OrderWidth, mHeight);
      v.Memo.Add('序号');
      v.Alignment:= 0;
      FRReport.Pages.Pages[0].Objects.Add(v);      v := TfrMemoview(frCreateObject(gtMemo, ''));         //创建序号的数据
      v.SetBounds(Gaps, bDataTop+2, OrderWidth, mHeight);
      v.Memo.Add('[LINETHROUGH#]');
      v.Alignment:=2;
      FRReport.Pages.Pages[0].Objects.Add(v);      v := TfrMemoview(frCreateObject(gtMemo, ''));         //创建Fields的名字
      v.SetBounds(iWidth, iTitleTop+BandHeight*iCount-2, pDataDict[i].iPrintWidth,
        mHeight);
      v.Memo.Add(pDataDict[i].sAliasName);
      v.Alignment:= 2;                                      //taCenter
      FRReport.Pages.Pages[0].Objects.Add(v);      v := TfrMemoview(frCreateObject(gtMemo, ''));         //创建Fields的数据
      v.SetBounds(iWidth, bDataTop+BandHeight*iCount+2,
        pDataDict[i].iPrintWidth, mHeight);
      if pDataDict[i].Alignment=taLeftJustify then v.Alignment:=0;
      if pDataDict[i].Alignment=taRightJustify then v.Alignment:=1;
      if pDataDict[i].Alignment=taCenter then v.Alignment:=2;
      v.Flags:= v.Flags-flHideZeros;                    //设置HideZero=false
      v.Memo.Add('[DSetDetail."'+pDataDict[i].sFieldName+'"]');
      FRReport.Pages.Pages[0].Objects.Add(v);