delphi,TDBGridEh导出excel的问题

hagelly 2007-10-18 04:33:31

if ( DBGridEh1.DataSource.DataSet.Active) and (not DBGridEh1.DataSource.DataSet.IsEmpty) then
begin
SaveDialog1.FileName :='sss';
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, DBGridEh1,SaveDialog1.FileName + '.xls' ,TRUE);
2: SaveDBGridEhToExportFile(TDBGridEhExportAsCSV, DBGridEh1,SaveDialog1.FileName + '.xls' ,TRUE);
end;
ShowMessage('导出完毕！');
end
end
else
ShowMessage('记录为空！');
end;

...全文

83 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

yinfeiL 2007-10-19

打赏
举报

回复

ShowMessage( '导出完毕！ ');
end
后面加";"

Bear_hx 2007-10-18

打赏
举报

回复

出错在什么地方？

hagelly 2007-10-18

打赏
举报

回复

代码出来后老是不能保存，求高手，大个哥们帮忙下

特点：一、不需安装Excel即可导出。二、有进度条。三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。四、需安装ehlib组件。使用方法(注：别忘了uses DBGridToExcel;)：procedure TForm1.btn2Click(Sender: TObject);var DBGridEhToExcel: TDBGridEhToExcel; ExcelFileName: string;begin DBGridEhToExcel := TDBGridEhToExcel.Create(nil); try DBGridEhToExcel.TitleName := '导出测试'; DBGridEhToExcel.BeginDate := '开始日期：2005-07-01'; DBGridEhToExcel.EndDate := '结束日期：2005-07-18'; DBGridEhToExcel.UserName := '系统管理员'; DBGridEhToExcel.DBGridEh := DBGridEh1; DBGridEhToExcel.ShowProgress := True; if ExcelFileName = '' then begin ExcelFileName := 'c:\1.xls'; with TSaveDialog.Create(nil) do begin Filter := 'Microsoft Excel xls文件|*.xls'; DefaultExt := 'xls'; if not Execute then Exit else ExcelFileName := FileName; end; end; DBGridToExcel.FileName := ExcelFileName; DBGridEhToExcel.ExportToExcel; finally DBGridEhToExcel.Free; end;end;

