双击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;
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;
procedure TFORM_GBGL_LDBZ.cdsYGJBXXSZDWMCGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if TField(sender).asstring='1' then
Text:='True'
else
Text:='False';
DisplayText:=Boolean;
end;