shu/LPWeb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Initial Commit Update Telerik

Browse Source
This commit is contained in:
Stefan Hutter
2022-01-07 19:26:33 +01:00
commit 57e1cda236
2174 changed files with 1202494 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

245
LPWeb20/Lehrer/LehrerRegister.aspx Normal file
View File

@@ -0,0 +1,245 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="LehrerRegister.aspx.vb" Inherits="LPWeb.LehrerRegister" %>
<%@ Register Src="~/Defaults/Header1.ascx" TagPrefix="shu" TagName="Header" %>
<%@ Register Src="~/UserControls/Menu1.ascx" TagPrefix="shu" TagName="Menu" %>
<%@ Register Src="~/Defaults/Footer.ascx" TagPrefix="shu" TagName="Footer" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title></title>
<link href="~/Styles/Site.css" rel="stylesheet" type="text/css" />
<style type="text/css">
.style1
{
}
.style2
{
width: 314px;
}
.riLabel1
{
font: 12px "segoe ui" ,arial,sans-serif; color:Black;
width:115px;
}
</style>
</head>
<script runat="server">
Public Sub CheckID(source As Object, args As ServerValidateEventArgs)
Check_Userid(source, args)
End Sub
Public Sub CheckCaptcha(source As Object, args As ServerValidateEventArgs)
Check_Captcha(source, args)
End Sub
</script>
<body>
<form id="form1" runat="server">
<telerik:RadScriptManager ID="ScriptManager1" runat="server"
EnableTheming="True">
<scripts>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.Core.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQuery.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQueryInclude.js">
</asp:ScriptReference>
</scripts>
</telerik:RadScriptManager>
<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">
</telerik:RadAjaxManager>
<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" Runat="server"
Skin="Default">
</telerik:RadAjaxLoadingPanel>
<div class="page">
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>Registrierung als Lehrer</h2>
<asp:ValidationSummary ID="ValidationSummary1" runat="server" ForeColor="Red"
HeaderText="Folgende Fehler sind vorhanden:" />
<p>
<asp:RequiredFieldValidator ID="RV11" runat="server" ControlToValidate="txtName" ErrorMessage="Name fehlt" ForeColor="White">> </asp:RequiredFieldValidator>
<asp:RequiredFieldValidator ID="RV2" runat="server" ControlToValidate="txtEmail" ErrorMessage="E-Mailadresse fehlt" ForeColor="White">> </asp:RequiredFieldValidator>
<asp:RequiredFieldValidator ID="RV5" runat="server" ControlToValidate="txttelefon" ErrorMessage="Telefon-Nummer fehlt" ForeColor="White">> </asp:RequiredFieldValidator>
<asp:RequiredFieldValidator ID="RV6" runat="server" ControlToValidate="txtPasswort1" ErrorMessage="Passwort fehlt" ForeColor="White">> </asp:RequiredFieldValidator>
<asp:RequiredFieldValidator ID="RV7" runat="server" ControlToValidate="txtUsername" ErrorMessage="Benutzername fehlt" ForeColor="White">> </asp:RequiredFieldValidator>
<asp:RequiredFieldValidator ID="RV8" runat="server" ControlToValidate="txtNatel" ErrorMessage="Natel-Nummer fehlt" ForeColor="White">> </asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ID="Eegex1" runat="server" ErrorMessage="E-Mail-Adresse ungültig" ForeColor="White" ControlToValidate="txtEmail" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*">*</asp:RegularExpressionValidator>
<%--<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ErrorMessage="E-Mail-Adresse ungültig" ForeColor="White" ControlToValidate="txtEmail" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*">*</asp:RegularExpressionValidator> --%>
<asp:RegularExpressionValidator ID="Regex2" runat="server" controlToValidate="txtPasswort1" ErrorMessage="Passwort muss 4-12 Zeichen beinhalten" ValidationExpression="[^\s]{4,12}" ForeColor="White"/>
<asp:RegularExpressionValidator ID="RegexTel" runat="server" controlToValidate="txttelefon" ErrorMessage="Telefon-Nummer ist ungültig. Bitte im Format +41 44 813 12 12 eingeben." ValidationExpression="^(\+?)(\d{2,4})(\s?)(\-?)((\(0\))?)(\s?)(\d{2})(\s?)(\-?)(\d{3})(\s?)(\-?)(\d{2})(\s?)(\-?)(\d{2})" ForeColor="White"/>
<asp:RegularExpressionValidator ID="RegexNatel" runat="server" controlToValidate="txtNatel" ErrorMessage="Natel-Nummer ist ungültig. Bitte im Format +41 79 111 11 11 eingeben" ValidationExpression="^(\+?)(\d{2,4})(\s?)(\-?)((\(0\))?)(\s?)(\d{2})(\s?)(\-?)(\d{3})(\s?)(\-?)(\d{2})(\s?)(\-?)(\d{2})" ForeColor="White"/>
<asp:Panel ID="MainPanel" runat="server">
<table style="width:100%;">
<tr>
<td class="style2">
<asp:Label ID="Label3" runat="server" CssClass="riLabel1" Text="Anrede"
Width="115px"></asp:Label>
<telerik:RadComboBox ID="txtAnredea" Runat="server" Width="180px">
<Items>
<telerik:RadComboBoxItem Owner="txtAnredea" Text="Herr" Value="Herr" />
<telerik:RadComboBoxItem Owner="txtAnredea" Text="Frau" Value="Frau" />
</Items>
</telerik:RadComboBox>
</td>
<td>
&nbsp;</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style2">
<telerik:RadTextBox ID="txtName" Runat="server" Label="Name" LabelWidth="120px"
Width="300px">
</telerik:RadTextBox>
</td>
<td>
&nbsp;</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td colspan="2">
<telerik:RadTextBox ID="txtVorname" Runat="server" Label="Vorname"
LabelWidth="120px" Width="300px">
</telerik:RadTextBox>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td colspan="2">
<asp:Label ID="Label4" runat="server" CssClass="riLabel1" Text="Schulhaus"
Width="115px"></asp:Label>
<telerik:RadComboBox ID="RadComboBox1" Runat="server" Culture="de-DE"
Width="180px"
DataSourceID="SqlDataSource1" DataTextField="Bezeichnung"
DataValueField="SchulhausNr">
</telerik:RadComboBox>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td colspan="2">
<telerik:RadTextBox ID="txtTelefon" Runat="server" Label="Telefon"
LabelWidth="120px" Width="300px">
</telerik:RadTextBox>
<asp:Label id="lbltag" Text="tagsüber" CssClass="riLabel1" runat="server"></asp:Label>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td colspan="2">
<telerik:RadTextBox ID="txtNatel" Runat="server" Label="Natel"
LabelWidth="120px" Width="300px">
</telerik:RadTextBox>
<asp:Label id="Label2" Text="f&amp;#252;r R&amp;#252;ckfragen und Notf&amp;#228;lle" CssClass="riLabel1" runat="server"></asp:Label>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td colspan="2">
<telerik:RadTextBox ID="txtEMail" Runat="server" Label="E-Mail"
LabelWidth="120px" Width="300px" EmptyMessage="Gültige E-Mail-Adresse">
</telerik:RadTextBox>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style2">
&nbsp;</td>
<td valign="bottom">
&nbsp;</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style2">
<asp:Label ID="Label1" runat="server" style="font-weight: 700"
Text="Logindaten für die Registrierung"></asp:Label>
</td>
<td valign="bottom">
&nbsp;</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style2">
<telerik:RadTextBox ID="txtUserName" Runat="server" Label="Benutzer-Name"
LabelWidth="120px" Width="300px" EmptyMessage="[Benutzer-ID]">
</telerik:RadTextBox>
</td>
<td valign="bottom">
<asp:CustomValidator ID="CV1" runat="server" controltovalidate="txtUsername"
errormessage="Benutzername bereits vergeben" OnServerValidate="CheckID"
ForeColor="Red" />
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style2">
<telerik:RadTextBox ID="txtPasswort1" Runat="server" Label="Passwort"
LabelWidth="120px" Width="300px" TextMode="Password">
</telerik:RadTextBox>
</td>
<td valign="bottom">
<asp:RegularExpressionValidator ID="Regex3" runat="server" ControlToValidate="txtPasswort1"
ErrorMessage="Passwort muss ein Sonderzeichen @#$%^&amp;.*/ beinhalten"
ValidationExpression=".*[@#$%^&*/].*" ForeColor="Red" />
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style2">
<telerik:RadTextBox ID="txtPasswort2" Runat="server" Label="Passwort-Wiederh."
LabelWidth="120px" Width="300px" TextMode="Password">
</telerik:RadTextBox>
<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="txtpasswort2" ControlToCompare="txtPasswort1" ErrorMessage="Passworte nicht identisch" ForeColor="Red"></asp:CompareValidator>
</td>
<td valign="bottom">
&nbsp;</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style1" colspan="2">
<telerik:RadCaptcha ID="RadCaptcha1" Runat="server"
ErrorMessage="Sicherheitscode fehlt oder ist ungültig"
CaptchaTextBoxLabel="Sicherheitscode aus dem Bild eingeben" >
</telerik:RadCaptcha>
</td>
<td>
&nbsp;</td>
</tr>
</table>
</asp:Panel>
<telerik:RadButton ID="btnRegister" runat="server" Text="Registrieren">
</telerik:RadButton>
</p>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [SchulhausNr], [Bezeichnung] FROM [Schulhaus] where aktiv=1 ORDER BY [Sort]">
</asp:SqlDataSource>
</form>
</body>
</html>

384
LPWeb20/Lehrer/LehrerRegister.aspx.designer.vb generated Normal file
View File

