39 lines
1.3 KiB
VB.net
39 lines
1.3 KiB
VB.net
Public Class DelData
|
|
Inherits System.Web.UI.Page
|
|
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
|
|
End Sub
|
|
|
|
Protected Sub btnZusammenfassung_Click(sender As Object, e As EventArgs) Handles btnZusammenfassung.Click
|
|
If cbboxDel.Checked = False Then
|
|
Me.Label1.Text = "Bestätigen Sie bitte die Löschung durch Anhacken des Kästchens unterhalb des Löschknopfes."
|
|
Exit Sub
|
|
End If
|
|
Dim dh As New clsDatahandling
|
|
If Me.cbboxFirmen.Checked = True Then
|
|
dh.Delete_Firmen()
|
|
End If
|
|
If Me.cbboxAnsprechpartner.Checked = True Then
|
|
dh.Delete_Ansprechpartner()
|
|
End If
|
|
If Me.cbboxAngebot.Checked = True Then
|
|
dh.Delete_Angebot()
|
|
End If
|
|
If Me.cbboxKlassen.Checked = True Then
|
|
dh.Delete_Klasse()
|
|
End If
|
|
If Me.cbboxLehrer.Checked = True Then
|
|
dh.Delete_Lehrer()
|
|
End If
|
|
If Me.cbboxSchueler.Checked = True Then
|
|
dh.Delete_Schueler()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Protected Sub cbboxFirmen_CheckedChanged(sender As Object, e As EventArgs) Handles cbboxFirmen.CheckedChanged
|
|
Me.cbboxAnsprechpartner.Checked = True
|
|
Me.cbboxAngebot.Checked = True
|
|
End Sub
|
|
End Class |