Public Class FrmEinzelzuteilung

    Dim Berufnr As Integer
    Dim schuelerberufnr As Integer
    Dim Schuelernr As Integer
    Dim Prioritaet As Integer
    Dim dtFreiePlätze As New DataTable
    Dim Zuteilung As New clsZuteilung
    Sub New(ByVal berufnr As Integer, schuelerberufnr As Integer, ByVal schuelernr As Integer, ByVal prioritaet As Integer)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.Berufnr = berufnr
        Me.schuelerberufnr = schuelerberufnr
        Me.Schuelernr = schuelernr
        Me.Prioritaet = prioritaet
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub FrmEinzelzuteilung_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        dtFreiePlätze = Zuteilung.Get_Freie_Plätze(Berufnr)
        Me.C1FreiePlätze.DataSource = Me.dtFreiePlätze
        Me.C1FreiePlätze.DataMember = Me.dtFreiePlätze.TableName
        Me.C1FreiePlätze.Splits(0).DisplayColumns(0).Visible = False
        Me.C1FreiePlätze.Splits(0).DisplayColumns(2).Visible = False
        Me.C1FreiePlätze.Splits(0).DisplayColumns(3).Visible = False
        Me.C1FreiePlätze.Splits(0).DisplayColumns(6).Visible = False
        Me.C1FreiePlätze.Bookmark = 0
    End Sub

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

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


    Private Sub C1FreiePlätze_DoubleClick(sender As Object, e As System.EventArgs) Handles C1FreiePlätze.DoubleClick
        Zuteilung.Insert_Zuteilung(Me.C1FreiePlätze.Columns("FirmaBerufNr").Value, Me.schuelerberufnr, Me.Schuelernr, Prioritaet, Me.C1FreiePlätze.Columns("Zeitnr").Value, Me.C1FreiePlätze.Columns("Ansprechpartnernr").Value)
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub btnZuteilen_Click(sender As System.Object, e As System.EventArgs) Handles btnZuteilen.Click
        C1FreiePlätze_DoubleClick(sender, e)
    End Sub

    Private Sub C1FreiePlätze_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles C1FreiePlätze.MouseDown
        Me.C1FreiePlätze.Bookmark = Me.C1FreiePlätze.RowContaining(e.Y)

    End Sub
End Class