| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- $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
|
