数据库显示有关问题
数据库显示问题
将ADOquery ADOTable 的结果放到DBgrid中 我想实现数据库中的某一列如果是0 则显示 '男 ' 如果是1 则显示‘女’ 这个显示要怎么做 以前记得 现在不记得了 呵呵
------解决方案--------------------
在字段的GetText 和 SetText 中写代码:
procedure TDMDP_RES.cdsDP_CompanyIsOpenGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if sender.AsBoolean then
Text:= '已开业餐厅 '
else if (sender.AsBoolean=false) then
Text:= '新店址餐厅 ';
end;
procedure TDMDP_RES.cdsDP_CompanyIsOpenSetText(Sender: TField;
const Text: String);
var
mStr: boolean;
begin
if Text= '已开业餐厅 ' then
mStr:=true
else if Text= '新店址餐厅 ' then
mStr:=false;
sender.Value:=mStr;
end;
将ADOquery ADOTable 的结果放到DBgrid中 我想实现数据库中的某一列如果是0 则显示 '男 ' 如果是1 则显示‘女’ 这个显示要怎么做 以前记得 现在不记得了 呵呵
------解决方案--------------------
在字段的GetText 和 SetText 中写代码:
procedure TDMDP_RES.cdsDP_CompanyIsOpenGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if sender.AsBoolean then
Text:= '已开业餐厅 '
else if (sender.AsBoolean=false) then
Text:= '新店址餐厅 ';
end;
procedure TDMDP_RES.cdsDP_CompanyIsOpenSetText(Sender: TField;
const Text: String);
var
mStr: boolean;
begin
if Text= '已开业餐厅 ' then
mStr:=true
else if Text= '新店址餐厅 ' then
mStr:=false;
sender.Value:=mStr;
end;