PB心得4-動(dòng)態(tài)改變DW的WHERE子句??

?

? 在DW的FILTER的使用一文中提到如果檢索條件因素不固定的話，可以使用動(dòng)態(tài)改變DW的WHERE子句的方法。

? 這個(gè)方法的實(shí)現(xiàn)是這樣的，做一個(gè)沒有參數(shù)的DW，在程序中，先通過DW.OBJECT.DATAWINDOW.TABLE.SELECT來取得DW對(duì)象的SQL語法，可以對(duì)SQL語法拆分出SELECT部分，WHRER部分，GROUP BY部分，HAVING部分。如果是UNION ALL 那么應(yīng)該需要用數(shù)組變量來接收對(duì)應(yīng)的部分，這些變量最好是用環(huán)境變量。

? 再做個(gè)用于查詢條件的DW，里面是你可以讓用戶輸入查詢條件的字段項(xiàng)目。然后在查詢按鈕的腳本下做如下面的步驟，讀取查詢條件的字段對(duì)應(yīng)的條件值，對(duì)每個(gè)條件值做判斷，如果是不為空的才需要生成對(duì)應(yīng)的條件語法，根據(jù)字段的不同，合成條件語法時(shí)注意引號(hào)和類型轉(zhuǎn)換。條件之間的邏輯，運(yùn)算優(yōu)先級(jí)等。

? 合成后的整個(gè)新的條件語法與原來的SQL語法的WHRER部分合并，再與其他的SQL的部分合并成完整的新的條件的SQL語法。

? 把新的SQL語法通過DW.OBJECT.DATAWINDOW.TABLE.SELECT傳回給DW，并運(yùn)行檢索函數(shù)。

?

string ls_odd
string ls_provider
string ls_receiver
string ls_oddtype
datetime ldt_start,ldt_end
string ls_stockcode
string ls_stockname
string ls_sql
string ls_where,ls_where1
string ls_type1
string ls_type2
string ls_cid
datawindowchild ldwc_1
dw_inquire.accepttext()
string ls_sql1
ls_sql? = mid(is_sql,1,pos(is_sql,'union all') - 1)
ls_sql1 = mid(is_sql,pos(is_sql,'union all') + 9,len(is_sql) - pos(is_sql,'union all') +1)

ls_odd = dw_inquire.object.oddno[1]
ls_provider = dw_inquire.object.provider[1]
ls_receiver = dw_inquire.object.receiver[1]
ls_oddtype = dw_inquire.object.oddtype[1]
ls_stockcode = dw_inquire.object.stockcode[1]
ls_stockname = dw_inquire.object.stockname[1]
ldt_start = dw_inquire.object.dstart[1]
ldt_end = dw_inquire.object.dend[1]
ls_type1 = dw_inquire.object.type1[1]
ls_type2 = dw_inquire.object.type2[1]
ls_cid = dw_inquire.object.cid[1]
if pos(lower(is_sql),'where')>0 then
?ls_where = '????? '
?ls_where += " and out_main.auditing = '"+ls_type2+"' "
else?
?ls_where = ' where '
?ls_where += " out_main.auditing = '"+ls_type2+"' "
end if
if pos(lower(ls_sql1),'where')>0 then
?ls_where1 = '????? '
?ls_where1 += " and group_out.auditing = '"+ls_type2+"' "
else?
?ls_where1 = ' where '
?ls_where1 += "? group_out.auditing = '"+ls_type2+"' "

end if
if not(isnull(ls_odd) or len(trim(ls_odd)) = 0) then
? if len(ls_where) > 5 then?ls_where += ' and '
? ls_where += " out_main.odd_no like '%" + ls_odd + "%' "
? if len(ls_where1) > 5 then?ls_where1 += ' and '
? ls_where1 += " group_out.odd_no like '%" + ls_odd + "%' "
end if

if not(isnull(ls_provider) or len(trim(ls_provider)) = 0) then
? if len(ls_where) > 5 then?ls_where += ' and '
? ls_where += " out_main.provider = '" + ls_provider + "' "
? if len(ls_where1) > 5 then?ls_where1 += ' and '
? ls_where1 += " group_out.provider = '" + ls_provider + "' "
end if

if not(isnull(ls_receiver) or len(trim(ls_receiver)) = 0) then
? if len(ls_where) > 5 then?ls_where += ' and '
? ls_where += " out_main.receiver= '" + ls_receiver + "' "
? if len(ls_where1) > 5 then?ls_where1 += ' and '
? ls_where1 += " group_out.receiver = '" + ls_receiver + "' "
end if

if not(isnull(ls_oddtype) or len(trim(ls_oddtype)) = 0) then
? if len(ls_where) > 5 then?ls_where += ' and '
? ls_where += " out_main.receiver_provider_type= '" + ls_oddtype + "' "
? if len(ls_where1) > 5 then?ls_where1 += ' and '
? ls_where1 += " group_out.receiver_provider_type= '" + ls_oddtype + "' "
??
end if

if not(isnull(ls_stockcode) or len(trim(ls_stockcode)) = 0) then
? if len(ls_where) > 5 then?ls_where += ' and '
??//if len(ls_stockcode) = 5 then
?ls_where += " out_child.pid = " + ls_stockcode + " "
?//?else
?//? ls_where += " out_child.stock_code like '" + ls_stockcode + "%' "
?//end if
?if len(ls_where1) > 5 then?ls_where1 += ' and '
??ls_where1 += " 1 = 2 "
end if

if not(isnull(ls_stockname) or len(trim(ls_stockname)) = 0) then
? if len(ls_where) > 5 then?ls_where += ' and '
? ls_where += " out_child.stock_name like '%" + ls_stockname + "%' "
? if len(ls_where1) > 5 then?ls_where1 += ' and '
? ls_where1 += " 1=2 "
end if

