comexdatasourcesingle.cls

vb开发的合同管理系统

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

Public Sub SetData(ByVal Field As Long, ByVal newData As Variant)
'
End Sub

Public Sub SetDataByName(ByVal FieldName As String, ByVal newData As Variant)
'
End Sub

Public Function GetFieldName(ByVal Field As Long) As String
'
End Function

Public Function GetData(ByVal Field As Long) As Variant
'
End Function

Public Function GetDataByName(ByVal FieldName As String) As Variant
'
End Function

Public Function GetFieldCount() As Long
'
End Function
             
Public Function Save() As Boolean
'
End Function
           
Public Sub Delete()
'
End Sub

Public Function CopyMe() As COMEXDataSourceSingle
'
End Function 

Public Property Get IsDeleted() As Boolean
'    
End Property