Initial Commit Update Telerik

This commit is contained in:
2022-01-07 19:26:33 +01:00
commit 57e1cda236
2174 changed files with 1202494 additions and 0 deletions

File diff suppressed because it is too large Load Diff

BIN
.vs/LPWeb20/v14/.suo Normal file

Binary file not shown.

BIN
.vs/LPWeb20/v15/.suo Normal file

Binary file not shown.

View File

Binary file not shown.

BIN
.vs/LPWeb20/v16/.suo Normal file

Binary file not shown.

File diff suppressed because it is too large Load Diff

7
Git_Create.bat Normal file
View File

@@ -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

1
LPWeb20.jmconfig Normal file
View File

@@ -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>

1
LPWeb20.jmconfig.old Normal file
View File

@@ -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>

47
LPWeb20.sln Normal file
View File

@@ -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

BIN
LPWeb20.suo Normal file

Binary file not shown.

BIN
LPWeb20.v11.suo Normal file

Binary file not shown.

BIN
LPWeb20.v12.suo Normal file

Binary file not shown.

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -0,0 +1,123 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class 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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -0,0 +1,123 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class 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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -0,0 +1,123 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class 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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -0,0 +1,123 @@
'------------------------------------------------------------------------------
' <automatisch generiert>
' Der Code wurde von einem Tool generiert.
'
' Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
' der Code erneut generiert wird.
' </automatisch generiert>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Partial Public Class 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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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

View File

@@ -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

View File

@@ -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>

View File

@@ -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