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

时间:2022-07-30 12:44:06
【文件属性】:

文件名称: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)

网友评论