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