$PBExportHeader$f_run_download.srf
global type f_run_download from function_object
end type

forward prototypes
global subroutine f_update ()
global subroutine f_run_download ()
end prototypes

global subroutine f_update ();String ls_run

ls_run = 'longjoe&'+sys_system_id+'&'+sys_cur_version+'&'+String(sys_if_register)+'&'
ls_run = ls_run + sqlca.Database + '&' + sqlca.UserID + '&' + f_psw_bczh(sqlca.DBPass,0,sys_power_key) + '&'
ls_run = ls_run + sqlca.LogID + '&' + sqlca.LogPass + '&' + sqlca.ServerName + '&'

IF Run(sys_cur_path + 'load.exe' + ' -' +ls_run) = -1 THEN
	MessageBox('错误','运行程序失败！',stopsign!,ok!)
	RETURN
END IF


end subroutine

global subroutine f_run_download ();String ls_run

ls_run = 'longjoe&'+sys_system_id+'&'+sys_cur_version+'&'+String(sys_if_register)+'&'
ls_run = ls_run + sqlca.Database + '&' + sqlca.UserID + '&' + f_psw_bczh(sqlca.DBPass,0,sys_power_key) + '&'
ls_run = ls_run + sqlca.LogID + '&' + sqlca.LogPass + '&' + sqlca.ServerName + '&'
ls_run = ls_run + ' http://www.longjoe.com/update/up_down.zip&' + sys_message_title + '&' 

ls_run=''
ls_run=sqlca.DBMS + '*'
ls_run=ls_run+ sqlca.LogPass + '*'
ls_run=ls_run+ sqlca.ServerName + '*'
ls_run=ls_run+ sqlca.LogID + '*'
ls_run=ls_run+ sqlca.DBParm  + '*'

run(sys_cur_path +'eclever25_load.exe' + ' -' +ls_run)

//IF Run(sys_cur_path + 'longjoe_update.exe' + ' -' +ls_run) = -1 THEN
//	MessageBox('错误','运行程序失败！',stopsign!,ok!)
//	RETURN
//END IF


end subroutine