home *** CD-ROM | disk | FTP | other *** search
/ distrib.akp.su/Programming/Vb-6+Rus/ / distrib.akp.su.tar / distrib.akp.su / Programming / Vb-6+Rus / VB98 / TEMPLATE / CLASSES / DATACON1.CLS next >
Text File  |  1998-06-18  |  1KB  |  42 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 2  'vbComplexBound
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsComplexDataConsumer"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Option Explicit
  15. ' TODO: declare a recordset variable to be the datasource for this class.  For example:
  16.  
  17. 'Private WithEvents RS As ADODB.RecordSet
  18.  
  19. Public Property Get DataSource() As DataSource
  20.     ' TODO: return the datasource object for this class.  For example:
  21.    
  22.     'Set DataSource = RS.DataSource
  23. End Property
  24. Public Property Set DataSource(ByVal objDataSource As DataSource)
  25.     '  TODO: set the datasource object for this class.  For example:
  26.     
  27.     'Set RS.DataSource = objDataSource
  28.     'PropertyChanged "DataSource"
  29. End Property
  30. Public Property Get DataMember() As DataMember
  31.     ' TODO: return the DataMember.  For example:
  32.     
  33.     'Set DataMember = RS.DataMember
  34. End Property
  35. Public Property Let DataMember(ByVal DataMember As DataMember)
  36.     ' TODO: assign a new DataMember.  For example:
  37.     
  38.     'Set RS.DataMember = DataMember
  39.     'PropertyChanged "DataMember"
  40. End Property
  41.  
  42.