文件名称:Delphi读入数据到DBGrid并向Word中插入表格.rar
文件大小:89KB
文件格式:RAR
更新时间:2022-07-30 12:44:06
Delphi源码-文件操作
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;
【文件预览】:
srcfans.com
----DBGrid()
--------Project1.res(876B)
--------Unit1.dfm(2KB)
--------database()
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(2KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(6KB)