----筆者在前一段使用Delphi開發數據庫的工作中，用戶提出了這樣一個需求：要根據自己的的查詢結果動態生成報表然后進行打印。幾經摸索，筆者使用動態生成QuickReport控件的方法滿足了用戶的需求。現將此方法說明如下，希望能為有類似工作要做的朋友們提供一點有益的提示。

一、基本思路

----先將查詢的一些參數（如SQL命令，字段名稱，字段寬度等）按照一定格式寫入一個臨時文件中。在生成報表時，根據臨時文件中所記錄的參數動態生成各種QuickReport控件即可。

二、程序實現

2.1臨時文件格式

----臨時文件的格式可以根據需要自定義，筆者采用了INI的文件格式。Delphi提供了一個TInifile類，使得在Delphi中操作INI格式文件，非常方便。關于INI文件的格式和具體操作相關的文章有不少，我這里不再贅述。臨時文件格式如下：

Report.ini 

：報表細節

[rep_detail]

Title=XXXXX表

：打印紙設置，1為A4紙,2為B5紙,3為16K

Page=1

：打印方式，1為橫打，0為豎打

Orientation=1

：報表包含的字段數目

columns=8

:TQurey組件信息

[QureyData]

：QuickReport組件中Tqurey組件的SQL命令的內容

Sql_command=select V_XM,V_JGZW,V_BMMC,V_DWMC,V_DWZW,V_ZY,V_ZC,V_BGDH from Hvzzjg where V_XM  LIKE '李%'

[col_0]

Caption=姓  名

DataFiled=V_XM

Width=60

……

……

2.2動態生成QuickReport報表

--- 報表的主要控件及其主要屬性設置如下

上表所示控件是在程序中手工創建的。其他的控件則要在程序中動態創建。

2.2.2主要程序

unit f_rep;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, QuickRpt, QRCtrls, DB, DBTables,PRINTERS,QRPrntr,inifiles,

  TeeProcs, TeEngine, DbChart, QRTEE;

type

  TForm_rep = class(TForm)

    QuickRep: TQuickRep;

    DetailBand1: TQRBand;

    ColumnHeaderBand1: TQRBand;

    REP_DataSource: TDataSource;

    REP_QUERY: TQuery;

    rep_Database: TDatabase;

    procedure TForm_rep.QuickRepAfterPreview(Sender: TObject);//瀏覽完畢，釋放所有創建的組件

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var  Form_rep:TForm_Rep;

    type //報表的摘要信息

       C_rep_Summary=record

         Title:string;//報表的標題

         Page:TQRPaperSize;//報表的頁面設置，采用何種型號的紙

         Orientation:TPrinterOrientation;//報表的頁面設置，是橫打還是豎打

         Columns:integer;//報表包含的列數

     end;

     type

        C_Rep_Col_Summary=record//報表列的摘要信息

           Caption:string;//報表的列名

           DataFiled:string;//報表的列所對應的數據庫中的字段名

           Width:integer;//報表的列寬

     end;

     type

        C_Rep_Col_Sum_store=record //存儲報表列的摘要信息

         Caption_array:array of string;

         DataFiled_array:array of string;

         Width_array:array of integer;

     end;

var 

     rep_Summary:C_rep_Summary;

     Rep_Col_Summary:C_Rep_Col_Summary;

     Rep_Col_Sum_store:C_Rep_Col_Sum_store;

     Colum_Name:array of tQRRichText;

     Colum_Data:array of TQRDBRichText;

     C_Query:TQuery;

procedure  Form_rep_init();

procedure DynCreat_TQRDBText(Colum_Num:integer;Colum_Height:integer;DataSet_Name:TQuery);//動態創建TQRDBText控件

procedure  DynCreat_TQRRichtext(Colum_Num:integer);//動態創建TQRRichtext控件

procedure  DynCreat_TQuery(Inifile_Name:Tinifile);//動態創建TQuery控件的SQL語句

procedure  Get_PageCount();//取得打印總頁數

function   Open_IniFile():Tinifile;//打開臨時文件

procedure  Read_Col_Summary(Inifile_Name:Tinifile);//讀取報表列的摘要信息

procedure  Read_Rep_Summary(Inifile_Name:Tinifile);//讀取報表的摘要信息

function   rep_chanslateOrientation(var Rep_Orientation:integer):TPrinterOrientation;//將打印方式設置進行轉換

