Public Class Form1

    Dim db As New clsdb
    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        db.Get_data()

        Me.C1Daten.DataSource = db.dsdaten.Tables(0)
        Me.C1Daten.DataMember = db.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
        db.Update_Daten()
    End Sub

    Private Sub C1Daten_AfterInsert(sender As Object, e As EventArgs) Handles C1Daten.AfterInsert
        Me.C1Daten.Columns("erstellt_am").Value = Now
        Me.C1Daten.Columns("mutiert_am").Value = Now
        Me.C1Daten.Columns("mutierer").Value = Globals.Mitarbeiternr
        Me.C1Daten.Columns("aktiv").Value = True
    End Sub

    Private Sub C1Daten_AfterUpdate(sender As Object, e As EventArgs) Handles C1Daten.AfterUpdate
        Me.C1Daten.Columns("mutiert_am").Value = Now
        Me.C1Daten.Columns("mutierer").Value = Globals.Mitarbeiternr

    End Sub
End Class