你在Query上双击,选择你的那个boolean字段,在它的
procedure TForm_dxyckcx.TuxedoQuery1kxsxGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if sender.AsString='00' then text:='交纳代销押金';
if sender.AsString='01' then text:='交纳代收押金';
if sender.AsString='02' then text:='退还代销押金';
if sender.AsString='03' then text:='退还代收押金';
end;
procedure TForm_dxyckcx.TuxedoQuery1kxsxGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if sender.AsString='00' then text:='交纳代销押金';
if sender.AsString='01' then text:='交纳代收押金';
if sender.AsString='02' then text:='退还代销押金';
if sender.AsString='03' then text:='退还代收押金';
end;
解决方案 »
- 通过文件后缀名获取打开文件的程序名字
- 请问[Fatal Error] XMLParse.pas(1112): Could not create output file 'C:\Dcu(D5)\XMLParse.dcu'
- 各位删除基类界面的多余的组件后使得子界面自动删除?
- 如何在frame中引用外部exe文件
- 如何在一个DBGrideh中显示几个查询的内容,谢谢!
- 在登陆时怎样验证特殊字符?
- 请大家进来看看。
- 旧话重说:如何组建一个局域网? 在线wait....
- dbgrid中的lookup字段值能修改吗?
- DELPHI7的调试
- 大家学delphi时都看的什么书啊?能介绍几本比较好的吗?你们感觉mastering delphi6怎么样?
- 初学delphi,又一个简单的问题,谢谢大家帮忙。急呀。:)
table1(id ,state ,name)
可以这样:
select '正常' as Astate,name,id from table where state = true
union
select '不正常' as Astate,name,id from table where state = false
table1(id ,state ,name)
可以这样:
select '正常' as Astate,name,id from table1 where state = true
union
select '不正常' as Astate,name,id from table1 where state = false
when TRUE: '正常'
when FALSE: '不正常' from YourTable本地数据库:N/A