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+SQL Server数据库应用实例完全解析 光盘内容。
几乎所有Delphi数据库操作方面的书籍,大都对数据库泛泛而淡;几年前在书店看过一本书讲到怎样封装...第一卷:DELPHI+SQLSERVER数据库应用系统开发与实例part1地址: http://download.csdn.net/detail/stzxx/4494900
Delphi+SQL Server数据库应用系统开发与实例,对学习SQL Server数据库应用很有帮助
Delphi + SQL Server数据库应用系统开发与实例
Delphi + SQL Server数据库应用系统开发与实例
数据库:Access ODBC user 操作员 mingrisoft 密码 mingrisoft
数据库:Access 操作员 mingrisoft 密码 mingrisoft
数据库:SQLServer2000 数据库脚本:wygl.sql(data文件夹内) 附加数据库文件:wygl.mdf(data文件夹内) 操作员 系统管理员 密码 mingrisoft
数据库:SQLServer2000 数据库脚本:tlcyglxt.sql(data文件夹内) 附加数据库文件:Tlcyglxt.mdf(data文件夹内) ODBC:tlcyglxt 操作员 mingrisoft 密码 mingrisoft
数据库:SQLServer 附加数据库文件:销售管理系统_Data.MDF(database文件夹内) 操作员 mingrisoft 密码 mingrisoft
几乎所有Delphi数据库操作方面的书籍,大都对数据库泛泛而淡;几年前在书店看过一本书讲到怎样封装数据库操作,当时没买下来,后来一直找不到这本书,今天在网上终于发现有讲delphi封装数据库操作的书,不过是我看到...
DELPHI+SQL_SERVER数据库应用系统开发与实例+源代码。
数据库开发用 DELPHI+SQL_SERVER数据库应用系统开发与实例+源代码 分两卷,下载请两卷下完后再解压
delphi+sql万能数据库连接示例,自己初学delphi时写的,相信对入门学习delphi进行ADO连接SQL的朋友有些帮助....rar
本书首先介绍了 Delphi 和SQL Server 2000 开发的必备知识,然后完整地介绍了几个使用Delphi 开发SQL Server 2000数据库应用程序的实例,包括人事工资管理系统、仓库管理系统、车队管理系统和超市管理系统。...
仓库管理系统(Delphi+SQL数据库)
Delphi_+SQL_Server数据库应用实例完全解析
大三做的 有点简单 学生管理系统delphi+access