摘要: 二、dbgrideh标题排序:首先把需要排序的title.titlebutton:=trueehlib的optioneh中autosortmarking最好设为truetitelbutton事件中写:varsortstring:string;begin//进行排序with Column dobegi 阅读全文
posted @ 2011-12-29 19:16 del88 阅读(14) 评论(0) 推荐(0) 编辑
摘要: Enlib3.0组件包安装成功后,在系统的组件面板中会显示“enlib”组件包标签(如图1),添加DBGridEh到窗体的方法与其它组件一样。在窗体中添加该组件后,请跟我一起来实现图2的一些特殊效果,具体属性设置请参考属性表的说明。A、定制标题行 1、制作复杂标题行 标题行可设为2行以上高度,并可以 阅读全文
posted @ 2011-12-29 19:02 del88 阅读(24) 评论(0) 推荐(0) 编辑
摘要: DBGridEh导出功能详解(SaveDBGridEhToExportFile说明) 经常有用户要求数据导出,对此,我们一直用最原始的办法,打开查询,读取每个字段的数据,逐条的的写入文件。如下: procedure TForm10.prExpData(pMode:Byte);Var pFPath:S 阅读全文
posted @ 2011-12-29 10:59 del88 阅读(15) 评论(0) 推荐(0) 编辑
摘要: 在OnDrawCell中加入如下代码: procedure TForm1.Stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);begin with Sender a 阅读全文
posted @ 2011-12-29 10:47 del88 阅读(10) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);vars: String;R: TRect;beginwith StringG 阅读全文
posted @ 2011-12-29 10:46 del88 阅读(15) 评论(0) 推荐(0) 编辑
摘要: uses DBGridEhImpExp; { 过程名: TfrmEmplyExport.OutToFile 作者: han 日期: 2007.08.08 参数: IADO : TADOQuery; DgEh : TDBGridEh 返回值: 无 说明: 导出查询结果到文件 }procedure Tf 阅读全文
posted @ 2011-12-29 10:14 del88 阅读(33) 评论(0) 推荐(0) 编辑
摘要: uses DBGridEhImpExp;procedure TInvoiceManager.ppmSaveSelectionClick(Sender: TObject);var ExpClass:TDBGridEhExportClass; Ext:String;begin SaveDialog1.F 阅读全文
posted @ 2011-12-29 10:11 del88 阅读(9) 评论(0) 推荐(0) 编辑
摘要: uses DBGridEhImpExp; 不要忘记引用这个 看下他实现的思路 procedure TForm1.Button3Click(Sender: TObject);var ExpClass:TDBGridEhExportClass; Ext,strDate:String;beginstrDa 阅读全文
posted @ 2011-12-29 10:09 del88 阅读(16) 评论(0) 推荐(0) 编辑
摘要: dbgrideh 本身 导出就一个函数 这个人的这种写法是实际应用过程中的很不错的写法,可以研究 修改 借鉴下 uses DBGridEhImpExp; 不要忘记引用这个 procedure DBGridehToExport(lsdbgrideh:TDBGridEh);var ExpClass: T 阅读全文
posted @ 2011-12-29 09:52 del88 阅读(11) 评论(0) 推荐(0) 编辑