FastReport集粹(一)

unit ReportClass;

interface

uses CommonForm, SysUtils, Classes, Forms, Dialogs, DB, Controls, Grids, ComCtrls,
     FR_DBSet, FR_Class, Printers, FR_Utils, FR_Pars, DBGrids, IniFiles, Variants,
     TypInfo;

type
  TReport = class
  private
    FDatasetArray: array of TDataset;
    FRDataset: array of TfrDBDataset;

    FrmCommon: TfrmCommon; //设置窗体
    FReport: TfrReport; //报表对象
    FPage: TfrPage; //页面对象
    FVariants: TfrVariables; //报表的数据字典变量
    FVariantList: TStrings; //变量列表

    FGridFields: TStrings; //表格的字段=标签
    FGridWidths: TStrings; //表格的字段=宽度
    FGridRowHeight: integer; //表格行高
    FGrid: TCustomGrid; //表格名称

    FTitleMemo: TfrMemoView; //标题头文本框
    FTitleDate: TfrmemoView; //标题日期文本框
    FPrintReportDate: Boolean; //是否打印页头日期
    FOrientation: Boolean; //报表打印方向
    FPrintPageNumber: Boolean; //是否打印页码

    FHeaderFields: TStrings; //页头字段列表
    FDetailFields: TStrings; //明细字段列表
    FFooterFields: Tstrings; //页脚字段列表

    INIFile: TINIFile;
    FFileName: string; //报表的文件名
    FDetailSourceType: string; //报表数据源类型('TDBGrid'或'TDataset')
    FReportName: string; //在INI文件中小节的报表的名称
    procedure ShowData;
    function GetVariant: TStrings;
    procedure SetVariants(const Value: TStrings);
  protected
    function GetReportTitle: string;
    procedure SetReportTitle(value: string);

    function GetOrientation: Boolean;
    procedure SetOrientation(value: Boolean);

    function GetPrintReportDate: Boolean;
    procedure SetPrintReportDate(value: Boolean);

    function GetPrintPageNumber: Boolean;
    procedure SetPrintPageNumber(value: Boolean);

    function GetHeaderFields: TStrings;
    procedure SetHeaderFields(const Value: TStrings);

    function GetFooterFields: TStrings;
    procedure SetFooterFields(const Value: TStrings);
    function GetDetailFields: TStrings;
    procedure SetDetailFields(const Value: TStrings);

    function GetFileName: string;
    procedure SetFileName(const Value: string);
   
    function GetGrid: TCustomGrid;
    procedure SetGrid(const Grid: TCustomGrid);
  public
    constructor Create;
    destructor Destroy; override;

    procedure Preview; overload;
    procedure Preview(FileName: string); overload;
    procedure Design; overload;
    procedure Design(FileName: string); overload;

    procedure SetMemoView(MemoView: TfrMemoView; //设置文本框属性
                          Alignment: integer;    //Alignment:文本对齐方式,frtaCenter表示居中对齐
                          FrameTyp: word);       //FrameTyp:边框样式,0:无边框;15:有边框
    function FindBandView(BandType: TfrBandType): TfrBandView; //根据BandView类型返回TfrBandview
    function FindMemoView(Text: string; var CompNo: integer): TfrMemoView; //根据MemoView的文本返回TfrMemoView和序号
    function ShowFieldListForm: Boolean;

    procedure SaveFieldList(ReportName: string); //存储字段列表到报表配置文件中
    procedure LoadFieldList(ReportName: string); //从配置文件中调用字段列表

    procedure SetDataset(Datasets: array of TDataset);
  published
    property Title: string read GetReportTitle write SetReportTitle; //报表标题
    property PrintPageNumber: Boolean read GetPrintPageNumber write SetPrintpageNumber default false; //是否打印报表页码
    property PrintReportDate: Boolean read GetPrintReportDate write SetPrintReportDate default true; //是否打印报表日期
    property Orientation: Boolean read GetOrientation write SetOrientation default true; //页面默认为纵向
    property HeaderFields: TStrings read GetHeaderFields write SetHeaderFields; //页头上要打印的字段列表
    property DetailFields: TStrings read GetDetailFields write SetDetailFields; //明细字体列表
    property FooterFields: TStrings read GetFooterFields write SetFooterFields; //页脚上要打印的字段列表
    property FileName: string read GetFileName write SetFileName;
    property DetailSourceType: string read FDetailSourceType write FDetailSourceType; //明细数据源是'TDBGrid'还是'TDataset'
    property Grid: TCustomGrid read GetGrid write SetGrid;
    property Variants: TStrings read GetVariant write SetVariants; //报表数据字典中的变量
  end;

