在Delphi中如何把数据库中的记录引到word中

核心提示：在Delphi中如何把数据库中的记录引到Word中 编号：QA004684建立日期: 2003年5月18日 最后修改日期：2003年5月20日 所属类别： Delphi - Office开发Delphi - 数据库 pq: 我用的系统是win2000，delphi是6.0版本，在Delphi中如何把数据库中的记录引到w

在Delphi中如何把数据库中的记录引到Word中

编号：QA004684
建立日期: 2003年5月18日 最后修改日期：2003年5月20日
所属类别：

Delphi - Office开发
Delphi - 数据库

pq:
　　我用的系统是win2000，delphi是6.0版本，word2000
　　请教：在delphi中要把数据库中的记录引到word中，建成表格的形式，要在word中一页上并排显示两个表格，如何实现呢？

回答:

　　我对这道题的回复是这样的：我处理过类似的问题，不过我是把数据倒到TXT里面。也是画成表格形式，不过我想是一样的。
　　重要的是你把一个变量设为 TStrings 的类型
　　如：
　　var
　　 TXTstr:TStrings;
　　begin
　　 TXTstr := TStringList.Create;
　　 TXTstr.Append('────────┬────┬─────┬─────┬─────'); //第0行
　　 TXTstr.Append('姓名 │'); //第一行
　　
　　.... //从数据库取值 到 TXTADO
　　 while not TXTADO.Eof do
　　 Begin
　　 TXTstr[1]:=TXTstr[1]+format('%8s',[TXTADO.FieldByName('XM').Asstring])+'│';
　　 TXTADO.next;
　　 end;
　　主持人注：完成这个问题，需要两个步骤，一个是读出数据库中的数据，另一个是利用Automation技术控制Word完成排版并保存为Word文件或者打印。第一个步骤上面已经介绍了，第二个步骤请参考：QA003053 "用Delphi4.0直接控制Word97"。
　　
　　loga的意见：
　　如果是VB，则可以在WORD中打开录制宏，再手工添加数据库记录，VBA可自动写出代码。一孔之见仅供参考。
　　
　　相关问题：
　　QA000836 "如何知道Excel97的命令集"
　　QA001381 "如何在VB中控制Word和Excel"
　　QA003819 "如何利用 OLE 向 Word 添加文本"

此问题由黄威回答。