+string(start_day,"yyyy.mm.dd")
+"'"+'and '+'"index"."date"
< ='+"'"+string(end_day,"yyyy.mm.dd")
+"'"
end if
if cbx_4.checked then
page=long(em_3.text)
sql_page=' and "index"."page"='+string(page)
end if
sqltext='SELECT "index"."num", ' &
+'"index"."title", ' &
+'"index"."source", ' &
+'"index"."date", ' &
+'"index"."page", ' &
+'"index"."other" ' &
+' FROM "index" ' &
+' WHERE '+sql_title +sql_source
+sql_date+sql_page &
+' ORDER BY "index"."num" ASC '
rowcount=ids_data.rowcount()
for rownum=1 to rowcount
//判断该条件是否已经存在
if ids_data.object.data[rownum,1]=bt and &
ids_data.object.data[rownum,2]=source and &
ids_data.object.data[rownum,3]=start_day and &
ids_data.object.data[rownum,4]=end_day and &
ids_data.object.data[rownum,5]=page then
ids_data.object.data[rownum,6]=now()
ids_data.object.data[rownum,7]=today()
exist=true
exit
end if
next
if not exist then
//条件不存在，记忆新条件
if rowcount< 10 then
else
ids_data.deleterow(1)
end if
rownum=ids_data.insertrow(0)
ids_data.object.data[rownum,1]=bt
ids_data.object.data[rownum,2]=source
ids_data.object.data[rownum,3]=start_day
ids_data.object.data[rownum,4]=end_day
ids_data.object.data[rownum,5]=page
ids_data.object.data[rownum,6]=now()
ids_data.object.data[rownum,7]=today()
end if
ids_data.update()
//根据生成的SQL语句，
修改主窗口中的数据窗口语法，
进行查询
w_index.dw_1.setsqlselect(sqltext)
close(parent)
if isvalid(w_index)
then w_index.dw_1.retrieve()
pb_2（取消按钮）的Clicked事件：
close(parent)
---- 以上程序在Pb6.5、Sybase SQL Anywhere5.0下运行通过，读者对它稍加修改就可应用在自己开发的MIS系统中。
