Q5/ws_objects/Ew_publ903.pbl.src/w_publ_choice.srw

$PBExportHeader$w_publ_choice.srw
$PBExportComments$选择
forward
global type w_publ_choice from w_publ_base
end type
type sle_ch from u_sleedit within w_publ_choice
end type
type dw_ch from u_dw_rbtnfilter within w_publ_choice
end type
type st_1 from statictext within w_publ_choice
end type
type cb_retrieve from uo_imflatbutton within w_publ_choice
end type
type cb_choice from uo_imflatbutton within w_publ_choice
end type
type ln_bar from line within w_publ_choice
end type
type ln_bar2 from line within w_publ_choice
end type
type r_bar from rectangle within w_publ_choice
end type
type ln_1 from line within w_publ_choice
end type
type ln_2 from line within w_publ_choice
end type
end forward

global type w_publ_choice from w_publ_base
integer width = 2181
integer height = 1808
string title = ""
boolean controlmenu = false
boolean minbox = false
windowtype windowtype = response!
event dw_filter ( )
sle_ch sle_ch
dw_ch dw_ch
st_1 st_1
cb_retrieve cb_retrieve
cb_choice cb_choice
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
ln_1 ln_1
ln_2 ln_2
end type
global w_publ_choice w_publ_choice

event dw_filter();//string obj_expr=''  
//if trim(sle_ch.text)<>'' then 
//	IF POS(trim(sle_ch.text),'%')=0 THEN
//		obj_expr=obj_expr+'( empcode LIKE "%'+trim(sle_ch.text)+'%" )'
//	ELSE
//		obj_expr=obj_expr+'( empcode LIKE "'+trim(sle_ch.text)+'" )'
//	END IF 
//end if
//
//if trim(sle_name.text)<>'' then
//	if obj_expr<>'' then obj_expr=obj_expr+ ' and '
//	IF POS(trim(sle_ch.text),'%')=0 THEN
//   	obj_expr=obj_expr+' ( empname LIKE "%'+trim(sle_name.text)+'%" )'
//	ELSE
//		obj_expr=obj_expr+'( empname LIKE "'+trim(sle_name.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)
//end if
//dw_ch.SetRedraw(TRUE)
end event

on w_publ_choice.create
int iCurrent
call super::create
this.sle_ch=create sle_ch
this.dw_ch=create dw_ch
this.st_1=create st_1
this.cb_retrieve=create cb_retrieve
this.cb_choice=create cb_choice
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.ln_1=create ln_1
this.ln_2=create ln_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.sle_ch
this.Control[iCurrent+2]=this.dw_ch
this.Control[iCurrent+3]=this.st_1
this.Control[iCurrent+4]=this.cb_retrieve
this.Control[iCurrent+5]=this.cb_choice
this.Control[iCurrent+6]=this.ln_bar
this.Control[iCurrent+7]=this.ln_bar2
this.Control[iCurrent+8]=this.r_bar
this.Control[iCurrent+9]=this.ln_1
this.Control[iCurrent+10]=this.ln_2
end on

on w_publ_choice.destroy
call super::destroy
destroy(this.sle_ch)
destroy(this.dw_ch)
destroy(this.st_1)
destroy(this.cb_retrieve)
destroy(this.cb_choice)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.ln_1)
destroy(this.ln_2)
end on

event open;call super::open;if_ue_sort=true
dw_CH.SetTransObject (sqlca)
cb_retrieve.TRIGGEREVENT(CLICKED!)


end event

event close;//CLOSEWITHRETURN(THIS,<INS_RT_STRU>)
//<INS_RT_STRU> 窗体级子定义结构变量,用于返回
end event

event ue_sort;call super::ue_sort;OPENwithparm(w_sortrow,dw_ch)
STRING LS_EXPR
LS_EXPR=Message.StringParm	
IF ISNULL(LS_EXPR) THEN LS_EXPR='   '
if len(LS_EXPR)>2 and trim(LS_EXPR)='' then return

dw_ch.setsort(LS_EXPR)

dw_ch.SetRedraw (false)
dw_ch.sort()
dw_ch.SetRedraw (true)
end event

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
ln_1.endx = this.width
ln_2.endx = this.width
r_bar.width = this.width
end event

type cb_func from w_publ_base`cb_func within w_publ_choice
integer x = 151
integer width = 151
integer height = 164
string normalpicname = "setting.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type cb_exit from w_publ_base`cb_exit within w_publ_choice
integer x = 453
integer width = 151
integer height = 164
integer taborder = 40
string text = "取消"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type sle_ch from u_sleedit within w_publ_choice
integer x = 215
integer y = 180
integer height = 92
boolean bringtotop = true
end type

event inputchanged;PARENT.POSTEVENT('DW_FILTER')
end event

event keyup;call super::keyup;If  Key = KeyDownArrow! Then //
dw_CH.ScrollNextRow()
End If
If  Key = KeyUPArrow! Then //
dw_CH.ScrollPriorRow()
End If
end event

type dw_ch from u_dw_rbtnfilter within w_publ_choice
integer y = 288
integer width = 2094
integer height = 1412
integer taborder = 20
boolean bringtotop = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event clicked;IF row <=0 THEN RETURN
this.setrow(row)

end event

event doubleclicked;cb_CHOICE.PostEvent(Clicked!)
end event

event rowfocuschanged;IF currentrow <=0 THEN RETURN
this.selectrow(0,false)
this.selectrow(currentrow,true)
end event

event constructor;call super::constructor;
 RBUTTON_FILTER_USE=true  //右键查询功能开关

end event

type st_1 from statictext within w_publ_choice
integer x = 32
integer y = 208
integer width = 183
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "编码含"
boolean focusrectangle = false
boolean righttoleft = true
end type

type cb_retrieve from uo_imflatbutton within w_publ_choice
integer width = 150
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_ch.retrieve()
end event

type cb_choice from uo_imflatbutton within w_publ_choice
integer x = 302
integer width = 151
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "选定"
boolean default = true
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;////LONG LS_ROW
////LS_ROW=dw_CH.getrow()
////if LS_ROW<=0 then 
////	messagebox('系统提示','请先选择目标行!',StopSign!)
////	return
////end if

////INS_RT_STRU.scustid=dw_CH.OBJECT.custid[LS_ROW]
////...

////CLOSE(PARENT)
end event

type ln_bar from line within w_publ_choice
long linecolor = 268435456
integer linethickness = 4
integer beginy = 168
integer endx = 2007
integer endy = 168
end type

type ln_bar2 from line within w_publ_choice
long linecolor = 16777215
integer linethickness = 4
integer beginy = 172
integer endx = 2039
integer endy = 172
end type

type r_bar from rectangle within w_publ_choice
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 1531
integer width = 146
integer height = 68
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event

type ln_1 from line within w_publ_choice
long linecolor = 268435456
integer linethickness = 4
integer beginy = 280
integer endx = 2016
integer endy = 280
end type

type ln_2 from line within w_publ_choice
long linecolor = 16777215
integer linethickness = 4
integer beginy = 284
integer endx = 2048
integer endy = 284
end type