if myconnect.errcode=0 then
(parent.title='用户'+Upper(myconnect.userid)+'已经连接到远端服务器'+upper (myconnect.application)+'上'
end if
调用服务器端函数:
uo_customers iuo_customer
st_custlist customer[]
string ls_custid
long ll_rc,i
ll_rc=myconnect.createinstance(iuo_customer)
if ll_rc<>0 then
messagebox("创建远端对象错误",ll_rc)
end if
iuo_customer.retrieve_custlist(customer)
dw_1.object.data=customer
destroy iuo_customer