function rep_chanslatepage(var Rep_Page:integer):TQRPaperSize;//將打印頁尺寸設置進行轉換

implementation

{$R *.dfm}

function rep_chanslatepage(var Rep_Page:integer):TQRPaperSize;//將打印頁類型設置進行轉換

begin

    case  Rep_Page of

1:begin

           result:=A4;

           Form_rep.QuickRep.PrinterSettings.PaperSize:=A4;

         end;

       2:begin

           result:=B5;

           Form_rep.QuickRep.PrinterSettings.PaperSize:=B5

         end;

       3:begin

           result:=Executive;

           Form_rep.QuickRep.PrinterSettings.PaperSize:=Executive;

         end;

    end;

end;

function rep_chanslateOrientation(var Rep_Orientation:integer):TPrinterOrientation;//將打印方式設置進行轉換

begin

    case  Rep_Orientation of

       0:begin

           result:=poPortrait;//0為豎直

           Form_rep.QuickRep.PrinterSettings.Orientation:=poPortrait;

         end;

       1:begin

           result:=poLandscape;//1為水平

           Form_rep.QuickRep.PrinterSettings.Orientation:=poLandscape;

         end;

    end;

end;

function  Open_IniFile():Tinifile;//打開臨時文件

var Filename:string;

    Ini_Filename:string;

begin

     Filename:=’Report.ini’;

     Ini_Filename:=File_Path+Filename;

     Result:=Tinifile.Create(Ini_Filename);

end;

procedure Read_Rep_Summary(Inifile_Name:Tinifile);//讀取報表的摘要信息

var  Rep_Page,Rep_Orientation:integer;

begin

    rep_Page:=Inifile_Name.Readinteger('rep_detail','Page',1);

    Rep_Orientation:=Inifile_Name.Readinteger('rep_detail','Orientation',0);

    with  rep_Summary do

     begin

       Columns:=Inifile_Name.Readinteger('rep_detail','columns',0);

       Title:=Inifile_Name.Readstring('rep_detail','Title','未命名報表');

       page:=rep_chanslatepage(Rep_Page);//將打印頁尺寸進行轉換

       Orientation:=rep_chanslateOrientation(Rep_Orientation);//將打印方式設置進行轉換

     end;

end;

procedure  Read_Col_Summary(Inifile_Name:Tinifile);//讀取報表列的摘要信息

var i_count:integer;

begin

     //將列信息保存在數組中

     with Rep_Col_Sum_store do

     begin

       SetLength(Caption_array,rep_Summary.Columns);

       SetLength(DataFiled_array,rep_Summary.Columns);

       SetLength(Width_array,rep_Summary.Columns);

     end;

     for i_count:=0 to rep_Summary.Columns-1 do

     begin

       with Rep_Col_Summary do

         begin

           Caption:=Inifile_Name.Readstring('col_'+inttostr(i_count),'Caption','未命名');

           DataFiled:=Inifile_Name.Readstring('col_'+inttostr(i_count),'DataFiled','');

           Width:=Inifile_Name.Readinteger('col_'+inttostr(i_count),'Width',0);

         end;

       with Rep_Col_Sum_store  do

         begin

           Caption_array[i_count]:=Rep_Col_Summary.Caption;

           DataFiled_array[i_count]:=Rep_Col_Summary.DataFiled;

           Width_array[i_count]:=Rep_Col_Summary.Width;

         end;

    end;

end;

procedure DynCreat_TQRRichtext(Colum_Num:integer);//動態創建TQRRichtext控件,此控件用來顯示報表每列的中文名稱

var Colum_Name_list:TStrings;

