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

$PBExportHeader$w_xls_publ_input_num.srw
FORWARD
GLOBAL TYPE w_xls_publ_input_num FROM w_xls_publ_base
END TYPE
TYPE cb_add FROM uo_xls_imflatbutton within w_xls_publ_input_num
END TYPE
TYPE cb_repl FROM uo_xls_imflatbutton within w_xls_publ_input_num
END TYPE
TYPE cbx_else FROM checkbox within w_xls_publ_input_num
END TYPE
TYPE ddlb_op FROM dropdownlistbox within w_xls_publ_input_num
END TYPE
TYPE sle_nr FROM editmask within w_xls_publ_input_num
END TYPE
END FORWARD

GLOBAL TYPE w_xls_publ_input_num FROM w_xls_publ_base
Integer X = 407
Integer Y = 224
Integer Width = 1358
Integer Height = 336
String Title = "请填入补充内容"
Boolean MinBox = FALSE
WindowType WindowType = response!
cb_add cb_add
cb_repl cb_repl
cbx_else cbx_else
ddlb_op ddlb_op
sle_nr sle_nr
END TYPE
GLOBAL w_xls_publ_input_num w_xls_publ_input_num

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_input_num.CREATE
Int iCurrent
CALL SUPER::CREATE
THIS.cb_add = CREATE cb_add
THIS.cb_repl = CREATE cb_repl
THIS.cbx_else = CREATE cbx_else
THIS.ddlb_op = CREATE ddlb_op
THIS.sle_nr = CREATE sle_nr
iCurrent = UpperBound(THIS.Control)
THIS.Control[iCurrent+1] = THIS.cb_add
THIS.Control[iCurrent+2] = THIS.cb_repl
THIS.Control[iCurrent+3] = THIS.cbx_else
THIS.Control[iCurrent+4] = THIS.ddlb_op
THIS.Control[iCurrent+5] = THIS.sle_nr
END ON

ON w_xls_publ_input_num.DESTROY
CALL SUPER::DESTROY
Destroy(THIS.cb_add)
Destroy(THIS.cb_repl)
Destroy(THIS.cbx_else)
Destroy(THIS.ddlb_op)
Destroy(THIS.sle_nr)
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

sle_nr.Text = String(ls_xls_esq_tran.num_data)
sle_nr.SelectText(1,Len(sle_nr.Text))


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_input_num
Boolean Visible = FALSE
Integer X = 1134
Integer Y = 124
Integer TabOrder = 40
Boolean Enabled = FALSE
END TYPE

TYPE cb_exit FROM w_xls_publ_base`cb_exit within w_xls_publ_input_num
Integer X = 855
Integer Y = 124
Integer Width = 325
Integer TabOrder = 30
String Text = "取消"
END TYPE

TYPE cb_add FROM uo_xls_imflatbutton within w_xls_publ_input_num
Integer X = 457
Integer Y = 124
Integer Width = 325
Integer Height = 96
Integer TabOrder = 60
String Text = "增加条件"
END TYPE

EVENT Clicked;
CALL SUPER::Clicked;
ls_xls_esq_tran.num_data = Dec(sle_nr.Text)
ls_xls_esq_tran.comp_op = ddlb_op.Text
ls_xls_esq_tran.ELSE_BOOLEAN = cbx_else.Checked
ls_xls_esq_tran.return_flag = 1
Close(PARENT)
END EVENT

TYPE cb_repl FROM uo_xls_imflatbutton within w_xls_publ_input_num
Integer X = 59
Integer Y = 124
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.num_data = Dec(sle_nr.Text)
ls_xls_esq_tran.comp_op = ddlb_op.Text
ls_xls_esq_tran.ELSE_BOOLEAN = cbx_else.Checked
ls_xls_esq_tran.return_flag = 2

Close(PARENT)
END EVENT

TYPE cbx_else FROM checkbox within w_xls_publ_input_num
Integer X = 1097
Integer Y = 24
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

TYPE ddlb_op FROM dropdownlistbox within w_xls_publ_input_num
Integer X = 73
Integer Y = 20
Integer Width = 265
Integer Height = 440
Integer TabOrder = 50
Boolean BringToTop = TRUE
Integer TextSize = -9
Integer Weight = 400
FontCharSet FontCharSet = gb2312charset!
FontPitch FontPitch = variable!
String FaceName = "宋体"
Long TextColor = 33554432
String Text = "="
Boolean Sorted = FALSE
Boolean HScrollBar = TRUE
String Item[] = {"=",">",">=","<","<="}
BorderStyle BorderStyle = stylelowered!
END TYPE

TYPE sle_nr FROM editmask within w_xls_publ_input_num
Integer X = 379
Integer Y = 16
Integer Width = 663
Integer Height = 88
Integer TabOrder = 10
Boolean BringToTop = TRUE
Integer TextSize = -9
Integer Weight = 400
FontCharSet FontCharSet = gb2312charset!
FontPitch FontPitch = variable!
String FaceName = "宋体"
Long TextColor = 33554432
Alignment Alignment = Right!
BorderStyle BorderStyle = stylelowered!
String Mask = "#########0.####"
END TYPE