if not(isnull(ls_cid) or len(trim(ls_cid)) = 0) then
? if len(ls_where) > 5 then?ls_where += ' and '
? ls_where += " out_child.cid = " + ls_cid + " "
? if len(ls_where1) > 5 then?ls_where1 += ' and '
? ls_where1 += " 1=2 "
end if
if ls_type2 = '1' then?
?if not(isnull(ldt_start)) then
??if len(ls_where) > 5 then?ls_where += ' and '
??ls_where += " out_main.auditdate >= '" + string(ldt_start,'yyyy-mm-dd') +" 00:00:00' "
?end if
?
?if not(isnull(ldt_end)) then
??if len(ls_where) > 5 then?ls_where += ' and '
??ls_where += " out_main.auditdate <= '" + string(ldt_end,'yyyy-mm-dd') +" 23:59:59' "
?end if
else
?if not(isnull(ldt_start)) then
??if len(ls_where) > 5 then?ls_where += ' and '
??ls_where += " out_main.odd_date >= '" + string(ldt_start,'yyyy-mm-dd') +" 00:00:00' "
?end if
?
?if not(isnull(ldt_end)) then
??if len(ls_where) > 5 then?ls_where += ' and '
??ls_where += " out_main.odd_date <= '" + string(ldt_end,'yyyy-mm-dd') +" 23:59:59' "
?end if
end if
if not(isnull(ldt_start)) then
?if len(ls_where1) > 5 then?ls_where1 += ' and '
?ls_where1 += " group_out.odd_date >= '" + string(ldt_start,'yyyy-mm-dd') +" 00:00:00' "
end if

if not(isnull(ldt_end)) then
?if len(ls_where1) > 5 then?ls_where1 += ' and '
?ls_where1 += " group_out.odd_date <= '" + string(ldt_end,'yyyy-mm-dd') +" 23:59:59' "
end if

if not(isnull(ls_type1) or len(trim(ls_type1)) = 0) then
? if len(ls_where) > 5 then?ls_where += ' and '
? ls_where += " out_main.relate_no like '%" + ls_type1 + "%' "
? if len(ls_where1) > 5 then?ls_where1 += ' and '
? ls_where1 += " 1=2 "
end if
//messagebox('',is_sql + ls_where)
dw_print.object.datawindow.table.select = ls_sql + ls_where + ' union all ' + ls_sql1 + ls_where1
dw_print.settransobject(sqlca)
dw_print.retrieve()
? 這種方法最好就是在合成后檢查一下合成的語法是否正確，要考慮原SQL語法是否有WHERE條件，如果沒有新合成的要加上WHERE關(guān)鍵字。

?

?

=========================實(shí)踐

SQL：

select bill_id,bill_date,org_id,b.memb_id,memb_nm,decode(sex,'M','男','F','女',sex) sex,bill_money,cash_money,card_money,accm_money,coupon_money from
(select bill_id,bill_date,org_id,memb_id,bill_money,cash_money,card_money,accm_money,coupon_money from TB_AX006 t)s,
(select memb_id,memb_nm,sex from tb_ax001 a) b
where s.memb_id = b.memb_id(+)

?

PB：

String ls_value,ls_sql,ls_where
String ls_dt_str,ls_dt_end
String ls_ddlb_1,ls_sle_1
string ls_ddlb_2

ls_sql=dw_1.OBJECT.DATAWINDOW.TABLE.SELECT
//messagebox("提示",ls_sql)
if pos(lower(ls_sql),'+')>0 then
ls_sql=mid(ls_sql,1,pos(ls_sql,'+') + 1)
//messagebox("截取后sql",ls_sql)
end if

//時(shí)間
ls_dt_str = string(dp_1.value,'yyyy/mm/dd')
ls_dt_end = string(dp_2.value,'yyyy/mm/dd')
if dp_1.value > dp_2.value then
messagebox("提示","開始時(shí)間不能小于結(jié)束時(shí)間")
return
end if
ls_where += " and s.bill_date between to_date('"+ls_dt_str+"','yyyy-mm-dd') and to_date('"+ls_dt_end+"','yyyy-mm-dd') "

//會(huì)員
ls_ddlb_1 = trim(ddlb_1.text)
ls_sle_1 = upper(trim(sle_1.text))
IF ls_ddlb_1 = '會(huì)員姓名' THEN
if ls_sle_1 = '' then
messagebox("提示","請(qǐng)輸入會(huì)員姓名")
return
else
ls_where += " and upper(b.memb_nm) like '%"+ls_sle_1+"%' "
end if
ELSEIF ls_ddlb_1 = '會(huì)員ID' THEN
IF ls_sle_1 = '' THEN
MessageBox("確認(rèn)", "請(qǐng)輸會(huì)員ID.")
Return
elseif IsNumber(ls_sle_1) = false then
MessageBox("確認(rèn)", "輸入的不是數(shù)字.")
Return
else
ls_where +=" and b.memb_id = '"+ls_sle_1+"' "
END IF
END IF

//門店
ls_ddlb_2 = trim(ddlb_2.text)
if ls_ddlb_2 = '全部' then
ls_where += ""
else
ls_where += " and s.org_id ='"+ls_ddlb_2+"'"
end if

//messagebox('查詢sql',ls_sql + ls_where)
dw_1.object.datawindow.table.select = ls_sql + ls_where
dw_1.settransobject(sqlca)
dw_1.retrieve()

?

轉(zhuǎn)載于:https://www.cnblogs.com/jason-qi/p/4244357.html

總結(jié)

以上是生活随笔為你收集整理的pb 动态改变DW的WHERE子句的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。