彩票走势图

如何用FASTREPORT实现WEB应用中自定义报表（一）

前面我们讲到FASTREPORT实现WEB应用中自定义报表，会用到REPORT SERVER、WEB SERVER、ACTIVEX三部分内容，现在就来说一下里面的ACTIVEX部分：

ACTIVEX

方案中的ACTIVEX控件主要做两方面的事情，一是报表利用FASTREPORT控件进行报表处理，包括报表设计（.frf文件）和报表打印（.frp文件）。一是与WEB SERVER进行通信，请求和接收包文件。

在DELPHI中NEW一个ActiveForm 应用，取名为reportAForm。在form中加入Combox、button、edit、label等与用户交互的控件；为了处理报表，加入FASTREPORT的多个frSpeedButton用于处理报表事件，如设计、预览、打印、翻页、保存等；加入frReport、frDBDataSet、frDesigner等用于在运行时设计报表；如果设计报表时要使用图形、复选框等内容，也要加入相应的控件；加入frPreview、frTextExport、frRTFExport等控件使可以预览报表并可以将报表输出为text、rtf等格式文件；加入ADOQuery（根据实际需要可加入多个）为报表设计提供数据环境，ADOQuery不OPEN，不与数据库连接；加入NMHTTP用于与WEB SERVER联系。加入四个函数：DesignReport(rpFileName:String)，PrintReport(rpFileName:String)，unzipReportFiles(rpFileName:String)，getReportFile(rpFileName,mode:String)分别用于设计报表、打印报表、解压缩报表和向WEB SERVER发送请求以取得报表文件 。

getReportFile(rpFileName,mode:String)方法：

function TreportAForm.getReportFile(rpFileName,mode:String):bool
var
……
zipFileName:String;
begin
……
zipFileName:=StringReplace(rpFileName, ExtractFileExt(rpFileName),'.zip',
[rfReplaceAll, rfIgnoreCase]);
try
NMHTTP1.inputFileMode := TRUE;
NMHTTP1.body:='.\ '+ zipFileName;
NMHTTP1.Get('//www…./../report.jsp?rpFileName='+
rpFileName+'&mode='+mode);
Result:=true;
except
on Exception do
Result:=false;
end;
end;

函数getReportFile的作用是向WEB SERVER发送报表请求（通过NMHTTP的Get方法），并将返回的压缩包文件保存到本地硬盘（zipFileName）。

unzipReportFiles(rpFileName:String)方法：

function TreportAForm.unzipReportFiles(rpFileName:String) :boolean;
var
……
zipFileName,fileName:String;
zipCount:Integer;
begin
……
zipFileName:=StringReplace(rpFileName, ExtractFileExt(rpFileName),'.zip',
[rfReplaceAll, rfIgnoreCase]);
fileName:= ExtractFileName(rpFileName);
fileName:= ChangeFileExt(fileName,'.*');
try
VCLUnZip1.ZipName:= '.\'+ zipFileName;
VCLUnZip1.DestDir:= '.\';
VCLUnZip1.OverwriteMode:= Always;
VCLUnZip1.ReadZip;
VCLUnZi
p1.FilesList.Add(fileName);
zipCount:= VCLUnZip1.UnZip;
if zipCount = 0 then
result:=false
else
result:=true;
exce
on Exception do
result:=false;
end;
end;

函数unzipReportFiles的作用是将压缩包中的文件解压出来，供ACTIVEX使用。它与REPORT SERVER程序中的zipReportFiles刚好是个相反的过程。

DesignReport(rpFileName:String)方法：

function TreportAForm. DesignReport (rpFileName:String) :boolean;
var
dtfFileName,rpFileName:String;
fldlist:TStringList;
T: TStringField;
i:Integer;
begin
……
dtfFileName:=StringReplace(rpFileName, ExtractFileExt(rpFileName),'.dtf',
[rfReplaceAll, rfIgnoreCase]);//获得数据环境文件名
fldlist:=TStringList.Create;
fldlist.LoadFromFile(dtfFileName);
rpAdoquery.Fields.Clear;
for i := 0 to fldlist.Count - 1 do
begin
T := TStringField.Create(nil);
T.FieldName := fldlist[i];
T.Name := rpAdoquery.Name + T.FieldName;
rpAdoquery.Fields.add(T);
end;
FrReport1.LoadFromFile(rpFileName);
FrReport1.DesignReport;
end;

函数DesignReport先从.dtf（由REPORT SERVER生成）文件中恢复报表的数据环境，接着使用FASTREPORT的FrReport控件设计报表。在FASTREPORT中，对DataSet中的Field只关心名称（全部通过Variant类型处理），而并不关心数据类型，所以恢复报表的数据环境时，所有字段都当作String类型加入。样例假设报表只有一个名为rpAdoquery的DataSet。报表设计运行时窗口在ACTIVEX进程空间运行。
用户端设计好报表并保存后，需要将保存的报表文件（.frf）回送给服务器存储。文件上传对于大部分开发人员来说应该都是熟悉而简单的，该部分程序本文就省略了。

PrintReport(rpFileName:String)方法：

function TreportAForm. PrintReport (rpFileName:String) :boolean;
var
repFileName:String;
begin
……
repFileName:=StringReplace(rpFileName, ExtractFileExt(rpFileName),'.frp',
[rfReplaceAll, rfIgnoreCase]);//获得已准备的报表文件名
try
frPreview1.clear;
FrReport1.Preview:=nil;
FrReport1.clear;
FrReport1.LoadPreparedReport(repFileName);
FrReport1.Preview :=frPreview1;
FrReport1.ShowPreparedReport;
result:=true;
except
on Exception do
result:=false;
end;
end;

函数PrintReport装入由REPORT SERVER运行好的报表.frp文件，通过调用FrReport的ShowPreparedReport方法在ACTIVEX端预览和打印。

方案实现方法的介绍结束。本方案具有的优点为：保持应用的结构形式不变（B/S），将C/S应用结构下已非常成熟的报表方案移植过来，使得在WEB应用中也可实现任意复杂的报表设计和打印，以及对打印效果进行精确控制。