DBGRIDEH 组件在Borland开发工具中应用全攻略

DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件，它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此，一推出即受到广大Borland程序员的青睐。目前这个版本支持Borland Delphi versions 4，5，6＆7 和 Borland C++ Builder versions 4 & 5 ，可极大地提高数据库应用系统客户端的性能。许多商品软件如《速达2000》等都使用了该组件。下面本人将使用该组件在实际系统开发过程中的经验总结如下。

Enlib3.0组件包中最重要而且功能最强大的莫过于dbgrideh组件，本文介绍的所有实例均在Delphi 7开发环境下调试通过。

一、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 和内部数据等多种格式的文件中.

DBGridEh组件主要属性见下表（其它属性参见dbgrid）：

DBGridEh组件事件基本与DBGrid相同，在此不再赘述。

 

二、应用实例
Enlib3.0组件包安装成功后，在系统的组件面板中会显示“enlib”组件包标签（如图1），添加DBGridEh到窗体的方法与其它组件一样。在窗体中添加该组件后，请跟我一起来实现图2的一些特殊效果，具体属性设置请参考属性表的说明。

A、定制标题行
1、制作复杂标题行
标题行可设为2行以上高度，并可以为多列创建一个共同的父标题行。为实现这个效果，需在各个列标题属性中以“｜”分隔父标题和子标题，如办公用品包括代码和名称两部分，具体属性设置如下：

usemultititile=true;
titlelines=2
DBGridEh.Columns[0].Title.Caption := '办公用品|代码';
DBGridEh.Columns[1].Title.Caption := '办公用品|名称';

2、标题行显示图片
实现图2中的购买人标题行显示效果。首先添加一个imagelist组件img1并在其中添加一组bmp,ico格式的图片。然后将DBGridEh的TitleImages设置为img1.最后在需要显示图片的列标题的imageindex中设置需要显示的img1中图片的序号。按F9执行一下程序，是不是很酷！

3、自动显示标题行的升降排序标志符（▽降序△升序）并做相应排序
DBGridEh组件可以在标题行单元格中显示小三角形升、降排序标志符图片，在运行时可点击标题行，图片自动切换并做相应排序。具体属性设置如下：

OptionsEh＝dghAutoSortMarking
Column.Title.TitleButton＝true

SortMarkedColumns 为当前排序列可在运行时使用.
然后在该列的ontitleclick事件中添加代码：
procedure TForm_Query.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer; Column: TColumnEh);
var
sortstring:string; //排序列
begin
//进行排序
with Column do
begin
if FieldName = '' then
Exit;
case Title.SortMarker of
smNoneEh:
begin
Title.SortMarker := smDownEh;
sortstring := Column.FieldName + ' ASC';
end;
smDownEh: sortstring := Column.FieldName + ' ASC';
smUpEh: sortstring := Column.FieldName + ' DESC';
end;
//进行排序
try
dataset.Sort := sortstring //dataset为实际数据集变量名
except
end;
end;
end;

切记lookup型字段不可做上述设置，否则系统会提示错误。

另外，组件说明书中提到不需要编写代码即可自动排序，但是不编写代码自动排序方法我还没找到，有知道的朋友烦请告诉我一声啊！让我也对程序代码进行“减肥”。

 

 

B、定制表格底部（footer）区域的汇总统计行
DBGridEh 组件可以在表格底部显示汇总行，如记录数合计、列字段累加和等信息。在FooterRowCount中设置底部显示的行数；然后在Footers 编辑器中添加一个或多个显示列，显示列可以是字段值累加和、记录数合计、字段值或静态文件等集合类型，可以在设计时在ValueType属性中设置，也可在运行时通过设置Footers[i].ValueType指定其类型。其含义见下表：

切记设置DBGridEh.SumList.Active 为 True，才会进行汇总统计运算。需注意的是，如显示类型为不是当前列的累加和，则需在fieldname属性中指定汇总列，其它类型则无此要求。

 

 

