Initial Commit Update Telerik

master
Stefan Hutter 4 years ago
commit 57e1cda236

File diff suppressed because it is too large Load Diff

Binary file not shown.

Binary file not shown.

Binary file not shown.

File diff suppressed because it is too large Load Diff

@ -0,0 +1,7 @@
touch README.md
git init
git commit -m "first commit"
git remote add origin http://192.168.111.85:3000/shu/LPWeb.git
git push -u origin master
pause

@ -0,0 +1 @@
<?xml version="1.0" encoding="utf-8"?><Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><DontShowAgainInSolution>false</DontShowAgainInSolution></Configuration>

@ -0,0 +1 @@
<?xml version="1.0" encoding="utf-8"?><Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><DontShowAgainInSolution>false</DontShowAgainInSolution></Configuration>

@ -0,0 +1,47 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 16
VisualStudioVersion = 16.0.31613.86
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "LPWeb20", "LPWeb20\LPWeb20.vbproj", "{670E8888-FFD5-49B3-B240-8B6E82E2294C}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ReportDesigner", "..\ReportDesigner\ReportDesigner.vbproj", "{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Debug|Mixed Platforms = Debug|Mixed Platforms
Debug|x86 = Debug|x86
Release|Any CPU = Release|Any CPU
Release|Mixed Platforms = Release|Mixed Platforms
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{670E8888-FFD5-49B3-B240-8B6E82E2294C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{670E8888-FFD5-49B3-B240-8B6E82E2294C}.Debug|Any CPU.Build.0 = Debug|Any CPU
{670E8888-FFD5-49B3-B240-8B6E82E2294C}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{670E8888-FFD5-49B3-B240-8B6E82E2294C}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{670E8888-FFD5-49B3-B240-8B6E82E2294C}.Debug|x86.ActiveCfg = Debug|Any CPU
{670E8888-FFD5-49B3-B240-8B6E82E2294C}.Release|Any CPU.ActiveCfg = Release|Any CPU
{670E8888-FFD5-49B3-B240-8B6E82E2294C}.Release|Any CPU.Build.0 = Release|Any CPU
{670E8888-FFD5-49B3-B240-8B6E82E2294C}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{670E8888-FFD5-49B3-B240-8B6E82E2294C}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{670E8888-FFD5-49B3-B240-8B6E82E2294C}.Release|x86.ActiveCfg = Release|Any CPU
{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}.Debug|Any CPU.ActiveCfg = Debug|x86
{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}.Debug|Mixed Platforms.Build.0 = Debug|x86
{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}.Debug|x86.ActiveCfg = Debug|x86
{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}.Debug|x86.Build.0 = Debug|x86
{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}.Release|Any CPU.ActiveCfg = Release|x86
{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}.Release|Mixed Platforms.ActiveCfg = Release|x86
{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}.Release|Mixed Platforms.Build.0 = Release|x86
{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}.Release|x86.ActiveCfg = Release|x86
{11DE60BA-97C7-4EBC-AF69-1E1D44BE3C74}.Release|x86.Build.0 = Release|x86
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {3396A297-E4FE-4F76-A3C1-31AC3FC2EFAA}
EndGlobalSection
EndGlobal

Binary file not shown.

Binary file not shown.

Binary file not shown.

@ -0,0 +1,76 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="About.aspx.vb" Inherits="LPWeb.About" %>
<%@ 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
{
width: 136px;
}
.auto-style1 {
width: 128px;
}
</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>
<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>Über berufswahl parcours manager</h2>
<p>
<table style="width: 100%;">
<tr>
<td class="auto-style1">Version</td>
<td>
<asp:Label ID="Label1" runat="server" Text="Label"></asp:Label>
</td>
<td>&nbsp;</td>
</tr>
<tr>
<td class="auto-style1">Versionsdatum</td>
<td>
<asp:Label ID="Label2" runat="server" Text="Label"></asp:Label>
</td>
<td>&nbsp;</td>
</tr>
<tr>
<td class="auto-style1">Copyright</td>
<td>
<asp:Label ID="Label3" runat="server" Text="Label"></asp:Label>
</td>
<td>&nbsp;</td>
</tr>
</table>
</p>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

@ -0,0 +1,96 @@
'------------------------------------------------------------------------------
' <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 About
'''<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>
'''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>
'''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>
'''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>
'''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>
'''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
End Class

@ -0,0 +1,11 @@
Public Class About
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Label1.Text = System.Configuration.ConfigurationManager.AppSettings("Version")
Me.Label2.Text = System.Configuration.ConfigurationManager.AppSettings("Versionsdatum")
Me.Label3.Text = System.Configuration.ConfigurationManager.AppSettings("Copyright")
End Sub
End Class

@ -0,0 +1,108 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Assistent.aspx.vb" Inherits="LPWeb.Assistent" %>
<%@ 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
{
width: 136px;
}
.auto-style4 {
height: 34px;
}
.auto-style5 {
height: 25px;
}
</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>
<div class="page">
<br />
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>aSSISTENT</h2>
<p>
<table style="width:100%;">
<tr>
<td class="auto-style4">
<p>
<asp:Label ID="Label1" runat="server" Text="Parcours-Bezeichnung"></asp:Label>
</p>
</td>
<td class="auto-style4">
<telerik:RadTextBox ID="RadTextBox1" Runat="server" LabelWidth="64px" Resize="None" Width="385px">
<EmptyMessageStyle Resize="None" />
<ReadOnlyStyle Resize="None" />
<FocusedStyle Resize="None" />
<DisabledStyle Resize="None" />
<InvalidStyle Resize="None" />
<HoveredStyle Resize="None" />
<EnabledStyle Resize="None" />
</telerik:RadTextBox>
</td>
<td class="auto-style4">
<asp:Button ID="Button1" runat="server" Text="Speichern" />
</td>
</tr>
<tr>
<td class="auto-style5">Firmenbereich </td>
<td class="auto-style5">
<telerik:RadComboBox ID="RadComboBox1" Runat="server" Culture="de-DE">
<Items>
<telerik:RadComboBoxItem runat="server" Text="gesperrt" Value="1" />
<telerik:RadComboBoxItem runat="server" Text="offen" Value="0" />
</Items>
</telerik:RadComboBox>
</td>
<td class="auto-style5">
<asp:Button ID="Button2" runat="server" Text="Speichern" />
</td>
</tr>
<tr>
<td>Lehrerbereich</td>
<td>
<telerik:RadComboBox ID="RadComboBox2" Runat="server" Culture="de-DE">
<Items>
<telerik:RadComboBoxItem runat="server" Text="gesperrt" Value="1" />
<telerik:RadComboBoxItem runat="server" Text="offen" Value="0" />
<telerik:RadComboBoxItem runat="server" Text="offen ohne Schülerverwaltung" Value="2" />
</Items>
</telerik:RadComboBox>
</td>
<td>
<asp:Button ID="Button3" runat="server" Text="Speichern" />
</td>
</tr>
</table>
</p>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

@ -0,0 +1,132 @@
'------------------------------------------------------------------------------
' <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 Assistent
'''<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>
'''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>
'''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>
'''RadTextBox1-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 RadTextBox1 As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''Button1-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 Button1 As Global.System.Web.UI.WebControls.Button
'''<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>
'''Button2-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 Button2 As Global.System.Web.UI.WebControls.Button
'''<summary>
'''RadComboBox2-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 RadComboBox2 As Global.Telerik.Web.UI.RadComboBox
'''<summary>
'''Button3-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 Button3 As Global.System.Web.UI.WebControls.Button
'''<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
End Class

@ -0,0 +1,8 @@
Public Class Assistent
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,68 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Begruessungstext.aspx.vb" Inherits="LPWeb.Begruessungstext" ValidateRequest="false" %>
<%@ 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="RichTextEditor, Version=8.0.0.0, Culture=neutral, PublicKeyToken=3858aa6802b1223a" namespace="RTE" tagprefix="RTE" %>
<!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
{
width: 144px;
}
</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">
</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>Begrüssungstext</h2>
<p>
<table style="width:100%;">
<tr>
<td colspan="2">
<RTE:Editor ID="Editor1" runat="server" Width="907px" />
</td>
</tr>
<tr>
<td class="style1">
&nbsp;</td>
<td>
&nbsp;</td>
</tr>
</table>
</p>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

@ -0,0 +1,96 @@
'------------------------------------------------------------------------------
' <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 Begruessungstext
'''<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>
'''Editor1-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 Editor1 As Global.RTE.Editor
'''<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
End Class

@ -0,0 +1,19 @@
Public Class Begruessungstext
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim dh As New clsDatahandling
dh.Get_Option(7)
Me.Editor1.Text = dh.Get_Option(7)
End If
End Sub
Private Sub Editor1_SaveButtonClick(sender As Object, e As EventArgs) Handles Editor1.SaveButtonClick
Dim dh As New clsDatahandling
dh.UpdateTable("Optionen", "Inhalt", Me.Editor1.Text, True, "OptionNr", 7)
End Sub
End Class

@ -0,0 +1,214 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Berufsverwaltung.aspx.vb" Inherits="LPWeb.Berufsverwaltung" %>
<%@ 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" /></head>
<body>
<div class="page">
<form id="form1" runat="server">
<telerik:RadScriptManager ID="RadScriptManager1" runat="server">
<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="RadAjaxManager1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Label1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadGrid1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Label1" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server" />
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>
Berufsverwaltung
</h2>
<br />
<telerik:RadGrid ID="RadGrid1" runat="server" Culture="de-DE"
DataSourceID="SqlDataSource1" AllowPaging="True" AllowSorting="True"
AutoGenerateColumns="False" CellSpacing="0" GridLines="None"
AllowAutomaticUpdates="True" AllowAutomaticDeletes="True"
AllowAutomaticInserts="True" AllowFilteringByColumn="True" Height="401px"
PageSize="50">
<ClientSettings>
<Scrolling AllowScroll="True" UseStaticHeaders="True" />
</ClientSettings>
<MasterTableView DataKeyNames="Berufnr"
DataSourceID="SqlDataSource1" CommandItemDisplay="TopAndBottom"
TableLayout="Fixed" EditMode="InPlace"
>
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="Berufnr" DataType="System.Int32"
FilterControlAltText="Filter Berufnr column" HeaderText="Nr"
ReadOnly="True" SortExpression="Berufnr" UniqueName="Berufnr"
Resizable="False">
<HeaderStyle Width="30px" />
<ItemStyle Width="20px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Bezeichnung"
FilterControlAltText="Filter Bezeichnung column" HeaderText="Berufsbezeichnung"
SortExpression="Bezeichnung" UniqueName="Bezeichnung" Resizable="False" ColumnEditorID="EditBezeichnung">
<HeaderStyle Width="400px" />
<ItemStyle Width="80px" Wrap="false" />
</telerik:GridBoundColumn>
<telerik:GridNumericColumn ColumnEditorID="EditLehrjahre" DataField="Lehrjahre"
DecimalDigits="0" FilterControlAltText="Filter column column"
HeaderText="Jahre" UniqueName="column">
<HeaderStyle Width="40px" />
<ItemStyle Width="30px" Wrap="False" />
</telerik:GridNumericColumn>
<telerik:GridBoundColumn DataField="Anmerkung"
FilterControlAltText="Filter Anmerkung column" HeaderText="Anmerkung"
SortExpression="Anmerkung" UniqueName="Anmerkung" Resizable="False" ColumnEditorID="EditAnmerkung">
<HeaderStyle Width="100px" />
<ItemStyle Width="60px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Beschreibung"
FilterControlAltText="Filter Beschreibung column" HeaderText="Beschreibung"
SortExpression="Beschreibung" UniqueName="Beschreibung" Resizable="False" ColumnEditorID="EditBemerkung">
<HeaderStyle Width="100px" />
<ItemStyle Width="60px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridDropDownColumn DataField="KlasseNr"
FilterControlAltText="Filter Klassenr column" HeaderText="Klasse"
UniqueName="KlasseNr" ColumnEditorID="DropKlasse" Resizable="False"
DataSourceID="SQLDataSource2" ListTextField="bezeichnung"
ListValueField="klassenr">
<HeaderStyle Width="70px" />
<ItemStyle Width="50px" Wrap="False" />
</telerik:GridDropDownColumn>
<telerik:GridCheckBoxColumn DataField="Aktiv" DataType="System.Boolean"
FilterControlAltText="Filter Aktiv column" HeaderText="Aktiv"
SortExpression="Aktiv" UniqueName="Aktiv">
<ItemStyle Width="50px" />
<HeaderStyle Width="40px" />
</telerik:GridCheckBoxColumn>
<telerik:GridBoundColumn DataField="Erstellt_am"
FilterControlAltText="Filter Erstellt_am column" HeaderText="Erstellt_am"
SortExpression="Erstellt_am" UniqueName="Erstellt_am"
DataType="System.DateTime" ReadOnly="True" Resizable="False" Visible="false">
<ItemStyle Width="70px" Wrap="False" />
<HeaderStyle Width="70px" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Mutiert_am" DataType="System.DateTime"
FilterControlAltText="Filter Mutiert_am column" HeaderText="Mutiert_am"
SortExpression="Mutiert_am" UniqueName="Mutiert_am" ReadOnly="True" Visible="false"
Resizable="False">
<ItemStyle Width="60px" Wrap="False" />
<HeaderStyle Width="70px" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Mutierer"
FilterControlAltText="Filter Mutierer column" HeaderText="Mutiert durch"
SortExpression="Mutierer" UniqueName="Mutierer" DataType="System.Int32"
ReadOnly="True" Resizable="False" Visible="false">
<ItemStyle Width="20px" Wrap="False" />
<HeaderStyle Width="90px" />
</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="Beruf 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 FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
<telerik:GridDropDownListColumnEditor ID="DropKlasse" runat="server" DropDownStyle-Width="100px" ></telerik:GridDropDownListColumnEditor>
<telerik:GridTextBoxColumnEditor id="EditBezeichnung" runat="server" TextBoxStyle-width="500"></telerik:GridTextBoxColumnEditor>
<telerik:GridNumericColumnEditor id="EditLehrjahre" runat="server" NumericTextBox-Width="50" NumericTextBox-NumberFormat-DecimalDigits="0"></telerik:GridNumericColumnEditor>
<telerik:GridTextBoxColumnEditor id="EditBemerkung" runat="server" TextBoxStyle-width="300"></telerik:GridTextBoxColumnEditor>
<telerik:GridTextBoxColumnEditor id="EditAnmerkung" runat="server" TextBoxStyle-width="300"></telerik:GridTextBoxColumnEditor>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</form>
</div>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT * FROM [Beruf]"
DeleteCommand="DELETE FROM [Beruf] WHERE [Berufnr] = @Berufnr"
InsertCommand="INSERT INTO [Beruf] ([Bezeichnung], [Lehrjahre], [Anmerkung], [Beschreibung], [Aktiv], [Erstellt_am], [Mutiert_am], [Mutierer], klassenr) VALUES (@Bezeichnung, @Lehrjahre, @Anmerkung, @Beschreibung, @Aktiv, getdate(), getdate(), @Mutierer,0)"
UpdateCommand="UPDATE [Beruf] SET [Bezeichnung] = @Bezeichnung, [Lehrjahre] = @Lehrjahre, [Anmerkung] = @Anmerkung, [Beschreibung] = @Beschreibung, [Aktiv] = @Aktiv, [Erstellt_am] = getdate(), [Mutiert_am] = getdate(), [Mutierer] = @Mutierer, Klassenr=@KlasseNr WHERE [Berufnr] = @Berufnr">
<DeleteParameters>
<asp:Parameter Name="Berufnr" Type="Int32" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="Bezeichnung" Type="String" />
<asp:Parameter Name="Lehrjahre" Type="String" />
<asp:Parameter Name="Anmerkung" Type="String" />
<asp:Parameter Name="Beschreibung" Type="String" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:SessionParameter Name="mutierer" Type="Int32" sessionfield="UserID" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="Bezeichnung" Type="String" />
<asp:Parameter Name="Lehrjahre" Type="String" />
<asp:Parameter Name="Anmerkung" Type="String" />
<asp:Parameter Name="Beschreibung" Type="String" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:SessionParameter Name="mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="Klassenr" />
<asp:Parameter Name="Berufnr" />
</UpdateParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource2" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [klassenr], [Bezeichnung] FROM [web_klasse]">
</asp:SqlDataSource>
</body>
</html>

@ -0,0 +1,159 @@
'------------------------------------------------------------------------------
' <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 Berufsverwaltung
'''<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>
'''RadScriptManager1-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 RadScriptManager1 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>
'''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>
'''DropKlasse-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 DropKlasse As Global.Telerik.Web.UI.GridDropDownListColumnEditor
'''<summary>
'''EditBezeichnung-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 EditBezeichnung As Global.Telerik.Web.UI.GridTextBoxColumnEditor
'''<summary>
'''EditLehrjahre-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 EditLehrjahre As Global.Telerik.Web.UI.GridNumericColumnEditor
'''<summary>
'''EditBemerkung-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 EditBemerkung As Global.Telerik.Web.UI.GridTextBoxColumnEditor
'''<summary>
'''EditAnmerkung-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 EditAnmerkung As Global.Telerik.Web.UI.GridTextBoxColumnEditor
'''<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
End Class

@ -0,0 +1,8 @@
Public Class Berufsverwaltung
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

File diff suppressed because one or more lines are too long

@ -0,0 +1,177 @@
'------------------------------------------------------------------------------
' <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 DelData
'''<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>
'''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>
'''cbboxFirmen-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 cbboxFirmen As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''cbboxKlassen-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 cbboxKlassen As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''cbboxAnsprechpartner-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 cbboxAnsprechpartner As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''cbboxLehrer-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 cbboxLehrer As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''cbboxAngebot-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 cbboxAngebot As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''cbboxSchueler-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 cbboxSchueler As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''cbboxInaktieBerufsbilder-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 cbboxInaktieBerufsbilder As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''cbboxFirmenNotAktuell-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 cbboxFirmenNotAktuell As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''cbboxZuteilungenLoeschen-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 cbboxZuteilungenLoeschen As Global.System.Web.UI.WebControls.CheckBox
'''<summary>
'''btnZusammenfassung-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 btnZusammenfassung As Global.Telerik.Web.UI.RadButton
'''<summary>
'''cbboxDel-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 cbboxDel As Global.System.Web.UI.WebControls.CheckBox
'''<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>
'''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
End Class

@ -0,0 +1,50 @@
Public Class DelData
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnZusammenfassung_Click(sender As Object, e As EventArgs) Handles btnZusammenfassung.Click
If cbboxDel.Checked = False Then
Me.Label1.Text = "Bestätigen Sie bitte die Mutation durch Anhacken des Kästchens unterhalb des Knopfes."
Exit Sub
End If
Dim dh As New clsDatahandling
If Me.cbboxFirmen.Checked = True Then
dh.Delete_Firmen()
End If
If Me.cbboxAnsprechpartner.Checked = True Then
dh.Delete_Ansprechpartner()
End If
If Me.cbboxAngebot.Checked = True Then
dh.Delete_Angebot()
End If
If Me.cbboxKlassen.Checked = True Then
dh.Delete_Klasse()
End If
If Me.cbboxLehrer.Checked = True Then
dh.Delete_Lehrer()
End If
If Me.cbboxSchueler.Checked = True Then
dh.Delete_Schueler()
End If
If Me.cbboxInaktieBerufsbilder.Checked = True Then
dh.Inaktive_Berufsangebote_loeschen(Session.Item("Userid"))
End If
If Me.cbboxFirmenNotAktuell.Checked = True Then
dh.Firmen_Inaktivieren(Session.Item("Userid"))
End If
If Me.cbboxZuteilungenLoeschen.Checked = True Then
dh.Delete_Zuteilung()
End If
Me.cbboxDel.Checked = False
End Sub
Protected Sub cbboxFirmen_CheckedChanged(sender As Object, e As EventArgs) Handles cbboxFirmen.CheckedChanged
Me.cbboxAnsprechpartner.Checked = True
Me.cbboxAngebot.Checked = True
End Sub
End Class

@ -0,0 +1,110 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Dokumente.aspx.vb" Inherits="LPWeb.Dokumente" ValidateRequest="false" %>
<%@ 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" %>
<%@ Register assembly="RichTextEditor" namespace="RTE" tagprefix="RTE" %>
<!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
{
width: 144px;
}
.style2
{
width: 244px;
}
</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>
<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>Dokumente</h2>
<p>
<table style="width:100%;">
<tr>
<td class="style1">
Vorhandene Dokumente:</td>
<td class="style2">
&nbsp;<telerik:RadComboBox ID="RadComboBox1" Runat="server" Culture="de-DE"
DataSourceID="SqlDataSource1" DataTextField="Bezeichnung"
DataValueField="Eintragnr" AutoPostBack="True">
</telerik:RadComboBox>
</td>
<td colspan="2">
Bezeichnung:
<telerik:RadTextBox ID="txtBezeichnung" Runat="server">
</telerik:RadTextBox>
&nbsp;<telerik:RadButton ID="btnNeu" runat="server" Text="Neues Dokument">
</telerik:RadButton>
</td>
</tr>
<tr>
<td class="style1">
Dokumenttitel</td>
<td class="style2">
<telerik:RadTextBox ID="txtDokumenttitel" Runat="server" Width="240px">
</telerik:RadTextBox>
</td>
<td colspan="2">
&nbsp;</td>
</tr>
<tr>
<td class="style1">
&nbsp;</td>
<td class="style2">
&nbsp;</td>
<td>
&nbsp;</td>
<td>
&nbsp;</td>
</tr>
<tr>
<td colspan="4">
<RTE:Editor ID="Editor1" runat="server" Height="377px" Width="914px" SaveButtonMode="Submit" SaveButtonScript="__doPostBack" Language="de-de" />
</td>
</tr>
<tr>
<td class="style1">
&nbsp;</td>
<td colspan="3">
&nbsp;</td>
</tr>
</table>
</p>
</div>
</div>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [EintragNr], [Bezeichnung], Beschreibung FROM [Web_Dokumenttexte] WHERE aktiv=1 and eintragnr > -1">
</asp:SqlDataSource>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

@ -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 Dokumente
'''<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>
'''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>
'''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>
'''txtBezeichnung-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 txtBezeichnung As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''btnNeu-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 btnNeu As Global.Telerik.Web.UI.RadButton
'''<summary>
'''txtDokumenttitel-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 txtDokumenttitel As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''Editor1-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 Editor1 As Global.RTE.Editor
'''<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>
'''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
End Class

@ -0,0 +1,58 @@
Imports System.IO
Public Class Dokumente
Inherits System.Web.UI.Page
Dim doknr As Integer
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
Update_Dokument()
Catch ex As Exception
End Try
End If
End Sub
Protected Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
doknr = dh.Insert_Dokument(Me.txtBezeichnung.Text)
Me.RadComboBox1.DataBind()
End Sub
Private Sub RadComboBox1_DataBound(sender As Object, e As System.EventArgs) Handles RadComboBox1.DataBound
'Me.RadComboBox1.SelectedIndex = 0
Update_Dokument()
End Sub
Protected Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles RadComboBox1.SelectedIndexChanged
Update_Dokument()
End Sub
Sub Update_Dokument()
Dim filename As String = Me.RadComboBox1.SelectedValue.ToString + ".rtf"
Dim ds As New DataSet
ds = dh.Get_Tabledata("select * from Web_Dokumenttexte where eintragnr=" + Me.RadComboBox1.SelectedValue.ToString, False, True)
Me.txtDokumenttitel.Text = ds.Tables(0).Rows(0).Item("Beschreibung")
Dim path As String = Server.MapPath("~/temp/")
filename = path + filename
If Not File.Exists(filename) Then
Try
File.Copy(path + "empty.rtf", filename, True)
Catch ex As Exception
Exit Sub
End Try
End If
Me.Editor1.LoadRTF(filename)
End Sub
Private Sub Editor1_SaveButtonClick(sender As Object, e As EventArgs) Handles Editor1.SaveButtonClick
Dim filename As String = Me.RadComboBox1.SelectedValue.ToString + ".rtf"
Dim path As String = Server.MapPath("~/temp/")
filename = path + filename
Me.Editor1.SaveRTF(filename)
' Me.Editor1.LoadRTF(filename)
dh.Save_rtf(Me.RadComboBox1.SelectedValue, filename, "")
dh.UpdateTable("Web_Dokumenttexte", "Beschreibung", Me.txtDokumenttitel.Text, True, "Eintragnr", Me.RadComboBox1.SelectedValue.ToString)
End Sub
End Class

@ -0,0 +1,218 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Firmen.aspx.vb" Inherits="LPWeb.Firmen" %>
<%@ 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" %>
<!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
{
width: 136px;
}
</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>
<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>Firmenübersicht</h2>
<p>
<telerik:RadButton ID="btnNeueFirma" runat="server" Text="Firma erfassen">
</telerik:RadButton>
<telerik:RadGrid ID="RadGrid1" runat="server"
DataSourceID="SqlDataSource1" AllowPaging="True" AllowSorting="True"
AutoGenerateColumns="False" CellSpacing="0" GridLines="None"
AllowAutomaticUpdates="True" AllowAutomaticDeletes="True"
AllowAutomaticInserts="True" PageSize="50">
<ExportSettings>
<Pdf>
<PageHeader>
<LeftCell Text=""></LeftCell>
<MiddleCell Text=""></MiddleCell>
<RightCell Text=""></RightCell>
</PageHeader>
<PageFooter>
<LeftCell Text=""></LeftCell>
<MiddleCell Text=""></MiddleCell>
<RightCell Text=""></RightCell>
</PageFooter>
</Pdf>
</ExportSettings>
<ClientSettings>
<Scrolling AllowScroll="True" UseStaticHeaders="True" />
</ClientSettings>
<MasterTableView DataKeyNames="FirmaNr"
DataSourceID="SqlDataSource1" CommandItemDisplay="TopAndBottom"
TableLayout="Fixed">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren" ShowAddNewRecordButton="False"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="FirmaNr" DataType="System.Int32"
FilterControlAltText="Filter FirmaNr column" HeaderText="Nr"
ReadOnly="True" SortExpression="FirmaNr" UniqueName="FirmaNr">
<HeaderStyle Width="30px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="NameZ1"
FilterControlAltText="Filter NameZ1 column" HeaderText="Name"
SortExpression="NameZ1" UniqueName="NameZ1">
<HeaderStyle Width="150px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="PLZ"
FilterControlAltText="Filter PLZ column" HeaderText="PLZ"
SortExpression="PLZ" UniqueName="PLZ">
<HeaderStyle Width="60px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Ort" HeaderText="Ort" SortExpression="Ort"
UniqueName="Ort" FilterControlAltText="Filter Ort column">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Tel" HeaderText="Tel" SortExpression="Tel"
UniqueName="Tel" FilterControlAltText="Filter Tel column">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="EMail" HeaderText="E-Mail" SortExpression="EMail"
UniqueName="EMail" FilterControlAltText="Filter EMail column">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Mutiert_am" DataType="System.DateTime"
FilterControlAltText="Filter Mutiert_am column" HeaderText="Mutiert_am"
SortExpression="Mutiert_am" UniqueName="Mutiert_am">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Mutierer"
FilterControlAltText="Filter Mutierer column" HeaderText="Mut."
SortExpression="Mutierer" UniqueName="Mutierer" DataType="System.Int32">
<HeaderStyle Width="40px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridCheckBoxColumn DataField="Aktiv" DataType="System.Boolean"
FilterControlAltText="Filter Aktiv column" HeaderText="Aktiv"
SortExpression="Aktiv" UniqueName="Aktiv">
<HeaderStyle Width="40px" />
<ItemStyle Wrap="False" />
</telerik:GridCheckBoxColumn>
<telerik:GridCheckBoxColumn DataField="Aktuell" DataType="System.Boolean"
FilterControlAltText="Filter Aktuell column" HeaderText="Aktuell"
SortExpression="Aktuell" UniqueName="Aktuell">
<HeaderStyle Width="60px" />
<ItemStyle Wrap="False" />
</telerik:GridCheckBoxColumn>
<telerik:GridBoundColumn DataField="AnzPlaetze"
FilterControlAltText="Filter AnzPlaetze column" HeaderText="AP"
SortExpression="AnzPlaetze" UniqueName="AnzPlaetze">
<HeaderStyle Width="40px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridTemplateColumn DataField="Firmanr" HeaderText="Detail">
<ItemTemplate>
<asp:HyperLink runat="server" ID="HyperLink1" Text='Detail' NavigateUrl='<%# "~/firmen/firmendaten1.aspx?FirmaNr=" & Eval("FirmaNr") %>'>
</asp:HyperLink>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox runat="server" ID="Textbox1" Text='<%# Bind("FirmaNr") %>'>
</asp:TextBox>
</EditItemTemplate>
</telerik:GridTemplateColumn>
<telerik:GridTemplateColumn DataField="FirmaNr" FilterControlAltText="Filter TemplateColumn1 column" HeaderText="Mail" UniqueName="TemplateColumn1">
<ItemTemplate>
<asp:HyperLink runat="server" ID="HyperLink2" Text='Mail' Target="_blank" NavigateUrl='<%# "~/Administration/MailClient.aspx?FirmaNr=" & Eval("FirmaNr") %>'>
</asp:HyperLink>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox runat="server" ID="Textbox1" Text='<%# Bind("FirmaNr") %>'>
</asp:TextBox>
</EditItemTemplate>
</telerik:GridTemplateColumn>
<telerik:GridButtonColumn ConfirmText="Firma 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 FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
<BatchEditingSettings EditType="Cell"></BatchEditingSettings>
<PagerStyle PageSizeControlType="RadComboBox"></PagerStyle>
</MasterTableView>
<PagerStyle PageSizeControlType="RadComboBox"></PagerStyle>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
</p>
<telerik:RadButton ID="RadButton1" runat="server" Text="Mail an alle aktiven Firmen">
</telerik:RadButton>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [FirmaNr], namez1 + ' '+isnull(NameZ2,'') as NameZ1, [PLZ], [Ort], [Tel], [EMail], [Erstellt_am], [Mutiert_am], [Mutierer], [Aktiv], [Aktuell], dbo.Get_Anzahl_Plaetze(firmanr) as AnzPlaetze FROM [Firma]"
DeleteCommand="update Firma set aktiv=0, mutiert_am=getdate() WHERE [FirmaNr] = @FirmaNr">
<DeleteParameters>
<asp:Parameter Name="FirmaNr" Type="Int32" />
<asp:SessionParameter Name="mutierer" Type="Int32" sessionfield="UserID" />
</DeleteParameters>
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,105 @@
'------------------------------------------------------------------------------
' <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 Firmen
'''<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>
'''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>
'''btnNeueFirma-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 btnNeueFirma As Global.Telerik.Web.UI.RadButton
'''<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>
'''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

@ -0,0 +1,20 @@
Public Class Firmen
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnNeueFirma_Click(sender As Object, e As EventArgs) Handles btnNeueFirma.Click
Dim dh As New clsDatahandling
Dim dbkey As Integer = dh.Get_NewDBKey("Firma")
If dh.Insert_Firma(dbkey) = True Then
dh.UpdateTable("Firma", "NameZ1", "*** Neue Firma ***", True, "Firmanr", dbkey)
Response.Redirect("~/firmen/firmendaten1.aspx?Firmanr=" + dbkey.ToString)
End If
End Sub
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
Response.Redirect("~/administration/mailclient.aspx?Firmen=all")
End Sub
End Class

@ -0,0 +1,68 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="FirmenaktivierungText.aspx.vb" Inherits="LPWeb.FirmenaktivierungText" ValidateRequest="false" EnableEventValidation="false" EnableViewState="false" %>
<%@ 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="RichTextEditor, Version=8.0.0.0, Culture=neutral, PublicKeyToken=3858aa6802b1223a" namespace="RTE" tagprefix="RTE" %>
<!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
{
width: 144px;
}
</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">
</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>Text für Firmenaktivierung</h2>
<p>
<table style="width:100%;">
<tr>
<td colspan="2">
<RTE:Editor ID="Editor1" runat="server" Width="907px" />
</td>
</tr>
<tr>
<td class="style1">
&nbsp;</td>
<td>
&nbsp;</td>
</tr>
</table>
</p>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

@ -0,0 +1,96 @@
'------------------------------------------------------------------------------
' <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 FirmenaktivierungText
'''<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>
'''Editor1-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 Editor1 As Global.RTE.Editor
'''<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
End Class

@ -0,0 +1,24 @@
Public Class FirmenaktivierungText
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim dh As New clsDatahandling
dh.Get_Option(15)
Me.Editor1.Text = dh.Get_Option(15)
End If
End Sub
Private Sub Editor1_SaveButtonClick(sender As Object, e As EventArgs) Handles Editor1.SaveButtonClick
Dim dh As New clsDatahandling
dh.UpdateTable("Optionen", "Inhalt", Me.Editor1.Text, True, "OptionNr", 15)
End Sub
Protected Sub Editor1_TextChanged(sender As Object, e As EventArgs) Handles Editor1.TextChanged
End Sub
End Class

@ -0,0 +1,117 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Help_Mapper.aspx.vb" Inherits="LPWeb.Help_Mapper" %>
<%@ 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" %>
<!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" />
</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>
<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>Help-Mapper</h2>
<telerik:RadGrid ID="RadGrid1" runat="server" AllowFilteringByColumn="True"
AllowPaging="True" AllowSorting="True" CellSpacing="0" Culture="de-DE"
DataSourceID="SqlDataSource1" GridLines="None" AllowAutomaticUpdates="True" AllowAutomaticDeletes="True"
AllowAutomaticInserts="True">
<MasterTableView AutoGenerateColumns="False" DataKeyNames="Nreintrag" CommandItemDisplay="Top"
DataSourceID="SqlDataSource1">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="Nreintrag" DataType="System.Int32"
FilterControlAltText="Filter Nreintrag column" HeaderText="Nr"
ReadOnly="True" SortExpression="Nreintrag" UniqueName="Nreintrag">
<HeaderStyle Width="50px" />
<ItemStyle Width="50px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Sourceurl"
FilterControlAltText="Filter Sourceurl column" HeaderText="Sourceurl"
SortExpression="Sourceurl" UniqueName="Sourceurl">
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Desturl"
FilterControlAltText="Filter Desturl column" HeaderText="Desturl"
SortExpression="Desturl" UniqueName="Desturl">
<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="Beruf 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 FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
DeleteCommand="DELETE FROM [WebHelp_Mapper] WHERE [Nreintrag] = @Nreintrag"
InsertCommand="INSERT INTO [WebHelp_Mapper] ([Sourceurl], [Desturl]) VALUES (@Sourceurl, @Desturl)"
SelectCommand="SELECT [Nreintrag], [Sourceurl], [Desturl] FROM [WebHelp_Mapper]"
UpdateCommand="UPDATE [WebHelp_Mapper] SET [Sourceurl] = @Sourceurl, [Desturl] = @Desturl WHERE [Nreintrag] = @Nreintrag">
<DeleteParameters>
<asp:Parameter Name="Nreintrag" Type="Int32" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="Sourceurl" Type="String" />
<asp:Parameter Name="Desturl" Type="String" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="Sourceurl" Type="String" />
<asp:Parameter Name="Desturl" Type="String" />
<asp:Parameter Name="Nreintrag" Type="Int32" />
</UpdateParameters>
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,87 @@
'------------------------------------------------------------------------------
' <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 Help_Mapper
'''<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>
'''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>
'''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>
'''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

@ -0,0 +1,8 @@
Public Class Help_Mapper
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,158 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Klassen.aspx.vb" Inherits="LPWeb.Klassen" %>
<%@ 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" %>
<!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" />
</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>
<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>Klassen</h2>
&nbsp;<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSource1" GridLines="None"
AllowAutomaticDeletes="True" AllowAutomaticInserts="True"
AllowAutomaticUpdates="True">
<MasterTableView DataKeyNames="KlasseNr" DataSourceID="SqlDataSource1" CommandItemDisplay="TopAndBottom"
TableLayout="Fixed">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="KlasseNr" DataType="System.Int32"
FilterControlAltText="Filter KlasseNr column" HeaderText="Nr" ReadOnly="True"
SortExpression="KlasseNr" UniqueName="KlasseNr">
<HeaderStyle Width="30px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridDropDownColumn DataField="Schulhausnr" DataSourceID="SqlDataSource2"
HeaderText="Schulhaus" ListTextField="Bezeichnung" ListValueField="Schulhausnr"
UniqueName="UserType" ColumnEditorID="DropUserType">
<ItemStyle Width="40px" />
</telerik:GridDropDownColumn>
<telerik:GridBoundColumn DataField="Bezeichnung"
FilterControlAltText="Filter Bezeichnung column" HeaderText="Bezeichnung"
SortExpression="Bezeichnung" UniqueName="Bezeichnung">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Klassengroesse" DataType="System.Int32"
FilterControlAltText="Filter Klassengroesse column" HeaderText="Klassengroesse"
SortExpression="Klassengroesse" UniqueName="Klassengroesse">
<HeaderStyle Width="50px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridDropDownColumn DataField="Lehrernr" DataSourceID="SqlDataSource3"
HeaderText="Lehrer" ListTextField="Lehrer" ListValueField="lehrernr"
UniqueName="Lehrer" ColumnEditorID="DropUserType">
<ItemStyle Width="40px" />
</telerik:GridDropDownColumn>
<telerik:GridEditCommandColumn FilterControlAltText="Filter EditCommandColumn column"
HeaderText="" ButtonType="ImageButton" ItemStyle-HorizontalAlign="Center">
<HeaderStyle Width="40px" />
<ItemStyle HorizontalAlign="Center"></ItemStyle>
</telerik:GridEditCommandColumn>
<telerik:GridButtonColumn ConfirmText="Klasse 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 FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
</p>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
DeleteCommand="update klasse set aktiv=0, mutiert_am=getdate(), mutierer=@mutierer WHERE [KlasseNr] = @KlasseNr"
InsertCommand="INSERT INTO [Klasse] ([SchulhausNr], [Bezeichnung], [Aktiv], [Erstellt_am], [Mutiert_am], [Mutierer], [Klassengroesse], [Lehrernr]) VALUES (@SchulhausNr, @Bezeichnung, 1, getdate(), getdate(), @Mutierer, @Klassengroesse, @Lehrernr)"
SelectCommand="SELECT * FROM [Klasse] where aktiv=1"
UpdateCommand="UPDATE [Klasse] SET [SchulhausNr] = @SchulhausNr, [Bezeichnung] = @Bezeichnung, [Mutiert_am] = getdate(), [Mutierer] = @Mutierer, [Klassengroesse] = @Klassengroesse, [Lehrernr] = @Lehrernr WHERE [KlasseNr] = @KlasseNr">
<DeleteParameters>
<asp:Parameter Name="KlasseNr" Type="Int32" />
<asp:SessionParameter Name="mutierer" Type="Int32" sessionfield="UserID" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="SchulhausNr" Type="Int32" />
<asp:Parameter Name="Bezeichnung" Type="String" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:Parameter Name="Erstellt_am" Type="DateTime" />
<asp:Parameter Name="Mutiert_am" Type="DateTime" />
<asp:Parameter Name="Klassengroesse" Type="Int32" />
<asp:Parameter Name="Lehrernr" Type="Int32" />
<asp:SessionParameter Name="mutierer" Type="Int32" sessionfield="UserID" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="SchulhausNr" Type="Int32" />
<asp:Parameter Name="Bezeichnung" Type="String" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:Parameter Name="Erstellt_am" Type="DateTime" />
<asp:Parameter Name="Mutiert_am" Type="DateTime" />
<asp:Parameter Name="Klassengroesse" Type="Int32" />
<asp:Parameter Name="Lehrernr" Type="Int32" />
<asp:Parameter Name="KlasseNr" Type="Int32" />
<asp:SessionParameter Name="mutierer" Type="Int32" sessionfield="UserID" />
</UpdateParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource2" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [SchulhausNr], [Bezeichnung] FROM [Schulhaus] where aktiv=1">
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource3" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [LehrerNr], [Name]+' '+vorname as Lehrer FROM [web_Lehrer] where aktiv=1">
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,105 @@
'------------------------------------------------------------------------------
' <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 Klassen
'''<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>
'''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>
'''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>
'''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
End Class

@ -0,0 +1,8 @@
Public Class Klassen
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,115 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Klassentyp.aspx.vb" Inherits="LPWeb.Klassentyp" %>
<%@ 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" %>
<!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" />
</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>
<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>Klassen</h2>
&nbsp;<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSource1" GridLines="None"
AllowAutomaticDeletes="True" AllowAutomaticInserts="True"
AllowAutomaticUpdates="True">
<MasterTableView DataKeyNames="klassenr" DataSourceID="SqlDataSource1" CommandItemDisplay="TopAndBottom"
TableLayout="Fixed">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="klassenr" DataType="System.Int32"
FilterControlAltText="Filter klassenr column" HeaderText="Klasse-Nr" ReadOnly="True"
SortExpression="klassenr" UniqueName="klassenr">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="bezeichnung"
FilterControlAltText="Filter bezeichnung column" HeaderText="Bezeichnung"
SortExpression="bezeichnung" UniqueName="bezeichnung">
</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="Klasse 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 FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
<PagerStyle PageSizeControlType="RadComboBox"></PagerStyle>
</MasterTableView>
<PagerStyle PageSizeControlType="RadComboBox"></PagerStyle>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
</p>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
DeleteCommand="update web_klasse set aktiv=0 WHERE [KlasseNr] = @KlasseNr"
InsertCommand="INSERT INTO [web_klasse] ([Bezeichnung]) VALUES (@Bezeichnung)"
SelectCommand="SELECT * FROM [Web_Klasse] where aktiv=1"
UpdateCommand="update web_klasse set bezeichnung=@bezeichnung WHERE [KlasseNr] = @KlasseNr">
<DeleteParameters>
<asp:SessionParameter Name="mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="KlasseNr" Type="Int32" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="Bezeichnung" Type="String" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="Bezeichnung" Type="String" />
</UpdateParameters>
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,87 @@
'------------------------------------------------------------------------------
' <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 Klassentyp
'''<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>
'''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>
'''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>
'''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

@ -0,0 +1,8 @@
Public Class Klassentyp
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,217 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Lehrer.aspx.vb" Inherits="LPWeb.Lehrer" %>
<%@ 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" />
</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>
<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>Lehrer</h2>
<br />
<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSource1" GridLines="None"
AllowAutomaticDeletes="True" AllowAutomaticInserts="True"
AllowAutomaticUpdates="True" AllowSorting="True">
<MasterTableView DataKeyNames="LehrerNr" DataSourceID="SqlDataSource1" CommandItemDisplay="TopAndBottom"
TableLayout="Fixed">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="LehrerNr" DataType="System.Int32"
FilterControlAltText="Filter LehrerNr column" HeaderText="LehrerNr" ReadOnly="True"
SortExpression="LehrerNr" UniqueName="LehrerNr" Visible=false>
</telerik:GridBoundColumn>
<%-- <telerik:GridBoundColumn DataField="Anrede"
FilterControlAltText="Filter Anrede column" HeaderText="Anrede"
SortExpression="Anrede" UniqueName="Anrede">
</telerik:GridBoundColumn>
--%>
<telerik:GridDropDownColumn DataField="Anrede" DataSourceID="SqlDataSource2"
HeaderText="Anrede" ListTextField="Bezeichnung" ListValueField="Eintrag"
UniqueName="Anrede" ColumnEditorID="DropAnrede">
<ItemStyle Width="40px" />
<HeaderStyle Width="80px" Wrap="False" />
</telerik:GridDropDownColumn>
<telerik:GridBoundColumn DataField="Name"
FilterControlAltText="Filter Name column" HeaderText="Name"
SortExpression="Name" UniqueName="Name">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="false" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Vorname" HeaderText="Vorname"
SortExpression="Vorname" UniqueName="Vorname"
FilterControlAltText="Filter Vorname column">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="false" />
</telerik:GridBoundColumn>
<%-- <telerik:GridBoundColumn DataField="Strasse" HeaderText="Strasse"
SortExpression="Strasse" UniqueName="Strasse"
FilterControlAltText="Filter Strasse column">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="PLZ" HeaderText="PLZ" SortExpression="PLZ"
UniqueName="PLZ" FilterControlAltText="Filter PLZ column">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Ort"
FilterControlAltText="Filter Ort column" HeaderText="Ort"
SortExpression="Ort" UniqueName="Ort">
</telerik:GridBoundColumn>
--%>
<telerik:GridBoundColumn DataField="Telefon"
FilterControlAltText="Filter Telefon column" HeaderText="Telefon"
SortExpression="Telefon" UniqueName="Telefon">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="false" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="natel"
FilterControlAltText="Filter natel column" HeaderText="Natel"
SortExpression="natel" UniqueName="natel">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="false" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="email"
FilterControlAltText="Filter email column" HeaderText="EMail"
SortExpression="email" UniqueName="email">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="false" />
</telerik:GridBoundColumn>
<%-- <telerik:GridBoundColumn DataField="schulhausnr" DataType="System.Int32"
FilterControlAltText="Filter schulhausnr column" HeaderText="schulhausnr"
SortExpression="schulhausnr" UniqueName="schulhausnr">
</telerik:GridBoundColumn>
--%> <telerik:GridDropDownColumn DataField="schulhausnr" DataSourceID="SqlDataSource3"
HeaderText="Schulhaus" ListTextField="Bezeichnung" ListValueField="schulhausnr"
UniqueName="schulhausnr" ColumnEditorID="DropAnrede">
<ItemStyle Width="180px" />
<HeaderStyle Width="180px" Wrap="False" />
</telerik:GridDropDownColumn>
<telerik:GridCheckBoxColumn DataField="Aktiv" DataType="System.Boolean"
FilterControlAltText="Filter Aktiv column" HeaderText="Aktiv"
SortExpression="Aktiv" UniqueName="Aktiv">
<ItemStyle Width="50px" />
<HeaderStyle Width="40px" />
</telerik:GridCheckBoxColumn>
<telerik:GridEditCommandColumn FilterControlAltText="Filter EditCommandColumn column"
HeaderText="" ButtonType="ImageButton" ItemStyle-HorizontalAlign="Center">
<HeaderStyle Width="40px" />
<ItemStyle HorizontalAlign="Center"></ItemStyle>
</telerik:GridEditCommandColumn>
<telerik:GridButtonColumn ConfirmText="Lehrer 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 FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
</p>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
DeleteCommand="update web_lehrer set aktiv=0, mutiert_am=getdate(),mutierer=@mutierer where lehrernr=@lehrernr"
InsertCommand="INSERT INTO [web_Lehrer] ([Anrede], [Name], [Vorname], [Strasse], [PLZ], [Ort], [Telefon], [email], [aktiv], [erstellt_am], [mutiert_am], [mutierer]) VALUES (@Anrede, @Name, @Vorname, @Strasse, @PLZ, @Ort, @Telefon, @email, 1, getdate(), getdate(), @mutierer)"
SelectCommand="SELECT * FROM [web_Lehrer]"
UpdateCommand="UPDATE [web_Lehrer] SET aktiv=@aktiv, [Anrede] = @Anrede, [Name] = @Name, [Vorname] = @Vorname, [Strasse] = @Strasse, [PLZ] = @PLZ, [Ort] = @Ort, [Telefon] = @Telefon, [email] = @email, [mutiert_am] = getdate(), [mutierer] = @mutierer, natel=@natel, schulhausnr=@schulhausnr WHERE [LehrerNr] = @LehrerNr">
<DeleteParameters>
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="LehrerNr" Type="Int32" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="Anrede" Type="String" />
<asp:Parameter Name="Name" Type="String" />
<asp:Parameter Name="Vorname" Type="String" />
<asp:Parameter Name="Strasse" Type="String" />
<asp:Parameter Name="PLZ" Type="String" />
<asp:Parameter Name="Ort" Type="String" />
<asp:Parameter Name="Telefon" Type="String" />
<asp:Parameter Name="email" Type="String" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="Anrede" Type="String" />
<asp:Parameter Name="Name" Type="String" />
<asp:Parameter Name="Vorname" Type="String" />
<asp:Parameter Name="Strasse" Type="String" />
<asp:Parameter Name="PLZ" Type="String" />
<asp:Parameter Name="Ort" Type="String" />
<asp:Parameter Name="Telefon" Type="String" />
<asp:Parameter Name="Natel" Type="String" />
<asp:Parameter Name="SchulhausNr" Type="String" />
<asp:Parameter Name="email" Type="String" />
<asp:Parameter Name="aktiv" Type="Boolean" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="LehrerNr" Type="Int32" />
</UpdateParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource2" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [Eintrag], [Bezeichnung] FROM [Web_Anrede] WHERE ([Bezeichnung] &lt;&gt; @Bezeichnung)">
<SelectParameters>
<asp:Parameter DefaultValue="Damen und Herren" Name="Bezeichnung"
Type="String" />
</SelectParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource3" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [schulhausnr], [Bezeichnung] FROM [schulhaus] WHERE aktiv=1">
<SelectParameters>
<asp:Parameter DefaultValue="Damen und Herren" Name="Bezeichnung"
Type="String" />
</SelectParameters>
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,105 @@
'------------------------------------------------------------------------------
' <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 Lehrer
'''<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>
'''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>
'''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>
'''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
End Class

@ -0,0 +1,8 @@
Public Class Lehrer
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,112 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="MailClient.aspx.vb" Inherits="LPWeb.MailClient" ValidateRequest="false" %>
<%@ 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="RichTextEditor, Version=8.0.0.0, Culture=neutral, PublicKeyToken=3858aa6802b1223a" namespace="RTE" tagprefix="RTE" %>
<!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
{
width: 136px;
}
</style>
</head>
<body><script type="text/javascript">
</script>
<form id="form1" runat="server">
<telerik:RadAjaxManager runat="server">
<AjaxSettings>
<telerik:AjaxSetting AjaxControlID="RadListBox1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadTextBox1" UpdatePanelCssClass="" />
<telerik:AjaxUpdatedControl ControlID="RadTextBox2" UpdatePanelCssClass="" />
<telerik:AjaxUpdatedControl ControlID="Editor1" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<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>
<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:LPConnectionString %>" SelectCommand="SELECT [FirmaNr], [NameZ1] FROM [Firma] WHERE ([Aktiv] =1) ORDER BY [NameZ1]">
</asp:SqlDataSource>
<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>E-Mail versenden</h2>
<p>
<table style="width:100%;">
<tr>
<td>An:</td>
<td>
<telerik:RadTextBox ID="RadTextBox1" Runat="server" Width="220px">
</telerik:RadTextBox>
</td>
</tr>
<tr>
<td>Betreff</td>
<td>
<telerik:RadTextBox ID="RadTextBox2" Runat="server" Width="300px">
</telerik:RadTextBox>
</td>
</tr>
<tr>
<td valign="top">Mail<br />
<telerik:RadListBox ID="RadListBox1" runat="server" AutoPostBack="True" Culture="de-DE" DataKeyField="FirmaNr" DataSortField="NameZ1" DataSourceID="SqlDataSource1" DataTextField="NameZ1" DataValueField="FirmaNr" Height="200px" style="top: 24px; left: 0px; height: 382px">
</telerik:RadListBox>
</td>
<td>
<RTE:Editor ID="Editor1" runat="server" Width="757px" Height="366px" />
</td>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td>&nbsp;</td>
<td>
<telerik:RadButton ID="RadButton1" runat="server" Text="Senden">
</telerik:RadButton>
</td>
</tr>
<tr>
<td>&nbsp;</td>
<td>
<asp:Label ID="lblMessage" runat="server"></asp:Label>
</td>
</tr>
</table>
</p>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

@ -0,0 +1,132 @@
'------------------------------------------------------------------------------
' <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 MailClient
'''<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>
'''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>
'''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>
'''RadTextBox1-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 RadTextBox1 As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''RadTextBox2-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 RadTextBox2 As Global.Telerik.Web.UI.RadTextBox
'''<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>
'''Editor1-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 Editor1 As Global.RTE.Editor
'''<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>
'''lblMessage-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 lblMessage As Global.System.Web.UI.WebControls.Label
'''<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
End Class

@ -0,0 +1,135 @@

Imports System.Web.Configuration
Imports System.Web.UI.WebControls
Imports Telerik.Web.UI
Imports System.Data.SqlClient
Imports System.Configuration
Imports Telerik.Web.UI.RadWebControl
Public Class MailClient
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If Request.QueryString("firmen") = "all" Then
Me.RadListBox1.Visible = True
Me.RadListBox1.SelectedIndex = 0
Else
Me.RadListBox1.Visible = False
End If
If Request.QueryString("Firmanr") <> "" Then
Prepare_Mail(4)
Else
Prepare_Mail(-1)
End If
End If
End Sub
Private Sub Prepare_Mail(ByVal mailnr As Integer)
If mailnr = -1 Then Exit Sub
Dim dm As New DataSet
Dim dh As New clsDatahandling
Dim t As New DataTable
t = dh.Get_Firma(Request.QueryString("Firmanr"))
Me.RadTextBox1.Text = t.Rows(0).Item("Email")
Dim inhalt As String
Select Case mailnr
Case 4
dm = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=" + mailnr.ToString, False, True)
Me.RadTextBox2.Text = dm.Tables(0).Rows(0).Item("Betreff")
inhalt = dm.Tables(0).Rows(0).Item("Inhalt")
dm.Tables.Clear()
dm = dh.Get_Tabledata("Select * from firmenadressen where firmanr=" + Request.QueryString("Firmanr"), False, True)
inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
Try
inhalt = inhalt.Replace("[Anrede]", dm.Tables(0).Rows(0).Item("Briefanrede"))
Catch
inhalt = inhalt.Replace("[Anrede]", "Sehr geehrte Damen und Herren")
End Try
dm.Tables.Clear()
dm = dh.Get_Tabledata("Select * from web_user where aktiv=1 and usertype=2 and firmanr=" + Request.QueryString("Firmanr"), False, True)
Try
inhalt = inhalt.Replace("[Userid]", dm.Tables(0).Rows(0).Item("username"))
Catch
inhalt = inhalt.Replace("[Userid]", "")
End Try
Me.Editor1.Text = inhalt
Case Else
inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
inhalt = inhalt.Replace("[Anrede]", "Sehr geehrte Damen und Herren")
End Select
End Sub
Private Sub Prepare_Mail_1(ByVal mailnr As Integer, firmanr As Integer)
If mailnr = -1 Then Exit Sub
Dim dm As New DataSet
Dim dh As New clsDatahandling
Dim t As New DataTable
t = dh.Get_Firma(firmanr)
Me.RadTextBox1.Text = t.Rows(0).Item("Email")
Dim inhalt As String
Select Case mailnr
Case 4
dm = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=" + mailnr.ToString, False, True)
Me.RadTextBox2.Text = dm.Tables(0).Rows(0).Item("Betreff")
inhalt = dm.Tables(0).Rows(0).Item("Inhalt")
dm.Tables.Clear()
dm = dh.Get_Tabledata("Select * from firmenadressen where firmanr=" + firmanr.ToString, False, True)
inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
Try
inhalt = inhalt.Replace("[Anrede]", dm.Tables(0).Rows(0).Item("Briefanrede"))
Catch
inhalt = inhalt.Replace("[Anrede]", "Sehr geehrte Damen und Herren")
End Try
dm.Tables.Clear()
dm = dh.Get_Tabledata("Select * from web_user where aktiv=1 and usertype=2 and firmanr=" + firmanr.ToString, False, True)
Try
inhalt = inhalt.Replace("[Userid]", dm.Tables(0).Rows(0).Item("username"))
Catch
inhalt = inhalt.Replace("[Userid]", "")
End Try
Me.Editor1.Text = inhalt
Case Else
inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
inhalt = inhalt.Replace("[Anrede]", "Sehr geehrte Damen und Herren")
End Select
End Sub
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
If RadListBox1.Visible = True Then
Dim mailer As New clsSendMail
Try
mailer.SendMailMessage("", Me.RadTextBox1.Text, "", "", Me.RadTextBox2.Text, Me.Editor1.Text)
Me.lblMessage.Text = "E-Mail wurde zugestellt"
Me.RadListBox1.SelectedIndex = Me.RadListBox1.SelectedIndex + 1
Me.Prepare_Mail_1(4, Me.RadListBox1.SelectedValue)
Catch
End Try
Else
Dim mailer As New clsSendMail
Try
mailer.SendMailMessage("", Me.RadTextBox1.Text, "", "", Me.RadTextBox2.Text, Me.Editor1.Text)
Me.lblMessage.Text = "E-Mail wurde zugestellt"
Catch ex As Exception
Me.lblMessage.Text = ex.Message
End Try
End If
End Sub
Private Sub RadListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RadListBox1.SelectedIndexChanged
Me.Prepare_Mail_1(4, Me.RadListBox1.SelectedValue)
End Sub
End Class

@ -0,0 +1,136 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Mailtexte.aspx.vb" Inherits="LPWeb.Mailtexte" ValidateRequest="false" %>
<%@ 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" %>
<!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" />
</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>
<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>Mailtexte</h2>
<telerik:RadGrid ID="RadGrid1" runat="server"
AllowPaging="True" AllowSorting="True" CellSpacing="0" Culture="de-DE"
DataSourceID="SqlDataSource1" GridLines="None"
AllowAutomaticUpdates="True" AllowAutomaticDeletes="True"
AllowAutomaticInserts="True" AutoGenerateColumns="False">
<MasterTableView DataKeyNames="NrEintrag" CommandItemDisplay="Top"
DataSourceID="SqlDataSource1">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="NrEintrag" DataType="System.Int32"
FilterControlAltText="Filter NrEintrag column" HeaderText="Nr"
ReadOnly="True" SortExpression="NrEintrag" UniqueName="NrEintrag">
<HeaderStyle Width="30px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Bezeichnung"
FilterControlAltText="Filter Bezeichnung column" HeaderText="Bezeichnung"
SortExpression="Bezeichnung" UniqueName="Bezeichnung">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Betreff"
FilterControlAltText="Filter Betreff column" HeaderText="Betreff"
SortExpression="Betreff" UniqueName="Betreff" ColumnEditorID="EditBetreff">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Inhalt"
FilterControlAltText="Filter Inhalt column" HeaderText="Inhalt"
SortExpression="Inhalt" UniqueName="Inhalt" ColumnEditorID="EditInhalt">
<HeaderStyle Width="100px" />
<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>
</Columns>
<EditFormSettings>
<EditColumn FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid> </p>
<telerik:GridTextBoxColumnEditor id="Editbetreff" runat="server" TextBoxStyle-width="500" TextBoxMode="SingleLine" TextBoxMaxLength="255" ></telerik:GridTextBoxColumnEditor>
<telerik:GridTextBoxColumnEditor id="EditInhalt" runat="server" TextBoxStyle-width="500" TextBoxMode="MultiLine" TextBoxMaxLength="4096" TextBoxStyle-Height="100" ></telerik:GridTextBoxColumnEditor>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
DeleteCommand="DELETE FROM [Web_Mailtexte] WHERE [NrEintrag] = @NrEintrag"
InsertCommand="INSERT INTO [Web_Mailtexte] ([NrEintrag], [Bezeichnung], [Betreff], [Inhalt], [Erstellt_am], [Mutiert_am], [Mutierer], [Aktiv]) VALUES (@NrEintrag, @Bezeichnung, @Betreff, @Inhalt, @Erstellt_am, @Mutiert_am, @Mutierer, @Aktiv)"
SelectCommand="SELECT [NrEintrag], [Bezeichnung], [Betreff], [Inhalt], [Erstellt_am], [Mutiert_am], [Mutierer], [Aktiv] FROM [Web_Mailtexte]"
UpdateCommand="UPDATE [Web_Mailtexte] SET [Bezeichnung] = @Bezeichnung, [Betreff] = @Betreff, [Inhalt] = @Inhalt, [Erstellt_am] = @Erstellt_am, [Mutiert_am] = @Mutiert_am, [Mutierer] = @Mutierer, [Aktiv] = @Aktiv WHERE [NrEintrag] = @NrEintrag">
<DeleteParameters>
<asp:Parameter Name="NrEintrag" Type="Int32" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="NrEintrag" Type="Int32" />
<asp:Parameter Name="Bezeichnung" Type="String" />
<asp:Parameter Name="Betreff" Type="String" />
<asp:Parameter Name="Inhalt" Type="String" />
<asp:Parameter Name="Erstellt_am" Type="DateTime" />
<asp:Parameter Name="Mutiert_am" Type="DateTime" />
<asp:Parameter Name="Mutierer" Type="Int32" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="Bezeichnung" Type="String" />
<asp:Parameter Name="Betreff" Type="String" />
<asp:Parameter Name="Inhalt" Type="String" />
<asp:Parameter Name="Erstellt_am" Type="DateTime" />
<asp:Parameter Name="Mutiert_am" Type="DateTime" />
<asp:Parameter Name="Mutierer" Type="Int32" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:Parameter Name="NrEintrag" Type="Int32" />
</UpdateParameters>
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,105 @@
'------------------------------------------------------------------------------
' <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 Mailtexte
'''<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>
'''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>
'''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>
'''Editbetreff-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 Editbetreff As Global.Telerik.Web.UI.GridTextBoxColumnEditor
'''<summary>
'''EditInhalt-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 EditInhalt As Global.Telerik.Web.UI.GridTextBoxColumnEditor
'''<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

@ -0,0 +1,8 @@
Public Class Mailtexte
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,44 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="OptionTextEditor.aspx.vb" Inherits="LPWeb.OptionTextEditor" ValidateRequest="false" %>
<%@ 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" %>
<%@ Register TagPrefix="CE" Namespace="Richtexteditor" Assembly="Richtexteditor" %>
<%@ Register assembly="RichTextEditor, Version=8.0.0.0, Culture=neutral, PublicKeyToken=3858aa6802b1223a" namespace="RTE" tagprefix="RTE" %>
<!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" />
</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>
<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>Begleittext Anmeldetalon</h2>
<RTE:Editor ID="Editor1" runat="server" Width="927px" Language="DE" />
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

@ -0,0 +1,78 @@
'------------------------------------------------------------------------------
' <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 OptionTextEditor
'''<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>
'''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>
'''Editor1-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 Editor1 As Global.RTE.Editor
'''<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
End Class

@ -0,0 +1,28 @@
Imports System.IO
Public Class OptionTextEditor
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim dh As New clsDatahandling
Dim s As String = dh.Get_Option(8)
FileOpen(1, Server.MapPath("~/temp") + "\8.rtf", OpenMode.Output)
WriteLine(1, s)
FileClose(1)
Using writer As StreamWriter = New StreamWriter(Server.MapPath("~/temp") + "\8.rtf")
writer.Write(s)
writer.Flush()
writer.Close()
End Using
Me.Editor1.LoadRTF(Server.MapPath("~/temp") + "\8.rtf")
End If
End Sub
Private Sub Editor1_SaveButtonClick(sender As Object, e As EventArgs) Handles Editor1.SaveButtonClick
Dim htmltortf = New RTE.Convertor.RTF.HTML2RTF(Me.Editor1.Text)
Dim dh As New clsDatahandling
dh.UpdateTable("Optionen", "Inhalt", htmltortf.RTF.ToString, True, "optionnr", 8)
End Sub
End Class

@ -0,0 +1,119 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Optionen.aspx.vb" Inherits="LPWeb.Optionen" %>
<%@ 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" %>
<!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
{
width: 136px;
}
</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>
<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>Optionen</h2>
<p>&nbsp;</p>
<telerik:RadGrid ID="RadGrid1" runat="server" AllowSorting="True"
AutoGenerateColumns="False" CellSpacing="0" Culture="de-DE"
DataSourceID="SqlDataSource1" GridLines="None" AllowAutomaticUpdates="true">
<MasterTableView DataKeyNames="Optionnr" DataSourceID="SqlDataSource1">
<CommandItemSettings ExportToPdfText="Export to PDF"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="Optionnr" DataType="System.Int32"
FilterControlAltText="Filter Optionnr column" HeaderText="Optionnr"
ReadOnly="True" SortExpression="Optionnr" UniqueName="Optionnr">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Bezeichnung"
FilterControlAltText="Filter Bezeichnung column" HeaderText="Bezeichnung"
SortExpression="Bezeichnung" UniqueName="Bezeichnung">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Inhalt"
FilterControlAltText="Filter Inhalt column" HeaderText="Inhalt"
SortExpression="Inhalt" UniqueName="Inhalt">
</telerik:GridBoundColumn>
<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:GridCheckBoxColumn DataField="Aktiv" DataType="System.Boolean"
FilterControlAltText="Filter Aktiv column" HeaderText="Aktiv"
SortExpression="Aktiv" UniqueName="Aktiv" Visible="false" ReadOnly="true">
</telerik:GridCheckBoxColumn>
<telerik:GridEditCommandColumn FilterControlAltText="Filter EditCommandColumn column"
HeaderText="" ButtonType="ImageButton" ItemStyle-HorizontalAlign="Center">
<HeaderStyle Width="40px" />
<ItemStyle HorizontalAlign="Center"></ItemStyle>
</telerik:GridEditCommandColumn>
</Columns>
<EditFormSettings>
<EditColumn FilterControlAltText="Filter EditCommandColumn column"></EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT * FROM [Optionen] where optionnr <> 8 and optionnr <> 7"
UpdateCommand="update optionen set inhalt=@inhalt, mutiert_am=getdate(), mutierer=@mutierer where Optionnr=@Optionnr ">
<UpdateParameters>
<asp:Parameter Name="inhalt" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="Optionnr" Type="Int32" />
</UpdateParameters>
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,87 @@
'------------------------------------------------------------------------------
' <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 Optionen
'''<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>
'''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>
'''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>
'''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

@ -0,0 +1,8 @@
Public Class Optionen
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,189 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Report_Definition.aspx.vb" Inherits="LPWeb.Report_Definition" %>
<%@ 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="AjaxControlToolkit" namespace="AjaxControlToolkit" tagprefix="asp" %>
<!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" />
</head>
<body>
<form runat="server" id="mainForm" 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>
<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>Auswertungsdefinitionen</h2>
<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSource1"
GridLines="None" AllowAutomaticDeletes="True" AllowAutomaticInserts="True"
AllowAutomaticUpdates="True" AllowSorting="True" AllowFilteringByColumn="True"
ShowGroupPanel="True">
<ClientSettings AllowDragToGroup="True">
</ClientSettings>
<MasterTableView DataKeyNames="ID" DataSourceID="SqlDataSource1" CommandItemDisplay="TopAndBottom"
TableLayout="Fixed">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="ID" DataType="System.Int32"
FilterControlAltText="Filter ID column" HeaderText="ID" ReadOnly="True"
SortExpression="ID" UniqueName="ID">
<HeaderStyle Width="30px" />
<ItemStyle Width="20px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="ParentID" DataType="System.Int32"
FilterControlAltText="Filter ParentID column" HeaderText="ParentID"
SortExpression="ParentID" UniqueName="ParentID">
<HeaderStyle Width="50px" />
<ItemStyle Width="50px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridCheckBoxColumn DataField="Folder" DataType="System.Boolean"
FilterControlAltText="Filter Folder column" HeaderText="Folder"
SortExpression="Folder" UniqueName="Folder">
<HeaderStyle Width="50px" />
<ItemStyle Width="50px" Wrap="False" />
</telerik:GridCheckBoxColumn>
<telerik:GridBoundColumn DataField="Bezeichnung"
FilterControlAltText="Filter Bezeichnung column" HeaderText="Bezeichnung"
SortExpression="Bezeichnung" UniqueName="Bezeichnung">
<HeaderStyle Width="200px" />
<ItemStyle Width="250px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="SQL"
FilterControlAltText="Filter SQL column" HeaderText="SQL" SortExpression="SQL"
UniqueName="SQL" ColumnEditorID="EditSQL" >
<HeaderStyle Width="150px" />
<ItemStyle Width="150px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="SQLType"
FilterControlAltText="Filter SQLType column" HeaderText="SQLType"
SortExpression="SQLType" UniqueName="SQLType">
<HeaderStyle Width="70px" />
<ItemStyle Width="70px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Reportdatei"
FilterControlAltText="Filter Reportdatei column" HeaderText="Reportdatei"
SortExpression="Reportdatei" UniqueName="Reportdatei">
<HeaderStyle Width="120px" />
<ItemStyle Width="120px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridDropDownColumn DataField="Dokumentnr" DataSourceID="SqlDataSource2"
HeaderText="Dokument" ListTextField="Bezeichnung" ListValueField="Eintragnr"
UniqueName="Dokumentnr" ColumnEditorID="DropDokumentnr">
<HeaderStyle Width="120px" />
<ItemStyle Width="120px" Wrap="False" />
</telerik:GridDropDownColumn>
<telerik:GridEditCommandColumn FilterControlAltText="Filter EditCommandColumn column"
HeaderText="" ButtonType="ImageButton" ItemStyle-HorizontalAlign="Center">
<HeaderStyle Width="40px" />
<ItemStyle HorizontalAlign="Center"></ItemStyle>
</telerik:GridEditCommandColumn>
<telerik:GridButtonColumn ConfirmText="Auswertung/Gruppenelement 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 FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
<telerik:GridTextBoxColumnEditor id="EditSQL" runat="server" TextBoxStyle-width="500" TextBoxMode="MultiLine" TextBoxMaxLength="1024" TextBoxStyle-Height="100" ></telerik:GridTextBoxColumnEditor>
<telerik:GridDropDownListColumnEditor ID="DropDokumentnr" runat="server" DropDownStyle-Width="200px"></telerik:GridDropDownListColumnEditor>
&nbsp;<p>
Upload Report-Datei:
</p>
<asp:FileUpload ID="FileUpload1" runat="server" Width="400px" /><br />
<telerik:RadButton ID="btnUppload" runat="server" Text="Upload">
</telerik:RadButton>
<br />
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [ID], [ParentID], [Folder], [Bezeichnung], [SQL], [SQLType], [Reportdatei], DokumentNr FROM [Web_Report] where aktiv=1"
DeleteCommand="update web_report set mutierer=@mutierer, aktiv=0, mutiert_am=getdate() where id=@id"
InsertCommand="insert web_report (parentid,folder,bezeichnung, sql, sqltype, reportdatei, aktiv, erstellt_am, mutiert_am, mutierer,DokumentNr) values (@parentid,@folder,@bezeichnung,@sql,@sqltype,@reportdatei,1,getdate(),getdate(),@mutierer,@DokumentNr)"
UpdateCommand="Update Web_Report set Parentid=@Parentid, Folder=@Folder, Bezeichnung=@Bezeichnung, SQL=@SQL, SQLType=@SQLType, Reportdatei=@Reportdatei, mutiert_am=getdate(), mutierer=@mutierer,DokumentNr=@DokumentNr where id=@id">
<DeleteParameters>
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="id" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="parentid" />
<asp:Parameter Name="folder" />
<asp:Parameter Name="bezeichnung" />
<asp:Parameter Name="sql" />
<asp:Parameter Name="sqltype" />
<asp:Parameter Name="reportdatei" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="DokumentNr" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="Parentid" />
<asp:Parameter Name="Folder" />
<asp:Parameter Name="Bezeichnung" />
<asp:Parameter Name="SQL" />
<asp:Parameter Name="SQLType" />
<asp:Parameter Name="Reportdatei" />
<asp:Parameter Name="DokumentNr" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="id" />
</UpdateParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource2" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [EintragNr], [Bezeichnung] FROM [Web_Dokumenttexte] order by bezeichnung">
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,132 @@
'------------------------------------------------------------------------------
' <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 Report_Definition
'''<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>
'''mainForm-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 mainForm 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>
'''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>
'''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>
'''EditSQL-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 EditSQL As Global.Telerik.Web.UI.GridTextBoxColumnEditor
'''<summary>
'''DropDokumentnr-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 DropDokumentnr As Global.Telerik.Web.UI.GridDropDownListColumnEditor
'''<summary>
'''FileUpload1-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 FileUpload1 As Global.System.Web.UI.WebControls.FileUpload
'''<summary>
'''btnUppload-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 btnUppload 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
End Class

@ -0,0 +1,16 @@
Public Class Report_Definition
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnUppload_Click(sender As Object, e As EventArgs) Handles btnUppload.Click
Dim destfn As String
destfn = System.IO.Path.GetFileName(Me.FileUpload1.FileName)
Me.FileUpload1.SaveAs(Server.MapPath("~/Reporting/") + destfn)
End Sub
End Class

@ -0,0 +1,120 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="SQLQuery.aspx.vb" Inherits="LPWeb.SQLQuery" %>
<%@ 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" %>
<!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
{
width: 136px;
}
.auto-style4 {
height: 153px;
}
.auto-style5 {
height: 50px;
width: 309px;
}
.auto-style6 {
height: 20px;
width: 309px;
}
.auto-style7 {
height: 153px;
width: 51px;
}
.auto-style8 {
width: 51px;
}
</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>
<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>SQL-Query</h2>
<p>
<table style="width:100%;">
<tr>
<td class="auto-style7" valign="top" rowspan="2">Query</td>
<td class="auto-style6" valign="top">
<telerik:RadComboBox ID="RadComboBox1" Runat="server" Culture="de-DE" DataSourceID="SqlDataSource1" DataTextField="Bezeichnung" DataValueField="Beschreibung" AutoPostBack="True" style="margin-left: 0px" Width="400px">
</telerik:RadComboBox>
</td>
<td class="auto-style4" colspan="2" valign="top" rowspan="2">
</td>
</tr>
<tr>
<td class="auto-style5" valign="top">
<telerik:RadTextBox ID="RadTextBox1" Runat="server" Width="586px" EmptyMessage="SQL-String" Height="107px" TextMode="MultiLine">
</telerik:RadTextBox>
</td>
</tr>
<tr>
<td class="auto-style8">&nbsp;</td>
<td colspan="2">
<telerik:RadButton ID="RadButton1" runat="server" Text="Ausführen">
</telerik:RadButton>
</td>
<td>&nbsp;</td>
</tr>
<tr>
<td class="auto-style8">&nbsp;</td>
<td colspan="3">
<telerik:RadGrid ID="RadGrid1" runat="server" CellSpacing="0" Culture="de-DE" GridLines="None">
<ExportSettings ExportOnlyData="True" IgnorePaging="True">
</ExportSettings>
<MasterTableView CommandItemDisplay="Top">
<CommandItemSettings ShowExportToCsvButton="True" ShowExportToExcelButton="True" />
<RowIndicatorColumn Visible="False">
</RowIndicatorColumn>
<ExpandCollapseColumn Created="True">
</ExpandCollapseColumn>
</MasterTableView>
</telerik:RadGrid>
</td>
</tr>
</table>
</p>
<p>
<asp:Label ID="Label1" runat="server"></asp:Label>
</p>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [Nreintrag], [Bezeichnung], [Beschreibung] FROM [SQL_Queries] ORDER BY [Bezeichnung]">
</asp:SqlDataSource>
</form>
</body>
</html>

@ -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 SQLQuery
'''<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>
'''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>
'''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>
'''RadTextBox1-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 RadTextBox1 As Global.Telerik.Web.UI.RadTextBox
'''<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>
'''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>
'''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>
'''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

@ -0,0 +1,50 @@
Public Class SQLQuery
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
End If
End Sub
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
Try
Me.RadGrid1.DataSource = Nothing
Dim dh As New clsDatahandling
Dim dt As New DataSet
dt = dh.Get_Tabledata(Me.RadTextBox1.Text, False, True)
Me.RadGrid1.DataSource = dt.Tables(0)
Me.RadGrid1.Rebind()
Catch ex As Exception
Try
If Me.RadTextBox1.Text <> "" Then Me.Label1.Text = ex.Message
Catch
End Try
End Try
' Me.RadGrid1.Rebind()
End Sub
Private Sub RadGrid1_NeedDataSource(sender As Object, e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
Exit Sub
Try
Dim dh As New clsDatahandling
Dim dt As New DataSet
dt = dh.Get_Tabledata(Me.RadTextBox1.Text, False, True)
Me.RadGrid1.DataSource = dt.Tables(0)
Catch ex As Exception
Try
If Me.RadTextBox1.Text <> "" Then Me.Label1.Text = ex.Message
Catch
End Try
End Try
End Sub
Protected Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles RadComboBox1.SelectedIndexChanged
Me.RadTextBox1.Text = Me.RadComboBox1.SelectedValue
End Sub
End Class

@ -0,0 +1,835 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Schueler.aspx.vb" Inherits="LPWeb.SchuelerAdmin" %>
<%@ 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" %>
<!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
{
width: 220px;
}
.style2
{
width: 220px;
height: 111px;
}
.style4
{
width: 256px;
}
.style5
{
}
.style6
{
width: 78px;
}
.style8
{
width: 81px;
}
.style9
{
width: 311px;
}
.auto-style4 {
width: 258px;
}
</style>
<script type="text/javascript" id="telerikClientEvents1">
//<![CDATA[
function RadGridZuteilung_OnRowDeleted(sender,args)
{
//Add JavaScript handler code here
}
//]]>
</script>
</head>
<body>
<script type="text/javascript">
function pageLoad() {
try
{
var list = $find("<%=RadListBox1.ClientID %>");
var item = list.get_selectedItem();
if (item == null) {
var items = list.get_items();
item = items.getItem(0);
item.set_selected(true);
}
item.scrollIntoView();
}
catch(err){};
}
function RadGridFreiePlaetze_OnRowContextMenu(sender, eventArgs) {
var menu = $find("<%=RadMenu1.ClientID %>");
var evt = eventArgs.get_domEvent();
var index = eventArgs.get_itemIndexHierarchical();
document.getElementById("radGridClickedRowIndex").value = index;
sender.get_masterTableView().selectItem(sender.get_masterTableView().get_dataItems()[index].get_element(), true);
menu.show(evt);
evt.cancelBubble = true;
evt.returnValue = false;
if (evt.stopPropagation) {
evt.stopPropagation();
evt.preventDefault();
}
}
function RadGridSchuelerberuf_OnRowClick(sender, eventArgs) {
var index = eventArgs.get_itemIndexHierarchical();
document.getElementById("SchuelerBeruf").value = index;
}
</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" />
<telerik:AjaxUpdatedControl ControlID="Panel2" />
<telerik:AjaxUpdatedControl ControlID="Panel4"
LoadingPanelID="RadAjaxLoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadComboBox2">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="Panel1" />
<telerik:AjaxUpdatedControl ControlID="Panel2" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="chkAlleSchuler">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="Panel1"
LoadingPanelID="RadAjaxLoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadListBox1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="Panel2" />
<telerik:AjaxUpdatedControl ControlID="RadGridSchuelerberuf" UpdatePanelCssClass="" />
<telerik:AjaxUpdatedControl ControlID="RadGridZuteilung" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="btnneuerschueler">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadListBox1"
LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Panel2" LoadingPanelID="RadAjaxLoadingPanel1" UpdatePanelCssClass="" />
<telerik:AjaxUpdatedControl ControlID="Panel4" LoadingPanelID="RadAjaxLoadingPanel1" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadButton1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="Panel1" LoadingPanelID="RadAjaxLoadingPanel1" />
</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="Panel3" LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Panel4" LoadingPanelID="RadAjaxLoadingPanel1" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadGridSchuelerberuf">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadGridZugeteilt" />
<telerik:AjaxUpdatedControl ControlID="RadGridFreiePlaetze" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadGridZuteilung">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadGridFreiePlaetze"
LoadingPanelID="RadAjaxLoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadMenu1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadGridZuteilung" LoadingPanelID="RadAjaxLoadingPanel1" UpdatePanelCssClass="" />
<telerik:AjaxUpdatedControl ControlID="RadGridFreiePlaetze" LoadingPanelID="RadAjaxLoadingPanel1" UpdatePanelCssClass="" />
</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">
<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 class="style2" rowspan="3">
<asp:Panel ID="Panel1" runat="server" BorderStyle="None"
height="416px" 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 />
<telerik:RadTextBox ID="RadTextBox1" Runat="server" Label="Lehrer:" ReadOnly="true" LabelWidth="43px" Width="180px">
</telerik:RadTextBox><br />
<telerik:RadComboBox ID="RadComboBox2" Runat="server" Culture="de-DE" DataSourceID="SqlDataSource2" DataTextField="Schuelername" DataValueField="Schuelernr" AutoPostBack="True">
</telerik:RadComboBox>
<telerik:RadListBox ID="RadListBox1" runat="server" Culture="de-DE"
DataSourceID="SqlDataSource2" DataTextField="Schuelername"
DataValueField="Schuelernr" Height="340px"
Width="198px" OnClientSelectedIndexChanged="RefreshDescription"
EmptyMessage="Keine Daten vorhanden" >
<ButtonSettings TransferButtons="All" />
<EmptyMessageTemplate>
Keine Daten vorhanden
</EmptyMessageTemplate>
</telerik:RadListBox>
<asp:CheckBox ID="chkAlleSchuler" runat="server" AutoPostBack="True"
Text="Alle Schüler" />
</asp:Panel>
</td>
<td valign="top" colspan="2" >
<asp:Panel ID="Panel2" runat="server" height="111px" BackColor="#CCE6FF">
<table style="width:100%; height: 85px;">
<tr>
<td>
<strong>Schüler</strong></td>
<td class="riLaabel">
&nbsp;</td>
<td class="style4">
<telerik:RadTextBox ID="txtname" Runat="server" Label="Name" LabelWidth="80px"
Width="220px" TabIndex="1">
</telerik:RadTextBox>
</td>
<td colspan="2">
<telerik:RadComboBox ID="cbklasse" Runat="server" Culture="de-DE"
DataSourceID="SqlDataSource1" DataTextField="Bezeichnung"
DataValueField="KlasseNr" Label="Klasse&nbsp;" LabelCssClass="riLabel"
Width="100px" TabIndex="4">
</telerik:RadComboBox>
&nbsp;<telerik:RadTextBox ID="lblLehrer" Runat="server" Enabled="False">
</telerik:RadTextBox>
</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="Typ&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Width="100px" 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>
<asp:CheckBox ID="chkaktiv" runat="server" Text="Aktiv" TextAlign="Left"
TabIndex="6" />
&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td class="riLabel">
&nbsp;</td>
<td class="riLabel">
&nbsp;</td>
<td class="style5">
<telerik:RadButton ID="RadButton1" runat="server" Text="Schülerdaten speichern"
TabIndex="7">
</telerik:RadButton>
</td>
<td colspan="2" align="right">
<telerik:RadButton ID="RadButton2" runat="server" Text="Schülerblatt drucken">
</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>
</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="riLabel" style="width: 81px">
<asp:Label ID="Label2" runat="server" CssClass="riLabel" Text="Beruf-Nr"></asp:Label>
</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 />
</td>
</tr>
<tr>
<td valign="top" class="auto-style4" >
Berufswahl</td>
<td valign="top" >
Zuteilung</td>
</tr>
<tr>
<td valign="top" class="auto-style4" >
<asp:Panel ID="Panel4" runat="server" Height="173px" Width="250px">
<telerik:RadGrid ID="RadGridSchuelerberuf"
runat="server" AutoGenerateColumns="False"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSource5"
GridLines="None" AllowAutomaticDeletes="True"
AllowAutomaticUpdates="True" AllowSorting="True">
<MasterTableView DataSourceID="SqlDataSource5" CommandItemDisplay="Top"
TableLayout="Fixed" DataKeyNames="SchuelerBerufNr">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren" ShowAddNewRecordButton="False" ShowRefreshButton="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="Beruf"
FilterControlAltText="Filter Beruf column" HeaderText="Beruf"
SortExpression="Beruf" UniqueName="Beruf" ReadOnly="true">
<HeaderStyle Width="120px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="BerufNr" DataType="System.Int32"
FilterControlAltText="Filter BerufNr column" HeaderText="BerufNr"
SortExpression="BerufNr" UniqueName="BerufNr" Visible="False"
ReadOnly="true">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Bemerkung"
FilterControlAltText="Filter Bemerkung column" HeaderText="Bemerkung"
SortExpression="Bemerkung" UniqueName="Bemerkung" Visible="False">
<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="Prio"
SortExpression="Prioritaet" UniqueName="Prioritaet">
<HeaderStyle Width="30px" />
<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>
<ClientSettings EnablePostBackOnRowClick="true">
<Selecting AllowRowSelect="true" />
<ClientEvents OnRowClick="RadGridSchuelerberuf_OnRowClick" />
</ClientSettings>
</telerik:RadGrid>
</asp:Panel>
</td>
<td valign="top" >
<asp:Panel ID="Panel5" runat="server" Height="174px" Width="299px">
<telerik:RadGrid ID="RadGridZuteilung"
runat="server" AutoGenerateColumns="False" AllowAutomaticDeletes="True" AllowAutomaticUpdates="true"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSourceZuteilung"
GridLines="None" Width="426px" >
<ClientSettings>
<ClientEvents OnRowDeleted="RadGridZuteilung_OnRowDeleted" />
</ClientSettings>
<MasterTableView CommandItemDisplay="Top" DataKeyNames="EintragNr"
DataSourceID="SqlDataSourceZuteilung" TableLayout="Fixed">
<CommandItemSettings AddNewRecordText="Neuer Datensatz"
ExportToExcelText="Excel-Export" ExportToPdfText="PDF-Export"
RefreshText="Aktualisieren" ShowAddNewRecordButton="False" />
<RowIndicatorColumn FilterControlAltText="Filter RowIndicator column"
Visible="True">
</RowIndicatorColumn>
<ExpandCollapseColumn FilterControlAltText="Filter ExpandColumn column"
Visible="True">
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="EintragNr" DataType="System.Int32"
FilterControlAltText="Filter EintragNr column" HeaderText="EintragNr"
ReadOnly="True" SortExpression="EintragNr" UniqueName="EintragNr">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Bezeichnung"
FilterControlAltText="Filter Bezeichnung column" HeaderText="Beruf"
SortExpression="Bezeichnung" UniqueName="Bezeichnung" ReadOnly="true">
<HeaderStyle Width="150px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Zeit"
FilterControlAltText="Filter Zeit column" HeaderText="Zeit"
SortExpression="Zeit" UniqueName="Zeit" ReadOnly="true">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="NameZ1"
FilterControlAltText="Filter NameZ1 column" HeaderText="Firma"
SortExpression="NameZ1" UniqueName="NameZ1" ReadOnly="true">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Bemerkung" ColumnEditorID="EditBemerkung"
FilterControlAltText="Filter Bemerkung column" HeaderText="Bem."
SortExpression="Bemerkung" UniqueName="Bemerkung">
<HeaderStyle Width="30px" />
<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 ButtonType="ImageButton" CommandName="Delete"
ConfirmDialogType="RadWindow" ConfirmText="Zuteilung wirklich löschen?"
ConfirmTitle="Delete" HeaderText="" ItemStyle-HorizontalAlign="Center"
Text="Delete" UniqueName="DeleteColumn">
<ItemStyle CssClass="MyImageButton" HorizontalAlign="Center" />
<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>
<telerik:GridTextBoxColumnEditor runat="server" ID="EditBemerkung" TextBoxMode="MultiLine" TextBoxStyle-Width="400px"></telerik:GridTextBoxColumnEditor>
</asp:Panel>
</td>
</tr>
</table>
<p>
<table bgcolor="#FFFFCC" style="width:100%;">
<tr>
<td valign="top"><b>Zuteilungen</b></td>
<td valign="top"><b>Freie Plätze</b></td>
</tr>
<tr>
<td valign="top">
<telerik:RadGrid ID="RadGridZugeteilt" runat="server" CellSpacing="0" Culture="de-DE"
DataSourceID="SQLDatasourceVergeben" GridLines="None" AllowAutomaticDeletes="true"
AutoGenerateColumns="False" AllowSorting="True" AllowPaging="True" PageSize="5" Width="341px">
<MasterTableView DataSourceID="SQLDatasourceVergeben" DataKeyNames="SchuelerNr">
<CommandItemSettings ExportToPdfText="Export to PDF"></CommandItemSettings>
<RowIndicatorColumn Visible="True"
FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True"
FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridTemplateColumn UniqueName="Schueler_Name" HeaderText="Schüler" SortExpression="Schueler_Name" >
<ItemTemplate>
<asp:HyperLink runat="server" ID="HyperLink1" target="_blank" NavigateUrl='<%# "~/Administration/Schueler.aspx?Schuelernr=" & Eval("Schuelernr") %>'
Text='<%# Eval("Schueler_Name") %>'>
</asp:HyperLink>
</ItemTemplate>
<HeaderStyle Width="150px" />
<ItemStyle Wrap="False" />
</telerik:GridTemplateColumn>
<telerik:GridBoundColumn DataField="SchuelerNr" DataType="System.Int32"
FilterControlAltText="Filter SchuelerNr column" HeaderText="SchuelerNr"
ReadOnly="True" SortExpression="SchuelerNr" UniqueName="SchuelerNr"
Visible="False">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Schueler_Name"
FilterControlAltText="Filter Schueler_Name column" HeaderText="Schüler"
ReadOnly="True" SortExpression="Schueler_Name" UniqueName="Schueler_Name" Visible="false" >
<HeaderStyle Width="150px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Bezeichnung"
FilterControlAltText="Filter Bezeichnung column" HeaderText="Bezeichnung"
SortExpression="Bezeichnung" UniqueName="Bezeichnung" Visible="False">
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Prioritaet" DataType="System.Int32"
FilterControlAltText="Filter Prioritaet column" HeaderText="Prio"
SortExpression="Prioritaet" UniqueName="Prioritaet">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Zeit"
FilterControlAltText="Filter Zeit column" HeaderText="Zeit"
SortExpression="Zeit" UniqueName="Zeit">
<HeaderStyle Width="200px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Berufnr" DataType="System.Int32"
FilterControlAltText="Filter Berufnr column" HeaderText="Berufnr"
SortExpression="Berufnr" UniqueName="Berufnr" Visible="False">
</telerik:GridBoundColumn>
</Columns>
<EditFormSettings>
<EditColumn FilterControlAltText="Filter EditCommandColumn column"></EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
</td>
<td valign="top">
<telerik:RadGrid ID="RadGridFreiePlaetze"
runat="server" AutoGenerateColumns="False"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSourceFreiePlaetze"
GridLines="None" AllowSorting="True" AllowPaging="True" PageSize="5" >
<ClientSettings>
<ClientEvents OnRowContextMenu="RadGridFreiePlaetze_OnRowContextMenu" />
</ClientSettings>
<MasterTableView DataSourceID="SqlDataSourceFreiePlaetze" CommandItemDisplay="Top" DataKeyNames="FirmaBerufNr"
TableLayout="Fixed">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren" ShowAddNewRecordButton="False">
</CommandItemSettings>
<RowIndicatorColumn Visible="True"
FilterControlAltText="Filter RowIndicator column">
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True"
FilterControlAltText="Filter ExpandColumn column">
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="FirmaBerufNr"
FilterControlAltText="Filter column column" HeaderText="FirmaBerufNr"
UniqueName="FirmaBerufnr" Visible="true">
<HeaderStyle Width="50px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="NameZ1"
FilterControlAltText="Filter column column" HeaderText="Firma"
UniqueName="column">
<HeaderStyle Width="200px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Zeit"
FilterControlAltText="Filter column1 column" HeaderText="Zeit"
UniqueName="column1">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Anzahl"
FilterControlAltText="Filter column2 column" HeaderText="Plätze"
UniqueName="column2">
<HeaderStyle Width="60px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Typ" FilterControlAltText="Filter column3 column" HeaderText="Typ" UniqueName="column3">
</telerik:GridBoundColumn>
</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>
</td>
</tr>
</table>
</p>
</p>
</div>
</div>
<input type="hidden" id="radGridClickedRowIndex" name="radGridClickedRowIndex" />
<input type="hidden" id="SchuelerBeruf" name="SchuelerBeruf" />
<telerik:RadContextMenu ID="RadMenu1" runat="server" Skin="Vista" OnItemClick="RadMenu1_ItemClick" style="top: 985px; left: 0px">
<Items>
<telerik:RadMenuItem Text="Zuteilen" />
</Items>
</telerik:RadContextMenu>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [KlasseNr], [Bezeichnung] FROM [Klasse] WHERE aktiv=1 and (lehrernr=@lehrernr or @lehrernr=0)" >
<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" >
</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>
<asp:SqlDataSource ID="SqlDataSourceZuteilung" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT EintragNr, NameZ1, Bezeichnung, Zeit, Bemerkung FROM View_Zuteilung WHERE (SchuelerNr = @SchuelerNr)"
DeleteCommand="Update Zuteilung set aktiv=0, mutiert_am=getdate(),mutierer=@mutierer where eintragnr=@Eintragnr"
UpdateCommand="Update zuteilung set bemerkung=@bemerkung, mutiert_am=getdate(), mutierer=@mutierer where eintragnr=@eintragnr">
<SelectParameters>
<asp:ControlParameter ControlID="RadListBox1" DefaultValue="18"
Name="SchuelerNr" PropertyName="SelectedValue" Type="Int32" />
</SelectParameters>
<DeleteParameters>
<asp:Parameter Name="EintragNr" type="Int32" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
</DeleteParameters>
<UpdateParameters>
<asp:Parameter Name="EintragNr" type="Int32" />
<asp:Parameter Name="Bemerkung" Type="String" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
</UpdateParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SQLDatasourceVergeben" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="Select * from View_Zugeteilt where berufnr=@Berufnr and schuelernr<>@Schuelernr">
<SelectParameters>
<asp:SessionParameter DefaultValue="0" Name="BerufNr" SessionField="BerufNr"
Type="Int32" />
<asp:ControlParameter ControlID="cbklassentyp" DefaultValue="0" Name="klassentyp" PropertyName="Selectedvalue" Type="Int32" />
<asp:ControlParameter ControlID="Radlistbox1" DefaultValue="0" Name="schuelernr" PropertyName="Selectedvalue" Type="Int32" />
</SelectParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSourceFreiePlaetze" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="get_offene_plaetze" SelectCommandType="StoredProcedure">
<SelectParameters>
<asp:SessionParameter DefaultValue="0" Name="berufnr" SessionField="berufnr" Type="Int32" />
<asp:ControlParameter ControlID="cbklassentyp" DefaultValue="0" Name="klassentyp" PropertyName="Selectedvalue" Type="Int32" />
</SelectParameters>
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,456 @@
'------------------------------------------------------------------------------
' <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 SchuelerAdmin
'''<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>
'''RadTextBox1-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 RadTextBox1 As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''RadComboBox2-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 RadComboBox2 As Global.Telerik.Web.UI.RadComboBox
'''<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>
'''lblLehrer-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 lblLehrer As Global.Telerik.Web.UI.RadTextBox
'''<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>
'''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>
'''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>
'''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>
'''Panel5-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 Panel5 As Global.System.Web.UI.WebControls.Panel
'''<summary>
'''RadGridZuteilung-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 RadGridZuteilung As Global.Telerik.Web.UI.RadGrid
'''<summary>
'''EditBemerkung-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 EditBemerkung As Global.Telerik.Web.UI.GridTextBoxColumnEditor
'''<summary>
'''RadGridZugeteilt-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 RadGridZugeteilt As Global.Telerik.Web.UI.RadGrid
'''<summary>
'''RadGridFreiePlaetze-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 RadGridFreiePlaetze As Global.Telerik.Web.UI.RadGrid
'''<summary>
'''RadMenu1-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 RadMenu1 As Global.Telerik.Web.UI.RadContextMenu
'''<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
'''<summary>
'''SqlDataSourceZuteilung-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 SqlDataSourceZuteilung As Global.System.Web.UI.WebControls.SqlDataSource
'''<summary>
'''SQLDatasourceVergeben-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 SQLDatasourceVergeben As Global.System.Web.UI.WebControls.SqlDataSource
'''<summary>
'''SqlDataSourceFreiePlaetze-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 SqlDataSourceFreiePlaetze As Global.System.Web.UI.WebControls.SqlDataSource
End Class

@ -0,0 +1,301 @@
Imports System.Web.UI.WebControls
Imports Telerik.Web.UI
Imports System.Data.SqlClient
Imports System.Configuration
Imports Telerik.Web.UI.RadWebControl
Public Class SchuelerAdmin
Inherits System.Web.UI.Page
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
Session("Admin") = "True"
If Session.Item("Admin") = "True" Then
Session("Lehrer") = 0
Load_Admin()
Else
Session("Lehrer") = 1
End If
If Request.QueryString("Schuelernr") <> "" Then
Me.chkAlleSchuler.Checked = True
Refresh_RadListBox1()
selectentry(Me.Request.QueryString("Schuelernr"))
refresh_data(Me.Request.QueryString("Schuelernr"))
End If
End If
Get_Lehrername()
update_zugeteilt()
Me.Form.DefaultButton = Me.btnInsertBeruf.UniqueID
RadWindowManager1.Windows.Clear()
End Sub
Sub update_zugeteilt()
Try
Dim dh As New clsDatahandling
Dim ds As New DataSet
ds = dh.Get_Tabledata("SELECT dbo.SchuelerBeruf.BerufNr, dbo.Beruf.Bezeichnung FROM dbo.SchuelerBeruf INNER JOIN dbo.Beruf ON dbo.SchuelerBeruf.BerufNr = dbo.Beruf.Berufnr where schuelerberufnr=" + Me.RadGridSchuelerberuf.SelectedValue.ToString, False, True)
Session("Berufnr") = ds.Tables(0).Rows(0).Item(0)
Me.RadGridZugeteilt.DataBind()
Me.RadGridFreiePlaetze.DataBind()
Catch ex As Exception
End Try
End Sub
Protected Sub Load_Admin()
Me.SqlDataSource1.SelectCommand = "SELECT [KlasseNr], [Bezeichnung] FROM [Klasse] WHERE aktiv=1"
Me.chkAlleSchuler.Visible = True
Me.RadComboBox1.DataBind()
Me.cbklasse.DataBind()
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)
Catch ex As Exception
Me.txtname.Text = ""
Me.txtvorname.Text = ""
Me.txtBemerkung.Text = ""
End Try
get_Lehrername()
End Sub
Private Sub Get_Lehrername()
Try
Dim dh As New clsDatahandling
Dim klassenr As Integer = Me.RadComboBox1.SelectedValue
Dim ds1 As New DataSet
ds1 = dh.Get_Tabledata("SELECT dbo.web_Lehrer.Name+' '+dbo.web_Lehrer.Vorname as Lehrername FROM dbo.Klasse INNER JOIN dbo.web_Lehrer ON dbo.Klasse.Lehrernr = dbo.web_Lehrer.LehrerNr WHERE dbo.Klasse.KlasseNr = " + klassenr.ToString, False, True)
Me.RadTextBox1.Text = ds1.Tables(0).Rows(0).Item(0)
Catch ex As Exception
RadTextBox1.Text = ""
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()
selectentry(schuelernr)
'Me.LblSchuelertyp.Text = "(" + Me.cbKlassentyp.Text + ")"
Me.lblLehrer.Text = dh.Get_Lehrer(ds.Tables(0).Rows(0).Item("Klassenr"))
Me.txtname.Focus()
End Sub
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
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
End Sub
Private Sub RadListBox1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles RadListBox1.SelectedIndexChanged
refresh_data(Me.RadListBox1.SelectedValue.ToString)
End Sub
Protected Sub btnInsertBeruf_Click(sender As Object, e As EventArgs) Handles btnInsertBeruf.Click
Dim errormessage As String = ""
errormessage = Validate_Form()
If errormessage <> "" Then
Showmessage(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 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()
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
Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles btnneuerschueler.Click
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 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
Private Sub Showmessage(ByVal typ As Integer, ByVal meldung As String)
Dim newwindow As New Telerik.Web.UI.RadWindow
Session.Item("ErrorMessage") = meldung
newwindow.NavigateUrl = "~/UserControls/Dialogbox.aspx?type=" + typ.ToString
newwindow.ID = "RadWindow2"
newwindow.Skin = "Default"
newwindow.VisibleOnPageLoad = True
newwindow.AutoSize = True
RadWindowManager1.Windows.Clear()
RadWindowManager1.Windows.Add(newwindow)
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 RadMenu1_ItemClick(ByVal sender As Object, ByVal e As RadMenuEventArgs) Handles RadMenu1.ItemClick
Try
Dim radGridClickedRowIndex As Integer
Dim SchuelerBerufRowIndex As Integer
radGridClickedRowIndex = Convert.ToInt32(Request.Form("radGridClickedRowIndex"))
SchuelerBerufRowIndex = Convert.ToInt32(Request.Form("SchuelerBeruf"))
Select Case e.Item.Text
Case "Zuteilen"
Dim schuelerberufnr As Integer = Me.RadGridSchuelerberuf.MasterTableView.DataKeyValues(SchuelerBerufRowIndex).Item("SchuelerBerufNr")
Dim firmaberufnr As Integer = Me.RadGridFreiePlaetze.MasterTableView.DataKeyValues(radGridClickedRowIndex).Item("FirmaBerufNr")
Dim dh As New clsDatahandling
dh.Insert_Zuteilung(schuelerberufnr, firmaberufnr, Session("Userid"))
Me.RadGridZuteilung.DataBind()
Me.RadGridFreiePlaetze.DataBind()
End Select
Catch ex As Exception
End Try
End Sub 'RadMenu1_ItemClick
Private Sub RadGridZuteilung_ItemDeleted(sender As Object, e As Telerik.Web.UI.GridDeletedEventArgs) Handles RadGridZuteilung.ItemDeleted
Me.RadGridFreiePlaetze.DataBind()
Me.RadGridZugeteilt.DataBind()
End Sub
Protected Sub cbBeruf_SelectedIndexChanged(sender As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles cbBeruf.SelectedIndexChanged
Me.txtBerufnr.Text = ""
End Sub
Protected Sub RadComboBox2_SelectedIndexChanged(sender As Object, e As RadComboBoxSelectedIndexChangedEventArgs) Handles RadComboBox2.SelectedIndexChanged
Me.RadListBox1.SelectedValue = Me.RadComboBox2.SelectedValue
'RadListBox1_SelectedIndexChanged(sender, e)
refresh_data(Me.RadComboBox2.SelectedValue.ToString)
End Sub
Protected Sub RadButton2_Click1(sender As Object, e As EventArgs) Handles RadButton2.Click
Session("Schuelernr") = Me.RadListBox1.SelectedValue
Session("RedirPath") = HttpContext.Current.Request.Url.AbsoluteUri
Response.Redirect("~/administration/schuelerreport.aspx")
End Sub
End Class

@ -0,0 +1,74 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="SchuelerReport.aspx.vb" Inherits="LPWeb.Schuelerreport" %>
<%@ 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>
<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>
<table>
<tr>
<td valign="top" class="style1">
<asp:Panel ID="Panel1" runat="server" Height="500px" Width="884px">
<cc1:WebReport ID="WebReport1" runat="server"
Width="800px" BorderStyle="Solid" BorderWidth="1px" PdfAuthor="LPWEB"
PdfEmbeddingFonts="False" PdfProducer="FastReport" ShowExports="False"
ShowOdsExport="False" ShowOdtExport="False" ShowPdfExport="False"
ShowPowerPoint2007Export="False" ShowRtfExport="False" ShowTextExport="False"
ShowWord2007Export="False" ShowXmlExcelExport="False" ShowXpsExport="False" ToolbarStyle="Small" />
</asp:Panel>
</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>

@ -0,0 +1,105 @@
'------------------------------------------------------------------------------
' <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 Schuelerreport
'''<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>
'''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

@ -0,0 +1,109 @@
Imports System.Web.Configuration
Public Class Schuelerreport
Inherits System.Web.UI.Page
Dim scounter As Integer = 0
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 = "23"
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 schuelerdaten1 where schuelernr=" + Session("schuelernr").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)
scounter = scounter + 1
'If scounter > 1 Then
' Dim exp As New FastReport.Export.Pdf.PDFExport
' Me.WebReport1.Report.Export(exp, "E:\WebProjects\LPWeb\LPWeb\reporting\exported.pdf")
'End If
Catch ex As Exception
End Try
End Sub
Private Sub WebReport1_PreRender(sender As Object, e As System.EventArgs) Handles WebReport1.PreRender
Me.WebReport1.Prepare()
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))
End Sub
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
Dim exp As New FastReport.Export.Pdf.PDFExport
'If exp.ShowDialog Then
'End If
Dim s As String = Session("RedirPath")
Session("RedirPath") = ""
Response.Redirect("~/Administration/Schueler.aspx?Schuelernr=" + Session("Schuelernr").ToString)
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

@ -0,0 +1,192 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Schulhaus.aspx.vb" Inherits="LPWeb.Schulhaus" %>
<%@ 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" %>
<!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" /></head>
<body>
<div class="page">
<form id="form1" runat="server">
<telerik:RadScriptManager ID="RadScriptManager1" runat="server">
<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="RadAjaxManager1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Label1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadGrid1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Label1" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server" /> <shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>Schulhäuser</h2>
<br />
<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSource1"
GridLines="None" AllowAutomaticDeletes="True" AllowAutomaticInserts="True"
AllowAutomaticUpdates="True" AllowSorting="True">
<MasterTableView DataKeyNames="SchulhausNr" DataSourceID="SqlDataSource1" CommandItemDisplay="TopAndBottom"
TableLayout="Fixed">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="SchulhausNr" DataType="System.Int32"
FilterControlAltText="Filter SchulhausNr column" HeaderText="SchulhausNr" ReadOnly="True"
SortExpression="SchulhausNr" UniqueName="SchulhausNr">
<HeaderStyle Width="30px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Bezeichnung"
FilterControlAltText="Filter Bezeichnung column" HeaderText="Bezeichnung"
SortExpression="Bezeichnung" UniqueName="Bezeichnung">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Strasse"
FilterControlAltText="Filter Strasse column" HeaderText="Strasse"
SortExpression="Strasse" UniqueName="Strasse">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="PLZ" DataType="System.Int32"
FilterControlAltText="Filter PLZ column" HeaderText="PLZ"
SortExpression="PLZ" UniqueName="PLZ">
<HeaderStyle Width="60px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Ort" HeaderText="Ort" SortExpression="Ort"
UniqueName="Ort" FilterControlAltText="Filter Ort column">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Telefon" HeaderText="Telefon"
SortExpression="Telefon" UniqueName="Telefon"
FilterControlAltText="Filter Telefon column">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridCheckBoxColumn DataField="Aktiv" DataType="System.Boolean"
FilterControlAltText="Filter Aktiv column" HeaderText="Aktiv"
SortExpression="Aktiv" UniqueName="Aktiv">
<HeaderStyle Width="40px" />
<ItemStyle Wrap="False" />
</telerik:GridCheckBoxColumn>
<telerik:GridBoundColumn DataField="Erstellt_am" DataType="System.DateTime"
FilterControlAltText="Filter Erstellt_am column" HeaderText="Erstellt_am"
SortExpression="Erstellt_am" UniqueName="Erstellt_am" ReadOnly="true">
<HeaderStyle Width="60px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Mutiert_am" DataType="System.DateTime"
FilterControlAltText="Filter Mutiert_am column" HeaderText="Mutiert_am"
SortExpression="Mutiert_am" UniqueName="Mutiert_am" ReadOnly="true">
<HeaderStyle Width="60px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Mutierer" DataType="System.Int32"
FilterControlAltText="Filter Mutierer column" HeaderText="Mutierer"
SortExpression="Mutierer" UniqueName="Mutierer" ReadOnly="true">
<HeaderStyle Width="60px" />
<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="Schulhaus 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 FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
DeleteCommand="Update [Schulhaus] set aktiv=0, mutiert_am=getdate(), mutierer=@mutierer WHERE [SchulhausNr] = @SchulhausNr"
InsertCommand="INSERT INTO [Schulhaus] ([Bezeichnung], [Strasse], [PLZ], [Ort], [Telefon], [Aktiv], [Erstellt_am], [Mutiert_am], [Mutierer]) VALUES (@Bezeichnung, @Strasse, @PLZ, @Ort, @Telefon, @Aktiv, getdate(), getdate(), @Mutierer)"
SelectCommand="SELECT * FROM [Schulhaus]"
UpdateCommand="UPDATE [Schulhaus] SET [Bezeichnung] = @Bezeichnung, [Strasse] = @Strasse, [PLZ] = @PLZ, [Ort] = @Ort, [Telefon] = @Telefon, [Aktiv] = @Aktiv, [Mutiert_am] = getdate(), [Mutierer] = @Mutierer WHERE [SchulhausNr] = @SchulhausNr">
<DeleteParameters>
<asp:Parameter Name="SchulhausNr" Type="Int32" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="Bezeichnung" Type="String" />
<asp:Parameter Name="Strasse" Type="String" />
<asp:Parameter Name="PLZ" Type="Int32" />
<asp:Parameter Name="Ort" Type="String" />
<asp:Parameter Name="Telefon" Type="String" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:Parameter Name="Erstellt_am" Type="DateTime" />
<asp:Parameter Name="Mutiert_am" Type="DateTime" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="Bezeichnung" Type="String" />
<asp:Parameter Name="Strasse" Type="String" />
<asp:Parameter Name="PLZ" Type="Int32" />
<asp:Parameter Name="Ort" Type="String" />
<asp:Parameter Name="Telefon" Type="String" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:Parameter Name="Erstellt_am" Type="DateTime" />
<asp:Parameter Name="Mutiert_am" Type="DateTime" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="SchulhausNr" Type="Int32" />
</UpdateParameters>
</asp:SqlDataSource>
</body>
</html>

@ -0,0 +1,105 @@
'------------------------------------------------------------------------------
' <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 Schulhaus
'''<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>
'''RadScriptManager1-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 RadScriptManager1 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>
'''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>
'''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

@ -0,0 +1,8 @@
Public Class Schulhaus
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,110 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="StyleManager.aspx.vb" Inherits="LPWeb.StyleManager" %>
<%@ 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">
.auto-style1 {
height: 21px;
}
.auto-style2 {
width: 217px;
}
.auto-style3 {
height: 21px;
width: 217px;
}
</style>
</head>
<body>
<form id="form1" runat="server">
<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">
<AjaxSettings>
<telerik:AjaxSetting AjaxControlID="RadListBox1">
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" Runat="server"
Skin="Default">
</telerik:RadAjaxLoadingPanel>
<telerik:RadWindowManager ID="RadWindowManager1" runat="server">
</telerik:RadWindowManager>
<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>
<div class="page">
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<table style="width:100%;">
<tr>
<td class="auto-style2" valign="top">
<telerik:RadComboBox ID="RadComboBox1" Runat="server" Culture="de-DE" OnSelectedIndexChanged="RadComboBox1_SelectedIndexChanged" AutoPostBack="true">
<Items>
<telerik:RadComboboxItem runat="server" Text="Black" Value="Black" />
<telerik:RadComboboxItem runat="server" Text="BlackMetroTouch" Value="BlackMetroTouch" />
<telerik:RadComboboxItem runat="server" Text="Default" Value="Default" />
<telerik:RadComboboxItem runat="server" Text="Forest" Value="Forest" />
<telerik:RadComboboxItem runat="server" Text="Glow" Value="Glow" />
<telerik:RadComboboxItem runat="server" Text="Hay" Value="Hay" />
<telerik:RadComboboxItem runat="server" Text="Metro" Value="Metro" />
<telerik:RadComboboxItem runat="server" Text="MetroTouch" Value="MetroTouch" />
<telerik:RadComboboxItem runat="server" Text="Office2007" Value="Office2007" />
<telerik:RadComboboxItem runat="server" Text="Office2010Black" Value="Office2010Black" />
<telerik:RadComboboxItem runat="server" Text="Office2010Blue" Value="Office2010Blue" />
<telerik:RadComboboxItem runat="server" Text="Office2010Silver" Value="Office2010Silver" />
<telerik:RadComboboxItem runat="server" Text="Outlook" Value="Outlook" />
<telerik:RadComboboxItem runat="server" Text="Silk" Value="Silk" />
<telerik:RadComboboxItem runat="server" Text="Simple" Value="Simple" />
<telerik:RadComboboxItem runat="server" Text="Sitefinity" Value="Sitefinity" />
<telerik:RadComboboxItem runat="server" Text="Sunset" Value="Sunset" />
<telerik:RadComboboxItem runat="server" Text="Telerik" Value="Telerik" />
<telerik:RadComboboxItem runat="server" Text="Transparent" Value="Transparent" />
<telerik:RadComboboxItem runat="server" Text="Vista" Value="Vista" />
<telerik:RadComboboxItem runat="server" Text="Web20" Value="Web20" />
<telerik:RadComboboxItem runat="server" Text="WebBlue" Value="WebBlue" />
<telerik:RadComboboxItem runat="server" Text="Windows7" Value="Windows7" />
</Items>
</telerik:RadComboBox>
<telerik:RadButton ID="RadButton1" runat="server" Text="OK">
</telerik:RadButton>
</td>
<td rowspan="2">
<asp:Image ID="Image1" runat="server" Height="397px" ImageUrl="~/Bilder/Skins.JPG" Width="677px" />
</td>
</tr>
<tr>
<td class="auto-style3">
<br />
</td>
</tr>
</table>
<br />
<br />
<br />
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

@ -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 StyleManager
'''<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>
'''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>
'''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>
'''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>
'''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>
'''Image1-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 Image1 As Global.System.Web.UI.WebControls.Image
'''<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
End Class

@ -0,0 +1,22 @@
Imports Telerik.Web.UI
Public Class StyleManager
Inherits System.Web.UI.Page
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
System.Configuration.ConfigurationManager.AppSettings("Telerik.Skin") = Me.RadComboBox1.SelectedValue
Session("Style") = Me.RadComboBox1.SelectedValue
Dim dh As New clsDatahandling
dh.UpdateTable("Optionen", "Inhalt", Me.RadComboBox1.SelectedValue, True, "Optionnr", 22)
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then Me.RadComboBox1.SelectedValue = System.Configuration.ConfigurationManager.AppSettings("Telerik.Skin")
End Sub
Protected Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As RadComboBoxSelectedIndexChangedEventArgs)
End Sub
End Class

