开发者社区> 风月无边> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

Delphi + Word = 数据库 + 公文处理

简介: Delphi擅长做数据库类的MIS开发,但对于OA就有点力不从心了。不过随着Microsoft的COM技术逐渐成熟,现在普通Windows应用已经可以和Office97无缝结合了,尤其是在Delphi 5中提供了一组Servers组件,更是简化了程序开发。 最近接触了一个用户的案例,用Delphi控制Word做一个合同管理程序。办公人员先根据业务需要,写好合同的文字,但在用户名称、产品名称
+关注继续查看

Delphi擅长做数据库类的MIS开发,但对于OA就有点力不从心了。不过随着Microsoft的COM技术逐渐成熟,现在普通Windows应用已经可以和Office97无缝结合了,尤其是在Delphi 5中提供了一组Servers组件,更是简化了程序开发。

最近接触了一个用户的案例,用Delphi控制Word做一个合同管理程序。办公人员先根据业务需要,写好合同的文字,但在用户名称、产品名称等变化的位置填写指定的标记字符串,然后通过Delphi把数据库中的实际数据替换掉Word中的文字,最后让Word打印出合同。

Delphi自带了一个简单的Word例题,但功能太简单。通过查找VBA的说明,再对照Delphi的VCL,编写了如下代码,实现了基本的公文管理功能。

启动Word时用如下代码:

begin
try 
Wordapplication.Connect; 
except 
MessageDlg(
'Word may not be installed', mtError, [mbOk], 0); 
Abort; 
end; 
Wordapplication.Visible :
= True; 
WordApplication.Caption :
= 'Delphi automation'
end; 

 

关闭Word用如下代码。如果想保存Doc文件,请修改SaveChanges变量的内容:

var 
SaveChanges, OriginalFormat, RouteDocument: OleVariant; 
begin 
SaveChanges :
= WdDoNotSaveChanges; 
OriginalFormat :
= UnAssigned; 
RouteDocument :
= UnAssigned; 
try 
WordApplication.Quit(SaveChanges, OriginalFormat, RouteDocument); 
WordApplication.Disconnect; 
except 
on E: Exception 
do 
begin 
Showmessage(E.Message); 
WordApplication.Disconnect; 
end; 
end; 
end; 

 

让Word打开一个指定的文件,需要先放置OpenDialog,然后调用WordApplication.Documents.Open:

var 
ItemIndex :OleVariant; 
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, 
PassWordDocument, PassWordTemplate, Revert, 
WritePassWordDocument, WritePassWordTemplate, Format: OleVariant; 
begin 
if not dlgOpen.Execute then 
Exit; 

...{Open document} 
FileName :
= dlgOpen.FileName; 
ConfirmConversions :
= False; 
ReadOnly :
= False; 
AddToRecentFiles :
= False; 
PassWordDocument :
= ''
PassWordTemplate :
= ''
Revert :
= True; 
WritePassWordDocument :
= ''
WritePassWordTemplate :
= ''
Format :
= wdOpenFormatDocument; 

WordApplication.Documents.Open( FileName, ConfirmConversions, 
ReadOnly, AddToRecentFiles, PassWordDocument, PassWordTemplate, 
Revert, WritePassWordDocument, WritePassWordTemplate, Format ); 

...{Assign WordDocument component} 
ItemIndex :
= 1
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex)); 

...{Turn Spell checking of because it takes a long time if enabled and slowsdown WinWord} 
WordApplication.Options.CheckSpellingAsYouType :
= False; 
WordApplication.Options.CheckGrammarAsYouType :
= False; 
end; 

当我们安装delphi时选择的是xp样式的即使用WordXP时,这里的代码需要更改为这样

var ItemIndex :OleVariant; 
 FileName, ConfirmConversions,ReadOnly,AddToRecentFiles,PasswordDocument, PasswordTemplate,Revert: OleVariant;
 WritePasswordDocument,WritePasswordTemplate,Format: OleVariant;
 Encoding,Visible,OpenAndRepair,DocumentDirection,NoEncodingDialog: OleVariant;

