• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

delphi登录用友的信息

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
//登陆子程
function TForm1.LoginU8:Boolean;
begin
  Self.bLogin:=False;
  try
     Self.fLogin:=CreateOleObject('U8Login.clsLogin');
     Self.fNetLogin:=CreateOleObject('UFSOft.U8.Framework.Login.UI.clsLogin');
     if  fNetLogin.login_2('DP') then
     begin
       Self.bLogin:=True;
       oLoginContext:=fNetLogin.SubLogin('DP');  //暂未使用
       fLogin.ConstructLogin(fNetLogin.userToken);
     end;
    except
      MessageBox(0,'请安装用友软件(U8)!','错误',MB_OK);
      bLogin:=False;
      end;
      Result:=Self.bLogin;
end;
 
//获取相关信息
 
if not Self.LoginU8 then
  begin
    Application.Terminate;
  end else begin
     Self.stat1.Panels[0].Text:='操作用户:'+fLogin.cUserName+'('+fLogin.cUserId+')';
     Self.stat1.Panels[1].Text:='应用服务器:'+fLogin.dbServerName;
     Self.stat1.Panels[2].Text:='帐套标识:'+fLogin.cAcc_Id;
     Self.stat1.Panels[3].Text:='操作日期:'+FormatDateTime('yyyy-mm-dd',fLogin.CurDate);
     Self.stat1.Panels[4].Text:='任务ID:'+fNetLogin.GetTaskID('DP');
 
end;
 
//正常退出时
 
 if Self.bLogin then
  begin
    Self.fNetLogin.SubLogout('DP');
    Self.fNetLogin.ShutDown;
  end;


网上搜到以上代码可以试下调用用友登陆获取登陆信息，现在我想不调用登陆，能否直接获取登陆信息，
因为我自己写了个exe程序想挂进用友U8，问题时我需要用友的登陆信息来控制我程序中的权限

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
基于MATLAB的单级倒立摆仿真 - 挽年_Sonny发布时间：2022-07-18
下一篇：
MATLAB矩阵的一些用法 - 中国的孩子发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap