home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 March / Pc Users extra 6.iso / pshare95 / prog / formula1 / vcform1.z / SQLInfo.cls < prev    next >
Encoding:
Visual Basic class definition  |  1997-09-08  |  1.1 KB  |  56 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "SQLInfo"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Member0" ,"Fields"
  12. Attribute VB_Ext_KEY = "Member1" ,"Groups"
  13. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  14. Option Explicit
  15.  
  16. Private mvarFields As Fields
  17. Private mvarGroups As Groups
  18.  
  19.  
  20. Public Property Get Groups() As Groups
  21.     If mvarGroups Is Nothing Then
  22.         Set mvarGroups = New Groups
  23.     End If
  24.  
  25.  
  26.     Set Groups = mvarGroups
  27. End Property
  28.  
  29.  
  30. Public Property Set Groups(vData As Groups)
  31.     Set mvarGroups = vData
  32. End Property
  33.  
  34.  
  35.  
  36. Public Property Get Fields() As Fields
  37.     If mvarFields Is Nothing Then
  38.         Set mvarFields = New Fields
  39.     End If
  40.  
  41.  
  42.     Set Fields = mvarFields
  43. End Property
  44.  
  45.  
  46. Public Property Set Fields(vData As Fields)
  47.     Set mvarFields = vData
  48. End Property
  49. Private Sub Class_Terminate()
  50.   Set mvarGroups = Nothing
  51.     Set mvarFields = Nothing
  52. End Sub
  53.  
  54.  
  55.  
  56.