implementation

{ TReport }

constructor TReport.Create;
var
  band: TfrBandView;
  AppPath: string;
begin
  inherited;
  FHeaderFields := TStringList.Create; //标题字段列表
  FDetailFields := TStringList.Create; //明细字段列表
  FFooterFields := TStringList.Create; //页脚字段列表
  FGridFields := TStringList.Create; //表格字段列表
  FGridWidths := TStringList.Create; //表格字段宽度列表
  FPrintReportDate := true; //默认打印报表日期

  FOrientation := true;
  FReport := TfrReport.Create(nil); //建立报表
  //建立页面
  FReport.Pages.Clear;
  FReport.Pages.Add;
  FPage := FReport.Pages[0];
  FVariants := TfrVariables.Create;
  FVariantList := TStringList.Create;

  Band := TfrBandView.Create; //建立标题条
  Band.SetBounds(tbbLeft, tbbTop, tbbWidth, tbbHeight); //条位置
  Band.BandType := btReportTitle; //条类型
  FPage.Objects.Add(Band);

  FTitleMemo := TfrMemoView.Create; //建立标题文本
  FTitleMemo.SetBounds(tmbLeft, tmbTop, tmbWidth, tmbHeight);
  FTitleMemo.BandAlign := baCenter; //文本框居中
  FTitleMemo.Prop['Alignment'] := frtaCenter or frtaMiddle; //文本的对齐方式(垂直居中)
  FTitleMemo.Prop['Font.Style'] := 2;
  FTitleMemo.prop['Font.Name'] := mvFontName;
  FTitleMemo.Prop['Font.Size'] := 14;
  FPage.Objects.Add(FTitleMemo);

  FPrintReportDate := true;
  SetPrintReportDate(FPrintReportDate);

  frmCommon := TfrmCommon.Create(nil);
  AppPath := ExtractFilePath(Application.ExeName) + 'Reports/';
  if not DirectoryExists(AppPath) then CreateDir(AppPath);
  INIFile := TIniFile.Create(AppPath + 'Reports.ini');
end;

destructor TReport.Destroy;
begin
  FreeAndNil(INIFile);
  FreeAndNil(FHeaderFields);
  FreeAndNil(FFooterFields);
  FreeAndNil(FDetailFields);
  FreeAndNil(FGridWidths);
  FreeAndNil(FGridFields);
  FreeAndNil(frmCommon);
  FreeAndNil(FVariantList);
  FreeAndNil(FVariants);
  FreeAndNil(FReport);
  FDatasetArray := nil;
  inherited;
end;

function TReport.GetReportTitle: string;
begin
  result := FTitleMemo.Memo.Text
end;

procedure TReport.SetReportTitle(value: string);
begin
  FTitleMemo.Memo.Text := value;
  frmCommon.ReportTitle := value;
end;

function TReport.GetOrientation: Boolean;
begin
  result := FOrientation;
end;

procedure TReport.SetOrientation(value: Boolean);
begin
  FOrientation := value;
  if FOrientation then
    Fpage.ChangePaper(Fpage.pgSize, Fpage.pgWidth, Fpage.pgHeight, Fpage.pgBin, poPortrait) //页面横向
  else
    Fpage.ChangePaper(Fpage.pgSize, Fpage.pgWidth, Fpage.pgHeight, Fpage.pgBin, poLandscape); //页面纵向
  FTitleDate.SetBounds(FPage.Prop['Width'] - 70, tdbTop, tdbWidth, tdbHeight);
