Public Class frmControl_Detail
    Private Sub TBPM_CONTROL_TABLEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.TBPM_CONTROL_TABLEBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)

    End Sub

    Public Function FillData(ID As Integer)
        Try
            TBPM_CONTROL_TABLETableAdapter.FillByGUID(DD_DMSLiteDataSet.TBPM_CONTROL_TABLE, ID)
            Return True
        Catch ex As System.Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Daten:")
        End Try

    End Function

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Try
            TBPM_CONTROL_TABLEBindingSource.EndEdit()
            If DD_DMSLiteDataSet.TBPM_CONTROL_TABLE.GetChanges Is Nothing = False Then
                Me.CHANGED_WHOTextBox.Text = Environment.UserName
                TBPM_CONTROL_TABLEBindingSource.EndEdit()
                TBPM_CONTROL_TABLETableAdapter.cmdUpdate(SPALTENNAMETextBox.Text, SPALTEN_HEADERTextBox.Text, SPALTENBREITETextBox.Text, True, READ_ONLYCheckBox.Checked, LOAD_IDX_VALUECheckBox.Checked, CHANGED_WHOTextBox.Text, GUIDTextBox.Text)
                tslblAenderungen.Visible = True
                tslblAenderungen.Text = "Änderungen gespeichert - " & Now
                FillData(GUIDTextBox.Text)
            Else
                tslblAenderungen.Visible = False
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern:")
        End Try

    End Sub

    Private Sub frmControl_Detail_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.frmTableColumns_Position = Me.Location
    End Sub

    Private Sub frmControl_Detail_Load(sender As Object, e As EventArgs) Handles Me.Load
        Try
            If My.Settings.frmTableColumns_Position.IsEmpty = False Then
                If My.Settings.frmTableColumns_Position.X > 0 And My.Settings.frmTableColumns_Position.Y > 0 Then
                    Me.Location = My.Settings.frmTableColumns_Position
                End If
            End If
            Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Formulardaten:")
        End Try
       
    End Sub
End Class