-
Notifications
You must be signed in to change notification settings - Fork 6
/
IDatabaseObject.cls
executable file
·45 lines (32 loc) · 1011 Bytes
/
IDatabaseObject.cls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "IDatabaseObject"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' ___________________________________________________
'
' © Hi-Integrity Systems 2007. All rights reserved.
' www.hisystems.com.au - Toby Wicks
' ___________________________________________________
'
Option Explicit
Public Property Let IsSaved(ByVal bIsSaved As Boolean)
End Property
Public Property Get IsSaved() As Boolean
End Property
Public Property Let DistinctValue(ByVal vValue As Variant)
End Property
Public Property Get DistinctValue() As Variant
End Property
Public Sub Load(ByVal objFields As SQLFieldValues)
End Sub
Public Function Save() As SQLFieldValues
End Function