Public Class FrmData

    Dim daten As New DB
    Dim dbco As New DB_Connection

    Private Sub C1Daten_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Daten.AfterColUpdate
        'Aktualisieren von Mutierer und Mutiert_am

        Dim i As Integer
        Try
            For i = 0 To Me.C1Daten.Columns.Count - 1
                If LCase(Me.C1Daten.Columns(i).DataField) = "mutiert_am" Then Me.C1Daten.Columns(i).Value = Now
                If LCase(Me.C1Daten.Columns(i).DataField) = "mutierer" Then Me.C1Daten.Columns(i).Value = Globals.Mitarbeiternr
            Next

            'neuer DB-Key auslösen, sofern kein Key vorhanden ist
            If Me.C1Daten.Columns(0).Value Is DBNull.Value Then
                'Dim dbkey As New edokadb.clsMyKey_Tabelle()
                'Dim key As Long
                'dbkey.cpMainConnectionProvider = conn
                'key = dbkey.get_dbkey(tablename)
                'Me.C1Daten.Columns(0).Value = key
                For i = 0 To Me.C1Daten.Columns.Count - 1
                    If LCase(Me.C1Daten.Columns(i).DataField) = "mandantnr" Then
                        Me.C1Daten.Columns(i).Value = Globals.Mitarbeiternr
                    End If
                    If LCase(Me.C1Daten.Columns(i).DataField) = "erstellt_am" Then
                        Me.C1Daten.Columns(i).Value = Now
                    End If
                    If LCase(Me.C1Daten.Columns(i).DataField) = "aktiv" Then
                        Me.C1Daten.Columns(i).Value = 1
                    End If
                Next
                'dbkey.Dispose()
            End If
        Catch
        End Try

    End Sub

    Private Sub FrmData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        daten.Get_data()

        Me.C1Daten.DataSource = daten.dsDaten.Tables(0)
        Me.C1Daten.DataMember = daten.dsDaten.Tables(0).TableName
        Try
            Me.C1Daten.Columns("aktiv").FilterText = True
        Catch
        End Try
    End Sub

    Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
        daten.Update_Daten()
    End Sub

    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class