@@ -0,0 +1,384 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class LehrerRegister
'''<summary>
'''Head1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
'''<summary>
'''form1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
'''<summary>
'''ScriptManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents ScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
'''<summary>
'''RadAjaxManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadAjaxManager1 As Global.Telerik.Web.UI.RadAjaxManager
'''<summary>
'''RadAjaxLoadingPanel1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadAjaxLoadingPanel1 As Global.Telerik.Web.UI.RadAjaxLoadingPanel
'''<summary>
'''Header1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Header1 As Global.LPWeb.Header1
'''<summary>
'''Menu1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Menu1 As Global.LPWeb.Menu1
'''<summary>
'''ValidationSummary1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents ValidationSummary1 As Global.System.Web.UI.WebControls.ValidationSummary
'''<summary>
'''RV11-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RV11 As Global.System.Web.UI.WebControls.RequiredFieldValidator
'''<summary>
'''RV2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RV2 As Global.System.Web.UI.WebControls.RequiredFieldValidator
'''<summary>
'''RV5-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RV5 As Global.System.Web.UI.WebControls.RequiredFieldValidator
'''<summary>
'''RV6-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RV6 As Global.System.Web.UI.WebControls.RequiredFieldValidator
'''<summary>
'''RV7-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RV7 As Global.System.Web.UI.WebControls.RequiredFieldValidator
'''<summary>
'''RV8-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RV8 As Global.System.Web.UI.WebControls.RequiredFieldValidator
'''<summary>
'''Eegex1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Eegex1 As Global.System.Web.UI.WebControls.RegularExpressionValidator
'''<summary>
'''Regex2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Regex2 As Global.System.Web.UI.WebControls.RegularExpressionValidator
'''<summary>
'''RegexTel-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RegexTel As Global.System.Web.UI.WebControls.RegularExpressionValidator
'''<summary>
'''RegexNatel-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RegexNatel As Global.System.Web.UI.WebControls.RegularExpressionValidator
'''<summary>
'''MainPanel-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents MainPanel As Global.System.Web.UI.WebControls.Panel
'''<summary>
'''Label3-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Label3 As Global.System.Web.UI.WebControls.Label
'''<summary>
'''txtAnredea-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtAnredea As Global.Telerik.Web.UI.RadComboBox
'''<summary>
'''txtName-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtName As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''txtVorname-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtVorname As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''Label4-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Label4 As Global.System.Web.UI.WebControls.Label
'''<summary>
'''RadComboBox1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadComboBox1 As Global.Telerik.Web.UI.RadComboBox
'''<summary>
'''txtTelefon-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtTelefon As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''lbltag-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents lbltag As Global.System.Web.UI.WebControls.Label
'''<summary>
'''txtNatel-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtNatel As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''Label2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Label2 As Global.System.Web.UI.WebControls.Label
'''<summary>
'''txtEMail-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtEMail As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''Label1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Label1 As Global.System.Web.UI.WebControls.Label
'''<summary>
'''txtUserName-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtUserName As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''CV1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents CV1 As Global.System.Web.UI.WebControls.CustomValidator
'''<summary>
'''txtPasswort1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtPasswort1 As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''Regex3-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Regex3 As Global.System.Web.UI.WebControls.RegularExpressionValidator
'''<summary>
'''txtPasswort2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtPasswort2 As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''CompareValidator1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents CompareValidator1 As Global.System.Web.UI.WebControls.CompareValidator
'''<summary>
'''RadCaptcha1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadCaptcha1 As Global.Telerik.Web.UI.RadCaptcha
'''<summary>
'''btnRegister-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents btnRegister As Global.Telerik.Web.UI.RadButton
'''<summary>
'''Footer1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Footer1 As Global.LPWeb.Footer
'''<summary>
'''SqlDataSource1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSource1 As Global.System.Web.UI.WebControls.SqlDataSource
End Class

74
LPWeb20/Lehrer/LehrerRegister.aspx.vb Normal file
View File

@@ -0,0 +1,74 @@
Imports System.IO
Imports System.IO.Compression
Imports System.Web.Configuration
Public Class LehrerRegister
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.txtAnredea.Focus()
Me.Form.DefaultButton = Me.btnRegister.UniqueID
End Sub
Protected Sub btnRegister_Click(sender As Object, e As EventArgs) Handles btnRegister.Click
If Not Page.IsValid Then Exit Sub
Dim dh As New clsDatahandling
Dim dbkey As Integer
If dh.Insert_Lehrer(dbkey) = True Then
dh.UpdateTable("web_lehrer", "Anrede", Me.txtAnredea.SelectedValue, True, "lehrernr", dbkey)
dh.UpdateTable("web_lehrer", "Name", Me.txtName.Text, True, "lehrernr", dbkey)
dh.UpdateTable("web_lehrer", "Vorname", Me.txtVorname.Text, True, "lehrernr", dbkey)
dh.UpdateTable("web_lehrer", "Schulhausnr", Me.RadComboBox1.SelectedValue, False, "lehrernr", dbkey)
dh.UpdateTable("web_lehrer", "natel", Me.txtNatel.Text, True, "lehrernr", dbkey)
dh.UpdateTable("web_lehrer", "Telefon", Me.txtTelefon.Text, True, "lehrernr", dbkey)
dh.UpdateTable("web_lehrer", "EMail", Me.txtEMail.Text, True, "lehrernr", dbkey)
'dh.UpdateTable("web_lehrer", "Briefanrede", Me.txtBriefanrede.Text, True, "lehrernr", dbkey)
End If
dh.Insert_Web_User(Me.txtUserName.Text, Me.txtPasswort1.Text, 3, 0, dbkey)
Dim userkey As Integer = dh.Get_LastKey("Web_User", "Eintragnr") - 1
Dim KeyGen As RandomKeyGenerator
Dim NumKeys As Integer
Dim RandomKey As String
NumKeys = 1
KeyGen = New RandomKeyGenerator
KeyGen.KeyLetters = "abcdefghijklmnopqrstuvwxyz"
KeyGen.KeyNumbers = "0123456789"
KeyGen.KeyChars = 46
RandomKey = KeyGen.Generate()
dh.UpdateTable("Web_User", "VerifyString", RandomKey, True, "Eintragnr", userkey)
dh.UpdateTable("Web_User", "EMail", Me.txtEMail.Text, True, "Eintragnr", userkey)
Dim mds As New DataSet
mds = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=1", False, True)
Dim inhalt As String = mds.Tables(0).Rows(0).Item("Inhalt")
inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
inhalt = inhalt.Replace("[RegisterLink]", WebConfigurationManager.AppSettings("WebSite") + "/user/" + "RegisterBestaetigung.aspx?fnkt=Aktivierung&Code=" + RandomKey)
Dim mailer As New clsSendMail
mailer.SendMailMessage("", Me.txtEMail.Text, "", "", mds.Tables(0).Rows(0).Item("Betreff").ToString, inhalt)
Response.Redirect("~/user/Registerbestaetigung.aspx?fnkt=Bestaetigung")
End Sub
Public Function Check_Userid(source As Object, args As ServerValidateEventArgs)
Dim dh As New clsDatahandling
Dim ds As New DataSet
ds = dh.Get_Tabledata("Select * from web_user where Username='" + Me.txtUserName.Text + "'", False, True)
If ds.Tables(0).Rows.Count > 0 Then
args.IsValid = False
Else
args.IsValid = True
End If
End Function
Public Function Check_Captcha(source As Object, args As ServerValidateEventArgs)
If Me.RadCaptcha1.IsValid = False Then
args.IsValid = False
Else
args.IsValid = True
End If
End Function
End Class

84
LPWeb20/Lehrer/Lehrerreport.aspx Normal file
View File

@@ -0,0 +1,84 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Lehrerreport.aspx.vb" Inherits="LPWeb.Lehrerreport" %>
<%@ Register Src="~/Defaults/Header.ascx" TagPrefix="shu" TagName="Header" %>
<%@ Register Src="~/UserControls/Menu1.ascx" TagPrefix="shu" TagName="Menu" %>
<%@ Register Src="~/Defaults/Footer.ascx" TagPrefix="shu" TagName="Footer" %>
<%@ Register assembly="FastReport.Web, Version=2013.2.2.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c" namespace="FastReport.Web" tagprefix="cc1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title></title>
<link href="~/Styles/Site.css" rel="stylesheet" type="text/css" />
<style type="text/css">
.style1
{
}
</style>
</head>
<body>
<form id="form1" runat="server">
<telerik:RadScriptManager ID="ScriptManager1" runat="server"
EnableTheming="True">
<scripts>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.Core.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQuery.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQueryInclude.js">
</asp:ScriptReference>
</scripts>
</telerik:RadScriptManager>
<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">
<AjaxSettings>
<telerik:AjaxSetting AjaxControlID="RadTreeView1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="WebReport1"
LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="lblerrormessage" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server" >
</telerik:RadAjaxLoadingPanel>
<div class="page">
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>Auswertung</h2>
<p>
&nbsp;<table>
<tr>
<td valign="top" class="style1">
<cc1:WebReport ID="WebReport1" runat="server"
Width="800px" BorderStyle="Solid" BorderWidth="1px" PdfAuthor="LPWEB"
PdfEmbeddingFonts="False" PdfProducer="FastReport" ShowExports="True"
ShowOdsExport="False" ShowOdtExport="False" ShowPdfExport="True" ShowDbfExport="false" ShowExcel2007Export="False" ShowMhtExport="false"
ShowPowerPoint2007Export="False" ShowRtfExport="False" ShowTextExport="False"
ShowWord2007Export="False" ShowXmlExcelExport="False" ShowXpsExport="False" ToolbarStyle="Small" />
</td>
</tr>
</table>
&nbsp;<telerik:RadButton ID="RadButton1" runat="server" Text="Zurück">
</telerik:RadButton>
</p>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [ID], [ParentID], [Bezeichnung] FROM [Web_Report] where aktiv=1">
</asp:SqlDataSource>
</form>
</body>
</html>

123
LPWeb20/Lehrer/Lehrerreport.aspx.designer.vb generated Normal file
View File