end;

procedure TReport.Preview;
begin
  ShowData;
  if FReport.PrepareReport then
    FReport.ShowPreparedReport;
end;

procedure TReport.Preview(FileName: string);
var
  s: string;
begin
  s := FileName;
  if s = '' then s := FFileName;
  if s = '' then exit;
  FReport.LoadFromFile(s);
  if FReport.PrepareReport then
    FReport.ShowPreparedReport;
end;

procedure TReport.Design(FileName: string);
var
  s: string;
begin
  s := FileName;
  if s = '' then s := FFileName;
  if s = '' then exit;
  FReport.LoadFromFile(s);
  if FReport.PrepareReport then
    FReport.DesignReport;
end;

procedure TReport.Design;
begin
  ShowData;
  if FReport.PrepareReport then
    FReport.DesignReport;
end;

function TReport.GetPrintReportDate: Boolean;
begin
  result := FPrintReportDate;
end;

procedure TReport.SetPrintReportDate(value: Boolean);
var
  Blank: integer;
begin
  FPrintReportDate := value;
  if FPrintReportDate then
  begin
    FTitleDate := tfrMemoView.Create;
    if FOrientation then //如果是纵向打印
      Blank := 1480
    else
      Blank := 1200;
    FTitleDate.SetBounds(FPage.pgWidth - Blank, tdbTop, tdbWidth, tdbHeight);
    FTitleDate.Memo.Add('[Date]');
    FPage.Objects.Add(FTitleDate);
  end;
end;

function TReport.GetPrintPageNumber: Boolean;
begin
  result := FPrintPageNumber;
end;

procedure TReport.SetPrintPageNumber(value: Boolean);
const
  PageNumber = '[PAGE#]/[TOTALPAGES]';
var
  mv: TfrMemoView;
  Band: TfrBandView;
  CompNo: integer;
begin
  FPrintPageNumber := value;
  Band := FindBandView(btPageFooter);
  if band = nil then //如果没有FooterBand,那么新建一个
  begin
    Band := TfrBandView.Create;
    Band.BandType := btPageFooter;
    band.SetBounds(fbbLeft, fbbTop, fbbWidth, fbbHeight);
    FPage.Objects.Add(Band);
  end;
  if FPrintPageNumber then //如果打印页码
  begin
    FReport.DoublePass := true; //报表只有显示两次才能显示页码
   
    mv := TfrMemoView.Create;
    mv.Memo.Text := PageNumber;
    mv.SetBounds(0, fbbTop, 100, mvHeight);
    mv.BandAlign := baCenter;
    mv.Prop['Alignment'] := frtaMiddle or frtaCenter;
    mv.prop['Font.Name'] := mvFontName;
    mv.Prop['Font.Size'] := mvFontSize;
    FPage.Objects.Add(mv);
  end
  else //如果不打印页码,那么删除已存在的页码文本框
  begin
    mv := FindMemoView(PageNumber, CompNo);
    if mv <> nil then
    begin
      FPage.Delete(CompNo);
      mv.Free;
    end;
  end;
end;

function TReport.FindBandView(BandType: TfrBandType): TfrBandView;
var
  v: TfrBandView;
  i: integer;
begin
  result := nil;
  for i:=0 to FPage.Objects.Count-1 do //查找是否有FooterBand
  begin
    v := FPage.objects[i];
    if (v.ClassNameIs('TfrBandView') and (TfrBandView(v).BandType = BandType)) then
    begin
      result := v;
      exit;
    end;
  end;
end;

function TReport.FindMemoView(Text: string; var CompNo: integer): TfrMemoView;
var
  i: integer;
  v: TfrMemoView;
begin
  result := nil;
  for i:=0 to FPage.Objects.Count-1 do
  begin
    v := FPage.Objects[i];
    if (v.ClassNameIs('TfrMemoView') and (TfrMemoView(v).Memo.Text = Text)) then
    begin
      CompNo := i;
      result := v;
      exit;
    end;
  end;