C、定制表格数据单元外观
1、根据不同字段值显示相应的小图片
如根据库存材料的不同状态在数据单元格中显示相应图片，具体设置如下：
添加一个imagelist组件img1并在其中添加一组bmp,ico格式的图片。然后将需要显示图片的列的imagelist属性设置为img1；在keylist属性中添加实际数据存储值，一行为一个值，切记一定要与imagelist中图片顺序一一对应，否则会张冠李戴，面目全非。还可在picklist中添加提示信息，也要求是一行为一个值，并设tooltip为true，那么，运行时当鼠标移动到该数据单元格时在显示图片的同时还显示提示信息，怎么样，功能够强大吧！可使用空格键或鼠标切换下一张图片，图片切换的同时也改变了实际存储数据值。也可通过shift+空格或鼠标切换为上一张图片。这样就实现了上下两个方向图片切换。

2、显示检查框（checkbox）外观
对于Boolean型字段值在dbgrideh组件中自动显示为检查框。通常情况下我们需将非Boolean型字段值也此外观显示，如性别字段为字符型，字段值为“男性”时为选中，“女性”时为未选中。需要在keylist编辑器中设置实际存储数据值，第一行为选中时的值“1”，第二行为未选中的值“0”，第三行为其它值“2”，支持三态显示。

3、显示单、多列下拉列表
根据单元格字段值显示与其相关的其它表字段内容，如部门代码字段显示为部门名称。首先需在当前表中新建立一个lookup型字段，设置好关联表的字段和返回字段。多列下拉列表需在单列基础上做进一步设置，在LookupDisplayFields中以“；”号将关联表中多个字段分隔开，而且返回字段必须作为其中的第一项。具体设置如下：

dropdownshowtitles＝true
dropdownsizing＝true
dropdownwidth＝-1

例：当前表中只有部门代码无部门名称列，需与部门表建立关联，当点击单元格时以部门代码、部门名称两列下拉列表形式显示。

4、显示日历下拉列表
Date 和 DateTime类型字段值均可以此形式显示。外观与编辑框无异，当点击该单元格时，右侧会出现“▽”符号，点击之即可出现日历下拉列表。有时不希望出现日历下拉列表，只需设置Column.ButtonStyle属性为 cbsNone即可，此方法同样适用于其它组件不以特殊外观显示的情况。

5、3D或平面外观效果
设置OptionsEh属性 中fixed, frozen, footer 和 data rows等属性表格外观为3D效果，设置flat为true则为平面外观效果.

6、锁定多列不滚动
当表格水平方向信息在一屏幕显示不下时，此项功能非常有用。例如，工资表格中包含姓名、基本工资、绩效工资等信息一屏幕显示不下，需要通过移动水平滚动条显示下一屏信息。如果不锁定关键字段列如姓名，则移动到下一屏时就不知道此条记录对应的姓名。因此，在实际应用中经常需锁定多列不滚动。

例：姓名字段为表格第二列，则设置FrozenCols=2.这样当一屏幕显示不下，通过移动水平滚动条显示下一屏信息时，表格前两列不滚动，作为参照列。

D、导入/导出数据
导入/导出数据在实际处理过程中是比较烦琐的。但是Enlib3.0提供了一系列函数让你轻松实现此功能，而且支持的文件格式很多：Text, Csv, HTML, RTF, XLS 和内部数据格式。除此之外，还可对任意选择的数据区域进行操作。函数如下：

Pascal: SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,'c:\temp\file1.txt',False);

C++: SaveDBGridEhToExportFile(__classid(TDBGridEhExportAsText),DBGridEh1,"c:\\temp\\file1.txt",false);

说明：其中false参数表示导出的是选中的局部数据区域数据，true则为整个表格数据。

例：将当前表格中数据导出为EXCEL等格式文件。
在窗体中添加一个SaveDialog组件和“导出”按钮B_exp，在“导出”按钮的click事件中添加如下代码：

