如何使用Delphi进行数据库文件的导出,如把文件导入到Word中(50分)

如何使用Delphi进行数据库文件的导出,如把文件导入到Word中

怎么没有人回答我！我并不觉得这很难，只是我水平有限！

TXT方式导出，文件名：.doc

wordapplication控件即可

也可以用FRREPROT组件，里面有专门的WORD生成组件，非常好用。不用自己手工绘制表格线。
你也不用自己设计报表，直接把GRID利用FRPRINTTABLE或FRPRINTGRID结合FRRTFEXPORT，就可以了。

给你一段代码，自己看看吧。
procedure TFrmbbfxreport.SBexportdataClick(Sender: TObject);
var
i,row:integer;
begin
if SaveDialog1.Execute then
begin
Screen.Cursor:=crHourGlass;
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);
if not cwxtdm.atbltemp.Active then
begin
cwxtdm.atbltemp.Open;
end;
for i:=0 to cwxtdm.atbltemp.Fields.Count-1 do
ExcelWOrkSheet1.Cells.Item[1,i+1]:=cwxtdm.atbltemp.Fields.FieldName;
row:=2;
while not cwxtdm.atbltemp.Eof do
begin
for i:=0 to cwxtdm.atbltemp.Fields.Count-1 do
begin
ExcelWOrkSheet1.Cells.Item[row,i+1]:=cwxtdm.atbltemp.Fields.AsString;
end;
row:=row+1;
cwxtdm.atbltemp.Next;
end;
ExcelWorkBook1.SaveCopyAs(SaveDialog1.FileName);
ExcelWOrkBook1.Close(false);
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
Screen.Cursor:=crDefault;
Application.MessageBox('导出成功！','提示',0);
end;
end;

多人接受答案了。