Q5/ws_objects/Ew_atupdexe.pbl.src/atudexe.sra

$PBExportHeader$atudexe.sra
forward
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global variables
string publ_operator="sywise"
//当前操作员名
int sys_power[]
//系统权限数组
string sys_right
//权限字符串

boolean sys_power_issuper=false
//超级用户标志

string sys_super_name='超级用户'
string sys_super_id='sywise'
//超级用户ID

STRING SYS_INIFILENAME='sc_wiz.ini'
//指定系统INI文件

string sys_power_key='1657473433769866'
string sys_system_id='nhedurs200107'

//系统信息
string sys_message_title=""
string sys_message_customer_briefname=""
string sys_message_report_title=""
string sys_message_customer_TEL=""

string sys_message_maker="sywise PB"
string sys_message_copyright_inc="2000-12-22"
string sys_message_copyright_inE=""
string sys_message_Version="V1"

string sys_message_copytime="2000-12-22"
string sys_message_timeoutdate="2001.10.01"
date sys_begin_date= 2001-02-03

//开始窗口的图片名称
string sys_flashbmpname='first.bmp' 
string sys_cur_areacode='440682' //地区编号
string sys_cur_statuscode='441303' //全国学籍号地区编号
string sys_cur_path=''  //系统当前绝对路径


long Sys_mode=0	//不用

long sys_cur_schoolid=0
//局模式=0 
//校模式=当前学校id
long sys_cur_twnid=0 //局模式时的当前镇id，<>0  时为镇id
string sys_cur_twnname='' //当前镇名称
string sys_cur_schoolname='' //当前学校名称

transaction remote_sqlca//远程(局)事务对象
transaction dataincept_sqlca//数据传递事务对象

long sys_usergroup[]
//系统用户组

//s_sys_tntblinfo s_tntblinfo[100] //系统数据表信息
//uo_mdflog sys_uo_mdflog
end variables

global type atudexe from application
 end type
global atudexe atudexe

type prototypes
subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library 'user32.dll'

end prototypes

on atudexe.create
appname = "atudexe"
message = create message
sqlca = create transaction
sqlda = create dynamicdescriptionarea
sqlsa = create dynamicstagingarea
error = create error
end on

on atudexe.destroy
destroy( sqlca )
destroy( sqlda )
destroy( sqlsa )
destroy( error )
destroy( message )
end on

event open;long ls_rslt=1
string lls_str
uo_atudexe uo_ins_atudexe
uo_ins_atudexe=create uo_atudexe

ls_rslt=uo_ins_atudexe.f_init_syscurpath(lls_str)
//ls_rslt=uo_ins_atudexe.f_autoupdateexe(sqlca,lls_str)

ls_rslt=uo_ins_atudexe.f_istlnewfile()
//atudexe

halt
destroy uo_ins_atudexe



end event