如何操作Aras Innovator Login

Dim inn As Innovator = Nothing
Dim connection As HttpServerConnection  connection = IomFactory.CreateHttpServerConnection(strServerURL, strDB, strUserName, strPassword)
Dim item As Item = connection.Login
If item.isError Then
If (Not connection Is Nothing) Then
connection.Logout()
End If
Dim str As String = item.getErrorString
Dim startIndex As Integer = (str.IndexOf(":") + 1)
If (startIndex > 0) Then
str = str.Substring(startIndex)
End If
If str.Contains("Authentication") Then
str = "Invalid user or password"
End If
If str.Contains("Database") Then
str = "Database not available"
End If
MessageBox.Show(("Login failed!" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & str), "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
inn = IomFactory.CreateInnovator(connection)
MessageBox.Show("登入成功")
End If

示例图:

打赏
分享到QQ 分享到微信 分享到微博

0 条评论

发表我的观点

取消

切换注册

登录

忘记密码 ?

您也可以使用第三方帐号快捷登录

Q Q 登 录
微 博 登 录
切换登录

注册