reg.sra

来自「（转）一个包含目前所有流行的加解密代码（RSA」· SRA 代码 · 共 33 行

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

global type reg from application
 end type
global reg reg

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

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

event open;open(w_reg)
end event