用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧Delphi

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

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 20:02:46

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可自动写出代码。一孔之见仅供参考。

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:6,171.87500 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号