end;

procedure TReport.SetMemoView(MemoView: TfrMemoView; Alignment: integer; FrameTyp: word);
begin
  if MemoView = nil then exit;
  MemoView.Prop['Alignment'] := frtaMiddle or Alignment;  //文本对齐方式(默认为垂直居中)
  MemoView.prop['Font.Name'] := mvFontName; //字体名称
  MemoView.Prop['Font.Size'] := mvFontSize; //字体尺寸
  if frmCommon.MemoFrameTyp then
    MemoView.FrameTyp := FrameTyp; //边框
end;

////////////////////////////////////给打印字段列表赋值/////////////////////////////

function TReport.GetHeaderFields: TStrings;
begin
  result := FHeaderFields;
end;

procedure TReport.SetHeaderFields(const Value: TStrings);
begin
  FHeaderFields.Assign(value);
end;

function TReport.GetFooterFields: TStrings;
begin
  result := FFooterFields;
end;

procedure TReport.SetFooterFields(const Value: TStrings);
begin
  FFooterFields.Assign(value);
end;

/////////////////////////////////////////////////////////////////////////////////

function TReport.ShowFieldListForm: Boolean;
begin
  frmCommon.HeaderFields := HeaderFields;
  frmCommon.DetailFields := DetailFields;
  frmCommon.FooterFields := FooterFields;

  frmCommon.ShowModal; //显示报表设置窗体
  result := frmCommon.FormCloseMode;
  if not frmCommon.FormCloseMode then exit; //如果窗体是Cancel方式关闭的

  FTitleMemo.Memo.Text := frmCommon.ReportTitle; //返回报表标题

  //获得打印字段列表
  HeaderFields := frmCommon.HeaderFields;
  DetailFields := frmCommon.DetailFields;
  FooterFields := frmCommon.FooterFields;

  if frmCommon.SavePrintFields and (FReportName <> '') then //如果保存打印字段列表
    SaveFieldList(FReportName);
end;

procedure TReport.ShowData;

  function AnalyseText(str: string): string;
  var
    n: integer;
  begin
    result := '';
    n := AnsiPos('.', str);
    if n = 0 then exit;
    insert('"', str, n+1);
    result := str + '"';
  end;

  function GetDisLabelWidth(FieldName: string): integer; //根据字段名得到字段标签的长度
  var
    n, i, j: integer;
    s: string;
  begin
    result := 0;
    s := Fieldname;
    n := AnsiPos('.', s);
    if n > 0 then //如果字段名带有表名前缀
    begin
      Delete(s, 1, n);
    end;
    if s = '' then exit;
    for i:=0 to High(FDatasetArray) do //这个函数没考虑到前缀对应的问题,以后有空改吧
    begin
      for j:=0 to FDatasetArray[i].FieldCount-1 do
      begin
        if FDatasetArray[i].Fields[j].FieldName = s then
        begin
          result := FDatasetArray[i].Fields[j].DisplayWidth * 5; //宽度增加5倍
          exit;
        end;
      end;
    end;
  end;

var
  iCol, iLeft, i, w, h: integer;
  mv: TfrMemoView;
  Band: TfrBandView;
