mmcommon.cls

来自「制造业产供销与往来系统源码,包括进销存及全部控件！」· CLS 代码 · 共 34 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "MmCommon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Sub gPublic(vPublicCommon As PublicCommon)

   Set gDbCommon = vPublicCommon.DbCommon
   Set gPublicFunction = vPublicCommon.PublicFunction
   Set gPublicCommon = vPublicCommon

End Sub

Private Sub Class_Terminate()

Set gDbCommon = Nothing
Set gPublicFunction = Nothing
Set gPublicCommon = Nothing

End Sub