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