到百度首頁 	
您的查詢字詞都已標明如下：ehlib footer 顯示  (點擊查詢詞，可以跳到它在文中首次出現的位置)
如果打開速度慢，您可以嘗試打開無圖片的快照； 如果您想保存該頁面，可以添加到搜藏
(百度和網頁http://www.delphibbs.com/keylife/iblog_show.asp?xid=13930的作者無關，不對其內容負責。百度快照謹為網絡故障時之索引，不代表被搜索網站的即時頁面。)
保存 評價
游戲規則 免費注冊 資料下載 關于本站
問題分類 編程問題 非技術題 富翁列表 我的信息 提出問題 在線富翁 富翁日歷 筆記列表 我的筆記 寫作筆記 全文檢索 《專家門診》
/keylife/iblog_show.aspxid=13930
	
KeyLife富翁筆記
作者　: JohnSun2002
標題　: 轉貼：EhLib使用全攻略（收藏）
關鍵字:
分類　: 個人專區
密級　: 公開
(評分: , 回復: 0, 閱讀: 4010) ??

KeyLife富翁筆記  
作者　: archonwang
標題　: Ehlib 的使用 
關鍵字: 前 言 
分類　: 個人專區 
密級　: 公開 
(評分:★★★ , 回復: 10, 閱讀: 4649) »» 
   最近閑來無事，就裝了一個 Ehlib 來玩。呵呵，沒想到，這么個小東西一下子就把我迷住了，細細品來，的確是一個非常好的控件作品。作者厲害厲害啊～～ 


 
2003-12-5 15:17:00    
 發表評語»»»     

 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，編譯并運行，測試安裝成功。
  

 
 2003-12-8 16:41:54    DBGridEh控件的頁腳屬性怎么設？0、將dBGridEh.FooterRowCount := 1
1、將DBGridEh.SumList.Active := True;
2、將Columns[要求和的字段].Footer.ValueType := vtSum;
就行了

最后要注意，在FormCloseQuery事件中，一定要將SumList.Active := False,因為在數據集中的數據多了以后，FormClose會讓DBGridEh釋放所有EhLib資源，會使得退出很慢，所以將SumList.Active := False不會引起退出很慢 

 
 2003-12-10 11:22:37    如何實現在DbgridEh中不同的行顯示不同的顏色？或某一些條件的行顯示特定的顏色？【實現 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 := $00FFC4C4
   else
     Background := $00FFDDDD;
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;   

 
 2003-12-10 14:19:28    DBGridEh 控件導出文件到 EXCEL 的補充說明（關于多表頭導出的設計思路）   如果表頭是著樣的：
      |Mergetitle|