@@ -0,0 +1,123 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class Lehrerreport
'''<summary>
'''Head1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
'''<summary>
'''form1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
'''<summary>
'''ScriptManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents ScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
'''<summary>
'''RadAjaxManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadAjaxManager1 As Global.Telerik.Web.UI.RadAjaxManager
'''<summary>
'''RadAjaxLoadingPanel1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadAjaxLoadingPanel1 As Global.Telerik.Web.UI.RadAjaxLoadingPanel
'''<summary>
'''Header1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Header1 As Global.LPWeb.Header
'''<summary>
'''Menu1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Menu1 As Global.LPWeb.Menu1
'''<summary>
'''Panel1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Panel1 As Global.System.Web.UI.WebControls.Panel
'''<summary>
'''WebReport1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents WebReport1 As Global.FastReport.Web.WebReport
'''<summary>
'''RadButton1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadButton1 As Global.Telerik.Web.UI.RadButton
'''<summary>
'''Footer1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Footer1 As Global.LPWeb.Footer
'''<summary>
'''SqlDataSource1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSource1 As Global.System.Web.UI.WebControls.SqlDataSource
End Class

101
LPWeb20/Lehrer/Lehrerreport.aspx.vb Normal file
View File

@@ -0,0 +1,101 @@
Imports System.Web.Configuration
Public Class Lehrerreport
Inherits System.Web.UI.Page
Private Sub Webreport_InitComplete(sender As Object, e As System.EventArgs) Handles Me.InitComplete
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Try
Dim reportnr As String = WebConfigurationManager.AppSettings("ReportLehrer")
Dim dh As New clsDatahandling
Dim ds As New DataSet
ds = dh.Get_Tabledata("Select * from web_report where id=" + reportnr, False, True)
show_report(ds.Tables(0).Rows(0).Item("SQL"), ds.Tables(0).Rows(0).Item("SQLType"), ds.Tables(0).Rows(0).Item("Reportdatei"), ds.Tables(0).Rows(0).Item("Dokumentnr").ToString)
show_report(ds.Tables(0).Rows(0).Item("SQL"), ds.Tables(0).Rows(0).Item("SQLType"), ds.Tables(0).Rows(0).Item("Reportdatei"), ds.Tables(0).Rows(0).Item("Dokumentnr").ToString)
Me.WebReport1.Visible = True
Me.WebReport1.Zoom = 1
Catch
End Try
'show_report("Berufsliste", "SP", "Berufsliste.frx")
End If
End Sub
Sub Open_Report(ByVal reportnr As Integer)
Dim url As String = Server.MapPath("/default.aspx")
Response.Write("<SCRIPT LANGUAGE='JavaScript'>window.open('" + url + "', '_blank');</SCRIPT>")
'HttpContext.Current.Response.Write("<SCRIPT LANGUAGE='JavaScript'>window.open('" + url + "', '_blank');</SCRIPT>")
Exit Sub
'Page.ClientScript.RegisterStartupScript(Me.RadTreeView1.GetType.GetType, "New Windows", "window.open('" + url + "','','')", True)
Page.ClientScript.RegisterClientScriptBlock(Me.GetType, "New windows", "window.open('" + url + "','baba','')", True)
End Sub
Sub show_report(ByVal sql As String, ByVal sqltype As String, ByVal filename As String, dokumentnr As String)
Try
If dokumentnr <> "" Then
If dokumentnr <> "-1" Then sql = sql.Replace("%DOKNR%", dokumentnr)
End If
Dim ds1 As New DataSet
Dim ds As New DataSet
Dim dh As New clsDatahandling
'ds = dh.Get_Tabledata("Select * from lehrerdaten where lehrernr=" + Session("Lehrer").ToString, False, True)
ds = dh.Get_Tabledata("Exec sp_lehrerdaten " + Session("Lehrer").ToString, False, True)
'If sqltype = "SP" Then
' ds = dh.Get_Tabledata(sql, True, False)
'Else
' If sqltype = "SQL" Then
' ds = dh.Get_Tabledata(sql, False, True)
' Else
' ds = dh.Get_Tabledata(sql, False, False)
' End If
'End If
Me.WebReport1.Prepare()
Me.WebReport1.ReportFile = "~/Reporting/" + filename
Me.WebReport1.DataBind()
Dim x As FastReport.Report = WebReport1.Report
x.RegisterData(ds)
Catch ex As Exception
End Try
End Sub
Private Sub WebReport1_StartReport(sender As Object, e As System.EventArgs) Handles WebReport1.StartReport
Dim dh As New clsDatahandling
Me.WebReport1.Report.SetParameterValue("Parcours", dh.Get_Option(2))
Me.WebReport1.Report.SetParameterValue("Spruch", dh.Get_Option(3))
Me.WebReport1.Report.SetParameterValue("URL", dh.Get_Option(27))
' Me.WebReport1.Report.SetParameterValue("URL", "..\bilder\reportlogo.jpg")
End Sub
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
Response.Redirect("~/lehrer/schueler.aspx")
End Sub
'Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton2.Click
' Me.WebReport1.Prepare()
' Me.WebReport1.Prepare()
' Dim exp As New FastReport.Export.Pdf.PDFExport
' Dim fn As String = Server.MapPath("~/Reporting/") + System.IO.Path.GetRandomFileName + ".pdf"
' Me.WebReport1.Report.Export(exp, fn)
' Dim downloadfile As New System.IO.FileInfo(fn)
' HttpContext.Current.Response.Clear()
' HttpContext.Current.Response.AddHeader("Content-Disposition", String.Format("attachment; filename={0}", downloadfile.Name))
' HttpContext.Current.Response.AddHeader("Content-Length", downloadfile.Length.ToString())
' HttpContext.Current.Response.ContentType = "application/octet-stream"
' HttpContext.Current.Response.WriteFile(downloadfile.FullName)
' HttpContext.Current.Response.End()
'End Sub
End Class

560
LPWeb20/Lehrer/Schueler.aspx Normal file
View File

