K/3插件,库存可用量分析VB6源码

库存可用量分析VB6源码

 

Option Explicit

'引用K3BillTransfer

'引用K3ClassEvents

'引用Kingdee Foundation Object 1.0

'引用Microsoft Activex Data Object 2.8 Libary

'引用Microsoft ADO 3.6 Object Libary

 

'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件

Private WithEvents m_BillTransfer  As K3BillTransfer.Bill

Public Sub Show(ByVal oBillTransfer As Object)

 

    'BillEvent 接口实现

    '注意: 此方法必须存在, 请勿修改

    Set m_BillTransfer = oBillTransfer