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事件中设置列
还有...