全部博文(788)
分类:
2009-02-19 17:03:24
用触发器
或者在设计表的时候,把系数字段设为和年龄关联的公式
先定义好最低年龄和系数,设有Edit_NL Edit_XS
ZXNL = 32; //最小年龄
XS = 0.9; //系数基数
var NL: integer;
if (NL := StrToInt(Edit_NL.Text))>=ZXNL then
if (NL - 32) mod 4 then
Edit_XS := IntTo(XS + 0.05);
这样就OK了.