熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

Delphi+Word=數據庫+公文處理[1]

2013-11-23 17:37:56  來源: Delphi編程 

  Delphi擅長做數據庫類的MIS開發但對於OA就有點力不從心了不過隨著Microsoft的COM技術逐漸成熟現在普通Windows應用已經可以和Office 無縫結合了尤其是在Delphi 中提供了一組Servers組件更是簡化了程序開發

  最近接觸了一個用戶的案例用Delphi控制Word做一個合同管理程序辦公人員先根據業務需要寫好合同的文字但在用戶名稱產品名稱等變化的位置填寫指定的標記字符串然後通過Delphi把數據庫中的實際數據替換掉Word中的文字最後讓Word打印出合同

  Delphi自帶了一個簡單的Word例題但功能太簡單通過查找VBA的說明再對照Delphi的VCL編寫了如下代碼實現了基本的公文管理功能

  啟動Word時用如下代碼
  begin
  try
  WordapplicationConnect;
  except
  MessageDlg(Word may not be installed mtError [mbOk] );
  Abort;
  end;
  WordapplicationVisible := True;
  WordApplicationCaption := Delphi automation;
  end;

  關閉Word用如下代碼如果想保存Doc文件請修改SaveChanges變量的內容
  var
  SaveChanges OriginalFormat RouteDocument: OleVariant;
  begin
  SaveChanges := WdDoNotSaveChanges;
  OriginalFormat := UnAssigned;
  RouteDocument := UnAssigned;
  try
  WordApplicationQuit(SaveChanges OriginalFormat RouteDocument);
  WordApplicationDisconnect;
  except
  on E: Exception do
  begin
  Showmessage(EMessage);
  WordApplicationDisconnect;
  end;
  end;
  end;

[]  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/24791.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.