在Delphi中如何把數據庫中的記錄引到word中

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

此問題由黃威回答。