ZooFlow: Admin

GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb

@@ -115,6 +115,8 @@ Public Class frmAdmin_CWProfile
         labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
     End Sub
 
+
+
     Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
         If Pages.CurrentPage Is Nothing Then
             Return False
@@ -167,6 +169,19 @@ Public Class frmAdmin_CWProfile
         Throw New NotImplementedException()
     End Function
 
+    Public Function AddData() As Boolean
+        If Pages.CurrentPage Is Nothing Then
+            Return False
+        End If
+
+        Dim oPage = Pages.CurrentPage
+
+        oPage.DataTable.Columns.Item("PROFILE_ID").DefaultValue = PrimaryKey
+        Dim oNewRecord As DataRowView = oPage.BindingSource.AddNew()
+
+        Return True
+    End Function
+
     Private Sub TextEdit4_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles TextEdit4.ButtonClick
         Dim oTextEdit As TextEdit = sender
 
@@ -205,4 +220,8 @@ Public Class frmAdmin_CWProfile
             End If
         End If
     End Sub
+
+    Private Sub BarButtonNew_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonNew.ItemClick
+        AddData()
+    End Sub
 End Class