SQL语句:
var
str:string;
begin
str:='select 性别=case 性别 when ''M'' then ''女'' else ''男'' end from tablename';
with Query do
begin
close;
sql.clear;
sql.add(str);
open;
end;
end;
var
str:string;
begin
str:='select 性别=case 性别 when ''M'' then ''女'' else ''男'' end from tablename';
with Query do
begin
close;
sql.clear;
sql.add(str);
open;
end;
end;
m 男(写什么随你)
f 女
将两张表以sex为关键字连接
如果不是,其dataset控件可用Tquery,其SQl语句为。
select 性别,显示性别=case 性别 when 'm' then '男' when 'w' then '女' else ‘不详 ’end from tablename
然后:query1.filedbyname('性别').visible:=false;
增加计算字段,
在OnCalcField事件中处理。
var Text: String; DisplayText: Boolean);
begin
if DisplayText then
begin
if Sender.AsBoolean then
begin
Text:='是';
end
else
begin
Text:='否';
end;
end;
end;
noplay是query1的field edit中的一个字段它有GetText事件