autoctl.pas

Delphi高级程序开发配书源代码,可以循序渐进的学习Delphi.

unit AutoCtl;
 {这个程序演示了使用Word作为自动化服务器，Delphi地自动化控制器是如何将一个查询结果插入到word文档中}

interface

uses Windows, Classes, SysUtils, Graphics, Forms, Controls, DB, DBGrids,
  DBTables, Grids, StdCtrls, ExtCtrls, ComCtrls, Dialogs;

type
  TForm1 = class(TForm)
    Query1: TQuery;
    Panel1: TPanel;
    InsertBtn: TButton;
    Query1Company: TStringField;
    Query1OrderNo: TFloatField;
    Query1SaleDate: TDateTimeField;
    Edit1: TEdit;
    Label1: TLabel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Query2: TQuery;
    DataSource1: TDataSource;
    procedure InsertBtnClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

uses ComObj;

{$R *.dfm}

procedure TForm1.InsertBtnClick(Sender: TObject);
var
  S, Lang: string;
  MSWord: Variant;
  L: Integer;
begin
  try
    MsWord := CreateOleObject('Word.Basic');
  except
    ShowMessage('不能启动Word.');
    Exit;
  end;
  try
    { 返回应用参数.这个调用在英文和法文版的 Word中相同。 }
    Lang := MsWord.AppInfo(Integer(16));
  except
    try
      { 对德文版的Word，这个过程名是翻译后的。}
      Lang := MsWord.AnwInfo(Integer(16));
    except
      { 如果这个过程不存在，存在一个不同的Word翻译版本。}
       ShowMessage('Microsoft Word版本不是德文,法文或英文版.');
       Exit;
    end;
  end;
  with Query1 do
  begin
    Form1.Caption := Lang;
    Close;
    Params[0].Text := '%'+Edit1.Text+'%';
    Open;
    try
      First;
      L := 0;
      while not EOF do
      begin
        S := S + Query1Company.AsString + ListSeparator +
          Query1OrderNo.AsString + ListSeparator + Query1SaleDate.AsString + #13;
        Inc(L);
        Next;
      end;
       if (Lang = 'English (US)') or (Lang = 'English (United States)') or
          (Lang = 'English (UK)') or (Lang = 'German (Standard)') or
          (Lang = 'French (Standard') then
        begin
        MsWord.AppShow;
        MSWord.FileNew;
        MSWord.Insert(S);
        MSWord.LineUp(L, 1);
        MSWord.TextToTable(ConvertFrom := 2, NumColumns := 3);
       end;
        if Lang = 'Fran鏰is' then
       begin
         MsWord.FenAppAfficher;
         MsWord.FichierNouveau;
         MSWord.Insertion(S);
         MSWord.LigneVersHaut(L, 1);
         MSWord.TexteEnTableau(ConvertirDe := 2, NbColonnesTableau := 3);
      end;
       if (Lang = 'German (De)') or (Lang = 'Deutsch') then
       begin
         MsWord.AnwAnzeigen;
         MSWord.DateiNeu;
         MSWord.Einf黦en(S);
         MSWord.ZeileOben(L, 1);
         MSWord.TextInTabelle(UmWandelnVon := 2, AnzSpalten := 3);
      end;
    finally
        {对中文Word在此插入}
        MsWord.AppShow;
        MSWord.FileNew;
        MSWord.Insert(S);
        MSWord.LineUp(L, 1);
        MSWord.TextToTable(ConvertFrom := 2, NumColumns := 3);
      Close;
    end;
  end;
end;

end.