source/csla10/CSLA.Test/Child.vb

@@ -0,0 +1,63 @@
+<Serializable()> _
+Public Class Child
+  Inherits BusinessBase
+
+  Private mData As String = ""
+
+  Private mChildren As Grandchildren = Grandchildren.NewGrandChildren
+
+  Public Property Data() As String
+    Get
+      Return mData
+    End Get
+    Set(ByVal Value As String)
+      If mData <> Value Then
+        mData = Value
+        MarkDirty()
+      End If
+    End Set
+  End Property
+
+  Public ReadOnly Property GrandChildren() As Grandchildren
+    Get
+      Return mChildren
+    End Get
+  End Property
+
+  Friend Shared Function NewChild(ByVal Data As String) As Child
+    Dim obj As New Child()
+    obj.mData = Data
+    Return obj
+  End Function
+
+  Friend Shared Function GetChild(ByVal dr As IDataReader) As Child
+    Dim obj As New Child()
+    obj.Fetch(dr)
+    Return obj
+  End Function
+
+  Private Sub New()
+    ' prevent direct creation
+    MarkAsChild()
+  End Sub
+
+  Private Sub Fetch(ByVal dr As IDataReader)
+    MarkOld()
+  End Sub
+
+  Friend Sub Update(ByVal tr As IDbTransaction)
+    If IsDeleted Then
+      ' we would delete here
+      MarkNew()
+    Else
+      If IsNew Then
+        ' we would insert here
+
+      Else
+        ' we would update here
+      End If
+      MarkOld()
+    End If
+  End Sub
+
+End Class