@ -0,0 +1,49 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="StyleSheetEditor.aspx.vb" Inherits="LPWeb.StyleSheetEditor" ValidateRequest="false" %>
<%@ 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" %>
<%@ Register assembly="RichTextEditor, Version=8.0.0.0, Culture=neutral, PublicKeyToken=3858aa6802b1223a" namespace="RTE" tagprefix="RTE" %>
<!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
{
width: 136px;
}
</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>
<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>CSS Edit</h2>
<p>
<RTE:Editor ID="Editor1" runat="server" Language="de-de" Width="922px" Height="418px" />
</p>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

@ -0,0 +1,78 @@
'------------------------------------------------------------------------------
' <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 StyleSheetEditor
'''<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>
'''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>
'''Editor1-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 Editor1 As Global.RTE.Editor
'''<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
End Class

@ -0,0 +1,12 @@
Public Class StyleSheetEditor
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Editor1.LoadText("~/styles/site.css")
End Sub
Private Sub Editor1_SaveButtonClick(sender As Object, e As EventArgs) Handles Editor1.SaveButtonClick
Editor1.SaveFile("~/styles/site.css")
End Sub
End Class

@ -0,0 +1,220 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Userverwaltung.aspx.vb" Inherits="LPWeb.Userverwaltung" %>
<%@ 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" %>
<!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" /></head>
<body>
<div class="page">
<form id="form1" runat="server">
<telerik:RadScriptManager ID="RadScriptManager1" runat="server">
<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="RadAjaxManager1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Label1" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadGrid1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadGrid1" LoadingPanelID="RadAjaxLoadingPanel1" />
<telerik:AjaxUpdatedControl ControlID="Label1" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server" />
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>
Benutzerverwaltung
</h2>
<telerik:RadGrid ID="RadGrid1" runat="server" Culture="de-DE"
DataSourceID="SqlDataSource1" AllowPaging="True" AllowSorting="True"
AutoGenerateColumns="False" CellSpacing="0" GridLines="None"
AllowAutomaticUpdates="True" AllowAutomaticDeletes="True"
AllowAutomaticInserts="True" >
<MasterTableView DataKeyNames="Eintragnr"
DataSourceID="SqlDataSource1" CommandItemDisplay="TopAndBottom" TableLayout="Fixed">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="Eintragnr" DataType="System.Int32"
FilterControlAltText="Filter Eintragnr column" HeaderText="Nr."
ReadOnly="True" SortExpression="Eintragnr" UniqueName="Eintragnr">
<ItemStyle Width="25px" />
<HeaderStyle Width="50px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Username"
FilterControlAltText="Filter Username column" HeaderText="Username"
SortExpression="Username" UniqueName="Username">
<ItemStyle Width="80px" Wrap="false" />
<HeaderStyle Width="80px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Passwort"
FilterControlAltText="Filter Passwort column" HeaderText="Passwort"
SortExpression="Passwort" UniqueName="Passwort">
<ItemStyle Width="80px" Wrap="false"/>
<HeaderStyle Width="80px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridDropDownColumn DataField="UserType" DataSourceID="SqlDataSource2"
HeaderText="Type" ListTextField="Bezeichnung" ListValueField="Eintragnr"
UniqueName="UserType" ColumnEditorID="DropUserType">
<ItemStyle Width="40px" />
<HeaderStyle Width="80px" Wrap="False" />
</telerik:GridDropDownColumn>
<telerik:GridCheckBoxColumn DataField="Provisorisch" DataType="System.Boolean"
FilterControlAltText="Filter Provisorisch column" HeaderText="Prov."
SortExpression="Provisorisch" UniqueName="Provisorisch">
<ItemStyle Width="40px" />
<HeaderStyle Width="40px" Wrap="False" />
</telerik:GridCheckBoxColumn>
<telerik:GridBoundColumn DataField="FirmaNr" DataType="System.Int32"
FilterControlAltText="Filter FirmaNr column" HeaderText="Firma"
SortExpression="FirmaNr" UniqueName="FirmaNr">
<ItemStyle Width="60px" />
<HeaderStyle Width="60px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Lehrernr" DataType="System.Int32"
FilterControlAltText="Filter Lehrernr column" HeaderText="Lehrernr"
SortExpression="Lehrernr" UniqueName="Lehrernr">
<ItemStyle Width="60px" />
<HeaderStyle Width="60px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="erstellt_am" DataType="System.DateTime"
FilterControlAltText="Filter erstellt_am column" HeaderText="Erstellt"
SortExpression="erstellt_am" UniqueName="erstellt_am" ReadOnly="True" >
<ItemStyle Width="70px" Wrap="False" />
<HeaderStyle Width="70px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="mutiert_am" DataType="System.DateTime"
FilterControlAltText="Filter mutiert_am column" HeaderText="Mutiert"
SortExpression="mutiert_am" UniqueName="mutiert_am" ReadOnly="True" >
<ItemStyle Width="70px" Wrap="False" />
<HeaderStyle Width="70px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridCheckBoxColumn DataField="Aktiv" DataType="System.Boolean"
FilterControlAltText="Filter Aktiv column" HeaderText="Aktiv"
SortExpression="Aktiv" UniqueName="Aktiv">
<ItemStyle Width="40px" />
</telerik:GridCheckBoxColumn>
<telerik:GridBoundColumn DataField="VerifyString"
FilterControlAltText="Filter VerifyString column" HeaderText="VS"
SortExpression="VerifyString" UniqueName="VerifyString" Visible="False">
<HeaderStyle Width="20px" />
<ItemStyle Width="20px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="mutierer" DataType="System.Int32"
FilterControlAltText="Filter mutierer column" HeaderText="Mutierer"
SortExpression="mutierer" UniqueName="mutierer" ReadOnly="True">
<ItemStyle Width="30px" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="email"
FilterControlAltText="Filter email column" HeaderText="E-Mail"
SortExpression="email" UniqueName="email">
<ItemStyle Width="150px" Wrap="False" />
<HeaderStyle Width="150px" Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridEditCommandColumn FilterControlAltText="Filter EditCommandColumn column"
HeaderText="E" ButtonType="ImageButton">
</telerik:GridEditCommandColumn>
<telerik:GridButtonColumn ConfirmText="Benutzer wirklich löschen?" ConfirmDialogType="RadWindow"
ConfirmTitle="Delete" ButtonType="ImageButton" CommandName="Delete" Text="Delete"
UniqueName="DeleteColumn">
<ItemStyle HorizontalAlign="Center" CssClass="MyImageButton" />
</telerik:GridButtonColumn>
</Columns>
<EditFormSettings>
<EditColumn FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
<telerik:GridDropDownListColumnEditor ID="DropUserType" runat="server" DropDownStyle-Width="100px"></telerik:GridDropDownListColumnEditor>
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [Eintragnr], [Username], [Passwort], [UserType], [Provisorisch], [FirmaNr], [Lehrernr], [erstellt_am], [mutiert_am], [Aktiv], [VerifyString], [mutierer], [email] FROM [web_user]"
DeleteCommand="update [web_user] set [mutierer] = @mutierer, aktiv=0, mutiert_am=getdate() WHERE [Eintragnr] = @Eintragnr"
InsertCommand="INSERT INTO [web_user] ([Username], [Passwort], [UserType], [Provisorisch], [FirmaNr], [Lehrernr], [erstellt_am], [mutiert_am], [Aktiv], [VerifyString], [mutierer], [email]) VALUES (@Username, @Passwort, @UserType, @Provisorisch, @FirmaNr, @Lehrernr, getdate(), getdate(), @Aktiv, @VerifyString, @mutierer, @email)"
UpdateCommand="UPDATE [web_user] SET [Username] = @Username, [Passwort] = @Passwort, [UserType] = @UserType, [Provisorisch] = @Provisorisch, [FirmaNr] = @FirmaNr, [Lehrernr] = @Lehrernr, [erstellt_am] = @erstellt_am, [mutiert_am] = getdate(), [Aktiv] = @Aktiv, [VerifyString] = @VerifyString, [mutierer] = @mutierer, [email] = @email WHERE [Eintragnr] = @Eintragnr">
<DeleteParameters>
<asp:SessionParameter Name="mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="Eintragnr" Type="Int32" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="Username" Type="String" />
<asp:Parameter Name="Passwort" Type="String" />
<asp:Parameter Name="UserType" Type="Int32" />
<asp:Parameter Name="Provisorisch" Type="Boolean" />
<asp:Parameter Name="FirmaNr" Type="Int32" />
<asp:Parameter Name="Lehrernr" Type="Int32" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:Parameter Name="VerifyString" Type="String" />
<asp:SessionParameter Name="mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="email" Type="String" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="Username" Type="String" />
<asp:Parameter Name="Passwort" Type="String" />
<asp:Parameter Name="UserType" Type="Int32" />
<asp:Parameter Name="Provisorisch" Type="Boolean" />
<asp:Parameter Name="FirmaNr" Type="Int32" />
<asp:Parameter Name="Lehrernr" Type="Int32" />
<asp:Parameter Name="erstellt_am" Type="DateTime" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:Parameter Name="VerifyString" Type="String" />
<asp:SessionParameter Name="mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="email" Type="String" />
<asp:Parameter Name="Eintragnr" Type="Int32" />
</UpdateParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource2" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [Eintragnr], [Bezeichnung] FROM [web_usertype]">
</asp:SqlDataSource>
</body>
</html>