begin
  if FHeaderFields.Count > 0 then
  begin
    iLeft := tmbLeft; //其它字段的位置在打印日期之下
    iCol := 1; //第一行
    for i:=0 to FHeaderFields.Count-1 do
    begin
      if (i mod 3 = 0) and (i > 0) then //一行只显示三列字段
      begin
        inc(iCol, 1);
        iLeft := tmbLeft;
      end;
      mv := TfrMemoView.Create;
      SetMemoView(mv, frtaLeft, 0);
      mv.SetBounds(iLeft, tdbTop + (tdbHeight + 4) * iCol, 200, mvHeight); //4是上下Memo行之间的间隔
      mv.Memo.Text := HeaderFields.ValueFromIndex[i] + ':['
        + FDatasetArray[0].Owner.Name + '.' + AnalyseText(HeaderFields.Names[i]) + ']';
      FPage.Objects.Add(mv);
      inc(iLeft, 200);
    end;
  end
  else //否则不打印页头上的字段列表
  begin
    band := FindBandView(btReportTitle);
    Band.SetBounds(tbbLeft, tbbTop, tbbWidth, 60); //缩小条高度
  end;

  ///////////////////////////////// 明细 ///////////////////////////////////////////

  if frmCommon.UseGridRowHeight then
    h := frmCommon.GridRowHeight
  else
    h := frmCommon.MemoHeight; //得到文本框高度
  //页头
  Band := TfrBandView.Create;
  Band.SetBounds(0, PageBandTop, 0, h);
  Band.BandType := btPageHeader;
  Band.Prop['OnFirstPage'] := true;
  FPage.Objects.Add(Band);

  Band := TfrBandView.Create; //主数据条
  Band.SetBounds(0, PageBandTop + DataBandHeight * 2, 0, h);
  Band.BandType := btMasterData;
  Band.DataSet := 'frmCommon.' + frmCommon.DetailDatasetName; //明细数据条需要一个数据源
  FPage.Objects.Add(Band);

  w := 0;
  for i:=0 to FDetailFields.Count-1 do //求出明细文本框居中时的左起点
  begin
    if frmCommon.UseGridWidth then //如果使用表格的字段列表的宽度
      w := w + StrToInt(FGridWidths.ValueFromIndex[i])
    else
      w := w + GetDisLabelWidth(FDetailFields.Names[i]); //得到数据字段的显示长度
  end;
  iLeft := (FPage.Prop['Width'] - w) div 2;
  if iLeft < 32 then iLeft := 32;

  for i:=0 to FDetailFields.Count -1 do
  begin
    mv := TfrMemoView.Create; //标签
    SetMemoView(mv, frtaCenter, 15);
    if frmCommon.UseGridWidth then //如果使用表格的字段列表的宽度
      w := StrToInt(FGridWidths.ValueFromIndex[i])
    else
      w := GetDisLabelWidth(FDetailFields.Names[i]); //得到数据字段的显示长度
    mv.SetBounds(iLeft, PageBandTop, w, h);
    mv.Memo.Add(DetailFields.ValueFromIndex[i]);
    FPage.Objects.Add(mv);

    mv := TfrMemoView.Create; //记录
    mv.SetBounds(iLeft, PageBandTop + DataBandHeight * 2, w, h);
    if frmCommon.MemoFrameTyp then //文本框是否有边框
      SetMemoView(mv, frtaLeft, 15) //设置文本框属性
    else
      SetMemoView(mv, frtaLeft, 0);
    mv.Memo.Text := '[' + FDatasetArray[0].Owner.Name + '.'
      + AnalyseText(DetailFields.Names[i]) + ']';
    FPage.Objects.Add(mv);
   
    inc(iLeft, w);
  end;

  if iLeft > FPage.Prop['width'] then //如果文本框超过了页面的长度,
  begin
    SetOrientation(false); //那么页面自动转为横向打印
    FTitleDate.SetBounds(FPage.Prop['width'] - tdbWidth - 70, tdbTop, tdbWidth, tdbHeight);
  end;

  ////////////////////////////////// 页脚 ////////////////////////////////////////////////

  if FFooterFields.Count > 0 then
  begin
    Band := FindBandView(btReportSummary);
    if band = nil then //如果没有FooterBand,那么新建一个
    begin
      Band := TfrBandView.Create;
      Band.BandType := btReportSummary;
      band.SetBounds(rfbLeft, rfbTop, rfbWidth, rfbHeight);
      FPage.Objects.Add(Band);
    end;

    iLeft := tmbLeft; //其它字段的位置在打印日期之下
    iCol := 0;
    for i:=0 to FFooterFields.Count-1 do
    begin
      if (i mod 3 = 0) and (i > 0) then //一行只显示三列字段
      begin
        inc(iCol, 1);
        iLeft := tmbLeft;
      end;
      mv := TfrMemoView.Create;
      SetMemoView(mv, frtaLeft, 0);
      mv.SetBounds(iLeft, rfbTop + (tdbHeight + 4) * iCol, 200, mvHeight);
      mv.Memo.Text := FFooterFields.ValueFromIndex[i] + ':['
        + FDatasetArray[0].Owner.Name + '.' + AnalyseText(FFooterFields.Names[i]) + ']';
      FPage.Objects.Add(mv);
      inc(iLeft, 200);
    end;
  end
  else //否则不打印页脚上的字段列表
  begin

  end;
