CSDN博客

img cwxiao888

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

发表于2004/2/17 18:49:00  784人阅读

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


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

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 添加文本"

此问题由黄威回答。

0 0

相关博文

我的热门文章

img
取 消
img