Delphi + Word = 数据库 + 公文处理
来源:互联网 发布:知乎引流怎么做 编辑:程序博客网 时间:2024/05/20 12:47
孙立
Delphi擅长做数据库类的MIS开发,但对于OA就有点力不从心了。不过随着Microsoft的COM技术逐渐成熟,现在普通Windows应用已经可以和Office 97无缝结合了,尤其是在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 slows down Winword}
WordApplication.Options.CheckSpellingAsYouType := False;
WordApplication.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类似的产品了。
孙立
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=3133
- Delphi + Word = 数据库 + 公文处理
- Delphi + Word = 数据库 + 公文处理
- Delphi + Word = 数据库 + 公文处理
- Delphi + Word = 数据库 + 公文处理
- 手机公文处理/xMAP
- 公文处理流程
- OA 公文处理
- 党政机关公文处理工作条例
- Delphi数据库处理
- Delphi数据库处理
- Delphi数据库处理
- Delphi数据库处理
- 党政机关安全公文处理系统
- 利用 LotusScript 实现 Microsoft Word 文档在公文流转中的公文留痕
- C# Word操作 "公文留痕" 之 修订操作者
- 怎样用word制作标准格式公文操作实例
- Delphi数据库处理(感谢:neverdeath)
- 在Delphi中处理数据库日期型字段的显示与输入===>>>主
- 在DELPHI中用线程排序
- 聊天室内看人家的IP
- 一个实用的Delphi屏幕拷贝程序的设计
- 用InstallShield制作数据库应用系统的安装程序(2000年8月17日) 作者:新疆 宗宏斌
- 连接数据库查询手册(不仅仅适用于asp)
- Delphi + Word = 数据库 + 公文处理
- 怎样处理数据库中的NULL
- 用VC++编写扫雷游戏
- COM/DCOM中如何传递数组
- 监视剪贴板内容
- 用CFileFind类实现的目录树遍历
- IIS5.0服务器web目录结构信息 (MS,缺陷)
- 微软Windows2000发现重大安全漏洞
- WIN2000登陆漏洞最终解决方法