@ -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 Userverwaltung
'''<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>
'''RadScriptManager1-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 RadScriptManager1 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>
'''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>
'''DropUserType-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 DropUserType As Global.Telerik.Web.UI.GridDropDownListColumnEditor
'''<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
End Class

@ -0,0 +1,8 @@
Public Class Userverwaltung
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,168 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="WebMenu.aspx.vb" Inherits="LPWeb.WebMenu" %>
<%@ 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" %>
<!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" />
</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>
<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>Webmenu</h2>
<p>&nbsp;<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSource1"
GridLines="None" AllowAutomaticDeletes="True" AllowAutomaticInserts="True"
AllowAutomaticUpdates="True" AllowPaging="True" AllowSorting="True">
<MasterTableView DataKeyNames="Eintragnr" DataSourceID="SqlDataSource1" CommandItemDisplay="TopAndBottom"
TableLayout="Fixed">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="Eintragnr" DataType="System.Int32"
FilterControlAltText="Filter Eintragnr column" HeaderText="Nr" ReadOnly="True"
SortExpression="Eintragnr" UniqueName="Eintragnr">
<HeaderStyle Width="30px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="parentnr" DataType="System.Int32"
FilterControlAltText="Filter parentnr column" HeaderText="Parent"
SortExpression="parentnr" UniqueName="parentnr">
<HeaderStyle Width="50px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="MenuText"
FilterControlAltText="Filter MenuText column" HeaderText="MenuText"
SortExpression="MenuText" UniqueName="MenuText">
<HeaderStyle Width="60px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="MenuValue"
FilterControlAltText="Filter MenuValue column" HeaderText="MenuValue"
SortExpression="MenuValue" UniqueName="MenuValue" Visible=false ReadOnly=true>
<HeaderStyle Width="60px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="NavigationUrl"
FilterControlAltText="Filter NavigationUrl column" HeaderText="NavigationUrl"
SortExpression="NavigationUrl" UniqueName="NavigationUrl">
<HeaderStyle Width="130px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="MenuType" DataType="System.Int32"
FilterControlAltText="Filter MenuType column" HeaderText="MenuType"
SortExpression="MenuType" UniqueName="MenuType">
<HeaderStyle Width="50px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Sort" DataType="System.Int32"
FilterControlAltText="Filter Sort column" HeaderText="Sort"
SortExpression="Sort" UniqueName="Sort">
<HeaderStyle Width="30px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridCheckBoxColumn DataField="Aktiv" DataType="System.Boolean"
FilterControlAltText="Filter Aktiv column" HeaderText="Aktiv"
SortExpression="Aktiv" UniqueName="Aktiv">
<HeaderStyle Width="40px" />
<ItemStyle Wrap="False" />
</telerik:GridCheckBoxColumn>
<telerik:GridEditCommandColumn FilterControlAltText="Filter EditCommandColumn column"
HeaderText="" ButtonType="ImageButton" ItemStyle-HorizontalAlign="Center">
<HeaderStyle Width="40px" />
<ItemStyle HorizontalAlign="Center"></ItemStyle>
</telerik:GridEditCommandColumn>
<telerik:GridButtonColumn ConfirmText="Menueintrag 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 FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
</p>
</div>
</div>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
DeleteCommand="update web_menu set aktiv=0, mutiert_am=getdate(), mutierer=@mutierer where eintragnr=@eintragnr"
InsertCommand="INSERT INTO [web_menu] ([MenuText], [MenuValue], [ToolTip], [NavigationUrl], [MenuType], [Sort], [Erstellt_am], [Mutiert_am], [Mutierer], [parentnr], aktiv) VALUES (@MenuText, @MenuValue, @ToolTip, @NavigationUrl, @MenuType, @Sort, getdate(), getdate(), @Mutierer, @parentnr,1)"
SelectCommand="SELECT [Eintragnr], [MenuText], [MenuValue], [ToolTip], [NavigationUrl], [MenuType], [Sort], [Erstellt_am], [Mutiert_am], [Mutierer], [parentnr], aktiv FROM [web_menu]"
UpdateCommand="UPDATE [web_menu] SET [MenuText] = @MenuText, [MenuValue] = @eintragnr, [ToolTip] = @ToolTip, [NavigationUrl] = @NavigationUrl, [MenuType] = @MenuType, [Sort] = @Sort, [Mutiert_am] = getdate(), [Mutierer] = @Mutierer, [parentnr] = @parentnr, Aktiv=@aktiv WHERE [Eintragnr] = @Eintragnr">
<DeleteParameters>
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="Eintragnr" Type="Int32" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="Eintragnr" Type="Int32" />
<asp:Parameter Name="MenuText" Type="String" />
<asp:Parameter Name="MenuValue" Type="String" />
<asp:Parameter Name="ToolTip" Type="String" />
<asp:Parameter Name="NavigationUrl" Type="String" />
<asp:Parameter Name="MenuType" Type="Int32" />
<asp:Parameter Name="Sort" Type="Int32" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="parentnr" Type="Int32" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="MenuText" Type="String" />
<asp:Parameter Name="MenuValue" Type="String" />
<asp:Parameter Name="ToolTip" Type="String" />
<asp:Parameter Name="NavigationUrl" Type="String" />
<asp:Parameter Name="MenuType" Type="Int32" />
<asp:Parameter Name="Sort" Type="Int32" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="parentnr" Type="Int32" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:Parameter Name="Eintragnr" Type="Int32" />
</UpdateParameters>
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,87 @@
'------------------------------------------------------------------------------
' <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 WebMenu
'''<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>
'''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>
'''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>
'''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

@ -0,0 +1,8 @@
Public Class WebMenu
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,178 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="WebStatistik.aspx.vb" Inherits="LPWeb.WebStatistik" %>
<%@ 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" %>
<%@ Register assembly="FastReport.Web" 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
{
width: 136px;
}
.auto-style4 {
width: 131px;
}
.auto-style5 {
}
.auto-style6 {
width: 153px;
height: 25px;
}
.auto-style7 {
height: 25px;
}
.auto-style8 {
width: 131px;
height: 26px;
}
.auto-style9 {
height: 26px;
}
</style>
</head>
<body>
</script>
<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: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>
<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">
<AjaxSettings>
<telerik:AjaxSetting AjaxControlID="RadWindowManager1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="cbboxStatistikdaten" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadAjaxManager1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="cbboxStatistikdaten" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadButton1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="cbboxStatistikdaten" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="RadButton2">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="cbboxStatistikdaten" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<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>Webstatistik</h2>
<p>Statistik-Daten speichern</p>
<p>
<table style="width:100%;">
<tr>
<td class="auto-style8">Jahr</td>
<td class="auto-style9">
<telerik:RadTextBox ID="txtJahr" Runat="server" style="margin-left: 0px" Width="60px">
</telerik:RadTextBox>
</td>
<td class="auto-style9"></td>
</tr>
<tr>
<td class="auto-style4">Beschreibung</td>
<td>
<telerik:RadTextBox ID="txtBeschreibung" Runat="server" EmptyMessage="Bitte Beschreibung eingeben" LabelWidth="96px" Resize="None" Width="240px">
</telerik:RadTextBox>
</td>
<td>&nbsp;</td>
</tr>
<tr>
<td class="auto-style4">&nbsp;</td>
<td>
<telerik:RadButton ID="RadButton1" runat="server" Text="Statistikdaten speichern">
</telerik:RadButton>
</td>
<td>&nbsp;</td>
</tr>
</table>
</p>
<hr />
<p>
<table style="width:100%;">
<tr>
<td class="auto-style5" colspan="3">Statistik-Auswertungen</td>
<td>&nbsp;</td>
</tr>
<tr>
<td class="auto-style5">Statistikdaten wählen</td>
<td style="width:40%">
<telerik:RadComboBox ID="cbboxStatistikdaten" Runat="server" DataSourceID="SqlDataSource1" DataTextField="Beschreibung" DataValueField="WebStatistikNr" >
</telerik:RadComboBox>
</td>
<td>
<telerik:RadButton ID="RadButton2" runat="server" Text="löschen">
</telerik:RadButton>
</td>
<td>&nbsp;</td>
</tr>
<tr>
<td class="auto-style6"></td>
<td class="auto-style7" colspan="2">
<telerik:RadButton ID="btnZusammenfassung" runat="server" Text="Zusammenfassung">
</telerik:RadButton>
<telerik:RadButton ID="btnBerufsbilder" runat="server" Text="Berufsbilder">
</telerik:RadButton>
<telerik:RadButton ID="btnBerufsbilder0" runat="server" Text="Firmenangebot">
</telerik:RadButton>
<telerik:RadButton ID="btnBerufsbilder1" runat="server" Text="Angebot/Nachfrage">
</telerik:RadButton>
</td>
<td class="auto-style7"></td>
</tr>
<tr>
<td class="auto-style5">&nbsp;</td>
<td colspan="3">
<cc1:WebReport ID="WebReport1" runat="server" ToolbarStyle="Small" Width="700px" />
</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 [WebStatistikNr], [Beschreibung] FROM [WebStatistik] WHERE ([aktiv] = 1)">
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,195 @@
'------------------------------------------------------------------------------
' <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 WebStatistik
'''<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>
'''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>
'''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>
'''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>
'''txtJahr-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 txtJahr As Global.Telerik.Web.UI.RadTextBox
'''<summary>
'''txtBeschreibung-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 txtBeschreibung As Global.Telerik.Web.UI.RadTextBox
'''<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>
'''cbboxStatistikdaten-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 cbboxStatistikdaten As Global.Telerik.Web.UI.RadComboBox
'''<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>
'''btnZusammenfassung-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 btnZusammenfassung As Global.Telerik.Web.UI.RadButton
'''<summary>
'''btnBerufsbilder-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 btnBerufsbilder As Global.Telerik.Web.UI.RadButton
'''<summary>
'''btnBerufsbilder0-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 btnBerufsbilder0 As Global.Telerik.Web.UI.RadButton
'''<summary>
'''btnBerufsbilder1-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 btnBerufsbilder1 As Global.Telerik.Web.UI.RadButton
'''<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>
'''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

