41 lines
1.6 KiB
Plaintext
41 lines
1.6 KiB
Plaintext
Public Class frm_ReserviertePlaetze
|
|
|
|
Private Sub frm_ReserviertePlaetze_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
|
|
Globals.ReserviertePlaetze_Visible = False
|
|
End Sub
|
|
|
|
Private Sub frm_ReserviertePlaetze_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Public Sub Refresh_Data(ByRef d As Object)
|
|
Me.C1FreiePlätze.DataSource = Nothing
|
|
Me.C1FreiePlätze.DataSource = d
|
|
Me.C1FreiePlätze.DataMember = d.tablename
|
|
Try
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(0).Visible = False
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(1).Width = 150
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(2).Width = 150
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(3).Width = 70
|
|
Me.C1FreiePlätze.Splits(0).DisplayColumns(4).Width = 80
|
|
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TSBtnQuit_Click(sender As System.Object, e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub C1FreiePlätze_DoubleClick(sender As Object, e As System.EventArgs) Handles C1FreiePlätze.DoubleClick
|
|
Dim f As New frmSchueler
|
|
f.MdiParent = Me.MdiParent
|
|
f.Show()
|
|
f.search(Me.C1FreiePlätze.Columns("Schuelernr").Value)
|
|
|
|
End Sub
|
|
|
|
Private Sub SchülerAnzeigenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SchülerAnzeigenToolStripMenuItem.Click
|
|
Me.C1FreiePlätze_DoubleClick(sender, e)
|
|
End Sub
|
|
End Class |