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]
|