Imports System.Windows.Forms

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
        refresh_data()
    End Sub

    Sub refresh_data()
        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
            Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
            For i As Integer = 1 To C1Daten.Splits(0).DisplayColumns.Count - 1
                Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
            Next
        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

    Private Sub NeuerEintragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem.Click
        Dim f As New FrmAddDok
        f.ShowDialog()
        Me.refresh_data()
    End Sub

    Private Sub MarkierterEintragInaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
        Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
        Me.C1Daten.Bookmark = Me.C1Daten.RowBookmark(Me.C1Daten.RowContaining(e.Y))
    End Sub

    Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
        If MsgBox("Eintrag inaktivieren?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
            Try
                daten.deleteentry(Globals.Mitarbeiternr, Me.C1Daten.Columns(0).Value)
                refresh_data()
            Catch
            End Try

        End If
    End Sub
End Class