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;
解决方案 »
- 请教二层查询对DataSource过滤
- 【paradox】的数据库谁有比较简单些的还原备份数据的例子?因为不想将备份和主程序分开。所以拷贝复制的办法不行。
- access数据库存、取图片问题(渴望高手解决问题)
- 如果不用INDEX,但又需要对某一计算字段进行排序,有没有什么方法?
- 画点的问题
- 关于主从数据库的问题——————————在线等!!
- 本人急求一份Seagate Crystal Reports 7.0(水晶报表)安装,谢谢!哪位仁兄有的话加QQ147040054 谢谢!
- 请问两个表的操作如何进行事务处理?还有请问如何撤消Tdataset这个事务
- TDBChat中用什么属性实现“3d条,3d累加条,3d纵向条,3d饼图,2d条,2d累加条,2d纵向条,2d饼图”
- delphi还有前途么
- 我今天心情不好!
- 如何做一个按钮,功能是使窗口最大化。
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事件