SELECT backdata
myfrm=NewObject("_thermometer","tycommon","","正在进行工资核算... ...")
*tycommon是可视类库文件
*_thermometer是类名
COUNT TO lnReccount
myfrm.iBasis=lnReccount
myfrm.SHOW()
lnPercent=0
SCAN
lnPercent=lnPercent+1
myfrm.update(lnPercent,"")
ends
myfrm.complete