向数据库更改完数据之后,按“提交”按钮,然后要在dbgrid中高亮显示我刚才修改过的那条记录!
解决方案 »
- delphi如何调用网页上的一个控件,
- ---问一个活动窗口的问题。
- 取QQ服务器时间
- 最简单的SQL查询语句,怎么也出错呀????
- sql server导出到excel
- 有关Pagecontrol的东东!
- 怎样用ADOQUERY动态创建一个FOXPRO数据库表?
- 关于合成project中遇到的duplicate database name 'DRIVER1'的问题!
- 如何立即中止正在复制的文件!
- TDbText有TransParent(透明)属性,TDBEdit没有,有什么简单的处理办法。
- 用flatmemo怎样设置可以实现透明背景?
- 求助:怎么使 dbgrideh 自动的添加一行,谢谢!(马上送分)
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if dm.QueryClientinfo.RecNo mod 2=0 then
begin
DBGrid1.Canvas.Brush.Color:=rgb(248,251,234);
dbgrid1.Canvas.Font.Color:=clblack;
end
else begin
DBGrid1.Canvas.Brush.Color:=rgb(255,255,255);
dbgrid1.Canvas.Font.Color:=clblack;
end;
if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then
begin
DBGrid1.Canvas.Brush.Color:=RGB(200,210,164);
DBGrid1.Canvas.FillRect(rect);
DBGrid1.Canvas.font.color:=clBlack;
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);