`
xzknet
  • 浏览: 306347 次
  • 性别: Icon_minigender_1
  • 来自: 河南
文章分类
社区版块
存档分类
最新评论

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类似的产品了。

分享到:
评论

相关推荐

    DELPHI+SQLSERVER数据库应用系统开发与实例part2

    几乎所有Delphi数据库操作方面的书籍,大都对数据库泛泛而淡;几年前在书店看过一本书讲到怎样封装...第一卷:DELPHI+SQLSERVER数据库应用系统开发与实例part1地址: http://download.csdn.net/detail/stzxx/4494900

    《Delphi+SQL Server数据库应用实例完全解析》光盘内容

    《Delphi+SQL Server数据库应用实例完全解析》是一本深入探讨如何使用Delphi开发应用程序并与SQL Server数据库进行交互的专业书籍。Delphi是一款强大的Windows应用程序开发工具,以其高效的编译器和直观的RAD(快速...

    Delphi+SQL Server数据库应用系统开发与实例

    《Delphi+SQL Server数据库应用系统开发与实例》是一本深度探讨如何利用Delphi编程语言与Microsoft SQL Server数据库管理系统相结合,构建高效、稳定的数据库应用系统的专业书籍。这本书旨在为开发者提供一套全面的...

    Delphi + SQL Server数据库应用系统开发与实例.part1

    Delphi + SQL Server数据库应用系统开发与实例

    Delphi + SQL Server数据库应用系统开发与实例.part2

    Delphi + SQL Server数据库应用系统开发与实例

    delphi+数据库=汽车租赁管理系统

    这些信息将存储在数据库中的车辆表中,通过Delphi的DBGrid控件展示,DBNavigator控件处理增删改查操作。 3. **租赁业务处理**:租赁流程包括预订、签约、还车等环节。系统应能记录租赁时间、费用计算、押金管理等,...

    delphi+数据库=汽车管理系统

    《Delphi结合数据库构建汽车管理系统》 在信息技术领域,开发高效、实用的管理信息系统是企业提升效率的关键。本文将深入探讨如何使用Delphi编程环境,结合Access数据库,构建一款汽车管理系统,以满足汽车行业对...

    delphi+数据库=物业管理系统

    《Delphi结合数据库构建物业管理系统》 在信息技术日益发达的今天,物业管理系统已经成为了现代社区管理不可或缺的一部分。本文将深入探讨如何使用Delphi这一强大的RAD(快速应用开发)工具,结合SQLServer2000...

    delphi+数据库=餐饮管理软件

    数据库:SQLServer2000 数据库脚本:tlcyglxt.sql(data文件夹内) 附加数据库文件:Tlcyglxt.mdf(data文件夹内) ODBC:tlcyglxt 操作员 mingrisoft 密码 mingrisoft

    DELPHI+SQLSERVER数据库应用系统开发与实例part1

    几乎所有Delphi数据库操作方面的书籍,大都对数据库泛泛而淡;几年前在书店看过一本书讲到怎样封装数据库操作,当时没买下来,后来一直找不到这本书,今天在网上终于发现有讲delphi封装数据库操作的书,不过是我看到...

    DELPHI+SQL_SERVER数据库应用系统开发与实例+源代码

    《DELPHI+SQL_SERVER数据库应用系统开发与实例+源代码》是一本专注于使用DELPHI编程语言结合SQL Server数据库进行应用系统开发的教程。它深入浅出地讲解了如何利用这两者构建高效、稳定的数据库管理系统。以下是该...

    DELPHI+SQL_SERVER数据库应用系统开发与实例+源代码 part1

    数据库开发用 DELPHI+SQL_SERVER数据库应用系统开发与实例+源代码 分两卷,下载请两卷下完后再解压

    Delphi_+SQL_Server数据库应用实例完全解析

    《Delphi + SQL Server数据库应用实例完全解析》是一本深入探讨如何使用Delphi编程环境与Microsoft SQL Server数据库进行高效交互的书籍。这本书旨在为开发者提供详尽的指导,帮助他们理解并掌握在Delphi中设计、...

    Delphi + SQL Server数据库应用系统开发与实例

    本书首先介绍了 Delphi 和SQL Server 2000 开发的必备知识,然后完整地介绍了几个使用Delphi 开发SQL Server 2000数据库应用程序的实例,包括人事工资管理系统、仓库管理系统、车队管理系统和超市管理系统。...

    delphi+sql万能数据库连接示例,自己初学delphi时写的

    这个“delphi+sql万能数据库连接示例”可能包含了以上这些基本操作的实例,通过查看源代码,你可以更深入地了解如何在Delphi中使用ADO连接SQL数据库,从而在自己的项目中灵活运用。这个示例对于初学者来说是一个很好...

    delphi+ word 编程

    通过上述步骤,我们可以创建一个高效的Delphi应用程序,它能够无缝地与Word集成,提供用户友好的界面,使数据库数据的处理和展示变得更加便捷。这个“与Word无缝连接”的压缩包文件很可能是包含了一个完整的示例项目...

    Delphi+10.1+Berlin+DataSnap+开发手册+PDF扫描版及源码.zip

    Delphi 10.1 Berlin DataSnap 开发手册 扫描版.pdf+Delphi 10.1 Berlin DataSnap 开发手册 扫描版.源码delphi101datasnap.zip

    Delphi+SQL数据库

    结合SQL数据库,Delphi可以用于构建强大的数据驱动应用程序,如描述中提到的“部门编号,工资核算,销售订单与采购订单,人事档案与招聘信息”等功能。下面将详细介绍Delphi和SQL数据库结合使用时的关键知识点。 1....

Global site tag (gtag.js) - Google Analytics