图2.6 数据查询界面 图2.7 数据查询界面
以下是“确定”按钮的程序代码:
if thisform.optiongroup1.value=1
aa="类别="+"'"+allt(thisformbo1.value)+"'"
select * from 产品基本信息表 where &aa into cursor bb
else thisform.optiongroup1.value=2
do case
case thisformbo2.value="1.50元以下(包括1.50)"
select * from 产品基本信息表 where 单价<=1.50 into cursor bb
case thisformbo2.value="1.50元到2.50元"
select * from 产品基本信息表 where 单价>1.50 and 单价<2.50 ;
into cursor bb
case thisformbo2.value="2.50元以上(包括2.50)"
select * from 产品基本信息表 where 单价>=2.50 into cursor bb
endcase
endif
thisform.grid1.recordsource="bb"