文件名称:
Delphi 将TDBGrid导入到Excel表中附数据库.rar
开发工具:
文件大小: 90kb
下载次数: 0
上传时间: 2019-07-10
详细说明： 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.Capt ion; 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;
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
相关搜索:
