在报表中用不同的颜色代表不同类型的记录(急、急、急)

Question

感觉你在写一个什么小系统.
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
beginend;procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
beginend;处理以上两个事件就行了

Answer 1

iforever : 如果我想在报表预览的时候，就实现不同类型的记录用不同的颜色区分。该如何
做呢？

Answer 2

问题终于解决了，谢谢各位帮忙。
分数不多，大家平分吧。^_^下面是解决问题的代码，在此与大家共享。
调用DetailBand的BeforePrint方法
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
if Query1.FieldByName('记录类型').AsString =‘迟到’ then
detailband1.color := clred
else if Query1.FieldByName('记录类型').AsString =‘外出’ then
detailband1.Color := clBlue
else detailband1.color := clwhite;