procedure TfrmCK_rkd.DBGrid_rkdDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
DBGrid_rkd.Canvas.Brush.Color:=clSkyBlue;
DBGrid_rkd.Font.Color:=clFuchsia;
if DBGrid_rkd.DataSource.DataSet.FieldByName('state').AsBoolean then
begin
//已经确认入库的记录
DBGrid_rkd.Canvas.Brush.Color:=clSkyBlue;
DBGrid_rkd.Font.Color:=clTeal;
end;
DBGrid_rkd.DefaultDrawColumnCell(Rect,datacol,column,State);
end;以上代码在运行时,DBGrid会不停的跳动,光标处于SQL查询忙状态,怎么解决啊
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
DBGrid_rkd.Canvas.Brush.Color:=clSkyBlue;
DBGrid_rkd.Font.Color:=clFuchsia;
if DBGrid_rkd.DataSource.DataSet.FieldByName('state').AsBoolean then
begin
//已经确认入库的记录
DBGrid_rkd.Canvas.Brush.Color:=clSkyBlue;
DBGrid_rkd.Font.Color:=clTeal;
end;
DBGrid_rkd.DefaultDrawColumnCell(Rect,datacol,column,State);
end;以上代码在运行时,DBGrid会不停的跳动,光标处于SQL查询忙状态,怎么解决啊
解决方案 »
- 求一SQL语句!
- 请问 DbGridEh 用 clientdataset 作数据源时 怎样 实现 点击 列头 时 实现 排序 ??????????
- 关于GZIP的问题,高分求解!!
- 怎样拖动Canvas.textout写出的文字?
- 誰有DELPHI版的五子棋的源代码?
- 关于BLOB两种写法为什么会不一致??
- 用ado连接excel,能读取数据,不知能否利用读取得数据直接生成报表?
- 如何才能获得文件的扩展名?
- 如何遍历DBGrid,插入到数据库
- 急!!急死人了,为什么我的邮件接收软件只能收部分网站的邮件??救救我,大虾,要给炒鱿鱼了。。唔唔。。
- 饭桶、群群、95进来接分
- js 调用 activex 问题
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if query.FieldByName('序号').AsInteger = 0 then
begin
DBGrid.Canvas.Font.Color := clred;
DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end
else
begin
DBGrid.Canvas.Font.Color := clblue;
DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;