tquery的结果到入word (2001年2月20日).txt

自己对DELPHI学习的一点体会

TQuery的结果到入word (2001年2月20日) 

网友更新  分类:数据库   作者:chinawzw  推荐:chinawzw   阅读次数:700  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
unit ExcelTest;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls,db,DBTables, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Query1: TQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WriteDatasetToExcel(AQueryName: TQuery; AStrVar: String);
end;

var
Form1: TForm1;

implementation

uses Comobj;

{$R *.DFM}

{ TForm1 }

procedure TForm1.WriteDatasetToExcel(AQueryName: TQuery; AStrVar: String);
var
EclApp,WorkBook : Variant;
range,wordapp:Variant;
xlsFileName : String ;
I : Integer ;
column : Integer ;
Row : Integer ;
Fdate:TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
StrDate:String ;
StrDate1:String ;
Begin
wordapp := CreateOleObject('word.Application');
wordapp.visible:=true;

wordapp.Documents.add;

range:=wordapp.Documents.item(1).range;

//这里是写入
range.Text:='this is a ;aklsdjfkljasd ';
//这里是保存
{ wordapp.Documents.item(1).saveas('c:\foo.doc');
word.options.sendmailattach:=true;
wordapp.Documents.item(1).sendmail;}
//这里是退出
wordapp.Documents.item(1).close ;
wordapp.quit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WriteDatasetToExcel(query1,'Excel文件测试');
end;

end.