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数据库操作方面的书籍,大都对数据库泛泛而淡;几年前在书店看过一本书讲到怎样封装...第一卷:DELPHI+SQLSERVER数据库应用系统开发与实例part1地址: http://download.csdn.net/detail/stzxx/4494900
《Delphi+SQL Server数据库应用实例完全解析》是一本深入探讨如何使用Delphi开发应用程序并与SQL Server数据库进行交互的专业书籍。Delphi是一款强大的Windows应用程序开发工具,以其高效的编译器和直观的RAD(快速...
《Delphi+SQL Server数据库应用系统开发与实例》是一本深度探讨如何利用Delphi编程语言与Microsoft SQL Server数据库管理系统相结合,构建高效、稳定的数据库应用系统的专业书籍。这本书旨在为开发者提供一套全面的...
Delphi + SQL Server数据库应用系统开发与实例
Delphi + SQL Server数据库应用系统开发与实例
这些信息将存储在数据库中的车辆表中,通过Delphi的DBGrid控件展示,DBNavigator控件处理增删改查操作。 3. **租赁业务处理**:租赁流程包括预订、签约、还车等环节。系统应能记录租赁时间、费用计算、押金管理等,...
《Delphi结合数据库构建汽车管理系统》 在信息技术领域,开发高效、实用的管理信息系统是企业提升效率的关键。本文将深入探讨如何使用Delphi编程环境,结合Access数据库,构建一款汽车管理系统,以满足汽车行业对...
《Delphi结合数据库构建物业管理系统》 在信息技术日益发达的今天,物业管理系统已经成为了现代社区管理不可或缺的一部分。本文将深入探讨如何使用Delphi这一强大的RAD(快速应用开发)工具,结合SQLServer2000...
数据库:SQLServer2000 数据库脚本:tlcyglxt.sql(data文件夹内) 附加数据库文件:Tlcyglxt.mdf(data文件夹内) ODBC:tlcyglxt 操作员 mingrisoft 密码 mingrisoft
几乎所有Delphi数据库操作方面的书籍,大都对数据库泛泛而淡;几年前在书店看过一本书讲到怎样封装数据库操作,当时没买下来,后来一直找不到这本书,今天在网上终于发现有讲delphi封装数据库操作的书,不过是我看到...
《DELPHI+SQL_SERVER数据库应用系统开发与实例+源代码》是一本专注于使用DELPHI编程语言结合SQL Server数据库进行应用系统开发的教程。它深入浅出地讲解了如何利用这两者构建高效、稳定的数据库管理系统。以下是该...
数据库开发用 DELPHI+SQL_SERVER数据库应用系统开发与实例+源代码 分两卷,下载请两卷下完后再解压
《Delphi + SQL Server数据库应用实例完全解析》是一本深入探讨如何使用Delphi编程环境与Microsoft SQL Server数据库进行高效交互的书籍。这本书旨在为开发者提供详尽的指导,帮助他们理解并掌握在Delphi中设计、...
本书首先介绍了 Delphi 和SQL Server 2000 开发的必备知识,然后完整地介绍了几个使用Delphi 开发SQL Server 2000数据库应用程序的实例,包括人事工资管理系统、仓库管理系统、车队管理系统和超市管理系统。...
这个“delphi+sql万能数据库连接示例”可能包含了以上这些基本操作的实例,通过查看源代码,你可以更深入地了解如何在Delphi中使用ADO连接SQL数据库,从而在自己的项目中灵活运用。这个示例对于初学者来说是一个很好...
通过上述步骤,我们可以创建一个高效的Delphi应用程序,它能够无缝地与Word集成,提供用户友好的界面,使数据库数据的处理和展示变得更加便捷。这个“与Word无缝连接”的压缩包文件很可能是包含了一个完整的示例项目...
Delphi 10.1 Berlin DataSnap 开发手册 扫描版.pdf+Delphi 10.1 Berlin DataSnap 开发手册 扫描版.源码delphi101datasnap.zip
结合SQL数据库,Delphi可以用于构建强大的数据驱动应用程序,如描述中提到的“部门编号,工资核算,销售订单与采购订单,人事档案与招聘信息”等功能。下面将详细介绍Delphi和SQL数据库结合使用时的关键知识点。 1....