【文件属性】：
文件名称：Delphi 将TDBGrid导入到Excel表中附数据库.rar
文件大小：90KB
文件格式：RAR
更新时间：2022-07-30 12:44:05
Delphi源码-数据库实例
Delphi7.0将TDBGrid导入到Excel表中，测试程序先连接好SQLSERVER数据库，并将数据读取到TDBGrid中，然后再将数据从TDBGrid导入到Excel表中，为了测试方便，SQLSERVER数据库文件已经附在源码包中。以下代码片断会有参考意义，完整源码请下载：
//将TDBGrid表中的标题插入到Excel表中的首行
for I:=0 to DbName.Columns.Count-1 do
begin
if DbName.Columns[i].Visible=False then
Continue;
Page.Cells[j,i 1] := DbName.Columns[i].Title.Caption;
Page.Cells[j,i 1].Font.Bold := True; //设置字体为粗体
end;
Inc(j); //Excel表中的下一行
First; //将指针返回到TDBGrid表中数据的首行
while not Eof do
begin
for i:=0 to DbName.Columns.Count-1 do
begin
if DbName.Columns[i].Visible=False then
Continue;
//将指定行中每列的数据，添加到Excel表中
Page.Cells[j,i 1] := trim(DbName.DataSource.DataSet.Fieldbyname(DbName.Columns[i].FieldName).asstring);
end;
Inc(j); //Excel表中的下一行
Next; //TDBGrid表中的下一条记录
end;
【文件预览】：
srcfans.com
----TDBGrid()
--------Project1.res(876B)
--------Unit1.dfm(1KB)
--------database()
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(3KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(7KB)