关于布尔型字段在dbgrid上显示的问题 使用sql server数据库设计字段: 在delphi7.0的dbgrid上显示的类型方式是true/false我想在dbgrid上显示的是 是/否 有/无请问各位前辈如何实现. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在FIELD的GETTEXT中写如procedure TF_Xsgl_Rep_dLbJd.ADOQuery1F_FWZTGetText(Sender: TField; var Text: String; DisplayText: Boolean);begin if Sender.IsNull then exit; case sender.AsInteger of 0: Text:='未售'; 1: Text:='预留'; end;end; procedure Tform.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);beginTBooleanField(adoquery1.fieldbyname('flag')).DisplayValues:='√;×'; //TBooleanField(adoquery1.fieldbyname('flag')).DisplayValues:='有;无';//TBooleanField(adoquery1.fieldbyname('flag')).DisplayValues:='是;否';//flag为字段名end;还是自己解决了。上面为简单解决的方法。给大家参考。谢谢Spqk005(渐近死亡)。结贴 程序控制优盘自动弹出? 救命,为啥fastreport不可以传参数进去? 请问 在delphi程序里怎样给dbf表创建索引文件?(急!急!急!) 一奇怪的问题,请大家帮我诊断一下。谢谢!! 关于图像的缩放 怎么又错了 还是ShellAbout 我想要一个小写数字转换成大写的函数和一个大写转换小写的函数!!!送分的呀! Timer的奇怪问题? 请问使用Findwindow()Api函数时,窗体类名的值有那几种! 怎么让我的程序能在98下正常运行? 怎么判断一个字符(串)是 英文,汉字还是乱码? 多谢!
procedure TF_Xsgl_Rep_dLbJd.ADOQuery1F_FWZTGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if Sender.IsNull then exit;
case sender.AsInteger of
0: Text:='未售';
1: Text:='预留';
end;
end;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
TBooleanField(adoquery1.fieldbyname('flag')).DisplayValues:='√;×';
//TBooleanField(adoquery1.fieldbyname('flag')).DisplayValues:='有;无';
//TBooleanField(adoquery1.fieldbyname('flag')).DisplayValues:='是;否';//flag为字段名
end;还是自己解决了。
上面为简单解决的方法。
给大家参考。
谢谢Spqk005(渐近死亡)。
结贴