社区
Delphi
帖子详情
本人无工作,在家闲着无事,开发了一个能处理DBGRIDEH多表题头的例程,其自身的导出EXCEL不能处理多表题头!请大家多多指教!
madyak
2002-07-22 05:19:51
有兴趣者可留下信箱!
...全文
50
11
打赏
收藏
本人无工作,在家闲着无事,开发了一个能处理DBGRIDEH多表题头的例程,其自身的导出EXCEL不能处理多表题头!请大家多多指教!
有兴趣者可留下信箱!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
linyin
2002-07-23
打赏
举报
回复
guyinghappy@21cn.com!
THANK YOU!
linyin
2002-07-23
打赏
举报
回复
guyinghappy@21cn.com!
THANK YOU!
feng0399
2002-07-23
打赏
举报
回复
feng0399@163.net谢谢!!!!1
jixinfa
2002-07-23
打赏
举报
回复
先谢了!!
jixinfa@sina.com
yuanshengbing
2002-07-23
打赏
举报
回复
yuanshengbing@sina.com
多谢
yansea
2002-07-23
打赏
举报
回复
yansea@etang.com
谢谢咯
ScoutKing
2002-07-23
打赏
举报
回复
herozhm@yeah.net
bitye
2002-07-23
打赏
举报
回复
bitye@163.com谢谢了。
dupenf
2002-07-23
打赏
举报
回复
dupenf@mail.biti.edu.cn
My_first
2002-07-22
打赏
举报
回复
谢谢,devexpress@163.com
madyak
2002-07-22
打赏
举报
回复
没人感兴趣吗?谁处理过复合表题头,有什么好方法?
支持多个
DB
Grid
EH
导出
Excel
在他人的
DB
Grid
Eh
导出
到
Excel
的基础上进行改进,增加功能如下: 1、支持多个
DB
Grid
EH
同时
导出
到
Excel
的不同Sheet页 2、进度条与数据进度保持一致 3、增加了进度百分比显示 //调用方法: procedure TForm1.Button1Click(Sender: TObject); var
Db
Out: T
DB
Grid
Eh
To
Excel
; i: integer; begin try
Db
Out := T
DB
Grid
Eh
To
Excel
.Create(Self); for i := 0 to 9 do //初始化数组 begin
Db
Out.
DB
Grid
Eh
RecAry[i].Temp
DB
Grid
Eh
:= nil;
Db
Out.
DB
Grid
Eh
RecAry[i].TitleName := '';
Db
Out.
DB
Grid
Eh
RecAry[i].SheetTabName := ''; end; //有多少个
DB
Grid
Eh
的数据要
导出
,此处表示两个
Db
Out.
DB
Grid
Eh
RecLength := 2; //统计结果一
Db
Out.
DB
Grid
Eh
RecAry[0].Temp
DB
Grid
Eh
:=
db
gSpotCheckCount;
Db
Out.
DB
Grid
Eh
RecAry[0].TitleName := '统计结果一';
Db
Out.
DB
Grid
Eh
RecAry[0].SheetTabName := '统计结果一'; //统计结果二
Db
Out.
DB
Grid
Eh
RecAry[1].Temp
DB
Grid
Eh
:=
db
gValuationCount;
Db
Out.
DB
Grid
Eh
RecAry[1].TitleName := '统计结果二';
Db
Out.
DB
Grid
Eh
RecAry[1].SheetTabName := '统计结果二';
Db
Out.TitleName := '统计结果';
Db
Out.ShowProgress := True;
Db
Out.ShowOpen
Excel
:= True;
Db
Out.ExportTo
Excel
; finally FreeAndNil(
Db
Out); end; end; 还可以改进的地方,比如: 1、标题栏占用几行,字体,字体颜色,字体大小,背景颜色可以封装提供设置方法; 2、字段标题字体,字体颜色,字体大小; 3、表格样式设置; 就是动态数据不会封装到类里面,如果有高人封装得更好一些,
请
发一份我;
Delphi
Db
grid
eh
多表
头
导出
excel
非comobj
使用XLSReadWriteII5控件比comobj速度快不用依赖
excel
db
grid
eh
导出
到
excel
db
grid
eh
导出
到
excel
,数据库
导出
到
excel
delphi
DB
Grid
Eh
多标头快速
导出
excel
方法
优化了zxf668之前对
DB
Grid
Eh
多标头
导出
excel
方法,对大数据的
导出
,优化了
导出
方法。
DB
Grid
Eh
多表
头输出到
Excel
可以
多表
头输出到
EXCEL
最近有用到
DB
Grid
Eh
,但是
多表
头的输出一直是个问题,于是根据DisplayLabel自己写了个模块. 因为时间的关系,算法一直没有精简
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章