Q5/ws_objects/Ew_define.pbl.src/w_configure_ch_zj.srw

$PBExportHeader$w_configure_ch_zj.srw
forward
global type w_configure_ch_zj from w_publ_choice
end type
end forward

global type w_configure_ch_zj from w_publ_choice
integer width = 2217
integer height = 1728
string title = "子件选择"
end type
global w_configure_ch_zj w_configure_ch_zj

type variables
long cur_mtrlid = 0
s_edit_index_tran s_tran 
string ins_status = ''
end variables

on w_configure_ch_zj.create
call super::create
end on

on w_configure_ch_zj.destroy
call super::destroy
end on

event open;if_ue_sort=true
wf_movetocenter()
dw_CH.SetTransObject (sqlca)



s_tran=Message.powerobjectparm
cur_mtrlid = s_tran.c_long
cb_retrieve.TRIGGEREVENT(CLICKED!)
end event

event close;call super::close;CLOSEWITHRETURN(THIS,ins_status)
end event

event dw_filter;call super::dw_filter;String obj_expr = ''
IF Trim(sle_ch.Text) <> '' THEN
	IF Pos(Trim(sle_ch.Text),'%') = 0 THEN
		obj_expr = obj_expr+'( name LIKE "%'+Trim(sle_ch.Text)+'%" )'
	ELSE
		obj_expr = obj_expr+'(name LIKE "'+Trim(sle_ch.Text)+'" )'
	END IF
END IF

dw_ch.SetFilter(obj_expr)
dw_ch.SetRedraw(FALSE)
dw_ch.Filter()
IF dw_ch.RowCount() >= 1 THEN
	dw_ch.SelectRow(0,FALSE)
	dw_ch.SelectRow(1,TRUE)
	dw_ch.SetRow( 1)
END IF
dw_ch.SetRedraw(TRUE)

end event

type cb_func from w_publ_choice`cb_func within w_configure_ch_zj
end type

type cb_exit from w_publ_choice`cb_exit within w_configure_ch_zj
end type

type sle_ch from w_publ_choice`sle_ch within w_configure_ch_zj
integer x = 311
end type

type dw_ch from w_publ_choice`dw_ch within w_configure_ch_zj
integer width = 2176
integer height = 1324
string dataobject = "dw_configure_ch_zj"
end type

event dw_ch::doubleclicked;if row<=0 then return
cb_CHOICE.PostEvent(Clicked!)
end event

type st_1 from w_publ_choice`st_1 within w_configure_ch_zj
integer y = 204
integer width = 274
integer height = 52
string text = "名称包含："
boolean righttoleft = false
end type

type cb_retrieve from w_publ_choice`cb_retrieve within w_configure_ch_zj
end type

event cb_retrieve::clicked;dw_ch.retrieve(cur_mtrlid)
end event

type cb_choice from w_publ_choice`cb_choice within w_configure_ch_zj
end type

event cb_choice::clicked;call super::clicked;Long ls_row
ls_row = dw_ch.GetRow( )
IF ls_row <= 0 THEN
	MessageBox('警告','请选定目标行') 
	RETURN
END IF

ins_status = dw_ch.Object.name[ls_row]
Close(PARENT)

end event

type ln_bar from w_publ_choice`ln_bar within w_configure_ch_zj
end type

type ln_bar2 from w_publ_choice`ln_bar2 within w_configure_ch_zj
end type

type r_bar from w_publ_choice`r_bar within w_configure_ch_zj
integer x = 1248
integer y = 4
end type

type ln_1 from w_publ_choice`ln_1 within w_configure_ch_zj
end type

type ln_2 from w_publ_choice`ln_2 within w_configure_ch_zj
end type