Public Class Form1
    Dim dbconn As New DB_Connection
    Dim db As New DB

    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_Dokumenttypen()
        Me.C1Dokumenttypen.DataSource = db.dsDaten.Tables("Dokumenttypen")
        Me.C1Dokumenttypen.Splits(0).DisplayColumns(0).Width = 30
        Me.C1Dokumenttypen.Splits(0).DisplayColumns(1).Width = Me.GroupBox1.Width - 53
        For i = 0 To Me.C1Dokumenttypen.Splits(0).DisplayColumns.Count - 1
            Me.C1Dokumenttypen.Splits(0).DisplayColumns(i).Locked = True
        Next

        Refresh_Blacklist()
    End Sub

    Sub Refresh_Blacklist(Optional marker As Integer = 0)
        db.Get_Blacklist()
        Me.C1Blacklist.DataSource = Nothing
        Me.C1Blacklist.DataSource = db.dsdatenblacklist.Tables("Blacklist")
        Me.C1Blacklist.DataMember = db.dsdatenblacklist.Tables(0).TableName
        Me.C1Blacklist.Splits(0).DisplayColumns(0).Width = 0
        Me.C1Blacklist.Splits(0).DisplayColumns(1).Width = 60
        Me.C1Blacklist.Splits(0).DisplayColumns(2).Width = 200
        Me.C1Blacklist.Splits(0).DisplayColumns(3).Width = 50
        Me.C1Blacklist.Splits(0).DisplayColumns(4).Width = 70
        Me.C1Blacklist.Splits(0).DisplayColumns(5).Width = 50
        Me.C1Blacklist.Splits(0).DisplayColumns(6).Width = 70
        Me.C1Blacklist.Splits(0).DisplayColumns(7).Width = 50
        Me.C1Blacklist.Splits(0).DisplayColumns(1).Locked = True
        Me.C1Blacklist.Splits(0).DisplayColumns(4).Locked = True
        Me.C1Blacklist.Splits(0).DisplayColumns(4).Locked = True
        Me.C1Blacklist.Splits(0).DisplayColumns(5).Locked = True
        Me.C1Blacklist.Splits(0).DisplayColumns(6).Locked = True
        Me.C1Blacklist.Splits(0).DisplayColumns(7).Locked = True
        Dim bm As Integer = 0
        If marker <> 0 Then
            For i = 0 To db.dsdatenblacklist.Tables(0).Rows.Count - 1
                If db.dsdatenblacklist.Tables(0).Rows(i).Item("DokTypNr") = marker Then Me.C1Blacklist.Bookmark = bm
                bm = bm + 1
            Next
        End If

    End Sub


    Private Sub C1Dokumenttypen_DoubleClick(sender As Object, e As EventArgs) Handles C1Dokumenttypen.DoubleClick
        Dim row As DataRow = db.dsdatenblacklist.Tables(0).NewRow
        row.Item(1) = Me.C1Dokumenttypen.Columns("Dokumenttypnr").Value
        row.Item(2) = ""
        row.Item(3) = True
        row.Item(4) = Now
        row.Item(5) = Globals.Mitarbeiternr
        row.Item(6) = Now
        row.Item(7) = Globals.Mitarbeiternr
        db.dsdatenblacklist.Tables(0).Rows.Add(row)
        db.Update_Daten()
        Refresh_Blacklist(Me.C1Dokumenttypen.Columns("Dokumenttypnr").Value)
    End Sub

    Private Sub C1Blacklist_AfterUpdate(sender As Object, e As EventArgs) Handles C1Blacklist.AfterUpdate
        db.Update_Daten()
    End Sub

    Private Sub C1Blacklist_BeforeColUpdate(sender As Object, e As C1.Win.C1TrueDBGrid.BeforeColUpdateEventArgs) Handles C1Blacklist.BeforeColUpdate
        Me.C1Blacklist.Columns("Mutiert_am").Value = Now
        Me.C1Blacklist.Columns("Mutierer").Value = Globals.Mitarbeiternr
    End Sub
End Class