$PBExportHeader$w_aifmb_txset.srw
forward
global type w_aifmb_txset from window
end type
end forward

global type w_aifmb_txset from window
boolean visible = false
integer width = 3365
integer height = 1156
boolean titlebar = true
string title = "亚洲国际通讯服务配置程序"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
end type
global w_aifmb_txset w_aifmb_txset

on w_aifmb_txset.create
end on

on w_aifmb_txset.destroy
end on

event open;//////////////////////////////////////// //亚洲国际通信设置
String ls_run,sys_cur_path1
String ls_server
String ls_logid
String ls_logpass
String ls_database
String ls_txtLJNETIP
String ls_txtLJNETPort


ls_server = sys_email_sqlca.ServerName
ls_logid = sys_email_sqlca.LogID
ls_logpass = sys_email_sqlca.LogPass
ls_database = sys_email_sqlca.Database
ls_txtLJNETIP = "scm.fib2b.cn"
ls_txtLJNETPort = "30086"

sys_cur_path1 = sys_cur_path + "亚洲国际通讯服务配置程序\LongjoeEDISvr_config.exe"
ls_run = ' -longjoe&'&
	+ ls_server + '&'&
	+ ls_logid + '&'&
	+ ls_logpass + '&'&
	+ ls_database + '&'&
	+ ls_txtLJNETIP + '&'&
	+ ls_txtLJNETPort + '&'




IF Run(sys_cur_path1 + ls_run) = -1 THEN
	MessageBox('错误','运行程序失败！',stopsign!,ok!)
	Close(This)
	RETURN
END IF
Close(This)





end event