procedure TF_Resource2.UniDBGrid1DrawColumnCell(Sender: TObject; ACol,
  ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);
begin

if Column.FieldName='zt' then
  begin
    if Column.Field.AsString='通过' then
    begin
      Attribs.Font.Color:=clGreen;
    end;
  end ;

end;