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.
116 lines
4.5 KiB
116 lines
4.5 KiB
Imports Telerik.Web.UI
|
|
Imports System.Web.Configuration
|
|
|
|
|
|
Partial Class _Default
|
|
Inherits System.Web.UI.Page
|
|
|
|
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
Session.Item("RegisterAsCompany") = "False"
|
|
Me.Panel1a.Visible = False
|
|
If Request.QueryString("Fnkt") = "Logout" Then
|
|
Session.Item("LogedIn") = "False"
|
|
Session.Item("Menuhandler") = 0
|
|
Session.Item("Admin") = "False"
|
|
Me.Panel1a.Visible = False
|
|
End If
|
|
If Session.Item("LogedIn") = "True" Then
|
|
Me.Panel1.Visible = False
|
|
Me.Panel1a.Visible = True
|
|
Me.Label3.Text = Session("Username")
|
|
'Me.lblAnmelden.Visible = False
|
|
End If
|
|
Dim dh As New clsDatahandling
|
|
Me.Label2.Text = dh.Get_Option(7)
|
|
Me.lbltitle.Text = dh.Get_Option(21)
|
|
Dim s As String = ""
|
|
If UCase(dh.Get_Option(10)) = "JA" Then
|
|
s = "Firmenbereich gesperrt"
|
|
End If
|
|
If UCase(dh.Get_Option(11)) = "JA" Then
|
|
If s <> "" Then s = "- " + s + "<br>- Lehrerbereich gesperrt" Else s = "Lehrerbereich gesperrt"
|
|
|
|
End If
|
|
Me.Label4.Text = s
|
|
|
|
End Sub
|
|
|
|
|
|
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
|
|
Dim dh As New clsDatahandling
|
|
Dim result As Integer = dh.Check_User(Me.txtBenutzername.Text, Me.txtPasswort.Text)
|
|
If result < 0 Then
|
|
Me.lblErrormessage.Text = "Benutzer unbekannt, Kombination Benutzer/Passwort ungültig oder Benutzerprofil noch nicht aktiviert."
|
|
Else
|
|
Session.Item("UserID") = result
|
|
Session.Item("LogedIn") = "True"
|
|
Session("username") = Me.txtBenutzername.Text
|
|
Dim dt As New DataTable
|
|
Session.Item("Admin") = "False"
|
|
dt = dh.Get_UserUsertype(result)
|
|
If dt.Rows(0).Item("UserType") = 1 Then Session.Item("Admin") = "True"
|
|
If dt.Rows(0).Item("Firmanr") = 0 And dt.Rows(0).Item("Lehrernr") = 0 Then
|
|
'Admin
|
|
Session.Item("Menuhandler") = 9
|
|
Session.Item("Admin") = "True"
|
|
Response.Redirect("~/default.aspx")
|
|
Exit Sub
|
|
End If
|
|
If dt.Rows(0).Item("Firmanr") > 0 Then
|
|
'Firma
|
|
If UCase(dh.Get_Option(10)) = "JA" Then
|
|
Me.Show_Message(1, "Der Firmenbereich ist z.Zt. gesperrt.")
|
|
Session.Item("UserID") = Nothing
|
|
Session.Item("LogedIn") = "false"
|
|
Exit Sub
|
|
End If
|
|
Session.Item("Firmanr") = dt.Rows(0).Item("Firmanr")
|
|
Session.Item("Menuhandler") = 2
|
|
Response.Redirect("~/firmen/firmendaten1.aspx")
|
|
End If
|
|
If dt.Rows(0).Item("Lehrernr") > 0 Then
|
|
'Firma
|
|
If UCase(dh.Get_Option(11)) = "JA" Then
|
|
Me.Show_Message(1, "Der Lehrerbereich ist z.Zt. gesperrt.")
|
|
|
|
Session.Item("UserID") = Nothing
|
|
Session.Item("LogedIn") = "false"
|
|
Exit Sub
|
|
End If
|
|
Session.Item("Lehrer") = dt.Rows(0).Item("Lehrernr")
|
|
Session.Item("Menuhandler") = 3
|
|
Response.Redirect("~/Lehrer/Stammdaten.aspx")
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton2.Click
|
|
Response.Redirect("~/Default.aspx?fnkt=Logout")
|
|
End Sub
|
|
|
|
Protected Sub Show_Message(ByVal type As Integer, ByVal meldung As String)
|
|
Dim image1 As String
|
|
Select Case type
|
|
Case 1
|
|
image1 = WebConfigurationManager.AppSettings("Imagepath") + "Error.png"
|
|
RadWindowManager1.RadAlert(meldung, 330, 100, "Fehler", Nothing, image1)
|
|
Case 2
|
|
image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
|
|
RadWindowManager1.RadAlert(meldung, 330, 100, "Fehler", "alertCallBackFnError", image1)
|
|
Case 3
|
|
image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
|
|
RadWindowManager1.RadConfirm(meldung, "ConfirmCallBackFn", 330, 100, Nothing, "Schüler löschen?")
|
|
Case 4
|
|
image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
|
|
RadWindowManager1.RadConfirm(meldung, "ConfirmCallBackFn1", 330, 100, Nothing, "Schülerdaten?")
|
|
|
|
End Select
|
|
|
|
End Sub
|
|
End Class
|