clscpomodify.cls

一套企业设备管理系统源代码,所有的业务单据和流程都可以自定义,业务报表也可以通过SQL的存储过程来定义.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsCPOModify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Description = "This is BillEvent Interface Class, made by K3BOSPLUGINSWIZAED"
Option Explicit

 
'定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillInterface  As BillEvent
Attribute m_BillInterface.VB_VarHelpID = -1
 
Public Sub Show(ByVal oBillInterface As Object)
 
    'BillEvent 接口实现
    '注意: 此方法必须存在, 请勿修改
    Set m_BillInterface = oBillInterface
 
End Sub

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

End Sub

Private Sub m_BillInterface_MenuBarInitialize(ByVal oMenuBar As K3ClassEvents.MenuBar)
' 此处为菜单初始化时触发的事件，可在此加入添加菜单功能
    Dim oTool   As K3ClassEvents.BOSTool
    Set oTool = oMenuBar.BOSTools.Add("源单选取")
    With oTool
        .Caption = "源单选取"
        .ToolTipText = "从源单据中读取物料信息"
        ' .Description = ""
        .ShortcutKey = 29 '快捷键 F3
        .Visible = True
        .Enabled = True
        .BeginGroup = True
        
    End With
    
    Set oBand = oMenuBar.BOSBands("mnuFile")
    oBand.BOSTools.InsertBefore "mnuFileExit", oTool    '将菜单对象插入指定一级菜单

End Sub

Private Sub m_BillInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean)
' 此处响应菜单事件
    
End Sub