@@ -0,0 +1,560 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Schueler.aspx.vb" Inherits="LPWeb.Schueler" %>
<%@ Register Src="~/Defaults/Header.ascx" TagPrefix="shu" TagName="Header" %>
<%@ Register Src="~/UserControls/Menu1.ascx" TagPrefix="shu" TagName="Menu" %>
<%@ Register Src="~/Defaults/Footer.ascx" TagPrefix="shu" TagName="Footer" %>
<%@ Register TagPrefix="telerik" Namespace="Telerik.Web.UI" Assembly="Telerik.Web.UI" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="ajaxToolkit" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title></title>
<link href="~/Styles/Site.css" rel="stylesheet" type="text/css" />
<style type="text/css">
.style3
{
height: 111px;
}
.style4
{
width: 256px;
}
.style5
{
}
.style6
{
width: 78px;
}
.style8
{
width: 130px;
}
.style9
{
box-sizing: border-box;
-moz-box-sizing: border-box;
-ms-box-sizing: border-box;
-webkit-box-sizing: border-box;
-khtml-box-sizing: border-box;
width: 130px;
}
.auto-style4 {
height: 25px;
}
.auto-style5 {
width: 256px;
height: 25px;
}
</style>
<script type="text/javascript" id="telerikClientEvents1">
//<![CDATA[
function alertCallBackFn(arg) {
window.location = "../Firmen/Firmendaten1.aspx?Tab=3"
//radalert("<strong>radalert</strong> returned the following result: <h3 style='color: #ff0000;'>" + arg + "</h3>", null, null, "Result");
}
function alertCallBackFnError(arg) {
//window.location = "../Firmen/Firmendaten1.aspx?Tab=3"
//radalert("<strong>radalert</strong> returned the following result: <h3 style='color: #ff0000;'>" + arg + "</h3>", null, null, "Result");
}
//]]>
</script>
</head>
<body>
<script type="text/javascript">
function ConfirmCallBackFn(arg) {
var ajaxManager = $find("<%=RadAjaxManager1.ClientID%>");
if (arg) {
ajaxManager.ajaxRequest('ok');
}
else {
ajaxManager.ajaxRequest('cancel');
}
}
function ConfirmCallBackFn1(arg) {
var ajaxManager = $find("<%=RadAjaxManager1.ClientID%>");
if (arg) {
ajaxManager.ajaxRequest('neu');
}
else {
ajaxManager.ajaxRequest('save');
}
}
function pageLoad() {
var list = $find("<%=RadListBox1.ClientID %>");
var item = list.get_selectedItem();
try {
if (item == null) {
var items = list.get_items();
item = items.getItem(0);
item.set_selected(true);
}
item.scrollIntoView();
}
catch (err) { };
}
</script>
<form id="form1" runat="server" method="post">
<telerik:RadScriptManager ID="ScriptManager1" runat="server"
EnableTheming="True">
<scripts>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.Core.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQuery.js">
</asp:ScriptReference>
<asp:ScriptReference Assembly="Telerik.Web.UI"
Name="Telerik.Web.UI.Common.jQueryInclude.js">
</asp:ScriptReference>
</scripts>
</telerik:RadScriptManager>
<telerik:RadCodeBlock ID="RadCodeBlock1" runat="server">
<script type="text/javascript">
// this method is invoked from the flash animation
function InitiateAsyncRequest(argument) {
var ajaxManager = $find("<%= RadAjaxManager1.ClientID %>");
ajaxManager.ajaxRequest(argument);
return false;
}
function RefreshDescription(sender, eventArgs) {
var ajaxManager = $find("<%= RadAjaxManager1.ClientID %>");
//ajaxManager.ajaxRequest(sender.get_selectedItem().get_value())
ajaxManager.ajaxRequestWithTarget("<%= RadListBox1.UniqueID %>", sender.get_selectedItem().get_text());
//alert(sender.get_selectedItem().get_value())
}
function RefreshKlasse(sender, eventArgs) {
var ajaxManager = $find("<%= RadAjaxManager1.ClientID %>");
//ajaxManager.ajaxRequest(sender.get_selectedItem().get_value())
ajaxManager.ajaxRequestWithTarget("<%= RadComboBox1.UniqueID %>", sender.get_selectedItem().get_text());
//alert(sender.get_selectedItem().get_value())
}
</script>
</telerik:RadCodeBlock>
<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">
<AjaxSettings>
<telerik:AjaxSetting AjaxControlID="RadAjaxManager1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="Panel1" LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Panel2" LoadingPanelID="RadAjaxLoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadComboBox1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="Panel1"
LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Panel2"
LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Panel4"
LoadingPanelID="RadAjaxLoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadListBox1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="lblklassestatus" />
<telerik:AjaxUpdatedControl ControlID="Panel2"
LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Panel3" />
<telerik:AjaxUpdatedControl ControlID="lblschuelerstatus" />
<telerik:AjaxUpdatedControl ControlID="Panel4"
LoadingPanelID="RadAjaxLoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="chkAlleSchuler">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="Panel1"
LoadingPanelID="RadAjaxLoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadButton3">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="lblklassestatus" />
<telerik:AjaxUpdatedControl ControlID="RadListBox1" />
<telerik:AjaxUpdatedControl ControlID="Panel3" />
<telerik:AjaxUpdatedControl ControlID="lblschuelerstatus" />
<telerik:AjaxUpdatedControl ControlID="RadGridSchuelerberuf" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="btnneuerschueler">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="lblklassestatus" />
<telerik:AjaxUpdatedControl ControlID="RadListBox1"
LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Panel2"
LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Panel3" />
<telerik:AjaxUpdatedControl ControlID="lblschuelerstatus" />
<telerik:AjaxUpdatedControl ControlID="Panel4"
LoadingPanelID="RadAjaxLoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadButton1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="Panel1"
LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Panel3" />
<telerik:AjaxUpdatedControl ControlID="lblschuelerstatus" />
<telerik:AjaxUpdatedControl ControlID="RadGridSchuelerberuf" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="cbBeruf">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="txtBerufnr" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="btnInsertBeruf">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadWindowManager1" />
<telerik:AjaxUpdatedControl ControlID="RadListBox1" />
<telerik:AjaxUpdatedControl ControlID="cbKlassentyp" />
<telerik:AjaxUpdatedControl ControlID="Panel3" LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="lblschuelerstatus" />
<telerik:AjaxUpdatedControl ControlID="Panel4" LoadingPanelID="RadAjaxLoadingPanel1" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadGridSchuelerberuf">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadListBox1" />
<telerik:AjaxUpdatedControl ControlID="cbKlassentyp" UpdatePanelCssClass="" />
<telerik:AjaxUpdatedControl ControlID="lblschuelerstatus" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server" >
</telerik:RadAjaxLoadingPanel>
<telerik:RadWindowManager ID="RadWindowManager1" ShowContentDuringLoad="false" VisibleStatusbar="false"
ReloadOnShow="true" runat="server" EnableShadow="true" Skin="Default">
<Windows>
<telerik:RadWindow ID="RadWindow1" runat="server" Behaviors="Close"
NavigateUrl="~/UserControls/Dialogbox.aspx">
</telerik:RadWindow>
</Windows>
</telerik:RadWindowManager>
<div class="page">
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>Schüler</h2>
<p>
<table style="width:100%;">
<tr>
<td valign="top" >
<asp:Panel ID="Panel1" runat="server" BorderStyle="None"
height="412px" width="200px" BorderWidth="1px">
<telerik:RadComboBox ID="RadComboBox1" Runat="server"
Culture="de-DE" DataSourceID="SqlDataSource1"
DataTextField="Bezeichnung" DataValueField="KlasseNr" Width="140px" Label="Klasse"
OnClientSelectedIndexChanged="RefreshKlasse">
</telerik:RadComboBox>
<br />
<asp:Label ID="lblklassestatus" runat="server" Text=""></asp:Label>
<br />
<telerik:RadListBox ID="RadListBox1" runat="server" Culture="de-DE"
DataSourceID="SqlDataSource2" DataTextField="Schuelername"
DataValueField="Schuelernr" Height="300px"
Width="198px" OnClientSelectedIndexChanged="RefreshDescription"
>
</telerik:RadListBox>
<asp:CheckBox ID="chkAlleSchuler" runat="server" AutoPostBack="True"
Text="Alle Schüler" />
</asp:Panel>
</td>
<td valign="top" class="style3">
<asp:Panel ID="Panel2" runat="server" height="111px" BackColor="#CCE6FF">
<table style="width:100%; height: 85px;">
<tr>
<td class="auto-style4">
<strong>Schüler</strong></td>
<td class="auto-style4">
</td>
<td class="auto-style5">
<telerik:RadTextBox ID="txtname" Runat="server" Label="Name" LabelWidth="80px"
Width="220px" TabIndex="1">
</telerik:RadTextBox>
</td>
<td class="auto-style4">
<telerik:RadComboBox ID="cbklasse" Runat="server" Culture="de-DE"
DataSourceID="SqlDataSource1" DataTextField="Bezeichnung"
DataValueField="KlasseNr" Label="Klasse&nbsp;" LabelCssClass="riLabel"
Width="140px" TabIndex="4">
</telerik:RadComboBox>
</td>
<td class="auto-style4">
<telerik:RadButton ID="RadButton3" runat="server" Text="Schüler löschen"
Width="90px">
</telerik:RadButton>
</td>
</tr>
<tr>
<td>
<telerik:RadButton ID="btnneuerschueler" runat="server" Text="Neu"
TabIndex="-1">
</telerik:RadButton>
</td>
<td class="riLabel">
&nbsp;</td>
<td class="style4">
<telerik:RadTextBox ID="txtvorname" Runat="server" Label="Vorname"
LabelWidth="80px" Width="220px" TabIndex="2">
</telerik:RadTextBox>
</td>
<td>
<telerik:RadComboBox ID="cbKlassentyp" Runat="server" Culture="de-DE"
DataSourceID="SqlDataSource4" DataTextField="bezeichnung"
DataValueField="klassenr" Label="Stufe&nbsp;&nbsp;&nbsp;"
Width="140px" TabIndex="5">
</telerik:RadComboBox>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="riLabel">
&nbsp;</td>
<td class="riLabel">
&nbsp;</td>
<td class="style5">
<telerik:RadTextBox ID="txtBemerkung" Runat="server" Label="Bemerk."
LabelWidth="80px" Width="220px" TabIndex="3">
</telerik:RadTextBox>
</td>
<td colspan="2">
<asp:CheckBox ID="chkaktiv" runat="server" Text="Aktiv" TextAlign="Left"
TabIndex="6" Visible="False" />
</td>
</tr>
<tr>
<td class="riLabel" align="center" colspan="5">
<telerik:RadButton ID="RadButton1" runat="server" TabIndex="7"
Text="Schülerdaten speichern">
</telerik:RadButton>
</td>
</tr>
</table>
</asp:Panel>
<br />
<asp:Panel id="Panel3" runat="server" Height="83px" BackColor="#EEEEEE">
<table style="width:100%;">
<tr>
<td class="style6">
<strong>Berufe</strong></td>
<td class="style8">
<asp:Label ID="Label1" runat="server" CssClass="riLabel" Text="Beruf"></asp:Label>
&nbsp;wählen oder</td>
<td class="style4">
<telerik:RadComboBox ID="cbBeruf" Runat="server" Culture="de-DE"
DataSourceID="SqlDataSource3" DataTextField="bezeichnung"
DataValueField="Berufnr" LabelCssClass="riLabel" Width="300px"
TabIndex="8">
</telerik:RadComboBox>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="style6">
&nbsp;</td>
<td class="style9">
<asp:Label ID="Label2" runat="server" CssClass="riLabel" Text="Berufs-Nr"></asp:Label>
&nbsp;eingeben</td>
<td class="style4">
<telerik:RadTextBox ID="txtBerufnr" Runat="server" TabIndex="9">
</telerik:RadTextBox>
</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td class="riLabel" style="width: 78px">
&nbsp;</td>
<td class="riLabel" colspan="3">
<telerik:RadButton ID="btnInsertBeruf" runat="server"
Text="Berufswahl einfügen" TabIndex="10">
</telerik:RadButton>
</td>
</tr>
</table>
</asp:Panel>
<br />
<asp:Label ID="lblschuelerstatus" runat="server" Text=""></asp:Label>
<asp:Panel ID="Panel4" runat="server" Height="180px">
<telerik:RadGrid ID="RadGridSchuelerberuf" runat="server" AutoGenerateColumns="False"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSource5"
GridLines="None" AllowAutomaticDeletes="True"
AllowAutomaticUpdates="True" AllowPaging="True" AllowSorting="True" PageSize="5">
<MasterTableView DataSourceID="SqlDataSource5" CommandItemDisplay="Top"
TableLayout="Fixed" DataKeyNames="SchuelerBerufNr" NoMasterRecordsText="Keine Daten vorhanden"
EditMode="PopUp">
<CommandItemSettings ExportToPdfText="PDF-Export"
ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren" AddNewRecordText="" ShowAddNewRecordButton="False">
</CommandItemSettings>
<RowIndicatorColumn Visible="True"
FilterControlAltText="Filter RowIndicator column">
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True"
FilterControlAltText="Filter ExpandColumn column">
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="SchuelerBerufNr" DataType="System.Int32"
FilterControlAltText="Filter SchuelerBerufNr column"
HeaderText="SchuelerBerufNr" ReadOnly="True" SortExpression="SchuelerBerufNr"
UniqueName="SchuelerBerufNr" Visible="False" >
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="SchuelerNr" DataType="System.Int32"
FilterControlAltText="Filter SchuelerNr column" HeaderText="SchuelerNr"
SortExpression="SchuelerNr" UniqueName="SchuelerNr" Visible="False" ReadOnly="true">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="BerufNr" DataType="System.Int32"
FilterControlAltText="Filter BerufNr column" HeaderText="Berufs-Nr"
SortExpression="BerufNr" UniqueName="BerufNr" Visible="true" ReadOnly="true">
<HeaderStyle Width="90px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Beruf"
FilterControlAltText="Filter Beruf column" HeaderText="Beruf"
SortExpression="Beruf" UniqueName="Beruf" ReadOnly="true">
<HeaderStyle Width="200px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Bemerkung"
FilterControlAltText="Filter Bemerkung column" HeaderText="Bemerkung"
SortExpression="Bemerkung" UniqueName="Bemerkung">
<HeaderStyle Width="200px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridCheckBoxColumn DataField="Aktiv" DataType="System.Boolean"
FilterControlAltText="Filter Aktiv column" HeaderText="Aktiv"
SortExpression="Aktiv" UniqueName="Aktiv" Visible="False" ReadOnly="true">
</telerik:GridCheckBoxColumn>
<telerik:GridBoundColumn DataField="Erstellt_am" DataType="System.DateTime"
FilterControlAltText="Filter Erstellt_am column" HeaderText="Erstellt_am"
SortExpression="Erstellt_am" UniqueName="Erstellt_am" Visible="False" ReadOnly="true">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Mutiert_am" DataType="System.DateTime"
FilterControlAltText="Filter Mutiert_am column" HeaderText="Mutiert_am"
SortExpression="Mutiert_am" UniqueName="Mutiert_am" Visible="False" ReadOnly="true">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Mutierer" DataType="System.Int32"
FilterControlAltText="Filter Mutierer column" HeaderText="Mutierer"
SortExpression="Mutierer" UniqueName="Mutierer" Visible="False" ReadOnly="true">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Prioritaet" DataType="System.Int32"
FilterControlAltText="Filter Prioritaet column" HeaderText="Priorität"
SortExpression="Prioritaet" UniqueName="Prioritaet">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridEditCommandColumn FilterControlAltText="Filter EditCommandColumn column"
HeaderText="" ButtonType="ImageButton" ItemStyle-HorizontalAlign="Center">
<HeaderStyle Width="40px" />
<ItemStyle HorizontalAlign="Center"></ItemStyle>
</telerik:GridEditCommandColumn>
<telerik:GridButtonColumn ConfirmText="Berufswahl wirklich löschen?" ConfirmDialogType="RadWindow"
ConfirmTitle="Delete" ButtonType="ImageButton" CommandName="Delete" Text="Delete" HeaderText=""
UniqueName="DeleteColumn" ItemStyle-HorizontalAlign="Center">
<ItemStyle HorizontalAlign="Center" CssClass="MyImageButton" />
<HeaderStyle Width="40px" />
</telerik:GridButtonColumn>
</Columns>
<EditFormSettings>
<EditColumn ButtonType="ImageButton" CancelText="Abbruch"
FilterControlAltText="Filter EditCommandColumn column" InsertText="Einfügen"
UpdateText="Speichern">
</EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False">
</FilterMenu>
</telerik:RadGrid>
* Priorität: Priorität der Berufe, wie der Schüler diese gewählt hat.</asp:Panel>
</td>
</tr>
<tr>
<td valign="top">
<telerik:RadButton ID="RadButton2" runat="server" Text="&lt;- Zurück">
</telerik:RadButton>
<telerik:RadButton ID="RadButton4" runat="server" Text="Erfasste Daten drucken">
</telerik:RadButton>
</td>
</tr>
</table>
</p>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [KlasseNr], [Bezeichnung] FROM [Klasse] WHERE aktiv=1 and lehrernr=@lehrernr">
<SelectParameters>
<asp:SessionParameter Name="Lehrernr" Type="Int32" sessionfield="Lehrer" />
</SelectParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource2" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="select Schuelernr, name+' '+vorname as Schuelername from schueler where aktiv=1 and klassenr=@klassenr order by name, vorname">
<SelectParameters>
<asp:ControlParameter ControlID="RadComboBox1" DefaultValue="0" Name="klassenr"
PropertyName="SelectedValue" />
</SelectParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource3" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT distinct dbo.Beruf.Berufnr, dbo.Beruf.Bezeichnung, dbo.Beruf.KlasseNr FROM dbo.Beruf INNER JOIN dbo.FirmaBeruf ON dbo.Beruf.Berufnr = dbo.FirmaBeruf.Berufnr WHERE (dbo.Beruf.Aktiv = 1) AND (dbo.FirmaBeruf.Aktiv = 1) ORDER BY dbo.Beruf.Bezeichnung">
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource4" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [klassenr], [bezeichnung] FROM [web_klasse] where aktiv=1 and klassenr>0">
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource5" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT SchuelerBeruf.SchuelerBerufNr, SchuelerBeruf.SchuelerNr, SchuelerBeruf.BerufNr, SchuelerBeruf.Bemerkung, SchuelerBeruf.Aktiv, SchuelerBeruf.Erstellt_am,
SchuelerBeruf.Mutiert_am, SchuelerBeruf.Mutierer, SchuelerBeruf.Prioritaet, Beruf.Bezeichnung AS Beruf
FROM SchuelerBeruf INNER JOIN Beruf ON SchuelerBeruf.BerufNr = Beruf.Berufnr
WHERE schuelerberuf.aktiv=1 and Schuelerberuf.SchuelerNr = @Schuelernr"
DeleteCommand="Update schuelerberuf set aktiv=0, mutiert_am=getdate(), mutierer=@Mutierer where schuelerberufnr=@schuelerberufnr"
UpdateCommand="Update schuelerberuf set prioritaet=@prioritaet, bemerkung=@bemerkung, mutiert_am=getdate(), mutierer=@mutierer where schuelerberufnr=@schuelerberufnr">
<SelectParameters>
<asp:ControlParameter ControlID="RadListBox1" DefaultValue="0"
Name="SchuelerNr" PropertyName="SelectedValue" Type="Int32" />
</SelectParameters>
<DeleteParameters>
<asp:Parameter Name="Schuelerberufnr" Type="Int32" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
</DeleteParameters>
<UpdateParameters>
<asp:Parameter Name="Bemerkung" Type="String" />
<asp:Parameter Name="Prioritaet" Type="String" />
<asp:Parameter Name="Schuelerberufnr" Type="Int32" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
</UpdateParameters>
</asp:SqlDataSource>
</form>
</body>
</html>

