Q5/ws_objects/xls_Billprint_win.pbl.src/w_xls_publ_inputexpr.srw

$PBExportHeader$w_xls_publ_inputexpr.srw
forward
global type w_xls_publ_inputexpr from w_xls_publ_base
end type
type cb_add from uo_xls_imflatbutton within w_xls_publ_inputexpr
end type
type cb_repl from uo_xls_imflatbutton within w_xls_publ_inputexpr
end type
type sle_nr from u_xls_sleedit within w_xls_publ_inputexpr
end type
type cbx_else from checkbox within w_xls_publ_inputexpr
end type
end forward

global type w_xls_publ_inputexpr from w_xls_publ_base
integer x = 407
integer y = 224
integer width = 1952
integer height = 336
string title = "请填入补充内容"
boolean controlmenu = false
boolean minbox = false
windowtype windowtype = response!
cb_add cb_add
cb_repl cb_repl
sle_nr sle_nr
cbx_else cbx_else
end type
global w_xls_publ_inputexpr w_xls_publ_inputexpr

TYPE VARIABLES

String cur_filter_expr
//当前FILTER表达式

String cur_filter_expr_INCHA
//当前FILTER表达式中文表示
s_xls_esq_tran ls_xls_esq_tran
//返回结构

Int SHORTHEIGHT = 336,LONGHEIGHT = 1000
END VARIABLES

on w_xls_publ_inputexpr.create
int iCurrent
call super::create
this.cb_add=create cb_add
this.cb_repl=create cb_repl
this.sle_nr=create sle_nr
this.cbx_else=create cbx_else
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_add
this.Control[iCurrent+2]=this.cb_repl
this.Control[iCurrent+3]=this.sle_nr
this.Control[iCurrent+4]=this.cbx_else
end on

on w_xls_publ_inputexpr.destroy
call super::destroy
destroy(this.cb_add)
destroy(this.cb_repl)
destroy(this.sle_nr)
destroy(this.cbx_else)
end on

EVENT OPEN;
CALL SUPER::OPEN;
ls_xls_esq_tran = Message.PowerObjectParm
THIS.Title = '筛选项目: '+ls_xls_esq_tran.Title +' 包含'
sle_nr.Text = ls_xls_esq_tran.cur_data
cur_filter_expr = ls_xls_esq_tran.cur_filter_expr
cur_filter_expr_INCHA = ls_xls_esq_tran.cur_filter_expr_INCHA
THIS.Height = SHORTHEIGHT

environment   exerun_env
GetEnvironment(exerun_env )

THIS.X = ls_xls_esq_tran.X - 200
THIS.Y = ls_xls_esq_tran.Y - 130
IF THIS.X < 0 THEN THIS.X = 0
IF THIS.Y < 0 THEN THIS.Y = 0
IF THIS.X > PixelsToUnits(exerun_env.ScreenWidth, XPixelsToUnits!) - THIS.Width THEN THIS.X = PixelsToUnits(exerun_env.ScreenWidth, XPixelsToUnits!) - THIS.Width
IF THIS.Y > PixelsToUnits(exerun_env.ScreenHeight, yPixelsToUnits!) - THIS.Height THEN THIS.Y = PixelsToUnits(exerun_env.ScreenHeight, yPixelsToUnits!) - THIS.Height

ls_xls_esq_tran.return_flag = 0

IF Trim(sle_nr.Text) <> ''  THEN
	cb_add.Enabled = TRUE
	sle_nr.SelectText(1,Len(sle_nr.Text))
END IF

END EVENT

EVENT CLOSE;
CloseWithReturn(THIS,ls_xls_esq_tran)
END EVENT

EVENT RButtonDown;
CALL SUPER::RButtonDown;
cb_exit.TriggerEvent(Clicked!)
END EVENT

type cb_func from w_xls_publ_base`cb_func within w_xls_publ_inputexpr
boolean visible = false
integer x = 1797
integer y = 128
integer taborder = 40
boolean enabled = false
end type

type cb_exit from w_xls_publ_base`cb_exit within w_xls_publ_inputexpr
integer x = 1339
integer y = 128
integer width = 325
integer taborder = 30
string text = "取消"
end type

EVENT cb_exit::Clicked;
ls_xls_esq_tran.cur_data = Trim(sle_nr.Text)
ls_xls_esq_tran.ELSE_BOOLEAN = cbx_else.Checked
Close(PARENT)
END EVENT

type cb_add from uo_xls_imflatbutton within w_xls_publ_inputexpr
integer x = 786
integer y = 128
integer width = 325
integer height = 96
integer taborder = 50
boolean enabled = false
string text = "增加条件"
end type

EVENT Clicked;
CALL SUPER::Clicked;
ls_xls_esq_tran.cur_data = Trim(sle_nr.Text)
ls_xls_esq_tran.return_flag = 1
ls_xls_esq_tran.ELSE_BOOLEAN = cbx_else.Checked
Close(PARENT)
END EVENT

type cb_repl from uo_xls_imflatbutton within w_xls_publ_inputexpr
integer x = 261
integer y = 128
integer width = 325
integer height = 96
integer taborder = 20
string text = "重新查询"
boolean default = true
end type

EVENT Clicked;
CALL SUPER::Clicked;
ls_xls_esq_tran.cur_data = Trim(sle_nr.Text)
ls_xls_esq_tran.return_flag = 2
ls_xls_esq_tran.ELSE_BOOLEAN = cbx_else.Checked
Close(PARENT)
END EVENT

type sle_nr from u_xls_sleedit within w_xls_publ_inputexpr
integer x = 32
integer y = 20
integer width = 1591
boolean bringtotop = true
end type

EVENT inputchanged;
IF Trim(THIS.Text) <> '' THEN
	cb_add.Enabled = TRUE
ELSE
	cb_add.Enabled = FALSE
END IF
END EVENT

type cbx_else from checkbox within w_xls_publ_inputexpr
integer x = 1664
integer y = 28
integer width = 224
integer height = 76
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 = "除外"
end type