F li_return <> 0 THEN
MessageBox("Error Info", "ErrorCode= " + string(inv_connect_srv.ErrCode) + "~nErrText= " + inv_connect_srv.ErrText)
END IF
TRY // 进行登录，表中有一行数据（xzh2000,000000）
li_return = inv_login_srv.of_user_logon(‘xzh2000’,’000000’)
CATCH (cts_pbuserexception uae1)
li_return = 999
END TRY
If li_return = 1 then
Messagebox(“system”,”OK”)
Else
Messagebox(“system”,”CANCEL”)
End if
三 说明：
本文是在Jaguar Manage(Debug)启动情况下通过，如有疑问，请发EMAIL：至：xzh2000@fm365.com
上一页 [1] [2] [3] [4]
|
