FXApp/ws_objects/app_cust_fx.pbl.src/w_fx_welcome.srw

$PBExportHeader$w_fx_welcome.srw
$PBExportComments$协同欢迎界面
forward
global type w_fx_welcome from window
end type
type cb_1 from commandbutton within w_fx_welcome
end type
type st_2 from statictext within w_fx_welcome
end type
type p_1 from picture within w_fx_welcome
end type
type st_1 from statictext within w_fx_welcome
end type
end forward

global type w_fx_welcome from window
integer width = 2286
integer height = 1076
boolean border = false
windowtype windowtype = popup!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
event ue_update ( )
cb_1 cb_1
st_2 st_2
p_1 p_1
st_1 st_1
end type
global w_fx_welcome w_fx_welcome

type variables
string ins_path
end variables

event ue_update();////
//Boolean lb_update
//
//
//
//string arg_msg
//lb_update = FXAppCom.AutoUpdate(path, ref arg_msg)
//IF arg_msg <> '' THEN
////	Close(w_fx_welcome)
//	MessageBox('提示', '自动更新失败,' + arg_msg)
//	CLose(this)
//	return
//ELSE
//	IF lb_update THEN
////		Close(w_fx_welcome)
//		MessageBox('提示', '程序更新成功,程序即将关闭,请手动重新启动')
//		Close(this)
//		return
//	END IF
//END IF
//
//Close(this)
//open(w_login_fx)
//
end event

on w_fx_welcome.create
this.cb_1=create cb_1
this.st_2=create st_2
this.p_1=create p_1
this.st_1=create st_1
this.Control[]={this.cb_1,&
this.st_2,&
this.p_1,&
this.st_1}
end on

on w_fx_welcome.destroy
destroy(this.cb_1)
destroy(this.st_2)
destroy(this.p_1)
destroy(this.st_1)
end on

event timer;long i
string arg_msg
i = FXAppCom.AutoUpdateAsync(ins_path, ref arg_msg)
if (i = 0) then
	return
elseif (i = 1) then
	timer(0)
	Close(this)
	MessageBox('提示', '程序更新成功,程序即将关闭,请手动重新启动')
	Close(w_login_fx)
elseif (i = - 1) then
	timer(0)
	if (arg_msg <> '') then
		Close(this)
		MessageBox('提示', '自动更新失败,' + arg_msg)
		Close(w_login_fx)
	else
		Close(this)
		//Open(w_login_fx)
		Open(w_main_fx)
	end if
end if
//		Close(this)
//		Open(w_main_fx)
end event

event open;st_2.Text = ProfileString(sys_fx_ini, 'oem', 'welcome', '欢迎使用龙嘉L1-SCC供应链协同系统')

ins_path = GetCurrentDirectory()

string arg_msg
//FXAppCom.AutoUpdateAsync(ins_path, ref arg_msg)

timer(0.8)
end event

type cb_1 from commandbutton within w_fx_welcome
integer x = 2194
integer width = 91
integer height = 84
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "×"
end type

event clicked;timer(0)
Close(parent)
end event

type st_2 from statictext within w_fx_welcome
integer x = 512
integer y = 44
integer width = 1285
integer height = 76
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "幼圆"
long textcolor = 16777215
long backcolor = 21256673
string text = "欢迎使用XXXXL1-SCC供应链协同系统"
boolean focusrectangle = false
end type

type p_1 from picture within w_fx_welcome
integer width = 2286
integer height = 1076
string picturename = "graphics\loading.gif"
boolean focusrectangle = false
end type

type st_1 from statictext within w_fx_welcome
integer x = 805
integer y = 964
integer width = 1445
integer height = 76
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "幼圆"
long textcolor = 16777215
long backcolor = 21256673
string text = "系统正在检查并获取更新,请耐心等待 •••"
boolean focusrectangle = false
end type