//登陆子程
function
TForm1
.
LoginU8:
Boolean
;
begin
Self
bLogin:=
False
try
fLogin:=CreateOleObject(
'U8Login.clsLogin'
);
fNetLogin:=CreateOleObject(
'UFSOft.U8.Framework.Login.UI.clsLogin'
if
fNetLogin
login_2(
'DP'
)
then
True
oLoginContext:=fNetLogin
SubLogin(
//暂未使用
fLogin
ConstructLogin(fNetLogin
userToken);
end
except
MessageBox(
0
,
'请安装用友软件(U8)!'
'错误'
,MB_OK);
Result:=Self
bLogin;
//获取相关信息
not
LoginU8
Application
Terminate;
else
stat1
Panels[
].Text:=
'操作用户:'
+fLogin
cUserName+
'('
cUserId+
')'
1
'应用服务器:'
dbServerName;
2
'帐套标识:'
cAcc_Id;
3
'操作日期:'
+FormatDateTime(
'yyyy-mm-dd'
,fLogin
CurDate);
4
'任务ID:'
+fNetLogin
GetTaskID(
//正常退出时
bLogin
SubLogout(
ShutDown;
网上搜到以上代码可以试下调用用友登陆获取登陆信息,现在我想不调用登陆,能否直接获取登陆信息,因为我自己写了个exe程序想挂进用友U8,问题时我需要用友的登陆信息来控制我程序中的权限
哪里可以找到执行过的存储过程的参数?
RadStudioKeygen.exe 请问有下载地址吗
用delphi怎么获取U8的登录信息,登录操作员和账套号?请指教
博主你这不是挂羊头卖狗肉吗(无恶意)
6666
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 理解Rust引用及其生命周期标识(上)
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 全程不用写代码,我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· 记一次.NET内存居高不下排查解决与启示
· DeepSeek 开源周回顾「GitHub 热点速览」
· 白话解读 Dapr 1.15:你的「微服务管家」又秀新绝活了