安条件查询.txt

来自「一套PB开发的工商行政管理全套源码,包括企业登记,执照,案件管理等.」· 文本 代码 · 共 62 行

//if dw_1.rowcount() < 1 then return
//
//String ls_filter		//用来检索数据
//
//OpenWithParm(w_query,dw_1)		//打开检索条件设置窗口
//ls_Filter=Message.stringparm	//获取返回条件。该返回条件是一个dw_1中可用的过滤条件。
//dw_1.SetRedraw(False)
//if ls_filter<>"" then
//	SetPointer(HourGlass!)
//	dw_1.SetFilter(ls_filter)
//	dw_1.Filter()
//end if
//dw_1.SetRedraw(True)

/*
说明：打开复杂条件查询窗口，设置查询条件，然后加上【查询】按钮的条件进行查询
设计人员：张锋
设计日期：2003-05-15
*/
string ls_sql
int li_pos
string ls_where

ls_sql = dw_1.getsqlselect()
ls_sql = fn_oldsql(ls_sql)

OPEN(w_jjhk_qysl_freequery)
ls_where = Message.StringParm
IF trim(ls_where) = 'noclause' THEN
	RETURN
END IF

IF trim(is_where_1) <> '' THEN
	IF trim(ls_where) <> '' THEN
		ls_where += " and " + is_where_1
	ELSE
		ls_where += is_where_1
	END IF
END IF

IF trim(is_where_2) <> '' THEN
	IF trim(ls_where) <> '' THEN
		ls_where += " and " + is_where_2
	ELSE
		ls_where += is_where_2
	END IF
END IF

IF trim(ls_where) <> '' THEN
	ls_where += " and djjg = '" + p_djjg + "'"
ELSE 
	ls_where += " djjg = '" + p_djjg + "'"
END IF

IF trim(ls_where) <> '' THEN
	ls_sql += " where " + ls_where
END IF

dw_1.setsqlselect(ls_sql)
dw_1.retrieve()