Delphi读入数据到DBGrid并向Word中插入表格.rar

Delphi7.0读入数据到DBGrid并向Word中插入表格，其实就是Delphi向Word中插入表格，测试数据由Delphi从SQLSERVER中读取，然后放入DBGrid中，再将DBGrid网格中的数据通过Word转换成表格。 　　begin 　　 if TStringGrid(DBGrid1).RowCount>0 then 　　 begin 　　 //创建一个word对象 　　 wordApp:=CreateOleObject('Word.Application'); 　　 wordApp.Visible:=true; 　　 //创建一个word文档 　　 wordDoc:=wordApp.Documents.Add(); 　　 wordDoc.Select; 　　 wrdSelection:=wordApp.selection; 　　 //创建一个表格 　　 wordDoc.Tables.Add(wrdSelection.Range,ADOQuery1.RecordCount 1,DBGrid1.FieldCount,2,0); 　　 for i:=1 to DBGrid1.FieldCount do //设置首行的字体为粗体 　　 begin 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.Bold:=true; 　　 wordDoc.Tables.Item(1).Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Field.FieldName); 　　 end; 　　 DBGrid1.DataSource.DataSet.First; //当前行为首行 　　 for y:=2 to ADOQuery1.RecordCount 1 do //向表中添加数据 　　 begin 　　 for i:=1 to DBGrid1.FieldCount do 　　 wordDoc.Tables.Item(1).Cell(y,i).Range.InsertAfter(DbGrid1.Fields[i-1].NewValue); 　　 DBGrid1.DataSource.DataSet.Next; //下一行 　　 end; 　　 end 　　 else 　　 showmessage('TDBGrid表中无数据，不能向Word中插入表格。') 　　end;