DELPHI中DBGrid中行的定位及着色实现

2 解决的办法
首先查找Ttable和Tquery控件没有发现能够直接定位数据行的方法，同样查找DBGrid也没有找到相应的能够直接定位到某行数据的函数，然后我就从数据集的类上查找，经过不断努力，终于在TdataSet中发现了一个方法：GoToBookmark,这个方法能够使当前的DBGrid中的记录指针指向你需要指定的行。

在找到这个方法后，问题还只解决了一半，还必须把当前指针指向的数据行改变颜色，就是说必须用一个明显的方式去标志当前选中的行（出了在DBGrid上的那个小的不明显的书签外）这个很显然就是在DBGrid控件中实现了，在DBGrid控件中有一个事件OnDrawDataCell，重载这个方法就可以实现指定的数据行的颜色的改变了。

具体的使用过程如下：

(1) 动态定位数据行

//===============================================================

//过程名： DyDbgDataLine

//作者： haitian

//日期： 2003-02-22

//功能： 根据用户指定的条件自动移动到DBGrid控件中符合此条件的某行数据上

//输入参数：

// sValue：当前需要移动到的行的值；

// tab：当前DBGrid中对应的表的数据；

// dsr：当前需要操作的数据源；

//返回值： 无

//修改记录：

//================================================================

Procedure DyDbgDataLine(sValue:string;tab:Ttable;dsr:TDatasource)

var

bookmark:TBookMark;

begin

//记录当前标记的行；

bookmark:=self. tab.GetBookmark;

self. tab.first;

while not self. tab.Eof do

begin

if self. tab.FieldByName('cpbh').AsString= sValue then

begin

bookmark:=self. tab.GetBookmark;

break;

end;

self. tab.Next;

end;

self. dsr.DataSet.GotoBookmark(pointer(bookmark));

End;

说明：使用的表已经和当前显示界面上的DBGrid绑定；

(2) 改变颜色标记当前数据行

首先把DBGrid的DefaultDrawing属性设为false;然后在OnDrawDataCell事件函数中调用下面的函数：

//===============================================================

//过程名： DrawLine

//作者： haitian

//日期： 2003-02-22

//功能： 把Dbgrid中的指定的行改变颜色作为标记；

//输入参数：

// zdm：字段名；

// Rect：需要出入的行的某个单元；

// Field：当前显示的域；

// state：当前行的显示状态；

// zdz：当前需要移动到的行的值；

// tab：当前DBGrid中对应的表的数据；

// dbg：当前需要操作的DBGrid；

//返回值： 无

//修改记录：

//================================================================

procedurDrawLine(tab:Ttable;const Rect:Trect;Field:Tfield;state:TgridDrawState;dbg:TDBGrid)

begin

if (tab.fieldbyname(zdm).asstring=zdz)then

begin

dbg.canvas.font.color:=clred;

dbg.canvas.brush.color:=clyellow;

end;

dbg.DefaultDrawDataCell(Rect,Field,State);

end;