一、 DBGridEh（增强型表格组件）功能详解.....................................................................4 二、应用实例..........................................................................................................................5 1. 定制标题行......................................................................................................................5 1) 制作复杂标题行.......................................................................................................5 2) 按钮式标题..............................................................................................................5 3) 标题行显示图片.......................................................................................................5 4) 如根据不同状态在数据单元格中显示相应图片...................................................5 5) 自动显示标题行的升降排序标志符（▽降序△升序）并做相应排序...............6 6) 点dbgrideh 标题排序..............................................................................................7 7) 在DBGridEH 中怎样实现多重排序(标题出现0123等排列序号)? ................ 11 8) 让dbgrid显示序号................................................................................................ 11 2. 外观布局........................................................................................................................12 1) 根据不同字段值显示相应的小图片.....................................................................12 2) 显示检查框（checkbox）外观.............................................................................12 3) 显示单、多列下拉列表.........................................................................................12 4) 显示日历下拉列表.................................................................................................13 5) 3D或平面外观效果...............................................................................................13 6) 行头和列头的启用关闭.........................................................................................13 7) DBGrid如何实现透明效果?.................................................................................13 8) 滚动条的各种应用.................................................................................................16 9) 数据行高................................................................................................................19 10) DBGrid设置Rowheight后如何将单元格内容纵向和垂直都居中?..............19 11) 设置DBGridEH 自适应列宽的最好方法.........................................................20 12) Ehlib 的DBGridEh首列加序号........................................................................21 13) 分行分列、单元格的颜色设置.........................................................................23 14) 点击不同单元格列，执行不同的动作.............................................................27 15) 下拉式计算器.....................................................................................................28 16) 鼠标移到某个单元格，指针形状改变.............................................................28 17) 自动填充网格列宽到网格客户区.....................................................................29 18) 从注册表或ini文件中保存或恢复网格和列的层次。...................................29 3. 编辑功能........................................................................................................................29 1) 多选........................................................................................................................29 2) 文本多行显示.........................................................................................................30 3) 显示备注字段.........................................................................................................30 4) 如何让dbgrideh1 显示数据时只显示两位小数...................................................30 5) 获得当前DBGridEh表中单元格的序号.............................................................30 6) 怎样在dbgridEh和Edit中显示金额的千分号...................................................30 7) end;请问怎么才能使DBGridEh不滚动就能提交数据？...................................32 8) 我怎么把dbgrid 里的数据一次插入到数据库呢................................................32 9) 在DBGrid中可选中行而又可进入编辑状态......................................................32 10) 修正DBGrideh 丢失焦点时自动关闭输入法的问题......................................35 11) DBGRIDEH选定多行删除怎么实现...............................................................36 12) DBGrid 滚动表格的代码...................................................................................37 4. 统计功能........................................................................................................................37 白波九道整理自用版第 3 页 1) 页脚合计................................................................................................................37 2) 定制表格底部（footer）区域的汇总统计行.......................................................38 3) TDBSumList说明..................................................................................................38 4) 如何工作以及为什么有时SumList的集合值计算不正确？.............................39 5) dbgrideh列求和.....................................................................................................39 5. 数据功能........................................................................................................................40 1) 查找字段点击某列值的下拉按纽弹出一个从数据库取值下拉列表...............40 2) 使用DBGridEh自动过滤实现方法.....................................................................40 3) 使用DBGridEh自动过滤实现方法2 ..................................................................41 4) DBGridEh 控件中使用过滤功能 (适用ehlib 5.2 ehlib 5.3)................................42 5) 支持模糊查询.........................................................................................................43 6) ehlib4.4.50中支持模糊匹配的修改方法..............................................................44 7) EhLib 5.0 Build 5.0.13的过滤字串都是模糊过滤修改.......................................45 8) 滚动条滚动时选择不变，还有自动过滤功能的实现.........................................45 9) 增量搜索................................................................................................................46 10) ehlib总是按两次ctrl+f才出来查找框，怎么办？.........................................46 11) 如何改良dbgrideh的文字过滤........................................................................46 12) 改进DBGrideh 表头点击自动排序,实现双击状态轮流.................................47 13) 改良Ehlib 的排序功能,加快排序速度.............................................................49 14) 在DbGridEh中显示TreeView效果................................................................50 15) DBGridEh-KeyList、PickList............................................................................51 16) 主从表设置........................................................................................................53 17) 在DbGridEh中显示表中表..............................................................................55 6. 输入/输出.......................................................................................................................56 1) 导入导出数据.........................................................................................................56 2) 从多种格式导入/导出数据到TDBGridEh...........................................................57 3) DBGRID 生成EXCEL报表.................................................................................57 4) 使用TPrintDBGridEh 组件.................................................................................61 5) 打印时确定Ehlib定义的报表表头颜色? ............................................................61 6) Ehlib 中的PrintDBGridEh如何印页码,即第几页共几页...................................62 7) 怎么让PrintDBGridEh只打印DbGridEh 中指定的列.......................................62 8) 怎样进行横向打印/ 打印预览？........................................................................62 7. 将存在的DBGrid组件转换为DBGridEh组件...........................................................62 三、EhLib安装问题.............................................................................................................64 1. EhLib 安装步骤.............................................................................................................64 2. EhLib 安装问题（dbsumlst.dcu出错) ..........................................................................64 3. 安装提示找不到.BPL文件...........................................................................................65 四、Delphi 下的优秀表格(Grid)显示控件........................................................................65 1. NextGrid .........................................................................................................................65 2. TopGrid 3.01...................................................................................................................65 3. XLGrid............................................................................................................................66 4. DevExpress ExpressQuantumGrid .................................................................................66 5. TMS Grid Pack...............................................................................................................68 6. EhLib ..............................................................................................................................71 白波九道整理自用版第 4 页 7. ProfGrid..........................................................................................................................71 8. EasyGrid .........................................................................................................................71 五、delphi 中配置文件的使用（*.ini）.........................................................................71 六、窗口动画效果Animatewindow应用...........................................................................72 七、Delphi Excel to Sql Server..............................................................................................73 八、Delphi控制Excel的经验如下：..................................................................................76

