dbgrid 根据某一列的值，改变颜色及该列的显示值

 if (Sender as TDBGridEh).DataSource.DataSet.FieldByName('YZZT').AsString  ='-1' then  //刚录入未提交
     begin
       dbgrdh1.Canvas.Brush.Color :=clred ;
       dbgrdh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
       if Column.FieldName ='YZZT' then  dbgrdh1.Canvas.TextRect(Rect, Rect.Left + 3, Rect.Top + 3, '未提交');
     end
     else if (Sender as TDBGridEh).DataSource.DataSet.FieldByName('YZZT').AsString ='0' then  //已提交未校对
     begin
       dbgrdh1.Canvas.Brush.Color :=clYellow ;
       dbgrdh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
       if Column.FieldName ='YZZT' then dbgrdh1.Canvas.TextRect(Rect, Rect.Left + 3, Rect.Top + 3,'未校对'  );
     end
     else if (Sender as TDBGridEh).DataSource.DataSet.FieldByName('YZZT').AsString ='1' then //
     begin
       dbgrdh1.Canvas.Brush.Color :=clBlue ;
       dbgrdh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
       if Column.FieldName ='YZZT' then dbgrdh1.Canvas.TextRect(Rect, Rect.Left + 3, Rect.Top + 3,'已校对'  );
     end
     else if (Sender as TDBGridEh).DataSource.DataSet.FieldByName('YZZT').AsString ='2' then
     begin
       dbgrdh1.Canvas.Brush.Color :=clred ;
       dbgrdh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
       if Column.FieldName ='YZZT' then dbgrdh1.Canvas.TextRect(Rect, Rect.Left + 3, Rect.Top + 3,'已停止'  );
     end;