end;

function TReport.GetFileName: string;
begin
  result := FFileName;
end;

procedure TReport.SetFileName(const Value: string);
begin
  FFileName := value;
  FReport.LoadFromFile(FFileName);
end;

procedure TReport.SaveFieldList(ReportName: string);
var
  i: integer;
  s: string;
begin
  if ReportName = '' then exit;
  s := '';
  for i:=0 to HeaderFields.Count-1 do
    s := s + HeaderFields.Strings[i] + ',';
  delete(s, length(s), 1); //删除最后一个','号
  INIFile.WriteString(ReportName, 'Title', s);

  s := '';
  for i:=0 to DetailFields.Count-1 do
    s := s + DetailFields.Strings[i] + ',' ;
  delete(s, length(s), 1);
  INIFile.WriteString(ReportName, 'Detail', s);

  s := '';
  for i:=0 to FooterFields.Count-1 do
    s := s + FooterFields.Strings[i] + ',' ;
  delete(s, length(s), 1);
  INIFile.WriteString(ReportName, 'Footer', s);
end;

//从配置文件中得到要打印的字段,然后加入Listview中
procedure TReport.LoadFieldList(ReportName: string);
var
  s: string;
begin
  FReportName := ReportName;
  HeaderFields.CommaText := INIFile.ReadString(ReportName, 'Title', '');
  //注意:当调用了LoadFieldList之后,再执行SetGrid,那么DetailFields的字段列表会被FGridFields的字段列表覆盖
  DetailFields.CommaText := IniFile.ReadString(ReportName, 'Detail', '');
  FooterFields.CommaText := INIFile.ReadString(ReportName, 'Footer', '');

  if Detailfields.Count > 0 then
  begin
    s := DetailFields.Names[DetailFields.Count-1]; ;//最后一个字段的前缀就是明细数据条的数据源
    frmCommon.DetailDatasetName := Copy(s, 1, AnsiPos('.', s)-1);
  end;
end;

function TReport.GetDetailFields: TStrings;
begin
  result := FDetailFields;
end;

procedure TReport.SetDetailFields(const Value: TStrings);
begin
  FDetailFields.Assign(value);
end;

procedure TReport.SetDataset(Datasets: array of TDataset);
var
  i, j, iLen: integer;
  Dataset: TDataset;
  TvFields: TTreeView;
  MainNode: TTreeNode;
  b: Boolean;
begin
  for i:=0 to high(Datasets) do //把数据集逐一赋给FDatasetArray
  begin
    b := false;
    for j:=0 to high(FDatasetArray) do //先判断数组中是否已存在要加入的数据集
    begin
      b := false;
      if FDatasetArray[j].Name = Datasets[i].Name then
      begin
        b := true;
        break;
      end;
    end;

    if not b then
    begin
      iLen := high(FDatasetArray) + 2; //得到数组的上标(动态数组作为参数,其下标总是从0开始),长度加2才是数量
      SetLength(FDatasetArray, iLen);
      SetLength(FRDataset, iLen);

      dec(iLen);
      FDatasetArray[iLen] := Datasets[i]; //数量减去1才是维数
      FRDataset[iLen] := TfrDBDataset.Create(frmCommon);
      FRDataset[iLen].DataSet := FDatasetArray[iLen];
      frDataset[iLen].Name := FDatasetArray[iLen].Name;
    end;

  end;

  tvFields := TTreeView.Create(nil); //因为打算用一个树形结构来表示所有字段,为便于赋值,干脆把整棵树赋值给frmCommon(有时间改为Stream比较好)
  try
    tvFields.Parent := frmCommon;
    for i:=0 to high(FDatasetArray) do
    begin
      Dataset := FDatasetArray[i];
      MainNode := tvFields.Items.Add(nil, Dataset.Name);
      for j:=0 to Dataset.FieldCount-1 do
        tvFields.Items.AddChild(MainNode, Dataset.Fields[j].FieldName
          + '[' + Dataset.Fields[j].DisplayLabel + ']');
    end;

    frmCommon.tvFields.Items.Assign(tvFields.Items); //把树赋给frmCommon
  finally
    tvFields.Free;
  end;
