Delphi中对“虚拟列”的处理方法

======================================================
注：本文源代码点此下载
======================================================

我们知道,从数据库表中选出的某些列不是按它的列值显示,需要对这种列作一个映射。

比如表a中的checkflag字段,有0,1,2三个值,在数据感知控件(dbgrid)里分别需要显示为:“审核中”、“审核不通过”、“审核通过”。一般有两种做法:

(1)在sql语句中进行处理,在oracle的sql plus中,我们可以用decode来处理,当然这样可以在sql语句中一步到位,如果使用视图,代码都不需要更改。但是问题也存在,这样的列,我姑且把它叫作虚拟列,数据感知控件只能读取,不能用post或updatebatch方法修改后提交,还是得用sql语句改。

(2)在代码中解决问题。数据感知控件(dbgrid)可以设picklist和keylist属性来完成列映射,如果这样的列是一个“普通”的列,ok,问题解决。但是如果这样的列也是一个decode出来的列,也就是数据库里decode了一遍,dbgrid里还要作映射的话,虽然也可以用picklist和keylist来作映射,但这样的列还是和(1)的问题一样,不能更改。这个时候就得使用ongettext,onsettext事件了。

这里首先要清楚,数据感知控件读一个field的值是读tfield的text值而不是value值,text与value实现分离,虽然默认情况下两者是一样的,对于ongettext,onsettext事件的改写,就可以满足更复杂的text与value区分的情况。在这里只要在数据集取出数据之后,写一个tfield的ongettext事件,根据输入来写result的值就可以了,这种方法无疑是最灵活的一种,列既可读也可写,当然代码量也最大。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/