问题的提出
在对一个数据库系统进行操作的时候发现不能对DBGrid控件中的数据行定位及在定位到某行后无法对当前行进行明显的标志（例如改变颜色）在往上查找了很多资料发现基本没有对这个内容的介绍包括一些动态设顶行的颜色等文章讲的都是在数据初始化时做的操作而没有在数据源刷新后的重新定位功能所以下决心解决这个问题通过一上午对DELPHI帮助的研究和查看相关的资料稍有小成现写出来和各位同行共同学习不当之处请多指教
解决的办法
首先查找Ttable和Tquery控件没有发现能够直接定位数据行的方法同样查找DBGrid也没有找到相应的能够直接定位到某行数据的函数然后我就从数据集的类上查找经过不断努力终于在TdataSet中发现了一个方法GoToBookmark这个方法能够使当前的DBGrid中的记录指针指向你需要指定的行
在找到这个方法后问题还只解决了一半还必须把当前指针指向的数据行改变颜色就是说必须用一个明显的方式去标志当前选中的行（出了在DBGrid上的那个小的不明显的书签外）这个很显然就是在DBGrid控件中实现了在DBGrid控件中有一个事件OnDrawDataCell重载这个方法就可以实现指定的数据行的颜色的改变了
具体的使用过程如下
()动态定位数据行
//
//过程名DyDbgDataLine
//作者haitian
//日期
//功能根据用户指定的条件自动移动到DBGrid控件中符合此条件的某行数据上
//输入参数
//sValue当前需要移动到的行的值
//tab当前DBGrid中对应的表的数据
//dsr当前需要操作的数据源
//返回值无
//修改记录
//
Procedure DyDbgDataLine(sValue:string;tab:Ttable;dsr:TDatasource)
var
bookmark:TBookMark;
begin
//记录当前标记的行
bookmark:=self tabGetBookmark;
self tabfirst;
while not self tabEof do
begin
if self tabFieldByName(cpbh)AsString= sValue then
begin
bookmark:=self tabGetBookmark;
break;
end;
self tabNext;
end;
self dsrDataSetGotoBookmark(pointer(bookmark));
End;
说明使用的表已经和当前显示界面上的DBGrid绑定
()改变颜色标记当前数据行
首先把DBGrid的DefaultDrawing属性设为false;然后在OnDrawDataCell事件函数中调用下面的函数
//
//过程名DrawLine
//作者haitian
//日期
//功能把Dbgrid中的指定的行改变颜色作为标记
//输入参数
//zdm字段名
//Rect需要出入的行的某个单元
//Field当前显示的域
//state当前行的显示状态
//zdz当前需要移动到的行的值
//tab当前DBGrid中对应的表的数据
//dbg当前需要操作的DBGrid
//返回值无
//修改记录
//
procedurDrawLine(tab:Ttable;const Rect:Trect;Field:Tfield;state:TgridDrawState;dbg:TDBGrid)
begin
if (tabfieldbyname(zdm)asstring=zdz)then
begin
lor:=clred;
lor:=clyellow;
end;
dbgDefaultDrawDataCell(RectFieldState);
end;