begin
if not dlgOpen.Execute then
Exit;

//...{Open document}
FileName := dlgOpen.FileName;
ConfirmConversions :
= False; 
ReadOnly :
= False; 
AddToRecentFiles :
= False; 
PassWordDocument :
= '';
PassWordTemplate :
= ''
Revert :
= True;
WritePassWordDocument :
= ''
WritePassWordTemplate :
= '';
   Format:=wdFormatDocument;
   
//Encoding 
   Visible:=true;
   WordApplication1.Disconnect;
   WordApplication1.documents.Open(FileName,ConfirmConversions,
                 ReadOnly,AddToRecentFiles, 
                 PasswordDocument,PasswordTemplate, 
                 Revert,WritePasswordDocument,WritePasswordTemplate,Format,
                 Encoding,Visible,OpenAndRepair,DocumentDirection,NoEncodingDialog);
  WordApplication1.Visible:
=true;
...{Assign WordDocument component}
ItemIndex :
= 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));

...{Turn Spell checking of because it takes a long time if enabled and slows down Winword}
WordApplication1.Options.CheckSpellingAsYouType :
= False;
WordApplication1.Options.CheckGrammarAsYouType :
= False;

end;

 

让Word替换标记字符串要使用WordDocument.Range.Find.Execute,这里用Delphi替换了<#Name>:

var 
FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike,
MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace: OleVariant;
begin 
FindText :
= '<#Name>'
MatchCase :
= False; 
MatchWholeWord :
= True; 
MatchWildcards :
= False; 
MatchSoundsLike :
= False; 
MatchAllWordForms :
= False; 
Forward :
= True; 
Wrap :
= wdFindContinue; 
Format :
= False; 
ReplaceWith :
= 'Delphi'
Replace :
= True; 

WordDocument.Range.Find.Execute( FindText, MatchCase, MatchWholeWord,
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, 
Wrap, Format, ReplaceWith, Replace ); 

end; 

上面这4段代码完成了公文管理的基本功能,再把它和数据库结合起来,就可以开发一个与Lotus Notes类似的产品了。

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
数据挖掘过程中:数据预处理
 在数据分析之前,我们通常需要先将数据标准化(normalization),利用标准化后的数据进行数据分析。数据标准化也就是统计数据的指数化。数据标准化处理主要包括数据同趋化处理和无量纲化处理两个方面。
1692 0
数据库负载急剧提高的应急处理
今天处理了一起紧急问题,回过头来看还是有不少需要注意的地方。 首先是收到了报警,有一台DB服务器的负载有一些高,但是会快就恢复了。所以自己也没有在意,但是过了大概40多分钟,又接到一封报警邮件,而且随着报警频繁,感觉真是出了问题,在中控机器上使用ssh连接竟然都抛出了异常。
943 0
【Web API系列教程】3.4 — 实战:处理数据(处理实体关系)
前言 本部分描述了EF如何加载相关实体的细节,并且如何在你的模型类中处理环形导航属性。(本部分预备了背景知识,而这不是完成这个教程所必须的。
871 0
Storm的数据处理编程单元:Bolt 学习整理
  Bolt是Topology中的数据处理的单元,也是Storm针对处理过程的编程单元。Topology中所有的处理都是在这些Bolt中完成的,编程人员可以实现自定义的处理过程,例如,过滤、函数、聚集、连接等计算。
785 0
php 发送超大数据处理
set_time_limit(0);//设置永不超时 ignore_user_abort(); //设置客户端断开,继续处理 //总数 $allusercount= $this->gamedb_model->query_onerow(); $allcoun...
633 0
+关注
风月无边
java,架构方面专家
文章
问答
文章排行榜
最热
最新
相关电子书
更多
阿里云数据库案例集下载
立即下载
ORACLE 10g 数据库体系结构图
立即下载
低代码开发师(初级)实战教程
立即下载