EhLib 控件使用技巧

2003-12-5 15:22:29     使用 TDBSumList 组件

  还记得以前有朋友问过这样一个问题：在 DBGrid 下如何像 Excel 一样能够做统计计算，实话说，使用 DBGrid 来做的话着实不易，不过现在有了这个咚咚，相信会简单些。以下是摘录的一些使用上的说明：

【 TDBSumList 说明】

  你可以使用 TDBSumList 在可视动态变化数据集中进行记录统计。在你想查看的数据集中设置相关的数据字段，然后写 SumListChanged 事件来指定在 TDBSumList 发生改变后所要做的操作。 TDBSumList 的 SumCollection 属性上一个 TDBSum 对象容器。每个 TDBSum 对象是一个可以指定集合值的元件。 FieldName 和 GroupOperation 决定了集合值的类型， SumValue 控制当前的集合值。

  TDBSumList 被埋藏于 DBGridEh 组件中，因此所的下面有关 TDBGridEh.SumList 的说明与 TDBGirdEh 的 TDBGridEh.SumList 属性的说明是一样的。

【如何工作以及为什么有时 SumList 的集合值计算不正确？】

  你知道 data-aware 控件与数据集是通过 TDataLink 对象相连接的。 TDataLink 不允许快速重新计算集合值。例如，当从数据集中删除记录时，数据集发送 deDataSetChange 事件给所有的 TDataLink 对象，在当前局部过滤发生改变时，同样的事件也被发送了。因此当 TDataLink 接收到该事件时，它不得不在所有的数据集中重新计算集合值，甚至于仅从数据集中删除一条记录。在激活后， TDBSumList 重载了数据集的下列事件： OnAfterEdit, OnAfterInsert, OnAfterOpen, OnAfterPost, OnAfterScroll, OnBeforeDelete, OnAfterClose 。这种方法避免了在所有的数据集中它。在不需要它时，又会出现其它的问题，比如： T 运行时指定这些事件。在指定上述事件之一以前，关闭 SumList 。

  在下面的情形下， SumList 发出存取错误信息。 SumList 试着向数据集返回事件，但数据集数据并未被删除。在 SumList( 或网格 ) 以及数据集放置在不同的窗体（数据模块）这种情况下，可以显示数据。在这种情况下，试着在从数据集或数据模块中数据集数据被删除时关闭 SumList 。

  如果你使用 SetRange 或 ApplyRange 事件， SumList 将不能跟踪数据集中发生的变化。但可以调用 SumList.RecalAll 方法。

  在非 BDE 数据集的主 / 明细表中， SumList 不能跟踪数据变化。在主数据集激活状态数据集发生变化后，调用 SumList.RecalAll 方法。

  在任何其它情况下，如果你发现了其它 SumList 的计算值不正确，你都可以调用 RecalAll 方法。  

2003-12-5 15:24:54     如何使用 Ehlib 实现自动排序

  在 Ehlib 的 DataService 文件夹下提供了一些可以使数据集实现自动排序的文件。 TDBGridEh 使用这些文件中的相关对象可以实现当排序标记发生变化时实现自动排序。

  如果你改变了数据网格及标题的排序标记而没有书写 OnSortMarkingChanged 事件，数据网格将尝试自动进行数据排序。 DBGridEhDataService 尝试通过 GetDatasetFeaturesForDataSet 查找 TDataSet 中可以排序的特定的对象。正如你所知道的， TDataSet 不支持数据排序，但它的派生对象 TQuery 或 TClientDataSet 却允许实现数据排序。使用过程 RegisterDatasetFeaturesEh ，你可以注册 TDatasetFeaturesEhClass 类，该类可以实现对 TQuery, TADOQuery 以及 TClientDataSet 对象进行排序。简单地通过 uses 子句添加 Ehlib... （ EhlibBDE,EhlibADO,EhlibCDS ）的单元之一到你的工程的任意单元中，与它们相连的数据网格将自动对该数据集进行排序。 EhLibBDE, EhLibADO, EhLibCDS 通过在单元数据集中调用 RegisterDatasetFeaturesEh 过程来实现初始化。对于其它数据集类型，你必须编写、并注册可以实现该数据集排序的新对象。书写过程 T[ 你的数据集 ]DatasetFeaturesEh.ApplySorting ，你可以存取那些使用了 SortMarkedColumns 属性的列以实现直接排序。你可以查看 DbUtilsEh 单元中的示例以明白如何编写 T[ 你的数据集 ]DatasetFeaturesEh 类及查看 EhLibBDE 单元以明白如何注册 T[ 你的数据集 ]DatasetFeaturesEh 类。

引擎           数据集           单元文件

BDE            TQuery           EhLibBDE

ADO            TADOQuery        EhLibADO

ClientDataSet  TClientDataSet   EhLibCDS

DBExpress      TSQLQuery        EhLibDBX

InterBase      Express TIBQuery EhLibIBX

