如何在DBGrid中布尔形数据显示为:为真时打一个"勾",为假时空白

Question

如题,谢谢!

Answer 1

在Fields Editor中设置该字段的DisplayValue为:√

Answer 2

自己画。 
附代码： dbgPPO ： dbgrid , adoqryPPO : dataset
procedure TSPChargeForm.dbgPPODrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  left :integer;
begin
  if Column=dbgPPO.Columns[0] then
  begin
    left :=Round((Rect.Right-Rect.Left-10)/2);    dbgPPO.Canvas.Brush.Color :=clWhite;    //去掉阴影
    dbgPPO.Canvas.FillRect(Rect);    dbgPPO.Canvas.Pen.Color :=clblue;        //clTeal
    dbgPPO.Canvas.Pen.Width :=1;    dbgPPO.Canvas.MoveTo(Rect.Left+Left,Rect.Top+3);
    dbgPPO.Canvas.LineTo(Rect.Left+Left+10,Rect.Top+3);
    dbgPPO.Canvas.LineTo(Rect.Left+Left+10,Rect.Top+13);
    dbgPPO.Canvas.LineTo(Rect.Left+Left,Rect.Top+13);
    dbgPPO.Canvas.LineTo(Rect.Left+Left,Rect.Top+3);    if adoqryPPO.FieldByName('ID').AsString='Y' then
    begin
      dbgPPO.Canvas.MoveTo(Rect.Left+Left,Rect.Top+6);
      dbgPPO.Canvas.LineTo(Rect.Left+Left+4,Rect.Top+11);
      dbgPPO.Canvas.LineTo(Rect.Left+Left+12,Rect.Top+1);
    end;
  end;
end;

Answer 3

同意Snakeguo(楠) (莫等闲&up2myself) 设置下就可以的

Answer 4

用TopGrid或是DxDBgrid或是DbgridEh或是……去www.51delphi.com
里面随便找一个就可以实现

Answer 5

用控件吧！有现成的为什么不用，
Express的dxDbGrid就可以 了