procedure TForm1.B_expClick(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;
SaveDBGridEhToEx

【定制网格数据单元】
　　在数据单元中显示字段值为图形。
　　 TDBGridEh allows to show bitmaps from TImageList component depending on field values. To show bitmaps depending on field values need: Fill list of field values to Column.KeyList property (every value in separate line) and set Column.ImageList property to ImageList control that has the bitmap in according index. Set Column.NotInKeyListIndex to index of bitmap that will be shown if field''s value does not correspond to any value in KeyList (for instance you can set index of image for Null field value). At run time you are not allowed to edit bitmap in column cell. Use blank key and mouse click to set next value from Column.KeyList to the field; Shift-blank key and Shift-Mouse click to set previous value from Column.KeyList. Set Column.DblClickNextval to True have allows to change value on mouse double click.

【检查框式的逻辑及非逻辑值】
　　 Grid automatically shows checkboxes for boolean field. To show checkboxes for non boolean fields fill first line of Column.KeyList property that corresponds to the checked state of the checkbox, second line - non checked state, and set Column.Checkboxes ptoperty to True. Line of KeyList can represent more than one value in a semicolon-delimited list of items.

【数据行高度】
　　使用 RowHeight 和 RowLines 属性来指定数据行高。完整的数据行高 = 行线高度＋行高。设置 RowSizingAllowed 为 True 以允许可以在运行是使用鼠标来改变行高。
　　设置Column.WordWrap为True可以使数据行中文本多行显示。如果行高>文本行，它就换行。

【显示备注字段】
　　设置 DrawMemoText to True来显示文本式的备注字段。.

【定制单元格字体及颜色】
　　TDBGridEh 中的 Font 和 Color 属性描述了数据网格中绘制单元格的字体和颜色。
　　TColumnEh 中的 Font 和 Color 属性描述了指定列中绘制单元格的字体和颜色。

【事件定制单元格字体及颜色】
　　有几个事件可以让你能够在绘制单元格前定制单元格字体和颜色。你可以写TDBGridEh的OnDrawColumnCellEvent事件句柄来在 控制在网格单元中绘制数据。你可以使用Canvas属性的方法来绘制单元格。但是如果你只想改变字体或颜色的属性，我建议你使用下面的事件。你可以写 TDBGridEh的OnGetCellParams事件来控制在绘制数据单元以前所指定的操作。你可以改变绘制字体及背景色。这个事件适合你在想改变整 行的字体或颜色时使用。如果你想改变指定列中单元格的属性，你可以使用TColumnEh.OnGetCellParams。写这个事件用来控制在一列数 据单元被重绘或编辑时的操作。在一列数据单元被重绘以前，你可以改变绘制字体，背景色，对齐方式，图像索引，文本或检查框。在编辑一列数据单元以前，你可 以改变编辑字体，背景色，文本或只读状态。

【列属性的默认值】
　　使用ColumnDefValues属性来设置列属性的默认值。新创建的列将从ColumnDefValues属性中获得属性值，并且直到第一次为其指定值为止。

【在网格的适当位置放置编辑器】－－
－【在下拉列表中显示几个字段】
　　在下拉列表中显示几个下拉字段，需要设置列的LookupDisplayFields属性到字段的Semicolons属性来分割多个字段名。命名为 Column.Field.LookupResultField的属性必须位于LookupDisplayFields列表中。多字段的下拉列表只能应用 于下拉字段。

－【显示下拉方式的列】
　　你可以通过KeyList 和 PickList 属性在相关的的字段中显示其它文本。KeyList显示包含在字段的值而非PickList索引所 包含的 值。 Column.NotInKeyListIndex to index of text from PickList that will be shown if field value do not contain in KeyList (for instance you can set index of text for Null field value). Set Column.DblClickNextval to True to change value on mouse double click.

－【下拉式计算器】
　　对于 TDateField 和 TDateTimeField 字段，inplace 编辑器将显示下拉按钮以显示显示下拉计算器。设置 Column.ButtonStyle 为 cbsNone 以禁止显示下拉按钮。

【设置编辑器颜色和字体】
　　Inplace编辑器可以设置数据单元的颜色和字体。数据单元使用OnGetCellParams 事件来控制列的颜色和字体。 Inplace 编辑器在行高>一行的高度时自动设置为多行模式并且将列的属性 WordWrap 设置为True.

【自动填充网格列宽到网格客户区】
　　设置AutoFitColWidths为True以自动重置列宽来设置网格的宽度等于客户区宽度。 MinAutoFitWidth 属性决定网格的最小宽度，列宽将会被重新计算。

【3D或平面外观】
　　使用 OptionsEh 属性来显示/隐藏固定的3D框架，冷区，页脚以及数据行。
　　使用 Flat 属性来设置用平面方式显示数据网格。

【从多种格式导入/导出数据到TDBGridEh】
　　EhLib 的函数集可以从DBGridEh导出数据到Text, Csv, HTML, RTF, XLS以及其内部格式。它可以保存数据到流（TStream对象）或文件。

例子
Pascal: SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,''c:\temp\file1.txt'',False);
C++: SaveDBGridEhToExportFile(__classid(TDBGridEhExportAsText),DBGridEh1,"c:\\temp\\file1.txt",false);