begin

     Colum_Name[Colum_Num]:=tQRRichtext.Create(application); //創建TQRRichtext控件

     Colum_Name[Colum_Num].Parent:=Form_rep.ColumnHeaderBand1;

     Colum_Name[Colum_Num].Frame.DrawTop:=true;

     Colum_Name[Colum_Num].Frame.DrawBottom:=true;

     Form_rep.ColumnHeaderBand1.Height:=40;

     Colum_Name[Colum_Num].Height:=40;

     Colum_Name[Colum_Num].Font.Height:=-14;

     Colum_Name[Colum_Num].Font.Name:='黑體';

     Colum_Name[Colum_Num].Top:=0;

     Colum_Name[Colum_Num].Alignment:=taCenter;

     Colum_Name[Colum_Num].AutoStretch:=false;

      //畫表格線

     Colum_Name[Colum_Num].Frame.Style:=psSolid;

     Colum_Name[Colum_Num].Frame.Width:=1;

     Colum_Name[Colum_Num].Frame.DrawRight:=true;

     Colum_Name[Colum_Num].Frame.DrawBottom:=true;

     if Colum_Num=0 then

        begin

          Colum_Name[Colum_Num].Frame.DrawLeft:=true;

        end;

     //將記錄RRep_Col_Sum_store中的信息賦給Colum_Name

     Colum_Name_list:=TStringList.Create;

     Colum_Name_list.Add(Rep_Col_Sum_store.Caption_array[Colum_Num]);

     Colum_Name[Colum_Num].Lines:=Colum_Name_list;

     Colum_Name[Colum_Num].Width:=Rep_Col_Sum_store.Width_array[Colum_Num];

     Colum_Name[Colum_Num].Visible:=true;

     //計算左邊界

     if Colum_Num>0 then

        Colum_Name[Colum_Num].Left:=Colum_Name[Colum_Num-1].Left+Colum_Name[Colum_Num-1].Width

     else

        Colum_Name[Colum_Num].Left:=0;

end;

說明：此處采用TQRRichtext控件是因為當名稱過長時，TQRRichtext控件可以自動換行。

procedure DynCreat_TQRDBText(Colum_Num:integer;Colum_Height:integer;DataSet_Name:TQuery);//動態創建TQRDBText控件，此控件用來顯示每列的值

begin

Colum_Data[Colum_Num]:=tQRDBText.Create(application);

    Colum_Data[Colum_Num].Parent:=Form_rep.DetailBand1;

    //設置數據集

    Colum_Data[Colum_Num].DataSet:=DataSet_Name;

    //將數組Colum_Data.DateField屬性設置為C_Rep_Col_Sum_store中的字段名

    Colum_Data[Colum_Num].DataField:=Rep_Col_Sum_store.DataFiled_array[Colum_Num];

    Colum_Data[Colum_Num].Width:=Rep_Col_Sum_store.Width_array[Colum_Num];

    Colum_Data[Colum_Num].Height:=Colum_Height;

    Form_rep.DetailBand1.Height:=Colum_Height;

    Colum_Data[Colum_Num].Top:=0;

    Colum_Data[Colum_Num].AutoSize:=false;

    Colum_Data[Colum_Num].AutoStretch:=false;

    Colum_Data[Colum_Num].WordWrap:=false;

    Colum_Data[Colum_Num].Visible:=true;

    //畫表格線

    Colum_Data[Colum_Num].Frame.Style:=psSolid;

    Colum_Data[Colum_Num].Frame.DrawRight:=true;

    Colum_Data[Colum_Num].Frame.DrawBottom:=true;

    if Colum_Num=0 then

      Colum_Data[Colum_Num].Frame.DrawLeft:=true;

    //計算左邊界

     if Colum_Num>0 then

       Colum_Data[Colum_Num].Left:=Colum_Data[Colum_Num-1].Left+Colum_Data[Colum_Num-1].Width

     else

        Colum_Data[Colum_Num].Left:=0;

end;

procedure DynCreat_TQuery(Inifile_Name:Tinifile);//動態設置TQuery控件的SQL語句

var

    Sql_command:string;

begin

     Flag_CreatQuery:=false;

     Sql_command:=Inifile_Name.Readstring('QureyData','Sql_Command','');

     Form_rep.REP_QUERY.Close;

     Form_rep.REP_QUERY.SQL.Clear;

     Form_rep.REP_QUERY.SQL.Append(Sql_command);

     if not Form_rep.REP_QUERY.Prepared then

       Form_rep.REP_QUERY.Prepare;

     try

       Form_rep.REP_QUERY.ExecSQL;

       Form_rep.REP_QUERY.Active:=true;

       Form_rep.REP_QUERY.AutoCalcFields:=true;

       Flag_CreatQuery:=true;

     except

       Application.MessageBox('SQL語句錯誤！','系統提示',MB_ICONWARNING);

       Flag_CreatQuery:=false;

     end;

end;

procedure Form_rep_init();

var  i_count:integer;

     Rep_IniFile:Tinifile;//