在TDBGrid控件中为作修改过的记录进行标识!

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

unit testDBG;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls,Types;

type

TForm1 = class(TForm)

DBG: TDBGrid;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

procedure DBGDrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure DBGKeyPress(Sender: TObject; var Key: Char);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

type

MyRect=array[0..200] of Tpoint;

var

ME:MyRect;//记录已经修改过记录的单元格的左上叫的点

i:integer;

Cpoint:Tpoint;//当前单元格左上角的点

procedure TForm1.DBGDrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

J:integer;

begin

if (gdFocused in State) {or (gdSelected in State) or (gdFixed in state)} then

begin

{下面的语句是记录格当前活动单元格的左上角坐标}

Cpoint.X:=rect.Left;

cpoint.Y:=rect.Top;

end;

for J:=0 to I do

begin

if (rect.Top=me[j].Y) and (rect.left=me[j].X) then

begin//判断该单元格是否存在于已修改的数组的记录中!

dbg.Canvas.Brush.Color:=clRed;

dbg.DefaultDrawColumnCell(rect,Datacol,column,state);

end;

end;

end;

procedure TForm1.DBGKeyPress(Sender: TObject; var Key: Char);

{由于没有找到更好的记录点,所以如果修改的时候只按了一个按键的话将不会触发这个语句!

因为第一次执行这个语句的时候数据还没有处于修改或者插入状态,本人只测试了修改状态,添加状态没测试过!}

var

J:integer;

begin

if dbg.DataSource.DataSet.State in [dsEdit, dsInsert] then

begin//处于就该状态:

for J:=0 to i do

begin//判断该格是否已经记录了

if (me[j].X=cpoint.X) and (me[j].Y=cpoint.Y) then

exit;

end;//如果没记录就把它记录下来!

me[i].X:=cpoint.X;

me[i].Y:=cpoint.Y;

i:=i+1;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

I:=0;//初始化数组起点

end;

end.

本人只是做了修改的测试,是成功的,这么少的代码肯定是不能符合大家的更高的需求,这里只是完成了最基本的功能,方便大家理解,有什么更高的要求当然是根据各人的需要,玩一些数字游戏罢了!大家可以把它修改成更安全,更好用的东西!

谢谢大家的捧场!

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航