用Word做Delphi报表输出工具

　2006-02-04 13:28:18　来源：WEB开发网　　　

核心提示：笔者在实际应用中发现，报表的内容一般很少变动，用Word做Delphi报表输出工具，但其字体格式及版式是经常变动的，而且有时用户为了某种需要，录取更多的宏(如自动生成表格、填充文字、变动字体等宏命令)，并与数据库的各种表联系起来，不想修改数据库的真实内容而又要改变报表内容，如果用ReportSmith可以解决前者问题

笔者在实际应用中发现，报表的内容一般很少变动，但其字体格式及版式是经常变动的，而且有时用户为了某种需要，不想修改数据库的真实内容而又要改变报表内容。如果用ReportSmith可以解决前者问题，但对于后者则无能为力了，且其界面是英文的，不合用户习惯。如果用3.0中的TQReport的报表部件，则两者都不能实时解决，必须修改原代码后重新编译才能使用。而使用Word及Excel则完全可以克服以上不足。具体实现如下(以Word实现为例)：

首先用Word编辑报表格式，并排好版，把将要输出的数据项用表单域代替，并取名。这里我们暂时假设有表单域Item1及Item2(均为文本型),将这个文档存为模板文件Example.dot，然后按如下步骤进行：

1)运行Delphi3，在Form1里加入一个System部件集里的TDdeClientCov部件，取名为DdeExample,将其ConnectMode设为ddeManual(手动方式)；将DdeService设为‘(WinWord)’；将Serviceapplication设为‘WinWord’。

2)编写一个自定义过程，以激活Word，如下：
　　PRocedure Tform1.WordActive(Cmds: TStrings);
　　var
　　 WordPath: String;
　　begin
　　 if(not DdeExample.OpenLink) then {判断是否巳动态链接}
　　 begin
　　　　if(FindWindow('OpusApp', nil)=0) then
　　　　begin
　　　　　WordPath := 'C:msofficewinword';
　　　　　if(WordPath=') then
　　　　　　　ShowMessage('中文Word未安装或未设置路径，请安装设置Word中文版。')
　　　　 else begin
　　　　　　　DdeExample.ServiceApplication := WordPath+'Winword.exe';
　　　　　　　if(DdeExample.OpenLink) then {如果巳动态链接执行宏命令}　　　　　　
　　　　　　　　 DdeExample.ExecuteMacroLines(Cmds,False)
　　　　　　 else
　　　　　　　　 ShowMessage('无法启动Word中文版!');
　　　　　　　 DdeExample.ServiceApplication := 'WinWord.exe';
　　　　 end;
　　　 end
　　　 else begin{如果巳动态链接执行宏命令}
　　　　DdeExample.ExecuteMacroLines(Cmds,False);
　　　 end;
　　 end
　　 else
　　　 DdeExample.ExecuteMacroLines(Cmds,false);
　　end;

在private声明区里加入如下：
　　procedure ActiveWord(Cmds: TStrings);

3)在Form1中加入一个按钮Button1,在其onclick事件里写如下代码：
　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　　Cmds:TStringList;{创建Cmds}
　　　TempItem1,TempItem2:String;
　　begin
　　　cmds:=TStringList.Create;
　　　cmds.Clear;
　　　TempItem1:='数据项一';
　　　TempItem2:='数据项二';
　　　with Cmds do
　　　begin
　　　　Clear;
　　　　Add('[FileNew.Template ="Example.Dot″]');{打开模板文件Example.Dot}
　　　　Add('[AppMaximize]');{文档最大化}
　　　　Add('[SetFormResult"Item1″,″'+TempItem1+'″]');{将数据TempItem1传给表单域Item1}
　　　　Add('[SetFormResult"Item2″,″'+TempItem2+'″]);{将数据TempItem2传给表单域Item2}
　　　end;
　　　WordActive(DdeExample,Cmds);{调用自定义过程}
　　　Cmds.Free;{释放Cmds}
　　end;