Delphi和Office程序开发

关键词：delphi；word；excel；报表；

 

 

1．引言

 

在利用delphi开发应用程序的时候，通常我们要设计出很多各种格式的文档、报表，经常要进行文件的创建、编辑及修改，虽然delphi本身提供了很多设计报表的控件或方法，但是存在明显的不足，比如中文输入，数据格式的控制等操作起来比较麻烦。利用大家都很熟悉的office工具结合开发，能够很好的解决这方面的问题。以下就以delphi为例详细介绍怎么利用office完成各种文档、报表的制作。

 

2．实现方法

 

利用delphi和office结合开发主要有以下三种方法：

 

(1) 通过delphi的控件tolecontainer 将office嵌入，这是最简单的ole嵌入，能够直接将office文档调用，只需要使用tolecontainer.run就可以将office文档直接启动。且这样启动的office文档与delphi程序是一个整体（从界面上看），但是它存在不可克服的缺点，即不能通过delphi控制office文档，也就不能实现将灵活操纵office的目的。

 

(2) 使用delphi提供的servers控件调用office，使用office的属性，使用delphi的servers控件来操纵office，在编程时delphi能够实现代码提示，总体上看能够较好的实现delphi对office的控制，但是还有一些office的功能不能在delphi中调用（比如自己编写的vba宏代码）。且实现功能时本来在vba代码中可选择参数在delphi调用的时候必须添加，否则，连编译都不能通过。这种方式启动的office与delphi程序分属两个窗体。

 

　　(3) 使用createoleobject将启动office，然后以ole方式对office进行控制。这种办法是使用以createoleobjects方式调用office，实际上还是ole，但是这种方式能够真正做到完全控制office文件，能够使用office的所有属性，包括自己编写的vba宏代码。与servers控件和com技术相比，本方法能够真正地使用office的各种属性，和在vba中编写自己的代码基本一样，可以缺省的代码也不需要使用。

 

3．软件实现

 

3．1第一种方法：通过delphi的控件tolecontainer 将office嵌入，操作方法如下：

 

（1） 调用delphi中system页控件tolecontainer实现；

 

（2） 双击olecontainer，出现如下界面：

(3)这时你可以进行选择了，选择＆#8220;由文件创建＆#8221;，选择相应的文档，及就简单的实现了将office文档调入的功能；如下图：

 

 

3．2第二种方法：使用delphi提供的servers控件调用office；它使得我们很容易地把office中的应用程序(word, excel, powerpoint, outlook and access等)当作一个com应用服务器进行控制，以word为例，介绍其实现方法：

 

（1） 调用tworddocument（建立word文件对象）、twordapplication（启动word并建立同word的连接） 、twordfont（设置word文件的字体）、twordparagraphformat（设置word文件中的段落格式）控件；

 

（2） 启动word，通过twordapplication实现；

 

try

 

wordapplication.connect;

 

except

 

messagedlg(word may not be installed, mterror, [mbok], 0);

 

abort;

 

end;

 

(3)创建一个新的文件，通过twordapplication实现；

 

template := emptyparam; //表示不使用模板

 

newtemplate := false; //表示新建新建文档的类型为文档，

 

//添加新文档

 

wordapplication.documents.add(template, newtemplate); worddocument.connectto(wordapplication.documents.item(itemindex));

 

//关闭拼音查找和语法查找，以便提高程序运行的效率

 

wordapplication.options.checkspellingasyoutype := false;

 

wordapplication.options.checkgrammarasyoutype := false;

 

（3） 插入数据，通过tworddocument实现；

 

//文本

 

worddocument.range.insertafter(oracle数据库 chr(#13));

 

//表格

 

worddocument1.tables.add(worddocument1.range,rownum,colnum,template,newtemplate); //其中rownum是表格行数，colnum 是表格列数

 

//向表格中插入数据

 

worddocument1.tables.item(1).cell(1,1).range.text:=证书编号;

 

worddocument1.tables.item(1).cell(1,2).range.text:=身份证号码

 

（4） 格式的设置

 

wordfont.connectto(worddocument.sentences.getlast.font);//设置某些文字

 

wordfont.connectto(worddocument.paragraphs.getlast.font);//设置某段文字

 

wordfont.bold:=1;

 

wordfont.italic:=1;........................

 

worddocument1.pagesetup.headerdistance:=1.5; //设置页边距

 

worddocument1.pagesetup.footerdistance:=1.75;

 

//设置页眉页脚

 

worddocument1.activewindow.activepane.view.seekview:=wdseekcurrentpagefooter; worddocument1.activewindow.activepane.selection.insertafter(第 inttostr(wdfieldnumpages) 页);

 

//让页脚向右靠齐

 

worddocument1.activewindow.activepane.selection.paragraphformat.alignment:=wdalignparagraphright;

 

..............................

 

3．3第三种方法：使用createoleobject将启动office，然后以ole方式对office进行控制。以excel表格为例（表格的格式可以是事先设定好的，也可以是自己自由定义的，这里以事先设定好表格的格式为例），进行说明：

 

（1） 在uses中添加comobj类；

 

（2） 申请一个全局变量：fvexcel ，类型为variant; 表示是excel对象

 

（3） 定义一个函数用来启动excel，如定义function openexcel(strfilename : string) : boolean;

 

function tform1. openexcel(strfilename : string) : boolean;

 

begin

 

result := true;

 

try

 

fvexcel := createoleobject(excel.application);

 

except

 

application.messagebox(打开excel失败,pchar(application.title),mb_iconerror);

 

result := false;

 

end;

 

fvexcel.visible := true;

 

fvexcel.caption := ;

 

fvexcel.workbooks.open(strfilename); //打开工作簿

 

fvexcel.worksheets[1].activate; //设置第1个工作表为活动工作表

 

end;

 

（4） 向fvexcel中插入数据

 

fvexcel.cells[row,col].value:=＆#8217;中国＆#8217;;//row表示行，col表示列；

 

（5） 设置格式

 

fvexcel.rows[row].font.color:=clred; //设置某一行数据的颜色

 

fvexcel.activesheet.pagesetup.leftmargin:=1;//设置左页边距

 

fvexcel.activesheet.pagesetup. rightmargin:=1;//设置右页边距

 

fvexcel.activesheet.pagesetup.zoom:=100;//设置显示比例

 

fvexcel.activesheet.pagesetup.papersize:= xlpapera4;//设置打印纸张大小

 

4．一些体会

 

在程序设计过程中，我们很多时候要设置office文档、表格的格式，这时要用到很多属性、方法和函数等，这些属性、方法和函数一般是平时很少用到的，如果手上没有vba手册，很难查找到这些东西，所以，比较好的方法是首先打开office，事先做好你要设计的格式，通过office中的宏记录，然后打开office中的visual basic编辑器，查看代码就可以看到你的操作使用到的属性、方法或者函数了。通常很多属性、函数或者方法可以直接搬到delphi程序中用，一部分也只要稍微修改，也可以在delphi中使用了。

 

5．结束语

 

通过delphi可以很完美的和office结合，设计出各种样式的表格、文本以及幻灯片等。同时通过delphi操作数据库，把要求的数据插入office适当的位置，通过office本身的功能实现预览、打印和保存，从而减少节约程序调试和定位调试的时间，简化的编程的难度，减少了程序员的工作量。对于用户来讲，采用大家熟悉的office，增加了系统可操作性。该思想已经在＆#8220;职称评审管理信息系统＆#8221;中大量使用。