ITPub博客

首页 > Linux操作系统 > Linux操作系统 > EhLib DBGridEh组件在Delphi中应用全攻略总结

EhLib DBGridEh组件在Delphi中应用全攻略总结

原创 Linux操作系统 作者:lhl1212 时间:2012-12-18 19:14:35 0 删除 编辑

EhLib DBGridEh组件在Delphi中应用全攻略总结

【DBGridEh(增强型表格组件)功能详解】
DBGridEh组件无论在外观上还是功能上都非常类似Borland开发工具中现有的dbgrid组件,它除了提供dbgrid组件的全部功能外,还增加了下列新功能:
● 任意选择多行、列或矩形区域的数据.
● 为多列标题设定共同的父标题行.
● 表格底部(Footer) 区显示求和、计数和其它统计信息.
● 自动调整组件宽度与客户区域等宽.
● 设置标题行、数据行的高度.
● 超长的标题行、数据行文本自动折行处理.
● 标题行可作为按钮使用,并可选择是否显示排序标志符(▽降序△升序).
● 点击列标题可对当前列自动排序而无需编写代码.
● 能够自动设置删除超长文本显示不下的多余部分,并以省略号(…)代替.
● 自动搜索字段(Lookup)数据单元格以单、多列字段下拉列表形式显示.
● 自动搜索字段(Lookup)数据单元格可进行增量搜索.
● 可锁定任意列数在屏幕水平方向不滚动.
● 日期时间控件DateTime picker 可支持TDateField and TDateTimeField两种日期格式.
● 根据字段不同值显示关联的ImageList 对象图片组中的图片.
● 隐藏任意列.
● 显示3D风格的数据区、表尾区和锁定滚动列,制作3D外观表格.
● 显示Memo类型字段值.
● 除BOOLEAN型数据外,其它数据类型也可以检查框( checkbox )形式显示数据.
● 使用专门的函数和过程来存取以reg或ini文件格式保存的表格布局(包含各数据列表、数据列访问顺序、列宽、索引标识、行高等信息)文件。
● 通过设置数据单元格的hint和ToolTips属性,当移动鼠标到该单元格时,可以显示单元格容纳不下的文本内容.
● 将组件中数据导入/导出到Text, Csv, HTML, RTF, XLS 和内部数据等多种格式的文件中.

【Ehlib在 Delphi 7 中的安装】(我可是花了半天的力气才搞定的哦)Delphi 7中的安装方法
1.把 EhLib 中的common和DataService文件夹下的文件拷贝到 Delphi7 目录中.
2.在 TOOLS->Environment Options->Library->Library Path 中添入EHLIB路径。
3.打开新建文件夹中的EHLIB70.dpk,编译一下,但不要安装。
4.打开新建文件夹中的EhLibDataDrivers70.dpk,编译一下,但不要安装。
5.打开Ehlib中的DclEhLib70.dpk,编译,安装
6.打开Ehlib中的DclEhLibDataDrivers70.dpk,编译,安装(实际中不用也可以)
7.组件面板中出现一个EhLib的组件页。
8.打开附带的DEMOS1,编译并运行,测试安装成功。

【DBGridEh控件的页脚属性怎么设】
1、将dBGridEh.FooterRowCount := 1
2、将DBGridEh.SumList.Active := True;
3、将Columns[要求和的字段].Footer.ValueType := vtSum;
就行了,最后要注意,在FormCloseQuery事件中,一定要将SumList.Active := False,因为在数据集中的数据多了以后,FormClose会让DBGridEh释放所有EhLib资源,会使得退出很慢,所以将SumList.Active := False不会引起退出很慢(还没有试)。

【实现DBGridEh隔行分色显示】
procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
if DBGridEh1.SumList.RecNo mod 2 = 1 then
Background := clinfobk
else
Background := RGB(238, 238, 238);
end;

【DBGridEh在某些条件下某行显示特定颜色】
procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
//在 name 字段值为 aaa 的行设置行背景色(ado 设置情况下)
if ADOQuery1.FieldByName('name').AsString = 'aaa' then
Background := $00FFC4C4
//在 xm 字段值为 Li ming 的行设置行背景色(bde 设置情况下)
else if DBGridEh1.DataSource.DataSet.FieldByName('xm').AsString = 'Li ming' then
Background := $00FFC4C4
else
Background := $00FFDDDD;
end;

