You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
1.7 KiB
50 lines
1.7 KiB
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 Mutation durch Anhacken des Kästchens unterhalb des Knopfes."
|
|
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
|
|
If Me.cbboxInaktieBerufsbilder.Checked = True Then
|
|
dh.Inaktive_Berufsangebote_loeschen(Session.Item("Userid"))
|
|
End If
|
|
If Me.cbboxFirmenNotAktuell.Checked = True Then
|
|
dh.Firmen_Inaktivieren(Session.Item("Userid"))
|
|
End If
|
|
If Me.cbboxZuteilungenLoeschen.Checked = True Then
|
|
dh.Delete_Zuteilung()
|
|
End If
|
|
|
|
Me.cbboxDel.Checked = False
|
|
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 |