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

$PBExportHeader$w_xls_publ_base.srw
FORWARD
GLOBAL TYPE w_xls_publ_base FROM window
END TYPE
TYPE cb_func FROM uo_xls_imflatbutton within w_xls_publ_base
END TYPE
TYPE cb_exit FROM uo_xls_imflatbutton within w_xls_publ_base
END TYPE
END FORWARD

GLOBAL TYPE w_xls_publ_base FROM window
Integer X = 713
Integer Y = 388
Integer Width = 2007
Integer Height = 1144
Boolean TitleBar = TRUE
String Title = "BASE"
Boolean ControlMenu = TRUE
Boolean MinBox = TRUE
WindowType WindowType = popup!
Long BackColor = 134217739
EVENT ue_before_open ( )
EVENT ue_retr ( )
EVENT ue_filter ( )
EVENT ue_sentdataout ( )
EVENT ue_sort ( )
cb_func cb_func
cb_exit cb_exit
END TYPE
GLOBAL w_xls_publ_base w_xls_publ_base

TYPE PROTOTYPES

END PROTOTYPES

TYPE VARIABLES
Boolean dw_edit_mode = FALSE
Boolean if_modify_mode = FALSE
Boolean if_ue_retr = FALSE
Boolean if_ue_filter = FALSE
Boolean if_ue_sort = FALSE
Boolean if_ue_sentdataout = FALSE
Boolean if_ue_showall = FALSE

Long printnum

END VARIABLES

FORWARD PROTOTYPES
PUBLIC FUNCTION Integer wf_movetocenter ()
END PROTOTYPES

PUBLIC FUNCTION Integer wf_movetocenter ();
//wf_movetocenter
environment   exerun_env
GetEnvironment(exerun_env )
THIS.Move ( (PixelsToUnits(exerun_env.ScreenWidth, XPixelsToUnits!) - THIS.Width)/2,&
	(PixelsToUnits(exerun_env.ScreenHeight, XPixelsToUnits!) - THIS.Height - 350 )/2) //
//this.Move ( (exerun_env.screenwidth*4.62 - this.Width)/2, (exerun_env.screenheight*3.87 - this.Height)/2)
RETURN 0
END FUNCTION

EVENT OPEN;
THIS.TriggerEvent('ue_before_open')
wf_movetocenter()


//====================================================================
//菜单打开
//if_ue_retr=false
//if_ue_filter=false
//if_ue_sort=false
//if_ue_sentdataout=false
//====================================================================


END EVENT

ON w_xls_publ_base.CREATE
THIS.cb_func = CREATE cb_func
THIS.cb_exit = CREATE cb_exit
THIS.Control[] = {THIS.cb_func,&
	THIS.cb_exit}
END ON

ON w_xls_publ_base.DESTROY
Destroy(THIS.cb_func)
Destroy(THIS.cb_exit)
END ON

TYPE cb_func FROM uo_xls_imflatbutton within w_xls_publ_base
EVENT ue_retr ( )
EVENT ue_filter ( )
EVENT ue_sort ( )
EVENT ue_sentdataout ( )
Integer Width = 311
Integer Height = 96
Integer TabOrder = 20
String Text = "工具"
END TYPE

EVENT ue_retr();
PARENT.TriggerEvent('ue_retr')
END EVENT

EVENT ue_filter();
PARENT.TriggerEvent('ue_filter')
END EVENT

EVENT ue_sort();
PARENT.TriggerEvent('ue_sort')
END EVENT

EVENT ue_sentdataout();
PARENT.TriggerEvent('ue_sentdataout')
END EVENT

EVENT Clicked;
CALL SUPER::Clicked;
m_xls_dfc_control_popupmenu dmPopupMenu
String menustr

IF if_ue_retr THEN
	menustr = "Text=查询~tEvent=ue_retr"
END IF

IF if_ue_filter THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=高级筛选~tEvent=ue_filter"
	ELSE
		menustr = menustr + "|" + "Text=高级筛选~tEvent=ue_filter"
	END IF
END IF

IF if_ue_sort THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=排序~tEvent=ue_sort"
	ELSE
		menustr = menustr + "|" + "Text=排序~tEvent=ue_sort"
	END IF
END IF

IF if_ue_showall THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=显示全部~tEvent=ue_showall"
	ELSE
		menustr = menustr + "|" + "Text=显示全部~tEvent=ue_showall"
	END IF
END IF

IF menustr <> "" AND if_ue_sentdataout THEN menustr = menustr + "|" + "Text=-"

IF if_ue_sentdataout THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=数据发送~tEvent=ue_sentdataout"
	ELSE
		menustr = menustr + "|" + "Text=数据发送~tEvent=ue_sentdataout"
	END IF
END IF

IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_xls_dfc_control_popupmenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF
END EVENT

TYPE cb_exit FROM uo_xls_imflatbutton within w_xls_publ_base
Integer X = 315
Integer Width = 311
Integer Height = 96
Integer TabOrder = 10
String Text = "退出"
Boolean Cancel = TRUE
String normalpicname = "exit.bmp"
END TYPE

EVENT Clicked;
CALL SUPER::Clicked;
Close(PARENT)
END EVENT