merge administration

GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb

@@ -0,0 +1,38 @@
+Imports DigitalData.Modules.Logging
+
+Public Class frmAdmin_CWProfile
+    Inherits frmAdmin_Base
+    Implements frmAdmin_Interface
+
+    Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
+
+    Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
+
+    Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
+
+    Private Property Logger As Logger Implements frmAdmin_Interface.Logger
+
+    Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
+
+    End Function
+
+    Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingNavigatorSaveItem.Click
+        Me.Validate()
+        Me.TBCW_PROFILESBindingSource.EndEdit()
+        Me.TableAdapterManager.UpdateAll(Me.DBCW_Stammdaten)
+
+    End Sub
+
+    Private Sub FillToolStripButton_Click(sender As Object, e As EventArgs) Handles FillToolStripButton.Click
+        Try
+            Me.TBCW_PROFILESTableAdapter.Fill(Me.DBCW_Stammdaten.TBCW_PROFILES, CType(GUIDToolStripTextBox.Text, Integer))
+        Catch ex As System.Exception
+            System.Windows.Forms.MessageBox.Show(ex.Message)
+        End Try
+
+    End Sub
+End Class