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