Q5/ws_objects/Ew_money.pbl.src/uo_ddlb_moneyid.sru

$PBExportHeader$uo_ddlb_moneyid.sru
forward
global type uo_ddlb_moneyid from dropdownlistbox
end type
end forward

global type uo_ddlb_moneyid from dropdownlistbox
integer width = 471
integer height = 368
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type
global uo_ddlb_moneyid uo_ddlb_moneyid

type variables
long uo_moneyid
end variables

event constructor;Long ll_moneyid, ll_moneyid_save, ll_moneyid_get
long cnt
String ls_name, ls_name_get
String ls_space
Int li_spacenum
Boolean lb_getdft = FALSE

ll_moneyid_save = Long(f_ProfileString (sys_empid,String(PARENT.ClassName()), "moneyid",'0'))


SELECT count(*) INTO :cnt FROM cw_currency ;
IF cnt > 1 THEN
	THIS.AddItem ('[全部]')
END IF

DECLARE   getmx  CURSOR  FOR
	SELECT moneyid,Name FROM cw_currency Order By moneyid  ;
OPEN getmx;

DO WHILE sqlca.SQLCode = 0
	FETCH getmx INTO :ll_moneyid,:ls_name ;
	IF sqlca.SQLCode <> 0 THEN EXIT
	
	li_spacenum = 50 - Len(Trim(ls_name)) - 2 - Len(String(ll_moneyid))
	ls_space = Fill(' ',li_spacenum)
	
	THIS.AddItem (ls_name+ls_space+'['+String(ll_moneyid)+']')
	
	IF NOT lb_getdft THEN
		ll_moneyid_get = ll_moneyid
		ls_name_get = ls_name
	END IF
	
	IF ll_moneyid_save = ll_moneyid THEN
		lb_getdft = TRUE
		ll_moneyid_get = ll_moneyid
		ls_name_get = ls_name
	END IF
LOOP

CLOSE getmx;


if ll_moneyid_save = -1 then
	THIS.Text = '[全部]'
	THIS.uo_moneyid = -1
else
	li_spacenum = 50 - Len(Trim(ls_name_get)) - 2 - Len(String(ll_moneyid_get))
	ls_space = Fill(' ',li_spacenum)
	THIS.Text = ls_name_get+ls_space+'['+String(ll_moneyid_get)+']'
	THIS.uo_moneyid = ll_moneyid_get
end if


//THIS.AddItem('全部'+Fill(' ',50)+'['+String(-1)+']')


end event

event selectionchanged;IF THIS.Text = '[全部]' THEN
	uo_moneyid = -1	
ELSE
	uo_moneyid = Long(Mid ( THIS.Text,Pos(THIS.Text,'[') + 1,Len(THIS.Text) - Pos(THIS.Text,'[') - 1 ))
END IF



end event

on uo_ddlb_moneyid.create
end on

on uo_ddlb_moneyid.destroy
end on

event destructor;f_SetProfileString(sys_empid, String(parent.ClassName()), "moneyid", string(uo_moneyid))

end event