ReportMachine for delphi xe5 　Report Machine目前主要能做的：　　1、支持屏幕打印，控制方法多样，可以打印全部rxlib控件全部InfoPower控件,TDBGrid,TStringGrid,TImage,TEdit等,TDBGridEh,f1book, TDecisionGrid等等众多控件。(例子1,例子2,例子3,例子4,例子5) 　　2、支持最终用户设计、修改报表，只需连接相关的数据源，指出数据的位置（设置报表样式），无论是主从表，子报表，套表，都可迅速生成。开发一个报表只需几分钟的时间。　　3、报表样式可以保存为rmf格式，下次可通过读入使用（配合SQL脚本就可以生成报表）。并可以把带数据的报表保存为rmp格式，在任何机器上都可以浏览、打印，而不需要数据库。　　4、生成后的报表支持修改，包括字体的设置，边框的设置，修改内容等。　　5、报表编辑器内自带ado,bde,ibx,Diamond dao,dbisam等数据访问控件，可以通过这些控件开发独立的报表制作工具。其使用方法和delphi中的控件是一样的。　　6、完全、自由自定义页面、边距、字体,标题和页眉页脚，并可以在自认合适的地方插入函数来实现当前日期，页合计，总合计等功能,合计字段可以放在页头，分组头，并支持条件合计，对分组合计，分页合计，总计等只需简单地设置属性即可。　　7、完全支持D5--D7，BCB5--BCB6。　　8、报表中可以在自认合适的事件(on beforeprint,on afterprint等)中加入程序脚本，以控制、或实现更复杂的打印效果。　　9、更新迅速，可根据使用人员与用户的意见，不断的加入新的功能。　　10、多种格式转换，可以把做出的报表转换为html,xls,pdf,bmp,jpeg等等格式。　　11、自动对超长记录折行，超长的内容也会自动折行，中文换行不会乱码。　　12、首家支持缩放打印功能，可以根据打印时选择的纸张自动缩放报表。　　13、首家支持即打即停．　　14、首家提供类似excel的报表设计器，给你足够灵活方表的报表设计方式。　　15、首家提供双报表设计器（第一种，第二种），满足所有的需求。　　16、更是提供类似于ObjectPascal的script,实现特殊功能。　　17、首家提供web,IntraWeb中的报表解决方案。　　18、首家提供报表压缩处理，占用内存更少，生成报表速度更快。　　19、首家提供合并单元格功能，更加适应处理复杂的中文报表。　　20、自动填空行，每页打印数量等细节处理更完善。二、ReportMachine版本简介： 1、VCL版：这是ReportMachine基础版本，一般以全部源码形式提供给注册用户，可以用在Delphi5-Delphi 2009,C++ Builder5.0-C++ Builder 2009开发环境中。 2、com版：是个单独的ocx文件（RMReport.ocx），是用Delphi 7.0及以上版本开发的，是对VCL版ReportMachine控件的再封装，具有VCL版的全部功能，安装、使用上更容易些，com版的ReportMachine可以用在vb,vc,vfp,pb等开发语言中。一般以ocx无源码形式提供，也可以有全部源码(包括vcl源码+ocx源码) 3、com版for .net WinForm：跟com版一样，但多了个.net下的数据库接口程序，此版可以用在vb.net,c#中，做winform程序的报表工具。一般以ocx无源码形式提供，也可以有全部源码。 4、webreport版：是对ReportMachine vcl版的再开发，用在asp,asp.net,jsp做的b/s架构的程序中，为客户端ie提供报表预览、打印、导出功能，webreport包括2部分：服务器端报表引擎(在asp,asp.net,jsp都能用，webreport对上述3中语言都开发了报表引擎)、客户端ie浏览器ActiveX插件(ActiveX插件只有一个，可以自动感知服务器端报表引擎版本)。webreport版不具备设计报表模版功能，需要用单独的报表设计程序在服务器端设计报表，也可以用本站提供的RMDesigner。 5、webreport for IntraWeb版：跟webreport版功能一样，是专为Delphi中的IntraWeb vcl提供的报表插件。 6、RMDesigner：是用vcl版ReportMachine开发的一个报表设计器，可以用来为webreport提供报表设计功能。

一般用自带的导出，速度快，但是有的时候需要导出正规xls procedure TF240090.ExportToExcel3(dbgrideh1: TDBGridEh; TitleName: string; autoFit: Boolean); function isFloat(str: string): Boolean; begin try StrToFloa...

从本文开始合并之前的三篇文章并入一个系列《PowerBI & Excel CEO 驾驶舱》。第一弹 - PowerBI 日期区间第二弹 - Excel 日期区间第三弹 - PowerBI 相对日期区间第四弹 - Excel 相对日期区间（也就是本文）也许您从纯办公进入PowerBI领域，在这个系列中，我们也会分享如果用极简的工程式方法来不断优化迭代一个小项目。本文主要是：【Excel版】P...

数据库相关

2,496

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章