【译【者注】：

  实际上，实现该功能非常简单（以下我以 BDE 为例说明如何实现自动排序）：

  1. 在窗体上放置一个 DBGridEh 组件，并将其连接到相应的 BDE 数据集；

  2. 将该组件的 [OptionsEn] 中的 dgAutoSortMarking 属性设置为 True;

  3. 双击该组件，在其弹出的属性编辑器中添加相关字段；

  4. 将要排序的字段的属性列表的 [Title] 的 TitleButton 属性设置为 True;

  5. 最后，千万不要忘了在 uses 子句中加上 EhlibBDE 单元。

好了，使用上面的方法，你会发现原来通过 Ehlib 实现数据的自动排序居然如些简单！

2003-12-5 15:39:37     以下这段文字摘自《 Delphi 园地》

【定制网格标题 】－－

－【复杂标题】

  TDBGridEh 允许在多列上创建标题，设置 DBGridEh.UseMultiTitle 属性为 True 并且填充字段的标签或列标题的标题，可以使用下面的规则：字段标签中的文本部分或列标题必须由几部分组成，并且用 "|" 分割，几个列的每一个通用部分都设置为相同。其它字段或标题必须在相应的部分包含同样的文本。

例如：

Field1.DisplayLabel := 'Title1|SubTitle1';

Field2.DisplayLabel := 'Title1|SubTitle2';

或

DBGridEh.Columns[0].Title.Caption := 'Title1|SubTitle1';

DBGridEh.Columns[1].Title.Caption := 'Title1|SubTitle2';

－【按钮式标题】

  设置 Column.Title.TitleButton 为 True 可以强制标题单元为按钮式。写 OnTitleBtnClick 事件来控制用户单击标题单元时的操作。

－【在标题中显示位图】

  To show bitmap in titles instead of caption use TitleImages property of TDBGridEh and ImageIndex property of TColumnTitleEh.

－【自动用位置标识排序标题】 .

  TDBGridEh allows to show special sortmarking bitmaps (small triangles) in the right part of title cell. In order to automatically marking title by sortmarking bitmaps add dghAutoSortMarking to OptionsEh property. Add dghMultiSortMarking too in order to allow sortmarking several columns simultaneously. Set Column.Title.TitleButton to true for titles which will have possibility to change sortmarkers at run time. At runtime clicking on title will change sortmarking. Holding Ctrl key allows to mark several columns simultaneously. After user change sormarking grid call OnSortMarkingChanged event. You can write this event to change sorting and reopen in dataset. Use SortMarkedColumns property to access to sortmarked columns.

－【标题属性的默认值】

  使用 TDBGridEh.ColumnDefValues.Title 来设置标题属性的默认值。

【定制网格页脚】－－

－【页脚以及统计值】

  TDBGridEh allows to show special row (footer) or rows at bottom part. Use FooterRowCount property to specify the number of footer rows in the grid. Use Footer or Footers property of TColumnEh object to specify information which need to show in footer cells. Footers property useful then you have more then one footer rows. Footers is a collection of TColumnFooterEh objects where information from i-th aliment of collection will be show in i-th cell of footer column. In footer cell, it is possible to show: Sum value for specified field, record count, value of a specified field or static text. Use property Footer.ValueType or Footers[i].ValueType to specify which type of value will be show in footer cell. If ValueType = fvtStaticText, then set the property Value to specify text which need to show. If ValueType = fvtFieldValue, then you need to set property FieldName to specify field, value of which need to show. To force grid to calculate total values need to activate SumList (DBGridEh.SumList.Active := True). Set ValueType to fvtSum and grid must to show sum value of the column field in the footer cell, you can also specify Column.Footer.FieldName to calculate total value of the other field. Set ValueType to fvtCount to force grid to show count of records in the footer cell.

－【定制网格数据单元】

  在数据单元中显示字段值为图形。

  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);

2003-12-5 16:56:13    Ehlib 的 DBGridEh 控件怎样才能像 dxDBGrid 控件那样输出文件到 EXCEL

以下是 EHLIB 的导出代码：（其实 EHLIB 的 DEMO1 中已有）

procedure TInvoiceManager.ppmSaveSelectionClick(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;

2003-12-5 17:05:48    Ehlib 在 Delphi 7 中的安装（我可是花了半天的力气才搞定的哦）

Delphi 7 中的安装方法

 1. 把 EhLib 中的 common 和 DataService 文件拷贝到 Delphi7 目录中 .

 2. 在 TOOLS->Environment Options->Library->Library Path 中添入 EHLIB 路径。

 3. 打开新建文件夹中的 EHLIB70.DPK , 编译一下，但不要安装。

 4. 打开 Ehlib 中的 DclEhLib70.DPK, 编译 , 安装

 5. 在 Delphi 7 中打开 DclEhLib70.dpk ，编译并安装。

 6. 组件面板中出现一个 EhLib 的组件页。

 7. 打开附带的 DEMOS ，编译并运行，测试安装成功。