delphi中如何设置dbgrid中显示数据的格式

delphi中怎么设置dbgrid中显示数据的格式？
就是怎么绑定dbgrid与数据库，使数据库中的状态标志在dbgrid中显示的是具体状态，如要查询的数据库中的表格的一列中表示状态，用数字表示的，0,1分别表示不同状态，0-没用完，1-已用完，怎么使查询后显示在dbgrid中的这一列是具体状态：没用完、已用完，而不是数字。谢谢大虾们！ delphi访问数据库 Delphi 数据库
[解决办法]
又见月经贴。最简单的办法，就是在数据表中相关字段的OnGetText中写代码如下：
procedure TForm1.ClientDataSet1dfdfdGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if Sender.AsInteger = 0 then
    Text := '没用完'
  else if Sender.AsInteger = 1 then
    Text := '已用完'
  else Text := '其他';
end;

[解决办法]
第一种：sql语句用 select case 某列 when 0 then '没用完' else 已用完 end from xxx
第二种：TAdoquery OnCalcFields事件中设置列
还有...