U8二次开发登录问题
新手,刚开始研究U8二次开发,使用的是C#语言,不过,一做登录就遇到问题了,无法登录,看了UAP的demo,看了别人的帖子,可惜,最终也没有一个人给出一个完整的案例,纠结啊,希望能整个能正常登录的demo吧,不然,感觉严重打击新人的热情{:soso_e154:} 学习学习 想学习一下,资料真少 想下载,但没钱的飘过…… 路过路过路过路过 还有没有源代码 我也是刚开始研究这块,你有那开发UAP的软件吗? uap他自带一个工具,我是开发非门户的,所以用的是VS 听说U8ERP源码是VB的,所以二次开发也是VB比较好 我只有VB的登录你自己转为C吧Sub Main()
Dim cLogin As Object
On Error GoTo cerr
Set cLogin = CreateObject("UFSoft.U8.Framework.Login.UI.clsLogin")
If cLogin.login_2("DP") Then
g_sUserToken = cLogin.userToken
Set g_Login = New U8Login.clsLogin
Call g_Login.ConstructLogin(g_sUserToken)
debug.printg_Login.cAcc_Id & vbCrLf & g_Login.cAccName & vbCrLf & g_Login.cUserId & vbCrLf & g_Login.cUserName & vbCrLf & g_Login.cUserPassWord & vbCrLf & g_Login.cServer & vbCrLf & g_Login.cIYear & vbCrLf & g_Login.cDbServerSerial & vbCrLf & g_Login.cSerial & vbCrLf & g_Login.cServerSerial & vbCrLf & g_Login.dbServerName & vbCrLf & g_Login.UfDbName
Form1.Show
Else
MsgBox "登陆失败:" & g_Login.ShareString
End If
Exit Sub
cerr:
MsgBox "登录取消!"
End Sub
兄弟,你导入了哪些DLL啊
路过先看看 还是没搞定,出来几个高手解决一下罢:L 路过先看看 咋都是些路过的呢 想学飘过 :lol 谢谢分享, 看一下.
谢谢分享, 看一下.
页:
[1]
2