　　EhLib 的函数集可以从 Text以及其内部格式的数据导入到DBGridEh的数据集中。它可以从文件中读取数据或读取数据到流（TStream对象）。

【其它特性】－－
　　用lookup 编辑器，你可以在运行时清空（设置为Null） LookupKeyField 值。比如选择整个文本然后按Delete键。

－【冷区】
　　冷区是数据网格列集左边显示的不可滚动的区域。与固定列不同的是，冷区的列可以获得编辑焦点。可以通过设置FrozenCols属性来设置右边不可滚动的列集。

－【增量搜索】
　　TDBGridEh 允许用户在网格列中实现特定的“增量”搜索。当用户进入增量搜索时他可以显示字符以及网格，并且在当前的列中查找文本。使 用 dghIncSearch 和 dghPreferIncSearch的值（在OptionsEh 选项中) 在数据网格中操作增量搜 索。 dghIncSearch 值允许在数据网格中进行增量搜索。运行时你能够使用下面的键进行增量搜索：

　　　　 Ctrl+F - 开始增量搜索。
　　　　 Ctrl+Enter - 查找下一个匹配记录。
　　　　 Ctrl+Shift+Enter - 查找前一个匹配记录。

如果OptionsEh选项中的 dghIncSearch 是只读的，那么网络将自动设置增量模式在第一次按键以及1.5秒后返回普通模式。 dghPreferIncSearch 值决定网格设置自动增量搜索模式在第一次按键时替代单元编辑。

【水平或垂直滚动条】
　　使用 VertSctollbar, HorzSctollbar 属性来显示/隐藏以及跟踪水平或垂直滚动条。

【多选】
　　TDBGridEh 允许在选定的区域上进行选择记录，列以及矩形区域等操作：

×允许多选会影响下面这些属性：
　Options 选项中的 dgMultiSelect 属性 - 设置是否允许多选。
　Options 选项中的 dghClearSelection 属性- 设置在用户移到下一个单元时是否清除已选记录。
　Options 选项中的 EditActions 属性 -设置用户可以在已选记录上执行哪些操作（比如，拷贝，剪切，删除，粘贴，全选等）。
　Options 选项中的 AllowedSelections 属性-设置允许选定记录的类型（比如，行，列，矩形区域等）。
　Options 选项中的 Selection 属性－设置一个当前的多选状态，已选记录，列或矩形区域以及存取它们的属性和函数。