【实现DBGridEh全选】
procedure TForm1.N_CopyPolListClick(Sender: TObject);
begin
if (ActiveControl is TDBGridEh) then
with TDBGridEh(ActiveControl) do
if CheckSelectAllAction and (geaSelectAllEh in EditActions) then
Selection.SelectAll;
end;

【Ehlib的DBGridEh控件输出文件到 EXCEL】(其实EHLIB的DEMO1中已有)
procedure TForm1.N_SaveSelectionClick(Sender: TObject);
var
ExpClass: TDBGridEhExportClass;
Ext: String;
begin
SaveDialog1.FileName := 'file1';
if (ActiveControl is TDBGridEh) then
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin
ExpClass := TDBGridEhExportAsText;
Ext := 'txt';
end;
2: begin
ExpClass := TDBGridEhExportAsCSV;
Ext := 'csv';
end;
3: begin
ExpClass := TDBGridEhExportAsHTML;
Ext := 'htm';
end;
4: begin
ExpClass := TDBGridEhExportAsRTF;
Ext := 'rtf';
end;
5: begin
ExpClass := TDBGridEhExportAsXLS;
Ext := 'xls';
end;
else
ExpClass := nil;
Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
SaveDBGridEhToExportFile(ExpClass,TDBGridEh(ActiveControl),
SaveDialog1.FileName,False);
end;
end;
end;

【在DBGridEh中直接点击title就可按点击的那个字段排序的方法】
procedure TForm1.DBGridEh1TitleClick(Column: TColumnEh);
var
sortstring: string; //排序列
begin
//进行排序
with Column do
begin
if FieldName = '' then
Exit;
if (Title.SortMarker = smNoneEh) or (Title.SortMarker = smDownEh) then
begin
sortstring := Column.FieldName + ' ASC';;
Title.SortMarker := smUpEh;
end
else
begin
sortstring := Column.FieldName + ' DESC';
Title.SortMarker := smDownEh;
end;
try
ADOQryPolicyList.Sort := sortstring; //dataset为实际数据集变量名
except
MessageBox(Handle,'排序出错,请核实后重试!', '提示', MB_ICONError);
end;
end;
end;
注意:1.在窗体上放置一个DBGridEh组件,并将其连接到相应的 BDE 数据集;
2.将该组件的[OptionsEn]中的 dgAutoSortMarking 属性设置为 True;
3.双击该组件,在其弹出的属性编辑器中添加相关字段;
4.将要排序的字段的属性列表的 [Title]的 TitleButton 属性设置为 True;
5.最后,千万不要忘了在 uses 子句中加上 EhlibBDE单元。

【DBGridEh从注册表或ini文件中保存或恢复网格和列的层次】
TDBGridEh 有一个常规设置来从注册表或ini文件中保存和恢复网络以及列的层次:
RestoreColumnsLayout - 从注册表中恢复列的次序,宽度,排序标志。
RestoreColumnsLayoutIni - 从ini文件中恢复列的次序,宽度,排序标志。
RestoreGridLayout - 从注册表中恢复列的次序,宽度,可视,排序标志,排序索引或行高。
RestoreGridLayoutIni - 从ini文件中恢复列的次序,宽度,可视,排序标志,排序索引或行高。
SaveColumnsLayout - 保存列的次序,宽度,排序标志到注册表中。
SaveColumnsLayoutIni - 保存列的次序,宽度,排序标志到ini文件中。
SaveGridLayout - 保存列的次序,宽度,可视,排序标志,排序索引或行高到注册表中。
SaveGridLayoutIni - 保存列的次序,宽度,可视,排序标志,排序索引或行高到ini文件中。
举例如下:
//存储Grid格式ini
function SaveGridIni(ADBGridEhNameStr: string;ADBGridEh:TDBGridEh): Boolean;
var
IniFileNameStr:string;
begin
IniFileNameStr := ExtractFileDir(ParamStr(0)) + '\' + 'DBGirdConfig.ini';
ADBGridEh.SaveGridLayoutIni(IniFileNameStr,ADBGridEhNameStr,False);
end;

//加载读取Grid格式ini
function RestoreGridIni(ADBGridEhNameStr: string;ADBGridEh:TDBGridEh): Boolean;
var
IniFileNameStr:string;
RestoreParams: TDBGridEhRestoreParams;
begin
IniFileNameStr := ExtractFileDir(ParamStr(0)) + '\' + 'DBGirdConfig.ini';
ADBGridEh.RestoreGridLayoutIni(IniFileNameStr,ADBGridEhNameStr,RestoreParams);
end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/611609/viewspace-751309/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2008-12-08

  • 博文量
    252
  • 访问量
    493594