PB 自定义对象的constructor 事件

[qq135849]

新建了一个自定义对象uo_1

// 创建实例
uo_1 u_1

u_1 = create uo_1

为什么创建实例时 不会调用 uo_1 的constructor 事件呢，
自定义对象的 constructor 又是什么时候执行的呢？

[noobw]

constructor 一般是在创建对象或者用户自定义对象的时候就触发了。
具体你没触发的原因没有实际代码不是很清楚。

[tingmo1999]

促发啦

[qq135849]

itrans_his = CREATE transaction

debugbreak()
messagebox('提示','111')

//实例变量itrans_his,新建事务,记录合作医疗通讯日志用 minqingsheng 20080612
string ls_ssss,ls_pp,ls_server
int li_l1,li_l2
char lc_valid

ib_canused = false
select valid
into :lc_valid
from ia_pactunitinfo
where pact_code = '17';
if sqlca.sqlcode <> 0 then
gf_msg ("查询广陵合作医疗是否禁用失败，请重试~n"+sqlca.sqlerrtext,111)
return
end if
if lc_valid = '1' then
ls_pp = ProfileString('newhis.ini','newhis','pp','')
ls_ssss = ProfileString('newhis.ini','newhis','ss','')
ls_server = ProfileString("newhis.ini","newhis","servername"," ")
li_l1 = integer(mid(ls_pp,9,2))
li_l2 = integer(mid(ls_pp,29,2))
itrans_his = CREATE Transaction
itrans_his.DBMS = "O84 ORACLE 8.0.4"
itrans_his.LogPass = f_ini_decrypt(mid(ls_ssss,72,li_l2))
itrans_his.ServerName = ls_server
itrans_his.LogId = f_ini_decrypt(mid(ls_ssss,19,li_l1))
itrans_his.AutoCommit = false
itrans_his.DBParm = "CommitOnDisconnect='No'"
Connect Using itrans_his;
if itrans_his.sqlcode <> 0 then
gf_msg("数据库连接失败,请重试~n"+itrans_his.sqlerrtext,111)
return
end if

ib_canused = true
end if



加了messagebox, 也不执行

[noobw]

设置断点进去看吧，如果断点都进不去说明你的调用那边就出了问题。
在创建那边设置一个断点，constructor里面设置一个断点就可以进去了。

[wag_enu]

[Quote=引用楼主 shidebao12 的回复:]
新建了一个自定义对象uo_1

// 创建实例
uo_1 u_1

u_1 = create uo_1

为什么创建实例时 不会调用 uo_1 的constructor 事件呢，
自定义对象的 constructor 又是什么时候执行的呢？
[/Quote]

你是如何确定它没被执行的？
在constructor 里加一个 messagebox() 看看运行反映。。。

[fjfzyufan]

自定义对象跟窗口对象一样, 用Create不会触发constructor事件. 必须用OpenUserObject函数才会触发。