Q5/ws_objects/Ew_bsnobj.pbl.src/uo_ddlb_status.sru

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

global type uo_ddlb_status from dropdownlistbox
integer width = 416
integer height = 808
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "[全部]"
boolean sorted = false
boolean vscrollbar = true
string item[] = {"[全部]","待审核[0]","已审核[1]"}
borderstyle borderstyle = stylelowered!
event uof_getvalue ( )
end type
global uo_ddlb_status uo_ddlb_status

type variables
Int uo_status = -1
Int dft_index = -1

end variables

event uof_getvalue();IF This.Text = '[全部]' THEN
	uo_status = -1
ELSE
	uo_status = Long(Mid ( This.Text,Pos(This.Text,'[') + 1,Len(This.Text) - Pos(This.Text,'[') - 1 ))
END IF
RETURN

end event

on uo_ddlb_status.create
end on

on uo_ddlb_status.destroy
end on

event destructor;long index
index = this.finditem(this.text, 0)

f_SetProfileString(sys_empid, String(parent.ClassName()), "dft_status", string(index))

end event

event constructor;Long Index
IF dft_index < 0 THEN
	Index = Long(f_ProfileString(sys_empid, String(Parent.ClassName()), "dft_status",'1'))
ELSE
	Index = dft_index
END IF
This.SelectItem(Index)

Event uof_getvalue()







end event

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


end event