393
LPWeb20/Lehrer/Schueler.aspx.designer.vb generated Normal file
View File

@@ -0,0 +1,393 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class Schueler
'''<summary>
'''Head1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
'''<summary>
'''form1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
'''<summary>
'''ScriptManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents ScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
'''<summary>
'''RadCodeBlock1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadCodeBlock1 As Global.Telerik.Web.UI.RadCodeBlock
'''<summary>
'''RadAjaxManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadAjaxManager1 As Global.Telerik.Web.UI.RadAjaxManager
'''<summary>
'''RadAjaxLoadingPanel1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadAjaxLoadingPanel1 As Global.Telerik.Web.UI.RadAjaxLoadingPanel
'''<summary>
'''RadWindowManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadWindowManager1 As Global.Telerik.Web.UI.RadWindowManager
'''<summary>
'''RadWindow1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadWindow1 As Global.Telerik.Web.UI.RadWindow
'''<summary>
'''Header1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Header1 As Global.LPWeb.Header
'''<summary>
'''Menu1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Menu1 As Global.LPWeb.Menu1
'''<summary>
'''Panel1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Panel1 As Global.System.Web.UI.WebControls.Panel
'''<summary>
'''RadComboBox1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadComboBox1 As Global.Telerik.Web.UI.RadComboBox
'''<summary>
'''lblklassestatus-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents lblklassestatus As Global.System.Web.UI.WebControls.Label
'''<summary>
'''RadListBox1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadListBox1 As Global.Telerik.Web.UI.RadListBox
'''<summary>
'''chkAlleSchuler-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents chkAlleSchuler As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''Panel2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Panel2 As Global.System.Web.UI.WebControls.Panel
'''<summary>
'''txtname-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtname As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''cbklasse-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents cbklasse As Global.Telerik.Web.UI.RadComboBox
'''<summary>
'''RadButton3-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadButton3 As Global.Telerik.Web.UI.RadButton
'''<summary>
'''btnneuerschueler-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents btnneuerschueler As Global.Telerik.Web.UI.RadButton
'''<summary>
'''txtvorname-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtvorname As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''cbKlassentyp-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents cbKlassentyp As Global.Telerik.Web.UI.RadComboBox
'''<summary>
'''txtBemerkung-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtBemerkung As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''chkaktiv-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents chkaktiv As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''RadButton1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadButton1 As Global.Telerik.Web.UI.RadButton
'''<summary>
'''Panel3-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Panel3 As Global.System.Web.UI.WebControls.Panel
'''<summary>
'''Label1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Label1 As Global.System.Web.UI.WebControls.Label
'''<summary>
'''cbBeruf-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents cbBeruf As Global.Telerik.Web.UI.RadComboBox
'''<summary>
'''Label2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Label2 As Global.System.Web.UI.WebControls.Label
'''<summary>
'''txtBerufnr-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtBerufnr As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''btnInsertBeruf-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents btnInsertBeruf As Global.Telerik.Web.UI.RadButton
'''<summary>
'''lblschuelerstatus-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents lblschuelerstatus As Global.System.Web.UI.WebControls.Label
'''<summary>
'''Panel4-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Panel4 As Global.System.Web.UI.WebControls.Panel
'''<summary>
'''RadGridSchuelerberuf-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadGridSchuelerberuf As Global.Telerik.Web.UI.RadGrid
'''<summary>
'''RadButton2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadButton2 As Global.Telerik.Web.UI.RadButton
'''<summary>
'''RadButton4-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadButton4 As Global.Telerik.Web.UI.RadButton
'''<summary>
'''Footer1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Footer1 As Global.LPWeb.Footer
'''<summary>
'''SqlDataSource1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSource1 As Global.System.Web.UI.WebControls.SqlDataSource
'''<summary>
'''SqlDataSource2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSource2 As Global.System.Web.UI.WebControls.SqlDataSource
'''<summary>
'''SqlDataSource3-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSource3 As Global.System.Web.UI.WebControls.SqlDataSource
'''<summary>
'''SqlDataSource4-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSource4 As Global.System.Web.UI.WebControls.SqlDataSource
'''<summary>
'''SqlDataSource5-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSource5 As Global.System.Web.UI.WebControls.SqlDataSource
End Class

442
LPWeb20/Lehrer/Schueler.aspx.vb Normal file
View File