【从注册表或ini文件中保存或恢复网格和列的层次】
　　TDBGridEh 有一个常规设置来从注册表或ini文件中保存和恢复网络以及列的层次：
　　　RestoreColumnsLayout - 从注册表中恢复列的次序，宽度，排序标志。
　　　RestoreColumnsLayoutIni - 从ini文件中恢复列的次序，宽度，排序标志。
　　　RestoreGridLayout - 从注册表中恢复列的次序，宽度，可视，排序标志，排序索引或行高。
　　　RestoreGridLayoutIni - 从ini文件中恢复列的次序，宽度，可视，排序标志，排序索引或行高。
　　　SaveColumnsLayout - 保存列的次序，宽度，排序标志到注册表中。
　　　SaveColumnsLayoutIni - 保存列的次序，宽度，排序标志到ini文件中。
　　　SaveGridLayout - 保存列的次序，宽度，可视，排序标志，排序索引或行高到注册表中。
　　　SaveGridLayoutIni - 保存列的次序，宽度，可视，排序标志，排序索引或行高到ini文件中。

『以下内容仅供参考了，因为不知道它那个版本是多少，目前最新的版本是3.2吧，俺正在用，感觉很不错啊～～』
　当前版本的TDBGridEh不支持的特性：
　TDBGridEh 不能设置每一个数据窗口中单独行的行高。
　TDBGridEh 不能象TreeView那样工作。它不能拥有节点和枝叶。
　TDBGridEh 不能横向或纵向合并数据单元。

【将已存在的TDBGrid组件转换为TDBGridEh组件】：
　　尽管TDBGridEh并不是从TCustomDBGrid组件继承而来的，但是在TDBGridEh和TDBGrid中还是有一些相似的属性。
　　它允许仅用一点点代价来转换已存在的TDBGrid组件到TDBGridEh。

【注意】：可以按照下面的提示来转转换已存在的TDBGrid组件到TDBGridEh：
　　在Delphi的IDE中打开包含有TDBGrid组件的应用程序。
　　设置视图方式为文本方式（Alt-F12）。
　　if key=VK_RETURN then //Key:回车
　　begin
　　　if (grdDetailData.SelectedIndex=grdDetailData.Columns.Count-1) and not (dgRowSelect in grdDetailData.Options) then
　　　BEGIN
　　　　if (dgEditing in grdDetailData.Options) and (grdDetailData.Row=grdDetailData.RowCount-1) then //从表GRID能进行编辑和当前光标焦点在最后一行时
　　　　　acAddDetailExecute(self)
　　　　else
　　　　begin
　　　　　grdDetailData.Row:=grdDetailData.Row+1; //改变光标焦点行到下一行(当为新增加时，这句不用运行
　　　　　grdDetailData.SelectedIndex:=0 //改变光标焦点列到第一列
　　　　end;
　　　END ELSE
　　　BEGIN
　　　　grdDetailData.SelectedIndex:=grdDetailData.SelectedIndex+1;
　　　　while grdDetailData.Columns[grdDetailData.SelectedIndex].ReadOnly do
　　　　　grdDetailData.SelectedIndex:=grdDetailData.SelectedIndex+1;
　　　END;
　　　key:=0;
　　end;
　　if key=VK_INSERT then //Insert键：新增一条记录
　　begin
　　　acAddDetailExecute(self);
　　　key:=0;
　　end;
　　if key=VK_DELETE then //Delte: 删除一条记录
　　begin
　　　acDeleteDetailExecute(self);
　　　key:=0;
　　end;

【页脚合计】
　 1、设置DBGRIDEH属性的FooterRowCount值为1;
　 2、设置DBGRIDEH属性的SumList的Active值为true;
　 3、设置你要求和的该列的Footer的ValueType类型为fvtSum;
　 4、运行OK！
　　在DataSet打开时写:
　　　DBGridEh1.Columns[0].Footer.Value := IntToStr DBGridEh1.DataSource.DataSet.RecordCount);