101 lines
3.5 KiB
Plaintext
101 lines
3.5 KiB
Plaintext
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 |