七、K3 WISE 开发插件《工业单据老单插件中获取登陆用户名》

最新推荐文章于 2021-01-21 12:57:05 发布

原创

最新推荐文章于 2021-01-21 12:57:05 发布 · 119 阅读

0 ·

CC 4.0 BY-SA版权

--zhuguoqing

本文介绍了一种在K3系统中获取当前用户名的方法。通过在单据或序时簿中利用特定接口，可以轻松实现用户名的获取。同时，提供了详细的VBA代码示例，包括如何在Class1和MMTS中实现这一功能。

备注：如果是BOS新单，都有获取用户名的方法。在单据有m_BillInterface.K3Lib.User.UserId，在序时薄有m_ListInterface.K3Lib.User.UserID

工业单据获取用户名，源代码如下：

工程引用：

Class1代码如下：

'定义插件对象接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillTransfer   As k3BillTransfer.Bill
 
Public Sub Show(ByVal oBillTransfer As Object)
 
    '接口实现
    '注意: 此方法必须存在, 请勿修改
    Set m_BillTransfer = oBillTransfer
 
End Sub

Private Sub Class_Terminate()
 
    '释放接口对象
    '注意: 此方法必须存在, 请勿修改
    Set m_BillTransfer = Nothing

End Sub

Private Sub m_BillTransfer_BillInitialize()
 
'*************** 开始设置菜单 ***************
 
    m_BillTransfer.AddUserMenuItem "用户自定义 1", "自定义菜单"
 
'*************** 结束设置菜单 ***************
 

End Sub

Private Sub m_BillTransfer_UserMenuClick(ByVal Index As Long, ByVal Caption As String)
 
    'TODO: 请在此处添加代码响应事件 UserMenuClick
 
 
    Select Case Caption
    Case "用户自定义 1"
        '此处添加处理 用户自定义 1 菜单对象的 Click 事件
 MsgBox UserName()
    Case Else
    End Select

End Sub

MMTS代码如下：