双击ADOQUERY或QUERY,建立静态字段,再在需要转换的字段的OnGetText事件中写
procedure TForm1.ADOQueryRepairIfGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  if(Sender as TField).Value=False then  Text:='假' else
    if (Sender as TField).Value=True then Text:='真';
end;