55 lines
2.4 KiB
Plaintext
55 lines
2.4 KiB
Plaintext
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 |