知识大全 Delphi+Word=数据库+公文处理[1]

Posted 2022-07-22 合同

篇首语：拼一个春夏秋冬，愿一生无怨无悔。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi+Word=数据库+公文处理[1]相关的知识，希望对你有一定的参考价值。

Delphi+Word=数据库+公文处理[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　Delphi擅长做数据库类的MIS开发但对于OA就有点力不从心了不过随着Microsoft的技术逐渐成熟现在普通Windows应用已经可以和Office 无缝结合了尤其是在Delphi 中提供了一组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] ); 　　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;

cha138/Article/program/Delphi/201311/24791