Delphi + Word = 数据库 + 公文处理

孙立

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

孙立

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
### 回答1: 在Delphi 7中将Word文档导入数据库是可行的,下面是一种实现方法: 1. 首先,需要准备一个用于存储Word文档的数据库表,可以在数据库中创建一个表,包含一个BLOB字段,用于存储二进制文件数据。例如,可以创建一个名为"Documents"的表,包含一个名为"FileData"的BLOB字段。 2. 接下来,在Delphi 7中创建一个新的窗体或者数据模块,用于实现Word文档导入逻辑。 3. 在窗体或数据模块上添加一个TActionList组件,并在其中添加一个名为"actImportWord"的TAction。 4. 在窗体或数据模块的代码中,使用TADOConnection组件连接到数据库,确保连接字符串正确配置,并将其Connected属性设置为True。 5. 在TAction的OnExecute事件中,编写代码实现Word文档导入逻辑。可以使用TOpenDialog组件让用户选择要导入的Word文档。 6. 在代码中,使用TADOQuery组件或者TADOTable组件执行数据库插入操作,将Word文档的二进制数据存储到数据库表中。可以使用LoadFromFile方法加载Word文档文件,并将其二进制数据存储到BLOB字段中。 7. 如果需要,可以在数据库表中添加其他字段,用于存储文档的相关信息,比如文档名称、创建日期等。 8. 完成Word文档导入逻辑后,可以在界面上添加一个按钮或菜单项,并将其Action属性设置为"actImportWord",以触发Word文档导入操作。 通过上述步骤,在Delphi 7中可以实现将Word文档导入数据库的功能。需要注意的是,此方法仅适用于将Word文档的二进制数据存储到数据库,如果需要解析Word文档内容或进行其他操作,可能需要使用相关的库或组件来实现。 ### 回答2: 在 Delphi 7 中,可以通过使用 COM(Component Object Model,组件对象模型)对象操作 Word 文件,并将其导入数据库。 首先,需要通过引入 Word 的 COM 组件来进行操作。在 Delphi 中,可以通过使用“装载器”软件选择相应的组件进行导入。 然后,可以使用 Delphi 7 提供的 TADOConnection 组件来建立与数据库的连接。通过设置相应的连接字符串、用户名和密码等信息,确保成功连接到数据库。 接下来,使用 TADOQuery 组件来执行 SQL 查询语句。可以创建一个包含 Word 内容字段的数据表,并使用 INSERT INTO 语句将 Word 的内容导入到数据库中。 在 COM 组件中,可以使用 Word.Application 对象来打开 Word 文件。使用 Word 的对象模型,可以遍历文档的段落、表格、图片等内容,并将其提取到 Delphi 的变量中。 在 Delphi 中,可以通过使用 TADOQuery 的 Parameters 属性来绑定 SQL 查询语句中的参数。通过将 Word 文档中的内容赋值给 Parameters 绑定的变量,再通过执行 SQL INSERT 语句将内容插入到数据库中的相应字段。 最后,记得在操作完成后关闭 Word 文档,并释放相关的 COM 对象。这可以通过调用 Word.Document 的 Close 方法来关闭文档,关闭 Word.Application 对象等。 综上所述,通过使用 Delphi 7 中的 COM 组件操作 Word 文件,并利用 TADOConnection 和 TADOQuery 组件与数据库连接,可以将 Word 文档的内容导入数据库中。 ### 回答3: 要将Word文档导入Delphi 7中的数据库,你可以遵循以下步骤: 1. 首先,确保你已经安装了Microsoft Office组件,这将为你的Delphi 7提供Word的支持。 2. 在Delphi 7中创建一个新的应用程序或打开一个现有的项目。 3. 在你的Delphi程序中创建一个ADO连接组件,并设置连接字符串以连接到你的数据库。 4. 使用一个ADOQuery组件来执行SQL查询语句。你可以通过设置ADOQuery的SQL属性来编写SQL语句。 5. 创建一个Word应用程序对象,并打开你想要导入的Word文档。你可以使用下面的代码示例来实现: ```delphi var WordApp: variant; // Word应用程序对象 begin WordApp := CreateOleObject('Word.Application'); WordApp.Documents.Open('C:\Path\to\your\word\file.docx'); // 替换为你的Word文件路径 end; ``` 6. 使用Word对象模型来访问文档的内容。例如,你可以使用下面的代码示例来提取文档的文本内容: ```delphi var WordDocument: variant; // Word文档对象 Text: string; // 存储文本内容的变量 begin WordDocument := WordApp.ActiveDocument; Text := WordDocument.Content.Text; end; ``` 7. 将提取的文本内容插入到数据库中。你可以使用ADOQuery的ExecSQL方法来执行插入SQL语句,将文本内容作为参数传递给SQL语句。 8. 关闭Word文档和Word应用程序。 ```delphi WordDocument.Close; WordApp.Quit; ``` 最后,保存并运行你的Delphi 7应用程序,它将打开Word文档并将文本内容导入到数据库中。请注意,你可能需要根据你的数据库类型和表结构调整上述步骤中的代码。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

蝈蝈俊

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值