在Delphi中如何把数据库中的记录引到word中
2004-02-17 18:49
302 查看
在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 添加文本"
此问题由黄威回答。
编号: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 添加文本"
此问题由黄威回答。
相关文章推荐
- 在Delphi中如何把数据库中的记录引到word中
- 如何用DELPHI实现把WORD、EXCEL和图片等存储到数据库中
- 如何用DELPHI实现把WORD、EXCEL和图片等存储到数据库中
- 如何统计数据库中内容类型基本相同的记录,具体看下面需求:
- Android如何获取QQ与微信的聊天记录并保存到数据库详解
- 如何将word中的数据导入到数据库中
- 如何删除数据库中重复的记录
- 如何删除数据库中重复的记录
- 数据库查询优化方案(处理上百万级记录如何提高处理查询速度)
- 如何在Struts 数据库应用程序中实现记录的删除、更新及链接(续)
- ACCESS和MSSQL-如何随机读取数据库记录
- 如何在Struts 数据库应用程序中实现记录的添加(续)
- mshflexgrid如何删除当前鼠标选择的行,并且一并删除行所对应的数据库中的记录
- 如何删除数据库中重复的记录
- PHP+MYSQL如何插入记录到数据库
- log4net 如何跨域或者跨进程日志记录在同一个日志文件中以及数据库中
- 如何得到JDBC Insert 语句执行后插入Oracle 数据库记录的主键
- 【数据库中根本未做记录,如何取证?】
- 在Delphi中如何动态创建dbf数据库(二)?
- 如何在Struts 数据库应用程序中实现记录的添加