end;

function TReport.GetGrid: TCustomGrid;
begin
  result := FGrid;
end;

procedure TReport.SetGrid(const Grid: TCustomGrid);
var
  PropInfo:PPropInfo;
  DBGrid: TDBGrid;
  i: integer;
  Dataset: TDataset;
begin
  FGrid := Grid;
  if not assigned(Grid) then exit;
  PropInfo := GetPropInfo(Grid,'DataSource'); //查找Grid是否有DataSource属性
  if PropInfo <> nil then //如果有
  begin
    DBGrid := TDBGrid.Create(nil);
    try
      //得到表格数据源的数据集的名称
      //为了不引用EhLib.pas也能得到TDBGridEh.Datasource.Dataset.Name,所以使用了RTTI
      //这样的好处不仅在TDBGridEh中体现,以后使用了别的DBGrid,只要它有DataSource,也能得到其数据集的名称
      SetObjectProp(DBGrid, 'DataSource', GetObjectProp(Grid, 'DataSource'));
      if not assigned(DBGrid.DataSource) then exit;
      Dataset := DBGrid.DataSource.DataSet;
      if Dataset = nil then exit;
      SetDataset(DataSet);

      PropInfo := GetPropInfo(Grid, 'Columns'); //查找Grid是否有Columns属性
      if PropInfo <> nil then
      begin
        SetObjectProp(DBGrid, 'Columns', GetObjectProp(Grid, 'Columns'));
        if not assigned(DBGrid.Columns) then exit;
        for i:=0 to DBGrid.Columns.Count-1 do
        begin
          if DBGrid.Columns[i].Visible then //只挑选可视的字段
          begin
            FGridFields.Add(Dataset.Name + '.' + Dataset.Fields[i].FieldName + '=' + DBGrid.Columns[i].DisplayName);
            FGridWidths.Add(Dataset.Name + '.' + Dataset.Fields[i].FieldName + '=' + IntToStr(DBGRid.Columns[i].Width));
          end;
        end;
      end;

      PropInfo := GetPropInfo(Grid, 'RowHeight'); //查找Grid是否有RowHeight属性
      if PropInfo <> nil then
      begin
        FGridRowHeight := GetPropValue(Grid, 'RowHeight', false);
        frmCommon.GridRowHeight := FGridRowHeight;
      end;

      //把DetailFields的字段列表清空,并把Grid的字段加入DetailFields中
      //这样处理有个问题:当调用了LoadFieldList后,DetailFields从FGridFields中得到的字段列表会被配置文件中的字段列表覆盖
      DetailFields.Clear;
      for i:=0 to FGridFields.Count-1 do
        DetailFields.Add(FGridFields.Strings[i]);

    finally
      FreeAndNil(DBGrid);
    end;
  end;

end;

function TReport.GetVariant: TStrings;
begin
  result := FVariantList;
end;

procedure TReport.SetVariants(const Value: TStrings);
var
  i: integer;
begin
  //注意:如果要传字符串变量,那么格式为'Name=''Value''';如果要传数值变量,那么格式为'Name=1'
  FvariantList.Assign(value);
  FReport.Dictionary.Variables[' VariantList'] := ''; //变量root
  for i:=0 to FVariantList.Count-1 do //把变量列表加入数据字典
    FReport.Dictionary.Variables[value.Names[i]] := value.ValueFromIndex[i];
end;

end.

 

你可能感兴趣的:(port)