app.cls

来自「IBM 开发的easy cics通讯相关的源代码」· CLS 代码 · 共 51 行

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

Dim daOne As New DataAdapter
Dim objEc As New EasyCics.App
Dim MyOSP As New CicsOSPObject
Dim IfReLoad As Boolean

Private Sub Class_GetDataMember(DataMember As String, Data As Object)

        IfReLoad = True
        MyOSP.LoadData
        Set Data = MyOSP

End Sub

Private Sub Class_Initialize()

        'DataSourceBehavior = 2

        Set daOne.Object = Me
        Set MyOSP.oEc = objEc
        IfReLoad = False

End Sub

Public Property Get DataAdapter() As DataAdapter
        Set DataAdapter = daOne

If IfReLoad = True Then
        MyOSP.LoadData
End If

End Property

Public Property Get oEc() As EasyCics.App
        Set oEc = objEc
End Property