dxdbgrid 动态更新颜色

Question

数据库表 goods_price
id goods_name goods_type unit price  provider
1  A          A          1    1.0    A1
2  B          A          1    2.0    A1
3  C          B          1    3.0    A2
4  D          B          2    4.0    A2
5  E          C          2    5.     A3
6  F          D          3    6      A4
.....
.....
要求 根据供应商字段的不同内容数据表格颜色交替，相同内容颜色相同。
解决马上给分
不胜感激！
 

Answer 1

数据库表 goods_price
id goods_name goods_type unit price  provider
1  A          A          1    1.0    A1
2  B          A          1    2.0    A1
3  C          B          1    3.0    A2
4  D          B          2    4.0    A2
5  E          C          2    5.     A3
6  F          D          3    6      A4
.....
.....
要求 根据provider字段的不同内容数据表格颜色交替，相同内容颜色相同。
解决马上给分
不胜感激！

Answer 2

procedure TMainform.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   if dbgrid1.datasource.dataset.filedbyname('provider').text='A1' then
      DBGrid1.Canvas.Font.Color :=clred
   else if dbgrid1.datasource.dataset.filedbyname('provider').text='A1' then
      DBGrid1.Canvas.Font.Color :=clblue;
   else
      DBGrid1.Canvas.Font.Color :=clgreen;   DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);    
end;

Answer 3

1:首先确认着色的分配方案,其中颜色与字体颜色相同.
   例如根据供应商的排列充号作为颜色的因子,确定一个变动量,确定一个启始颜色.在生成你的数据表格中,增加一列颜色字段,显示时,根据此字段的内容确定颜色.因为颜色是一个整型值,例如:$000007D0
  id goods_name goods_type unit price  provider  tColor
   1  A          A          1    1.0    A1       $000007D0  
   2  B          A          1    2.0    A1       $000007D0 
   3  C          B          1    3.0    A2       $000009D0
   4  D          B          2    4.0    A2       $000009D0
   5  E          C          2    5.     A3       $000011D0
   6  F          D          3    6      A3       $000011D0
......
  一定要注意:变动量要适当,否则不明显,或反差太大,这个反复试一下就知道了.2.在DrawColumnCell事件,根椐tColor的值设定颜色即可.祝楼主成功

Answer 4

1:首先确认着色的分配方案,其中颜色与字体颜色不能相同!!!.
   例如根据供应商的排列充号作为颜色的因子,确定一个变动量,确定一个启始颜色.在生成你的数据表格中,增加一列颜色字段,显示时,根据此字段的内容确定颜色.因为颜色是一个整型值,例如:$000007D0
  id goods_name goods_type unit price  provider  tColor
   1  A          A          1    1.0    A1       $000007D0  
   2  B          A          1    2.0    A1       $000007D0 
   3  C          B          1    3.0    A2       $000009D0
   4  D          B          2    4.0    A2       $000009D0
   5  E          C          2    5.     A3       $000011D0
   6  F          D          3    6      A3       $000011D0
......
  一定要注意:变动量要适当,否则不明显,或反差太大,这个反复试一下就知道了.2.在DrawColumnCell事件,根椐tColor的值设定颜色即可.祝楼主成功