Vb教程 Vb.net教程 Vfp教程 C/C++教程 Vc/Vc++教程 Delphi教程 Java教程 Powerbuilder
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 论坛  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> delphi教程 >> 正文

DBGrid中行的定位及着色实现
文章来源:csdn 作者:haitianwjl

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;

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有