改变数据库表的显示文本

最简单的办法，就是在数据表中相关字段的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事件中设置列

if adoquery1XXX.Value = 0 then
  adoquery1x.value = '没用完'
else
  adoquery1x.value = '已用完';
x、XXX需在adoquery1组件中添加。