delphi 工作日记

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

1 问题的提出

    在对一个数据库系统进行操作的时候，发现不能对DBGrid控件中的数据行定位及在定位到某行后无法对当前行进行明显的标志（例如改变颜色），在往上查找了很多资料，发现基本没有对这个内容的介绍，包括一些动态设顶行的颜色等文章讲的都是在数据初始化时做的操作，而没有在数据源刷新后的重新定位功能，所以下决心解决这个问题，通过一上午对DELPHI帮助的研究和查看相关的资料，稍有小成，现写出来和各位同行共同学习，不当之处请多指教。

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;

___________________________________________________________________________________________________________

 

STRINGGRID 鼠标右键 获得选中行2009年07月17日 星期五 23:21在StringGrid1的MouseDown事件里写：
void __fastcall TfmRecipeMB::SGMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
try{
   if (Button == mbRight) {
    int   nRow,nCol;
    ((TStringGrid   *)Sender)->MouseToCell(X,Y,nCol,nRow);
    ((TStringGrid   *)Sender)->Row   =   nRow;
    ((TStringGrid   *)Sender)->Col   =   nCol;
   }
}
catch(...){};
}
___________________________________________________________________________________________________________

delphi 运行后自动执行的代码

方法很多了。
1、在主窗体的onCreate事件中写的代码

2、在delphi程序的任何一个单元unit代码中末尾：
initialization
//这儿的代码在delphi程序初始化时自动执行
end.

3、project文件（project.dpr）文件中：
Application.Initialize;
//这儿的在delphi程序运行时也会自动执行
Application.CreateForm(TForm1, Form1);

___________________________________________________________________________________________________________