@@ -0,0 +1,442 @@
Imports System.Web.UI.WebControls
Imports System.Web.Configuration
Imports Telerik.Web.UI
Imports System.Data.SqlClient
Imports System.Configuration
Imports Telerik.Web.UI.RadWebControl
Public Class Schueler
Inherits System.Web.UI.Page
Dim schuelerstatus1 As Integer = 0
Private Sub Schueler_InitComplete(sender As Object, e As System.EventArgs) Handles Me.InitComplete
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Me.chkAlleSchuler.Checked = False
Me.chkAlleSchuler.Visible = False
End If
If Session.Item("Admin") = "True" Then
Load_Admin()
Else
'Session("Lehrer") = 80
End If
Me.lblklassestatus.Text = ""
Me.Form.DefaultButton = Me.btnInsertBeruf.UniqueID
RadWindowManager1.Windows.Clear()
If Me.RadListBox1.Items.Count < 1 Then
Me.txtname.Enabled = False
Me.txtvorname.Enabled = False
Me.txtBemerkung.Enabled = False
Me.RadButton3.Enabled = False
Me.RadButton1.Enabled = False
Me.Panel3.Enabled = False
Me.RadGridSchuelerberuf.Enabled = False
End If
End Sub
Protected Sub Load_Admin()
Me.SqlDataSource1.SelectCommand = "SELECT [KlasseNr], [Bezeichnung] FROM [Klasse] WHERE aktiv=1"
Me.chkAlleSchuler.Visible = True
End Sub
Protected Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles RadComboBox1.SelectedIndexChanged
Me.RadListBox1.DataBind()
Try
Me.RadListBox1.SelectedIndex = 0
refresh_data(Me.RadListBox1.SelectedValue)
Update_Klassen_Status()
Catch ex As Exception
Me.txtname.Text = ""
Me.txtvorname.Text = ""
Me.txtBemerkung.Text = ""
Update_Klassen_Status()
End Try
End Sub
Private Sub refresh_data(ByVal schuelernr As Integer)
Dim dh As New clsDatahandling
Dim ds As New DataSet
ds = dh.Get_Tabledata("select * from schueler where schuelernr=" + schuelernr.ToString, False, True)
Me.txtname.Text = ds.Tables(0).Rows(0).Item("name")
Me.txtvorname.Text = ds.Tables(0).Rows(0).Item("vorname")
Me.txtbemerkung.Text = ds.Tables(0).Rows(0).Item("bemerkung").ToString
Me.chkaktiv.Checked = ds.Tables(0).Rows(0).Item("aktiv") = True
Me.cbklasse.SelectedValue = ds.Tables(0).Rows(0).Item("Klassenr")
Me.cbKlassentyp.SelectedValue = ds.Tables(0).Rows(0).Item("klassentyp")
Me.RadGridSchuelerberuf.DataBind()
If RadGridSchuelerberuf.MasterTableView.Items.Count > 0 Then Me.cbKlassentyp.Enabled = False Else Me.cbKlassentyp.Enabled = True
selectentry(schuelernr)
Me.txtname.Focus()
Me.txtname.Enabled = True
Me.txtvorname.Enabled = True
Me.txtBemerkung.Enabled = True
Me.RadButton3.Enabled = True
Me.RadButton1.Enabled = True
End Sub
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
If (Trim(Me.txtname.Text) = "" Or Trim(Me.txtvorname.Text) = "") And Me.chkaktiv.Checked = True Then
Show_Message(1, "Name und Vorname vom Schüler sind zwingend zu erfassen")
Exit Sub
End If
Dim ds As New DataSet
Dim dh As New clsDatahandling
ds = dh.Get_Tabledata("Select * from schuelerberuf where aktiv=1 and schuelernr=" + Me.RadListBox1.SelectedValue, False, True)
If ds.Tables(0).Rows.Count > 0 Then
ds.Tables.Clear()
ds = dh.Get_Tabledata("Select klassentyp from schueler where schuelernr=" + Me.RadListBox1.SelectedValue, False, True)
If ds.Tables(0).Rows(0).Item(0) <> Me.cbKlassentyp.SelectedValue Then
Show_Message(1, "Die Stufe kann nicht angepasst werden, sofern Berufe dem Schüler zugeordnet sind.")
Exit Sub
End If
End If
Dim s As String = Me.RadListBox1.SelectedItem.Text
Dim sn = Trim(Me.txtname.Text) + " " + Trim(Me.txtvorname.Text)
If sn <> s And Trim(s) <> "*** Neuer Schüler" Then
Show_Message(4, "Der Schülername wurde angepasst. Neuer Schüler erfassen (OK) oder sollen die Daten gespeichert werden (cancel)")
Else
save_schueler()
End If
Update_Schueler_Status()
Me.Panel3.Enabled = True
Me.RadGridSchuelerberuf.Enabled = True
End Sub
Sub save_schueler()
Dim i As Integer
i = Me.RadListBox1.SelectedValue
Dim dh As New clsDatahandling
dh.UpdateTable("schueler", "Name", Me.txtname.Text, True, "schuelernr", Me.RadListBox1.SelectedValue)
dh.UpdateTable("schueler", "VorName", Me.txtvorname.Text, True, "schuelernr", Me.RadListBox1.SelectedValue)
dh.UpdateTable("schueler", "bemerkung", Me.txtBemerkung.Text, True, "schuelernr", Me.RadListBox1.SelectedValue)
If Me.chkaktiv.Checked = True Then
dh.UpdateTable("schueler", "Aktiv", 1, False, "schuelernr", Me.RadListBox1.SelectedValue)
Else
dh.UpdateTable("schueler", "Aktiv", 0, False, "schuelernr", Me.RadListBox1.SelectedValue)
End If
dh.UpdateTable("schueler", "klassenr", Me.cbklasse.SelectedValue, False, "schuelernr", Me.RadListBox1.SelectedValue)
dh.UpdateTable("schueler", "klassentyp", Me.cbKlassentyp.SelectedValue, False, "schuelernr", Me.RadListBox1.SelectedValue)
Me.Refresh_RadListBox1()
'Me.RadListBox1.DataBind()
Try
'Me.RadListBox1.SelectedIndex = i
refresh_data(i)
Catch ex As Exception
Try
Me.RadListBox1.SelectedIndex = 0
refresh_data(Me.RadListBox1.SelectedValue)
Catch ex1 As Exception
End Try
End Try
Update_Klassen_Status()
End Sub
Private Sub RadListBox1_ItemDataBound(sender As Object, e As Telerik.Web.UI.RadListBoxItemEventArgs) Handles RadListBox1.ItemDataBound
If TypeOf e.Item Is RadListBoxItem Then
Dim dataItem As RadListBoxItem = TryCast(e.Item, RadListBoxItem)
Dim dh As New clsDatahandling
Dim s As String
s = dh.Verify_Schueler(dataItem.Value)
If s = "Schüler vollständig erfasst." Then
Else
dataItem.ForeColor = System.Drawing.Color.Red
schuelerstatus1 = schuelerstatus1 + 1
End If
End If
End Sub
Private Sub RadListBox1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles RadListBox1.SelectedIndexChanged
refresh_data(Me.RadListBox1.SelectedValue.ToString)
Update_Klassen_Status()
Update_Schueler_Status()
If Me.RadListBox1.Items.Count > 0 Then
Me.Panel3.Enabled = True
Me.RadGridSchuelerberuf.Enabled = True
End If
End Sub
Protected Sub btnInsertBeruf_Click(sender As Object, e As EventArgs) Handles btnInsertBeruf.Click
Dim i As Integer
i = Me.RadListBox1.SelectedValue
Dim errormessage As String = ""
errormessage = Validate_Form()
If errormessage <> "" Then
Show_Message(1, errormessage)
Exit Sub
End If
Dim dh As New clsDatahandling
Try
If Me.txtBerufnr.Text <> "" Then Me.cbBeruf.SelectedValue = Me.txtBerufnr.Text
Catch ex As Exception
'Me.C1Dialog1.Visible = True
Exit Sub
End Try
Dim ds As New DataSet
ds = dh.Get_Tabledata("Select * from firmaberuf where aktiv=1 and klassenr>=" + Me.cbKlassentyp.SelectedValue.ToString + " and berufnr=" + Me.cbBeruf.SelectedValue.ToString, False, True)
If ds.Tables(0).Rows.Count = 0 And dh.Get_Option(25) = "Ja" Then
Show_Message(1, "Der gewählte Beruf steht für die Schulstufe (" + Me.cbKlassentyp.Text + ") nicht zur Verfügung.")
Exit Sub
End If
ds.Tables.Clear()
ds = dh.Get_Tabledata("Select * from schuelerberuf where aktiv=1 and berufnr=" + Me.cbBeruf.SelectedValue.ToString + " and schuelernr=" + Me.RadListBox1.SelectedValue.ToString, False, True)
If ds.Tables(0).Rows.Count > 0 Then
Show_Message(1, "Der gewählte Beruf wurde dem Schüler bereits zugeordnet.")
Exit Sub
End If
Dim key As Integer = dh.Insert_new_record("Schuelerberuf", "Schuelerberufnr")
Dim prio As Integer = dh.Get_Last_Schulerberuf_Priority_By_Schuler(Me.RadListBox1.SelectedValue)
dh.UpdateTable("Schuelerberuf", "Schuelernr", Me.RadListBox1.SelectedValue, False, "Schuelerberufnr", key)
dh.UpdateTable("Schuelerberuf", "Berufnr", Me.cbBeruf.SelectedValue, False, "Schuelerberufnr", key)
dh.UpdateTable("Schuelerberuf", "Prioritaet", prio, False, "Schuelerberufnr", key)
If Me.txtBerufnr.Text <> "" Then
Me.txtBerufnr.Text = ""
Me.txtBerufnr.Focus()
End If
Me.RadGridSchuelerberuf.DataBind()
Update_Klassen_Status()
Update_Schueler_Status()
Me.RadListBox1.DataBind()
Me.RadListBox1.SelectedValue = i
If RadGridSchuelerberuf.MasterTableView.Items.Count > 0 Then Me.cbKlassentyp.Enabled = False Else Me.cbKlassentyp.Enabled = True
End Sub
Private Function Validate_Form() As String
Dim s As String = ""
If Me.RadListBox1.SelectedValue Is System.DBNull.Value Then
If s <> "" Then s = s + "<br/>"
s = s + "- Es wurde kein Schüler ausgewählt"
End If
If Me.RadListBox1.SelectedValue = "" Then
If s <> "" Then s = s + "<br/>"
s = s + "- Es wurde kein Schüler ausgewählt"
End If
Try
If Me.txtBerufnr.Text <> "" Then
Me.cbBeruf.SelectedValue = Me.txtBerufnr.Text
If Me.cbBeruf.SelectedValue <> Me.txtBerufnr.Text Then
If s <> "" Then s = s + "<br/>"
s = s + "- Die eingegebene Berufsnummer ist ungültig"
End If
End If
Catch ex As Exception
If s <> "" Then s = s + "<br/>"
s = s + "- Die eingegebene Berufsnummer ist ungültig"
End Try
If s <> "" Then s = "Folgende Fehler sind vorhanden:" + "<br/>" + s
Return s
End Function
Sub neuer_schueler()
Dim dh As New clsDatahandling
Dim i As Integer
i = dh.Insert_Schueler(Me.RadComboBox1.SelectedValue, Me.cbKlassentyp.SelectedValue)
If i > -1 Then
Me.RadListBox1.DataBind()
Me.refresh_data(i)
End If
End Sub
Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles btnneuerschueler.Click
neuer_schueler()
Me.txtname.Enabled = True
Me.txtvorname.Enabled = True
Me.txtBemerkung.Enabled = True
Me.RadButton3.Enabled = True
Me.RadButton1.Enabled = True
Update_Klassen_Status()
Me.txtname.Focus()
Me.lblschuelerstatus.Text = ""
Me.txtname.SelectionOnFocus = SelectionOnFocus.SelectAll
Me.Panel3.Enabled = False
Me.RadGridSchuelerberuf.Enabled = False
End Sub
Protected Sub selectentry(ByVal nr As Integer)
Dim isselected As Boolean = False
For Each item As RadListBoxItem In Me.RadListBox1.Items
item.Selected = False
Next
For Each item As RadListBoxItem In Me.RadListBox1.Items
If item.Value = nr Then
item.Selected = True
isselected = True
End If
Next
If Not isselected Then Me.RadListBox1.SelectedIndex = 0
End Sub
Protected Sub chkAlleSchuler_CheckedChanged(sender As Object, e As EventArgs) Handles chkAlleSchuler.CheckedChanged
Refresh_RadListBox1()
End Sub
Protected Sub Refresh_RadListBox1()
If chkAlleSchuler.Checked = True Then
Me.SqlDataSource2.SelectCommand = "select Schuelernr, name+' '+vorname as Schuelername from schueler where aktiv=1 order by name, vorname"
Else
Me.SqlDataSource2.SelectCommand = "select Schuelernr, name+' '+vorname as Schuelername from schueler where aktiv=1 and klassenr=@klassenr order by name, vorname"
End If
Me.RadListBox1.DataBind()
End Sub
Protected Sub RadButton2_Click2(sender As Object, e As EventArgs) Handles RadButton2.Click
Response.Redirect("~/lehrer/stammdaten.aspx")
End Sub
Protected Sub Update_Klassen_Status()
Dim dh As New clsDatahandling
Me.lblklassestatus.Text = dh.verify_klasse(Me.RadComboBox1.SelectedValue)
If Me.lblklassestatus.Text = "Klasse komplett erfasst" Then
Me.lblklassestatus.ForeColor = Drawing.Color.Green
Else
Me.lblklassestatus.ForeColor = Drawing.Color.Red
End If
End Sub
Protected Sub Update_Schueler_Status()
Dim dh As New clsDatahandling
Dim ds As New DataSet
Me.lblschuelerstatus.Text = dh.Verify_Schueler(Me.RadListBox1.SelectedValue)
If lblschuelerstatus.Text = "Schüler vollständig erfasst." Then
lblschuelerstatus.ForeColor = Drawing.Color.Green
Else
lblschuelerstatus.ForeColor = Drawing.Color.Red
End If
End Sub
Protected Sub RadButton3_Click(sender As Object, e As EventArgs) Handles RadButton3.Click
Show_Message(3, "Schüler wirklich löschen?")
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", "alertCallBackFnError", 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
Private Sub RadGridSchuelerberuf_DeleteCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGridSchuelerberuf.DeleteCommand
Update_Schueler_Status()
If RadGridSchuelerberuf.MasterTableView.Items.Count > 0 Then Me.cbKlassentyp.Enabled = False Else Me.cbKlassentyp.Enabled = True
End Sub
Private Sub RadGridSchuelerberuf_ItemUpdated(sender As Object, e As Telerik.Web.UI.GridUpdatedEventArgs) Handles RadGridSchuelerberuf.ItemUpdated
Update_Schueler_Status()
If RadGridSchuelerberuf.MasterTableView.Items.Count > 0 Then Me.cbKlassentyp.Enabled = False Else Me.cbKlassentyp.Enabled = True
End Sub
Private Sub RadGridSchuelerberuf_UpdateCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGridSchuelerberuf.UpdateCommand
Update_Schueler_Status()
If RadGridSchuelerberuf.MasterTableView.Items.Count > 0 Then Me.cbKlassentyp.Enabled = False Else Me.cbKlassentyp.Enabled = True
End Sub
Protected Sub RadButton4_Click(sender As Object, e As EventArgs) Handles RadButton4.Click
Response.Redirect("~/lehrer/lehrerreport.aspx")
End Sub
Private Sub RadAjaxManager1_AjaxRequest(sender As Object, e As Telerik.Web.UI.AjaxRequestEventArgs) Handles RadAjaxManager1.AjaxRequest
If e.Argument.ToString = "ok" Then
Me.chkaktiv.Checked = False
save_schueler()
Response.Redirect("~/Lehrer/Schueler.aspx")
If Me.RadListBox1.Items.Count < 1 Then
Response.Redirect("~/Lehrer/Schueler.aspx")
Me.txtname.Text = ""
Me.txtvorname.Text = ""
Me.lblschuelerstatus.Text = ""
Me.txtname.Enabled = False
Me.txtvorname.Enabled = False
Me.txtBemerkung.Text = ""
Me.txtBemerkung.Enabled = False
Me.RadButton3.Enabled = False
Me.RadButton1.Enabled = False
Me.Panel3.Enabled = False
Me.RadGridSchuelerberuf.Enabled = False
Else
Me.lblschuelerstatus.Text = ""
Me.refresh_data(Me.RadListBox1.SelectedValue)
End If
End If
If e.Argument.ToString = "save" Then save_schueler()
If e.Argument.ToString = "neu" Then
Dim sname As String, svorname As String, sbemerkung As String, IKLASSE As Integer, IKLASSENTYP As Integer
sname = Me.txtname.Text.ToString
svorname = Me.txtvorname.Text.ToString
sbemerkung = Me.txtBemerkung.Text.ToString
IKLASSE = Me.cbklasse.SelectedValue
IKLASSENTYP = Me.cbKlassentyp.SelectedValue
neuer_schueler()
Me.txtname.Text = sname
Me.txtvorname.Text = svorname
Me.txtBemerkung.Text = sbemerkung
Me.cbKlassentyp.SelectedValue = IKLASSENTYP
Me.cbklasse.SelectedValue = IKLASSE
save_schueler()
End If
End Sub
Protected Sub RadGridSchuelerberuf_NeedDataSource(sender As Object, e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGridSchuelerberuf.NeedDataSource
End Sub
Private Sub RadGridSchuelerberuf_ItemDeleted(sender As Object, e As Telerik.Web.UI.GridDeletedEventArgs) Handles RadGridSchuelerberuf.ItemDeleted
Dim i As Integer = Me.RadListBox1.SelectedValue
Me.Update_Schueler_Status()
Me.RadListBox1.DataBind()
Me.RadListBox1.SelectedValue = i
End Sub
Protected Sub cbBeruf_SelectedIndexChanged(sender As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles cbBeruf.SelectedIndexChanged
Me.txtBerufnr.Text = ""
End Sub
End Class

319
LPWeb20/Lehrer/Stammdaten.aspx Normal file
View File

File diff suppressed because one or more lines are too long

267
LPWeb20/Lehrer/Stammdaten.aspx.designer.vb generated Normal file
View File

@@ -0,0 +1,267 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class Stammdaten
'''<summary>
'''Head1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
'''<summary>
'''form1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
'''<summary>
'''RadWindowManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadWindowManager1 As Global.Telerik.Web.UI.RadWindowManager
'''<summary>
'''ScriptManager1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents ScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
'''<summary>
'''Header1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Header1 As Global.LPWeb.Header1
'''<summary>
'''Menu1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Menu1 As Global.LPWeb.Menu1
'''<summary>
'''Label3-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Label3 As Global.System.Web.UI.WebControls.Label
'''<summary>
'''txtAnredea-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtAnredea As Global.Telerik.Web.UI.RadComboBox
'''<summary>
'''Panel1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Panel1 As Global.System.Web.UI.WebControls.Panel
'''<summary>
'''DropSchulhaus-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents DropSchulhaus As Global.Telerik.Web.UI.GridDropDownListColumnEditor
'''<summary>
'''RadPanel-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadPanel As Global.System.Web.UI.WebControls.Panel
'''<summary>
'''RadGrid1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadGrid1 As Global.Telerik.Web.UI.RadGrid
'''<summary>
'''txtName-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtName As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''txtVorname-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtVorname As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''Label4-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Label4 As Global.System.Web.UI.WebControls.Label
'''<summary>
'''RadComboBox1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents RadComboBox1 As Global.Telerik.Web.UI.RadComboBox
'''<summary>
'''txtTelefon-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtTelefon As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''Label1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Label1 As Global.System.Web.UI.WebControls.Label
'''<summary>
'''txtNatel-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtNatel As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''Label2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Label2 As Global.System.Web.UI.WebControls.Label
'''<summary>
'''txtEMail-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents txtEMail As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''btnSpeichern-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents btnSpeichern As Global.Telerik.Web.UI.RadButton
'''<summary>
'''btnSpeichern0-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents btnSpeichern_Stammdaten As Global.Telerik.Web.UI.RadButton
'''<summary>
'''Footer1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents Footer1 As Global.LPWeb.Footer
'''<summary>
'''SqlDataSource1-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSource1 As Global.System.Web.UI.WebControls.SqlDataSource
'''<summary>
'''SqlDataSource2-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSource2 As Global.System.Web.UI.WebControls.SqlDataSource
'''<summary>
'''SqlDataSource3-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSource3 As Global.System.Web.UI.WebControls.SqlDataSource
'''<summary>
'''SqlDataSourceAnzahl-Steuerelement
'''</summary>
'''<remarks>
'''Automatisch generiertes Feld
'''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
'''</remarks>
Protected WithEvents SqlDataSourceAnzahl As Global.System.Web.UI.WebControls.SqlDataSource
End Class

188
LPWeb20/Lehrer/Stammdaten.aspx.vb Normal file
View File

@@ -0,0 +1,188 @@
Imports Telerik.Web.UI
Imports System.Web.Configuration
Public Class Stammdaten
Inherits System.Web.UI.Page
Dim dh As New clsDatahandling
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Try
Dim ds As New DataSet
ds = dh.Get_Tabledata("Select * from web_lehrer where lehrernr=" + Session("lehrer").ToString, False, True)
If dh.Get_Option(11) = "1/2" Then
Me.btnSpeichern.Visible = False
Me.btnSpeichern_Stammdaten.Visible = True
Else
Me.btnSpeichern_Stammdaten.Visible = False
Me.btnSpeichern.Visible = True
End If
Me.txtAnredea.SelectedValue = ds.Tables(0).Rows(0).Item("Anrede").ToString
Me.txtName.Text = ds.Tables(0).Rows(0).Item("name").ToString
Me.txtVorname.Text = ds.Tables(0).Rows(0).Item("Vorname").ToString
Me.RadComboBox1.SelectedValue = ds.Tables(0).Rows(0).Item("Schulhausnr")
Me.txtNatel.Text = ds.Tables(0).Rows(0).Item("Natel").ToString
Me.txtTelefon.Text = ds.Tables(0).Rows(0).Item("Telefon").ToString
Me.txtEMail.Text = ds.Tables(0).Rows(0).Item("email").ToString
'Me.txtBriefanrede.Text = ds.Tables(0).Rows(0).Item("Briefanrede").ToString
Me.txtAnredea.Focus()
Catch ex As Exception
'Me.txtBriefanrede.Text = ex.Message
Response.Redirect("~/Default.aspx")
End Try
End If
End Sub
Protected Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
dh.UpdateTable("web_lehrer", "Anrede", Me.txtAnredea.SelectedValue, True, "lehrernr", Session("lehrer"))
dh.UpdateTable("web_lehrer", "Name", Me.txtName.Text, True, "lehrernr", Session("lehrer"))
dh.UpdateTable("web_lehrer", "Vorname", Me.txtVorname.Text, True, "lehrernr", Session("lehrer"))
dh.UpdateTable("web_lehrer", "Schulhausnr", Me.RadComboBox1.SelectedValue.ToString, False, "lehrernr", Session("lehrer"))
dh.UpdateTable("web_lehrer", "Natel", Me.txtNatel.Text, True, "lehrernr", Session("lehrer"))
dh.UpdateTable("web_lehrer", "EMail", Me.txtEMail.Text, True, "lehrernr", Session("lehrer"))
'dh.UpdateTable("web_lehrer", "Briefanrede", Me.txtBriefanrede.Text, True, "lehrernr", Session("lehrer"))
Dim ds As New DataSet
ds = dh.Get_Tabledata("Select * from klasse where lehrernr=" + Session("Lehrer").ToString + " and aktiv=1", False, True)
If ds.Tables(0).Rows.Count < 1 Then
Show_Message(1, "Es ist noch keine Klasse erfasst. Bitte erfassen Sie Ihre Klasse.")
Return
End If
Response.Redirect("~/lehrer/schueler.aspx")
End Sub
Private Sub RadGrid1_InsertCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.InsertCommand
Dim editedItem As GridEditableItem = CType(e.Item, GridEditableItem)
Dim editMan As GridEditManager = editedItem.EditManager
Dim haserror As Boolean = False
Dim column As GridColumn
For Each column In e.Item.OwnerTableView.Columns
If TypeOf column Is IGridEditableColumn Then
Dim editableCol As IGridEditableColumn = CType(column, IGridEditableColumn)
If (editableCol.IsEditable) Then
Dim editor As IGridColumnEditor = editMan.GetColumnEditor(editableCol)
Dim editorType As String = CType(editor, Object).ToString()
Dim editorText As String = "unknown"
Dim editorValue As Object = Nothing
If (TypeOf editor Is GridTextColumnEditor) Then
editorText = CType(editor, GridTextColumnEditor).Text
editorValue = CType(editor, GridTextColumnEditor).Text
If editorText.Trim = "" Then haserror = True
End If
If (TypeOf editor Is GridBoolColumnEditor) Then
editorText = CType(editor, GridBoolColumnEditor).Value.ToString()
editorValue = CType(editor, GridBoolColumnEditor).Value
End If
If (TypeOf editor Is GridDropDownColumnEditor) Then
editorText = CType(editor, GridDropDownColumnEditor).SelectedText & "; " & CType(editor, GridDropDownColumnEditor).SelectedValue
editorValue = CType(editor, GridDropDownColumnEditor).SelectedValue
End If
If (TypeOf editor Is GridDateTimeColumnEditor) Then
editorText = CType(editor, GridDateTimeColumnEditor).Text
editorValue = CType(editor, GridDateTimeColumnEditor).Text
End If
'Try
' Dim changedRows As DataRow() = Me.EmployeesData.Tables("Employees").Select("EmployeeID = " & editedItem.OwnerTableView.DataKeyValues(editedItem.ItemIndex)("EmployeeID"))
' changedRows(0)(column.UniqueName) = editorValue
' Me.EmployeesData.Tables("Employees").AcceptChanges()
'Catch ex As Exception
' RadGrid1.Controls.Add(New LiteralControl("<strong>Unable to set value of column '" & column.UniqueName & "'</strong> - " + ex.Message))
' e.Canceled = True
'End Try
End If
End If
Next
If haserror Then
Show_Message(1, "Daten können nicht gespeichert werden. Es sind zwinged alle Felder zu befüllen.")
e.Canceled = True
End If
End Sub
Private Sub RadGrid1_UpdateCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.UpdateCommand
Dim editedItem As GridEditableItem = CType(e.Item, GridEditableItem)
Dim editMan As GridEditManager = editedItem.EditManager
Dim haserror As Boolean = False
Dim column As GridColumn
For Each column In e.Item.OwnerTableView.Columns
If TypeOf column Is IGridEditableColumn Then
Dim editableCol As IGridEditableColumn = CType(column, IGridEditableColumn)
If (editableCol.IsEditable) Then
Dim editor As IGridColumnEditor = editMan.GetColumnEditor(editableCol)
Dim editorType As String = CType(editor, Object).ToString()
Dim editorText As String = "unknown"
Dim editorValue As Object = Nothing
If (TypeOf editor Is GridTextColumnEditor) Then
editorText = CType(editor, GridTextColumnEditor).Text
editorValue = CType(editor, GridTextColumnEditor).Text
If editorText.Trim = "" Then haserror = True
End If
If (TypeOf editor Is GridBoolColumnEditor) Then
editorText = CType(editor, GridBoolColumnEditor).Value.ToString()
editorValue = CType(editor, GridBoolColumnEditor).Value
End If
If (TypeOf editor Is GridDropDownColumnEditor) Then
editorText = CType(editor, GridDropDownColumnEditor).SelectedText & "; " & CType(editor, GridDropDownColumnEditor).SelectedValue
editorValue = CType(editor, GridDropDownColumnEditor).SelectedValue
End If
If (TypeOf editor Is GridDateTimeColumnEditor) Then
editorText = CType(editor, GridDateTimeColumnEditor).Text
editorValue = CType(editor, GridDateTimeColumnEditor).Text
End If
'Try
' Dim changedRows As DataRow() = Me.EmployeesData.Tables("Employees").Select("EmployeeID = " & editedItem.OwnerTableView.DataKeyValues(editedItem.ItemIndex)("EmployeeID"))
' changedRows(0)(column.UniqueName) = editorValue
' Me.EmployeesData.Tables("Employees").AcceptChanges()
'Catch ex As Exception
' RadGrid1.Controls.Add(New LiteralControl("<strong>Unable to set value of column '" & column.UniqueName & "'</strong> - " + ex.Message))
' e.Canceled = True
'End Try
End If
End If
Next
If haserror Then
Show_Message(1, "Daten können nicht gespeichert werden. Es sind zwinged alle Felder zu befüllen.")
e.Canceled = True
End If
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"
Case 2
image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
End Select
RadWindowManager1.RadAlert(meldung, 330, 100, "Fehler", "alertCallBackFnError", image1)
End Sub
Protected Sub btnSpeichern_Stammdaten_Click(sender As Object, e As EventArgs) Handles btnSpeichern_Stammdaten.Click
dh.UpdateTable("web_lehrer", "Anrede", Me.txtAnredea.SelectedValue, True, "lehrernr", Session("lehrer"))
dh.UpdateTable("web_lehrer", "Name", Me.txtName.Text, True, "lehrernr", Session("lehrer"))
dh.UpdateTable("web_lehrer", "Vorname", Me.txtVorname.Text, True, "lehrernr", Session("lehrer"))
dh.UpdateTable("web_lehrer", "Schulhausnr", Me.RadComboBox1.SelectedValue.ToString, False, "lehrernr", Session("lehrer"))
dh.UpdateTable("web_lehrer", "Natel", Me.txtNatel.Text, True, "lehrernr", Session("lehrer"))
dh.UpdateTable("web_lehrer", "EMail", Me.txtEMail.Text, True, "lehrernr", Session("lehrer"))
'dh.UpdateTable("web_lehrer", "Briefanrede", Me.txtBriefanrede.Text, True, "lehrernr", Session("lehrer"))
Dim ds As New DataSet
ds = dh.Get_Tabledata("Select * from klasse where lehrernr=" + Session("Lehrer").ToString + " and aktiv=1", False, True)
If ds.Tables(0).Rows.Count < 1 Then
Show_Message(1, "Es ist noch keine Klasse erfasst. Bitte erfassen Sie Ihre Klasse.")
Return
End If
End Sub
End Class