//取type_sim相似度
string parttype1="轴类"
string parttype2="盘类"
dec type_sim2
select parttype_sim.parttype_sim into :type_sim2
from parttype_sim
where parttype_sim.parttype1=:parttype1 and parttype_sim.parttype2=:parttype2
using sqlca;
int d
d=sqlca.sqlcode
choose case d
case 0
messagebox("succeed!","成功找到数据")
sle_1.text=string(type_sim2)
case 100
messagebox("no result!","没有找到所查数据")
case - 1
messagebox("fail!","执行失败")
end choose