dbgrideh的功能

a.點標題排序：

1.eh的optionsEh 的dghAutoSortMarking True

2? eh的sortlocal true

3.列的title的toolbutton為true

4。eh的optionsEh 的dghMultiSortMarking True? 多個字段一起排(按CTRL+Mouse)

5.uses加相應的驅動ehlibado/ehlibbde

b.模糊過濾:

?? uses ehlibado;

??? if Assigned(DataSource) and Assigned(DataSource.DataSet) then
????? DataSource.DataSet.Filtered :=true;
??? STFilter.Local :=True;
??? STFilter.Visible :=True;
?? //加過濾下拉列表

??? for i:=0 to Columns.Count-1 do
????? Columns[i].STFilter.ListSource :=DataSource;

??? //加排序列表菜單

??? 列的dropdownSizing

c.斑馬線

??? if Assigned(DataSource) and Assigned(DataSource.DataSet) then
??? begin
????? if DataSource.DataSet.IsSequenced then
????? begin
??????? OddRowColor :=clRed;
??????? EvenRowColor:=clYellow;
????? end
????? else begin
????????? aDBGridEH.OnDrawColumnCel//處理

??????? end;
????? end;
??? end;
procedure DBGridEhDrawColumnCell(Self: TObject;Sender: TObject;
? const Rect: TRect; DataCol: Integer; Column: TColumnEh;
? State: TGridDrawState);
begin
? if (gdSelected in State) then
? begin
? end
? else? if (Rect.Top = (Sender as TDBGridEh).CellRect((Sender as TDBGridEh).Col,(Sender as TDBGridEh).Row).Top) and (not (gdFocused in State) or not (Sender as TDBGridEh).Focused) then
? begin
??? (Sender as TDBGridEh).Canvas.Brush.Color := clblack;//選擇行
??? (Sender as TDBGridEh).Canvas.Font.Color := clWhite;
? end
? else
? begin
??? (Sender as TDBGridEh).Canvas.Brush.Color := clYellow;//奇行
??? (Sender as TDBGridEh).Canvas.Font.Color := clWindowText;
? end;
? if (not (gdSelected in State)) and ((((Sender as TDBGridEh).DataSource.DataSet.RecNo) mod 2) =0) then
? begin
??? (Sender as TDBGridEh).Canvas.Brush.Color := clred;//偶行
??? (Sender as TDBGridEh).Canvas.Font.Color := clWindowText;
? end;
//? (Sender as TDBGridEh).Canvas.FillRect(Rect);
? (Sender as TDBGridEh).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
d.統計欄

e.保存grid位置

?? SaveGridLayoutIni(IniFileName,GetFullName(TWinControl(Sender)),true);

??? RestoreGridLayoutIni(IniFileName,vSectionName,[grpColIndexEh, grpColWidthsEh, grpSortMarkerEh, grpColVisibleEh,grpDropDownRowsEh,grpDropDownWidthEh]);

posted on 2008-09-05 12:20 江宇旋 閱讀(...) 評論(...) 編輯 收藏

轉載于:https://www.cnblogs.com/jiangyuxuan/archive/2008/09/05/1285035.html

總結

以上是生活随笔為你收集整理的dbgrideh的功能的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。