Imports System.Data.SQLite

Public Class frmZuteilungUebersicht

    Dim dt As New DataTable
    Dim dtchanges As New DataTable
    Dim zuteilung As New clsZuteilung


    Private Sub frmZuteilungUebersicht_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
            dtchanges.Rows.Clear()
            dtchanges = dt.GetChanges

            If dtchanges.Rows.Count > 0 Then
                If MsgBox("Daten wurden geändert. Wollen Sie Änderungen speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                    For Each r As DataRow In dtchanges.Rows
                        zuteilung.Update_Zuteilung(r)
                    Next
                End If
            End If
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub frmZuteilungUebersicht_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Refresh_Data()
        Me.C1Zuteilung.GroupedColumns.Add(Me.C1Zuteilung.Columns("Schueler"))
        Me.SuspendLayout()
        Dim i As Integer = 0
        Try
            While C1Zuteilung.Splits(0).Rows(i).RowType = C1.Win.C1TrueDBGrid.RowTypeEnum.DataRow Or i < C1Zuteilung.Splits(0).Rows.Count
                C1Zuteilung.ExpandGroupRow(i)
                i = i + 1
            End While
        Catch ex As Exception
        End Try

        Me.ResumeLayout()

    End Sub

    Private Sub Refresh_Data()
        zuteilung.Get_Uebersicht(dt)

        Me.C1Zuteilung.DataSource = dt
        Me.C1Zuteilung.DataMember = dt.TableName
    End Sub

    Private Sub ZutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZutToolStripMenuItem.Click
        If MsgBox("Soll die aktuelle Zuteilung gelöscht werden?", MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.Yes Then
            Me.C1Zuteilung.Columns("Aktiv").Value = False
        End If
    End Sub


    Private Sub AlleZeilenExpandierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlleZeilenExpandierenToolStripMenuItem.Click
        'For i As Integer = 0 To Me.C1Zuteilung.Splits(0).Rows.Count - 1
        '    C1Zuteilung.ExpandGroupRow(i, False)
        'Next

        Me.SuspendLayout()
        Dim i As Integer = 0
        Try
            While C1Zuteilung.Splits(0).Rows(i).RowType = C1.Win.C1TrueDBGrid.RowTypeEnum.DataRow Or i < C1Zuteilung.Splits(0).Rows.Count
                C1Zuteilung.ExpandGroupRow(i)
                i = i + 1
            End While
        Catch ex As Exception
        End Try

        Me.ResumeLayout()
    End Sub

    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
        dtchanges.Rows.Clear()
        Try
            dtchanges = dt.GetChanges

            If dtchanges.Rows.Count > 0 Then
                For Each r As DataRow In dtchanges.Rows
                    zuteilung.Update_Zuteilung(r)
                Next
            End If
            dt.AcceptChanges()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub ToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Me.Close()
    End Sub
End Class