@ -0,0 +1,127 @@
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 WebStatistik
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Page.IsPostBack Then Exit Sub
Me.txtJahr.Text = Year(Now).ToString
' Refresh_Webstat()
End Sub
Sub Refresh_Webstat()
Me.cbboxStatistikdaten.DataBind()
Exit Sub
Dim dh As New clsDatahandling
Dim t As New DataTable
t = dh.Get_Webstatistik_Data
Me.cbboxStatistikdaten.DataSource = t
Me.cbboxStatistikdaten.DataTextField = "Beschreibung"
Me.cbboxStatistikdaten.DataValueField = "WebStatistikNr"
End Sub
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
Dim db As New clsDatahandling
db.Statistikdaten_Speichern(Me.txtJahr.Text, Me.txtBeschreibung.Text, Session("UserID"))
Me.cbboxStatistikdaten.DataBind()
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
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
MsgBox(ex.Message)
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))
End Sub
Protected Sub btnZusammenfassung_Click(sender As Object, e As EventArgs) Handles btnZusammenfassung.Click
show_report("exec dbo.sp_webstatistik_getdata 1," + Me.cbboxStatistikdaten.SelectedValue.ToString, "SQL", "WebStat_Zusammenfassung.frx", -1)
End Sub
Protected Sub btnBerufsbilder_Click(sender As Object, e As EventArgs) Handles btnBerufsbilder.Click
show_report("exec dbo.sp_webstatistik_getdata 2," + Me.cbboxStatistikdaten.SelectedValue.ToString, "SQL", "WebStat_Beruf.frx", -1)
End Sub
Protected Sub btnBerufsbilder0_Click(sender As Object, e As EventArgs) Handles btnBerufsbilder0.Click
show_report("exec dbo.sp_webstatistik_getdata 3," + Me.cbboxStatistikdaten.SelectedValue.ToString, "SQL", "WebStat_Firmenangebot.frx", -1)
End Sub
Protected Sub btnBerufsbilder1_Click(sender As Object, e As EventArgs) Handles btnBerufsbilder1.Click
show_report("exec dbo.sp_webstatistik_getdata 4," + Me.cbboxStatistikdaten.SelectedValue.ToString, "SQL", "WebStat_AngebotNachfrage.frx", -1)
End Sub
Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton2.Click
Show_Message(3, "Statistikdaten 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, "Statistikdaten 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 RadAjaxManager1_AjaxRequest(sender As Object, e As Telerik.Web.UI.AjaxRequestEventArgs) Handles RadAjaxManager1.AjaxRequest
If e.Argument.ToString = "ok" Then
Dim dh As New clsDatahandling
dh.Delete_Webstatistik(Me.cbboxStatistikdaten.SelectedValue)
Refresh_Webstat()
End If
End Sub
End Class

@ -0,0 +1,96 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Webreport.aspx.vb" Inherits="LPWeb.Webreport" %>
<%@ 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" 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
{
width: 166px;
}
</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="RadListBox1">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="RadListBox2" UpdatePanelCssClass="" />
</UpdatedControls>
</telerik:AjaxSetting>
<telerik:AjaxSetting AjaxControlID="WebReport1">
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<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>Auswertungen</h2>
<p>
<table>
<tr>
<td valign="top" class="style1">
Gruppe<br /><telerik:RadListBox ID="RadListBox1" runat="server" Culture="de-DE" Height="113px" DataKeyField="ID" DataSortField="Bezeichnung" DataSourceID="SqlDataSource2" DataTextField="Bezeichnung" DataValueField="ID" TransferToID="RadListBox2" AutoPostBack="True">
</telerik:RadListBox><br />
<br />Auswertung<br />
<telerik:RadListBox ID="RadListBox2" runat="server" Culture="de-DE" DataKeyField="ID" DataSortField="Bezeichnung" DataSourceID="SqlDataSource3" DataTextField="Bezeichnung" DataValueField="ID" AutoPostBack="True">
</telerik:RadListBox>
</td>
<td valign="top">
<cc1:WebReport ID="WebReport1" runat="server" ToolbarStyle="Small" Width="700px" />
</td>
</tr>
</table>
&nbsp;</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 order by bezeichnung">
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource2" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [ID], [Bezeichnung] FROM [Web_Report] where aktiv=1 and [id] &gt; 1 and folder=1 order by bezeichnung">
</asp:SqlDataSource>
<asp:SqlDataSource ID="SqlDataSource3" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
SelectCommand="SELECT [ID], parentid, [Bezeichnung] FROM [Web_Report] where aktiv=1 and parentid=@id and folder&lt;&gt;1 order by bezeichnung">
<SelectParameters>
<asp:ControlParameter ControlID="RadListBox1" DefaultValue="0" Name="ID" PropertyName="Selectedvalue" Type="Int32" />
</SelectParameters>
</asp:SqlDataSource>
</form>
</body>
</html>

@ -0,0 +1,132 @@
'------------------------------------------------------------------------------
' <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 Webreport
'''<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>
'''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>
'''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>
'''RadListBox2-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 RadListBox2 As Global.Telerik.Web.UI.RadListBox
'''<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>
'''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
End Class

@ -0,0 +1,133 @@
Imports FastReport
Public Class Webreport
Inherits System.Web.UI.Page
Private Sub Webreport_InitComplete(sender As Object, e As System.EventArgs) Handles Me.InitComplete
'Me.RadTreeView1.ExpandAllNodes()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Try
If Request.QueryString("Reportnr").ToString <> "" Then
Dim dh As New clsDatahandling
Dim ds As New DataSet
ds = dh.Get_Tabledata("Select * from web_report where id=" + Request.QueryString("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
Else
Me.WebReport1.Visible = False
End If
Me.RadListBox1.SelectedValue = Session("RadList1Value")
Me.RadListBox2.SelectedValue = Session("RadList2Value")
Catch
End Try
'show_report("Berufsliste", "SP", "Berufsliste.frx")
Else
End If
End Sub
'Protected Sub RadTreeView1_NodeClick(sender As Object, e As Telerik.Web.UI.RadTreeNodeEventArgs) Handles RadTreeView1.NodeClick
' Dim dh As New clsDatahandling
' Dim ds As New DataSet
' 'ds = dh.Get_Tabledata("Select * from web_report where id=" + Me.RadTreeView1.SelectedNode.Value, False, True)
' If ds.Tables(0).Rows(0).Item("Folder") = False Then
' Session("Reportnr") = Me.RadTreeView1.SelectedNode.Value
' 'Response.Redirect("~/Administration/Webreport.aspx?Reportnr=" + Me.RadTreeView1.SelectedNode.Value.ToString)
' 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
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
MsgBox(ex.Message)
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 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
Protected Sub RadAjaxManager1_AjaxRequest(sender As Object, e As Telerik.Web.UI.AjaxRequestEventArgs) Handles RadAjaxManager1.AjaxRequest
End Sub
Private Sub RadListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RadListBox1.SelectedIndexChanged
Me.RadListBox2.DataBind()
End Sub
Protected Sub RadListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RadListBox2.SelectedIndexChanged
Session("RadList1value") = Me.RadListBox1.SelectedValue
Session("RadList2Value") = Me.RadListBox2.SelectedValue
Dim dh As New clsDatahandling
Dim ds As New DataSet
ds = dh.Get_Tabledata("Select * from web_report where id=" + Me.RadListBox2.SelectedValue, False, True)
If ds.Tables(0).Rows(0).Item("Folder") = False Then
Session("Reportnr") = Me.RadListBox2.SelectedValue
Response.Redirect("~/Administration/Webreport.aspx?Reportnr=" + Me.RadListBox2.SelectedValue.ToString)
End If
End Sub
End Class

@ -0,0 +1,170 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Zeiten.aspx.vb" Inherits="LPWeb.Zeiten" %>
<%@ 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" %>
<!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" /></head>
<body>
<div class="page">
<form id="form1" runat="server">
<telerik:RadScriptManager ID="RadScriptManager1" runat="server">
<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" /> <shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<h2>Zeiten</h2>
<br />
<telerik:RadGrid ID="RadGrid1" runat="server" AutoGenerateColumns="False"
CellSpacing="0" Culture="de-DE" DataSourceID="SqlDataSource1"
GridLines="None" AllowAutomaticDeletes="True" AllowAutomaticInserts="True"
AllowAutomaticUpdates="True" AllowPaging="True" AllowSorting="True">
<MasterTableView DataKeyNames="ZeitNr" DataSourceID="SqlDataSource1" CommandItemDisplay="TopAndBottom"
TableLayout="Fixed">
<CommandItemSettings ExportToPdfText="PDF-Export"
AddNewRecordText="Neuer Datensatz" ExportToExcelText="Excel-Export"
RefreshText="Aktualisieren"></CommandItemSettings>
<RowIndicatorColumn Visible="True" FilterControlAltText="Filter RowIndicator column">
<HeaderStyle Width="20px"></HeaderStyle>
</RowIndicatorColumn>
<ExpandCollapseColumn Visible="True" FilterControlAltText="Filter ExpandColumn column">
<HeaderStyle Width="20px"></HeaderStyle>
</ExpandCollapseColumn>
<Columns>
<telerik:GridBoundColumn DataField="ZeitNr" DataType="System.Int32"
FilterControlAltText="Filter ZeitNr column" HeaderText="Nr" ReadOnly="True"
SortExpression="ZeitNr" UniqueName="ZeitNr">
<HeaderStyle Width="30px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Bezeichnung"
FilterControlAltText="Filter Bezeichnung column" HeaderText="Bezeichnung"
SortExpression="Bezeichnung" UniqueName="Bezeichnung">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Beschreibung"
FilterControlAltText="Filter Beschreibung column" HeaderText="Beschreibung"
SortExpression="Beschreibung" UniqueName="Beschreibung">
<HeaderStyle Width="100px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Reihenfolge" DataType="System.Int32"
FilterControlAltText="Filter Reihenfolge column" HeaderText="Reihenfolge"
SortExpression="Reihenfolge" UniqueName="Reihenfolge">
<HeaderStyle Width="50px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridCheckBoxColumn DataField="Aktiv" DataType="System.Boolean"
FilterControlAltText="Filter Aktiv column" HeaderText="Aktiv"
SortExpression="Aktiv" UniqueName="Aktiv">
<HeaderStyle Width="40px" />
<ItemStyle Wrap="False" />
</telerik:GridCheckBoxColumn>
<telerik:GridCheckBoxColumn DataField="Oeffentlich" DataType="System.Boolean"
FilterControlAltText="Filter Oeffentlich column" HeaderText="Öffentlich"
SortExpression="Oeffentlich" UniqueName="Oeffentlich">
<HeaderStyle Width="40px" />
<ItemStyle Wrap="False" />
</telerik:GridCheckBoxColumn>
<telerik:GridBoundColumn DataField="Erstellt_am" DataType="System.DateTime"
FilterControlAltText="Filter Erstellt_am column" HeaderText="Erstellt_am"
SortExpression="Erstellt_am" UniqueName="Erstellt_am" ReadOnly="true">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Mutiert_am" DataType="System.DateTime"
FilterControlAltText="Filter Mutiert_am column" HeaderText="Mutiert_am"
SortExpression="Mutiert_am" UniqueName="Mutiert_am" ReadOnly="true">
<HeaderStyle Width="80px" />
<ItemStyle Wrap="False" />
</telerik:GridBoundColumn>
<telerik:GridBoundColumn DataField="Mutierer" DataType="System.Int32"
FilterControlAltText="Filter Mutierer column" HeaderText="Mutierer"
SortExpression="Mutierer" UniqueName="Mutierer" ReadOnly="true">
<HeaderStyle Width="60px" />
<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="Zeit 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 FilterControlAltText="Filter EditCommandColumn column" ButtonType="ImageButton"
InsertText="Einfügen" UpdateText="Speichern" CancelText="Abbruch"> </EditColumn>
</EditFormSettings>
</MasterTableView>
<FilterMenu EnableImageSprites="False"></FilterMenu>
</telerik:RadGrid>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:LPConnectionString %>"
DeleteCommand="Update [Zeiten] set aktiv=0, mutierer=@mutierer, mutiert_am=getdate() WHERE [ZeitNr] = @ZeitNr"
InsertCommand="INSERT INTO [Zeiten] ([Bezeichnung], [Beschreibung], [Reihenfolge], [Aktiv], [Erstellt_am], [Mutiert_am], [Mutierer], Oeffentlich) VALUES (@Bezeichnung, @Beschreibung, @Reihenfolge, @Aktiv,getdate(), getdate(), @Mutierer,@Oeffentlich)"
SelectCommand="SELECT * FROM [Zeiten] where aktiv=1"
UpdateCommand="UPDATE [Zeiten] SET [Bezeichnung] = @Bezeichnung, [Beschreibung] = @Beschreibung, [Reihenfolge] = @Reihenfolge, [Aktiv] = @Aktiv, [Mutiert_am] = getdate(), [Mutierer] = @Mutierer, Oeffentlich=@Oeffentlich WHERE [ZeitNr] = @ZeitNr">
<DeleteParameters>
<asp:Parameter Name="ZeitNr" Type="Int32" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter Name="Bezeichnung" Type="String" />
<asp:Parameter Name="Beschreibung" Type="String" />
<asp:Parameter Name="Reihenfolge" Type="Int32" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:Parameter Name="Oeffentlich" Type="Boolean" />
<asp:Parameter Name="Erstellt_am" Type="DateTime" />
<asp:Parameter Name="Mutiert_am" Type="DateTime" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
</InsertParameters>
<UpdateParameters>
<asp:Parameter Name="Bezeichnung" Type="String" />
<asp:Parameter Name="Beschreibung" Type="String" />
<asp:Parameter Name="Reihenfolge" Type="Int32" />
<asp:Parameter Name="Aktiv" Type="Boolean" />
<asp:Parameter Name="Oeffentlich" Type="Boolean" />
<asp:Parameter Name="Erstellt_am" Type="DateTime" />
<asp:Parameter Name="Mutiert_am" Type="DateTime" />
<asp:SessionParameter Name="Mutierer" Type="Int32" sessionfield="UserID" />
<asp:Parameter Name="ZeitNr" Type="Int32" />
</UpdateParameters>
</asp:SqlDataSource>
</body>
</html>

@ -0,0 +1,105 @@
'------------------------------------------------------------------------------
' <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 Zeiten
'''<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>
'''RadScriptManager1-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 RadScriptManager1 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>
'''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>
'''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

@ -0,0 +1,8 @@
Public Class Zeiten
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class

@ -0,0 +1,90 @@
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Zuteilung.aspx.vb" Inherits="LPWeb.Zuteilung" %>
<%@ 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" %>
<!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" />
<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>
<form id="form1" runat="server">
<telerik:RadAjaxManager ID="RadAjaxManager1" runat="server">
<AjaxSettings>
<telerik:AjaxSetting AjaxControlID="buttonSubmit">
<UpdatedControls>
<telerik:AjaxUpdatedControl ControlID="Panel1"
LoadingPanelID="RadAjaxLoadingPanel1" />
</UpdatedControls>
</telerik:AjaxSetting>
</AjaxSettings>
</telerik:RadAjaxManager>
<telerik:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" Runat="server"
Skin="Default">
</telerik:RadAjaxLoadingPanel>
<telerik:RadWindowManager ID="RadWindowManager1" runat="server">
</telerik:RadWindowManager>
<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>
<div class="page">
<shu:Header runat="Server" ID="Header1"></shu:Header>
<shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
<div class="main">
<asp:Panel ID="Panel1" runat="server">
<h2>
Zuteilung</h2>
<br />
Drücken Sie auf &quot;Zuteilung starten&quot; um die automatische Zuteilung durchzuführen.<br />
<br />
<asp:Label ID="Label2" runat="server" ForeColor="Red"
Text="Achtung! Sämtliche Zuteilungen werden gelöscht"></asp:Label>
<br />
<br />
<asp:Label ID="Label1" runat="server" style="font-weight: 700"
Text="Zuteilung ab Priorität 2"></asp:Label>
<asp:RadioButtonList ID="RadioButtonList1" runat="server">
<asp:ListItem Value="0">Ab Prio 2 zufällig</asp:ListItem>
<asp:ListItem Value="1">Ab Prio 2 nach Priorität</asp:ListItem>
</asp:RadioButtonList>
<br />
<br />
</asp:Panel>
<asp:button ID="buttonSubmit" runat="server" Text="Zuteilung starten" OnClick="buttonSubmit_Click" CssClass="RadUploadButton" />
</div>
</div>
</form>
<shu:Footer runat="Server" ID="Footer1"></SHU:Footer>
</body>
</html>

@ -0,0 +1,141 @@
'------------------------------------------------------------------------------
' <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 Zuteilung
'''<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>
'''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>
'''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.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>
'''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>
'''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>
'''RadioButtonList1-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 RadioButtonList1 As Global.System.Web.UI.WebControls.RadioButtonList
'''<summary>
'''buttonSubmit-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 buttonSubmit As Global.System.Web.UI.WebControls.Button
'''<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
End Class

Some files were not shown because too many files have changed in this diff Show More

Loading…
Cancel
Save