Update Version 1.2
This commit is contained in:
Binary file not shown.
75
SW/20211125/AssessmentMgmt.sln
Normal file
75
SW/20211125/AssessmentMgmt.sln
Normal file
@@ -0,0 +1,75 @@
|
|||||||
|
|
||||||
|
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}") = "AssessmentMgmt", "AssessmentMgmt\AssessmentMgmt.vbproj", "{1B191999-7204-4EB5-96F7-A6805B0B32FC}"
|
||||||
|
EndProject
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ThemenDokumente", "Dokumente\ThemenDokumente.vbproj", "{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}"
|
||||||
|
EndProject
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "_FRReporting", "_FRReporting\_FRReporting.vbproj", "{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}"
|
||||||
|
EndProject
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "WindowsApp1", "WindowsApp1\WindowsApp1.vbproj", "{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}"
|
||||||
|
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
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|Mixed Platforms.Build.0 = Debug|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|x86.ActiveCfg = Debug|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|x86.Build.0 = Debug|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|Any CPU.ActiveCfg = Release|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|Mixed Platforms.ActiveCfg = Release|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|Mixed Platforms.Build.0 = Release|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|x86.ActiveCfg = Release|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|x86.Build.0 = Release|x86
|
||||||
|
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
|
||||||
|
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||||
|
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||||
|
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||||
|
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
||||||
|
{91C33E2D-DE28-4D17-B94B-240E51D2BCB9}.Release|x86.ActiveCfg = Release|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Debug|x86.Build.0 = Debug|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|x86.ActiveCfg = Release|Any CPU
|
||||||
|
{C04C6268-6402-4DEB-8BFA-E6A233B55DBF}.Release|x86.Build.0 = Release|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Debug|x86.Build.0 = Debug|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Release|x86.ActiveCfg = Release|Any CPU
|
||||||
|
{E7F8450A-BDE4-49D4-8256-A883DA46BAF8}.Release|x86.Build.0 = Release|Any CPU
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(SolutionProperties) = preSolution
|
||||||
|
HideSolutionNode = FALSE
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(ExtensibilityGlobals) = postSolution
|
||||||
|
SolutionGuid = {70BE0CBD-9FD7-4445-82CB-8A38BAC41906}
|
||||||
|
EndGlobalSection
|
||||||
|
EndGlobal
|
||||||
20
SW/20211125/AssessmentMgmt.sln.bak
Normal file
20
SW/20211125/AssessmentMgmt.sln.bak
Normal file
@@ -0,0 +1,20 @@
|
|||||||
|
|
||||||
|
Microsoft Visual Studio Solution File, Format Version 11.00
|
||||||
|
# Visual Studio 2010
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AssetMgmt", "AssetMgmt\AssetMgmt.vbproj", "{1B191999-7204-4EB5-96F7-A6805B0B32FC}"
|
||||||
|
EndProject
|
||||||
|
Global
|
||||||
|
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||||
|
Debug|x86 = Debug|x86
|
||||||
|
Release|x86 = Release|x86
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|x86.ActiveCfg = Debug|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|x86.Build.0 = Debug|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|x86.ActiveCfg = Release|x86
|
||||||
|
{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|x86.Build.0 = Release|x86
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(SolutionProperties) = preSolution
|
||||||
|
HideSolutionNode = FALSE
|
||||||
|
EndGlobalSection
|
||||||
|
EndGlobal
|
||||||
BIN
SW/20211125/AssessmentMgmt.v12.suo
Normal file
BIN
SW/20211125/AssessmentMgmt.v12.suo
Normal file
Binary file not shown.
6
SW/20211125/AssessmentMgmt/App.config
Normal file
6
SW/20211125/AssessmentMgmt/App.config
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<configuration>
|
||||||
|
<startup>
|
||||||
|
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/></startup>
|
||||||
|
</configuration>
|
||||||
BIN
SW/20211125/AssessmentMgmt/AssessmentMgmt.ico
Normal file
BIN
SW/20211125/AssessmentMgmt/AssessmentMgmt.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 206 KiB |
569
SW/20211125/AssessmentMgmt/AssessmentMgmt.vbproj
Normal file
569
SW/20211125/AssessmentMgmt/AssessmentMgmt.vbproj
Normal file
@@ -0,0 +1,569 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||||
|
<ProductVersion>
|
||||||
|
</ProductVersion>
|
||||||
|
<SchemaVersion>2.0</SchemaVersion>
|
||||||
|
<ProjectGuid>{1B191999-7204-4EB5-96F7-A6805B0B32FC}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>AssetMgmt.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>AssetMgmt</RootNamespace>
|
||||||
|
<AssemblyName>AssessmentMgmt</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||||
|
<TargetFrameworkProfile>
|
||||||
|
</TargetFrameworkProfile>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>AssessmentMgmt.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
<Prefer32Bit>false</Prefer32Bit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>AssessmentMgmt.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
<Prefer32Bit>false</Prefer32Bit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<ApplicationIcon>AssessmentMgmt.ico</ApplicationIcon>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20162.166, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="DevComponents.DotNetBar2, Version=12.5.0.5, Culture=neutral, PublicKeyToken=7eb7c3a35b91de04, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>C:\Program Files (x86)\DotNetBar for Windows Forms\DevComponents.DotNetBar2.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="DropDownControls">
|
||||||
|
<HintPath>..\..\..\..\Klassen\DropDownControl\bin\Release\DropDownControls.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="EnvDTE, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="ExtendedRichTextBox, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" />
|
||||||
|
<Reference Include="RTFEditor, Version=1.0.4751.35065, Culture=neutral, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\..\..\Klassen\RTFEditor\RTFEditor\bin\Debug\RTFEditor.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="SautinSoft.HtmlToRtf">
|
||||||
|
<HintPath>D:\Installer\Sautinsoft\HTML-to-RTF Pro DLL .Net Full (4.8.9.21)\Bin\Net 3.5\SautinSoft.HtmlToRtf.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Syncfusion.Gauge.Windows, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="Syncfusion.Grid.Base, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="Syncfusion.Grid.Windows, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="Syncfusion.Shared.Base, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="Syncfusion.Shared.Windows, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="Syncfusion.Tools.Base, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="Syncfusion.Tools.Windows, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Data.OracleClient" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Design" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Drawing.Design" />
|
||||||
|
<Reference Include="System.Runtime.Remoting" />
|
||||||
|
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
|
||||||
|
<Reference Include="System.Security" />
|
||||||
|
<Reference Include="System.Web" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Windows.Forms.DataVisualization" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
<Reference Include="ThemenDokumente">
|
||||||
|
<HintPath>..\Dokumente\bin\Debug\ThemenDokumente.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="_FRReporting">
|
||||||
|
<HintPath>..\_FRReporting\bin\Debug\_FRReporting.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Drawing" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Windows.Forms" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="DB\Form2.Designer.vb">
|
||||||
|
<DependentUpon>Form2.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="DB\Form2.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsApplication.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsConnectionProvider.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsDBInteractionBase.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsDefinition_Massnahmeplan.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsDefinition_Pruefplan.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsFinma_Definition.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsFunktionsgruppe.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsFunktionsgruppe_rolle.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsKategorie.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsKey_tabelle.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsMassnahme.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsMassnahmeplan.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsMeldungstexte.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsMitarbeiter.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsMitarbeiter_funktionsgruppe.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsPeriodizitaet.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsPruefplan.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsPruefschritt.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsPruefschrittFinding.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsPruefSchrittHistory.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsPruefSchrittMassnahme.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsPruefschrittnotiz.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsPruefSchrittResultat.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsPruefSchrittStatus.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsRolle.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsRolle_SecurityObject.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsRolle_sysadminfunktion.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsSecurityObject.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsSpalten.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsSysadminfunktion.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsTerminierung.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsToolTip.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsVerantwortung.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsVorgabe.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsVorgabeDefinition.vb" />
|
||||||
|
<Compile Include="DB\MyDBObjects\clsMyKey_Tabelle.vb" />
|
||||||
|
<Compile Include="DB\MyDBObjects\db_connection.vb" />
|
||||||
|
<Compile Include="DB\MyDBObjects\frmDatenbankauswahl.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="DB\MyDBObjects\MyMitarbeiter.vb" />
|
||||||
|
<Compile Include="Diverse Formulare\Demo_Assessmentgenerierung.Designer.vb">
|
||||||
|
<DependentUpon>Demo_Assessmentgenerierung.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\Demo_Assessmentgenerierung.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\Demo_Mailgenerierung.Designer.vb">
|
||||||
|
<DependentUpon>Demo_Mailgenerierung.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\Demo_Mailgenerierung.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\Form1.Designer.vb">
|
||||||
|
<DependentUpon>Form1.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\Form1.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmAbout.designer.vb">
|
||||||
|
<DependentUpon>frmAbout.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmAbout.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmLogin.designer.vb">
|
||||||
|
<DependentUpon>frmLogin.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmLogin.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmMailInfo.Designer.vb">
|
||||||
|
<DependentUpon>frmMailInfo.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmMailInfo.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmMsgBox.designer.vb">
|
||||||
|
<DependentUpon>frmMsgBox.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmMsgBox.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmSplash.designer.vb">
|
||||||
|
<DependentUpon>frmSplash.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmSplash.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="ISI_Uebersicht\clsISIUebersicht.vb" />
|
||||||
|
<Compile Include="ISI_Uebersicht\frmISI.Designer.vb">
|
||||||
|
<DependentUpon>frmISI.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="ISI_Uebersicht\frmISI.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Kategorie\clsKategorie.vb" />
|
||||||
|
<Compile Include="Kategorie\frmKategorie.Designer.vb">
|
||||||
|
<DependentUpon>frmKategorie.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Kategorie\frmKategorie.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Klassen\clsHistory.vb" />
|
||||||
|
<Compile Include="Klassen\clsMitarbeiter.vb" />
|
||||||
|
<Compile Include="Klassen\clsStammdaten.vb" />
|
||||||
|
<Compile Include="Massnahmen\clsMassnahme.vb" />
|
||||||
|
<Compile Include="Massnahmen\clsMassnahmeplan.vb" />
|
||||||
|
<Compile Include="Massnahmen\frmMassnahmeplan.Designer.vb">
|
||||||
|
<DependentUpon>frmMassnahmeplan.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Massnahmen\frmMassnahmeplan.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Massnahmen\frmMassnahmenplanDetail.Designer.vb">
|
||||||
|
<DependentUpon>frmMassnahmenplanDetail.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Massnahmen\frmMassnahmenplanDetail.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Massnahmen\frmMassnahmeuebersicht.Designer.vb">
|
||||||
|
<DependentUpon>frmMassnahmeuebersicht.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Massnahmen\frmMassnahmeuebersicht.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Massnahmen\MassnahmeDetailBearbeitung.Designer.vb">
|
||||||
|
<DependentUpon>MassnahmeDetailBearbeitung.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Massnahmen\MassnahmeDetailBearbeitung.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefplan\clspruefplan.vb" />
|
||||||
|
<Compile Include="Pruefplan\FrmDefinition_Pruefplan.Designer.vb">
|
||||||
|
<DependentUpon>FrmDefinition_Pruefplan.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefplan\FrmDefinition_Pruefplan.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefplan\frmPPlan.Designer.vb">
|
||||||
|
<DependentUpon>frmPPlan.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefplan\frmPPlan.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefplan\frmPruefplan.Designer.vb">
|
||||||
|
<DependentUpon>frmPruefplan.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefplan\frmPruefplan.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefplan\frmPruefplanDetail.Designer.vb">
|
||||||
|
<DependentUpon>frmPruefplanDetail.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefplan\frmPruefplanDetail.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\clsPruefschrittMassnahme.vb" />
|
||||||
|
<Compile Include="Pruefschritt\clsPruefschritt.vb" />
|
||||||
|
<Compile Include="Pruefschritt\clsPruefschrittResultat.vb" />
|
||||||
|
<Compile Include="Pruefschritt\clsStatus.vb" />
|
||||||
|
<Compile Include="Pruefschritt\FrmFinding.Designer.vb">
|
||||||
|
<DependentUpon>FrmFinding.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\FrmFinding.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\frmFindingHilfe.Designer.vb">
|
||||||
|
<DependentUpon>frmFindingHilfe.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\frmFindingHilfe.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\frmMassnahme.Designer.vb">
|
||||||
|
<DependentUpon>frmMassnahme.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\frmMassnahme.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\frmPruefschrittUebersicht.Designer.vb">
|
||||||
|
<DependentUpon>frmPruefschrittUebersicht.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\frmPruefschrittUebersicht.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\frmWeitergabe.Designer.vb">
|
||||||
|
<DependentUpon>frmWeitergabe.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\frmWeitergabe.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\PruefschrittDetailsBearbeitung.Designer.vb">
|
||||||
|
<DependentUpon>PruefschrittDetailsBearbeitung.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Pruefschritt\PruefschrittDetailsBearbeitung.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmDomainEditor.designer.vb">
|
||||||
|
<DependentUpon>frmDomainEditor.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmDomainEditor.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmDomainEditorExtTables.designer.vb">
|
||||||
|
<DependentUpon>frmDomainEditorExtTables.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmDomainEditorExtTables.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmFormSelector.designer.vb">
|
||||||
|
<DependentUpon>frmFormSelector.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmFormSelector.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmSysadminMenu.designer.vb">
|
||||||
|
<DependentUpon>frmSysadminMenu.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmSysadminMenu.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmSysadminTableSelector.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\FrmToolTipEditor.designer.vb">
|
||||||
|
<DependentUpon>FrmToolTipEditor.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\FrmToolTipEditor.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmVerbindungEditor.designer.vb">
|
||||||
|
<DependentUpon>frmVerbindungEditor.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmVerbindungEditor.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\MySysadmin.vb" />
|
||||||
|
<Compile Include="Sysadmin\MySysadminFunktion.vb" />
|
||||||
|
<Compile Include="frmMain.Designer.vb">
|
||||||
|
<DependentUpon>frmMain.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmMain.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Klassen\clsToolTips.vb" />
|
||||||
|
<Compile Include="Klassen\FilterClass.vb" />
|
||||||
|
<Compile Include="Klassen\MyDocMgmt.vb" />
|
||||||
|
<Compile Include="Klassen\MyGenericEventHandler.vb" />
|
||||||
|
<Compile Include="Klassen\MyMessage.vb" />
|
||||||
|
<Compile Include="Klassen\MySecurity.vb" />
|
||||||
|
<Compile Include="Klassen\MySpalten.vb" />
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Uebersichten\FrmUebersicht.Designer.vb">
|
||||||
|
<DependentUpon>FrmUebersicht.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Uebersichten\FrmUebersicht.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Utils\Crypto.vb" />
|
||||||
|
<Compile Include="Utils\Globals.vb" />
|
||||||
|
<Compile Include="Pruefschritt\clsFinding.vb" />
|
||||||
|
<Compile Include="Vorgabe\clsVorgabe.vb" />
|
||||||
|
<Compile Include="Vorgabe\clsVorgabeDefinition.vb" />
|
||||||
|
<Compile Include="Vorgabe\frmNeuerVorgabeEintrag.Designer.vb">
|
||||||
|
<DependentUpon>frmNeuerVorgabeEintrag.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Vorgabe\frmNeuerVorgabeEintrag.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Vorgabe\frmVorgabe.Designer.vb">
|
||||||
|
<DependentUpon>frmVorgabe.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Vorgabe\frmVorgabe.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Vorgabe\frmVorgabeDefinition.Designer.vb">
|
||||||
|
<DependentUpon>frmVorgabeDefinition.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Vorgabe\frmVorgabeDefinition.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="DB\Form2.resx">
|
||||||
|
<DependentUpon>Form2.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="DB\MyDBObjects\frmDatenbankauswahl.resx" />
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\Demo_Assessmentgenerierung.resx">
|
||||||
|
<DependentUpon>Demo_Assessmentgenerierung.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\Demo_Mailgenerierung.resx">
|
||||||
|
<DependentUpon>Demo_Mailgenerierung.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\Form1.resx">
|
||||||
|
<DependentUpon>Form1.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\frmAbout.resx">
|
||||||
|
<DependentUpon>frmAbout.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\frmLogin.resx">
|
||||||
|
<DependentUpon>frmLogin.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\frmMailInfo.resx">
|
||||||
|
<DependentUpon>frmMailInfo.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\frmMsgBox.resx">
|
||||||
|
<DependentUpon>frmMsgBox.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\frmSplash.resx">
|
||||||
|
<DependentUpon>frmSplash.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="ISI_Uebersicht\frmISI.resx">
|
||||||
|
<DependentUpon>frmISI.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Kategorie\frmKategorie.resx">
|
||||||
|
<DependentUpon>frmKategorie.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Massnahmen\frmMassnahmeplan.resx">
|
||||||
|
<DependentUpon>frmMassnahmeplan.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Massnahmen\frmMassnahmenplanDetail.resx">
|
||||||
|
<DependentUpon>frmMassnahmenplanDetail.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Massnahmen\frmMassnahmeuebersicht.resx">
|
||||||
|
<DependentUpon>frmMassnahmeuebersicht.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Massnahmen\MassnahmeDetailBearbeitung.resx">
|
||||||
|
<DependentUpon>MassnahmeDetailBearbeitung.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Pruefplan\FrmDefinition_Pruefplan.resx">
|
||||||
|
<DependentUpon>FrmDefinition_Pruefplan.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Pruefplan\frmPPlan.resx">
|
||||||
|
<DependentUpon>frmPPlan.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Pruefplan\frmPruefplan.resx">
|
||||||
|
<DependentUpon>frmPruefplan.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Pruefplan\frmPruefplanDetail.resx">
|
||||||
|
<DependentUpon>frmPruefplanDetail.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Pruefschritt\FrmFinding.resx">
|
||||||
|
<DependentUpon>FrmFinding.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Pruefschritt\frmFindingHilfe.resx">
|
||||||
|
<DependentUpon>frmFindingHilfe.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Pruefschritt\frmMassnahme.resx">
|
||||||
|
<DependentUpon>frmMassnahme.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Pruefschritt\frmPruefschrittUebersicht.resx">
|
||||||
|
<DependentUpon>frmPruefschrittUebersicht.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Pruefschritt\frmWeitergabe.resx">
|
||||||
|
<DependentUpon>frmWeitergabe.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Pruefschritt\PruefschrittDetailsBearbeitung.resx">
|
||||||
|
<DependentUpon>PruefschrittDetailsBearbeitung.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmDomainEditor.resx">
|
||||||
|
<DependentUpon>frmDomainEditor.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmDomainEditorExtTables.resx">
|
||||||
|
<DependentUpon>frmDomainEditorExtTables.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmFormSelector.resx">
|
||||||
|
<DependentUpon>frmFormSelector.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmSysadminMenu.resx">
|
||||||
|
<DependentUpon>frmSysadminMenu.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmSysadminTableSelector.resx">
|
||||||
|
<DependentUpon>frmSysadminTableSelector.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\FrmToolTipEditor.resx">
|
||||||
|
<DependentUpon>FrmToolTipEditor.vb</DependentUpon>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmVerbindungEditor.resx">
|
||||||
|
<DependentUpon>frmVerbindungEditor.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmMain.resx">
|
||||||
|
<DependentUpon>frmMain.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Uebersichten\FrmUebersicht.resx">
|
||||||
|
<DependentUpon>FrmUebersicht.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Vorgabe\frmNeuerVorgabeEintrag.resx">
|
||||||
|
<DependentUpon>frmNeuerVorgabeEintrag.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Vorgabe\frmVorgabe.resx">
|
||||||
|
<DependentUpon>frmVorgabe.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Vorgabe\frmVorgabeDefinition.resx">
|
||||||
|
<DependentUpon>frmVorgabeDefinition.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="App.config" />
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Content Include="AssessmentMgmt.ico" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup />
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||||
|
Other similar extension points exist, see Microsoft.Common.targets.
|
||||||
|
<Target Name="BeforeBuild">
|
||||||
|
</Target>
|
||||||
|
<Target Name="AfterBuild">
|
||||||
|
</Target>
|
||||||
|
-->
|
||||||
|
</Project>
|
||||||
7
SW/20211125/AssessmentMgmt/AssessmentMgmt.vbproj.user
Normal file
7
SW/20211125/AssessmentMgmt/AssessmentMgmt.vbproj.user
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
|
||||||
|
<StartArguments>
|
||||||
|
</StartArguments>
|
||||||
|
</PropertyGroup>
|
||||||
|
</Project>
|
||||||
BIN
SW/20211125/AssessmentMgmt/AssessmentMgmt_TemporaryKey.pfx
Normal file
BIN
SW/20211125/AssessmentMgmt/AssessmentMgmt_TemporaryKey.pfx
Normal file
Binary file not shown.
81
SW/20211125/AssessmentMgmt/DB/Form2.Designer.vb
generated
Normal file
81
SW/20211125/AssessmentMgmt/DB/Form2.Designer.vb
generated
Normal file
@@ -0,0 +1,81 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class Form2
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form2))
|
||||||
|
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
Me.C1TrueDBGrid2 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.C1TrueDBGrid2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'C1TrueDBGrid1
|
||||||
|
'
|
||||||
|
Me.C1TrueDBGrid1.BorderColor = System.Drawing.SystemColors.WindowFrame
|
||||||
|
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
|
||||||
|
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
|
||||||
|
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(240, 150)
|
||||||
|
Me.C1TrueDBGrid1.TabIndex = 0
|
||||||
|
Me.C1TrueDBGrid1.UseCompatibleTextRendering = False
|
||||||
|
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
|
||||||
|
'
|
||||||
|
'C1TrueDBGrid2
|
||||||
|
'
|
||||||
|
Me.C1TrueDBGrid2.BorderColor = System.Drawing.SystemColors.WindowFrame
|
||||||
|
Me.C1TrueDBGrid2.GroupByCaption = "Drag a column header here to group by that column"
|
||||||
|
Me.C1TrueDBGrid2.Images.Add(CType(resources.GetObject("C1TrueDBGrid2.Images"), System.Drawing.Image))
|
||||||
|
Me.C1TrueDBGrid2.Location = New System.Drawing.Point(713, 111)
|
||||||
|
Me.C1TrueDBGrid2.Name = "C1TrueDBGrid2"
|
||||||
|
Me.C1TrueDBGrid2.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1TrueDBGrid2.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1TrueDBGrid2.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1TrueDBGrid2.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid2.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1TrueDBGrid2.Size = New System.Drawing.Size(240, 150)
|
||||||
|
Me.C1TrueDBGrid2.TabIndex = 1
|
||||||
|
Me.C1TrueDBGrid2.UseCompatibleTextRendering = False
|
||||||
|
Me.C1TrueDBGrid2.PropBag = resources.GetString("C1TrueDBGrid2.PropBag")
|
||||||
|
'
|
||||||
|
'Form2
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(800, 450)
|
||||||
|
Me.Controls.Add(Me.C1TrueDBGrid2)
|
||||||
|
Me.Controls.Add(Me.C1TrueDBGrid1)
|
||||||
|
Me.Name = "Form2"
|
||||||
|
Me.Text = "Form2"
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.C1TrueDBGrid2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
Friend WithEvents C1TrueDBGrid2 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
End Class
|
||||||
199
SW/20211125/AssessmentMgmt/DB/Form2.resx
Normal file
199
SW/20211125/AssessmentMgmt/DB/Form2.resx
Normal file
@@ -0,0 +1,199 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="C1TrueDBGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||||
|
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style16{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style6{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 238, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 238, 148</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||||
|
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid2.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid2.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style16{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style6{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 238, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 238, 148</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
3
SW/20211125/AssessmentMgmt/DB/Form2.vb
Normal file
3
SW/20211125/AssessmentMgmt/DB/Form2.vb
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
Public Class Form2
|
||||||
|
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,517 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'Application'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'Application'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsApplication
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bShowlogin, m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iMandantnr, m_iApplikationsnr As SqlInt32
|
||||||
|
Private m_sTmp_filepath, m_sVersion As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iApplikationsnr</LI>
|
||||||
|
''' <LI>sVersion. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bShowlogin. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sTmp_filepath. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Application_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sversion", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowlogin", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bShowlogin))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stmp_filepath", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTmp_filepath))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Application_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsApplication::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iApplikationsnr</LI>
|
||||||
|
''' <LI>sVersion. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bShowlogin. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sTmp_filepath. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Application_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sversion", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowlogin", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bShowlogin))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stmp_filepath", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTmp_filepath))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Application_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsApplication::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iApplikationsnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Application_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Application_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsApplication::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iApplikationsnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iApplikationsnr</LI>
|
||||||
|
''' <LI>sVersion</LI>
|
||||||
|
''' <LI>bShowlogin</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>sTmp_filepath</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Application_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Application")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Application_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iApplikationsnr = New SqlInt32(CType(dtToReturn.Rows(0)("applikationsnr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("version") Is System.DBNull.Value Then
|
||||||
|
m_sVersion = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sVersion = New SqlString(CType(dtToReturn.Rows(0)("version"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("showlogin") Is System.DBNull.Value Then
|
||||||
|
m_bShowlogin = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bShowlogin = New SqlBoolean(CType(dtToReturn.Rows(0)("showlogin"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("tmp_filepath") Is System.DBNull.Value Then
|
||||||
|
m_sTmp_filepath = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sTmp_filepath = New SqlString(CType(dtToReturn.Rows(0)("tmp_filepath"), String))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsApplication::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Application_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Application")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Application_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsApplication::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iApplikationsnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iApplikationsnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iApplikationsnrTmp As SqlInt32 = Value
|
||||||
|
If iApplikationsnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iApplikationsnr", "iApplikationsnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iApplikationsnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sVersion]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sVersion
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sVersion = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bShowlogin]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bShowlogin
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bShowlogin = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sTmp_filepath]() As SqlString
|
||||||
|
Get
|
||||||
|
Dim s As String
|
||||||
|
s = m_sTmp_filepath.ToString
|
||||||
|
If UCase(s).IndexOf("%APPDATA%") > -1 Then
|
||||||
|
s = s.Replace("%appdata%", System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData))
|
||||||
|
End If
|
||||||
|
m_sTmp_filepath = New SqlString(CType(s, String))
|
||||||
|
Return m_sTmp_filepath
|
||||||
|
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sTmp_filepath = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,390 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsDefinition_Massnahmeplan
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daGueltig_Bis, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iDefinitionNr, m_iMassnahmeplanNr, m_iDefinition_MassnahmeplanNr As SqlInt32
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Definition_Massnahmeplan_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iDefinition_MassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_MassnahmeplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iDefinition_MassnahmeplanNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iDefinition_MassnahmeplanNr").Value, SqlInt32))
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Definition_Massnahmeplan_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsDefinition_Massnahmeplan::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Definition_Massnahmeplan_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinition_MassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_MassnahmeplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Definition_Massnahmeplan_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsDefinition_Massnahmeplan::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Definition_Massnahmeplan_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinition_MassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_MassnahmeplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Definition_Massnahmeplan_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsDefinition_Massnahmeplan::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Definition_Massnahmeplan_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Definition_Massnahmeplan")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iDefinition_MassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_MassnahmeplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Definition_Massnahmeplan_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iDefinition_MassnahmeplanNr = New SqlInt32(CType(dtToReturn.Rows(0)("Definition_MassnahmeplanNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("DefinitionNr") Is System.DBNull.Value Then
|
||||||
|
m_iDefinitionNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iDefinitionNr = New SqlInt32(CType(dtToReturn.Rows(0)("DefinitionNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("MassnahmeplanNr") Is System.DBNull.Value Then
|
||||||
|
m_iMassnahmeplanNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMassnahmeplanNr = New SqlInt32(CType(dtToReturn.Rows(0)("MassnahmeplanNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Gueltig_Bis") Is System.DBNull.Value Then
|
||||||
|
m_daGueltig_Bis = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daGueltig_Bis = New SqlDateTime(CType(dtToReturn.Rows(0)("Gueltig_Bis"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsDefinition_Massnahmeplan::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Definition_Massnahmeplan_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Definition_Massnahmeplan")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Definition_Massnahmeplan_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsDefinition_Massnahmeplan::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iDefinition_MassnahmeplanNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iDefinition_MassnahmeplanNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iDefinition_MassnahmeplanNrTmp As SqlInt32 = Value
|
||||||
|
If iDefinition_MassnahmeplanNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iDefinition_MassnahmeplanNr", "iDefinition_MassnahmeplanNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iDefinition_MassnahmeplanNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iDefinitionNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iDefinitionNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iDefinitionNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMassnahmeplanNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMassnahmeplanNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMassnahmeplanNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daGueltig_Bis]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daGueltig_Bis
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daGueltig_Bis = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,390 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsDefinition_Pruefplan
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daGueltig_Bis, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iDefinitionNr, m_iPruefplanNr, m_iDefinition_PruefplanNr As SqlInt32
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Definition_Pruefplan_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinition_PruefplanNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_PruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iDefinition_PruefplanNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iDefinition_PruefplanNr").Value, SqlInt32))
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Definition_Pruefplan_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsDefinition_Pruefplan::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Definition_Pruefplan_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinition_PruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_PruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Definition_Pruefplan_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsDefinition_Pruefplan::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Definition_Pruefplan_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinition_PruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_PruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Definition_Pruefplan_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsDefinition_Pruefplan::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Definition_Pruefplan_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = New DataTable("Definition_Pruefplan")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iDefinition_PruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDefinition_PruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Definition_Pruefplan_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iDefinition_PruefplanNr = New SqlInt32(CType(dtToReturn.Rows(0)("Definition_PruefplanNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("DefinitionNr") Is System.DBNull.Value Then
|
||||||
|
m_iDefinitionNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iDefinitionNr = New SqlInt32(CType(dtToReturn.Rows(0)("DefinitionNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("PruefplanNr") Is System.DBNull.Value Then
|
||||||
|
m_iPruefplanNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPruefplanNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefplanNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Gueltig_Bis") Is System.DBNull.Value Then
|
||||||
|
m_daGueltig_Bis = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daGueltig_Bis = New SqlDateTime(CType(dtToReturn.Rows(0)("Gueltig_Bis"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsDefinition_Pruefplan::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Definition_Pruefplan_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = New DataTable("Definition_Pruefplan")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Definition_Pruefplan_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsDefinition_Pruefplan::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iDefinition_PruefplanNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iDefinition_PruefplanNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iDefinition_PruefplanNrTmp As SqlInt32 = Value
|
||||||
|
If iDefinition_PruefplanNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iDefinition_PruefplanNr", "iDefinition_PruefplanNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iDefinition_PruefplanNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iDefinitionNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iDefinitionNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iDefinitionNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPruefplanNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefplanNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPruefplanNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daGueltig_Bis]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daGueltig_Bis
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daGueltig_Bis = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,526 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsFinma_Definition
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iNormaltive_Vorlage, m_iFinmaDefinitionNr, m_iMutierer, m_iKategorie, m_iParentID As SqlInt32
|
||||||
|
Private m_sISO, m_sRef_Kontrolle, m_sKurzbeschreibung, m_sFinmaRS, m_sUnterpunkt_FINMA_RS, m_sGrundsatz_Finma, m_sErgänzungen, m_sDefinition As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Finma_Definition_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFinmaDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFinmaDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFinmaRS", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFinmaRS))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sISO", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sISO))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sRef_Kontrolle", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRef_Kontrolle))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKurzbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzbeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKategorie", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKategorie))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iNormaltive_Vorlage", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNormaltive_Vorlage))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sGrundsatz_Finma", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sGrundsatz_Finma))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sUnterpunkt_FINMA_RS", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUnterpunkt_FINMA_RS))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDefinition", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDefinition))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sErgänzungen", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sErgänzungen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Finma_Definition_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFinma_Definition::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Finma_Definition_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFinmaDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFinmaDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFinmaRS", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFinmaRS))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sISO", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sISO))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sRef_Kontrolle", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRef_Kontrolle))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKurzbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzbeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKategorie", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKategorie))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iNormaltive_Vorlage", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNormaltive_Vorlage))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sGrundsatz_Finma", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sGrundsatz_Finma))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sUnterpunkt_FINMA_RS", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUnterpunkt_FINMA_RS))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDefinition", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDefinition))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sErgänzungen", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sErgänzungen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Finma_Definition_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFinma_Definition::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Finma_Definition_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFinmaDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFinmaDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Finma_Definition_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFinma_Definition::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Finma_Definition_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Finma_Definition")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iFinmaDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFinmaDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Finma_Definition_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iFinmaDefinitionNr = New SqlInt32(CType(dtToReturn.Rows(0)("FinmaDefinitionNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("ParentID") Is System.DBNull.Value Then
|
||||||
|
m_iParentID = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iParentID = New SqlInt32(CType(dtToReturn.Rows(0)("ParentID"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("FinmaRS") Is System.DBNull.Value Then
|
||||||
|
m_sFinmaRS = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sFinmaRS = New SqlString(CType(dtToReturn.Rows(0)("FinmaRS"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ISO") Is System.DBNull.Value Then
|
||||||
|
m_sISO = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sISO = New SqlString(CType(dtToReturn.Rows(0)("ISO"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Ref_Kontrolle") Is System.DBNull.Value Then
|
||||||
|
m_sRef_Kontrolle = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sRef_Kontrolle = New SqlString(CType(dtToReturn.Rows(0)("Ref_Kontrolle"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Kurzbeschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sKurzbeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sKurzbeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Kurzbeschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Kategorie") Is System.DBNull.Value Then
|
||||||
|
m_iKategorie = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iKategorie = New SqlInt32(CType(dtToReturn.Rows(0)("Kategorie"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Normaltive_Vorlage") Is System.DBNull.Value Then
|
||||||
|
m_iNormaltive_Vorlage = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iNormaltive_Vorlage = New SqlInt32(CType(dtToReturn.Rows(0)("Normaltive_Vorlage"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Grundsatz_Finma") Is System.DBNull.Value Then
|
||||||
|
m_sGrundsatz_Finma = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sGrundsatz_Finma = New SqlString(CType(dtToReturn.Rows(0)("Grundsatz_Finma"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Unterpunkt_FINMA_RS") Is System.DBNull.Value Then
|
||||||
|
m_sUnterpunkt_FINMA_RS = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sUnterpunkt_FINMA_RS = New SqlString(CType(dtToReturn.Rows(0)("Unterpunkt_FINMA_RS"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Definition") Is System.DBNull.Value Then
|
||||||
|
m_sDefinition = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sDefinition = New SqlString(CType(dtToReturn.Rows(0)("Definition"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Ergänzungen") Is System.DBNull.Value Then
|
||||||
|
m_sErgänzungen = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sErgänzungen = New SqlString(CType(dtToReturn.Rows(0)("Ergänzungen"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFinma_Definition::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Finma_Definition_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Finma_Definition")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Finma_Definition_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFinma_Definition::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iFinmaDefinitionNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFinmaDefinitionNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iFinmaDefinitionNrTmp As SqlInt32 = Value
|
||||||
|
If iFinmaDefinitionNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iFinmaDefinitionNr", "iFinmaDefinitionNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iFinmaDefinitionNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iParentID]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iParentID
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iParentID = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sFinmaRS]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sFinmaRS
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sFinmaRS = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sISO]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sISO
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sISO = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sRef_Kontrolle]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sRef_Kontrolle
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sRef_Kontrolle = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sKurzbeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sKurzbeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sKurzbeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iKategorie]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKategorie
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iKategorie = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iNormaltive_Vorlage]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iNormaltive_Vorlage
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iNormaltive_Vorlage = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sGrundsatz_Finma]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sGrundsatz_Finma
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sGrundsatz_Finma = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sUnterpunkt_FINMA_RS]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sUnterpunkt_FINMA_RS
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sUnterpunkt_FINMA_RS = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sDefinition]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sDefinition
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sDefinition = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sErgänzungen]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sErgänzungen
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sErgänzungen = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,510 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'funktionsgruppe'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'funktionsgruppe'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsFunktionsgruppe
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iMandantnr, m_iFunktionsgruppenr As SqlInt32
|
||||||
|
Private m_sZugehoerigkeit, m_sBezeichnung, m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgruppenr</LI>
|
||||||
|
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sZugehoerigkeit. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@szugehoerigkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZugehoerigkeit))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgruppenr</LI>
|
||||||
|
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sZugehoerigkeit. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@szugehoerigkeit", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZugehoerigkeit))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgruppenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgruppenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr</LI>
|
||||||
|
''' <LI>sBezeichnung</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>sZugehoerigkeit</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("funktionsgruppe")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iFunktionsgruppenr = New SqlInt32(CType(dtToReturn.Rows(0)("funktionsgruppenr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("zugehoerigkeit") Is System.DBNull.Value Then
|
||||||
|
m_sZugehoerigkeit = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sZugehoerigkeit = New SqlString(CType(dtToReturn.Rows(0)("zugehoerigkeit"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("funktionsgruppe")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iFunktionsgruppenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFunktionsgruppenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iFunktionsgruppenrTmp As SqlInt32 = Value
|
||||||
|
If iFunktionsgruppenrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iFunktionsgruppenr", "iFunktionsgruppenr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iFunktionsgruppenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sZugehoerigkeit]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sZugehoerigkeit
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sZugehoerigkeit = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,489 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'funktionsgruppe_rolle'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'funktionsgruppe_rolle'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsFunktionsgruppe_rolle
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iFunktionsgruppenr, m_iFunktionsgrupperollenr, m_iMandantnr, m_iRollenr As SqlInt32
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgrupperollenr</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iRollenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_rolle_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFunktionsgrupperollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgrupperollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_rolle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe_rolle::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgrupperollenr</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iRollenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_rolle_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFunktionsgrupperollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgrupperollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_rolle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe_rolle::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgrupperollenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_rolle_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFunktionsgrupperollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgrupperollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_rolle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe_rolle::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgrupperollenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iFunktionsgrupperollenr</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr</LI>
|
||||||
|
''' <LI>iRollenr</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_rolle_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("funktionsgruppe_rolle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iFunktionsgrupperollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgrupperollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_rolle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iFunktionsgrupperollenr = New SqlInt32(CType(dtToReturn.Rows(0)("Funktionsgrupperollenr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("funktionsgruppenr") Is System.DBNull.Value Then
|
||||||
|
m_iFunktionsgruppenr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFunktionsgruppenr = New SqlInt32(CType(dtToReturn.Rows(0)("funktionsgruppenr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("rollenr") Is System.DBNull.Value Then
|
||||||
|
m_iRollenr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iRollenr = New SqlInt32(CType(dtToReturn.Rows(0)("rollenr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe_rolle::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_rolle_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("funktionsgruppe_rolle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_rolle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe_rolle::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iFunktionsgrupperollenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFunktionsgrupperollenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iFunktionsgrupperollenrTmp As SqlInt32 = Value
|
||||||
|
If iFunktionsgrupperollenrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iFunktionsgrupperollenr", "iFunktionsgrupperollenr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iFunktionsgrupperollenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFunktionsgruppenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFunktionsgruppenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFunktionsgruppenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iRollenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iRollenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iRollenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
407
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsKategorie.vb
Normal file
407
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsKategorie.vb
Normal file
@@ -0,0 +1,407 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsKategorie
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iKategorienr, m_iParentid As SqlInt32
|
||||||
|
Private m_sBeschreibung_Lang, m_sBezeichnung, m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Kategorie_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKategorienr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKategorienr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iparentid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentid))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung_Lang", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung_Lang))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Kategorie_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKategorie::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Kategorie_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKategorienr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKategorienr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iparentid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentid))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung_Lang", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung_Lang))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Kategorie_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKategorie::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Kategorie_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKategorienr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKategorienr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Kategorie_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKategorie::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Kategorie_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Kategorie")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iKategorienr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKategorienr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Kategorie_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iKategorienr = New SqlInt32(CType(dtToReturn.Rows(0)("Kategorienr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("parentid") Is System.DBNull.Value Then
|
||||||
|
m_iParentid = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iParentid = New SqlInt32(CType(dtToReturn.Rows(0)("parentid"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung_Lang") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung_Lang = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung_Lang = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung_Lang"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKategorie::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Kategorie_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Kategorie")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Kategorie_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKategorie::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iKategorienr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKategorienr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iKategorienrTmp As SqlInt32 = Value
|
||||||
|
If iKategorienrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iKategorienr", "iKategorienr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iKategorienr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iParentid]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iParentid
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iParentid = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung_Lang]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung_Lang
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung_Lang = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,491 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'key_tabelle'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'key_tabelle'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsKey_tabelle
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
|
||||||
|
Private m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iKeynr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@ikeynr").Value, Integer))
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
||||||
|
m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iKeynr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKeynr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iKeynrTmp As SqlInt32 = Value
|
||||||
|
If iKeynrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iKeynr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
Dim sBeschreibungTmp As SqlString = Value
|
||||||
|
If sBeschreibungTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
|
||||||
|
End If
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iKey_wert]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKey_wert
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iKey_wertTmp As SqlInt32 = Value
|
||||||
|
If iKey_wertTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iKey_wert = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
476
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsMassnahme.vb
Normal file
476
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsMassnahme.vb
Normal file
@@ -0,0 +1,476 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace db
|
||||||
|
Public Class clsMassnahme
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daTermin, m_daMutiert_am, m_daZugewiesen, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iAktueller_Verantwortlicher, m_iVerantwortlichNr, m_iVerantwortungIsINr, m_iMassnahmeNr, m_iMutierer, m_iStatusNr, m_iMassnahmeplannr As SqlInt32
|
||||||
|
Private m_sMassnahmeResultat As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Massnahme_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeplannr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplannr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatusNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMassnahmeResultat", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMassnahmeResultat))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daTermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daTermin))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortlichNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlichNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungIsINr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungIsINr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAktueller_Verantwortlicher", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAktueller_Verantwortlicher))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daZugewiesen", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daZugewiesen))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iMassnahmeNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iMassnahmeNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iMassnahmeNr").Value, Integer))
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Massnahme_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMassnahme::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Massnahme_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeplannr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplannr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatusNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMassnahmeResultat", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMassnahmeResultat))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daTermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daTermin))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortlichNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlichNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungIsINr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungIsINr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAktueller_Verantwortlicher", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAktueller_Verantwortlicher))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daZugewiesen", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daZugewiesen))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Massnahme_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMassnahme::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Massnahme_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Massnahme_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMassnahme::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Massnahme_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Massnahme")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iMassnahmeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Massnahme_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iMassnahmeNr = New SqlInt32(CType(dtToReturn.Rows(0)("MassnahmeNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("Massnahmeplannr") Is System.DBNull.Value Then
|
||||||
|
m_iMassnahmeplannr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMassnahmeplannr = New SqlInt32(CType(dtToReturn.Rows(0)("Massnahmeplannr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("StatusNr") Is System.DBNull.Value Then
|
||||||
|
m_iStatusNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iStatusNr = New SqlInt32(CType(dtToReturn.Rows(0)("StatusNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("MassnahmeResultat") Is System.DBNull.Value Then
|
||||||
|
m_sMassnahmeResultat = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sMassnahmeResultat = New SqlString(CType(dtToReturn.Rows(0)("MassnahmeResultat"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Termin") Is System.DBNull.Value Then
|
||||||
|
m_daTermin = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daTermin = New SqlDateTime(CType(dtToReturn.Rows(0)("Termin"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("VerantwortlichNr") Is System.DBNull.Value Then
|
||||||
|
m_iVerantwortlichNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVerantwortlichNr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortlichNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("VerantwortungIsINr") Is System.DBNull.Value Then
|
||||||
|
m_iVerantwortungIsINr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVerantwortungIsINr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortungIsINr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktueller_Verantwortlicher") Is System.DBNull.Value Then
|
||||||
|
m_iAktueller_Verantwortlicher = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iAktueller_Verantwortlicher = New SqlInt32(CType(dtToReturn.Rows(0)("Aktueller_Verantwortlicher"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Zugewiesen") Is System.DBNull.Value Then
|
||||||
|
m_daZugewiesen = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daZugewiesen = New SqlDateTime(CType(dtToReturn.Rows(0)("Zugewiesen"), Date))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMassnahme::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Massnahme_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Massnahme")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Massnahme_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMassnahme::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iMassnahmeNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMassnahmeNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iMassnahmeNrTmp As SqlInt32 = Value
|
||||||
|
If iMassnahmeNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iMassnahmeNr", "iMassnahmeNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iMassnahmeNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMassnahmeplannr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMassnahmeplannr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMassnahmeplannr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iStatusNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iStatusNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iStatusNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sMassnahmeResultat]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sMassnahmeResultat
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sMassnahmeResultat = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daTermin]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daTermin
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daTermin = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVerantwortlichNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVerantwortlichNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVerantwortlichNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVerantwortungIsINr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVerantwortungIsINr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVerantwortungIsINr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iAktueller_Verantwortlicher]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iAktueller_Verantwortlicher
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iAktueller_Verantwortlicher = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daZugewiesen]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daZugewiesen
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daZugewiesen = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,577 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsMassnahmeplan
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daGueltig_Bis, m_daErstmals_am, m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iVerantwortlichNr, m_iTerminierungID, m_iMutierer, m_iVerantwortungISINr, m_iPrioritaetNr, m_iPeriodizitaetNr, m_iMassnahmeplanNr, m_iZeitpunktNr As SqlInt32
|
||||||
|
Private m_sBezeichnung, m_sMassnahmen, m_sPruefgegenstand, m_sErgebnisse, m_sHilfsmittel, m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Massnahmeplan_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPrioritaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPrioritaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iZeitpunktNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZeitpunktNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstmals_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstmals_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sPruefgegenstand", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPruefgegenstand))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sHilfsmittel", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHilfsmittel))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMassnahmen", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMassnahmen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sErgebnisse", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sErgebnisse))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortlichNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlichNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungISINr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungISINr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iTerminierungID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTerminierungID))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Massnahmeplan_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMassnahmeplan::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Massnahmeplan_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPrioritaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPrioritaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iZeitpunktNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZeitpunktNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstmals_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstmals_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sPruefgegenstand", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPruefgegenstand))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sHilfsmittel", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHilfsmittel))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMassnahmen", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMassnahmen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sErgebnisse", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sErgebnisse))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortlichNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlichNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungISINr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungISINr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iTerminierungID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTerminierungID))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Massnahmeplan_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMassnahmeplan::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Massnahmeplan_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Massnahmeplan_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMassnahmeplan::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Massnahmeplan_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Massnahmeplan")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iMassnahmeplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Massnahmeplan_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iMassnahmeplanNr = New SqlInt32(CType(dtToReturn.Rows(0)("MassnahmeplanNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("PrioritaetNr") Is System.DBNull.Value Then
|
||||||
|
m_iPrioritaetNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPrioritaetNr = New SqlInt32(CType(dtToReturn.Rows(0)("PrioritaetNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("PeriodizitaetNr") Is System.DBNull.Value Then
|
||||||
|
m_iPeriodizitaetNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPeriodizitaetNr = New SqlInt32(CType(dtToReturn.Rows(0)("PeriodizitaetNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ZeitpunktNr") Is System.DBNull.Value Then
|
||||||
|
m_iZeitpunktNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iZeitpunktNr = New SqlInt32(CType(dtToReturn.Rows(0)("ZeitpunktNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstmals_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstmals_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstmals_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstmals_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Pruefgegenstand") Is System.DBNull.Value Then
|
||||||
|
m_sPruefgegenstand = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sPruefgegenstand = New SqlString(CType(dtToReturn.Rows(0)("Pruefgegenstand"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Hilfsmittel") Is System.DBNull.Value Then
|
||||||
|
m_sHilfsmittel = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sHilfsmittel = New SqlString(CType(dtToReturn.Rows(0)("Hilfsmittel"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Massnahmen") Is System.DBNull.Value Then
|
||||||
|
m_sMassnahmen = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sMassnahmen = New SqlString(CType(dtToReturn.Rows(0)("Massnahmen"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Ergebnisse") Is System.DBNull.Value Then
|
||||||
|
m_sErgebnisse = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sErgebnisse = New SqlString(CType(dtToReturn.Rows(0)("Ergebnisse"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("VerantwortlichNr") Is System.DBNull.Value Then
|
||||||
|
m_iVerantwortlichNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVerantwortlichNr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortlichNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("VerantwortungISINr") Is System.DBNull.Value Then
|
||||||
|
m_iVerantwortungISINr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVerantwortungISINr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortungISINr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Gueltig_Bis") Is System.DBNull.Value Then
|
||||||
|
m_daGueltig_Bis = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daGueltig_Bis = New SqlDateTime(CType(dtToReturn.Rows(0)("Gueltig_Bis"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("TerminierungID") Is System.DBNull.Value Then
|
||||||
|
m_iTerminierungID = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iTerminierungID = New SqlInt32(CType(dtToReturn.Rows(0)("TerminierungID"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMassnahmeplan::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Massnahmeplan_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Massnahmeplan")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Massnahmeplan_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMassnahmeplan::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iMassnahmeplanNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMassnahmeplanNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iMassnahmeplanNrTmp As SqlInt32 = Value
|
||||||
|
If iMassnahmeplanNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iMassnahmeplanNr", "iMassnahmeplanNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iMassnahmeplanNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPrioritaetNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPrioritaetNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPrioritaetNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPeriodizitaetNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPeriodizitaetNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPeriodizitaetNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iZeitpunktNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iZeitpunktNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iZeitpunktNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstmals_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstmals_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstmals_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sPruefgegenstand]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sPruefgegenstand
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sPruefgegenstand = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sHilfsmittel]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sHilfsmittel
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sHilfsmittel = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sMassnahmen]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sMassnahmen
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sMassnahmen = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sErgebnisse]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sErgebnisse
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sErgebnisse = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVerantwortlichNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVerantwortlichNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVerantwortlichNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVerantwortungISINr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVerantwortungISINr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVerantwortungISINr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daGueltig_Bis]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daGueltig_Bis
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daGueltig_Bis = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iTerminierungID]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iTerminierungID
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iTerminierungID = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,632 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'meldungstexte'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'meldungstexte'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsMeldungstexte
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iMandantnr, m_iSprache, m_iMeldungstextnr As SqlInt32
|
||||||
|
Private m_sBeschreibung, m_sInhalt As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>sInhalt. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imeldungstextnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMeldungstextnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sinhalt", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sInhalt))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>sInhalt. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imeldungstextnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMeldungstextnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sinhalt", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sInhalt))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imeldungstextnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMeldungstextnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method using PK field 'meldungstextnr'. This method will
|
||||||
|
''' delete one or more rows from the database, based on the Primary Key field 'meldungstextnr'.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' </remarks>
|
||||||
|
Public Function DeleteAllWmeldungstextnrLogic() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_DeleteAllWmeldungstextnrLogic]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@imeldungstextnr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iMeldungstextnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iMeldungstextnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@imeldungstextnr").Value, Integer))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_DeleteAllWmeldungstextnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::DeleteAllWmeldungstextnrLogic::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method using PK field 'sprache'. This method will
|
||||||
|
''' delete one or more rows from the database, based on the Primary Key field 'sprache'.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' </remarks>
|
||||||
|
Public Function DeleteAllWspracheLogic() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_DeleteAllWspracheLogic]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iSprache = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@isprache").Value, Integer))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_DeleteAllWspracheLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::DeleteAllWspracheLogic::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>sInhalt</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("meldungstexte")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@imeldungstextnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMeldungstextnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iMeldungstextnr = New SqlInt32(CType(dtToReturn.Rows(0)("meldungstextnr"), Integer))
|
||||||
|
m_iSprache = New SqlInt32(CType(dtToReturn.Rows(0)("sprache"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("inhalt") Is System.DBNull.Value Then
|
||||||
|
m_sInhalt = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sInhalt = New SqlString(CType(dtToReturn.Rows(0)("inhalt"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("meldungstexte")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iMeldungstextnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMeldungstextnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iMeldungstextnrTmp As SqlInt32 = Value
|
||||||
|
If iMeldungstextnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iMeldungstextnr", "iMeldungstextnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iMeldungstextnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iSprache]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSprache
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iSpracheTmp As SqlInt32 = Value
|
||||||
|
If iSpracheTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iSprache", "iSprache can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iSprache = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sInhalt]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sInhalt
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sInhalt = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
Dim bAktivTmp As SqlBoolean = Value
|
||||||
|
If bAktivTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("bAktiv", "bAktiv can't be NULL")
|
||||||
|
End If
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,530 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'mitarbeiter'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'mitarbeiter'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsMitarbeiter
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMandantnr, m_iMutierer, m_iMitarbeiternr As SqlInt32
|
||||||
|
Private m_sEmail, m_sVorname, m_sTgnummer, m_sName As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' <LI>sVorname. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sName. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sTgnummer. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sEmail. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' <LI>sVorname. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sName. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sTgnummer. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sEmail. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' <LI>sVorname</LI>
|
||||||
|
''' <LI>sName</LI>
|
||||||
|
''' <LI>sTgnummer</LI>
|
||||||
|
''' <LI>sEmail</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("mitarbeiter")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("vorname") Is System.DBNull.Value Then
|
||||||
|
m_sVorname = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sVorname = New SqlString(CType(dtToReturn.Rows(0)("vorname"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("name") Is System.DBNull.Value Then
|
||||||
|
m_sName = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sName = New SqlString(CType(dtToReturn.Rows(0)("name"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("tgnummer") Is System.DBNull.Value Then
|
||||||
|
m_sTgnummer = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sTgnummer = New SqlString(CType(dtToReturn.Rows(0)("tgnummer"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("email") Is System.DBNull.Value Then
|
||||||
|
m_sEmail = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sEmail = New SqlString(CType(dtToReturn.Rows(0)("email"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("mitarbeiter")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iMitarbeiternr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMitarbeiternr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iMitarbeiternrTmp As SqlInt32 = Value
|
||||||
|
If iMitarbeiternrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iMitarbeiternr", "iMitarbeiternr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iMitarbeiternr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sVorname]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sVorname
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sVorname = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sName]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sName
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sName = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sTgnummer]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sTgnummer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sTgnummer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sEmail]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sEmail
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sEmail = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,489 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'mitarbeiter_funktionsgruppe'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'mitarbeiter_funktionsgruppe'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsMitarbeiter_funktionsgruppe
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iMandantnr, m_iMitarbeiternr, m_iFunktionsgruppenr, m_iMitarbeiter_funktionsgruppenr As SqlInt32
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
|
||||||
|
''' <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter_funktionsgruppe::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
|
||||||
|
''' <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter_funktionsgruppe::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter_funktionsgruppe::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("mitarbeiter_funktionsgruppe")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iMitarbeiter_funktionsgruppenr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiter_funktionsgruppenr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("mitarbeiternr") Is System.DBNull.Value Then
|
||||||
|
m_iMitarbeiternr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("funktionsgruppenr") Is System.DBNull.Value Then
|
||||||
|
m_iFunktionsgruppenr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFunktionsgruppenr = New SqlInt32(CType(dtToReturn.Rows(0)("funktionsgruppenr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter_funktionsgruppe::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("mitarbeiter_funktionsgruppe")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter_funktionsgruppe::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iMitarbeiter_funktionsgruppenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMitarbeiter_funktionsgruppenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iMitarbeiter_funktionsgruppenrTmp As SqlInt32 = Value
|
||||||
|
If iMitarbeiter_funktionsgruppenrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iMitarbeiter_funktionsgruppenr", "iMitarbeiter_funktionsgruppenr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iMitarbeiter_funktionsgruppenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMitarbeiternr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMitarbeiternr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMitarbeiternr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFunktionsgruppenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFunktionsgruppenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFunktionsgruppenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,373 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsPeriodizitaet
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iPeriodizitaetNr As SqlInt32
|
||||||
|
Private m_sBezeichnung, m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Periodizitaet_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Periodizitaet_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPeriodizitaet::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Periodizitaet_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Periodizitaet_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPeriodizitaet::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Periodizitaet_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Periodizitaet_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPeriodizitaet::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Periodizitaet_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Periodizitaet")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Periodizitaet_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iPeriodizitaetNr = New SqlInt32(CType(dtToReturn.Rows(0)("PeriodizitaetNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPeriodizitaet::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Periodizitaet_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Periodizitaet")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Periodizitaet_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPeriodizitaet::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iPeriodizitaetNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPeriodizitaetNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iPeriodizitaetNrTmp As SqlInt32 = Value
|
||||||
|
If iPeriodizitaetNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iPeriodizitaetNr", "iPeriodizitaetNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iPeriodizitaetNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,390 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsPruefSchrittHistory
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daEintragdatum, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iPruefSchrittHistoryNr, m_iPruefschrittNr, m_iMutierer As SqlInt32
|
||||||
|
Private m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittHistory_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefSchrittHistoryNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittHistoryNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daEintragdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daEintragdatum))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittHistory_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittHistory::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittHistory_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefSchrittHistoryNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittHistoryNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daEintragdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daEintragdatum))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittHistory_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittHistory::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittHistory_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefSchrittHistoryNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittHistoryNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittHistory_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittHistory::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittHistory_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("PruefSchrittHistory")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iPruefSchrittHistoryNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittHistoryNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittHistory_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iPruefSchrittHistoryNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefSchrittHistoryNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("PruefschrittNr") Is System.DBNull.Value Then
|
||||||
|
m_iPruefschrittNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPruefschrittNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefschrittNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Eintragdatum") Is System.DBNull.Value Then
|
||||||
|
m_daEintragdatum = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daEintragdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("Eintragdatum"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittHistory::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittHistory_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("PruefSchrittHistory")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittHistory_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittHistory::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iPruefSchrittHistoryNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefSchrittHistoryNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iPruefSchrittHistoryNrTmp As SqlInt32 = Value
|
||||||
|
If iPruefSchrittHistoryNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iPruefSchrittHistoryNr", "iPruefSchrittHistoryNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iPruefSchrittHistoryNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPruefschrittNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPruefschrittNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daEintragdatum]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daEintragdatum
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daEintragdatum = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,458 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsPruefSchrittMassnahme
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daTermin, m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iVerantwortungNr, m_iPruefschrittmassnahmeNr, m_iPruefschrittfindingnr, m_iMassnahmeStatusNr As SqlInt32
|
||||||
|
Private m_sBeschreibung, m_sMassnahmeResultat, m_sKurzbeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittMassnahme_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittmassnahmeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittmassnahmeNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittfindingnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittfindingnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKurzbeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzbeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMassnahmeResultat", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMassnahmeResultat))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeStatusNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daTermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daTermin))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittMassnahme_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittMassnahme::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittMassnahme_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittmassnahmeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittmassnahmeNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittfindingnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittfindingnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKurzbeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzbeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMassnahmeResultat", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMassnahmeResultat))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMassnahmeStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMassnahmeStatusNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daTermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daTermin))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittMassnahme_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittMassnahme::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittMassnahme_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittmassnahmeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittmassnahmeNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittMassnahme_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittMassnahme::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittMassnahme_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("PruefSchrittMassnahme")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iPruefschrittmassnahmeNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittmassnahmeNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittMassnahme_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iPruefschrittmassnahmeNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefschrittmassnahmeNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("Pruefschrittfindingnr") Is System.DBNull.Value Then
|
||||||
|
m_iPruefschrittfindingnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPruefschrittfindingnr = New SqlInt32(CType(dtToReturn.Rows(0)("Pruefschrittfindingnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Kurzbeschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sKurzbeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sKurzbeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Kurzbeschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("MassnahmeResultat") Is System.DBNull.Value Then
|
||||||
|
m_sMassnahmeResultat = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sMassnahmeResultat = New SqlString(CType(dtToReturn.Rows(0)("MassnahmeResultat"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("MassnahmeStatusNr") Is System.DBNull.Value Then
|
||||||
|
m_iMassnahmeStatusNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMassnahmeStatusNr = New SqlInt32(CType(dtToReturn.Rows(0)("MassnahmeStatusNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Termin") Is System.DBNull.Value Then
|
||||||
|
m_daTermin = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daTermin = New SqlDateTime(CType(dtToReturn.Rows(0)("Termin"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("VerantwortungNr") Is System.DBNull.Value Then
|
||||||
|
m_iVerantwortungNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVerantwortungNr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortungNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittMassnahme::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittMassnahme_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("PruefSchrittMassnahme")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittMassnahme_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittMassnahme::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iPruefschrittmassnahmeNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittmassnahmeNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iPruefschrittmassnahmeNrTmp As SqlInt32 = Value
|
||||||
|
If iPruefschrittmassnahmeNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iPruefschrittmassnahmeNr", "iPruefschrittmassnahmeNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iPruefschrittmassnahmeNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPruefschrittfindingnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittfindingnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPruefschrittfindingnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sKurzbeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sKurzbeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sKurzbeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sMassnahmeResultat]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sMassnahmeResultat
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sMassnahmeResultat = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMassnahmeStatusNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMassnahmeStatusNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMassnahmeStatusNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daTermin]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daTermin
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daTermin = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVerantwortungNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVerantwortungNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVerantwortungNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,492 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsPruefSchrittResultat
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iFindings_mittel, m_iAnzahl_Pruefungen, m_iFindings_hoch, m_iFinding_kein, m_iFindings_niedrig, m_iMutierer, m_iPruefschrittNr, m_iPruefschrittResultatStatusNr, m_iPruefSchrittResultatNr As SqlInt32
|
||||||
|
Private m_sKurzbeschreibung, m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittResultat_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefSchrittResultatNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittResultatNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittResultatStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittResultatStatusNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKurzbeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzbeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzahl_Pruefungen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_Pruefungen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFindings_niedrig", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFindings_niedrig))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFindings_mittel", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFindings_mittel))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFindings_hoch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFindings_hoch))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFinding_kein", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFinding_kein))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittResultat_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittResultat::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittResultat_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefSchrittResultatNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittResultatNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittResultatStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittResultatStatusNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKurzbeschreibung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzbeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzahl_Pruefungen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_Pruefungen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFindings_niedrig", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFindings_niedrig))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFindings_mittel", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFindings_mittel))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFindings_hoch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFindings_hoch))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFinding_kein", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFinding_kein))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittResultat_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittResultat::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittResultat_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefSchrittResultatNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittResultatNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittResultat_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittResultat::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittResultat_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("PruefSchrittResultat")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iPruefSchrittResultatNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefSchrittResultatNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittResultat_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iPruefSchrittResultatNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefSchrittResultatNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("PruefschrittNr") Is System.DBNull.Value Then
|
||||||
|
m_iPruefschrittNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPruefschrittNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefschrittNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("PruefschrittResultatStatusNr") Is System.DBNull.Value Then
|
||||||
|
m_iPruefschrittResultatStatusNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPruefschrittResultatStatusNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefschrittResultatStatusNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Kurzbeschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sKurzbeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sKurzbeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Kurzbeschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Anzahl_Pruefungen") Is System.DBNull.Value Then
|
||||||
|
m_iAnzahl_Pruefungen = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iAnzahl_Pruefungen = New SqlInt32(CType(dtToReturn.Rows(0)("Anzahl_Pruefungen"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Findings_niedrig") Is System.DBNull.Value Then
|
||||||
|
m_iFindings_niedrig = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFindings_niedrig = New SqlInt32(CType(dtToReturn.Rows(0)("Findings_niedrig"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Findings_mittel") Is System.DBNull.Value Then
|
||||||
|
m_iFindings_mittel = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFindings_mittel = New SqlInt32(CType(dtToReturn.Rows(0)("Findings_mittel"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Findings_hoch") Is System.DBNull.Value Then
|
||||||
|
m_iFindings_hoch = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFindings_hoch = New SqlInt32(CType(dtToReturn.Rows(0)("Findings_hoch"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Finding_kein") Is System.DBNull.Value Then
|
||||||
|
m_iFinding_kein = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFinding_kein = New SqlInt32(CType(dtToReturn.Rows(0)("Finding_kein"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittResultat::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittResultat_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("PruefSchrittResultat")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittResultat_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittResultat::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iPruefSchrittResultatNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefSchrittResultatNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iPruefSchrittResultatNrTmp As SqlInt32 = Value
|
||||||
|
If iPruefSchrittResultatNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iPruefSchrittResultatNr", "iPruefSchrittResultatNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iPruefSchrittResultatNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPruefschrittNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPruefschrittNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPruefschrittResultatStatusNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittResultatStatusNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPruefschrittResultatStatusNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sKurzbeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sKurzbeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sKurzbeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iAnzahl_Pruefungen]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iAnzahl_Pruefungen
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iAnzahl_Pruefungen = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFindings_niedrig]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFindings_niedrig
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFindings_niedrig = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFindings_mittel]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFindings_mittel
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFindings_mittel = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFindings_hoch]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFindings_hoch
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFindings_hoch = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFinding_kein]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFinding_kein
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFinding_kein = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,373 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsPruefSchrittStatus
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iPruefschrittStatusNr As SqlInt32
|
||||||
|
Private m_sBezeichnung, m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittStatus_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittStatusNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittStatus_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittStatus::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittStatus_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittStatusNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittStatus_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittStatus::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittStatus_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittStatusNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittStatus_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittStatus::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittStatus_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("PruefSchrittStatus")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iPruefschrittStatusNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittStatusNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittStatus_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iPruefschrittStatusNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefschrittStatusNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittStatus::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefSchrittStatus_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("PruefSchrittStatus")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefSchrittStatus_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefSchrittStatus::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iPruefschrittStatusNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittStatusNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iPruefschrittStatusNrTmp As SqlInt32 = Value
|
||||||
|
If iPruefschrittStatusNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iPruefschrittStatusNr", "iPruefschrittStatusNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iPruefschrittStatusNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
662
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsPruefplan.vb
Normal file
662
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsPruefplan.vb
Normal file
@@ -0,0 +1,662 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace db
|
||||||
|
Public Class clsPruefplan
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bSelbstkontrolle, m_bKein_Mailversand, m_bAktiv, m_bDurchfuehrung_ISI As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daGueltig_Bis, m_daErstmals_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iVerantwortungPlanNr, m_iMutierer, m_iAssessmentType, m_iPruefplanNr, m_iTerminierungID, m_iPrioritaetNr, m_iPeriodizitaetNr, m_iZeitpunktNr, m_iVerantwortungISINr, m_iVerantwortlichNr As SqlInt32
|
||||||
|
Private m_sBezeichnung, m_sBeschreibung, m_sMassnahmen, m_sErgebnisse, m_sPruefgegenstand, m_sHilfsmittel As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefplan_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPrioritaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPrioritaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iZeitpunktNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZeitpunktNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstmals_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstmals_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sPruefgegenstand", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPruefgegenstand))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sHilfsmittel", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHilfsmittel))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMassnahmen", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMassnahmen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sErgebnisse", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sErgebnisse))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortlichNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlichNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungISINr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungISINr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iTerminierungID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTerminierungID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungPlanNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungPlanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bKein_Mailversand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bKein_Mailversand))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bSelbstkontrolle", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSelbstkontrolle))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAssessmentType", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAssessmentType))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bDurchfuehrung_ISI", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bDurchfuehrung_ISI))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefplan_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefplan::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefplan_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPrioritaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPrioritaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPeriodizitaetNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPeriodizitaetNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iZeitpunktNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZeitpunktNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstmals_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstmals_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sPruefgegenstand", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPruefgegenstand))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sHilfsmittel", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHilfsmittel))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sMassnahmen", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMassnahmen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sErgebnisse", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sErgebnisse))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortlichNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlichNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungISINr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungISINr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iTerminierungID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTerminierungID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungPlanNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungPlanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bKein_Mailversand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bKein_Mailversand))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bSelbstkontrolle", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSelbstkontrolle))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAssessmentType", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAssessmentType))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bDurchfuehrung_ISI", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bDurchfuehrung_ISI))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefplan_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefplan::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefplan_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefplan_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefplan::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefplan_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Pruefplan")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iPruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefplan_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iPruefplanNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefplanNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("PrioritaetNr") Is System.DBNull.Value Then
|
||||||
|
m_iPrioritaetNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPrioritaetNr = New SqlInt32(CType(dtToReturn.Rows(0)("PrioritaetNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("PeriodizitaetNr") Is System.DBNull.Value Then
|
||||||
|
m_iPeriodizitaetNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPeriodizitaetNr = New SqlInt32(CType(dtToReturn.Rows(0)("PeriodizitaetNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ZeitpunktNr") Is System.DBNull.Value Then
|
||||||
|
m_iZeitpunktNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iZeitpunktNr = New SqlInt32(CType(dtToReturn.Rows(0)("ZeitpunktNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstmals_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstmals_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstmals_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstmals_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Pruefgegenstand") Is System.DBNull.Value Then
|
||||||
|
m_sPruefgegenstand = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sPruefgegenstand = New SqlString(CType(dtToReturn.Rows(0)("Pruefgegenstand"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Hilfsmittel") Is System.DBNull.Value Then
|
||||||
|
m_sHilfsmittel = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sHilfsmittel = New SqlString(CType(dtToReturn.Rows(0)("Hilfsmittel"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Massnahmen") Is System.DBNull.Value Then
|
||||||
|
m_sMassnahmen = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sMassnahmen = New SqlString(CType(dtToReturn.Rows(0)("Massnahmen"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Ergebnisse") Is System.DBNull.Value Then
|
||||||
|
m_sErgebnisse = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sErgebnisse = New SqlString(CType(dtToReturn.Rows(0)("Ergebnisse"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("VerantwortlichNr") Is System.DBNull.Value Then
|
||||||
|
m_iVerantwortlichNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVerantwortlichNr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortlichNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("VerantwortungISINr") Is System.DBNull.Value Then
|
||||||
|
m_iVerantwortungISINr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVerantwortungISINr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortungISINr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Gueltig_Bis") Is System.DBNull.Value Then
|
||||||
|
m_daGueltig_Bis = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daGueltig_Bis = New SqlDateTime(CType(dtToReturn.Rows(0)("Gueltig_Bis"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("TerminierungID") Is System.DBNull.Value Then
|
||||||
|
m_iTerminierungID = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iTerminierungID = New SqlInt32(CType(dtToReturn.Rows(0)("TerminierungID"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("VerantwortungPlanNr") Is System.DBNull.Value Then
|
||||||
|
m_iVerantwortungPlanNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVerantwortungPlanNr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortungPlanNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Kein_Mailversand") Is System.DBNull.Value Then
|
||||||
|
m_bKein_Mailversand = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bKein_Mailversand = New SqlBoolean(CType(dtToReturn.Rows(0)("Kein_Mailversand"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Selbstkontrolle") Is System.DBNull.Value Then
|
||||||
|
m_bSelbstkontrolle = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bSelbstkontrolle = New SqlBoolean(CType(dtToReturn.Rows(0)("Selbstkontrolle"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("AssessmentType") Is System.DBNull.Value Then
|
||||||
|
m_iAssessmentType = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iAssessmentType = New SqlInt32(CType(dtToReturn.Rows(0)("AssessmentType"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Durchfuehrung_ISI") Is System.DBNull.Value Then
|
||||||
|
m_bDurchfuehrung_ISI = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bDurchfuehrung_ISI = New SqlBoolean(CType(dtToReturn.Rows(0)("Durchfuehrung_ISI"), Boolean))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefplan::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefplan_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Pruefplan")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefplan_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefplan::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iPruefplanNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefplanNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iPruefplanNrTmp As SqlInt32 = Value
|
||||||
|
If iPruefplanNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iPruefplanNr", "iPruefplanNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iPruefplanNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPrioritaetNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPrioritaetNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPrioritaetNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPeriodizitaetNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPeriodizitaetNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPeriodizitaetNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iZeitpunktNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iZeitpunktNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iZeitpunktNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstmals_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstmals_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstmals_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sPruefgegenstand]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sPruefgegenstand
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sPruefgegenstand = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sHilfsmittel]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sHilfsmittel
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sHilfsmittel = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sMassnahmen]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sMassnahmen
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sMassnahmen = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sErgebnisse]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sErgebnisse
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sErgebnisse = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVerantwortlichNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVerantwortlichNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVerantwortlichNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVerantwortungISINr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVerantwortungISINr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVerantwortungISINr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daGueltig_Bis]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daGueltig_Bis
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daGueltig_Bis = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iTerminierungID]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iTerminierungID
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iTerminierungID = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVerantwortungPlanNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVerantwortungPlanNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVerantwortungPlanNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bKein_Mailversand]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bKein_Mailversand
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bKein_Mailversand = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bSelbstkontrolle]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bSelbstkontrolle
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bSelbstkontrolle = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iAssessmentType]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iAssessmentType
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iAssessmentType = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bDurchfuehrung_ISI]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bDurchfuehrung_ISI
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bDurchfuehrung_ISI = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,492 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace db
|
||||||
|
Public Class clsPruefschritt
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv, m_bDurchfuehrung_ISI As SqlBoolean
|
||||||
|
Private m_daTermin, m_daErstellt_am, m_daZugewiesen, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iPruefplanNr, m_iMutierer, m_iPruefschrittNr, m_iAssessmenttyp, m_iAktueller_Verantwortlicher, m_iVeramtwortungISINr, m_iStatusnr, m_iVerantwortlichNr As SqlInt32
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefschritt_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iStatusnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatusnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortlichNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlichNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAktueller_Verantwortlicher", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAktueller_Verantwortlicher))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVeramtwortungISINr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVeramtwortungISINr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daTermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daTermin))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daZugewiesen", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daZugewiesen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAssessmenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAssessmenttyp))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bDurchfuehrung_ISI", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bDurchfuehrung_ISI))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iPruefschrittNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iPruefschrittNr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iPruefschrittNr").Value, Integer))
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefschritt_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschritt::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefschritt_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefplanNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefplanNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iStatusnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatusnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortlichNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlichNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAktueller_Verantwortlicher", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAktueller_Verantwortlicher))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVeramtwortungISINr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVeramtwortungISINr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daTermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daTermin))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daZugewiesen", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daZugewiesen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAssessmenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAssessmenttyp))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bDurchfuehrung_ISI", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bDurchfuehrung_ISI))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefschritt_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschritt::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefschritt_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefschritt_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschritt::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefschritt_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Pruefschritt")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iPruefschrittNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefschritt_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iPruefschrittNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefschrittNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("PruefplanNr") Is System.DBNull.Value Then
|
||||||
|
m_iPruefplanNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPruefplanNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefplanNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Statusnr") Is System.DBNull.Value Then
|
||||||
|
m_iStatusnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iStatusnr = New SqlInt32(CType(dtToReturn.Rows(0)("Statusnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("VerantwortlichNr") Is System.DBNull.Value Then
|
||||||
|
m_iVerantwortlichNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVerantwortlichNr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortlichNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktueller_Verantwortlicher") Is System.DBNull.Value Then
|
||||||
|
m_iAktueller_Verantwortlicher = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iAktueller_Verantwortlicher = New SqlInt32(CType(dtToReturn.Rows(0)("Aktueller_Verantwortlicher"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("VeramtwortungISINr") Is System.DBNull.Value Then
|
||||||
|
m_iVeramtwortungISINr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVeramtwortungISINr = New SqlInt32(CType(dtToReturn.Rows(0)("VeramtwortungISINr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Termin") Is System.DBNull.Value Then
|
||||||
|
m_daTermin = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daTermin = New SqlDateTime(CType(dtToReturn.Rows(0)("Termin"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Zugewiesen") Is System.DBNull.Value Then
|
||||||
|
m_daZugewiesen = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daZugewiesen = New SqlDateTime(CType(dtToReturn.Rows(0)("Zugewiesen"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Assessmenttyp") Is System.DBNull.Value Then
|
||||||
|
m_iAssessmenttyp = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iAssessmenttyp = New SqlInt32(CType(dtToReturn.Rows(0)("Assessmenttyp"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Durchfuehrung_ISI") Is System.DBNull.Value Then
|
||||||
|
m_bDurchfuehrung_ISI = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bDurchfuehrung_ISI = New SqlBoolean(CType(dtToReturn.Rows(0)("Durchfuehrung_ISI"), Boolean))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschritt::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefschritt_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Pruefschritt")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefschritt_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschritt::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iPruefschrittNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iPruefschrittNrTmp As SqlInt32 = Value
|
||||||
|
If iPruefschrittNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iPruefschrittNr", "iPruefschrittNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iPruefschrittNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPruefplanNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefplanNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPruefplanNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iStatusnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iStatusnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iStatusnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVerantwortlichNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVerantwortlichNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVerantwortlichNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iAktueller_Verantwortlicher]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iAktueller_Verantwortlicher
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iAktueller_Verantwortlicher = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVeramtwortungISINr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVeramtwortungISINr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVeramtwortungISINr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daTermin]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daTermin
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daTermin = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daZugewiesen]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daZugewiesen
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daZugewiesen = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iAssessmenttyp]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iAssessmenttyp
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iAssessmenttyp = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bDurchfuehrung_ISI]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bDurchfuehrung_ISI
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bDurchfuehrung_ISI = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,441 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsPruefschrittFinding
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iWichtigkeitnr, m_iAuswirkungnr, m_iKritikalitaetnr, m_iPruefschrittresultatnr, m_iPruefschrittfindingNr As SqlInt32
|
||||||
|
Private m_sBeschreibung, m_sBezeichnung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefschrittFinding_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittfindingNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittfindingNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittresultatnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittresultatnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iWichtigkeitnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iWichtigkeitnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKritikalitaetnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKritikalitaetnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswirkungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswirkungnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefschrittFinding_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschrittFinding::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefschrittFinding_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittfindingNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittfindingNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittresultatnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittresultatnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iWichtigkeitnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iWichtigkeitnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iKritikalitaetnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKritikalitaetnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iAuswirkungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAuswirkungnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefschrittFinding_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschrittFinding::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefschrittFinding_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittfindingNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittfindingNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefschrittFinding_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschrittFinding::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefschrittFinding_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("PruefschrittFinding")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iPruefschrittfindingNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittfindingNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefschrittFinding_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iPruefschrittfindingNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefschrittfindingNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("Pruefschrittresultatnr") Is System.DBNull.Value Then
|
||||||
|
m_iPruefschrittresultatnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPruefschrittresultatnr = New SqlInt32(CType(dtToReturn.Rows(0)("Pruefschrittresultatnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Wichtigkeitnr") Is System.DBNull.Value Then
|
||||||
|
m_iWichtigkeitnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iWichtigkeitnr = New SqlInt32(CType(dtToReturn.Rows(0)("Wichtigkeitnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Kritikalitaetnr") Is System.DBNull.Value Then
|
||||||
|
m_iKritikalitaetnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iKritikalitaetnr = New SqlInt32(CType(dtToReturn.Rows(0)("Kritikalitaetnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Auswirkungnr") Is System.DBNull.Value Then
|
||||||
|
m_iAuswirkungnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iAuswirkungnr = New SqlInt32(CType(dtToReturn.Rows(0)("Auswirkungnr"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschrittFinding::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_PruefschrittFinding_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("PruefschrittFinding")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_PruefschrittFinding_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschrittFinding::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iPruefschrittfindingNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittfindingNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iPruefschrittfindingNrTmp As SqlInt32 = Value
|
||||||
|
If iPruefschrittfindingNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iPruefschrittfindingNr", "iPruefschrittfindingNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iPruefschrittfindingNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPruefschrittresultatnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittresultatnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPruefschrittresultatnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iWichtigkeitnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iWichtigkeitnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iWichtigkeitnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iKritikalitaetnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKritikalitaetnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iKritikalitaetnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iAuswirkungnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iAuswirkungnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iAuswirkungnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,373 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsPruefschrittnotiz
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iPruefschrittnr, m_iPruefschrittnotizNr As SqlInt32
|
||||||
|
Private m_sNotiz As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefschrittnotiz_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittnotizNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittnotizNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNotiz", SqlDbType.VarChar, 4098, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNotiz))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefschrittnotiz_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschrittnotiz::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefschrittnotiz_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittnotizNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittnotizNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNotiz", SqlDbType.VarChar, 4098, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNotiz))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefschrittnotiz_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschrittnotiz::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefschrittnotiz_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iPruefschrittnotizNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittnotizNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefschrittnotiz_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschrittnotiz::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefschrittnotiz_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Pruefschrittnotiz")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iPruefschrittnotizNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPruefschrittnotizNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefschrittnotiz_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iPruefschrittnotizNr = New SqlInt32(CType(dtToReturn.Rows(0)("PruefschrittnotizNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("Pruefschrittnr") Is System.DBNull.Value Then
|
||||||
|
m_iPruefschrittnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iPruefschrittnr = New SqlInt32(CType(dtToReturn.Rows(0)("Pruefschrittnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Notiz") Is System.DBNull.Value Then
|
||||||
|
m_sNotiz = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sNotiz = New SqlString(CType(dtToReturn.Rows(0)("Notiz"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschrittnotiz::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Pruefschrittnotiz_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Pruefschrittnotiz")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Pruefschrittnotiz_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsPruefschrittnotiz::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iPruefschrittnotizNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittnotizNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iPruefschrittnotizNrTmp As SqlInt32 = Value
|
||||||
|
If iPruefschrittnotizNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iPruefschrittnotizNr", "iPruefschrittnotizNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iPruefschrittnotizNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iPruefschrittnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iPruefschrittnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iPruefschrittnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sNotiz]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sNotiz
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sNotiz = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
510
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsRolle.vb
Normal file
510
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsRolle.vb
Normal file
@@ -0,0 +1,510 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'rolle'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'rolle'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsRolle
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bSysadminrolle, m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iRollenr, m_iMandantnr As SqlInt32
|
||||||
|
Private m_sBeschreibung, m_sBezeichnung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRollenr</LI>
|
||||||
|
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bSysadminrolle. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_rolle_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bsysadminrolle", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSysadminrolle))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_rolle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRollenr</LI>
|
||||||
|
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bSysadminrolle. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_rolle_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bsysadminrolle", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bSysadminrolle))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_rolle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRollenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_rolle_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_rolle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRollenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iRollenr</LI>
|
||||||
|
''' <LI>sBezeichnung</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>bSysadminrolle</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_rolle_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("rolle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_rolle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iRollenr = New SqlInt32(CType(dtToReturn.Rows(0)("rollenr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("sysadminrolle") Is System.DBNull.Value Then
|
||||||
|
m_bSysadminrolle = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bSysadminrolle = New SqlBoolean(CType(dtToReturn.Rows(0)("sysadminrolle"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_rolle_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("rolle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_rolle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iRollenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iRollenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iRollenrTmp As SqlInt32 = Value
|
||||||
|
If iRollenrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iRollenr", "iRollenr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iRollenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bSysadminrolle]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bSysadminrolle
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bSysadminrolle = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,529 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'Rolle_SecurityObject'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'Rolle_SecurityObject'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsRolle_SecurityObject
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bReadonly, m_bAktiv, m_bInvisible As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iMandantnr, m_iRollenr, m_iSecurityobjectnr, m_iRolle_securityobjectnr As SqlInt32
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRolle_securityobjectnr</LI>
|
||||||
|
''' <LI>iRollenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iSecurityobjectnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bReadonly. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>bInvisible. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Rolle_SecurityObject_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irolle_securityobjectnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRolle_securityobjectnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isecurityobjectnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSecurityobjectnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@breadonly", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@binvisible", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bInvisible))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Rolle_SecurityObject_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle_SecurityObject::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRolle_securityobjectnr</LI>
|
||||||
|
''' <LI>iRollenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iSecurityobjectnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bReadonly. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>bInvisible. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Rolle_SecurityObject_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irolle_securityobjectnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRolle_securityobjectnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isecurityobjectnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSecurityobjectnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@breadonly", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@binvisible", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bInvisible))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Rolle_SecurityObject_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle_SecurityObject::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRolle_securityobjectnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Rolle_SecurityObject_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irolle_securityobjectnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRolle_securityobjectnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Rolle_SecurityObject_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle_SecurityObject::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRolle_securityobjectnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iRolle_securityobjectnr</LI>
|
||||||
|
''' <LI>iRollenr</LI>
|
||||||
|
''' <LI>iSecurityobjectnr</LI>
|
||||||
|
''' <LI>bReadonly</LI>
|
||||||
|
''' <LI>bInvisible</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Rolle_SecurityObject_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Rolle_SecurityObject")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@irolle_securityobjectnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRolle_securityobjectnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Rolle_SecurityObject_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iRolle_securityobjectnr = New SqlInt32(CType(dtToReturn.Rows(0)("rolle_securityobjectnr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("rollenr") Is System.DBNull.Value Then
|
||||||
|
m_iRollenr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iRollenr = New SqlInt32(CType(dtToReturn.Rows(0)("rollenr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("securityobjectnr") Is System.DBNull.Value Then
|
||||||
|
m_iSecurityobjectnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iSecurityobjectnr = New SqlInt32(CType(dtToReturn.Rows(0)("securityobjectnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("readonly") Is System.DBNull.Value Then
|
||||||
|
m_bReadonly = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bReadonly = New SqlBoolean(CType(dtToReturn.Rows(0)("readonly"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("invisible") Is System.DBNull.Value Then
|
||||||
|
m_bInvisible = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bInvisible = New SqlBoolean(CType(dtToReturn.Rows(0)("invisible"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle_SecurityObject::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Rolle_SecurityObject_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Rolle_SecurityObject")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Rolle_SecurityObject_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle_SecurityObject::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iRolle_securityobjectnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iRolle_securityobjectnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iRolle_securityobjectnrTmp As SqlInt32 = Value
|
||||||
|
If iRolle_securityobjectnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iRolle_securityobjectnr", "iRolle_securityobjectnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iRolle_securityobjectnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iRollenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iRollenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iRollenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iSecurityobjectnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSecurityobjectnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iSecurityobjectnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bReadonly]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bReadonly
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bReadonly = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bInvisible]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bInvisible
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bInvisible = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,489 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'rolle_sysadminfunktion'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'rolle_sysadminfunktion'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsRolle_sysadminfunktion
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iRollenr, m_iMandant, m_iSysadminfnktnr, m_iRolle_sysadminfnktnr, m_iMutierer As SqlInt32
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRolle_sysadminfnktnr</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iSysadminfnktnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iRollenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandant. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_rolle_sysadminfunktion_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irolle_sysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRolle_sysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandant))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_rolle_sysadminfunktion_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle_sysadminfunktion::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRolle_sysadminfnktnr</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iSysadminfnktnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iRollenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandant. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_rolle_sysadminfunktion_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irolle_sysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRolle_sysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandant))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_rolle_sysadminfunktion_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle_sysadminfunktion::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRolle_sysadminfnktnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_rolle_sysadminfunktion_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irolle_sysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRolle_sysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_rolle_sysadminfunktion_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle_sysadminfunktion::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iRolle_sysadminfnktnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iRolle_sysadminfnktnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' <LI>iRollenr</LI>
|
||||||
|
''' <LI>iMandant</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_rolle_sysadminfunktion_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("rolle_sysadminfunktion")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@irolle_sysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iRolle_sysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_rolle_sysadminfunktion_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iRolle_sysadminfnktnr = New SqlInt32(CType(dtToReturn.Rows(0)("rolle_sysadminfnktnr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("sysadminfnktnr") Is System.DBNull.Value Then
|
||||||
|
m_iSysadminfnktnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iSysadminfnktnr = New SqlInt32(CType(dtToReturn.Rows(0)("sysadminfnktnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("rollenr") Is System.DBNull.Value Then
|
||||||
|
m_iRollenr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iRollenr = New SqlInt32(CType(dtToReturn.Rows(0)("rollenr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandant") Is System.DBNull.Value Then
|
||||||
|
m_iMandant = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandant = New SqlInt32(CType(dtToReturn.Rows(0)("mandant"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle_sysadminfunktion::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_rolle_sysadminfunktion_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("rolle_sysadminfunktion")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_rolle_sysadminfunktion_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsRolle_sysadminfunktion::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iRolle_sysadminfnktnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iRolle_sysadminfnktnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iRolle_sysadminfnktnrTmp As SqlInt32 = Value
|
||||||
|
If iRolle_sysadminfnktnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iRolle_sysadminfnktnr", "iRolle_sysadminfnktnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iRolle_sysadminfnktnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iSysadminfnktnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSysadminfnktnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iSysadminfnktnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iRollenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iRollenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iRollenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandant]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandant
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandant = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,570 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'SecurityObject'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'SecurityObject'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsSecurityObject
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iLevel, m_iMutierer, m_iMandantnr, m_iSecurityObjectNr As SqlInt32
|
||||||
|
Private m_sSecurityForm, m_sSecurityObjectDescriotion, m_sSecurityObjectItem, m_sSecurityObject, m_sSecurityObjectType As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSecurityObjectNr</LI>
|
||||||
|
''' <LI>sSecurityForm. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSecurityObjectType. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSecurityObject. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSecurityObjectItem. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSecurityObjectDescriotion. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iLevel. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityForm", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityForm))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectType))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObject", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObject))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectItem", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectItem))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectDescriotion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectDescriotion))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iLevel", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iLevel))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_SecurityObject_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSecurityObject::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSecurityObjectNr</LI>
|
||||||
|
''' <LI>sSecurityForm. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSecurityObjectType. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSecurityObject. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSecurityObjectItem. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSecurityObjectDescriotion. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iLevel. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityForm", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityForm))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectType", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectType))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObject", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObject))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectItem", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectItem))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sSecurityObjectDescriotion", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSecurityObjectDescriotion))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iLevel", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iLevel))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_SecurityObject_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSecurityObject::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSecurityObjectNr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_SecurityObject_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSecurityObject::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSecurityObjectNr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iSecurityObjectNr</LI>
|
||||||
|
''' <LI>sSecurityForm</LI>
|
||||||
|
''' <LI>sSecurityObjectType</LI>
|
||||||
|
''' <LI>sSecurityObject</LI>
|
||||||
|
''' <LI>sSecurityObjectItem</LI>
|
||||||
|
''' <LI>sSecurityObjectDescriotion</LI>
|
||||||
|
''' <LI>iLevel</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("SecurityObject")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iSecurityObjectNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSecurityObjectNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_SecurityObject_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iSecurityObjectNr = New SqlInt32(CType(dtToReturn.Rows(0)("SecurityObjectNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("SecurityForm") Is System.DBNull.Value Then
|
||||||
|
m_sSecurityForm = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sSecurityForm = New SqlString(CType(dtToReturn.Rows(0)("SecurityForm"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("SecurityObjectType") Is System.DBNull.Value Then
|
||||||
|
m_sSecurityObjectType = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sSecurityObjectType = New SqlString(CType(dtToReturn.Rows(0)("SecurityObjectType"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("SecurityObject") Is System.DBNull.Value Then
|
||||||
|
m_sSecurityObject = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sSecurityObject = New SqlString(CType(dtToReturn.Rows(0)("SecurityObject"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("SecurityObjectItem") Is System.DBNull.Value Then
|
||||||
|
m_sSecurityObjectItem = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sSecurityObjectItem = New SqlString(CType(dtToReturn.Rows(0)("SecurityObjectItem"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("SecurityObjectDescriotion") Is System.DBNull.Value Then
|
||||||
|
m_sSecurityObjectDescriotion = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sSecurityObjectDescriotion = New SqlString(CType(dtToReturn.Rows(0)("SecurityObjectDescriotion"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Level") Is System.DBNull.Value Then
|
||||||
|
m_iLevel = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iLevel = New SqlInt32(CType(dtToReturn.Rows(0)("Level"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("Mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSecurityObject::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_SecurityObject_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("SecurityObject")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_SecurityObject_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSecurityObject::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iSecurityObjectNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSecurityObjectNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iSecurityObjectNrTmp As SqlInt32 = Value
|
||||||
|
If iSecurityObjectNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iSecurityObjectNr", "iSecurityObjectNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iSecurityObjectNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sSecurityForm]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sSecurityForm
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sSecurityForm = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sSecurityObjectType]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sSecurityObjectType
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sSecurityObjectType = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sSecurityObject]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sSecurityObject
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sSecurityObject = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sSecurityObjectItem]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sSecurityObjectItem
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sSecurityObjectItem = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sSecurityObjectDescriotion]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sSecurityObjectDescriotion
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sSecurityObjectDescriotion = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iLevel]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iLevel
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iLevel = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,710 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'sysadminfunktion'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 18:17:09
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'sysadminfunktion'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsSysadminfunktion
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iFheight, m_iFwidth, m_iMandantnr, m_iMutierer, m_iSprache, m_iSort, m_iImageIndex, m_iSysadminfnktnr, m_iParentID, m_iFtop, m_iFleft, m_iImageIndexOpen As SqlInt32
|
||||||
|
Private m_sKeyFields, m_sDomaintable, m_sBeschreibung, m_sBezeichnung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iParentID. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iSort. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iImageIndex. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iImageIndexOpen. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFtop. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFleft. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFwidth. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFheight. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sDomaintable. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sKeyFields. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_sysadminfunktion_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSort", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSort))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iImageIndex", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImageIndex))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iImageIndexOpen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImageIndexOpen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iftop", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFtop))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifleft", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFleft))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifwidth", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFwidth))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifheight", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFheight))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDomaintable", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDomaintable))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKeyFields", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKeyFields))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iParentID. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iSort. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iImageIndex. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iImageIndexOpen. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFtop. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFleft. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFwidth. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFheight. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sDomaintable. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sKeyFields. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_sysadminfunktion_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSort", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSort))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iImageIndex", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImageIndex))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iImageIndexOpen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImageIndexOpen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iftop", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFtop))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifleft", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFleft))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifwidth", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFwidth))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifheight", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFheight))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDomaintable", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDomaintable))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKeyFields", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKeyFields))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_sysadminfunktion_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' <LI>sBezeichnung</LI>
|
||||||
|
''' <LI>iParentID</LI>
|
||||||
|
''' <LI>iSort</LI>
|
||||||
|
''' <LI>iImageIndex</LI>
|
||||||
|
''' <LI>iImageIndexOpen</LI>
|
||||||
|
''' <LI>iFtop</LI>
|
||||||
|
''' <LI>iFleft</LI>
|
||||||
|
''' <LI>iFwidth</LI>
|
||||||
|
''' <LI>iFheight</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>sDomaintable</LI>
|
||||||
|
''' <LI>sKeyFields</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_sysadminfunktion_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("sysadminfunktion")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@isysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iSysadminfnktnr = New SqlInt32(CType(dtToReturn.Rows(0)("sysadminfnktnr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ParentID") Is System.DBNull.Value Then
|
||||||
|
m_iParentID = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iParentID = New SqlInt32(CType(dtToReturn.Rows(0)("ParentID"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Sort") Is System.DBNull.Value Then
|
||||||
|
m_iSort = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iSort = New SqlInt32(CType(dtToReturn.Rows(0)("Sort"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ImageIndex") Is System.DBNull.Value Then
|
||||||
|
m_iImageIndex = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iImageIndex = New SqlInt32(CType(dtToReturn.Rows(0)("ImageIndex"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ImageIndexOpen") Is System.DBNull.Value Then
|
||||||
|
m_iImageIndexOpen = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iImageIndexOpen = New SqlInt32(CType(dtToReturn.Rows(0)("ImageIndexOpen"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ftop") Is System.DBNull.Value Then
|
||||||
|
m_iFtop = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFtop = New SqlInt32(CType(dtToReturn.Rows(0)("ftop"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("fleft") Is System.DBNull.Value Then
|
||||||
|
m_iFleft = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFleft = New SqlInt32(CType(dtToReturn.Rows(0)("fleft"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("fwidth") Is System.DBNull.Value Then
|
||||||
|
m_iFwidth = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFwidth = New SqlInt32(CType(dtToReturn.Rows(0)("fwidth"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("fheight") Is System.DBNull.Value Then
|
||||||
|
m_iFheight = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFheight = New SqlInt32(CType(dtToReturn.Rows(0)("fheight"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
||||||
|
End If
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
m_iSprache = New SqlInt32(CType(dtToReturn.Rows(0)("sprache"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Domaintable") Is System.DBNull.Value Then
|
||||||
|
m_sDomaintable = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sDomaintable = New SqlString(CType(dtToReturn.Rows(0)("Domaintable"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("KeyFields") Is System.DBNull.Value Then
|
||||||
|
m_sKeyFields = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sKeyFields = New SqlString(CType(dtToReturn.Rows(0)("KeyFields"), String))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_sysadminfunktion_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("sysadminfunktion")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iSysadminfnktnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSysadminfnktnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iSysadminfnktnrTmp As SqlInt32 = Value
|
||||||
|
If iSysadminfnktnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iSysadminfnktnr", "iSysadminfnktnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iSysadminfnktnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iParentID]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iParentID
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iParentID = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iSort]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSort
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iSort = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iImageIndex]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iImageIndex
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iImageIndex = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iImageIndexOpen]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iImageIndexOpen
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iImageIndexOpen = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFtop]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFtop
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFtop = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFleft]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFleft
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFleft = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFwidth]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFwidth
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFwidth = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFheight]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFheight
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFheight = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iMandantnrTmp As SqlInt32 = Value
|
||||||
|
If iMandantnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iMandantnr", "iMandantnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iSprache]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSprache
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iSpracheTmp As SqlInt32 = Value
|
||||||
|
If iSpracheTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iSprache", "iSprache can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iSprache = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sDomaintable]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sDomaintable
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sDomaintable = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sKeyFields]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sKeyFields
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sKeyFields = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,373 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsTerminierung
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iID As SqlInt32
|
||||||
|
Private m_sBezeichnung, m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Terminierung_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Terminierung_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsTerminierung::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Terminierung_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Terminierung_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsTerminierung::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Terminierung_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iID))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Terminierung_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsTerminierung::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Terminierung_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Terminierung")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iID))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Terminierung_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iID = New SqlInt32(CType(dtToReturn.Rows(0)("ID"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsTerminierung::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Terminierung_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Terminierung")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Terminierung_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsTerminierung::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iID]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iID
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iIDTmp As SqlInt32 = Value
|
||||||
|
If iIDTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iID", "iID can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iID = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
490
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsToolTip.vb
Normal file
490
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsToolTip.vb
Normal file
@@ -0,0 +1,490 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'ToolTip'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 14:02:28
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'ToolTip'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsToolTip
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iToolTipNr As SqlInt32
|
||||||
|
Private m_sToolTip, m_sControlName, m_sFormularName As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iToolTipNr</LI>
|
||||||
|
''' <LI>sFormularName. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sControlName. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sToolTip. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_ToolTip_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iToolTipNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iToolTipNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFormularName", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFormularName))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sControlName", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sControlName))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sToolTip", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sToolTip))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_ToolTip_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsToolTip::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iToolTipNr</LI>
|
||||||
|
''' <LI>sFormularName. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sControlName. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sToolTip. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_ToolTip_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iToolTipNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iToolTipNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sFormularName", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFormularName))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sControlName", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sControlName))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sToolTip", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sToolTip))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_ToolTip_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsToolTip::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iToolTipNr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_ToolTip_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iToolTipNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iToolTipNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_ToolTip_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsToolTip::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iToolTipNr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iToolTipNr</LI>
|
||||||
|
''' <LI>sFormularName</LI>
|
||||||
|
''' <LI>sControlName</LI>
|
||||||
|
''' <LI>sToolTip</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_ToolTip_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("ToolTip")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iToolTipNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iToolTipNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_ToolTip_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iToolTipNr = New SqlInt32(CType(dtToReturn.Rows(0)("ToolTipNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("FormularName") Is System.DBNull.Value Then
|
||||||
|
m_sFormularName = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sFormularName = New SqlString(CType(dtToReturn.Rows(0)("FormularName"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ControlName") Is System.DBNull.Value Then
|
||||||
|
m_sControlName = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sControlName = New SqlString(CType(dtToReturn.Rows(0)("ControlName"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ToolTip") Is System.DBNull.Value Then
|
||||||
|
m_sToolTip = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sToolTip = New SqlString(CType(dtToReturn.Rows(0)("ToolTip"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsToolTip::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_ToolTip_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("ToolTip")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_ToolTip_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsToolTip::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iToolTipNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iToolTipNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iToolTipNrTmp As SqlInt32 = Value
|
||||||
|
If iToolTipNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iToolTipNr", "iToolTipNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iToolTipNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sFormularName]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sFormularName
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sFormularName = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sControlName]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sControlName
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sControlName = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sToolTip]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sToolTip
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sToolTip = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,390 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsVerantwortung
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iVerantwortungNr As SqlInt32
|
||||||
|
Private m_sEMail, m_sVorname, m_sName As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Verantwortung_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sName", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVorname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Verantwortung_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVerantwortung::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Verantwortung_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sName", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sVorname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Verantwortung_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVerantwortung::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Verantwortung_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVerantwortungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Verantwortung_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVerantwortung::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Verantwortung_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Verantwortung")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iVerantwortungNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortungNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Verantwortung_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iVerantwortungNr = New SqlInt32(CType(dtToReturn.Rows(0)("VerantwortungNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("Name") Is System.DBNull.Value Then
|
||||||
|
m_sName = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sName = New SqlString(CType(dtToReturn.Rows(0)("Name"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Vorname") Is System.DBNull.Value Then
|
||||||
|
m_sVorname = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sVorname = New SqlString(CType(dtToReturn.Rows(0)("Vorname"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("EMail") Is System.DBNull.Value Then
|
||||||
|
m_sEMail = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sEMail = New SqlString(CType(dtToReturn.Rows(0)("EMail"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVerantwortung::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Verantwortung_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Verantwortung")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Verantwortung_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVerantwortung::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iVerantwortungNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVerantwortungNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iVerantwortungNrTmp As SqlInt32 = Value
|
||||||
|
If iVerantwortungNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iVerantwortungNr", "iVerantwortungNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iVerantwortungNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sName]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sName
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sName = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sVorname]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sVorname
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sVorname = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sEMail]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sEMail
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sEMail = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
475
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsVorgabe.vb
Normal file
475
SW/20211125/AssessmentMgmt/DB/Generierte Objekte/clsVorgabe.vb
Normal file
@@ -0,0 +1,475 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsVorgabe
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am, m_daGueltig_Bis As SqlDateTime
|
||||||
|
Private m_iVorgabeID, m_iMutierer, m_iParentID As SqlInt32
|
||||||
|
Private m_sBezeichnung, m_sDefinition, m_sBeschreibung, m_sKapitel, m_sErgaenzungen, m_sKapitelNr As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Vorgabe_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorgabeID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorgabeID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKapitelNr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKapitelNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKapitel", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKapitel))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDefinition", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDefinition))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sErgaenzungen", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sErgaenzungen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Vorgabe_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVorgabe::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Vorgabe_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorgabeID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorgabeID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKapitelNr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKapitelNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKapitel", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKapitel))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDefinition", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDefinition))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sErgaenzungen", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sErgaenzungen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_Bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_Bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Vorgabe_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVorgabe::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Vorgabe_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorgabeID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorgabeID))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Vorgabe_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVorgabe::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Vorgabe_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Vorgabe")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iVorgabeID", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorgabeID))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Vorgabe_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iVorgabeID = New SqlInt32(CType(dtToReturn.Rows(0)("VorgabeID"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("ParentID") Is System.DBNull.Value Then
|
||||||
|
m_iParentID = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iParentID = New SqlInt32(CType(dtToReturn.Rows(0)("ParentID"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("KapitelNr") Is System.DBNull.Value Then
|
||||||
|
m_sKapitelNr = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sKapitelNr = New SqlString(CType(dtToReturn.Rows(0)("KapitelNr"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Kapitel") Is System.DBNull.Value Then
|
||||||
|
m_sKapitel = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sKapitel = New SqlString(CType(dtToReturn.Rows(0)("Kapitel"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Definition") Is System.DBNull.Value Then
|
||||||
|
m_sDefinition = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sDefinition = New SqlString(CType(dtToReturn.Rows(0)("Definition"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Ergaenzungen") Is System.DBNull.Value Then
|
||||||
|
m_sErgaenzungen = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sErgaenzungen = New SqlString(CType(dtToReturn.Rows(0)("Ergaenzungen"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Gueltig_Bis") Is System.DBNull.Value Then
|
||||||
|
m_daGueltig_Bis = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daGueltig_Bis = New SqlDateTime(CType(dtToReturn.Rows(0)("Gueltig_Bis"), Date))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVorgabe::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Vorgabe_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Vorgabe")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Vorgabe_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVorgabe::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iVorgabeID]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVorgabeID
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iVorgabeIDTmp As SqlInt32 = Value
|
||||||
|
If iVorgabeIDTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iVorgabeID", "iVorgabeID can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iVorgabeID = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iParentID]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iParentID
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iParentID = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sKapitelNr]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sKapitelNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sKapitelNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sKapitel]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sKapitel
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sKapitel = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sDefinition]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sDefinition
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sDefinition = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sErgaenzungen]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sErgaenzungen
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sErgaenzungen = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daGueltig_Bis]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daGueltig_Bis
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daGueltig_Bis = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,424 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsVorgabeDefinition
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daGueltig_bis, m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iVorgabeDefinitionNr, m_iVorgabeNr As SqlInt32
|
||||||
|
Private m_sBemerkungen, m_sBezeichnung, m_sDefinition As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_VorgabeDefinition_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorgabeDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorgabeDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorgabeNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorgabeNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDefinition", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDefinition))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBemerkungen", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkungen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_VorgabeDefinition_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVorgabeDefinition::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_VorgabeDefinition_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorgabeDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorgabeDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorgabeNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorgabeNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDefinition", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDefinition))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBemerkungen", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkungen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daGueltig_bis", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daGueltig_bis))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bAktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daErstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daMutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_VorgabeDefinition_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVorgabeDefinition::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_VorgabeDefinition_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iVorgabeDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorgabeDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_VorgabeDefinition_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVorgabeDefinition::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_VorgabeDefinition_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("VorgabeDefinition")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iVorgabeDefinitionNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorgabeDefinitionNr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_VorgabeDefinition_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iVorgabeDefinitionNr = New SqlInt32(CType(dtToReturn.Rows(0)("VorgabeDefinitionNr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("VorgabeNr") Is System.DBNull.Value Then
|
||||||
|
m_iVorgabeNr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iVorgabeNr = New SqlInt32(CType(dtToReturn.Rows(0)("VorgabeNr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("Bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Definition") Is System.DBNull.Value Then
|
||||||
|
m_sDefinition = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sDefinition = New SqlString(CType(dtToReturn.Rows(0)("Definition"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Bemerkungen") Is System.DBNull.Value Then
|
||||||
|
m_sBemerkungen = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBemerkungen = New SqlString(CType(dtToReturn.Rows(0)("Bemerkungen"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Gueltig_bis") Is System.DBNull.Value Then
|
||||||
|
m_daGueltig_bis = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daGueltig_bis = New SqlDateTime(CType(dtToReturn.Rows(0)("Gueltig_bis"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("Aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("Mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("Mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVorgabeDefinition::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_VorgabeDefinition_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("VorgabeDefinition")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_VorgabeDefinition_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsVorgabeDefinition::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iVorgabeDefinitionNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVorgabeDefinitionNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iVorgabeDefinitionNrTmp As SqlInt32 = Value
|
||||||
|
If iVorgabeDefinitionNrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iVorgabeDefinitionNr", "iVorgabeDefinitionNr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iVorgabeDefinitionNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iVorgabeNr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iVorgabeNr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iVorgabeNr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sDefinition]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sDefinition
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sDefinition = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBemerkungen]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBemerkungen
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBemerkungen = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daGueltig_bis]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daGueltig_bis
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daGueltig_bis = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
130
SW/20211125/AssessmentMgmt/DB/MyDBObjects/MyMitarbeiter.vb
Normal file
130
SW/20211125/AssessmentMgmt/DB/MyDBObjects/MyMitarbeiter.vb
Normal file
@@ -0,0 +1,130 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports System.Security.Principal
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
|
||||||
|
Public Class MyMitarbeiter
|
||||||
|
Inherits DB.clsMitarbeiter
|
||||||
|
''' <summary>
|
||||||
|
''' Alle Mitarbeiter inkl. vollständigem Name (Fullname) auslesen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>Datatable</returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function SelectAllwithFullname() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[my_mitarbeiter_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = New DataTable("mitarbeiter")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Mitarbeiter mittels TGNummer auslesen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>Datatable</returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function SelectWithTGNummer() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[my_mitarbeiter_SelectWithTGNummer]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = New DataTable("mitarbeiter")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
Try
|
||||||
|
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Get_Username))
|
||||||
|
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectAllWithTGNummer' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::SelectWithTGNummer::Error occured." + ex.Message, ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Security-Deklaration zum Auslesen der UserID vom Windows-User
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Dim ouser As New WindowsPrincipal(WindowsIdentity.GetCurrent)
|
||||||
|
''' <summary>
|
||||||
|
''' Windows-User auslesen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function Get_Username() As String
|
||||||
|
With ouser.Identity.Name
|
||||||
|
Return (.Substring(.IndexOf("\") + 1))
|
||||||
|
End With
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
59
SW/20211125/AssessmentMgmt/DB/MyDBObjects/db_connection.vb
Normal file
59
SW/20211125/AssessmentMgmt/DB/MyDBObjects/db_connection.vb
Normal file
@@ -0,0 +1,59 @@
|
|||||||
|
Imports System.IO
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Dynamische Datenbank-Verbindung aufbauen. Verwendet wird standardmässig Vertragsverwaltung.cfg.
|
||||||
|
''' Sollen Datenbank-Verbindungen zur Auswahl angezeigt werden, werden sämntliche Datenbank-Verbindungsdateien
|
||||||
|
''' mit dem Namen "Vertragsverwaltung....cfg" berücksichtigt
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Class DB_Connection
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
|
||||||
|
''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
|
||||||
|
''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
|
||||||
|
'''
|
||||||
|
''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Shared Sub New()
|
||||||
|
Dim fc As Integer = 0
|
||||||
|
If Globals.ConnectionFileName.Length = 0 Then
|
||||||
|
Dim Dir As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
|
||||||
|
Try
|
||||||
|
Dim f As New frmDatenbankauswahl()
|
||||||
|
Dim ChildFile As FileInfo
|
||||||
|
For Each ChildFile In Dir.GetFiles()
|
||||||
|
If UCase(Left(ChildFile.Name, 14)) = "ASSESSMENTMGMT" And UCase(ChildFile.Extension) = ".CFG" Then
|
||||||
|
f.ListBox1.Items.Add(ChildFile.Name)
|
||||||
|
fc = fc + 1
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
If fc > 1 Then
|
||||||
|
f.ListBox1.SelectedIndex = 0
|
||||||
|
f.ListBox1.Select()
|
||||||
|
f.ShowDialog()
|
||||||
|
Globals.ConnectionFileName = f.ListBox1.SelectedItem
|
||||||
|
f.Dispose()
|
||||||
|
End If
|
||||||
|
Catch except As Exception
|
||||||
|
fc = 0
|
||||||
|
Exit Sub
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
If fc < 2 Then Globals.ConnectionFileName = "Assessmentmgmt.cfg"
|
||||||
|
Dim ofile As System.IO.File
|
||||||
|
Dim oread As System.IO.StreamReader
|
||||||
|
oread = ofile.OpenText(Application.StartupPath + "\" + Globals.ConnectionFileName)
|
||||||
|
sConnectionString = oread.ReadLine
|
||||||
|
sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
|
||||||
|
sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
|
||||||
|
Globals.sConnectionString = sConnectionString
|
||||||
|
Globals.conn.sConnectionString = sConnectionString
|
||||||
|
oread.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
End Namespace
|
||||||
|
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<root>
|
<root>
|
||||||
<!--
|
<!--
|
||||||
Microsoft ResX Schema
|
Microsoft ResX Schema
|
||||||
@@ -117,28 +117,22 @@
|
|||||||
<resheader name="writer">
|
<resheader name="writer">
|
||||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>17, 17</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>232, 17</value>
|
|
||||||
</metadata>
|
|
||||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
|
||||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
|
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||||
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
|
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
|
AAAAAAAAAAAAAAAAAAAzd3d3MzMzAAAAAAAAAAAAM3d3dzMzMwAAAAAAAAAAM3eIiIi7MzMzAAAAAAAA
|
||||||
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
|
ADN3iIiIuzMzMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAA
|
||||||
</value>
|
AAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7
|
||||||
</data>
|
MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uI
|
||||||
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
iIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAA
|
||||||
<value>
|
AHe7iIiIiIi7dwAAAAAAAAB3u4iIiIiIu3cAAAAAAAAAiIj//////4h3AAAAAAAAAIiI//////+IdwAA
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
AAAAAAAzd3d3d3d3dzMAAAAAAAAAM3d3d3d3d3czAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////////////////////AAA//wA
|
||||||
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
|
AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wA
|
||||||
AElFTkSuQmCC
|
AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//////////////////////w==
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
</root>
|
</root>
|
||||||
@@ -0,0 +1,95 @@
|
|||||||
|
''' <summary>
|
||||||
|
''' Form für die Datenbankauswahl
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Class frmDatenbankauswahl
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
#Region " Vom Windows Form Designer generierter Code "
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
MyBase.New()
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
|
||||||
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||||
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
If disposing Then
|
||||||
|
If Not (components Is Nothing) Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
' Für Windows Form-Designer erforderlich
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||||
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||||
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||||
|
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
|
||||||
|
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDatenbankauswahl))
|
||||||
|
Me.ListBox1 = New System.Windows.Forms.ListBox
|
||||||
|
Me.Button1 = New System.Windows.Forms.Button
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'ListBox1
|
||||||
|
'
|
||||||
|
Me.ListBox1.Location = New System.Drawing.Point(16, 16)
|
||||||
|
Me.ListBox1.Name = "ListBox1"
|
||||||
|
Me.ListBox1.Size = New System.Drawing.Size(232, 95)
|
||||||
|
Me.ListBox1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'Button1
|
||||||
|
'
|
||||||
|
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||||
|
Me.Button1.Location = New System.Drawing.Point(88, 128)
|
||||||
|
Me.Button1.Name = "Button1"
|
||||||
|
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.Button1.TabIndex = 1
|
||||||
|
Me.Button1.Text = "&OK"
|
||||||
|
'
|
||||||
|
'frmDatenbankauswahl
|
||||||
|
'
|
||||||
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||||
|
Me.ClientSize = New System.Drawing.Size(258, 165)
|
||||||
|
Me.Controls.Add(Me.Button1)
|
||||||
|
Me.Controls.Add(Me.ListBox1)
|
||||||
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.MaximizeBox = False
|
||||||
|
Me.MinimizeBox = False
|
||||||
|
Me.Name = "frmDatenbankauswahl"
|
||||||
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
|
Me.Text = "Vertragsverwaltung: Datebbankauswahl"
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub frmDatenbankauswahl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
|
||||||
|
If e.KeyCode = Keys.Enter Then Me.Close()
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
128
SW/20211125/AssessmentMgmt/Diverse Formulare/Demo_Assessmentgenerierung.Designer.vb
generated
Normal file
128
SW/20211125/AssessmentMgmt/Diverse Formulare/Demo_Assessmentgenerierung.Designer.vb
generated
Normal file
@@ -0,0 +1,128 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class Demo_Assessmentgenerierung
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Demo_Assessmentgenerierung))
|
||||||
|
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||||
|
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.Button1 = New System.Windows.Forms.Button()
|
||||||
|
Me.Panel1.SuspendLayout()
|
||||||
|
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'DateTimePicker1
|
||||||
|
'
|
||||||
|
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||||
|
Me.DateTimePicker1.Location = New System.Drawing.Point(97, 12)
|
||||||
|
Me.DateTimePicker1.Name = "DateTimePicker1"
|
||||||
|
Me.DateTimePicker1.Size = New System.Drawing.Size(103, 20)
|
||||||
|
Me.DateTimePicker1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.AutoSize = True
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(2, 18)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(89, 13)
|
||||||
|
Me.Label1.TabIndex = 1
|
||||||
|
Me.Label1.Text = "Simulationsdatum"
|
||||||
|
'
|
||||||
|
'Panel1
|
||||||
|
'
|
||||||
|
Me.Panel1.Controls.Add(Me.Button1)
|
||||||
|
Me.Panel1.Controls.Add(Me.Label2)
|
||||||
|
Me.Panel1.Controls.Add(Me.DateTimePicker1)
|
||||||
|
Me.Panel1.Controls.Add(Me.Label1)
|
||||||
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.Panel1.Name = "Panel1"
|
||||||
|
Me.Panel1.Size = New System.Drawing.Size(650, 67)
|
||||||
|
Me.Panel1.TabIndex = 2
|
||||||
|
'
|
||||||
|
'C1Daten
|
||||||
|
'
|
||||||
|
Me.C1Daten.AllowUpdate = False
|
||||||
|
Me.C1Daten.AlternatingRows = True
|
||||||
|
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
|
||||||
|
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.C1Daten.FilterBar = True
|
||||||
|
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||||
|
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
|
||||||
|
Me.C1Daten.Location = New System.Drawing.Point(0, 67)
|
||||||
|
Me.C1Daten.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
|
||||||
|
Me.C1Daten.Name = "C1Daten"
|
||||||
|
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Findings.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1Daten.Size = New System.Drawing.Size(650, 198)
|
||||||
|
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||||
|
Me.C1Daten.TabIndex = 13
|
||||||
|
Me.C1Daten.Text = "C1TrueDBGrid1"
|
||||||
|
Me.C1Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
|
||||||
|
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.AutoSize = True
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(5, 51)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(46, 13)
|
||||||
|
Me.Label2.TabIndex = 2
|
||||||
|
Me.Label2.Text = "Resultat"
|
||||||
|
'
|
||||||
|
'Button1
|
||||||
|
'
|
||||||
|
Me.Button1.Location = New System.Drawing.Point(238, 13)
|
||||||
|
Me.Button1.Name = "Button1"
|
||||||
|
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.Button1.TabIndex = 3
|
||||||
|
Me.Button1.Text = "Start"
|
||||||
|
Me.Button1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Demo_Assessmentgenerierung
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(650, 265)
|
||||||
|
Me.Controls.Add(Me.C1Daten)
|
||||||
|
Me.Controls.Add(Me.Panel1)
|
||||||
|
Me.Name = "Demo_Assessmentgenerierung"
|
||||||
|
Me.Text = "Demo_Assessmentgenerierung"
|
||||||
|
Me.Panel1.ResumeLayout(False)
|
||||||
|
Me.Panel1.PerformLayout()
|
||||||
|
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents DateTimePicker1 As DateTimePicker
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents Panel1 As Panel
|
||||||
|
Friend WithEvents Button1 As Button
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,160 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||||
|
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1Findings.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1Daten.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}Heading{Wrap:True;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 648, 196</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 648, 196</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,44 @@
|
|||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
|
||||||
|
Public Class Demo_Assessmentgenerierung
|
||||||
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||||
|
GetData()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub GetData()
|
||||||
|
Try
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "SP_Assessment_Generierung"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@datum", SqlDbType.Date, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DateTimePicker1.Value))
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@demo", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||||
|
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ds, "Datatable1")
|
||||||
|
Try
|
||||||
|
c1daten.DataSource = Nothing
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
C1Daten.DataSource = ds.Tables(0)
|
||||||
|
C1Daten.DataMember = ds.Tables(0).TableName
|
||||||
|
For i = 0 To C1Daten.Splits(0).DisplayColumns.Count - 1
|
||||||
|
C1Daten.Splits(0).DisplayColumns(i).AutoSize()
|
||||||
|
|
||||||
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
|
||||||
128
SW/20211125/AssessmentMgmt/Diverse Formulare/Demo_Mailgenerierung.Designer.vb
generated
Normal file
128
SW/20211125/AssessmentMgmt/Diverse Formulare/Demo_Mailgenerierung.Designer.vb
generated
Normal file
@@ -0,0 +1,128 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class Demo_Mailgenerierung
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Demo_Mailgenerierung))
|
||||||
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||||
|
Me.Button1 = New System.Windows.Forms.Button()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
Me.Panel1.SuspendLayout()
|
||||||
|
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'Panel1
|
||||||
|
'
|
||||||
|
Me.Panel1.Controls.Add(Me.Button1)
|
||||||
|
Me.Panel1.Controls.Add(Me.Label2)
|
||||||
|
Me.Panel1.Controls.Add(Me.DateTimePicker1)
|
||||||
|
Me.Panel1.Controls.Add(Me.Label1)
|
||||||
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.Panel1.Name = "Panel1"
|
||||||
|
Me.Panel1.Size = New System.Drawing.Size(844, 67)
|
||||||
|
Me.Panel1.TabIndex = 14
|
||||||
|
'
|
||||||
|
'Button1
|
||||||
|
'
|
||||||
|
Me.Button1.Location = New System.Drawing.Point(238, 13)
|
||||||
|
Me.Button1.Name = "Button1"
|
||||||
|
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.Button1.TabIndex = 3
|
||||||
|
Me.Button1.Text = "Start"
|
||||||
|
Me.Button1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.AutoSize = True
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(5, 51)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(46, 13)
|
||||||
|
Me.Label2.TabIndex = 2
|
||||||
|
Me.Label2.Text = "Resultat"
|
||||||
|
'
|
||||||
|
'DateTimePicker1
|
||||||
|
'
|
||||||
|
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||||
|
Me.DateTimePicker1.Location = New System.Drawing.Point(97, 12)
|
||||||
|
Me.DateTimePicker1.Name = "DateTimePicker1"
|
||||||
|
Me.DateTimePicker1.Size = New System.Drawing.Size(103, 20)
|
||||||
|
Me.DateTimePicker1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.AutoSize = True
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(2, 18)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(89, 13)
|
||||||
|
Me.Label1.TabIndex = 1
|
||||||
|
Me.Label1.Text = "Simulationsdatum"
|
||||||
|
'
|
||||||
|
'C1Daten
|
||||||
|
'
|
||||||
|
Me.C1Daten.AllowUpdate = False
|
||||||
|
Me.C1Daten.AlternatingRows = True
|
||||||
|
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
|
||||||
|
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.C1Daten.FilterBar = True
|
||||||
|
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||||
|
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
|
||||||
|
Me.C1Daten.Location = New System.Drawing.Point(0, 67)
|
||||||
|
Me.C1Daten.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
|
||||||
|
Me.C1Daten.Name = "C1Daten"
|
||||||
|
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1Daten.Size = New System.Drawing.Size(844, 341)
|
||||||
|
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||||
|
Me.C1Daten.TabIndex = 15
|
||||||
|
Me.C1Daten.Text = "C1TrueDBGrid1"
|
||||||
|
Me.C1Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
|
||||||
|
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
|
||||||
|
'
|
||||||
|
'Demo_Mailgenerierung
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(844, 408)
|
||||||
|
Me.Controls.Add(Me.C1Daten)
|
||||||
|
Me.Controls.Add(Me.Panel1)
|
||||||
|
Me.Name = "Demo_Mailgenerierung"
|
||||||
|
Me.Text = "Demo_Mailgenerierung"
|
||||||
|
Me.Panel1.ResumeLayout(False)
|
||||||
|
Me.Panel1.PerformLayout()
|
||||||
|
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents Panel1 As Panel
|
||||||
|
Friend WithEvents Button1 As Button
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
Friend WithEvents DateTimePicker1 As DateTimePicker
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,160 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||||
|
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1Daten.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 842, 339</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 842, 339</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,43 @@
|
|||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
|
||||||
|
Public Class Demo_Mailgenerierung
|
||||||
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||||
|
GetData()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Private Sub GetData()
|
||||||
|
Try
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "sp_erinnerungsmails"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@datum", SqlDbType.Date, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DateTimePicker1.Value))
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@demo", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||||
|
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ds, "Datatable1")
|
||||||
|
Try
|
||||||
|
C1Daten.DataSource = Nothing
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
C1Daten.DataSource = ds.Tables(0)
|
||||||
|
C1Daten.DataMember = ds.Tables(0).TableName
|
||||||
|
For i = 0 To C1Daten.Splits(0).DisplayColumns.Count - 1
|
||||||
|
C1Daten.Splits(0).DisplayColumns(i).AutoSize()
|
||||||
|
|
||||||
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
58
SW/20211125/AssessmentMgmt/Diverse Formulare/Form1.Designer.vb
generated
Normal file
58
SW/20211125/AssessmentMgmt/Diverse Formulare/Form1.Designer.vb
generated
Normal file
@@ -0,0 +1,58 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class Form1
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
|
||||||
|
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'C1TrueDBGrid1
|
||||||
|
'
|
||||||
|
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
|
||||||
|
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
|
||||||
|
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(135, 72)
|
||||||
|
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(240, 150)
|
||||||
|
Me.C1TrueDBGrid1.TabIndex = 0
|
||||||
|
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
|
||||||
|
'
|
||||||
|
'Form1
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(12.0!, 25.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(274, 229)
|
||||||
|
Me.Controls.Add(Me.C1TrueDBGrid1)
|
||||||
|
Me.Name = "Form1"
|
||||||
|
Me.Text = "Form1"
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
End Class
|
||||||
160
SW/20211125/AssessmentMgmt/Diverse Formulare/Form1.resx
Normal file
160
SW/20211125/AssessmentMgmt/Diverse Formulare/Form1.resx
Normal file
@@ -0,0 +1,160 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="C1TrueDBGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAAHYcAAB2HAY/l8WUAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
|
||||||
|
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style16{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style6{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="28" ColumnCaptionHeight="28" ColumnFooterHeight="28" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="34" DefRecSelWidth="34" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 238, 148</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>34</DefaultRecSelWidth><ClientArea>0, 0, 238, 148</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -1,3 +1,3 @@
|
|||||||
Public Class Form1
|
Public Class Form1
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
95
SW/20211125/AssessmentMgmt/Diverse Formulare/frmAbout.designer.vb
generated
Normal file
95
SW/20211125/AssessmentMgmt/Diverse Formulare/frmAbout.designer.vb
generated
Normal file
@@ -0,0 +1,95 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmAbout
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbout))
|
||||||
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.btnOK = New System.Windows.Forms.Button()
|
||||||
|
Me.lblversiondatum = New System.Windows.Forms.Label()
|
||||||
|
Me.lblVersion = New System.Windows.Forms.Label()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.BackColor = System.Drawing.Color.White
|
||||||
|
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
|
||||||
|
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(469, 330)
|
||||||
|
Me.PictureBox1.TabIndex = 1
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
|
'btnOK
|
||||||
|
'
|
||||||
|
Me.btnOK.Location = New System.Drawing.Point(201, 339)
|
||||||
|
Me.btnOK.Name = "btnOK"
|
||||||
|
Me.btnOK.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.btnOK.TabIndex = 2
|
||||||
|
Me.btnOK.Text = "OK"
|
||||||
|
Me.btnOK.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'lblversiondatum
|
||||||
|
'
|
||||||
|
Me.lblversiondatum.BackColor = System.Drawing.Color.White
|
||||||
|
Me.lblversiondatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblversiondatum.Location = New System.Drawing.Point(249, 273)
|
||||||
|
Me.lblversiondatum.Name = "lblversiondatum"
|
||||||
|
Me.lblversiondatum.Size = New System.Drawing.Size(193, 24)
|
||||||
|
Me.lblversiondatum.TabIndex = 4
|
||||||
|
Me.lblversiondatum.Text = "Version "
|
||||||
|
Me.lblversiondatum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
'
|
||||||
|
'lblVersion
|
||||||
|
'
|
||||||
|
Me.lblVersion.BackColor = System.Drawing.Color.White
|
||||||
|
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblVersion.Location = New System.Drawing.Point(245, 249)
|
||||||
|
Me.lblVersion.Name = "lblVersion"
|
||||||
|
Me.lblVersion.Size = New System.Drawing.Size(197, 24)
|
||||||
|
Me.lblVersion.TabIndex = 3
|
||||||
|
Me.lblVersion.Text = "Version "
|
||||||
|
Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
'
|
||||||
|
'frmAbout
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(464, 374)
|
||||||
|
Me.Controls.Add(Me.lblversiondatum)
|
||||||
|
Me.Controls.Add(Me.lblVersion)
|
||||||
|
Me.Controls.Add(Me.btnOK)
|
||||||
|
Me.Controls.Add(Me.PictureBox1)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.Name = "frmAbout"
|
||||||
|
Me.Text = "frmAbout"
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||||
|
Friend WithEvents btnOK As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents lblversiondatum As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents lblVersion As System.Windows.Forms.Label
|
||||||
|
End Class
|
||||||
2671
SW/20211125/AssessmentMgmt/Diverse Formulare/frmAbout.resx
Normal file
2671
SW/20211125/AssessmentMgmt/Diverse Formulare/frmAbout.resx
Normal file
File diff suppressed because it is too large
Load Diff
12
SW/20211125/AssessmentMgmt/Diverse Formulare/frmAbout.vb
Normal file
12
SW/20211125/AssessmentMgmt/Diverse Formulare/frmAbout.vb
Normal file
@@ -0,0 +1,12 @@
|
|||||||
|
Public Class frmAbout
|
||||||
|
|
||||||
|
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||||
|
Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
|
||||||
|
Me.lblversiondatum.Text = Globals.Versionsdatum
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
89
SW/20211125/AssessmentMgmt/Diverse Formulare/frmLogin.designer.vb
generated
Normal file
89
SW/20211125/AssessmentMgmt/Diverse Formulare/frmLogin.designer.vb
generated
Normal file
@@ -0,0 +1,89 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmLogin
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLogin))
|
||||||
|
Me.lblBitteAnmelden = New System.Windows.Forms.Label
|
||||||
|
Me.cbMitarbeiter = New System.Windows.Forms.ComboBox
|
||||||
|
Me.btnAbbruch = New System.Windows.Forms.Button
|
||||||
|
Me.btnAnmelden = New System.Windows.Forms.Button
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'lblBitteAnmelden
|
||||||
|
'
|
||||||
|
Me.lblBitteAnmelden.Location = New System.Drawing.Point(12, 9)
|
||||||
|
Me.lblBitteAnmelden.Name = "lblBitteAnmelden"
|
||||||
|
Me.lblBitteAnmelden.Size = New System.Drawing.Size(136, 23)
|
||||||
|
Me.lblBitteAnmelden.TabIndex = 3
|
||||||
|
Me.lblBitteAnmelden.Text = "Bitte melden Sie sich an"
|
||||||
|
'
|
||||||
|
'cbMitarbeiter
|
||||||
|
'
|
||||||
|
Me.cbMitarbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
|
||||||
|
Me.cbMitarbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||||
|
Me.cbMitarbeiter.FormattingEnabled = True
|
||||||
|
Me.cbMitarbeiter.Location = New System.Drawing.Point(15, 35)
|
||||||
|
Me.cbMitarbeiter.Name = "cbMitarbeiter"
|
||||||
|
Me.cbMitarbeiter.Size = New System.Drawing.Size(257, 21)
|
||||||
|
Me.cbMitarbeiter.TabIndex = 4
|
||||||
|
'
|
||||||
|
'btnAbbruch
|
||||||
|
'
|
||||||
|
Me.btnAbbruch.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||||
|
Me.btnAbbruch.Location = New System.Drawing.Point(158, 76)
|
||||||
|
Me.btnAbbruch.Name = "btnAbbruch"
|
||||||
|
Me.btnAbbruch.Size = New System.Drawing.Size(104, 24)
|
||||||
|
Me.btnAbbruch.TabIndex = 6
|
||||||
|
Me.btnAbbruch.Text = "&Abbruch"
|
||||||
|
'
|
||||||
|
'btnAnmelden
|
||||||
|
'
|
||||||
|
Me.btnAnmelden.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||||
|
Me.btnAnmelden.Location = New System.Drawing.Point(14, 76)
|
||||||
|
Me.btnAnmelden.Name = "btnAnmelden"
|
||||||
|
Me.btnAnmelden.Size = New System.Drawing.Size(104, 24)
|
||||||
|
Me.btnAnmelden.TabIndex = 5
|
||||||
|
Me.btnAnmelden.Text = "&Anmelden"
|
||||||
|
'
|
||||||
|
'frmLogin
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(308, 129)
|
||||||
|
Me.Controls.Add(Me.btnAbbruch)
|
||||||
|
Me.Controls.Add(Me.btnAnmelden)
|
||||||
|
Me.Controls.Add(Me.cbMitarbeiter)
|
||||||
|
Me.Controls.Add(Me.lblBitteAnmelden)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.Name = "frmLogin"
|
||||||
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
|
Me.Text = "Benutzerauswahl Assessment-Management"
|
||||||
|
Me.TopMost = True
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents lblBitteAnmelden As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents cbMitarbeiter As System.Windows.Forms.ComboBox
|
||||||
|
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents btnAnmelden As System.Windows.Forms.Button
|
||||||
|
End Class
|
||||||
138
SW/20211125/AssessmentMgmt/Diverse Formulare/frmLogin.resx
Normal file
138
SW/20211125/AssessmentMgmt/Diverse Formulare/frmLogin.resx
Normal file
@@ -0,0 +1,138 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||||
|
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIiIAAAAAAAAAAAAAIi
|
||||||
|
IiJyIiIiIAAAAAAAACIndyInd3ciIiIAAAAAAAIid3cvJ3d3ciIiAAAAAAACJ3d3f4J3d3ciIgAAAAAA
|
||||||
|
Ind3co/3d3d3ciIAAAAAACJ3d3L//yd3d3IgAAAAAAACd3dy//+Cd3dyIAAAAAAAAnd3cv//9yd3cgAA
|
||||||
|
AAAAAAIneHf///9ndyAAAAAAAAAAInh3hzM3giIAAAAAAAAAAAAiIzMzMzMgAAAAAAAAAAAAAAMzMzMz
|
||||||
|
MAAAAAAAAAAAAAAzu7u7uzMAAAAAAAAAAAABO7u7u7uzAAAAAAAAAAAAA7u7u7u7uzAAAAAAAAAAAAO7
|
||||||
|
u7u7u7swAAAAAAAAAAATu7u7u7u7sQAAAAAAAAAAE7u7u7u7u7MAAAAAAAAAADu7u7u7u7uzAAAAAAAA
|
||||||
|
AAAbu7u7u7u7swAAAAAAAAAAG7u7u7u7u7MAAAAAAAAAABO7Mzu7u7szAAAAAAAAAAADMzMzMzMzMwAA
|
||||||
|
AAAAAAAAAzM3eIdzMzMAAAAAAAAAAAAzeIiIiHMxAAAAAAAAAAAAM4iIiIdzMAAAAAAAAAAAAAM4iIiI
|
||||||
|
MwAAAAAAAAAAAAAAM4iIczAAAAAAAAAAAAAAAAATMxAAAAAAAAD/4AAf/gAAD/gAAA/wAAAP8AAAD/AA
|
||||||
|
AA/wAAAP8AAAD/AAAA/wAAAf8AAAH/gAAD/4AAB//gAA//+AAH//gAB//wAAP/8AAD//AAA//wAAP/8A
|
||||||
|
AB//AAAf/wAAH/8AAB//AAAf/wAAP/+AAD//gAA//8AAP//AAH//4AD///gD/w==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
41
SW/20211125/AssessmentMgmt/Diverse Formulare/frmLogin.vb
Normal file
41
SW/20211125/AssessmentMgmt/Diverse Formulare/frmLogin.vb
Normal file
@@ -0,0 +1,41 @@
|
|||||||
|
''' <summary>
|
||||||
|
''' Form für den Login. Wird nur angezeigt, sofern in der Tabelle Application Show-Login = true
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Class frmLogin
|
||||||
|
|
||||||
|
Dim m_mitarbeiternr As Integer
|
||||||
|
Property Mitarbeiternr() As Integer
|
||||||
|
Get
|
||||||
|
Return m_mitarbeiternr
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As Integer)
|
||||||
|
m_mitarbeiternr = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim tmp_madaten As New DataTable
|
||||||
|
Dim tmp_clsmitarbeiter As New DB.MyMitarbeiter
|
||||||
|
Dim conn As New DB.clsConnectionProvider
|
||||||
|
|
||||||
|
Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||||
|
conn = Globals.conn
|
||||||
|
tmp_clsmitarbeiter.cpMainConnectionProvider = conn
|
||||||
|
conn.OpenConnection()
|
||||||
|
tmp_madaten = tmp_clsmitarbeiter.SelectAllwithFullname
|
||||||
|
Me.cbMitarbeiter.DataSource = tmp_madaten
|
||||||
|
Me.cbMitarbeiter.DisplayMember = "Fullname"
|
||||||
|
Me.cbMitarbeiter.ValueMember = "Mitarbeiternr"
|
||||||
|
conn.CloseConnection(True)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnAnmelden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnmelden.Click
|
||||||
|
Me.Mitarbeiternr = Me.cbMitarbeiter.SelectedValue
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
|
||||||
|
Me.Mitarbeiternr = -1
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
177
SW/20211125/AssessmentMgmt/Diverse Formulare/frmMailInfo.Designer.vb
generated
Normal file
177
SW/20211125/AssessmentMgmt/Diverse Formulare/frmMailInfo.Designer.vb
generated
Normal file
@@ -0,0 +1,177 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmMailInfo
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMailInfo))
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.cbboxmailtyp1 = New System.Windows.Forms.ComboBox()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
|
Me.btnSave = New System.Windows.Forms.Button()
|
||||||
|
Me.btnAbbruch = New System.Windows.Forms.Button()
|
||||||
|
Me.cbboxmailtyp2 = New System.Windows.Forms.ComboBox()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(474, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 9
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "Fenster schliessen"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||||
|
'
|
||||||
|
'ToolStripButton1
|
||||||
|
'
|
||||||
|
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||||
|
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.ToolStripButton1.Text = "ToolStripButton1"
|
||||||
|
Me.ToolStripButton1.ToolTipText = "Neue Feststellung erfassen"
|
||||||
|
Me.ToolStripButton1.Visible = False
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.AutoSize = True
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(13, 29)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(239, 13)
|
||||||
|
Me.Label1.TabIndex = 10
|
||||||
|
Me.Label1.Text = "Erinnerungsmail für weitergegebene Assessments"
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.AutoSize = True
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(13, 51)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(195, 13)
|
||||||
|
Me.Label2.TabIndex = 11
|
||||||
|
Me.Label2.Text = "Erinnerungsmail für eigene Assessments"
|
||||||
|
'
|
||||||
|
'cbboxmailtyp1
|
||||||
|
'
|
||||||
|
Me.cbboxmailtyp1.FormattingEnabled = True
|
||||||
|
Me.cbboxmailtyp1.Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10"})
|
||||||
|
Me.cbboxmailtyp1.Location = New System.Drawing.Point(252, 26)
|
||||||
|
Me.cbboxmailtyp1.Name = "cbboxmailtyp1"
|
||||||
|
Me.cbboxmailtyp1.Size = New System.Drawing.Size(64, 21)
|
||||||
|
Me.cbboxmailtyp1.TabIndex = 12
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.AutoSize = True
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(322, 29)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(141, 13)
|
||||||
|
Me.Label3.TabIndex = 14
|
||||||
|
Me.Label3.Text = "Tage vor Terminerreichnung"
|
||||||
|
'
|
||||||
|
'Label4
|
||||||
|
'
|
||||||
|
Me.Label4.AutoSize = True
|
||||||
|
Me.Label4.Location = New System.Drawing.Point(322, 51)
|
||||||
|
Me.Label4.Name = "Label4"
|
||||||
|
Me.Label4.Size = New System.Drawing.Size(141, 13)
|
||||||
|
Me.Label4.TabIndex = 15
|
||||||
|
Me.Label4.Text = "Tage vor Terminerreichnung"
|
||||||
|
'
|
||||||
|
'btnSave
|
||||||
|
'
|
||||||
|
Me.btnSave.Location = New System.Drawing.Point(16, 96)
|
||||||
|
Me.btnSave.Name = "btnSave"
|
||||||
|
Me.btnSave.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.btnSave.TabIndex = 16
|
||||||
|
Me.btnSave.Text = "Speichern"
|
||||||
|
Me.btnSave.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'btnAbbruch
|
||||||
|
'
|
||||||
|
Me.btnAbbruch.Location = New System.Drawing.Point(388, 96)
|
||||||
|
Me.btnAbbruch.Name = "btnAbbruch"
|
||||||
|
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.btnAbbruch.TabIndex = 17
|
||||||
|
Me.btnAbbruch.Text = "Abbruch"
|
||||||
|
Me.btnAbbruch.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'cbboxmailtyp2
|
||||||
|
'
|
||||||
|
Me.cbboxmailtyp2.FormattingEnabled = True
|
||||||
|
Me.cbboxmailtyp2.Items.AddRange(New Object() {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10"})
|
||||||
|
Me.cbboxmailtyp2.Location = New System.Drawing.Point(252, 48)
|
||||||
|
Me.cbboxmailtyp2.Name = "cbboxmailtyp2"
|
||||||
|
Me.cbboxmailtyp2.Size = New System.Drawing.Size(64, 21)
|
||||||
|
Me.cbboxmailtyp2.TabIndex = 18
|
||||||
|
'
|
||||||
|
'frmMailInfo
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(474, 135)
|
||||||
|
Me.Controls.Add(Me.cbboxmailtyp2)
|
||||||
|
Me.Controls.Add(Me.btnAbbruch)
|
||||||
|
Me.Controls.Add(Me.btnSave)
|
||||||
|
Me.Controls.Add(Me.Label4)
|
||||||
|
Me.Controls.Add(Me.Label3)
|
||||||
|
Me.Controls.Add(Me.cbboxmailtyp1)
|
||||||
|
Me.Controls.Add(Me.Label2)
|
||||||
|
Me.Controls.Add(Me.Label1)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.Name = "frmMailInfo"
|
||||||
|
Me.Text = "MailInfo"
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents ToolStrip1 As ToolStrip
|
||||||
|
Friend WithEvents TSBtnQuit As ToolStripButton
|
||||||
|
Friend WithEvents ToolStripButton1 As ToolStripButton
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
Friend WithEvents cbboxmailtyp1 As ComboBox
|
||||||
|
Friend WithEvents Label3 As Label
|
||||||
|
Friend WithEvents Label4 As Label
|
||||||
|
Friend WithEvents btnSave As Button
|
||||||
|
Friend WithEvents btnAbbruch As Button
|
||||||
|
Friend WithEvents cbboxmailtyp2 As ComboBox
|
||||||
|
End Class
|
||||||
@@ -112,38 +112,33 @@
|
|||||||
<value>2.0</value>
|
<value>2.0</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<resheader name="reader">
|
<resheader name="reader">
|
||||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<resheader name="writer">
|
<resheader name="writer">
|
||||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
<value>339, 17</value>
|
<value>17, 17</value>
|
||||||
</metadata>
|
</metadata>
|
||||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
|
||||||
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
|
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
|
||||||
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
|
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
|
||||||
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
|
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
|
||||||
|
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
|
||||||
|
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
|
||||||
|
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
|
||||||
|
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
|
||||||
|
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
|
||||||
|
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
|
||||||
|
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
|
||||||
|
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
|
||||||
|
DzXbwlLPDlfpAAAAAElFTkSuQmCC
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
|
||||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
|
|
||||||
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
|
|
||||||
AElFTkSuQmCC
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>446, 17</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>561, 17</value>
|
|
||||||
</metadata>
|
|
||||||
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
@@ -159,51 +154,21 @@
|
|||||||
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
|
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
|
||||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwsMyLpCsL
|
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||||
+sAwJRlBBNLozoYSXhQFc7Su7CLoA+xi1L7brO3d1pxuta1Y3YSghuTbGrFp7W1Tt7mLNvL99wyey7bZ
|
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
D/6c5znnf855HmYr+CUS9n1b2y16/T9mensfPWAY6OrqEJBKF97JZPW0VB1h8UnXfIyD+8493CdDJkQi
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACHd3d3d3d3MzMzMzMxETMAiIiLu7u7u7u7u7u7u7szAIiI
|
||||||
vGxsxKxE0kMtlfk9dzOVmepEknuK6BKPif0SPKypgUssvk0t5dmMavVr/nNIsq1YNjFY8Z8G9zOF16rh
|
iIiIiIi7u7u7u7u7swCIiIiIiIiIiIiIu7u7uDMAj4iIiIiIiIiIiIiIiIOzAI+IiIiIiIiIiIiIiIg7
|
||||||
79RSHiGmPZsJKZB0y8kAKZYnxUh5O/DDtg2xuRet1PZvOK9q+1rwWoEnm9PTJ5Gw78LqdDcZJMMfv0hF
|
swCPiIiIiIiIiIiIiIiDu7MAj4iIiIiIiIiIiIiIO7uzAI+IiIiIiIh3OIiIg7u7swCP//iIiIiIiIOI
|
||||||
beXZnB8J8B45VmfOkBccJps7kfKdQM67J0It5RG4G8q0twu/PEexHlSAJ19Yf9uPuO2Q8NlWX0tt5Sku
|
iDiIi7MAj////4iIiIiIOIOIiIizAI////+IiIiIiIM4iIiIswCP////iI+IiIiIOIiIiLMAj///+Ij/
|
||||||
Pk7wng7kP15Hauo4sqHLSJPtQujgRWqpTOHLM2SWnMjM3kX2TR/ZfgHF0LFJWq7M+PgVEXgncl9fYSMe
|
+IiIiIOIiIizAI///4iP////iIiIOIiIswCP//iI//////iIiIOIiLMAj/+Ij///////+IiIOIizAI/4
|
||||||
RD4RQD7Ss0HL1Wlu3iu/1N+N7Dc3CnwEKEZtuZVPu2m5Ok0tLed37KzFvoYGVzr+oYmmt0Y4HD6gVqvH
|
iP////////+IiIOItwCPiI//////////+IiIOLcAiIj////////////4iIN3AIiP/////////////4iI
|
||||||
NBqNVm8yKXS654Nms3nI4XCMluR0OoeIlERXXS7XAMuyp3w+n4y2M4zdbm+3WCx9pGnQYDAMG43GURLH
|
NwCI////////////////iLcAj/////////////////+HAIiIiIiIiIiIiIiIiIiIdwAAAAAAAAAAAAAA
|
||||||
SFSXRM+l3AiRUq/XD1it1iMMwzB/AcmkJIfUYwLvAAAAAElFTkSuQmCC
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////////////8AAAAAAAAAAAAA
|
||||||
</value>
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
</data>
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///////////////w==
|
||||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
|
||||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
|
|
||||||
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
|
|
||||||
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
|
|
||||||
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
|
|
||||||
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
|
|
||||||
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
|
|
||||||
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
|
|
||||||
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
|
|
||||||
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
|
|
||||||
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
|
|
||||||
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
|
||||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
|
|
||||||
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
|
|
||||||
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
|
|
||||||
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
|
|
||||||
o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
|
|
||||||
Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
|
|
||||||
mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
|
|
||||||
FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
|
|
||||||
wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
|
|
||||||
MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
|
|
||||||
1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
|
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
</root>
|
</root>
|
||||||
68
SW/20211125/AssessmentMgmt/Diverse Formulare/frmMailInfo.vb
Normal file
68
SW/20211125/AssessmentMgmt/Diverse Formulare/frmMailInfo.vb
Normal file
@@ -0,0 +1,68 @@
|
|||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports System.Data.SqlDbType
|
||||||
|
Public Class frmMailInfo
|
||||||
|
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub frmMailInfo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||||
|
get_data()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Sub get_data()
|
||||||
|
Try
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "SP_Erinnerungsmail"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@param1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
||||||
|
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ds, "Datatable1")
|
||||||
|
Me.cbboxmailtyp1.Text = ds.Tables(0).Rows(0).Item("Mailtyp1")
|
||||||
|
Me.cbboxmailtyp2.Text = ds.Tables(0).Rows(0).Item("Mailtyp2")
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Save_Data()
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "SP_Erinnerungsmail"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@param1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@param2", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.cbboxmailtyp1.Text))
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@param3", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.cbboxmailtyp2.Text))
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
sqlcmd.ExecuteNonQuery()
|
||||||
|
connection.Close
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||||
|
Save_Data()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
181
SW/20211125/AssessmentMgmt/Diverse Formulare/frmMsgBox.designer.vb
generated
Normal file
181
SW/20211125/AssessmentMgmt/Diverse Formulare/frmMsgBox.designer.vb
generated
Normal file
@@ -0,0 +1,181 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmMsgBox
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMsgBox))
|
||||||
|
Me.btnYes = New System.Windows.Forms.Button
|
||||||
|
Me.btnno = New System.Windows.Forms.Button
|
||||||
|
Me.btnAbbruch = New System.Windows.Forms.Button
|
||||||
|
Me.txtmsg = New System.Windows.Forms.TextBox
|
||||||
|
Me.btnOK = New System.Windows.Forms.Button
|
||||||
|
Me.Panel1 = New System.Windows.Forms.Panel
|
||||||
|
Me.imgQuestion = New System.Windows.Forms.PictureBox
|
||||||
|
Me.imgInformation = New System.Windows.Forms.PictureBox
|
||||||
|
Me.imgExclamation = New System.Windows.Forms.PictureBox
|
||||||
|
Me.imgCritical = New System.Windows.Forms.PictureBox
|
||||||
|
Me.Panel1.SuspendLayout()
|
||||||
|
CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'btnYes
|
||||||
|
'
|
||||||
|
Me.btnYes.Location = New System.Drawing.Point(71, 84)
|
||||||
|
Me.btnYes.Name = "btnYes"
|
||||||
|
Me.btnYes.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.btnYes.TabIndex = 0
|
||||||
|
Me.btnYes.Text = "&Ja"
|
||||||
|
Me.btnYes.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'btnno
|
||||||
|
'
|
||||||
|
Me.btnno.Location = New System.Drawing.Point(162, 84)
|
||||||
|
Me.btnno.Name = "btnno"
|
||||||
|
Me.btnno.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.btnno.TabIndex = 1
|
||||||
|
Me.btnno.Text = "&Nein"
|
||||||
|
Me.btnno.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'btnAbbruch
|
||||||
|
'
|
||||||
|
Me.btnAbbruch.Location = New System.Drawing.Point(254, 84)
|
||||||
|
Me.btnAbbruch.Name = "btnAbbruch"
|
||||||
|
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.btnAbbruch.TabIndex = 2
|
||||||
|
Me.btnAbbruch.Text = "&Abbrechen"
|
||||||
|
Me.btnAbbruch.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'txtmsg
|
||||||
|
'
|
||||||
|
Me.txtmsg.BackColor = System.Drawing.Color.White
|
||||||
|
Me.txtmsg.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||||
|
Me.txtmsg.Location = New System.Drawing.Point(67, 20)
|
||||||
|
Me.txtmsg.Multiline = True
|
||||||
|
Me.txtmsg.Name = "txtmsg"
|
||||||
|
Me.txtmsg.ReadOnly = True
|
||||||
|
Me.txtmsg.Size = New System.Drawing.Size(258, 44)
|
||||||
|
Me.txtmsg.TabIndex = 3
|
||||||
|
Me.txtmsg.TabStop = False
|
||||||
|
'
|
||||||
|
'btnOK
|
||||||
|
'
|
||||||
|
Me.btnOK.Location = New System.Drawing.Point(133, 84)
|
||||||
|
Me.btnOK.Name = "btnOK"
|
||||||
|
Me.btnOK.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.btnOK.TabIndex = 5
|
||||||
|
Me.btnOK.Text = "&OK"
|
||||||
|
Me.btnOK.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Panel1
|
||||||
|
'
|
||||||
|
Me.Panel1.BackColor = System.Drawing.Color.White
|
||||||
|
Me.Panel1.Controls.Add(Me.imgQuestion)
|
||||||
|
Me.Panel1.Controls.Add(Me.imgInformation)
|
||||||
|
Me.Panel1.Controls.Add(Me.imgExclamation)
|
||||||
|
Me.Panel1.Controls.Add(Me.txtmsg)
|
||||||
|
Me.Panel1.Controls.Add(Me.imgCritical)
|
||||||
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.Panel1.Name = "Panel1"
|
||||||
|
Me.Panel1.Size = New System.Drawing.Size(337, 78)
|
||||||
|
Me.Panel1.TabIndex = 6
|
||||||
|
'
|
||||||
|
'imgQuestion
|
||||||
|
'
|
||||||
|
Me.imgQuestion.Image = CType(resources.GetObject("imgQuestion.Image"), System.Drawing.Image)
|
||||||
|
Me.imgQuestion.InitialImage = CType(resources.GetObject("imgQuestion.InitialImage"), System.Drawing.Image)
|
||||||
|
Me.imgQuestion.Location = New System.Drawing.Point(12, 20)
|
||||||
|
Me.imgQuestion.Name = "imgQuestion"
|
||||||
|
Me.imgQuestion.Size = New System.Drawing.Size(39, 36)
|
||||||
|
Me.imgQuestion.TabIndex = 7
|
||||||
|
Me.imgQuestion.TabStop = False
|
||||||
|
'
|
||||||
|
'imgInformation
|
||||||
|
'
|
||||||
|
Me.imgInformation.Image = CType(resources.GetObject("imgInformation.Image"), System.Drawing.Image)
|
||||||
|
Me.imgInformation.InitialImage = CType(resources.GetObject("imgInformation.InitialImage"), System.Drawing.Image)
|
||||||
|
Me.imgInformation.Location = New System.Drawing.Point(12, 20)
|
||||||
|
Me.imgInformation.Name = "imgInformation"
|
||||||
|
Me.imgInformation.Size = New System.Drawing.Size(39, 36)
|
||||||
|
Me.imgInformation.TabIndex = 6
|
||||||
|
Me.imgInformation.TabStop = False
|
||||||
|
'
|
||||||
|
'imgExclamation
|
||||||
|
'
|
||||||
|
Me.imgExclamation.Image = CType(resources.GetObject("imgExclamation.Image"), System.Drawing.Image)
|
||||||
|
Me.imgExclamation.InitialImage = CType(resources.GetObject("imgExclamation.InitialImage"), System.Drawing.Image)
|
||||||
|
Me.imgExclamation.Location = New System.Drawing.Point(12, 20)
|
||||||
|
Me.imgExclamation.Name = "imgExclamation"
|
||||||
|
Me.imgExclamation.Size = New System.Drawing.Size(39, 36)
|
||||||
|
Me.imgExclamation.TabIndex = 5
|
||||||
|
Me.imgExclamation.TabStop = False
|
||||||
|
'
|
||||||
|
'imgCritical
|
||||||
|
'
|
||||||
|
Me.imgCritical.Image = CType(resources.GetObject("imgCritical.Image"), System.Drawing.Image)
|
||||||
|
Me.imgCritical.InitialImage = CType(resources.GetObject("imgCritical.InitialImage"), System.Drawing.Image)
|
||||||
|
Me.imgCritical.Location = New System.Drawing.Point(12, 20)
|
||||||
|
Me.imgCritical.Name = "imgCritical"
|
||||||
|
Me.imgCritical.Size = New System.Drawing.Size(39, 36)
|
||||||
|
Me.imgCritical.TabIndex = 4
|
||||||
|
Me.imgCritical.TabStop = False
|
||||||
|
'
|
||||||
|
'frmMsgBox
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(337, 116)
|
||||||
|
Me.Controls.Add(Me.Panel1)
|
||||||
|
Me.Controls.Add(Me.btnOK)
|
||||||
|
Me.Controls.Add(Me.btnAbbruch)
|
||||||
|
Me.Controls.Add(Me.btnno)
|
||||||
|
Me.Controls.Add(Me.btnYes)
|
||||||
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.MaximizeBox = False
|
||||||
|
Me.MinimizeBox = False
|
||||||
|
Me.Name = "frmMsgBox"
|
||||||
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||||
|
Me.Text = "Assessment-Management"
|
||||||
|
Me.Panel1.ResumeLayout(False)
|
||||||
|
Me.Panel1.PerformLayout()
|
||||||
|
CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents btnYes As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents btnno As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents txtmsg As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents imgCritical As System.Windows.Forms.PictureBox
|
||||||
|
Friend WithEvents btnOK As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||||
|
Friend WithEvents imgExclamation As System.Windows.Forms.PictureBox
|
||||||
|
Friend WithEvents imgQuestion As System.Windows.Forms.PictureBox
|
||||||
|
Friend WithEvents imgInformation As System.Windows.Forms.PictureBox
|
||||||
|
End Class
|
||||||
763
SW/20211125/AssessmentMgmt/Diverse Formulare/frmMsgBox.resx
Normal file
763
SW/20211125/AssessmentMgmt/Diverse Formulare/frmMsgBox.resx
Normal file
@@ -0,0 +1,763 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="imgQuestion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
|
||||||
|
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
|
||||||
|
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAkACQDASIAAhEBAxEB/8QA
|
||||||
|
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
|
||||||
|
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
|
||||||
|
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
|
||||||
|
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
|
||||||
|
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
|
||||||
|
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
|
||||||
|
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
|
||||||
|
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K47WvGbWRw0y23cRRqJJSPcn5
|
||||||
|
V/I/WmeN9dNi74IzCAkQPeRhkn8FKj/gRrznRNX0611pr3W4GvIgjN5ZXdvk7Zzx69a9DCYNVYOrPZdF
|
||||||
|
uznrVuVqK3Ori+JLLL81zehc9ZUhkA/BVQ/rXb6H4nttXjj+eMl+EkjJKOf7vPKt/sn8M1zOmXHhnx5p
|
||||||
|
F7H/AGRFYyQnaHCqGXIyGDL6dxXlfhrXv7L1qIG4Itp2EcxHQDPDj3U4YfTHernhadSMvZpxlHo9SVVl
|
||||||
|
Frmd0z6Yoqppd017psE8gAkZcSAdnBw36g0V5h1HlnxTSSF5Zv4FuQ7H0DxIq/rE1eSSXj3EoQMUQnBx
|
||||||
|
2HrX0x4s8PRa7p0kbRGTdGY5EBwzLnPy/wC0DyPxHevBLjwjqOgan57W/wBss4ZA3mqpK4BztcdUPsf1
|
||||||
|
r2cvxUY0/ZvfocWIpNy5kbmr6ta2GnR6T4bnUW0kRE8yAhjngjnue5rlrfS2uLmG3hXMsrrGg9STgV0m
|
||||||
|
taofEU1tFp+mSiSMEbUHmOxOOOB0GP1rpfBXgu5e6F1dgCQAj5TkQg8HJHBfHAA+7nJ5wK2UoYehzS+J
|
||||||
|
9L3bYcrnOy2PTdA50hJB92aWWZf915GYfoRRWjGixRrGihUUBVA7AUV4B2jqqXWl2V64knt1aQDAkGVc
|
||||||
|
f8CGDRRQBX/sDTjxJHNMv92e5klX8mYitFI0iQJGioijAVRgCiigB1FFFAH/2Q==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="imgQuestion.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
|
||||||
|
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
|
||||||
|
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACQDASIAAhEBAxEB/8QA
|
||||||
|
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
|
||||||
|
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
|
||||||
|
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
|
||||||
|
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
|
||||||
|
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
|
||||||
|
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
|
||||||
|
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
|
||||||
|
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K4/VvGTWzEeetv6RRqJJPxJ+V
|
||||||
|
fyP1qPxxrRs/Nwf9SFjjH/TRhlj+C4H/AAI1i+GNM0HxLoF1BLM66xku8jH5k54Kjuvr/wDqrGc3flju
|
||||||
|
ejhcLTdP29a/Le2n5+hNF8QGWUbru8UZ6yxxSKPwVUP612OieJrbVlRS8W5jhXjOUY9cc8q2Ox/DNed6
|
||||||
|
N4MeG+nm1sxeRbk7U3/I4HV2PZcev41zFj4i06y8btDpU0v9l3Eoi3sMYyeHHfCtyueeOepqI1Jxtz9T
|
||||||
|
pq4PD1eZYa94q/del+59EUVU0u6a902CeQASMuJAOzg4b9QaK6TxTy74pA24nmYnC3Svgdw8KqP1iasH
|
||||||
|
wFoVzdzp4hu7gwW8W5oVWTaCB95nPZRz16/Tr6z4s8PRa7p0kbRmQlCjoPvMucjb/tA8j8R3rwjUvDni
|
||||||
|
jRrO60+1a4udKkkBkFvkgkdN6feU+oPoOuAa5akbT57XPcwVb2mG+rKSi79ez3t5nfG/03x5bajo1lfS
|
||||||
|
hc4LAbS4HRwO6Z7H2zjivMH8M6hZeLY9Cmj/ANLE6R/IcjBwQw9sHNQ6Jb6zFqcU2lQ3YvIm+VoYyWU/
|
||||||
|
l/OvTvBXgq8l1J9T1GQyXkhbe+/d5W7hiWHBkIJAA+7kk84FZXdZrT5noctPLYTammmtI9b/AOR6doHO
|
||||||
|
kJJ/DNLLMv8AuvIzD9CKK0Y0WKNY0UKigKoHYCiu8+THVUutLsr1xJPbq0gGBIMq4/4EMGiigCv/AGBp
|
||||||
|
x4kjnmX+7PcySr+TMRWikaRIEjRURRgKowBRRQA6iiigD//Z
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="imgInformation.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
|
||||||
|
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
|
||||||
|
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAlACUDASIAAhEBAxEB/8QA
|
||||||
|
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
|
||||||
|
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
|
||||||
|
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
|
||||||
|
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
|
||||||
|
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
|
||||||
|
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
|
||||||
|
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
|
||||||
|
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3yaaOCF5ZXVI0GWZjgAVzeo+K/s3MSRxJ2afJZvog/qQfaqfj
|
||||||
|
PXBZExjBEO0hT/FIckH/AICBn6sD2rzC41GSeRpJHLM3JJNd+DwTr+9J2Rz1q/s9Fueip4/2y7WuLZx/
|
||||||
|
tWzRAfiHc/pXVaXrdtqaqFwkrLuC7gwYeqsOD/MdwK8l8aa5azWumouivpZVDhpUCeYMDhf7wHXJ9ayf
|
||||||
|
C3iQ2urQ2wuAIppAFJPEcnRX/Pg+oJFa1MB+69pD7n/wCY1/e5ZH0HRVbT7sX2nwXO3aZEBZf7p7j8Dk
|
||||||
|
UV5Z1HlnxN3xXMjkHb9qJJ9AYYgP1R68suL6SVtisVTPbqa+hfGvh1NZ06U7T8yBZCoyVwSVcDvtJOR3
|
||||||
|
DGvANW0S90e58u6iIU8xyrykg9Vboa97Kq8HD2Tepw4mm+bmOt+JxdodJLf897gD6bY64WyhlmvYIoQT
|
||||||
|
K7qqAdyTgV1/jrxPp3ikaWmm21zF9mMhl85QNzOF6YJz92tTwL4Ku21GO8uomimA3QxsMNHn/low7Y/h
|
||||||
|
B5JwegrSlNYbBWqaS10CUfaVbrY9g0DnSgw+6887r/umVyv6EUVft4I7W2igiXbHGoRR6ADFFfOncSVl
|
||||||
|
Xvh6wvt5ZGjMnL+WRtc+rKcqT9RRRQBStvBmmWsvmRs6t6xRQwn/AL6jRT+tbltaW9nF5VvEsaZyQO59
|
||||||
|
Se5ooovcCaiiigD/2Q==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="imgInformation.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
|
||||||
|
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
|
||||||
|
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACQDASIAAhEBAxEB/8QA
|
||||||
|
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
|
||||||
|
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
|
||||||
|
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
|
||||||
|
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
|
||||||
|
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
|
||||||
|
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
|
||||||
|
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
|
||||||
|
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K4/VvGTWzEeetv6RRqJJPxJ+V
|
||||||
|
fyP1qPxxrRs/Nwf9SFjjH/TRhlj+C4H/AAI1i+GNM0HxLoF1BLM66xku8jH5k54Kjuvr/wDqrGc3flju
|
||||||
|
ejhcLTdP29a/Le2n5+hNF8QGWUbru8UZ6yxxSKPwVUP612OieJrbVlRS8W5jhXjOUY9cc8q2Ox/DNed6
|
||||||
|
N4MeG+nm1sxeRbk7U3/I4HV2PZcev41zFj4i06y8btDpU0v9l3Eoi3sMYyeHHfCtyueeOepqI1Jxtz9T
|
||||||
|
pq4PD1eZYa94q/del+59EUVU0u6a902CeQASMuJAOzg4b9QaK6TxTy74pA24nmYnC3Svgdw8KqP1iasH
|
||||||
|
wFoVzdzp4hu7gwW8W5oVWTaCB95nPZRz16/Tr6z4s8PRa7p0kbRmQlCjoPvMucjb/tA8j8R3rwjUvDni
|
||||||
|
jRrO60+1a4udKkkBkFvkgkdN6feU+oPoOuAa5akbT57XPcwVb2mG+rKSi79ez3t5nfG/03x5bajo1lfS
|
||||||
|
hc4LAbS4HRwO6Z7H2zjivMH8M6hZeLY9Cmj/ANLE6R/IcjBwQw9sHNQ6Jb6zFqcU2lQ3YvIm+VoYyWU/
|
||||||
|
l/OvTvBXgq8l1J9T1GQyXkhbe+/d5W7hiWHBkIJAA+7kk84FZXdZrT5noctPLYTammmtI9b/AOR6doHO
|
||||||
|
kJJ/DNLLMv8AuvIzD9CKK0Y0WKNY0UKigKoHYCiu8+THVUutLsr1xJPbq0gGBIMq4/4EMGiigCv/AGBp
|
||||||
|
x4kjnmX+7PcySr+TMRWikaRIEjRURRgKowBRRQA6iiigD//Z
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="imgExclamation.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
|
||||||
|
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
|
||||||
|
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACYDASIAAhEBAxEB/8QA
|
||||||
|
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
|
||||||
|
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
|
||||||
|
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
|
||||||
|
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
|
||||||
|
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
|
||||||
|
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
|
||||||
|
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
|
||||||
|
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3+iiqep3n2KzeQEeYeEz6+v4daNgIm1m2XVBY5+bO0tngN6Vo
|
||||||
|
15ZLrSR62NFa0JupHD+eZMHcV3Yxj0469STXouk3v22xR2OZAAG9/f8Az3BHauLCYz6w5Jq3VecXtL56
|
||||||
|
6Fyhyq5eooortICuQ1LVEu78kHdFFwAO/wD+s8/gvvW5r800OlSeSrEudjEKTtB6njn2/GuMSNtu0o2e
|
||||||
|
pYrJyf8AvivKzj6xLDulh43ctH5Lr950YdQ57zeiOFunv5fjL9o+yyCyRFYS7Ttz5eOvSvRdF1gWWo7J
|
||||||
|
DiGU/ke/+P4H1rnH8MSN4oOs/wBoybDEI/spEuwYGMj5O/0rQlsSQcBt3UMqycHsfuV5FOhjaNajVjC/
|
||||||
|
LFRfp1R1XoOEot7vQ9OBBGRyKKyPDtzNPpoSZTuiOwMVIBGPfB4/wor6w8016KKKACiiigAooooA/9k=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="imgExclamation.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
|
||||||
|
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
|
||||||
|
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACQDASIAAhEBAxEB/8QA
|
||||||
|
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
|
||||||
|
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
|
||||||
|
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
|
||||||
|
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
|
||||||
|
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
|
||||||
|
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
|
||||||
|
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
|
||||||
|
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K4/VvGTWzEeetv6RRqJJPxJ+V
|
||||||
|
fyP1qPxxrRs/Nwf9SFjjH/TRhlj+C4H/AAI1i+GNM0HxLoF1BLM66xku8jH5k54Kjuvr/wDqrGc3flju
|
||||||
|
ejhcLTdP29a/Le2n5+hNF8QGWUbru8UZ6yxxSKPwVUP612OieJrbVlRS8W5jhXjOUY9cc8q2Ox/DNed6
|
||||||
|
N4MeG+nm1sxeRbk7U3/I4HV2PZcev41zFj4i06y8btDpU0v9l3Eoi3sMYyeHHfCtyueeOepqI1Jxtz9T
|
||||||
|
pq4PD1eZYa94q/del+59EUVU0u6a902CeQASMuJAOzg4b9QaK6TxTy74pA24nmYnC3Svgdw8KqP1iasH
|
||||||
|
wFoVzdzp4hu7gwW8W5oVWTaCB95nPZRz16/Tr6z4s8PRa7p0kbRmQlCjoPvMucjb/tA8j8R3rwjUvDni
|
||||||
|
jRrO60+1a4udKkkBkFvkgkdN6feU+oPoOuAa5akbT57XPcwVb2mG+rKSi79ez3t5nfG/03x5bajo1lfS
|
||||||
|
hc4LAbS4HRwO6Z7H2zjivMH8M6hZeLY9Cmj/ANLE6R/IcjBwQw9sHNQ6Jb6zFqcU2lQ3YvIm+VoYyWU/
|
||||||
|
l/OvTvBXgq8l1J9T1GQyXkhbe+/d5W7hiWHBkIJAA+7kk84FZXdZrT5noctPLYTammmtI9b/AOR6doHO
|
||||||
|
kJJ/DNLLMv8AuvIzD9CKK0Y0WKNY0UKigKoHYCiu8+THVUutLsr1xJPbq0gGBIMq4/4EMGiigCv/AGBp
|
||||||
|
x4kjnmX+7PcySr+TMRWikaRIEjRURRgKowBRRQA6iiigD//Z
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="imgCritical.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
|
||||||
|
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
|
||||||
|
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACQDASIAAhEBAxEB/8QA
|
||||||
|
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
|
||||||
|
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
|
||||||
|
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
|
||||||
|
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
|
||||||
|
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
|
||||||
|
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
|
||||||
|
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
|
||||||
|
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K4/VvGTWzEeetv6RRqJJPxJ+V
|
||||||
|
fyP1qPxxrRs/Nwf9SFjjH/TRhlj+C4H/AAI1i+GNM0HxLoF1BLM66xku8jH5k54Kjuvr/wDqrGc3flju
|
||||||
|
ejhcLTdP29a/Le2n5+hNF8QGWUbru8UZ6yxxSKPwVUP612OieJrbVlRS8W5jhXjOUY9cc8q2Ox/DNed6
|
||||||
|
N4MeG+nm1sxeRbk7U3/I4HV2PZcev41zFj4i06y8btDpU0v9l3Eoi3sMYyeHHfCtyueeOepqI1Jxtz9T
|
||||||
|
pq4PD1eZYa94q/del+59EUVU0u6a902CeQASMuJAOzg4b9QaK6TxTy74pA24nmYnC3Svgdw8KqP1iasH
|
||||||
|
wFoVzdzp4hu7gwW8W5oVWTaCB95nPZRz16/Tr6z4s8PRa7p0kbRmQlCjoPvMucjb/tA8j8R3rwjUvDni
|
||||||
|
jRrO60+1a4udKkkBkFvkgkdN6feU+oPoOuAa5akbT57XPcwVb2mG+rKSi79ez3t5nfG/03x5bajo1lfS
|
||||||
|
hc4LAbS4HRwO6Z7H2zjivMH8M6hZeLY9Cmj/ANLE6R/IcjBwQw9sHNQ6Jb6zFqcU2lQ3YvIm+VoYyWU/
|
||||||
|
l/OvTvBXgq8l1J9T1GQyXkhbe+/d5W7hiWHBkIJAA+7kk84FZXdZrT5noctPLYTammmtI9b/AOR6doHO
|
||||||
|
kJJ/DNLLMv8AuvIzD9CKK0Y0WKNY0UKigKoHYCiu8+THVUutLsr1xJPbq0gGBIMq4/4EMGiigCv/AGBp
|
||||||
|
x4kjnmX+7PcySr+TMRWikaRIEjRURRgKowBRRQA6iiigD//Z
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="imgCritical.InitialImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg
|
||||||
|
JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy
|
||||||
|
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAjACQDASIAAhEBAxEB/8QA
|
||||||
|
HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
|
||||||
|
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW
|
||||||
|
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG
|
||||||
|
x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF
|
||||||
|
BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
|
||||||
|
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
|
||||||
|
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq
|
||||||
|
8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD3m6uorO3aaZsIOOBkk9gB3J9K4/VvGTWzEeetv6RRqJJPxJ+V
|
||||||
|
fyP1qPxxrRs/Nwf9SFjjH/TRhlj+C4H/AAI1i+GNM0HxLoF1BLM66xku8jH5k54Kjuvr/wDqrGc3flju
|
||||||
|
ejhcLTdP29a/Le2n5+hNF8QGWUbru8UZ6yxxSKPwVUP612OieJrbVlRS8W5jhXjOUY9cc8q2Ox/DNed6
|
||||||
|
N4MeG+nm1sxeRbk7U3/I4HV2PZcev41zFj4i06y8btDpU0v9l3Eoi3sMYyeHHfCtyueeOepqI1Jxtz9T
|
||||||
|
pq4PD1eZYa94q/del+59EUVU0u6a902CeQASMuJAOzg4b9QaK6TxTy74pA24nmYnC3Svgdw8KqP1iasH
|
||||||
|
wFoVzdzp4hu7gwW8W5oVWTaCB95nPZRz16/Tr6z4s8PRa7p0kbRmQlCjoPvMucjb/tA8j8R3rwjUvDni
|
||||||
|
jRrO60+1a4udKkkBkFvkgkdN6feU+oPoOuAa5akbT57XPcwVb2mG+rKSi79ez3t5nfG/03x5bajo1lfS
|
||||||
|
hc4LAbS4HRwO6Z7H2zjivMH8M6hZeLY9Cmj/ANLE6R/IcjBwQw9sHNQ6Jb6zFqcU2lQ3YvIm+VoYyWU/
|
||||||
|
l/OvTvBXgq8l1J9T1GQyXkhbe+/d5W7hiWHBkIJAA+7kk84FZXdZrT5noctPLYTammmtI9b/AOR6doHO
|
||||||
|
kJJ/DNLLMv8AuvIzD9CKK0Y0WKNY0UKigKoHYCiu8+THVUutLsr1xJPbq0gGBIMq4/4EMGiigCv/AGBp
|
||||||
|
x4kjnmX+7PcySr+TMRWikaRIEjRURRgKowBRRQA6iiigD//Z
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAABAAgAMDAAAAEACACoDgAAhgAAACAgAAABAAgAqAgAAC4PAAAYGAAAAQAIAMgGAADWFwAAEBAAAAEA
|
||||||
|
CABoBQAAnh4AADAwAAABACAAqCUAAAYkAAAgIAAAAQAgAKgQAACuSQAAGBgAAAEAIACICQAAVloAABAQ
|
||||||
|
AAABACAAaAQAAN5jAAAoAAAAMAAAAGAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC
|
||||||
|
CABJJBsASisjAGc0KAB3PC0AZzswAGdDOwB8QDEAL1JeAFxSUQBoS0QAbFNNAHZTSwBrWVYAclpWAHxf
|
||||||
|
WQB0Yl0AXGRpAFFteABfcHUAW3R9AGNmaQB7bGsAYmtxAGt3fAB2eHgAhkMyAIhEMwCGSz0Ajk4+AJRJ
|
||||||
|
NwCWSjgAnE06AKVSPQCGTkAAhVFDAIpQQQCFU0gAmFtMAIRcUwCsVkAAtFpDALxdRgCzXUkAimBVAIFh
|
||||||
|
WwCIY1oAl2BSAJtiVACUaV0Am2lcALJgTAC9YUkApGNTAKNrXQCrbV4AtmdTALFqVwC8aVQAsWtZALht
|
||||||
|
WgCHaWAAi21lAIFsaQCIbmgAlWthAIhwbQCZcWcAkXNrAJ5zaQCCdnQAinZ0AIR+fACKfXkAknhyAKhu
|
||||||
|
YACpdWgAv3lnAMViSgDIZEoAxGpTAMpqUgDBbloA0m1VANV1XgDMe2YAxnxqAMh9awDTfGYA3X9oAIaA
|
||||||
|
fwCNgH0AlIF7AJmDewClgHUAooJ5AKyIfAC0gXMAu4h4AMuBbgDFg3AAy4p2AM2LeQDUinMA3I98AMKS
|
||||||
|
fwDMk38A0ZJ8AOiZfwDzmX0A/5p8AEhzggBJf5EAYXmDAHB9gwBOiZwAV4WVAHyGigBtipUAUI2hAFeV
|
||||||
|
qwBanbMAZpSkAGmXpwBnm60AY56yAF2iuAB8oa8AZKS6AHWktAB4pLQAcaa4AGGqwwBorsYAZK/JAGmw
|
||||||
|
xwBmsssAaLTOAHWzyABqt9AAarnTAG6+2gBzv9gAb8LdAHLB3AB5x+AAdcnlAHvK5AB5zeoAfdLsAH3T
|
||||||
|
8ACMh4YAkYWCAJeIggCWkI4AhZWbAJSUlACampoApImBAKyTjAC/kYUAvJOJALuYjwC+mpAAnqiqAKur
|
||||||
|
qwC4raoAurq6AMaPgQDGlYkAzZmMANOajADHm5AAyp+UAMChmQDappkA7aOHAOejiQD9oYUA9KGJAOOi
|
||||||
|
kgDmrJwA66yZAPSulgD4spgAxq6oAMe0rwDOsaoA3baqAN65rwDVvrcA272yANG/ugDks6UA6relAO26
|
||||||
|
pgDotKgA672yAMbAvwDOwb0A0cO9AObBtwDjwbkAicnYAJjK0gClydAAic7iAIPQ5gCI0eMAgtPrAIjX
|
||||||
|
7ACO2u0Amd3sAIba9ACR3vEAkN/4AI3i9gCH4PgAi+L6AJrl9QCW5/kAlev8AJrs+wCm7PkAovP9AKjx
|
||||||
|
/ACo+v8AuPj9AMbGxgDOw8AA3cjDANDQ0ADZ2dkA7M7GAOnZ1gDw2NIA9OLdANDg4wDI6/AAwvP6AMv1
|
||||||
|
+wDF/f8Ayfz+ANP8/gDc/P4A7ejnAPXq5wDw6ugA5P7/AO3+/wDz8/MA+vTzAPT//wD9/v4A////AAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACbm5ubAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAmwEBAQGbm5sAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJsB
|
||||||
|
AQEBAQEBAZsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFtfZ6AAAJubAQEBAQGbAAAAAQAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAXWJob7S2ylEAAQEBAQEBAQGbm5sAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAACZX2dus7e+yeXo/5sBAQEBAQEBAQEBAZubAAAAAAAAAAAAAAAAAAAAAAAAAABeY22zt77B5eXl
|
||||||
|
5eX7AQEBAQEAAAAAAAEBAQGbmwAAAAAAAAAAAAAAAAAAmmFrbLjDv7/l5eXl6OXl5ej/AQEBNwAAAAAA
|
||||||
|
AAABAQEBm5sAAAAAAAAAAACYn2qxucTA5uXl5eXl6OXl5eXl5ekBAQGbUlwAAAAAAAAAAQEBAZsAAAAA
|
||||||
|
AAAARmWxxMvm5eXo5eXo5eXl5eXl5eXlp6IBAQH/rDMAAAAAAAAAAAEBAZsAAAAAAABEWF6o5eXl5eXl
|
||||||
|
5eXl5eXl5eW7ok47NQEBAZv//FYAAAAAAAAAAAEBAZsAAAAAAFxUm6bl5eXl5eXl5eXl5bqtZVBQUFBQ
|
||||||
|
UAEBAZv//8I3AAAAAAAAAAABAZsAAAAAADlinuXl5eXl5eXluqpYUVBQUFBQUFBQUAEBAZv///dUSgAA
|
||||||
|
AAAAAAABAZsAAAAAP1OdpuXlx7qqqlhQUFBQUFBQT1BQUFBQUAEBAZv+//+wOgAAAAAAAAABAZsAAAAA
|
||||||
|
LGCbr6lXUFBQT1BQTEhLNiIpKSsrUFBQUAEBAZub////WUsAAAAAAAEBAZsAAAAANTtQUU9QUVBQUDx7
|
||||||
|
enqFj4MmHBwcHBwgISIBAQGb/v//yjwAAAAAAAEBAZsAAAAAM09QUE9QT1BPLHyMiofQ4t+ULhwcHBwc
|
||||||
|
HBwBAQGbm////2RHAAAAAQEBAQAAAAAAADBPT09QT1A1D9fdltLy/frZhBwcHBwcHBwcAQEBm5ub/+o9
|
||||||
|
AAABAQEBAAAAAAAAAAA0T09PUE8iDvX639bz//PahxwcHBwcHBwcHAEBAQGbm5ubmwEBAQEAAAAAAAAA
|
||||||
|
AABKNU9QT08bB+/935Tc4NmReRwcHBwcHBwcHCEBAQEBAQEBAQEBAQAAAAAAAAAAAAAAP09PT1AIBHPX
|
||||||
|
lIqFioV6DhwcICAiIipPT1BPUAEBAQEBAQEAAAAAAAAAAAAAAAAAADFPT08hBARyhXp4eHVCUE9QUE9P
|
||||||
|
UFBPUE9QT1Cr+///7DsAAAAAAAAAAAAAAAAAAAA0T1BPIAQEChgWEDVgoCIrT1BQUE9QT09PUFBQ6/7/
|
||||||
|
/7VBAAAAAAAAAAAAAAAAAABbLE9PT09PT09PT1BH8c4oHCEqUE9QUFBPUE9QVvv//+1SAAAAAAAAAAAA
|
||||||
|
AAAAAAAAP1BPT09PT09PT08M4v/wnBwcHyI1T09QT1BPUL7+//9pRAAAAAAAAAAAAAAAAAAAADFPT09P
|
||||||
|
T09PT1AE1fH/+cxAHBwcISpQUFBPUFb7/v/sUgAAAAAAAAAAAAAAAAAAAAAnUE9PT09PT08Edtbx/v3x
|
||||||
|
zXYdHBwcIClPUE/L/v//xTgAAAAAAAAAAAAAAAAAAAAANE9PT09PT08IDNvS8////eTRdh0cHBwcIipS
|
||||||
|
9v///FUAAAAAAAAAAAAAAAAAAAAARU9PT09PT08hBIKX0vT////55MxHHBwcHBwfrvz//8UyAAAAAAAA
|
||||||
|
m5ubAAAAAAAAAC9PT5ubm08rBQaEk9Li+f////nkz0ccHBwcHuf+//xVAAAAAAABAQGbAAAAAAAAAAAx
|
||||||
|
AQEBm09PKQQGfZGT1/T+///+9d+AHRwcHGL8///FNwAAAAABAQGbAAAAAAAAAAAAAQEBm09PTyAEBn6O
|
||||||
|
kdLk+v////Xfix0cHBzr/v/8VVwAAAABAQGbAAAAAAAAAAAAAQEBm09PT08iHAYYfo2R1PH9//7y2oIc
|
||||||
|
HBxM+///xj0AAAABAQGbAAAAAAAAAAAAAQEBm08rQ0I3KiIFBBh/jJHg9f3035UXGxwcvP7//1oAAAAB
|
||||||
|
AQGbAAAAAAAAAAAAAQEBm08+z4WBf3cXBwIDE4eN0/Ly3pWBHBwcJ/b/+0kAAAABAQGbAAAAAJubAAAA
|
||||||
|
AQEBmykL9NCPlNOSf3AJcYuJitLf25OJJhwcHKT+pgAAAAABAQGbAAAAAQGbmwAAAQEBmwgE7uTW2OTj
|
||||||
|
hn+S3PTVjYqTlZCHDRwcHBz4ngAAAAABAQGbAAABAQEBmwAAAQEBmw4Epfne2OTij9bi+f/614qMjo1+
|
||||||
|
HBscHByjGgAAAAABAQGbAAABAQEBm5sAAQEBmwALDPDh2t/e1uH0///94I2FioUZHBsbGxscEQAAAAAB
|
||||||
|
AQGbAAEBAQEBAZubAQEBmwAABxnWl5bW2+Pz+fnkl4d6gXgbGxsbGxscIwAAAAABAQGbAQEBmwEBAQGb
|
||||||
|
AQEBmwAAWwUShpGTl9ve39mVjXp5dAwjJSUkDQ0tRgAAAAABAQEBAQEBAAABAQGbAQEBmwAAAJ8zEXV/
|
||||||
|
iY2Ojo2HeXFwGgAAAAAAAAAAAAAAAAABAQEBAQEAAAAAAQEBAQEBmwAAAAAAAAAAAHYZchUUGgAAAAAA
|
||||||
|
AAAAAAAAAAAAAAABAQEBAQAAAAAAAAEBAQEBmwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB
|
||||||
|
AQEBmwAAAAAAAAEBAQEBmwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAAAAAAAAAAAB
|
||||||
|
AQEBmwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEAAAAAAAAAAAAAAQEBAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP////////z9//////8P/P3//////AP8/f/////wA/z9////4YB3
|
||||||
|
/P3///4BAB/8/f//4AAAD/z9//8AAD4H/P3/4AAAfwP8/f4AAAA/g/z9+AAAAD/D/P3wAAAAP8P8/eAA
|
||||||
|
AAAf4/z94AAAAA/j/P3AAAAAD+P8/cAAAAAHw/z9wAAAAAfD/P3AAAAAA4f8/eAAAAADD/z98AAAAAAf
|
||||||
|
/P3wAAAAAD/8/fgAAAAA//z9/AAAAAD//P3+AAAAAH/8/f4AAAAAf/z9/wAAAAA//P3/gAAAAD/8/f/A
|
||||||
|
AAAAH/z9/+AAAAAf/P3/4AAAAA/8/cfwAAAAD/z9h/gAAAAH/P2H/AAAAAP8/Yf8AAAAA/z9h/wAAAAD
|
||||||
|
/P2H/AAAAAP8/YecAAAAB/z9hwwAAAAH/P2GDAAAAAf8/YYEIAAAB/z9hAAwAAAH/P2AADAAAAf8/YDA
|
||||||
|
OAAP//z9geA/4H///P2D8D/////8/YPwP/////z9h/g//////P2P/H/////8/SgAAAAgAAAAQAAAAAEA
|
||||||
|
CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIIABARFgAkExMAHB0jACEhJQApIiQAMCstADIx
|
||||||
|
NAA5Oj8ARSMeAEwmHwBCKCUATzQvAGEwJgBxOCoAez0uAGc8MQBrRTsAdUAzAHFIPwB7Sz4APT1BAEJB
|
||||||
|
QwBMSUwAUEJAAE1OUQBRTVAAU1BSAFRVWQBmTUgAdEpBAH5OQgBoUEoAdVBHAGJTUQB/XVYAcVxYAHRi
|
||||||
|
XQBfYmUAVnR/AGRgYQBuYWAAbGxuAHZmZAB9bWwAZm90AHBvcABzcXEAhkMyAIlEMwCKSDcAhkk6AIpL
|
||||||
|
PACUSjcAlEs5AJtNOQCdUD0ApVI9AKhTPgCGTkIAh1pQAKZWQgCuV0EAp19OALJZQgC9XkYAv19IAIVj
|
||||||
|
XACQYlYAnWVXAJRkWQCYZVoAnWlcAK5gTgCyYU0AuGFLAKdiUQCrZlMAtmRRALZrWACMbmYAgWtoAJFr
|
||||||
|
YgCbbWIAgnBtAJpwZgCTd28Am3VrAJ14bgCNfnkAlXp1AJ99dACWfXgAqnRmAKJ0aACydWcAvH1uAKR7
|
||||||
|
cACrfHEAxGJKAMZoUADJblYAxnFcAMh2YgDGfWsAhYB/AJqGfwCtgHQAp4d/AK2GegCpiX4AtIN0ALKG
|
||||||
|
egC4hXkAu4l8AMSDcwDHjX8AXXaAAF94ggBJf5EAWYWVAGuGjgBzgYYAe4SKAGWMmgB6jZYAdJKeAHmS
|
||||||
|
nABTkqYAW5SkAF+YqgBbn7YAYZapAGebrABlnrIAXqS7AGumugBuqr4AYqrCAGWxywBqsskAarfRAG65
|
||||||
|
0QB1u9EAbsDbAH3B1wBwwdwAesbcAHbH4AB1yeQAfMvkAH/Q5gB+1PAAioGBAIWLjQCIiYkAloeCAJeJ
|
||||||
|
hgCdiIMAl42LAI+PkACNlpkAjpmcAJeVlQCmiYAAqoyAAKaRiQC0kYUAo52bAIKlsACMq7AArKemAK2o
|
||||||
|
pwCxtrUAuLSzALm5uQDDj4IAx5GDAMWWigDQk4QA2JqIAMiilgDEo5sA0qKUAOmqlwDFqqMAxrGsAM+0
|
||||||
|
rgDcsqYA27esANK9tQDbvbMA5bSiAOW3qwDhv7YAzcG9AOnDuQCJwtEAicnaAKnFyQCzwcMAodbfAIHN
|
||||||
|
4QCF0+oAi9XoAI3Y7gCV3O0AnNztAIje9gCQ2/EArtrhAI3g+ACV4PMAmuHzAJDi+ACa7fsAs+XuAKDn
|
||||||
|
9wCu5/UArer3AKHt+wCv7PkAtOv0AL3s9QC57fgApvP+AK/z/QC28fsAu/H6ALL4/QDGxcUAycXDAM3N
|
||||||
|
zQDcyMMA2tnZAO/WzwDx08sA69nUAPPb1QD24dwAw+XqANHl6ADC9PwAzf3+ANn2+gDz4+AA9OnmAPnx
|
||||||
|
7wDk+/0A6/3+APb08wD79fMA9f7+AP39/QD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoIHK0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcB
|
||||||
|
AhodBAAAAAAAAAAAAAAAAAAAAAAAAKVwc7hcMAgCAQEIrQAAAAAAAAAAAAAAAAAAAABrbrW5vsTpsBcB
|
||||||
|
BB0dHQEBMOgAAAAAAAAAAAAAp2+otr7A6Ojp5+sdAQ0AAAAAMAECMAAAAAAAAJ2muMHD6Ofn5+fo5+jo
|
||||||
|
mgEWdQAAAAAAAAEBrwAAAABfqL/o6Onn5+fp5+i6smEGAaT2XwAAAAAAAQGvAAAAVG2w5+fn5+i7urRp
|
||||||
|
ZGRlZAEBr/+4nQAAAAAAAa8AAABgqefou7eyaWdlZGVkZWRkAQGv/+xeAAAAAAABrwAASWNzaWVkZVBb
|
||||||
|
fJpIOTs/QUIDATDr/8KfAAAAAQGvAABYZWRlZGVDgIuNzcZVMjIyMw4BCK3/+F8AAAABAQAAAABHZGRk
|
||||||
|
Qz3c1db685AyMjIyMgsBFzDot1orAQQAAAAAAABNZGRBH/XkzuXVizIyMjIyMgsBAggICAEBAAAAAAAA
|
||||||
|
AABMZEEPe5CLiIVSOTo7QWRkZGQMGB0bIwAAAAAAAAAAAFFkQzcRJ3cuVmxBZGRkZGRkZWXF/vxjAAAA
|
||||||
|
AAAAAAAAAFNkZGRkZGROyMlROD9DZGRkZGb3/8VXAAAAAAAAAAAAAEpkZGRkZD6r+fKcPDY6QmRkZMH+
|
||||||
|
93QAAAAAAAAAAAAAAEBkZGRkOybV9f3xo0QyMztBaO7/71kAAAAAAAAAAAAAXWRkZGRBE5LS+v7105s8
|
||||||
|
MjM5s/7+cgAAAAAwMAAAAAAAUzcpamQ4IYnM4f3/+dmcPDIz6v/tWQAAAAEIAAAAAAAABwEpZEMQHo2V
|
||||||
|
2/n//d+qMzJx+/y0AAAAAQgAAAAAAAAYASlkT0s5FC6JlOD6+t2ANTW8/vBiAAABCAAAAAAAAB0BKUui
|
||||||
|
f34tFBkoj8/04pAkMkb7/p4AAAEIAAAAMOcAHQEpNK7MmM+PeILHj5jRkzAxMrewAAAAAQgAAAQCMAAd
|
||||||
|
ASkSoOXX5svL5fnQjpOMLDIxSZoAAAABCAAwAQEXrRoBKQAhytTX1Ob6+t6Mi30gMTExIgAAAAEILwEX
|
||||||
|
AQEcCAEpAAAqipaZ2OPal4SBJTQ1FSBFAAAAAQEBBAAABAUFASkAAABaen2Gh4N5dpsAAAAAAAAAAAAB
|
||||||
|
AQEAAAAAAQEBKQAAAAAAAAAAAAAAAAAAAAAAAAAAAAEBMAAAAAAJAQEpAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAQkAAAAAAAAJAaEAAAAAAAAAAAAAAAAAAAAAAAAAAP/////////D////A///AA//8AAD/wADw/AA
|
||||||
|
A/HgAAHxwAAA+cAAAPmAAABxgAAAc8AAAAfgAAAP8AAAH/AAAB/4AAAP/AAAD/4AAAf+AAAHnwAAA5+A
|
||||||
|
AAOfgAABn4AAAZyAAAOYgAADkAgAA4AMAAOGDgD/jw///48P//+fj///KAAAABgAAAAwAAAAAQAIAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAggAMRoYACUlKQBWPToAYzIpAGYzKABzPjEAez8wAF9A
|
||||||
|
OgBmRT4Af0AxAHxCNAB/SDoAP0FFAEBBRQBLSUsAWlpcAGpXUwB0W1cAcV1YAHZdWQBlZGYAcGxsAHR0
|
||||||
|
dgB6d3kAfXx9AIZDMgCIRDMAikU0AI5HNQCMSDcAh0k4AIFLPgCHSz0Akkg2AJZLOACZTDkAolE8AKdT
|
||||||
|
PgCoUz8AgU1AAI9ZTACUWEkAgl1VAIRdVACmVEAAsFhBALRaQwC2XEUAul1FAIBgWgCdZFUAmGZaAKxg
|
||||||
|
TgCyYk0AtGNPALhgSgC/YUoAr2hWAKNrXQCva1oAtWpXAIxoYACTamAAhHJuAJFzbACYd28AiXZwAJZ3
|
||||||
|
cACSenQAmnpyAKBzaQCndWgAoXhuALR+cADCYUgAxWJKAMdkSwDGaVEAx2tUAMZ8agCUgHwApIB1AKmF
|
||||||
|
egCthHoAqYt/AMeEcwDGjX8AXXaAAF94gQBYe4gAZX+KAF+AjABdipoAdIGHAH+AgwB2iI8AaYmVAGyQ
|
||||||
|
ngB6k50AVpasAFiYrgBkkqEAY5+xAGWdsABfp74AdKq+AHKvwgBntM0AabbQAG250QBru9UAbrzVAHC6
|
||||||
|
0gB4xNoAfsneAH7N5QB4zOgAhoKFAIqHiACUiYYAn4qFAIGUnAChj4sApJCKALOUjACmmpYApZyZAIWq
|
||||||
|
tgCko6QApaSlAK+rqQCwq6oArLy8ALCwsgC+vr4AyZeHAMCYigDKmIoAypiMAMKckgDHnZIAzKCQAMam
|
||||||
|
ngDWoJMA2aSXAMWuqADHtK8AzLGpANWxpADcs6kAxbSwANW8tADTv7kA4a+gAOK2qwDnvLEA1sG5AO3H
|
||||||
|
vQCDzN8Ams7aALPKzwChy9IAqNLaAK7R2ACAzeMAgc/oAITS6QCH2O8AkdDgAJbe7QCE2fEAiNnwAJLc
|
||||||
|
8QCO5PkAmOLxAJPn/ACp4/EAqOr3ALbn8QCx7/oApfD9ALD2/gC78PoAuPb9AMfHxwDKxMMAycbFAM3N
|
||||||
|
zQDfz8sA69/cAMXq8ADH8/oA0vX7ANb8/gDj4uEA9ObiAPLp5gD48O0A5fv+AOD9/wDq/P4A/Pf2APH9
|
||||||
|
/gD2/v8A+fj4AP38+wD5/v8A/f39AEsAUABpAHAAhwCQAKUAsADEAM8A4QDwAPAR/wDyMf8A9FH/APZx
|
||||||
|
/wD3kf8A+bH/APvR/wD///8AAAAAABsALwAtAFAAPwBwAFIAkABjALAAdgDPAIgA8ACZEf8ApjH/ALRR
|
||||||
|
/wDCcf8Az5H/ANyx/wDr0f8A////AAAAAAAIAC8ADgBQABUAcAAbAJAAIQCwACYAzwAsAPAAPhH/AFgx
|
||||||
|
/wBxUf8AjHH/AKaR/wC/sf8A2tH/AP///wAAAAAAAAAAAAAAAAAAAAAAAAAAALy8AAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAACCAwEDFwAAAAAAAAAAAAAAAAB9U4t8EQMBAYUAAAAAAAAAAAAAAABUiZuZvIcDAWBgDwEX
|
||||||
|
AAAAAAAAf1aPlpq7urq6vQ8DQwAAAA8BFwAAAEeKnry6urq6upiNPwGDjAAAAAABEAAAAFWIurq6lI5X
|
||||||
|
UE5OBQG8xUUAAABgEAAAPICQWFFPPTsxMk1OBQGF35EAAAAPEAAAOE5OTkxkanSBIh0dIwEQxMdFAAAB
|
||||||
|
FgAAADpOTSq4rcm1GR0dHQYBEIV+GgEPAAAAAEZNTQeldaBvFR0jJScdAgEBARgAAAAAAAA1TSQKXVlC
|
||||||
|
PkxNTU5NTpffnAAAAAAAAAAANk1NTU00wHklL01OTU/Gy0gAAAAAAAAAADlNTU0kocqiRB8mME2S0Z0A
|
||||||
|
AAAAAAAAAFJNTU0oX67MyqRBHB4uv89KAAAAELwAAABABBdMCGOowt/Ioy0cSdGfAABgAbwAAAAAARBN
|
||||||
|
MgtccrLMzassHL7PSwBgAbwAAAAAARA3e3czCVtzwbdrGzTOkwBgAbwAFoUAARAMtKewZmiqcaxwIRuV
|
||||||
|
AABgAbxgARAAARAUhrG2qcPQpm1pGxsrAABgAXgBAwEXARAAEmx2r7mzbmUTIA0pegBgAQEPAA8DARAA
|
||||||
|
AABhYmdeWgAAAAAAAABgAQMAAAABARAAAAAAAAAAAAAAAAAAAABgAQAAAAAAARYAAAAAAAAAAAAAAAAA
|
||||||
|
AAD///MA///BAP/wBwD/gAMA8ABxAMAAeQDAADkAgAA5AIAAGQDAAAMAwAAHAOAADwDwAAcA+AAHAPgA
|
||||||
|
AwCcAAMAHgABAB4AAQASAAMAAgADAABAAQAIcH8AHH//AD5//wAoAAAAEAAAACAAAAABAAgAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCAAQERYAIRISACIaHAAbGyEAHB0jACUeIAAtKS0ALCwxADIx
|
||||||
|
NAB6PC4APDxAAE1MTwBTUFIAVVZaAF5cXgBtX10AcVtYAG5gXwB3YFsAemFcAGVlaQBqaWsAbmxtAGx3
|
||||||
|
fAB2dXcAfXx+AIdDMgCCRjcAiEQzAIhFNQCZTDkAnE46AKBPPACBUEQAiFlOAJFURACbV0cAll5QAK5W
|
||||||
|
QAC4W0UAuVxFAI5mXgCba18ArWFOAL5hSgCgal0AjHFqAI90bwCKfHsAkHp1AK9vYAC6c2EApH92AMNh
|
||||||
|
SQDEYkoAx2RLAMZlTQDGa1QAxnVhAMWNfwBiiJYAYY2cAHyQlgBwk6AAXaO6AH6jrwB4tMQAeMniAIGB
|
||||||
|
gwCHhYcAi4iIAIqJjACejIgAg5eeAJKRkgCXlZUAkZqcAKGLhAClkIsAo5GNAKiQiACqlI4AtJGIALaW
|
||||||
|
jACllZAAgrC9AKelpwCtrq8Ap7O1ALOxsQDFoZgAwaWeAMalnQDPraQA1bOoANK4rQDGubUAxr69AM7B
|
||||||
|
vQC8w8QAiM7jAIzP4ACO1uYAntblAJ/d7gCD1/EAlN3xAKvf7ACu5/QAsur2ALTs9wC59v0Av/f9AMPC
|
||||||
|
wgDHx8cAzsPAANvZ2ADh0MwA8uXiAPfp5gDj9/oA5vf5AOH4/AD48/EA+/TzAP///wAAAAAALyYAAFBB
|
||||||
|
AABwWwAAkHQAALCOAADPqQAA8MMAAP/SEQD/2DEA/91RAP/kcQD/6pEA//CxAP/20QD///8AAAAAAC8U
|
||||||
|
AABQIgAAcDAAAJA+AACwTQAAz1sAAPBpAAD/eREA/4oxAP+dUQD/r3EA/8GRAP/SsQD/5dEA////AAAA
|
||||||
|
AAAvAwAAUAQAAHAGAACQCQAAsAoAAM8MAADwDgAA/yASAP8+MQD/XFEA/3pxAP+XkQD/trEA/9TRAP//
|
||||||
|
/wAAAAAALwAOAFAAFwBwACEAkAArALAANgDPAEAA8ABJAP8RWgD/MXAA/1GGAP9xnAD/kbIA/7HIAP/R
|
||||||
|
3wD///8AAAAAAC8AIABQADYAcABMAJAAYgCwAHgAzwCOAPAApAD/EbMA/zG+AP9RxwD/cdEA/5HcAP+x
|
||||||
|
5QD/0fAA////AAAAAAAsAC8ASwBQAGkAcACHAJAApQCwAMQAzwDhAPAA8BH/APIx/wD0Uf8A9nH/APeR
|
||||||
|
/wD5sf8A+9H/AP///wAAAAAAGwAvAC0AUAA/AHAAUgCQAGMAsAB2AM8AiADwAJkR/wCmMf8AtFH/AMJx
|
||||||
|
/wDPkf8A3LH/AOvR/wD///8AAAAAAAgALwAOAFAAFQBwABsAkAAhALAAJgDPACwA8AA+Ef8AWDH/AHFR
|
||||||
|
/wCMcf8AppH/AL+x/wDa0f8A////AAAAAAAAAAAAAAAAAABMWwAAAAAAAAAAAABTABoCDUYAAAAAAABW
|
||||||
|
VWBkWQcAAAYYAAAAUmF1dHRjXQhRAAAAAQAANnNiXj08OTkBdlQAAA8AADU7OElDMyAiA0h5AAABAAAs
|
||||||
|
OCZwb2ceHgsEEBEFAAAAAC0hGT8yKCo3OStYAAAAAAAALjg4T2UnKDc6eFwAAAAAAEo4OCVqe1okIT1+
|
||||||
|
VgBGTQAAFQ4pE2Z8ek4fd18AD0cAAAAKNDESPm1yGy99AA9HABgACjBsaERpRUEcUAAPFwkCEAoAV2tx
|
||||||
|
bkIUHSMADwEAAAIKAAAAS0AAAAAAAA8WAAAPDAAAAAAAAAAAAAD/+QAA/6EAAPgZAADAHQAAgA0AAIAN
|
||||||
|
AACAAwAAwAcAAOADAADgAQAAMAEAADgBAAAoAQAAAgEAADOfAAAz/wAAKAAAADAAAABgAAAAAQAgAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAACWkI7/lpCO/5aQjv+WkI7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAEAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAlpCO/wACCP8AAgj/AAII/wACCP+WkI7/lpCO/5aQjv8AAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAGAAAADAAAABYAAAApAAAAMgAA
|
||||||
|
ACAAAAAGAAAAAAAAAAAAAAAAAAAAAJaQjv8AAgj/AAII/wACCP8AAgj/AAII/wACCP8AAgj/AAII/5aQ
|
||||||
|
jv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAANAAAAHgAAADYAAABRAAAAah0R
|
||||||
|
DomFTz+2wnJc0Ws9MI4AAAAqAAAAApaQjv+WkI7/AAII/wACCP8AAgj/AAII/wACCP+WkI7/AAAAAAAA
|
||||||
|
AAAAAAAAAAII/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAoAAAAXAAAALQAAAEoAAABtTTAnnKBi
|
||||||
|
T8rQf2bp/5p8//Shif/mrJz/5sG3/8BkTfMAAABnAAII/wACCP8AAgj/AAII/wACCP8AAgj/AAII/wAC
|
||||||
|
CP+WkI7/lpCO/5aQjv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAADAAAABwAAABAAAAAhAAAAPQAAAGA5JB2NglJDusV7
|
||||||
|
ZeLzl3v6+6CF/+qsmv/ctqv/zsG9/8fHx//R0dH//////5aQjv8AAgj/AAII/wACCP8AAgj/AAII/wAC
|
||||||
|
CP8AAgj/AAII/wACCP8AAgj/AAII/5aQjv+WkI7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAALAAAAGwAAADAAAABFAAAAWgAAAHViQDSlrXBc0+iV
|
||||||
|
evX/o4X/7a2Z/9+2qf/Rv7r/x8fH/8fHx//Hx8f/x8fH/8fHx//x8fH/AAII/wACCP8AAgj/AAII/wAC
|
||||||
|
CP8AAAAAAAAAAAAAAAAAAAAAAAAAAAACCP8AAgj/AAII/wACCP+WkI7/lpCO/wAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAgAAAAUAAAAKQAAAEUAAABmUDctl5JjUsHGhW7gzopy7PSu
|
||||||
|
lv/mtaX/2Lyz/9W+t//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/9DQ0P/+/v7/AAII/wAC
|
||||||
|
CP8AAgj/lE070wAAAEgAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/wACCP8AAgj/lpCO/5aQ
|
||||||
|
jv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANAAAALwAAAFcfFRKChV1OtriBa9vnoIX2+LKY/+q3
|
||||||
|
pf/cvbL/zsPA/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/9nZ
|
||||||
|
2f8AAgj/AAII/wACCP+WkI7/zGpR/zAYEooAAAAbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAII/wAC
|
||||||
|
CP8AAgj/AAII/5aQjv8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0AAABLeD0ut799Zu7to4f/7bqm/9++
|
||||||
|
sf/Rw73/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fH
|
||||||
|
x//Hx8f/uK2q/7yTif8AAgj/AAII/wACCP//////05qM/4hHN84AAABAAAAAAwAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAACCP8AAgj/AAII/5aQjv8AAAAAAAAAAAAAAAAAAAAAAAAABQAAADxzOy24yH1r/5eC
|
||||||
|
ff+6urr/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fH
|
||||||
|
x//HtK//v5GF/795Z/+7alb/vF5H/wACCP8AAgj/AAII/5aQjv//////+vTz/8x4Y/ocDgp8AAAAFwAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACCP8AAgj/AAII/5aQjv8AAAAAAAAAAAAAAAAAAAAAAAAAITAY
|
||||||
|
Eo3Sa1L6l5GP/6mpqf/Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8eu
|
||||||
|
qP/Hm5D/x4Jx/8dkS//HZEv/x2RL/8dkS//HZEv/x2RL/wACCP8AAgj/AAII/5aQjv///////////+Cx
|
||||||
|
pf+LSDfOAAAARQAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/5aQjv8AAAAAAAAAAAAA
|
||||||
|
AAAAAAAMAAAAW69YQue1gHP/lpaW/8PDw//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x66o/8eV
|
||||||
|
if/HfGr/x2pS/8dkS//HZEv/x2RL/8dkS//HZEv/x2RL/8dkS//HZEv/x2RL/wACCP8AAgj/AAII/5aQ
|
||||||
|
jv////////////Xq5//PalH/LRYRjwAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/5aQ
|
||||||
|
jv8AAAAAAAAAAAAAAAIAAAAvWi0hsMFuWv+Tk5P/ra2t/8fHx//Hx8f/xsC//8auqP/GlYn/xpWJ/8Z8
|
||||||
|
av/GZEv/xmRL/8ZkS//GZEv/xmRL/8ZkS//GZEv/xmRL/8dkS//HZEv/x2RL/8dkS//HZEv/x2RL/wAC
|
||||||
|
CP8AAgj/AAII/5aQjv/8/Pz////////////appn/qFdC4gAAAFQAAAAKAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAgj/AAII/5aQjv8AAAAAAAAAAAAAAAoAAABZr1dB86CDe/+WkI7/wKGZ/8aPgf/GfGr/xmRL/8Zk
|
||||||
|
S//GZEv/xmRL/8ZkS//GZEv/qG5g/4p2dP+ReHT/omBQ/6dUP/+nVD//q1ZA/7ZcRf+2XEX/xmRL/8Zj
|
||||||
|
S//GY0v/xmNL/wACCP8AAgj/AAII/5aQjv+WkI7//v7+////////////03xm/1csIaIAAAAlAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAACCP8AAgj/AAII/5aQjv8AAAAAAAAAAAAAAA42GxRvv2BI/75pU//GZEv/xmRL/8Zk
|
||||||
|
S//GZEv/xmRL/8ZkS//GZEv/xmRL/7BsW/9mlKT/WZ20/1ibsf9hqcH/bbzW/3iktP+FU0j/iUQz/4lE
|
||||||
|
M/+JRDP/iUQz/4lEM/+USTf/mEs5/6NRPf8AAgj/AAII/wACCP+WkI7/+/v7////////////5sO6/6pX
|
||||||
|
Q+IAAABPAAAABwAAAAAAAAAAAAAAAAACCP8AAgj/AAII/5aQjv8AAAAAAAAAAAAAAAYAAABAfj8vyMZj
|
||||||
|
S//GY0v/xmNL/8ZjS//GY0v/xmNL/8ZjS//GY0v/tFpE/2mXp/9qt9D/Z7TN/2awyf+D0Ob/qvH8/5rq
|
||||||
|
+/9+yuH/gWFb/4lEM/+JRDP/iUQz/4lEM/+JRDP/iUQz/4lEM/8AAgj/AAII/wACCP+WkI7/lpCO//7+
|
||||||
|
/v///////////8t/bPssFhGUAAAAIgAAAAEAAAAAAAII/wACCP8AAgj/AAII/wAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAARAAAAWYRCMtbFY0v/xWNL/8VjS//GY0v/xmNL/8ZjS//AYEj/dFtX/5He8f+W5/n/fdHr/4PT
|
||||||
|
7P/F/f//9v///+f///+N4/f/caa4/4lEM/+JRDP/iUQz/4lEM/+JRDP/iUQz/4lEM/+JRDP/AAII/wAC
|
||||||
|
CP8AAgj/lpCO/5aQjv+WkI7//////+zOxv+zXEbnAAAAWAAAAAsAAgj/AAII/wACCP8AAgj/AAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAFwAAAGurVkHuxWNL/8VjS//FY0v/xWNL/8VjS/+hUT3/allX/938
|
||||||
|
///r////muz7/4bW8f/I/P///f///8z+//+F3PX/ZbDJ/4lEM/+JRDP/iUQz/4lEM/+JRDP/iUQz/4lE
|
||||||
|
M/+JRDP/iUQz/wACCP8AAgj/AAII/wACCP+WkI7/lpCO/5aQjv+WkI7/lpCO/wACCP8AAgj/AAII/wAC
|
||||||
|
CP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAACUsFhCOvF5H+sVjSv/FY0r/xWNK/8Vj
|
||||||
|
Sv+DQjH/aEY//8jr8P/x////m+v6/3zM5/+Z4/P/qO/5/47i9f9wwNv/W5So/4hEM/+IRDP/iEQz/4hE
|
||||||
|
M/+JRDP/iUQz/4lEM/+JRDP/jEU0/5xNOv8AAgj/AAII/wACCP8AAgj/AAII/wACCP8AAgj/AAII/wAC
|
||||||
|
CP8AAgj/AAII/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUAAAA5VywhssVj
|
||||||
|
Sv/FY0r/xWNK/8VjSv99Py//ZjMm/3B9g/+S3vD/e8zm/2ezzf9jq8T/aLPM/2Ksxf9Xma//cFpW/4hE
|
||||||
|
M/+IRDP/l0s4/5dLOP+fTzv/p1M+/7ZbRP/CYUj/xmNK/8ZjSv/GY0r/xmNK/wACCP8AAgj/AAII/wAC
|
||||||
|
CP8AAgj/AAII/wACCP8AAAAuAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAALAAAAUIVCMtTFY0r/xWNK/8VjSv+bTjr/ZjMm/2YzJv9ie4X/YKe//1qetf9Pi5//UI2h/1KA
|
||||||
|
kP+UaWD/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8Zj
|
||||||
|
Sv/NmYz/9vb2//7+/v//////79fR/7leSO8AAABhAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAFgAAAGmsVkDtxWNK/8VjSv/FY0r/lUs4/2s2KP9mMyb/XFJR/2lr
|
||||||
|
bv9cZGn/fF9Z/7tiS/+kgnj/rJSN/59PO/+6XUX/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8Zj
|
||||||
|
Sv/GY0r/xmNK/8ZjSv/IZEr/6NvY//z8/P///////////+Oikv9OJx6rAAAALgAAAAIAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAACIXCwiEslhD9sViSv/FYkr/xWJK/8Vj
|
||||||
|
Sv/FY0r/xWNK/8VjSv/FY0r/xWNK/8VjSv9/enX/zPP6/6XJ0P+EXFP/iEQz/59PO/+yWUL/xmNK/8Zj
|
||||||
|
Sv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/zXxn//Ly8v/+/v7///////Ti3f/GZU30AAAAZwAA
|
||||||
|
ABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAA0WSwhr8Vi
|
||||||
|
Sv/FYkr/xWJK/8ViSv/FYkr/xWJK/8ViSv/FY0r/xWNK/8VjSv9tU03/q+35//v////B8vr/hZWb/4hE
|
||||||
|
M/+IRDP/j0c1/6dTPv++X0f/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/xmNK/965r//8/Pz/////////
|
||||||
|
///cj3z/cjosugAAADMAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAALAAAAToZCMtHEYkr/xWJK/8ViSv/FYkr/xWJK/8ViSv/FYkr/xWJK/8VjSv9mMyb/mN3r/8z1
|
||||||
|
/P//////5P3//43K2P+BbGn/iEQz/4hEM/+IRDP/m006/7JZQv/GY0r/xmNK/8ZjSv/GY0r/xmNK/8x8
|
||||||
|
Z//09PT//v7+///////w2NL/x2VN9QAAAHIAAAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAFAAAAF+NRjXdxGJK/8ViSv/FYkr/xWJK/8ViSv/FYkr/xWJK/8Vi
|
||||||
|
Sv9rNSj/fYyO/4jb8//L9vz//f////X////M9vz/mMrS/3+Gi/+GSz3/iEQz/4hEM/+LRTT/l0s4/65X
|
||||||
|
Qf/CYUj/xmNK/8ZjSv/gwLn/+vr6////////////6LSo/5lNOtAAAABAAAAABQAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoAAAB1sllD9MRiSv/EYkr/xWJK/8Vi
|
||||||
|
Sv/FYkr/xWJK/8ViSv99Pi//ak9J/4vf+P+C1e7/yPj9//7/////////9P///7r1/f+I0eP/foWK/4ZL
|
||||||
|
Pf+IRDP/iEQz/4hEM/+LRTT/n087/7ZbRP/Ia1T/7efm//7+/v//////+/Xz/9p2Xv8AAAB2AAAAEwAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAwWy0iqsRi
|
||||||
|
Sv/EYkr/xGJK/8ViSv/FYkr/xWJK/8ViSv+bTTr/ZjMm/3Wktf9+0+//gdPt/9H7/v/8//////////3/
|
||||||
|
///m////tPX9/4XF1v+AdHT/iEQz/4hEM/+IRDP/iEQz/4hEM/+USTf/yp+U//j4+P///////////+az
|
||||||
|
p/9uNyq/AAAAOAAAAAMAAAAAAAAAAAAAAAAAAAAAlpCO/5aQjv+WkI7/AAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAKAAAAR2EwJMDEYkn/xGJK/5aQjv+WkI7/lpCO/8ViSv+/X0f/cjgq/2c7MP9upLf/dsnl/3/R
|
||||||
|
6v+s7fr/5v7///7//////////f///+b+//+18/v/i8zb/4J3dv+IRDP/iEQz/4hEM/+IRDP/jk4+/93I
|
||||||
|
w//+/v7///////v18//Tc1v5HA4KeQAAABYAAAAAAAAAAAAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAFaPRzXaAAII/wACCP8AAgj/lpCO/8ViSv/FYkr/rVZB/2cz
|
||||||
|
Jv9mOi//Z5ut/3HD3v92yOP/kN/z/9X7/v/7///////////////9////3v7//5vr+f98oa//hks9/4hE
|
||||||
|
M/+IRDP/iEQz/6x7bv/4+Pj////////////ptaj/jEc2zAAAAEIAAAAFAAAAAAAAAAAAAgj/AAII/wAC
|
||||||
|
CP+WkI7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcAAABwAAII/wACCP8AAgj/lpCO/8Vi
|
||||||
|
Sv/FYkr/xWJK/5ZKOP9nMyb/Zjku/2Sfs/9svNf/cMHc/4TT6/+28/z/7v////7//////////////9/+
|
||||||
|
//+X6/z/eLDE/4ZLPf+IRDP/iEQz/4tFM//m29n//f39///////79fP/03Nb+jAYEowAAAAeAAAAAAAA
|
||||||
|
AAAAAgj/AAII/wACCP+WkI7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAqAAII/wAC
|
||||||
|
CP8AAgj/lpCO/8ViSv/FYkr/xWJK/8ViSv+nUz7/ikQz/2U5Lv9ia3H/Y52x/2q40/9zw93/jtrt/8z3
|
||||||
|
/f/3//////////z////F/f//h+D4/3aktP+HQzL/iEQz/4hEM/+ncGP/9fX1//7+/v//////672y/65Y
|
||||||
|
Qt4AAABEAAAABQAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAHAAII/wACCP8AAgj/lpCO/8RiSf+5XEX/iHBt/5RpYP+nZlf/tVpE/6FQPP94PC3/ZzMn/2Bo
|
||||||
|
bf9gorf/aLXP/3XE3v+h6vf/4P7///n////U////mO/+/3XL5/97bW3/h0My/4hEM/+JRDP/zrGq//v7
|
||||||
|
+////////////91/aP8AAABLAAAACQAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAII/wACCP8AAgj/lpCO/8RiSf+HaWD/ic7i/2Kpwf9gpr3/X6W8/22K
|
||||||
|
lf98bGr/bUQ7/0kkG/9KKyP/UW14/2Ksxf9quNH/iNfs/777/v+/////le7+/3jO6/9qpbn/h0My/4hE
|
||||||
|
M/+IRDP/lVhJ/+7p6P//////8vLy+y8lIpgAAAArAAAAAwAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAAA
|
||||||
|
AAAAAAAAAAAAAJaQjv+WkI7/AAAAAAAAAAAAAAAAAAII/wACCP8AAgj/lpCO/6dTPv9qR0D/2Pn9/33O
|
||||||
|
5/9zv9j/fMjh/4fV6/96yOH/XaG4/0FzhP8vUl7/S3+Q/3K3zP9mssv/Z7TN/4DR6P+Z7/3/ieH6/3XL
|
||||||
|
5/9mssz/fVJJ/4dDMv+IRDP/iEQz/76akP/8/Pz/mpqa0gAAAEgAAAAHAAAAAAAAAAAAAgj/AAII/wAC
|
||||||
|
CP+WkI7/AAAAAAAAAAAAAAAAAAII/wACCP+WkI7/lpCO/wAAAAAAAAAAAAII/wACCP8AAgj/lpCO/3o9
|
||||||
|
LfpoNCf/0ODj/7T2/v+F1/L/kN/4/7v+//+l8Pv/aK7G/12ht/95x+D/m+f3/9T6/P+a3u7/a7nT/2i0
|
||||||
|
zv94yeX/ec3q/2/C3v9ircb/eVVN/4dDMv+HQzL/iEQz/4lEM//w6uj/YmJipAAAACAAAAAAAAAAAAAA
|
||||||
|
AAAAAgj/AAII/wACCP+WkI7/AAAAAAAAAAAAAgj/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAAAAII/wAC
|
||||||
|
CP8AAgj/lpCO/zUaFLhoNCf/nqiq/+L///+V6/3/j+H7/7z+//+o8fz/dMDa/4PV7v+o8/3/4/////7/
|
||||||
|
///v/v//jNzx/2i1z/9ptc//br/a/2q51P9fnbL/hkMy/4dDMv+HQzL/h0My/4hEM/+7mI//AAAAiQAA
|
||||||
|
ABUAAAAAAAAAAAAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAAAAAAAAgj/AAII/wACCP8AAgj/lpCO/5aQ
|
||||||
|
jv8AAAAAAAII/wACCP8AAgj/lpCO/wAAAE9AIBjNcFRN/8P1+/+i9v//iN36/5vs/f+W6P3/h9v3/6Dz
|
||||||
|
/v/S/////f/////////4////ou37/2q50/9gqcH/ZrPM/2Ksxf9rcnb/hkMy/4ZDMv+HQzL/h0My/4dD
|
||||||
|
Mv+JRDP/KRQPqgAAACgAAAABAAAAAAAAAAAAAgj/AAII/wACCP+WkI7/AAAAAAACCP8AAgj/AAII/wAC
|
||||||
|
CP8AAgj/AAII/5aQjv+WkI7/AAII/wACCP8AAgj/lpCO/wAAABIAAABfSiUb32x5f/+D2PH/ftTx/3zR
|
||||||
|
7f+C1/P/i+L8/6j6///L////5v///+H///+3+P7/f9Tv/2Svyf9bn7b/XaO6/1yNnf+CRjf/hkMy/4ZD
|
||||||
|
Mv+GQzL/h0My/4dDMv+IRDP/czkq4wAAAEQAAAAIAAAAAAAAAAAAAgj/AAII/wACCP+WkI7/AAII/wAC
|
||||||
|
CP8AAgj/lpCO/wACCP8AAgj/AAII/wACCP+WkI7/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAeGQwJhHA3
|
||||||
|
KflhYGL/abDH/2/C3f90yeX/fdPw/4ri+f+W7fz/mu/8/47k+P96zur/arnU/1qetP9Uk6j/TIaZ/GJH
|
||||||
|
Qu5+Py/qfj8v6n8/L+h1OivhUikez1QqH8tqNSfIdjsstEwmHEoAAAAIAAAAAAAAAAAAAgj/AAII/wAC
|
||||||
|
CP8AAgj/AAII/wACCP8AAgj/AAAAAAAAAAAAAgj/AAII/wACCP+WkI7/AAII/wACCP8AAgj/lpCO/wAA
|
||||||
|
AAAAAAAEAAAAMFcrII54PCzEWj02zkFyg99bn7b6ZrLM/2y81v9uv9r/br7a/2m40v9iq8T/Vpet/0h/
|
||||||
|
kv82YG7fDhkclAAAAGAAAABRAAAAUAAAAE4AAABFAAAAOQAAADQAAAAzAAAAKAAAABEAAAABAAAAAAAA
|
||||||
|
AAAAAgj/AAII/wACCP8AAgj/AAII/wACCP8AAAAAAAAAAAAAAAAAAAAAAAII/wACCP8AAgj/AAII/wAC
|
||||||
|
CP8AAgj/lpCO/wAAAAAAAAAAAAAABgAAABwAAAAvAAAAOAAAAEkAAABhAAAAdxcoLpQeNT2nK0tWvixN
|
||||||
|
WMYfNz+2ER4ilgAAAG0AAABHAAAAIAAAAAgAAAAFAAAABQAAAAQAAAADAAAAAQAAAAEAAAABAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAgj/AAII/wACCP8AAgj/AAII/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC
|
||||||
|
CP8AAgj/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAQAAAAKAAAAEAAA
|
||||||
|
ABcAAAAgAAAAKgAAAC8AAAAnAAAAGQAAAA4AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAACCP8AAgj/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/wACCP8AAgj/AAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/wACCP8AAgj/lpCO/wAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/wAC
|
||||||
|
CP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAII/wACCP8AAgj/AAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//
|
||||||
|
//////z9//////8P/P3////5/AP8/f///wDwA/z9///4AAB3/P3//4AAAB/8/f/wAAAAD/z9/4AAAD4H
|
||||||
|
/P34AAAAHwP8/fAAAAAfg/z94AAAAA/D/P3AAAAAD8P8/cAAAAAH4/z9gAAAAAfj/P0AAAAAA+P8/QAA
|
||||||
|
AAADw/z9AAAAAAHD/P0AAAAAAIf8/YAAAAAAD/z9wAAAAAAf/P3AAAAAAD/8/eAAAAAAP/z98AAAAAA/
|
||||||
|
/P34AAAAAB/8/fgAAAAAH/z9/AAAAAAP/P3+AAAAAA/8/f8AAAAAB/z9/4AAAAAH/P3/gAAAAAP8/cfA
|
||||||
|
AAAAA/z9h+AAAAAB/P2H8AAAAAH8/YfwAAAAAPz9h/gAAAAA/P2H/AAAAAD8/YecAAAAAfz9hwwAAAAD
|
||||||
|
/P2GDAAAAAP8/YYEAAAAAfz9hAAAAAAB/P2AACAAAAH8/YDAIAAAAfz9geAwAAAP/P2D8DwAH//8/YPw
|
||||||
|
P/3///z9h/g//////P2P/H/////8/SgAAAAgAAAAQAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJaQjhyWkI5VlpCOVZaQ
|
||||||
|
jhwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAACWkI5xGxwgxjIx
|
||||||
|
NP9TUFL/lpCOxpaQjnEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAACAAAACAAAABcAAAAnFQwKRjkiG2IXDQo0AAAABpaQjlVCQUNVQkFD/wAC
|
||||||
|
CP8QERb/GxwgxgACCKoAAgjjlpCOcQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAEAAAAKAAAAGQAAADsiFRFmdUc5o59gTca0emnd056P7W06LKcAAAONMjE0/xAR
|
||||||
|
Fv8AAgj/AAII/zIxNP+WkI7GlpCOcQACCDkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAIAAAAHAAAAEwAAAB8KBwU7MSAaZFw7MJ2XZVXH1pWC8emql/7bt6z/zsC8/83Nzf+6u7z/QkFD/wAC
|
||||||
|
CP8AAgjjAAIIqgACCKoAAgiqAAII/wACCP90cHD/lpCOjgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAgAAAAXAAAANyMYFGFsSTyah1pLtqp8bdbEm47r2rOn/dW9tf/Nwr7/yMbF/8fHx//Hx8f/29vb/1NU
|
||||||
|
WP8AAgj/QSMe6wAAAloAAAABAAAAAAAAAAAAAgiOAAII/xARFv90cHD/lpCOcQAAAAAAAAAAAAAAAAAA
|
||||||
|
AA4aDQpJSzIplZFpWsPNnInt5bSi/du9s//Ow7//x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8PB
|
||||||
|
wP+KgYH/AAII/z09Qf/HjX//MxoUeAAAAA4AAAAAAAAAAAAAAAAAAghxAAII/wACCP+WkI6qAAAAAAAA
|
||||||
|
AAAAAAACGQ0KT41SQ8uxkYb70L21/83Ewf/IxsX/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8LB/8Oq
|
||||||
|
pP/Aj4P/vH1u/ykiJP8AAgj/l5WV//Pj4P9/SDrABgMCLgAAAAAAAAAAAAAAAAAAAAAAAgj/AAII/5aQ
|
||||||
|
jqoAAAAAAAAAAQAAACR/RDXGp4d//ri4uP/Hx8f/x8fH/8fHx//Hx8f/x8HA/8ezrv/HqqL/x5GD/8d9
|
||||||
|
a//HZEv/x2RL/8dkS//HZEv/AAII/wACCP+5tbP//////8+ekfQ/IBmJAAAACgAAAAAAAAAAAAAAAAAC
|
||||||
|
CFUAAgj/lpCOqgAAAAAAAAANKBQObrFzZPqjnZv/xsbG/8bDw//GsKv/xqWd/8aPgv/Gf23/xnFc/8Zo
|
||||||
|
UP/GZEv/xmRL/8dkS//HZEv/x2RL/8dkS/8AAgj/AAII/7i0s//+/v7/79bP/5xcTNkAAAAvAAAAAgAA
|
||||||
|
AAAAAAAAAAIIVQACCP+WkI6qAAAAAAYDAih+Py/FqHxx/7iIfP/GfGn/xmlR/8ZkS//GZEv/tmtY/5V6
|
||||||
|
df97hIr/i4GC/5hlWv+eUT3/p1Q//65XQf+yWUP/tlpE/yQTE/8AAgj/dHBw/9rY2P//////5ber/0wm
|
||||||
|
HYsAAAATAAAAAAAAAAAAAgj/AAII/5aQjqoAAAAABgMCIGg0J6zEZEz/xmNL/8ZjS//GY0v/xmNL/75f
|
||||||
|
R/94lJ7/ZKzD/2ixyf+L1ej/icLR/4Jwbf+JRDP/iUQz/4pEM/+NRjT/YTAm/wACCP8yMTT/rKem//7+
|
||||||
|
/v/58e//iVBCywkEAzoAAAAAAAIIcQACCP8AAgj/lpCOOQAAAAAAAAAEAAAAMHk8LsrCYUn9xWNL/8Vj
|
||||||
|
S//AYEj/h1pQ/63q9/+V4fP/muHz/+f+///C9Pz/drvQ/4lEM/+JRDP/iUQz/4lEM/+JRDP/TCYf/wAC
|
||||||
|
CP9CQUP/dHBw/8TBwP/CoJb6WUQ+rwABBJMAAgj/AAII4wACCDkAAAAAAAAAAAAAAAAAAAAGHA4KYpxO
|
||||||
|
O+LEY0r/xGNK/7JZQ/90SkH/2fX4/7bx+/+N2O7/u/H5/5Tg8f9mrMP/iEQz/4hEM/+IRDP/iUQz/4lE
|
||||||
|
M/+KRDP/RSMe/wACCP8QERb/MjE0/zIxNP8yMTT/AAII/wACCP8AAgg5AAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAQJhMOb7ZbRPXFY0r/sFhC/3E4Kv9zgYb/d77U/2CowP9epLv/YZap/4FraP+cTjr/o1E8/6hT
|
||||||
|
Pv+vV0H/vl9G/8ViSf/GY0r/xmNK/0IoJf9NSEv/VFZa/1FNUP8pFRO7AAAAGAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAEAAAAdWSwhr79gR/vAYEj/lUs4/2c8Mf9fYmX/X3iC/2ZvdP+acGb/rYB0/7JY
|
||||||
|
Qv/DYUj/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/GY0r/x2lR/+G/tv/9/f3/+/b0/59lV9cRCAZIAAAAAQAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAgEzaDMmt8RiSv/FYkr/xGJK/8ViSv/EYkr/xWNK/6tm
|
||||||
|
U/+pxcn/s8HD/4xuZ/+bTTn/rldB/75fR//FYkn/xmNK/8ZjSv/GY0r/yW5W//Hp5v/+/v7/6cO5/V0z
|
||||||
|
KKoAAAATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkTCQdSqFM/68RiSv/EYkr/xGJK/8Ri
|
||||||
|
Sv/EYkr/plZC/4yrsP/g+f3/0eXo/4iIiP+ITT//lEo3/6RRPf+9Xkb/xmNK/8ZjSv/GY0r/3rKm//v7
|
||||||
|
+//36eb/v3lo6wAAAEMAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkfDwtunk475sRi
|
||||||
|
Sv/EYkr/xGJK/8ViSv+pVD//dGJd/5bh9f/Y9vz/7/3+/8Pl6v+OmZz/hWNc/4hFNf+PRzX/plM+/7Va
|
||||||
|
Q//IdmL/69nU//7+/v/z29X/dDwusAAAACIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AB5QJx6ZxGJK/8RiSv/EYkr/xGJK/7NZQ/91QDP/fcHX/5Db8f/p/f7/+////9z3+/+u2uH/hImM/4ZO
|
||||||
|
Qf+IRDP/jUY0/5xOO//Flor/+/v7//78/P+vdmjiGAwJVQAAAAEAAAAAAAIIHE1LTcZ0cHD/lpCOVQAA
|
||||||
|
AAAAAAAAAAAAAgAAACVmMya5kkk4+2RgYf+FgH//w2FJ/5lMOf9oUEv/b6a6/4TT6v+57fj/9P7+//3/
|
||||||
|
///j+/7/s+Xu/4iKiv+GT0P/iEQz/4pIN//cyMP//v7+//HTy/50Qze3AAAAGQAAAAEAAghVAAII/zIx
|
||||||
|
NP+WkI5VAAAAAAAAAAAAAAAAAAAAAw8HBU4PCQvbAAII/2RgYf/EYkr/v19I/3s9Lv9mTUj/arLJ/3bH
|
||||||
|
4P+u5/X/5vz+//7////3/v//tOv0/4KlsP+HRzf/iEQz/7KGev/39fT/+/Ty/86NffEVCghUAAAABwAC
|
||||||
|
CFUAAgj/MjE0/5aQjlUAAAAAAAAAAAAAAAAAAAAAAAAACwABBbQAAgj/ZGBh/8NhSf+2ZFH/sGBN/51Q
|
||||||
|
Pf9zST//Zm91/2imu/96xtz/vez1/+v8/v/q/v//oe37/3qRmv+GSDn/j009/8+0rv/9/f3/9uHc/35D
|
||||||
|
NLMAAAAcAAIIVQACCP8yMTT/lpCOVQAAAAAAAAAAAAAAAAAAAAAAAAABAAEGqwACCP9kYGH/tWJN/42W
|
||||||
|
mf90kp7/eo2W/31tbP9wSD//UEJA/1Z0f/9vutL/l9rr/839/v+m8/7/dLnR/39dVv+IRDP/nWVX//b0
|
||||||
|
8//5+fn9RiwmjgAAABUAAghVAAII/zIxNP+WkI5VAAAAAAACCDl0cHD/lpCOjgAAAAAAAgiqAAII/2Rg
|
||||||
|
Yf+ISDj+sba1/4fU6v9/zOb/k97v/221y/9Jf5H/W5Sk/4nJ2v9tudH/f9Dm/4fd9P9uwNv/dHJ0/4dD
|
||||||
|
Mv+HQzL/xaWd/6ysrNcAAAApAAAAAgACCFUAAgj/MjE0/5aQjlUAAgg5AAII4xARFv90cHD/AAAAAAAC
|
||||||
|
CKoAAgj/ZGBh/1UqH96XjYv/vPT8/4/h+f+0+f3/gszg/4HO4/+68Pn/5vr8/5zc7f9qt9H/cMHc/2ez
|
||||||
|
zf92ZmT/h0My/4dDMv+faVv/WlFPtgAAABAAAAAAAAIIVQACCP8yMTT/lpCOVQACCI4AAgj/AAII/0JB
|
||||||
|
Q/+WkI7GGxwgxgACCP9kYGH/DgcFX1A0Lduh1t//i+D4/5Di+P+K3/n/sfj+/+j////u/v7/r+z5/2Sw
|
||||||
|
yf9hq8P/Zoya/39NQf+GQzL/hkMy/4dDMv9ZLCHTAAAAIgAAAAEAAghVAAII/zIxNP9IRkjGAAII/0JB
|
||||||
|
Q/8AAgj/AAII/1NQUv8yMTT/AAII/2RgYf8AAAAVGw0KfW1gX/xuqr7/dcnk/37U8P+a7fv/r/P9/6Dn
|
||||||
|
9/96yuP/W5+2/1OSpv5qVFDzgEAw8X8/L+5rNSfjajQn3HQ6K8shEAwzAAAAAwACCFUAAgj/AAII/wAC
|
||||||
|
CP8AAgjjAAIIOQACCDkAAgjjISEl/yEhJf8AAgj/ZGBh/wAAAAEAAAAYQSAYdkIoIZkxVmK2QXKDzlCM
|
||||||
|
oN1WlavnUY+j6kN1h+AsTVnDEiAkggAAAD8AAAA3AAAAMwAAACkAAAAjAAAAHQAAAAgAAAAAAAIIVQAC
|
||||||
|
CP8AAgj/AAII/wACCDkAAAAAAAAAAAACCDkAAgj/AAII/wACCP9kYGH/AAAAAAAAAAEAAAAMAAAAEgAA
|
||||||
|
AB8AAAAvCA4RRQwWGVcNFxpeBwwOSQAAACcAAAAQAAAAAgAAAAIAAAABAAAAAQAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAghVAAII/wACCP9NS03GAAAAAAAAAAAAAAAAAAAAAAACCMYAAgj/AAII/2RgYf8AAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAACCFUAAgj/AAIIxgACCBwAAAAAAAAAAAAAAAAAAAAAAAIIHAACCMYAAgj/NzY5jgAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAA////w///74H//AAB/+AAA/wAAAPwAADBwAAA4YAAAPEAAABxAAAAMQAA
|
||||||
|
ADEAAAAhAAAAA4AAAAfAAAAPwAAAB/AAAAfwAAAD+AAAA/wAAAEMAAAADgAAAA8AAAAPAAAACIAAAACA
|
||||||
|
AAEAAAAAAAAAAAAAAAEGCAAPDw///w8P//8oAAAAGAAAADAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACWkI6AlpCOgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAgAAAAXAAAACgAAAAAAAAAAS0lLgCUl
|
||||||
|
Kf8AAgj/JSUp/3BsbP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAA
|
||||||
|
AB8TDAlNXDgtjoRTRLzEi3vhSigfhCUlJ8AlJSn/AAII/wACCP+WkI6/lpCOQAACCEAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAEAAAAKAAAAHgAAADpDLCR2iFdHuMSMeubhr6D+1by0/8jFxP+wsLL/JSUp/wAC
|
||||||
|
CP8AAgiAAAIIgAACCL8AAgj/cGxs/5aQjkAAAAAAAAAAAAAAAAAAAAAPBwUEPU83LoCLYlK8x5eF6NWw
|
||||||
|
o/rTv7n/ysTD/8fHx//Hx8f/x8fH/83Nzf8/QUX/JSUp/2QzJ6kAAAAIAAAAAAAAAAAAAgi/AAII/3Bs
|
||||||
|
bP8AAAAAAAAAAAAAABRsPTGuv5eJ+9bBuf/JxsT/x8fH/8fHx//Hx8f/x8fH/8fHx//FtLD/wpyS/4xo
|
||||||
|
YP8AAgj/paSl/8iThvIHAwI2AAAAAAAAAAAAAAAAAAII/0tJS/8AAAAAAAAAAzccFXythHr+vr6+/8fH
|
||||||
|
x//Hx8f/x8fH/8e0r//HnZL/x4Rz/8drVP/HZEv/x2RL/2MzKf8AAgj/ysfG//Tm4v9hMiaoAAAACgAA
|
||||||
|
AAAAAAAAAAIIgEtJS/8AAAAAAAAAJZpdTeilnJn/xqae/8aNf//GfGr/xmpS/69rWv+vaFb/tlxF/7te
|
||||||
|
Rv/CYkn/xmNL/2MyKf8AAgj/r6up//7+/v/VnpD4FQsISQAAAAAAAAAAAAIIv0tJS/8AAAAADQYFMbBa
|
||||||
|
RfHGY0v/xmNL/8ZjS//BYUn/epOd/1+nvv9+yd7/haq2/4dLPf+JRDP/i0U0/5NJN/8AAgj/S0lL/+Pi
|
||||||
|
4f/48O3/aDswsAAAAAoAAghAAAII/zIxNL8AAAAAAAAABCEQDGy+X0j7xWNL/8VjS/+PWUz/u/D6/4jZ
|
||||||
|
8P/g/f//se/6/3p3ef+JRDP/iUQz/4lEM/9mMyj/AAII/0tJS/+wq6r/spKK+SUkJZgAAgj/AAIIvwAA
|
||||||
|
AAAAAAAAAAAAAAAAAAtPKB6dxWNK/8VjSv9zPjH/rtHY/37N5f+DzN//bbnR/3ZdWf+LRTT/kUg2/5tN
|
||||||
|
Ov+nUz7/ikU1/zEaGP8AAgj/AAII/wACCP8AAQSLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcfT4vysVj
|
||||||
|
Sv+WSzj/ZkU+/1+AjP9ddoD/kXNs/7VqV//DYUj/xmNK/8ZjSv/GY0r/xmNK/8ZjSv/cs6n//v7+/+K1
|
||||||
|
qvsTCQdSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQICN6VSPunFYkr/xWJK/8ViSv/FY0r/nWRV/8Xq
|
||||||
|
8P+UiYb/mEw4/7BYQf/EYkn/xmNK/8ZjSv/HaVH/8unm//z39v+FSz3FAAAAEQAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAyEQDGS2W0T2xWJK/8ViSv/FYkr/lks4/5rO2v/q/P7/s8rP/4l2cP+MSDf/olE8/7Ra
|
||||||
|
Q//FYkn/2aSX//39/f/nvLH8JhMOZgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdDIRmRxGJK/8Ri
|
||||||
|
Sv/FYkr/qFM//3SBh/+S3PH/8v7+/+r8/v+o0tr/hHJu/4hEM/+ORzX/plRA/+vf3P/+/Pz/i1hLzQAA
|
||||||
|
ABQAAAAAAAIIQEtJS/+WkI6AAAAAAAAAAAAAAAAYbTYovFY9Ov9wbGz/w2FJ/3s/MP9skJ7/hNLp/9L1
|
||||||
|
+//9////5fv+/6HL0v+EXVT/iEQz/6d1aP/9/f3/7ce9/ioVEGcAAAABAAIIgAACCP+WkI6AAAAAAAAA
|
||||||
|
AAAAAAAAAAAALQACCP9LSUv/xWJK/7lcRf9/QDH/ZX+K/3C60v+p4/H/8P3+//b+//+W3u3/gl1V/4hE
|
||||||
|
M//fz8v//fz7/6doWNkAAAAaAAIIgAACCP+WkI6AAAAAAAAAAAAAAAAAAAAAAgACCP9LSUv/smJN/4GU
|
||||||
|
nP+GgoX/gGBa/19AOv9Ye4j/eMTa/8fz+v+w9v7/dKq+/4dDMv+dZFb/+fj4/7+lnuQAAAAgAAIIgAAC
|
||||||
|
CP+WkI6AAAAAADIxNL+WkI6/AAAAAAACCP9LSUv/fEI0/rbn8f+Bz+j/mOLx/1iYrv9jn7H/kdDg/268
|
||||||
|
1f+E2fH/a7vV/4FLPv+HQzL/zLGp/z8/P3gAAAACAAIIgAACCP+WkI6AAAIIgAACCP9LSUv/lpCOQAAC
|
||||||
|
CP9LSUv/NxsUtay8vP+T5/z/pfD9/4fY7//W/P7/+f7//4DN4/9ntM3/ZZ2w/4ZDMv+HQzL/lFhJ/woF
|
||||||
|
A1wAAAAAAAIIgAACCP9kYGG/AAII/yUlKf8AAgj/cGxs/wACCP9LSUv/AAAAJE84M9dyr8L/eMzo/47k
|
||||||
|
+f+49v3/qOr3/2m20P9Wlqz+b1ZR9oJBMPR1Oivsczkq5E0mHIkAAAAEAAIIgAACCP8AAgj/AAIIvwAA
|
||||||
|
AAAAAgi/JSUp/wACCP9LSUv/AAAAARUKCDg0Hhh+J0ROoTpldMJJf5HZRXmL3itNWMARHiJ2AAAAMAAA
|
||||||
|
ACoAAAAgAAAAGgAAAA4AAAAAAAIIgAACCP8lJSn/AAAAAAAAAAAAAAAAAAII/wACCP9LSUv/AAAAAAAA
|
||||||
|
AAAAAAAAAAAABAAAAAoAAAASAAAAFgAAAAoAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIIgAAC
|
||||||
|
CP8AAghAAAAAAAAAAAAAAAAAAAIIQAACCP8yMTS/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA///zQf/wwUH/gAFB8AABQcAAMUGAADlBAAAZQQAA
|
||||||
|
GUEAAAFBAAADQYAAB0HAAAdB4AADQeAAAUHwAAFBGAAAQRwAAEEcAABBEgAAQQAAAUEAAABBCAABQRxw
|
||||||
|
P0Ecf/9BKAAAABAAAAAgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJaQjhw8Oj2OeHNzjpaQjhwAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAJDAgGK0UqIWp1UUecJRQQXDIxNKoQERb/ODc64x4eIo6WkI4cAAAAAAAA
|
||||||
|
AAAAAAAIDQkHKD0pImFqT0aYqYR42NWyp/vOwb3/ra6v/yEaHPoAAQV6AAIIVQACCONdWlvjlpCOHAAA
|
||||||
|
AAE2Hhhcl3pw1NK3rPrOw8D/x8fH/8fHx//Gvr3/waWe/y0pLf+jkY3/NBwWXQAAAAAAAggcAAII/5aQ
|
||||||
|
jlUPBwUonndt78PCwv/GubX/xqWd/8aNf//GdWH/x2RL/8dkS/8AAgj/29nY/6Z8cdUAAAAPAAAAAAAC
|
||||||
|
CKqWkI5VPB4WbrpzYf/Ga1T/xGJK/4qJjP9+o6//kHp1/5lMOf+gTzz/IRIS/4uIiP/36eb/PyMcaQAB
|
||||||
|
BBwAAgj/lpCOOQAAAA59Pi/DxWNK/5tXR/+07Pf/sur2/4zP4P+IRDP/iEQz/3o8Lv8iGhz/X11f/2BR
|
||||||
|
T+oAAQfkAAIIVQAAAAAAAAAADgcFJ6VSPeidTzv/bHd8/2GNnP+KfHv/rVZA/7lcRf/DYUn/xmNK/45m
|
||||||
|
Xv+npaf/NiEcfQAAAAAAAAAAAAAAAAAAAAAkEQ1RvV5H+sRiSv/EYkr/oYuE/7zDxP+WXlD/r1dB/8Nh
|
||||||
|
Sf/GZU3/8uXi/7+WjOQAAAAXAAAAAAAAAAAAAAAAAAAAAkMhGYPEYUr/xGFK/5FURP+f3e7/5vf5/6ez
|
||||||
|
tf+IWU7/nE46/8WNf//79PP/Ty8oggAAAAAeHiKOZGBhqgAAAAAAAAALRiMct1NQUv+4W0X/bmBf/4jO
|
||||||
|
4//h+Pz/4/f6/5GanP+IRTX/4dDM/8umnOkJBAMdAAIIqktJS6oAAAAAAAAAAAABBFsyMTT/r29g/490
|
||||||
|
b/9xW1j/YoiW/6vf7P+/9/3/fXx+/6BqXf/48/H/MRwWXAACCKpLSUuqAAIIVV1aW+MAAghVMjE0/4lt
|
||||||
|
ZveU3fH/jtbm/3i0xP+e1uX/eMni/3CToP+HQzL/moN94wAAAA8AAgiqQD5BxhITGOMQERb/S0lL4zIx
|
||||||
|
NP8iFBFzgrC9/oPX8f+59v3/ruf0/12juv90XFf4fT4u9G83Kd4MBgQWAAIIqgACCP8AAghVAAIIVRAR
|
||||||
|
Fv8yMTT/AAAABiUUEEscMjl0L1FdmCpKVJwRHyNfAAAAHwAAABgAAAAQAAAAAgACCKoZGR6qAAAAAAAA
|
||||||
|
AAAAAgiqJSUp4wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/8KxB/ACsQcAA
|
||||||
|
rEEACKxBAASsQQAArEEAAaxBgAOsQcABrEHAAaxBIACsQTAArEEAAKxBAACsQQAArEEz/6xB
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
26
SW/20211125/AssessmentMgmt/Diverse Formulare/frmMsgBox.vb
Normal file
26
SW/20211125/AssessmentMgmt/Diverse Formulare/frmMsgBox.vb
Normal file
@@ -0,0 +1,26 @@
|
|||||||
|
Public Class frmMsgBox
|
||||||
|
|
||||||
|
Private Sub btnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYes.Click
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.Yes
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnno.Click
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.No
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub frmMsgBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
106
SW/20211125/AssessmentMgmt/Diverse Formulare/frmSplash.designer.vb
generated
Normal file
106
SW/20211125/AssessmentMgmt/Diverse Formulare/frmSplash.designer.vb
generated
Normal file
@@ -0,0 +1,106 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmSplash
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Me.components = New System.ComponentModel.Container()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSplash))
|
||||||
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||||
|
Me.lblVersion = New System.Windows.Forms.Label()
|
||||||
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||||
|
Me.lblversiondatum = New System.Windows.Forms.Label()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.Panel1.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.BackColor = System.Drawing.Color.White
|
||||||
|
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
|
||||||
|
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(463, 334)
|
||||||
|
Me.PictureBox1.TabIndex = 0
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
|
'Timer1
|
||||||
|
'
|
||||||
|
Me.Timer1.Enabled = True
|
||||||
|
Me.Timer1.Interval = 3000
|
||||||
|
'
|
||||||
|
'lblVersion
|
||||||
|
'
|
||||||
|
Me.lblVersion.BackColor = System.Drawing.Color.White
|
||||||
|
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblVersion.Location = New System.Drawing.Point(3, 0)
|
||||||
|
Me.lblVersion.Name = "lblVersion"
|
||||||
|
Me.lblVersion.Size = New System.Drawing.Size(197, 24)
|
||||||
|
Me.lblVersion.TabIndex = 1
|
||||||
|
Me.lblVersion.Text = "Version "
|
||||||
|
Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
'
|
||||||
|
'Panel1
|
||||||
|
'
|
||||||
|
Me.Panel1.BackColor = System.Drawing.Color.White
|
||||||
|
Me.Panel1.Controls.Add(Me.lblversiondatum)
|
||||||
|
Me.Panel1.Controls.Add(Me.lblVersion)
|
||||||
|
Me.Panel1.Location = New System.Drawing.Point(246, 252)
|
||||||
|
Me.Panel1.Name = "Panel1"
|
||||||
|
Me.Panel1.Size = New System.Drawing.Size(195, 48)
|
||||||
|
Me.Panel1.TabIndex = 2
|
||||||
|
'
|
||||||
|
'lblversiondatum
|
||||||
|
'
|
||||||
|
Me.lblversiondatum.BackColor = System.Drawing.Color.White
|
||||||
|
Me.lblversiondatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblversiondatum.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.lblversiondatum.Name = "lblversiondatum"
|
||||||
|
Me.lblversiondatum.Size = New System.Drawing.Size(200, 24)
|
||||||
|
Me.lblversiondatum.TabIndex = 2
|
||||||
|
Me.lblversiondatum.Text = "Version "
|
||||||
|
Me.lblversiondatum.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
'
|
||||||
|
'frmSplash
|
||||||
|
'
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||||
|
Me.ClientSize = New System.Drawing.Size(463, 334)
|
||||||
|
Me.ControlBox = False
|
||||||
|
Me.Controls.Add(Me.Panel1)
|
||||||
|
Me.Controls.Add(Me.PictureBox1)
|
||||||
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||||
|
Me.Name = "frmSplash"
|
||||||
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
|
Me.Text = "frmSplash"
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.Panel1.ResumeLayout(False)
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||||
|
Friend WithEvents Timer1 As System.Windows.Forms.Timer
|
||||||
|
Friend WithEvents lblVersion As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||||
|
Friend WithEvents lblversiondatum As System.Windows.Forms.Label
|
||||||
|
End Class
|
||||||
1942
SW/20211125/AssessmentMgmt/Diverse Formulare/frmSplash.resx
Normal file
1942
SW/20211125/AssessmentMgmt/Diverse Formulare/frmSplash.resx
Normal file
File diff suppressed because it is too large
Load Diff
15
SW/20211125/AssessmentMgmt/Diverse Formulare/frmSplash.vb
Normal file
15
SW/20211125/AssessmentMgmt/Diverse Formulare/frmSplash.vb
Normal file
@@ -0,0 +1,15 @@
|
|||||||
|
Public Class frmSplash
|
||||||
|
|
||||||
|
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||||
|
Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
|
||||||
|
Me.lblVersiondatum.text = Globals.Versionsdatum
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
412
SW/20211125/AssessmentMgmt/ISI_Uebersicht/clsISIUebersicht.vb
Normal file
412
SW/20211125/AssessmentMgmt/ISI_Uebersicht/clsISIUebersicht.vb
Normal file
@@ -0,0 +1,412 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports DevComponents
|
||||||
|
Imports DropDownControls
|
||||||
|
|
||||||
|
Public Class clsISIUebersicht
|
||||||
|
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||||
|
Dim daten As New DataTable
|
||||||
|
|
||||||
|
Public Sub Get_Data(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Typ As Integer)
|
||||||
|
Try
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "sp_get_isidata"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Typ))
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ds, "Datatable1")
|
||||||
|
Dim status As New clsStatus
|
||||||
|
c1daten.DataSource = Nothing
|
||||||
|
c1daten.DataSource = ds.Tables(0)
|
||||||
|
c1daten.DataMember = ds.Tables(0).TableName
|
||||||
|
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefschritt", ds.Tables(0))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Class IsiTree
|
||||||
|
#Region "Deklarationen"
|
||||||
|
|
||||||
|
Dim treedata As New DataSet
|
||||||
|
|
||||||
|
Dim TreeaufbauSuche As Boolean = False
|
||||||
|
Dim TreeaufbauNr As Integer = 0
|
||||||
|
Dim FoundNode As Integer = 0
|
||||||
|
Dim Searchstring As String = ""
|
||||||
|
Public Treesearch As New AdvTree.AdvTree
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Tree"
|
||||||
|
|
||||||
|
Public Sub Load_Treeview(ByRef tree As DevComponents.AdvTree.AdvTree)
|
||||||
|
tree.Nodes.Clear()
|
||||||
|
TreeaufbauNr = -1
|
||||||
|
Load_Treedata("")
|
||||||
|
If Not (treedata Is Nothing) Then
|
||||||
|
Dim oView As DataView = treedata.Tables(0).DefaultView
|
||||||
|
Dim oTable As DataTable = oView.Table
|
||||||
|
Dim oDS As DataSet = New DataSet()
|
||||||
|
oDS.Tables.Add(oTable.Copy())
|
||||||
|
|
||||||
|
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
||||||
|
oDS.Relations.Add("SelfRefenceRelation",
|
||||||
|
oDS.Tables(0).Columns("id"),
|
||||||
|
oDS.Tables(0).Columns("Parentid"))
|
||||||
|
End If
|
||||||
|
oTable.Dispose()
|
||||||
|
oTable = Nothing
|
||||||
|
|
||||||
|
LoadTreeView(oDS, tree)
|
||||||
|
oDS.Dispose()
|
||||||
|
oDS = Nothing
|
||||||
|
tree.ExpandAll()
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function Load_Treedata(ByVal datatype As String) As DataTable
|
||||||
|
treedata.Tables.Clear()
|
||||||
|
Dim selectcommand As New SqlCommand
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
|
||||||
|
selectcommand.CommandText = "sp_get_Isi_Struktur"
|
||||||
|
selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
|
||||||
|
selectcommand.Parameters(0).Value = datatype
|
||||||
|
selectcommand.CommandType = CommandType.StoredProcedure
|
||||||
|
selectcommand.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = selectcommand
|
||||||
|
da.Fill(treedata, "Tree")
|
||||||
|
If treedata_for_search.Rows.Count < 1 Then
|
||||||
|
For Each c As DataColumn In treedata.Tables(0).Columns
|
||||||
|
If c.ColumnName = "ErweiterteSuche" Then
|
||||||
|
Dim dc As New DataColumn
|
||||||
|
dc.ColumnName = "ErweiterteSuche"
|
||||||
|
dc.DataType = System.Type.GetType("System.String")
|
||||||
|
dc.DefaultValue = " "
|
||||||
|
Try
|
||||||
|
Globals.treedata_for_search.Columns.Add(dc)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
Try
|
||||||
|
Globals.treedata_for_search.Columns.Add(c.ColumnName)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
For Each row As DataRow In treedata.Tables(0).Rows
|
||||||
|
Globals.treedata_for_search.ImportRow(row)
|
||||||
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
'MsgBox(ex.Message)
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
selectcommand.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Protected Function GetAllNodes(ByVal treestruktur As DevComponents.AdvTree.AdvTree) As List(Of TreeNode)
|
||||||
|
|
||||||
|
Dim allNodes As List(Of TreeNode) = New List(Of TreeNode)()
|
||||||
|
|
||||||
|
' start recursion for each root node of the treeview
|
||||||
|
For i As Integer = 0 To treestruktur.Nodes.Count - 1
|
||||||
|
GetAllNodes(treestruktur.Nodes(i), allNodes)
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return allNodes
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Protected Sub GetAllNodes(ByVal subRoot As DevComponents.AdvTree.Node, ByVal allNodes As List(Of TreeNode))
|
||||||
|
|
||||||
|
' check for null (this can be removed since within th
|
||||||
|
If (subRoot Is Nothing) Then
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
' add subroot
|
||||||
|
Dim r As DataRow
|
||||||
|
r = treedata_for_search.NewRow
|
||||||
|
r.Item(0) = subRoot.Tag
|
||||||
|
Try
|
||||||
|
r.Item(1) = subRoot.Parent.Tag
|
||||||
|
Catch
|
||||||
|
r.Item(1) = 0
|
||||||
|
End Try
|
||||||
|
|
||||||
|
r.Item(2) = subRoot.Text
|
||||||
|
r.Item(3) = subRoot.ImageIndex
|
||||||
|
treedata_for_search.Rows.Add(r)
|
||||||
|
'allNodes.Add(subRoot)
|
||||||
|
' add all it's children
|
||||||
|
For i As Integer = 0 To subRoot.Nodes.Count - 1
|
||||||
|
GetAllNodes(subRoot.Nodes(i), allNodes)
|
||||||
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Tree aufbauen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="oDS"></param>
|
||||||
|
''' <param name="oTreeview"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As DevComponents.AdvTree.AdvTree)
|
||||||
|
'Dim oTreeView As TreeView = New TreeView()
|
||||||
|
Dim oDataRow As DataRow
|
||||||
|
For Each oDataRow In oDS.Tables(0).Rows
|
||||||
|
If Not oDataRow.IsNull("Parentid") Then
|
||||||
|
If oDataRow.Item("Parentid") = 0 Then
|
||||||
|
'If oDataRow.IsNull("Parentid") Then
|
||||||
|
Dim oNode As New DevComponents.AdvTree.Node
|
||||||
|
oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
|
||||||
|
Try
|
||||||
|
'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
oNode.Tag = oDataRow("id").ToString
|
||||||
|
oNode.ImageIndex = oDataRow("ImageIndex")
|
||||||
|
oTreeview.Nodes.Add(oNode)
|
||||||
|
RecursivelyLoadTree(oDataRow, oNode)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next oDataRow
|
||||||
|
oDS.Dispose()
|
||||||
|
oDS = Nothing
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Child-Nodes hinzufügen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="oDataRow"></param>
|
||||||
|
''' <param name="oNode"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
|
||||||
|
Dim oChildRow As DataRow
|
||||||
|
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
||||||
|
Dim oChildNode As New DevComponents.AdvTree.Node
|
||||||
|
oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
|
||||||
|
oChildNode.Tag = oChildRow("id").ToString()
|
||||||
|
oChildNode.ImageIndex = oChildRow("ImageIndex")
|
||||||
|
|
||||||
|
oNode.Nodes.Add(oChildNode)
|
||||||
|
RecursivelyLoadTree(oChildRow, oChildNode)
|
||||||
|
Next oChildRow
|
||||||
|
End Sub
|
||||||
|
Public Function FindNode(ByVal _nodeCollection As AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As AdvTree.Node
|
||||||
|
Dim tmpNode As AdvTree.Node
|
||||||
|
For Each _child As AdvTree.Node In _nodeCollection
|
||||||
|
If _child.Tag = SearchVal Then
|
||||||
|
|
||||||
|
Return _child
|
||||||
|
End If
|
||||||
|
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
|
||||||
|
' Return _child
|
||||||
|
' End If
|
||||||
|
tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
|
||||||
|
If Not tmpNode Is Nothing Then
|
||||||
|
Return tmpNode
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Return Nothing
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function Init_Search()
|
||||||
|
FoundNode = 0
|
||||||
|
Searchstring = ""
|
||||||
|
Me.Treesearch.Nodes.Clear()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function SearchNode(ByRef tree As AdvTree.AdvTree, ByVal SearchString As String) As AdvTree.Node
|
||||||
|
'Return tree.FindNodeByCellText(SearchString)
|
||||||
|
|
||||||
|
Me.Treesearch.Nodes.Clear()
|
||||||
|
For Each dr As DataRow In treedata_for_search.Rows
|
||||||
|
'InStr(UCase(SearchString), UCase(dr.Item("Bezeichnung")))
|
||||||
|
If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
|
||||||
|
Dim tn As New AdvTree.Node
|
||||||
|
tn.Text = dr.Item("Bezeichnung")
|
||||||
|
tn.Tag = dr.Item("id")
|
||||||
|
Treesearch.Nodes.Add(tn)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Return FindFirst(tree)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function FindFirst(ByRef Tree As AdvTree.AdvTree) As AdvTree.Node
|
||||||
|
Try
|
||||||
|
If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
|
||||||
|
Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Public Function FindNextNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||||
|
Try
|
||||||
|
Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
|
||||||
|
If Treesearch.SelectedNode Is Nothing Then
|
||||||
|
Return FindFirst(tree)
|
||||||
|
End If
|
||||||
|
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function FindPrevNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||||
|
Try
|
||||||
|
Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
|
||||||
|
If Treesearch.SelectedNode Is Nothing Then
|
||||||
|
Return FindLastNode(tree)
|
||||||
|
End If
|
||||||
|
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function FindLastNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||||
|
Try
|
||||||
|
Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
|
||||||
|
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "ComboboxTree"
|
||||||
|
|
||||||
|
Public Sub Load_ComboboxTree(ByRef tree As Object)
|
||||||
|
tree.Nodes.Clear()
|
||||||
|
TreeaufbauNr = -1
|
||||||
|
Load_Treedata("")
|
||||||
|
If Not (treedata Is Nothing) Then
|
||||||
|
Dim oView As DataView = treedata.Tables(0).DefaultView
|
||||||
|
Dim oTable As DataTable = oView.Table
|
||||||
|
Dim oDS As DataSet = New DataSet()
|
||||||
|
oDS.Tables.Add(oTable.Copy())
|
||||||
|
|
||||||
|
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
||||||
|
oDS.Relations.Add("SelfRefenceRelation",
|
||||||
|
oDS.Tables(0).Columns("id"),
|
||||||
|
oDS.Tables(0).Columns("Parentid"))
|
||||||
|
End If
|
||||||
|
oTable.Dispose()
|
||||||
|
oTable = Nothing
|
||||||
|
|
||||||
|
LoadTreeView1(oDS, tree)
|
||||||
|
oDS.Dispose()
|
||||||
|
oDS = Nothing
|
||||||
|
tree.ExpandAll()
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub LoadTreeView1(ByVal oDS As DataSet, ByRef oTreeview As Object)
|
||||||
|
'Dim oTreeView As TreeView = New TreeView()
|
||||||
|
Dim oDataRow As DataRow
|
||||||
|
For Each oDataRow In oDS.Tables(0).Rows
|
||||||
|
If Not oDataRow.IsNull("Parentid") Then
|
||||||
|
If oDataRow.Item("Parentid") = 0 Then
|
||||||
|
'If oDataRow.IsNull("Parentid") Then
|
||||||
|
Dim oNode As New ComboTreeNode
|
||||||
|
oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
|
||||||
|
Try
|
||||||
|
'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
oNode.Tag = oDataRow("id").ToString
|
||||||
|
oNode.ImageIndex = oDataRow("ImageIndex")
|
||||||
|
oTreeview.Nodes.Add(oNode)
|
||||||
|
RecursivelyLoadTree1(oDataRow, oNode)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next oDataRow
|
||||||
|
oDS.Dispose()
|
||||||
|
oDS = Nothing
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Child-Nodes hinzufügen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="oDataRow"></param>
|
||||||
|
''' <param name="oNode"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub RecursivelyLoadTree1(ByVal oDataRow As DataRow, ByRef oNode As ComboTreeNode)
|
||||||
|
Dim oChildRow As DataRow
|
||||||
|
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
||||||
|
Dim oChildNode As New ComboTreeNode
|
||||||
|
oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
|
||||||
|
oChildNode.Tag = oChildRow("id").ToString()
|
||||||
|
oChildNode.ImageIndex = oChildRow("ImageIndex")
|
||||||
|
|
||||||
|
oNode.Nodes.Add(oChildNode)
|
||||||
|
RecursivelyLoadTree1(oChildRow, oChildNode)
|
||||||
|
Next oChildRow
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function ComboboxTree_FindNode(ByVal _nodeCollection As ComboTreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As ComboTreeNode
|
||||||
|
Dim tmpNode As ComboTreeNode
|
||||||
|
For Each _child As ComboTreeNode In _nodeCollection
|
||||||
|
If _child.Tag = SearchVal Then
|
||||||
|
|
||||||
|
Return _child
|
||||||
|
End If
|
||||||
|
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
|
||||||
|
' Return _child
|
||||||
|
' End If
|
||||||
|
tmpNode = ComboboxTree_FindNode(_child.Nodes, SearchVal, SearchString)
|
||||||
|
If Not tmpNode Is Nothing Then
|
||||||
|
Return tmpNode
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Return Nothing
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
End Class
|
||||||
|
|
||||||
1968
SW/20211125/AssessmentMgmt/ISI_Uebersicht/frmISI.Designer.vb
generated
Normal file
1968
SW/20211125/AssessmentMgmt/ISI_Uebersicht/frmISI.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
4305
SW/20211125/AssessmentMgmt/ISI_Uebersicht/frmISI.resx
Normal file
4305
SW/20211125/AssessmentMgmt/ISI_Uebersicht/frmISI.resx
Normal file
File diff suppressed because it is too large
Load Diff
713
SW/20211125/AssessmentMgmt/ISI_Uebersicht/frmISI.vb
Normal file
713
SW/20211125/AssessmentMgmt/ISI_Uebersicht/frmISI.vb
Normal file
@@ -0,0 +1,713 @@
|
|||||||
|
Imports DevComponents.AdvTree
|
||||||
|
Imports System.ComponentModel
|
||||||
|
Imports C1.Win.C1TrueDBGrid
|
||||||
|
|
||||||
|
Public Class frmISI
|
||||||
|
|
||||||
|
Dim clsisiTree As New IsiTree
|
||||||
|
Dim clsisi As New clsISIUebersicht
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Deklarationen"
|
||||||
|
|
||||||
|
|
||||||
|
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
|
||||||
|
Dim sec As New Utils.MySecurity
|
||||||
|
Dim msg As New Utils.MyMessage
|
||||||
|
Dim FormReadonly As Boolean = False
|
||||||
|
Dim FormDataChanged As Boolean = False
|
||||||
|
Dim Pruefschritt As New clsPruefschritt
|
||||||
|
Dim Pruefschrittresultat As New clsPruefschrittResultat
|
||||||
|
Dim Pruefschrttmassnahme As New clsPruefschrittMassnahme
|
||||||
|
Dim Pruefschrittfinding As New clsFinding
|
||||||
|
Dim OnRefreshAll As Boolean = False
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
Sub New()
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
Me.ImageList1 = Globals.StatusImages
|
||||||
|
Me.TreeUebersicht.ImageList = Me.ImageList1
|
||||||
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub frmPruefschrittUebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||||
|
Refresh_Tree()
|
||||||
|
sec.Set_Form_Security(Me)
|
||||||
|
If Me.AssessmentZuteilenToolStripMenuItem.Enabled = False Or Me.AssessmentZuteilenToolStripMenuItem.Visible = False Then Me.DokumenteAllgemein.Show_Toolbar = False
|
||||||
|
' Refresh_All()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_Tree()
|
||||||
|
Try
|
||||||
|
Me.Cursor = Cursors.WaitCursor
|
||||||
|
Application.DoEvents()
|
||||||
|
clsisiTree.Load_Treeview(Me.TreeUebersicht)
|
||||||
|
Me.TreeUebersicht.ExpandAll()
|
||||||
|
Me.TreeUebersicht.SelectedNode = Me.TreeUebersicht.Nodes(0)
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
Me.Cursor = Cursors.Default
|
||||||
|
Application.DoEvents()
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Load_Status()
|
||||||
|
|
||||||
|
Me.DokumenteAllgemein.Show_Toolbar = False
|
||||||
|
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
|
||||||
|
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
'Me.DokumenteAllgemein.Doktype = 1
|
||||||
|
'Me.DokumenteAllgemein.ThemaNr = 0
|
||||||
|
Me.DokumenteAllgemein.Refresh()
|
||||||
|
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||||
|
|
||||||
|
Me.DokumenteFindings.Show_Toolbar = False
|
||||||
|
Me.DokumenteFindings.ConnectionString = Globals.sConnectionString
|
||||||
|
Me.DokumenteFindings.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
Me.DokumenteFindings.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||||
|
|
||||||
|
Me.DokumenteMassnahmen.Show_Toolbar = False
|
||||||
|
Me.DokumenteMassnahmen.ConnectionString = Globals.sConnectionString
|
||||||
|
Me.DokumenteMassnahmen.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
Me.DokumenteMassnahmen.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||||
|
|
||||||
|
|
||||||
|
Me.TreeUebersicht.Nodes.Clear()
|
||||||
|
Dim i As Integer = 0
|
||||||
|
For Each r As DataRow In Pruefschritt.Pruefschrittstatus.Rows
|
||||||
|
Dim tn As New DevComponents.AdvTree.Node
|
||||||
|
tn.Text = r("Bezeichnung")
|
||||||
|
tn.Tag = r(0)
|
||||||
|
tn.ImageIndex = i
|
||||||
|
i = i + 1
|
||||||
|
Me.TreeUebersicht.Nodes.Add(tn)
|
||||||
|
Next
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub TreeUebersicht_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles TreeUebersicht.AfterNodeSelect
|
||||||
|
Try
|
||||||
|
Refresh_All()
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
|
||||||
|
refresh_all_Details()
|
||||||
|
|
||||||
|
Dim cps As New clsPruefschritt
|
||||||
|
|
||||||
|
Try
|
||||||
|
cps.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then
|
||||||
|
Me.tsbtnAssessmentAnzeigen.Visible = True
|
||||||
|
Me.tsbtnPruefschrittbearbeiten.Visible = False
|
||||||
|
|
||||||
|
Else
|
||||||
|
Me.tsbtnAssessmentAnzeigen.Visible = False
|
||||||
|
Me.tsbtnPruefschrittbearbeiten.Visible = True
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
If cps.iStatusnr = 6 Then
|
||||||
|
Me.AssessmentZuteilenToolStripMenuItem.Visible = False
|
||||||
|
Else
|
||||||
|
Me.AssessmentZuteilenToolStripMenuItem.Visible = True
|
||||||
|
End If
|
||||||
|
Catch
|
||||||
|
Finally
|
||||||
|
cps.dispose()
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Sub refresh_all_Details()
|
||||||
|
If OnRefreshAll Then Exit Sub
|
||||||
|
Me.DokumenteAllgemein.Init()
|
||||||
|
Me.C1Findings.DataSource = Nothing
|
||||||
|
Me.C1Massnahmen.DataSource = Nothing
|
||||||
|
Me.C1Notiz.DataSource = Nothing
|
||||||
|
Me.DokumenteAllgemein.Pruefschrittnr = -1
|
||||||
|
Try
|
||||||
|
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
||||||
|
'refresh_all_Details()
|
||||||
|
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
Refresh_Dokumente_Resultat()
|
||||||
|
Refresh_notizen()
|
||||||
|
Refresh_History()
|
||||||
|
Refresh_Resultat()
|
||||||
|
Refresh_Vorgaben()
|
||||||
|
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Refresh_Details()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_Vorgaben()
|
||||||
|
Me.Pruefschritt.Get_Vorgaben(Me.C1Vorgaben, Me.C1Daten.Columns("Pruefplannr").Value)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_notizen()
|
||||||
|
Dim notizen As New clsPruefschrittNotiz
|
||||||
|
Try
|
||||||
|
notizen.Get_Eintraege(Me.C1Notiz, Me.C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_History()
|
||||||
|
Dim history As New clsHistory
|
||||||
|
Try
|
||||||
|
history.Get_Eintraege(Me.C1History, Me.C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_Resultat()
|
||||||
|
Try
|
||||||
|
Pruefschrittresultat.Get_Data(Me.C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
Me.txtKurzbeschreibungResultat.Text = Pruefschrittresultat.sKurzbeschreibung.Value
|
||||||
|
Me.txtBeschreibungResultat.Text = Pruefschrittresultat.sBeschreibung.Value
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Refresh_Findings()
|
||||||
|
Refresh_All_Findings()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_Findings()
|
||||||
|
Try
|
||||||
|
Refresh_Finding_Dokumente()
|
||||||
|
Me.Pruefschrittfinding.Get_Eintraege(Me.C1Findings, Me.Pruefschrittresultat.iPruefSchrittResultatNr.Value, ImageListFindings)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Refresh_Massnahmen()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_Massnahmen()
|
||||||
|
Try
|
||||||
|
DokumenteMassnahmen.Init()
|
||||||
|
Me.Pruefschrttmassnahme.Get_Eintraege(Me.C1Massnahmen, Me.C1Findings.Columns("Pruefschrittresultatnr").Value, Me.ImageListFindings)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Sub Refresh_All(Optional key As Integer = 0)
|
||||||
|
Me.OnRefreshAll = True
|
||||||
|
|
||||||
|
|
||||||
|
clsisi.Get_Data(C1Daten, Me.TreeUebersicht.SelectedNode.Tag)
|
||||||
|
If C1Daten.Splits(0).Rows.Count = 0 Then
|
||||||
|
Me.tsbtnAssessmentAnzeigen.Visible = False
|
||||||
|
Me.tsbtnPruefschrittbearbeiten.Visible = False
|
||||||
|
End If
|
||||||
|
Me.OnRefreshAll = False
|
||||||
|
refresh_all_Details()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Sub Refresh_Details()
|
||||||
|
Try
|
||||||
|
Me.txtBezeichnung.Text = ""
|
||||||
|
Me.txtBeschreibung.Text = ""
|
||||||
|
Me.txtPruefgegenstand.Text = ""
|
||||||
|
Me.txtMassnahmen.Text = ""
|
||||||
|
Me.txtEreignisse.Text = ""
|
||||||
|
Me.txtHilfsmittel.Text = ""
|
||||||
|
Me.txtVerantwortlich.Text = ""
|
||||||
|
Me.txtVerantwortungISI.Text = ""
|
||||||
|
Me.txtAktuellVerantwortlich.Text = ""
|
||||||
|
Me.txtTermin.Text = ""
|
||||||
|
Me.txtZugewiesen.Text = ""
|
||||||
|
Me.txtErstelltam.Text = ""
|
||||||
|
Me.txtMutiertam.Text = ""
|
||||||
|
Me.txtMutierer.Text = ""
|
||||||
|
|
||||||
|
Me.txtBezeichnung.Text = Me.C1Daten.Columns("Bezeichnung").Value
|
||||||
|
Me.txtBeschreibung.Text = Me.C1Daten.Columns("Beschreibung").Value
|
||||||
|
Me.txtPruefgegenstand.Text = Me.C1Daten.Columns("Pruefgegenstand").Value
|
||||||
|
Me.txtMassnahmen.Text = Me.C1Daten.Columns("Massnahmen").Value
|
||||||
|
Me.txtEreignisse.Text = Me.C1Daten.Columns("Ergebnisse").Value
|
||||||
|
Me.txtHilfsmittel.Text = Me.C1Daten.Columns("Hilfsmittel").Value
|
||||||
|
|
||||||
|
Me.txtVerantwortlich.Text = Me.C1Daten.Columns("Hauptverantwortung").Value
|
||||||
|
Me.txtVerantwortungPlan.Text = Me.C1Daten.Columns("VerantwortungPlan").Value
|
||||||
|
Me.txtAktuellVerantwortlich.Text = Me.C1Daten.Columns("aktuell_verantwortlich").Value
|
||||||
|
Me.txtVerantwortungISI.Text = Me.C1Daten.Columns("Verantwortung_isi").Value
|
||||||
|
Me.txtZugewiesen.Text = Me.C1Daten.Columns("Zugewiesen").Value
|
||||||
|
Me.txtErstelltam.Text = Me.C1Daten.Columns("erstellt_am").Value
|
||||||
|
Me.txtMutiertam.Text = Me.C1Daten.Columns("mutiert_am").Value
|
||||||
|
Me.txtMutierer.Text = Me.C1Daten.Columns("mutierer").Value
|
||||||
|
|
||||||
|
Me.txtTermin.Text = Me.C1Daten.Columns("Termin").Value
|
||||||
|
Catch ex As Exception
|
||||||
|
'MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub WeiterleitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WeiterleitenToolStripMenuItem.Click
|
||||||
|
Try
|
||||||
|
Dim f As New frmWeitergabe(Me.C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
f.ShowDialog()
|
||||||
|
If f.DialogResult = DialogResult.OK Then
|
||||||
|
Dim clsnotiz As New clsPruefschrittNotiz
|
||||||
|
clsnotiz.Add_New()
|
||||||
|
clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
|
||||||
|
clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("Pruefschrittnr").Value, Int32))
|
||||||
|
clsnotiz.Save_Data()
|
||||||
|
clsnotiz = Nothing
|
||||||
|
|
||||||
|
Dim History As New clsHistory
|
||||||
|
History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
|
||||||
|
History.Dispose()
|
||||||
|
|
||||||
|
Dim save_verantworlich As Integer
|
||||||
|
Me.Pruefschritt.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
save_verantworlich = Me.Pruefschritt.iAktueller_Verantwortlicher.Value
|
||||||
|
Me.Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
|
||||||
|
Me.Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(2, Int32))
|
||||||
|
Me.Pruefschritt.Save_Data()
|
||||||
|
If save_verantworlich <> Me.Pruefschritt.iAktueller_Verantwortlicher.Value Then
|
||||||
|
Pruefschritt.Insert_Message(1, Me.Pruefschritt.iPruefschrittNr.Value, Me.Pruefschritt.iAktueller_Verantwortlicher.Value, save_verantworlich, f.txtNotiz.Text)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Refresh_All()
|
||||||
|
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles tsbtnAktualisieren.Click
|
||||||
|
Dim tn As New DevComponents.AdvTree.Node
|
||||||
|
tn = Me.TreeUebersicht.SelectedNode
|
||||||
|
Refresh_Tree()
|
||||||
|
Me.TreeUebersicht.SelectedNode = tn
|
||||||
|
tn.Dispose()
|
||||||
|
Refresh_All()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub C1Notiz_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Notiz.RowColChange
|
||||||
|
Me.txtnotiz.Text = ""
|
||||||
|
Try
|
||||||
|
Me.txtnotiz.Text = Me.C1Notiz.Columns("Notiz").Value
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
|
||||||
|
Dim f As New PruefschrittDetailsBearbeitung
|
||||||
|
f.Pruefschrittnr = C1Daten.Columns("Pruefschrittnr").Value
|
||||||
|
f.MdiParent = Me.MdiParent
|
||||||
|
f.Handler = Me.Handle
|
||||||
|
Dim cps As New clsPruefschritt
|
||||||
|
|
||||||
|
cps.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
If cps.bDurchfuehrung_ISI.Value = True Then
|
||||||
|
If cps.Is_IsiMitarbeiter(Globals.clsmitarbeiter.iMitarbeiternr) = True Then
|
||||||
|
If cps.iStatusnr = 6 Then f.IsReadonly = True
|
||||||
|
Else
|
||||||
|
If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
|
||||||
|
End If
|
||||||
|
'If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
|
||||||
|
f.Show()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
|
||||||
|
Try
|
||||||
|
BearbeitenToolStripMenuItem_Click(sender, e)
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub tsbtnFindingBearbeiten_Click(sender As Object, e As EventArgs) Handles tsbtnPruefschrittbearbeiten.Click
|
||||||
|
Try
|
||||||
|
Me.C1Daten_DoubleClick(sender, e)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub evh_pruefschrittresultat_closed(handler As Integer, key As Integer) Handles evh.pruefschrittresultat_closed
|
||||||
|
Try
|
||||||
|
If Me.Handle = handler Then
|
||||||
|
Dim tn As New DevComponents.AdvTree.Node
|
||||||
|
tn = Me.TreeUebersicht.SelectedNode
|
||||||
|
Refresh_Tree()
|
||||||
|
Me.TreeUebersicht.SelectedNode = tn
|
||||||
|
Refresh_All(key)
|
||||||
|
End If
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub evh_Pruefschrittresultat_saved(handler As Integer, key As Integer) Handles evh.Pruefschrittresultat_saved
|
||||||
|
Try
|
||||||
|
If Me.Handle = handler Then
|
||||||
|
Dim tn As New DevComponents.AdvTree.Node
|
||||||
|
tn = Me.TreeUebersicht.SelectedNode
|
||||||
|
Refresh_Tree()
|
||||||
|
Me.TreeUebersicht.SelectedNode = tn
|
||||||
|
Refresh_All(key)
|
||||||
|
End If
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ctxMenuPruefschritt_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuPruefschritt.Opening
|
||||||
|
|
||||||
|
If Me.C1Daten.Splits(0).Rows.Count < 1 Then
|
||||||
|
Me.ctxMenuPruefschritt.Visible = False
|
||||||
|
Else
|
||||||
|
Me.ctxMenuPruefschritt.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Me.BearbeitenToolStripMenuItem.Visible = False
|
||||||
|
Me.WeiterleitenToolStripMenuItem.Visible = False
|
||||||
|
Me.AbschliessenToolStripMenuItem.Visible = False
|
||||||
|
Me.ZurückweisenToolStripMenuItem.Visible = False
|
||||||
|
|
||||||
|
Select Case Me.TreeUebersicht.SelectedNode.Tag
|
||||||
|
Case 1, 2, 3
|
||||||
|
If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
||||||
|
Me.BearbeitenToolStripMenuItem.Visible = True
|
||||||
|
Me.WeiterleitenToolStripMenuItem.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Case 4
|
||||||
|
|
||||||
|
Case 5
|
||||||
|
If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
||||||
|
Me.BearbeitenToolStripMenuItem.Visible = True
|
||||||
|
Me.ZurückweisenToolStripMenuItem.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Case 6
|
||||||
|
|
||||||
|
End Select
|
||||||
|
|
||||||
|
'Me.BearbeitenToolStripMenuItem.Enabled = False
|
||||||
|
'Me.WeiterleitenToolStripMenuItem.Enabled = False
|
||||||
|
'Me.AbschliessenToolStripMenuItem.Enabled = False
|
||||||
|
'Me.WeiterleitenToolStripMenuItem.Visible = True
|
||||||
|
|
||||||
|
|
||||||
|
''Prüfung abgeschlossen
|
||||||
|
'If Me.TreeUebersicht.SelectedNode.Tag < 4 Or Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
||||||
|
' Me.BearbeitenToolStripMenuItem.Enabled = True
|
||||||
|
' Me.WeiterleitenToolStripMenuItem.Enabled = True
|
||||||
|
' Me.AbschliessenToolStripMenuItem.Enabled = True
|
||||||
|
'End If
|
||||||
|
|
||||||
|
'If Me.TreeUebersicht.SelectedNode.Tag = 5 Then
|
||||||
|
' Me.ZurückweisenToolStripMenuItem.Visible = True
|
||||||
|
' Me.WeiterleitenToolStripMenuItem.Visible = False
|
||||||
|
'End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
|
||||||
|
Dim f As New PruefschrittDetailsBearbeitung
|
||||||
|
f.Pruefschrittnr = C1Daten.Columns("Pruefschrittnr").Value
|
||||||
|
f.MdiParent = Me.MdiParent
|
||||||
|
f.Handler = Me.Handle
|
||||||
|
f.IsReadonly = True
|
||||||
|
f.Show()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub AbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschliessenToolStripMenuItem.Click
|
||||||
|
If MsgBox("Ist das Assessment definitiv abgeschlossen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
|
||||||
|
Pruefschritt.Get_Data(Me.C1Daten.Columns("PruefschrittNr").Value)
|
||||||
|
|
||||||
|
Me.Pruefschritt.iStatusnr = 6
|
||||||
|
Me.Pruefschritt.Save_Data()
|
||||||
|
Dim History As New clsHistory
|
||||||
|
History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 2, Globals.clsmitarbeiter.iMitarbeiternr.Value, "")
|
||||||
|
History.Dispose()
|
||||||
|
|
||||||
|
Me.Refresh_All()
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub C1Findings_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Findings.RowColChange
|
||||||
|
Refresh_All_Findings()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_All_Findings()
|
||||||
|
Refresh_Finding_Dokumente()
|
||||||
|
Me.txtfindingbezeichnung.Text = ""
|
||||||
|
Me.txtfindingbeschreibung.Text = ""
|
||||||
|
Try
|
||||||
|
Me.txtfindingbeschreibung.Text = Me.C1Findings.Columns("Beschreibung").Value
|
||||||
|
Me.txtfindingbezeichnung.Text = Me.C1Findings.Columns("Bezeichnung").Value
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Refresh_MassnahmenFinding()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_Dokumente_Resultat()
|
||||||
|
|
||||||
|
Try
|
||||||
|
Me.DokumenteResultat.Show_Toolbar = False
|
||||||
|
Me.DokumenteResultat.ConnectionString = Globals.sConnectionString
|
||||||
|
Me.DokumenteResultat.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
Me.DokumenteResultat.Init()
|
||||||
|
|
||||||
|
Me.DokumenteResultat.Doktype = 4
|
||||||
|
Me.DokumenteResultat.ThemaNr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
||||||
|
Me.DokumenteResultat.Refresh_Dokumente()
|
||||||
|
Me.DokumenteResultat.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||||
|
Catch ex As Exception
|
||||||
|
Me.DokumenteResultat.Init()
|
||||||
|
Me.DokumenteResultat.Show_Toolbar = False
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
Sub Refresh_Finding_Dokumente()
|
||||||
|
If Me.C1Findings.Splits(0).Rows.Count < 1 Then
|
||||||
|
Me.DokumenteFindings.Init()
|
||||||
|
|
||||||
|
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
Try
|
||||||
|
Me.DokumenteFindings.Show_Toolbar = False
|
||||||
|
Me.DokumenteFindings.ConnectionString = Globals.sConnectionString
|
||||||
|
Me.DokumenteFindings.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
Me.DokumenteFindings.Init()
|
||||||
|
|
||||||
|
Me.DokumenteFindings.Doktype = 5
|
||||||
|
Me.DokumenteFindings.ThemaNr = Me.C1Findings.Columns("Pruefschrittfindingnr").Value
|
||||||
|
Me.DokumenteFindings.Refresh_Dokumente()
|
||||||
|
Me.DokumenteFindings.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||||
|
Catch ex As Exception
|
||||||
|
Me.DokumenteFindings.Init()
|
||||||
|
Me.DokumenteFindings.Show_Toolbar = False
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_MassnahmenFinding()
|
||||||
|
Me.C1Massnahmen.DataSource = Nothing
|
||||||
|
If Me.C1Findings.Splits(0).Rows.Count > 0 Then
|
||||||
|
Try
|
||||||
|
Dim Massnahmen As New clsPruefschrittMassnahme
|
||||||
|
Massnahmen.Get_Eintraege(Me.C1Massnahmen, Me.C1Findings.Columns("Pruefschrittfindingnr").Value, Me.ImageListeMassnahmen)
|
||||||
|
Refresh_Massnahmen_Dokument()
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub Refresh_Massnahmen_Dokument()
|
||||||
|
|
||||||
|
|
||||||
|
If Me.C1Massnahmen.Splits(0).Rows.Count < 1 Then
|
||||||
|
Me.DokumenteMassnahmen.Init()
|
||||||
|
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
Try
|
||||||
|
Me.DokumenteMassnahmen.Show_Toolbar = False
|
||||||
|
Me.DokumenteMassnahmen.ConnectionString = Globals.sConnectionString
|
||||||
|
Me.DokumenteMassnahmen.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
Me.DokumenteMassnahmen.Init()
|
||||||
|
|
||||||
|
Me.DokumenteMassnahmen.Doktype = 6
|
||||||
|
Me.DokumenteMassnahmen.ThemaNr = Me.C1Massnahmen.Columns("Pruefschrittmassnahmenr").Value
|
||||||
|
Me.DokumenteMassnahmen.Refresh_Dokumente()
|
||||||
|
Me.DokumenteMassnahmen.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||||
|
Catch ex As Exception
|
||||||
|
Me.DokumenteMassnahmen.Init()
|
||||||
|
Me.DokumenteMassnahmen.Show_Toolbar = False
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub C1Massnahmen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Massnahmen.RowColChange
|
||||||
|
Me.txtmassnahmebezeichnung.Text = ""
|
||||||
|
Me.txtMassnahmebeschreibung.Text = ""
|
||||||
|
Me.txtMassnahmeResultat.Text = ""
|
||||||
|
|
||||||
|
Try
|
||||||
|
Me.txtmassnahmebezeichnung.Text = Me.C1Massnahmen.Columns("Kurzbeschreibung").Value
|
||||||
|
Me.txtMassnahmebeschreibung.Text = Me.C1Massnahmen.Columns("Beschreibung").Value
|
||||||
|
Me.txtMassnahmeResultat.Text = Me.C1Massnahmen.Columns("MassnahmeResultat").Value
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub C1Vorgaben_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Vorgaben.RowColChange
|
||||||
|
Try
|
||||||
|
Me.txtStruktur.Text = Me.C1Vorgaben.Columns("Struktur").Value
|
||||||
|
Me.txtDefinitionBezeichnung.Text = Me.C1Vorgaben.Columns("Bezeichnung").Value
|
||||||
|
Me.txtDefinitionBeschreibung.Text = Me.C1Vorgaben.Columns("Definition").Value
|
||||||
|
Me.txtDefinitionBemerkung.Text = Me.C1Vorgaben.Columns("Bemerkungen").Value
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Try
|
||||||
|
Me.DokumenteDefinition.Show_Toolbar = True
|
||||||
|
Me.DokumenteDefinition.ConnectionString = Globals.sConnectionString
|
||||||
|
Me.DokumenteDefinition.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
Me.DokumenteDefinition.Doktype = 2
|
||||||
|
Try
|
||||||
|
Me.DokumenteDefinition.ThemaNr = C1Vorgaben.Columns("VorgabeDefinitionNr").Value
|
||||||
|
Catch
|
||||||
|
Me.DokumenteDefinition.ThemaNr = -1
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Me.DokumenteDefinition.Refresh()
|
||||||
|
Me.DokumenteDefinition.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ZurückweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZurückweisenToolStripMenuItem.Click
|
||||||
|
Try
|
||||||
|
Dim f As New frmWeitergabe(Me.C1Daten.Columns("Pruefschrittnr").Value, Me.C1Daten.Columns("Verantwortungnr").Value, True)
|
||||||
|
f.Text = "Assessment zurückweisen"
|
||||||
|
f.btnok.Text = "Zurückweisen"
|
||||||
|
f.ShowDialog()
|
||||||
|
If f.DialogResult = DialogResult.OK Then
|
||||||
|
Dim clsnotiz As New clsPruefschrittNotiz
|
||||||
|
clsnotiz.Add_New()
|
||||||
|
clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
|
||||||
|
clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("Pruefschrittnr").Value, Int32))
|
||||||
|
clsnotiz.Save_Data()
|
||||||
|
clsnotiz = Nothing
|
||||||
|
|
||||||
|
Dim History As New clsHistory
|
||||||
|
History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
|
||||||
|
History.Dispose()
|
||||||
|
|
||||||
|
Me.Pruefschritt.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
Me.Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
|
||||||
|
Me.Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(2, Int32))
|
||||||
|
Me.Pruefschritt.Save_Data()
|
||||||
|
Dim tn As New DevComponents.AdvTree.Node
|
||||||
|
tn = Me.TreeUebersicht.SelectedNode
|
||||||
|
Refresh_Tree()
|
||||||
|
Me.TreeUebersicht.SelectedNode = tn
|
||||||
|
Refresh_All()
|
||||||
|
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub tsbtnAssessmentAnzeigen_Click(sender As Object, e As EventArgs) Handles tsbtnAssessmentAnzeigen.Click
|
||||||
|
Try
|
||||||
|
Me.C1Daten_DoubleClick(sender, e)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub AssessmentZuteilenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AssessmentZuteilenToolStripMenuItem.Click
|
||||||
|
Try
|
||||||
|
Dim f As New frmWeitergabe(Me.C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
f.ShowDialog()
|
||||||
|
If f.DialogResult = DialogResult.OK Then
|
||||||
|
Dim clsnotiz As New clsPruefschrittNotiz
|
||||||
|
clsnotiz.Add_New()
|
||||||
|
clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
|
||||||
|
clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("Pruefschrittnr").Value, Int32))
|
||||||
|
clsnotiz.Save_Data()
|
||||||
|
clsnotiz = Nothing
|
||||||
|
|
||||||
|
Dim History As New clsHistory
|
||||||
|
History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
|
||||||
|
History.Dispose()
|
||||||
|
|
||||||
|
Dim save_verantworlich As Integer
|
||||||
|
Me.Pruefschritt.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
save_verantworlich = Me.Pruefschritt.iAktueller_Verantwortlicher.Value
|
||||||
|
Me.Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
|
||||||
|
Me.Pruefschritt.Save_Data()
|
||||||
|
If save_verantworlich <> Me.Pruefschritt.iAktueller_Verantwortlicher.Value Then
|
||||||
|
Pruefschritt.Insert_Message(1, Me.Pruefschritt.iPruefschrittNr.Value, Me.Pruefschritt.iAktueller_Verantwortlicher.Value, save_verantworlich, f.txtNotiz.Text)
|
||||||
|
End If
|
||||||
|
Dim tn As New DevComponents.AdvTree.Node
|
||||||
|
tn = Me.TreeUebersicht.SelectedNode
|
||||||
|
Refresh_Tree()
|
||||||
|
Me.TreeUebersicht.SelectedNode = tn
|
||||||
|
'Refresh_All(key)
|
||||||
|
Refresh_All()
|
||||||
|
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
|
||||||
|
Try
|
||||||
|
refresh_all_Details()
|
||||||
|
|
||||||
|
Dim cps As New clsPruefschritt
|
||||||
|
|
||||||
|
Try
|
||||||
|
cps.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
||||||
|
If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then
|
||||||
|
Me.tsbtnAssessmentAnzeigen.Visible = True
|
||||||
|
Me.tsbtnPruefschrittbearbeiten.Visible = False
|
||||||
|
|
||||||
|
Else
|
||||||
|
Me.tsbtnAssessmentAnzeigen.Visible = False
|
||||||
|
Me.tsbtnPruefschrittbearbeiten.Visible = True
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
If cps.iStatusnr = 6 Then
|
||||||
|
Me.AssessmentZuteilenToolStripMenuItem.Visible = False
|
||||||
|
Else
|
||||||
|
Me.AssessmentZuteilenToolStripMenuItem.Visible = True
|
||||||
|
End If
|
||||||
|
Catch
|
||||||
|
Finally
|
||||||
|
cps.dispose()
|
||||||
|
End Try
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
534
SW/20211125/AssessmentMgmt/Kategorie/clsKategorie.vb
Normal file
534
SW/20211125/AssessmentMgmt/Kategorie/clsKategorie.vb
Normal file
@@ -0,0 +1,534 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports DevComponents
|
||||||
|
Imports DropDownControls
|
||||||
|
|
||||||
|
Public Class clsKategorie
|
||||||
|
Inherits DB.clsKategorie
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Deklarationen"
|
||||||
|
Public daten As New DataTable
|
||||||
|
Public Neuer_Datensatz As Boolean = False
|
||||||
|
Public Mitarbeiterdaten As New DataTable
|
||||||
|
|
||||||
|
Dim stammdaten As New DB.clsStammdaten
|
||||||
|
|
||||||
|
Dim mMutierer As String
|
||||||
|
Property MutiererText() As String
|
||||||
|
Get
|
||||||
|
Return mMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As String)
|
||||||
|
mMutierer = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
MyBase.New()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Public Overloads Sub dispose()
|
||||||
|
MyBase.Dispose()
|
||||||
|
Try
|
||||||
|
Me.stammdaten = Nothing
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Mutierer auslesen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Get_Mutierer(ByVal nr As Integer) As String
|
||||||
|
Try
|
||||||
|
Dim ma As New DB.clsMitarbeiter
|
||||||
|
Dim dt As New DataTable
|
||||||
|
Dim Retvalue As String
|
||||||
|
ma.cpMainConnectionProvider = Globals.conn
|
||||||
|
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
|
||||||
|
dt = ma.SelectOne()
|
||||||
|
If dt.Rows.Count = 0 Then
|
||||||
|
Retvalue = ("{" + nr.ToString + "}")
|
||||||
|
Else
|
||||||
|
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
|
||||||
|
End If
|
||||||
|
ma.Dispose()
|
||||||
|
dt.Dispose()
|
||||||
|
Return Retvalue
|
||||||
|
Catch
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function Get_Data(ByVal Nr As Integer)
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iKategorienr = New SqlInt32(CType(Nr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.daten = Me.SelectOne()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Try
|
||||||
|
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
|
||||||
|
Catch ex As Exception
|
||||||
|
Me.MutiererText = ""
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Save_Data() As Integer
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Update()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Löschen eines Datensatzes erstellen.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
If bAktiv.Value = False Then Exit Function
|
||||||
|
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Update()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
MyBase.Delete()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Neue Person einfügen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Add_New() As Integer
|
||||||
|
Dim db As New DB.clsMyKey_Tabelle
|
||||||
|
db.cpMainConnectionProvider = Globals.conn
|
||||||
|
Dim newkey = db.get_dbkey("Kategorie")
|
||||||
|
db.Dispose()
|
||||||
|
Me.iKategorienr = New SqlInt32(CType(newkey, Int32))
|
||||||
|
Me.sBeschreibung = New SqlString(CType("", String))
|
||||||
|
Me.sBeschreibung_Lang = New SqlString(CType("", String))
|
||||||
|
|
||||||
|
Me.iParentid = New SqlInt32(CType(0, Int32))
|
||||||
|
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||||
|
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Try
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Insert()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Me.Neuer_Datensatz = True
|
||||||
|
Return Me.iKategorienr.Value
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
|
||||||
|
Public Class clsKategorieTree
|
||||||
|
|
||||||
|
#Region "Deklarationen"
|
||||||
|
|
||||||
|
Dim treedata As New DataSet
|
||||||
|
|
||||||
|
Dim TreeaufbauSuche As Boolean = False
|
||||||
|
Dim TreeaufbauNr As Integer = 0
|
||||||
|
Dim FoundNode As Integer = 0
|
||||||
|
Dim Searchstring As String = ""
|
||||||
|
Public Treesearch As New AdvTree.AdvTree
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Tree"
|
||||||
|
|
||||||
|
Public Sub Load_Treeview(ByRef tree As DevComponents.AdvTree.AdvTree)
|
||||||
|
tree.Nodes.Clear()
|
||||||
|
TreeaufbauNr = -1
|
||||||
|
Load_Treedata("")
|
||||||
|
If Not (treedata Is Nothing) Then
|
||||||
|
Dim oView As DataView = treedata.Tables(0).DefaultView
|
||||||
|
Dim oTable As DataTable = oView.Table
|
||||||
|
Dim oDS As DataSet = New DataSet()
|
||||||
|
oDS.Tables.Add(oTable.Copy())
|
||||||
|
|
||||||
|
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
||||||
|
oDS.Relations.Add("SelfRefenceRelation", _
|
||||||
|
oDS.Tables(0).Columns("id"), _
|
||||||
|
oDS.Tables(0).Columns("Parentid"))
|
||||||
|
End If
|
||||||
|
oTable.Dispose()
|
||||||
|
oTable = Nothing
|
||||||
|
|
||||||
|
LoadTreeView(oDS, tree)
|
||||||
|
oDS.Dispose()
|
||||||
|
oDS = Nothing
|
||||||
|
tree.ExpandAll()
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function Load_Treedata(ByVal datatype As String) As DataTable
|
||||||
|
treedata.Tables.Clear()
|
||||||
|
Dim selectcommand As New SqlCommand
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
|
||||||
|
selectcommand.CommandText = "sp_get_finma_struktur"
|
||||||
|
selectcommand.Parameters.Add("@Root", SqlDbType.VarChar)
|
||||||
|
selectcommand.Parameters(0).Value = datatype
|
||||||
|
selectcommand.CommandType = CommandType.StoredProcedure
|
||||||
|
selectcommand.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = selectcommand
|
||||||
|
da.Fill(treedata, "Tree")
|
||||||
|
If treedata_for_search.Rows.Count < 1 Then
|
||||||
|
For Each c As DataColumn In treedata.Tables(0).Columns
|
||||||
|
If c.ColumnName = "ErweiterteSuche" Then
|
||||||
|
Dim dc As New DataColumn
|
||||||
|
dc.ColumnName = "ErweiterteSuche"
|
||||||
|
dc.DataType = System.Type.GetType("System.String")
|
||||||
|
dc.DefaultValue = " "
|
||||||
|
Try
|
||||||
|
Globals.treedata_for_search.Columns.Add(dc)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
Try
|
||||||
|
Globals.treedata_for_search.Columns.Add(c.ColumnName)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
For Each row As DataRow In treedata.Tables(0).Rows
|
||||||
|
Globals.treedata_for_search.ImportRow(row)
|
||||||
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
'MsgBox(ex.Message)
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
selectcommand.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Protected Function GetAllNodes(ByVal treestruktur As DevComponents.AdvTree.AdvTree) As List(Of TreeNode)
|
||||||
|
|
||||||
|
Dim allNodes As List(Of TreeNode) = New List(Of TreeNode)()
|
||||||
|
|
||||||
|
' start recursion for each root node of the treeview
|
||||||
|
For i As Integer = 0 To treestruktur.Nodes.Count - 1
|
||||||
|
GetAllNodes(treestruktur.Nodes(i), allNodes)
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return allNodes
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Protected Sub GetAllNodes(ByVal subRoot As DevComponents.AdvTree.Node, ByVal allNodes As List(Of TreeNode))
|
||||||
|
|
||||||
|
' check for null (this can be removed since within th
|
||||||
|
If (subRoot Is Nothing) Then
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
' add subroot
|
||||||
|
Dim r As DataRow
|
||||||
|
r = treedata_for_search.NewRow
|
||||||
|
r.Item(0) = subRoot.Tag
|
||||||
|
Try
|
||||||
|
r.Item(1) = subRoot.Parent.Tag
|
||||||
|
Catch
|
||||||
|
r.Item(1) = 0
|
||||||
|
End Try
|
||||||
|
|
||||||
|
r.Item(2) = subRoot.Text
|
||||||
|
r.Item(3) = subRoot.ImageIndex
|
||||||
|
treedata_for_search.Rows.Add(r)
|
||||||
|
'allNodes.Add(subRoot)
|
||||||
|
' add all it's children
|
||||||
|
For i As Integer = 0 To subRoot.Nodes.Count - 1
|
||||||
|
GetAllNodes(subRoot.Nodes(i), allNodes)
|
||||||
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Tree aufbauen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="oDS"></param>
|
||||||
|
''' <param name="oTreeview"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As DevComponents.AdvTree.AdvTree)
|
||||||
|
'Dim oTreeView As TreeView = New TreeView()
|
||||||
|
Dim oDataRow As DataRow
|
||||||
|
For Each oDataRow In oDS.Tables(0).Rows
|
||||||
|
If Not oDataRow.IsNull("Parentid") Then
|
||||||
|
If oDataRow.Item("Parentid") = 0 Then
|
||||||
|
'If oDataRow.IsNull("Parentid") Then
|
||||||
|
Dim oNode As New DevComponents.AdvTree.Node
|
||||||
|
oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
|
||||||
|
Try
|
||||||
|
'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
oNode.Tag = oDataRow("id").ToString
|
||||||
|
oNode.ImageIndex = oDataRow("ImageIndex")
|
||||||
|
oTreeview.Nodes.Add(oNode)
|
||||||
|
RecursivelyLoadTree(oDataRow, oNode)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next oDataRow
|
||||||
|
oDS.Dispose()
|
||||||
|
oDS = Nothing
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Child-Nodes hinzufügen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="oDataRow"></param>
|
||||||
|
''' <param name="oNode"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
|
||||||
|
Dim oChildRow As DataRow
|
||||||
|
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
||||||
|
Dim oChildNode As New DevComponents.AdvTree.Node
|
||||||
|
oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
|
||||||
|
oChildNode.Tag = oChildRow("id").ToString()
|
||||||
|
oChildNode.ImageIndex = oChildRow("ImageIndex")
|
||||||
|
|
||||||
|
oNode.Nodes.Add(oChildNode)
|
||||||
|
RecursivelyLoadTree(oChildRow, oChildNode)
|
||||||
|
Next oChildRow
|
||||||
|
End Sub
|
||||||
|
Public Function FindNode(ByVal _nodeCollection As AdvTree.NodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As AdvTree.Node
|
||||||
|
Dim tmpNode As AdvTree.Node
|
||||||
|
For Each _child As AdvTree.Node In _nodeCollection
|
||||||
|
If _child.Tag = SearchVal Then
|
||||||
|
|
||||||
|
Return _child
|
||||||
|
End If
|
||||||
|
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
|
||||||
|
' Return _child
|
||||||
|
' End If
|
||||||
|
tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
|
||||||
|
If Not tmpNode Is Nothing Then
|
||||||
|
Return tmpNode
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Return Nothing
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function Init_Search()
|
||||||
|
FoundNode = 0
|
||||||
|
Searchstring = ""
|
||||||
|
Me.Treesearch.Nodes.Clear()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function SearchNode(ByRef tree As AdvTree.AdvTree, ByVal SearchString As String) As AdvTree.Node
|
||||||
|
'Return tree.FindNodeByCellText(SearchString)
|
||||||
|
|
||||||
|
Me.Treesearch.Nodes.Clear()
|
||||||
|
For Each dr As DataRow In treedata_for_search.Rows
|
||||||
|
'InStr(UCase(SearchString), UCase(dr.Item("Bezeichnung")))
|
||||||
|
If InStr(UCase(dr.Item("Bezeichnung")), UCase(SearchString)) > 0 Or InStr(UCase(dr.Item("ErweiterteSuche")), UCase(SearchString)) > 0 Then
|
||||||
|
Dim tn As New AdvTree.Node
|
||||||
|
tn.Text = dr.Item("Bezeichnung")
|
||||||
|
tn.Tag = dr.Item("id")
|
||||||
|
Treesearch.Nodes.Add(tn)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Return FindFirst(tree)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function FindFirst(ByRef Tree As AdvTree.AdvTree) As AdvTree.Node
|
||||||
|
Try
|
||||||
|
If Me.Treesearch.Nodes.Count > 0 Then Me.Treesearch.SelectedNode = Me.Treesearch.Nodes(0)
|
||||||
|
Return FindNode(Tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Public Function FindNextNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||||
|
Try
|
||||||
|
Treesearch.SelectedNode = Treesearch.SelectedNode.NextNode
|
||||||
|
If Treesearch.SelectedNode Is Nothing Then
|
||||||
|
Return FindFirst(tree)
|
||||||
|
End If
|
||||||
|
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function FindPrevNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||||
|
Try
|
||||||
|
Treesearch.SelectedNode = Treesearch.SelectedNode.PrevNode
|
||||||
|
If Treesearch.SelectedNode Is Nothing Then
|
||||||
|
Return FindLastNode(tree)
|
||||||
|
End If
|
||||||
|
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function FindLastNode(ByRef tree As AdvTree.AdvTree) As AdvTree.Node
|
||||||
|
Try
|
||||||
|
Treesearch.SelectedNode = Treesearch.Nodes(Treesearch.Nodes.Count - 1)
|
||||||
|
Return Me.FindNode(tree.Nodes, Treesearch.SelectedNode.Tag, "")
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "ComboboxTree"
|
||||||
|
|
||||||
|
Public Sub Load_ComboboxTree(ByRef tree As Object)
|
||||||
|
tree.Nodes.Clear()
|
||||||
|
TreeaufbauNr = -1
|
||||||
|
Load_Treedata("")
|
||||||
|
If Not (treedata Is Nothing) Then
|
||||||
|
Dim oView As DataView = treedata.Tables(0).DefaultView
|
||||||
|
Dim oTable As DataTable = oView.Table
|
||||||
|
Dim oDS As DataSet = New DataSet()
|
||||||
|
oDS.Tables.Add(oTable.Copy())
|
||||||
|
|
||||||
|
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
||||||
|
oDS.Relations.Add("SelfRefenceRelation", _
|
||||||
|
oDS.Tables(0).Columns("id"), _
|
||||||
|
oDS.Tables(0).Columns("Parentid"))
|
||||||
|
End If
|
||||||
|
oTable.Dispose()
|
||||||
|
oTable = Nothing
|
||||||
|
|
||||||
|
LoadTreeView1(oDS, tree)
|
||||||
|
oDS.Dispose()
|
||||||
|
oDS = Nothing
|
||||||
|
tree.ExpandAll()
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub LoadTreeView1(ByVal oDS As DataSet, ByRef oTreeview As Object)
|
||||||
|
'Dim oTreeView As TreeView = New TreeView()
|
||||||
|
Dim oDataRow As DataRow
|
||||||
|
For Each oDataRow In oDS.Tables(0).Rows
|
||||||
|
If Not oDataRow.IsNull("Parentid") Then
|
||||||
|
If oDataRow.Item("Parentid") = 0 Then
|
||||||
|
'If oDataRow.IsNull("Parentid") Then
|
||||||
|
Dim oNode As New ComboTreeNode
|
||||||
|
oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
|
||||||
|
Try
|
||||||
|
'oNode.ToolTipText = Trim(oDataRow("ErweiterteSuche").ToString)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
oNode.Tag = oDataRow("id").ToString
|
||||||
|
oNode.ImageIndex = oDataRow("ImageIndex")
|
||||||
|
oTreeview.Nodes.Add(oNode)
|
||||||
|
RecursivelyLoadTree1(oDataRow, oNode)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next oDataRow
|
||||||
|
oDS.Dispose()
|
||||||
|
oDS = Nothing
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Child-Nodes hinzufügen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="oDataRow"></param>
|
||||||
|
''' <param name="oNode"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub RecursivelyLoadTree1(ByVal oDataRow As DataRow, ByRef oNode As ComboTreeNode)
|
||||||
|
Dim oChildRow As DataRow
|
||||||
|
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
||||||
|
Dim oChildNode As New ComboTreeNode
|
||||||
|
oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
|
||||||
|
oChildNode.Tag = oChildRow("id").ToString()
|
||||||
|
oChildNode.ImageIndex = oChildRow("ImageIndex")
|
||||||
|
|
||||||
|
oNode.Nodes.Add(oChildNode)
|
||||||
|
RecursivelyLoadTree1(oChildRow, oChildNode)
|
||||||
|
Next oChildRow
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function ComboboxTree_FindNode(ByVal _nodeCollection As ComboTreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As ComboTreeNode
|
||||||
|
Dim tmpNode As ComboTreeNode
|
||||||
|
For Each _child As ComboTreeNode In _nodeCollection
|
||||||
|
If _child.Tag = SearchVal Then
|
||||||
|
|
||||||
|
Return _child
|
||||||
|
End If
|
||||||
|
' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
|
||||||
|
' Return _child
|
||||||
|
' End If
|
||||||
|
tmpNode = ComboboxTree_FindNode(_child.Nodes, SearchVal, SearchString)
|
||||||
|
If Not tmpNode Is Nothing Then
|
||||||
|
Return tmpNode
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Return Nothing
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
|
||||||
297
SW/20211125/AssessmentMgmt/Kategorie/frmKategorie.Designer.vb
generated
Normal file
297
SW/20211125/AssessmentMgmt/Kategorie/frmKategorie.Designer.vb
generated
Normal file
@@ -0,0 +1,297 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmKategorie
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Me.components = New System.ComponentModel.Container()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKategorie))
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||||
|
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.lblBezeichnung = New System.Windows.Forms.Label()
|
||||||
|
Me.txtKategorie = New System.Windows.Forms.TextBox()
|
||||||
|
Me.lblBeschreibung = New System.Windows.Forms.Label()
|
||||||
|
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
|
||||||
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||||
|
Me.lblkategorie1 = New System.Windows.Forms.Label()
|
||||||
|
Me.lblkategorie2 = New System.Windows.Forms.Label()
|
||||||
|
Me.btnSave = New System.Windows.Forms.Button()
|
||||||
|
Me.btnAbbruch = New System.Windows.Forms.Button()
|
||||||
|
Me.txtStrukturNr = New System.Windows.Forms.TextBox()
|
||||||
|
Me.lblStrukturNr = New System.Windows.Forms.Label()
|
||||||
|
Me.TreeKategorie = New DevComponents.AdvTree.AdvTree()
|
||||||
|
Me.Node1 = New DevComponents.AdvTree.Node()
|
||||||
|
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
|
||||||
|
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
|
||||||
|
Me.chkroot = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.MenuStrip1.SuspendLayout()
|
||||||
|
CType(Me.TreeKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(466, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 6
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||||
|
'
|
||||||
|
'ToolStripButton1
|
||||||
|
'
|
||||||
|
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||||
|
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.ToolStripButton1.Text = "ToolStripButton1"
|
||||||
|
Me.ToolStripButton1.ToolTipText = "Neue Kategorie"
|
||||||
|
'
|
||||||
|
'MenuStrip1
|
||||||
|
'
|
||||||
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||||
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
|
Me.MenuStrip1.Size = New System.Drawing.Size(466, 24)
|
||||||
|
Me.MenuStrip1.TabIndex = 5
|
||||||
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
|
'
|
||||||
|
'DateiToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||||
|
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||||
|
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||||
|
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||||
|
'
|
||||||
|
'BeendenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||||
|
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
|
||||||
|
Me.BeendenToolStripMenuItem.Text = "&Schliessen"
|
||||||
|
'
|
||||||
|
'lblBezeichnung
|
||||||
|
'
|
||||||
|
Me.lblBezeichnung.AutoSize = True
|
||||||
|
Me.lblBezeichnung.Location = New System.Drawing.Point(22, 88)
|
||||||
|
Me.lblBezeichnung.Name = "lblBezeichnung"
|
||||||
|
Me.lblBezeichnung.Size = New System.Drawing.Size(52, 13)
|
||||||
|
Me.lblBezeichnung.TabIndex = 7
|
||||||
|
Me.lblBezeichnung.Text = "Kategorie"
|
||||||
|
'
|
||||||
|
'txtKategorie
|
||||||
|
'
|
||||||
|
Me.txtKategorie.Location = New System.Drawing.Point(97, 85)
|
||||||
|
Me.txtKategorie.Name = "txtKategorie"
|
||||||
|
Me.txtKategorie.Size = New System.Drawing.Size(349, 20)
|
||||||
|
Me.txtKategorie.TabIndex = 1
|
||||||
|
'
|
||||||
|
'lblBeschreibung
|
||||||
|
'
|
||||||
|
Me.lblBeschreibung.AutoSize = True
|
||||||
|
Me.lblBeschreibung.Location = New System.Drawing.Point(22, 111)
|
||||||
|
Me.lblBeschreibung.Name = "lblBeschreibung"
|
||||||
|
Me.lblBeschreibung.Size = New System.Drawing.Size(69, 13)
|
||||||
|
Me.lblBeschreibung.TabIndex = 9
|
||||||
|
Me.lblBeschreibung.Text = "Bezeichnung"
|
||||||
|
'
|
||||||
|
'txtBeschreibung
|
||||||
|
'
|
||||||
|
Me.txtBeschreibung.Location = New System.Drawing.Point(97, 111)
|
||||||
|
Me.txtBeschreibung.Multiline = True
|
||||||
|
Me.txtBeschreibung.Name = "txtBeschreibung"
|
||||||
|
Me.txtBeschreibung.Size = New System.Drawing.Size(349, 84)
|
||||||
|
Me.txtBeschreibung.TabIndex = 2
|
||||||
|
'
|
||||||
|
'ImageList1
|
||||||
|
'
|
||||||
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||||
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||||
|
Me.ImageList1.Images.SetKeyName(0, "Finma.jpg")
|
||||||
|
'
|
||||||
|
'lblkategorie1
|
||||||
|
'
|
||||||
|
Me.lblkategorie1.AutoSize = True
|
||||||
|
Me.lblkategorie1.Location = New System.Drawing.Point(22, 201)
|
||||||
|
Me.lblkategorie1.Name = "lblkategorie1"
|
||||||
|
Me.lblkategorie1.Size = New System.Drawing.Size(41, 13)
|
||||||
|
Me.lblkategorie1.TabIndex = 12
|
||||||
|
Me.lblkategorie1.Text = "Parent-"
|
||||||
|
'
|
||||||
|
'lblkategorie2
|
||||||
|
'
|
||||||
|
Me.lblkategorie2.AutoSize = True
|
||||||
|
Me.lblkategorie2.Location = New System.Drawing.Point(22, 214)
|
||||||
|
Me.lblkategorie2.Name = "lblkategorie2"
|
||||||
|
Me.lblkategorie2.Size = New System.Drawing.Size(45, 13)
|
||||||
|
Me.lblkategorie2.TabIndex = 13
|
||||||
|
Me.lblkategorie2.Text = "Element"
|
||||||
|
'
|
||||||
|
'btnSave
|
||||||
|
'
|
||||||
|
Me.btnSave.Location = New System.Drawing.Point(96, 549)
|
||||||
|
Me.btnSave.Name = "btnSave"
|
||||||
|
Me.btnSave.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.btnSave.TabIndex = 5
|
||||||
|
Me.btnSave.Text = "Speichern"
|
||||||
|
Me.btnSave.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'btnAbbruch
|
||||||
|
'
|
||||||
|
Me.btnAbbruch.Location = New System.Drawing.Point(371, 549)
|
||||||
|
Me.btnAbbruch.Name = "btnAbbruch"
|
||||||
|
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.btnAbbruch.TabIndex = 6
|
||||||
|
Me.btnAbbruch.Text = "Abbruch"
|
||||||
|
Me.btnAbbruch.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'txtStrukturNr
|
||||||
|
'
|
||||||
|
Me.txtStrukturNr.Location = New System.Drawing.Point(96, 59)
|
||||||
|
Me.txtStrukturNr.Name = "txtStrukturNr"
|
||||||
|
Me.txtStrukturNr.Size = New System.Drawing.Size(99, 20)
|
||||||
|
Me.txtStrukturNr.TabIndex = 0
|
||||||
|
'
|
||||||
|
'lblStrukturNr
|
||||||
|
'
|
||||||
|
Me.lblStrukturNr.AutoSize = True
|
||||||
|
Me.lblStrukturNr.Location = New System.Drawing.Point(22, 62)
|
||||||
|
Me.lblStrukturNr.Name = "lblStrukturNr"
|
||||||
|
Me.lblStrukturNr.Size = New System.Drawing.Size(68, 13)
|
||||||
|
Me.lblStrukturNr.TabIndex = 17
|
||||||
|
Me.lblStrukturNr.Text = "Kat.-Nummer"
|
||||||
|
'
|
||||||
|
'TreeKategorie
|
||||||
|
'
|
||||||
|
Me.TreeKategorie.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
|
||||||
|
Me.TreeKategorie.AllowDrop = True
|
||||||
|
Me.TreeKategorie.BackColor = System.Drawing.SystemColors.Window
|
||||||
|
'
|
||||||
|
'
|
||||||
|
'
|
||||||
|
Me.TreeKategorie.BackgroundStyle.Class = "TreeBorderKey"
|
||||||
|
Me.TreeKategorie.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||||
|
Me.TreeKategorie.ImageList = Me.ImageList1
|
||||||
|
Me.TreeKategorie.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
|
||||||
|
Me.TreeKategorie.Location = New System.Drawing.Point(97, 201)
|
||||||
|
Me.TreeKategorie.Name = "TreeKategorie"
|
||||||
|
Me.TreeKategorie.Nodes.AddRange(New DevComponents.AdvTree.Node() {Me.Node1})
|
||||||
|
Me.TreeKategorie.NodesConnector = Me.NodeConnector1
|
||||||
|
Me.TreeKategorie.NodeStyle = Me.ElementStyle1
|
||||||
|
Me.TreeKategorie.PathSeparator = ";"
|
||||||
|
Me.TreeKategorie.Size = New System.Drawing.Size(349, 296)
|
||||||
|
Me.TreeKategorie.Styles.Add(Me.ElementStyle1)
|
||||||
|
Me.TreeKategorie.TabIndex = 3
|
||||||
|
Me.TreeKategorie.Text = "AdvTree1"
|
||||||
|
'
|
||||||
|
'Node1
|
||||||
|
'
|
||||||
|
Me.Node1.Expanded = True
|
||||||
|
Me.Node1.Name = "Node1"
|
||||||
|
Me.Node1.Text = "Node1"
|
||||||
|
'
|
||||||
|
'NodeConnector1
|
||||||
|
'
|
||||||
|
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
|
||||||
|
'
|
||||||
|
'ElementStyle1
|
||||||
|
'
|
||||||
|
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||||
|
Me.ElementStyle1.Name = "ElementStyle1"
|
||||||
|
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
|
||||||
|
'
|
||||||
|
'chkroot
|
||||||
|
'
|
||||||
|
Me.chkroot.AutoSize = True
|
||||||
|
Me.chkroot.Location = New System.Drawing.Point(97, 503)
|
||||||
|
Me.chkroot.Name = "chkroot"
|
||||||
|
Me.chkroot.Size = New System.Drawing.Size(156, 17)
|
||||||
|
Me.chkroot.TabIndex = 4
|
||||||
|
Me.chkroot.Text = "Struktur auf oberster Ebene"
|
||||||
|
Me.chkroot.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'frmKategorie
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(466, 584)
|
||||||
|
Me.Controls.Add(Me.chkroot)
|
||||||
|
Me.Controls.Add(Me.TreeKategorie)
|
||||||
|
Me.Controls.Add(Me.txtStrukturNr)
|
||||||
|
Me.Controls.Add(Me.lblStrukturNr)
|
||||||
|
Me.Controls.Add(Me.btnAbbruch)
|
||||||
|
Me.Controls.Add(Me.btnSave)
|
||||||
|
Me.Controls.Add(Me.lblkategorie2)
|
||||||
|
Me.Controls.Add(Me.lblkategorie1)
|
||||||
|
Me.Controls.Add(Me.txtBeschreibung)
|
||||||
|
Me.Controls.Add(Me.lblBeschreibung)
|
||||||
|
Me.Controls.Add(Me.txtKategorie)
|
||||||
|
Me.Controls.Add(Me.lblBezeichnung)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.Name = "frmKategorie"
|
||||||
|
Me.Text = "Kategorie"
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.MenuStrip1.ResumeLayout(False)
|
||||||
|
Me.MenuStrip1.PerformLayout()
|
||||||
|
CType(Me.TreeKategorie, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||||
|
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents lblBezeichnung As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents txtKategorie As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents lblBeschreibung As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents txtBeschreibung As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents lblkategorie1 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents lblkategorie2 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents btnSave As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents txtStrukturNr As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents lblStrukturNr As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||||
|
Friend WithEvents TreeKategorie As DevComponents.AdvTree.AdvTree
|
||||||
|
Friend WithEvents Node1 As DevComponents.AdvTree.Node
|
||||||
|
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
|
||||||
|
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
|
||||||
|
Friend WithEvents chkroot As System.Windows.Forms.CheckBox
|
||||||
|
End Class
|
||||||
205
SW/20211125/AssessmentMgmt/Kategorie/frmKategorie.resx
Normal file
205
SW/20211125/AssessmentMgmt/Kategorie/frmKategorie.resx
Normal file
@@ -0,0 +1,205 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>349, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qxYmpYjb3Obx
|
||||||
|
7MzN1dY5Z9tJV86Min5Blpb90LQsC63QYSoWRaVWiln2Q9HIUMxCrBXpRXRRRBFEFwWfjhqLXdYDH3if
|
||||||
|
F94P7/d5X/E/9fn1UHB2Zvxn294s/mwt1NWKvO7Oyjy6j84hJek6InGt3M6j+E4+TfXzcfIO394Mcnm/
|
||||||
|
NVXQVSGzKt3OmnU20jP/krbOykpLBt8T/SS6DzHW6OdL4jFXDzpSBZ1lMllWJza7hN3hSmLNcZKWYeNV
|
||||||
|
W4SxJp3R80E+vbzLjcO5qQJHvUCqXkSu3YfkUpBy3UiSjMslk2mVmGo1GL0Y4klDkA9jXfNR/xwVwnZC
|
||||||
|
kPjQjtOU5GVruJ0BFMmPInuR3R6yHW5exMOMNOoM1m9kZvgKvVXKgsBWLZicbaZ1UJBVJbDXCZznBHLZ
|
||||||
|
UrxKEE++n5w8H+NNGoNndb73LWd6oIW7NV6Eq1bw9F0V8RFB87C5flvEs3cRJt6H5yXrPWEKCoJIngDP
|
||||||
|
zqs8PKPxo38FL3sbGajzLwgeJPYQHxfExwQtLwStU4LnXyM4zgqCBUVsCIRwF2iMNAQYOB2keY+Tia4T
|
||||||
|
PK4PzEew2M0IPdObaU8IsucinBQ4zgjyy5ehq1FU3cAXNBiq93Pv1HpuVio8vVLBcIOaHKIlp0bQ/daH
|
||||||
|
87TACOzC0EoxwsUYRpSIUUggFOVhnZe+Wh891V6GLu1m9EIo5RktTvPKSu1iosZ2okUlFEWL5yk00TbF
|
||||||
|
uF/roacqn1vHPPQ3xhhvjqQIRFvpWraUlFIS20HJ1m1JYiaFxdu5VyNz+7hC51E3t0+FmGwpROi6jq6F
|
||||||
|
0LQwqjqHuVY1s1eTqGa/YaPOvliAjgrF/IEy14/kM9W+eWGI/0qZnra/7sDqX687YqkR/qGWmKwSQlh+
|
||||||
|
A0B2wmtIPksZAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
|
||||||
|
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
|
||||||
|
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
|
||||||
|
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
|
||||||
|
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
|
||||||
|
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
|
||||||
|
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
|
||||||
|
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
|
||||||
|
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
|
||||||
|
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>456, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>571, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||||
|
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||||
|
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAG
|
||||||
|
CAAAAk1TRnQBSQFMAwEBAAFoAQABaAEAARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
|
||||||
|
AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
|
||||||
|
AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
|
||||||
|
AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
|
||||||
|
AwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZ
|
||||||
|
AgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFm
|
||||||
|
AgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEz
|
||||||
|
AQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFm
|
||||||
|
AgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFm
|
||||||
|
AQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEA
|
||||||
|
ATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFm
|
||||||
|
AQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFm
|
||||||
|
ATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFm
|
||||||
|
AQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEA
|
||||||
|
AWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZ
|
||||||
|
AQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEz
|
||||||
|
AQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/
|
||||||
|
AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEA
|
||||||
|
AZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHM
|
||||||
|
AQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFm
|
||||||
|
ATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZ
|
||||||
|
AQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/
|
||||||
|
ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHM
|
||||||
|
ATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJm
|
||||||
|
AQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHM
|
||||||
|
AQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEA
|
||||||
|
AcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEA
|
||||||
|
ASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7
|
||||||
|
Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/8BAAHjARcE4wYWApMBGgH/
|
||||||
|
MAAGRgFpA28CFgGOApMB9jAAARcERgEXBG8DFgKTAfYwAAVGARcEbwMWApMB9jAABkYEbwQWAZMB/zAA
|
||||||
|
BUYBTAEXA28DFgKTAf8wAARGAWkBRgFMA28DFgKTAf8wAAJGAW8BvQEWBG8EFgFvAZMB/zAAAkYBbwHz
|
||||||
|
AZQFbwMWAW8BkwH2MAABbwK9AfQCvQEWBG8CFgFvAZMB9jAAAW8BlAG9AfQCvQEWBG8BFgFvARYBkwH2
|
||||||
|
MAACRgFvAb0BlAZvAxYBkwH2MAADRgGUARYCRgNvAeMBbwEWAY4BkwH/MAAGRgEXAWkCbwEWAW8BFgFv
|
||||||
|
AZMB/zAACEYEbwEWAW8BkwH0MAABFwZGAm8CFgFvAhYBkwH0MAABQgFNAT4HAAE+AwABKAMAAUADAAEQ
|
||||||
|
AwABAQEAAQEFAAGAFwAD/4EACw==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
99
SW/20211125/AssessmentMgmt/Kategorie/frmKategorie.vb
Normal file
99
SW/20211125/AssessmentMgmt/Kategorie/frmKategorie.vb
Normal file
@@ -0,0 +1,99 @@
|
|||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Public Class frmKategorie
|
||||||
|
|
||||||
|
Dim Kategorie As New clsKategorie
|
||||||
|
Dim KategorieTree As New clsKategorieTree
|
||||||
|
|
||||||
|
Dim m_kategorienr As Integer
|
||||||
|
Property Kategorienr As Integer
|
||||||
|
Get
|
||||||
|
Return m_kategorienr
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
m_kategorienr = value
|
||||||
|
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim m_parent As Integer
|
||||||
|
Property ParentID As Integer
|
||||||
|
Get
|
||||||
|
Return m_parent
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
m_parent = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Sub frmKategorie_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||||
|
KategorieTree.Load_Treeview(Me.TreeKategorie)
|
||||||
|
If m_kategorienr <> 0 Then
|
||||||
|
Kategorie.Get_Data(Me.m_kategorienr)
|
||||||
|
Get_Data()
|
||||||
|
Else
|
||||||
|
Me.TreeKategorie.SelectedNode = KategorieTree.FindNode(Me.TreeKategorie.Nodes, Me.ParentID, Me.ParentID)
|
||||||
|
Me.txtStrukturNr.Text = ""
|
||||||
|
Me.txtKategorie.Text = ""
|
||||||
|
Me.txtBeschreibung.Text = ""
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Get_Data()
|
||||||
|
Me.txtStrukturNr.Text = Kategorie.sBeschreibung.Value.ToString
|
||||||
|
If Kategorie.sBeschreibung_Lang.IsNull Then
|
||||||
|
Me.txtBeschreibung.Text = ""
|
||||||
|
Else
|
||||||
|
Me.txtBeschreibung.Text = Kategorie.sBeschreibung_Lang.Value.ToString
|
||||||
|
End If
|
||||||
|
Me.txtKategorie.Text = Kategorie.sBezeichnung.Value.ToString
|
||||||
|
Me.TreeKategorie.SelectedNode = KategorieTree.FindNode(Me.TreeKategorie.Nodes, Me.Kategorienr, Me.Kategorienr)
|
||||||
|
If Not IsNothing(Me.TreeKategorie.SelectedNode.Parent) Then
|
||||||
|
Me.TreeKategorie.SelectedNode = Me.TreeKategorie.SelectedNode.Parent
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Save_Data()
|
||||||
|
If Me.Kategorienr = 0 Then
|
||||||
|
Me.Kategorienr = Kategorie.Add_New
|
||||||
|
Kategorie.Get_Data(Me.Kategorienr)
|
||||||
|
End If
|
||||||
|
Kategorie.sBeschreibung = New SqlString(CType(Me.txtStrukturNr.Text, String))
|
||||||
|
Kategorie.sBeschreibung_Lang = New SqlString(CType(Me.txtBeschreibung.Text, String))
|
||||||
|
Kategorie.sBezeichnung = New SqlString(CType(Me.txtKategorie.Text, String))
|
||||||
|
If Me.Kategorienr = Me.TreeKategorie.SelectedNode.Tag Then
|
||||||
|
'keine Änderung
|
||||||
|
Else
|
||||||
|
Kategorie.iParentid = New SqlInt32(Me.TreeKategorie.SelectedNode.Tag)
|
||||||
|
End If
|
||||||
|
If chkroot.Checked = True Then
|
||||||
|
Kategorie.iParentid = New SqlInt32(CType(0, Int32))
|
||||||
|
End If
|
||||||
|
Kategorie.Save_Data()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||||
|
Save_Data()
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||||
|
btnAbbruch_Click(sender, e)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
37
SW/20211125/AssessmentMgmt/Klassen/FilterClass.vb
Normal file
37
SW/20211125/AssessmentMgmt/Klassen/FilterClass.vb
Normal file
@@ -0,0 +1,37 @@
|
|||||||
|
Public Class FilterClass
|
||||||
|
|
||||||
|
Dim m_columname As String
|
||||||
|
Dim m_filtervalue As String
|
||||||
|
Property Columname() As String
|
||||||
|
Get
|
||||||
|
Return m_columname
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As String)
|
||||||
|
m_columname = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Property FilterValue() As String
|
||||||
|
Get
|
||||||
|
Return m_filtervalue
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As String)
|
||||||
|
m_filtervalue = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Sub New(ByVal columname As String, ByVal filtervalue As String)
|
||||||
|
MyBase.New()
|
||||||
|
Me.Columname = columname
|
||||||
|
Me.FilterValue = filtervalue
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
MyBase.New()
|
||||||
|
End Sub
|
||||||
|
Public Sub add(ByVal columname As String, ByVal filtervalue As String)
|
||||||
|
Me.Columname = columname
|
||||||
|
Me.FilterValue = filtervalue
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
|
||||||
427
SW/20211125/AssessmentMgmt/Klassen/MyDocMgmt.vb
Normal file
427
SW/20211125/AssessmentMgmt/Klassen/MyDocMgmt.vb
Normal file
@@ -0,0 +1,427 @@
|
|||||||
|
Imports C1.Win.C1TrueDBGrid
|
||||||
|
Imports System
|
||||||
|
Imports System.IO
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports System.Diagnostics
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Namesace TKB.VV.Utils fasst die Utility-Klassen für die Vertragsverwaltung
|
||||||
|
''' zusammen.
|
||||||
|
''' </summary>
|
||||||
|
''' <includesource>yes</includesource>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.clsMyTabControl"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.clsProfile"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MyDocMgmt"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MyFormControls"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MyMessage"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MySecurity"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MySpaltenTitel"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.Tabellenspalte"></seealso>
|
||||||
|
Namespace TKB.VV.Utils
|
||||||
|
''' <summary>
|
||||||
|
''' Klasse für das Speichern bzw. Auslesen von Image-Dateien in der Datenbank
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks>
|
||||||
|
''' Es werden folgende Datebanktabellen berücksichtigt:
|
||||||
|
''' <list type="bullet">
|
||||||
|
''' <item>
|
||||||
|
''' <description>Dokument Attribut DocImage</description></item>
|
||||||
|
''' <item>
|
||||||
|
''' <description>Profile Attribut V_Uebersicht (Profillayout des C1TrueDBGrids der
|
||||||
|
''' Vertragsübersicht|Vertragselemente</description></item></list>
|
||||||
|
''' </remarks>
|
||||||
|
''' <includesource>yes</includesource>
|
||||||
|
Public Class MyDocMgmt
|
||||||
|
''' <summary>
|
||||||
|
''' Grid-Layoutfile speichern
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="c1data">C1Truedbgrind, von welchem das Layout gespeichert werden soll</param>
|
||||||
|
''' <param name="GriddNo">Nummer des Grids: 1=Vertragsübersicht...</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Save_LayoutFile(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||||
|
Dim filename As String = Globals.clsapplication.sTmp_filepath + Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt"
|
||||||
|
c1data.SaveLayout(filename)
|
||||||
|
|
||||||
|
Dim Connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from profil where profilnr = " & Str(Profilnr), Connection)
|
||||||
|
'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
||||||
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||||
|
Dim mydata(fs.Length) As Byte
|
||||||
|
fs.Read(mydata, 0, fs.Length)
|
||||||
|
fs.Close()
|
||||||
|
Try
|
||||||
|
Connection.ConnectionString = Globals.sConnectionString
|
||||||
|
Connection.Open()
|
||||||
|
DA.Fill(ds, "profil")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
If ds.Tables(0).Rows.Count = 0 Then
|
||||||
|
' Neues Profil sepeichern
|
||||||
|
myRow = ds.Tables(0).NewRow
|
||||||
|
myRow.Item(1) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
myRow.Item(2) = ""
|
||||||
|
Select Case GridNo
|
||||||
|
Case 1
|
||||||
|
myRow.Item(3) = mydata
|
||||||
|
End Select
|
||||||
|
ds.Tables(0).Rows.Add(myRow)
|
||||||
|
DA.Update(ds, "profil")
|
||||||
|
Else
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Select Case GridNo
|
||||||
|
Case 1
|
||||||
|
myRow.Item(3) = mydata
|
||||||
|
End Select
|
||||||
|
DA.Update(ds, "profil")
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
fs = Nothing
|
||||||
|
cb = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
Connection.Close()
|
||||||
|
Connection = Nothing
|
||||||
|
Return True
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function Get_Layoutfile_from_db(ByVal filename As String, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||||
|
'Exit Function
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("Select * From profil where profilnr=" & Str(Profilnr), connection)
|
||||||
|
'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
||||||
|
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.Fill(ds, "docs")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Dim MyData() As Byte
|
||||||
|
Select Case GridNo
|
||||||
|
Case 1
|
||||||
|
MyData = myRow.Item(3)
|
||||||
|
|
||||||
|
End Select
|
||||||
|
|
||||||
|
Dim K As Long
|
||||||
|
K = UBound(MyData)
|
||||||
|
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||||
|
fs.Write(MyData, 0, K)
|
||||||
|
fs.Close()
|
||||||
|
fs = Nothing
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
CB = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
da = Nothing
|
||||||
|
connection.Close()
|
||||||
|
connection = Nothing
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Layout(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||||
|
Dim filename As String = Globals.clsapplication.sTmp_filepath + Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt"
|
||||||
|
If File.Exists(filename) Then
|
||||||
|
c1data.LoadLayout(filename)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
If Get_Layoutfile_from_db(filename, GridNo, Profilnr) Then
|
||||||
|
c1data.LoadLayout(filename)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
Return False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Dokument in der Tabelle Dokument speichern
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Dokumentnr">Nummer des Dokument-Datensatzes</param>
|
||||||
|
''' <param name="Filename">Zu speichender Dateiname</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
|
||||||
|
Public Function Save_Document(ByVal Dokumentnr As Integer, ByVal Filename As String) As Boolean
|
||||||
|
Dim Connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from dokument where dokumentnr =" + Str(dokumentnr), Connection)
|
||||||
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||||
|
Dim mydata(fs.Length) As Byte
|
||||||
|
fs.Read(mydata, 0, fs.Length)
|
||||||
|
fs.Close()
|
||||||
|
Try
|
||||||
|
Connection.ConnectionString = Globals.sConnectionString
|
||||||
|
Connection.Open()
|
||||||
|
DA.Fill(ds, "Dokument")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
If ds.Tables(0).Rows.Count = 0 Then
|
||||||
|
Return False
|
||||||
|
Else
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
myRow.Item(16) = mydata
|
||||||
|
DA.Update(ds, "Dokument")
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
fs = Nothing
|
||||||
|
cb = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
Connection.Close()
|
||||||
|
Connection = Nothing
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="DokumentNr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Get_Dokument(ByVal DokumentNr As Integer) As String
|
||||||
|
Dim Filename As String = Globals.clsapplication.sTmp_filepath
|
||||||
|
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
|
||||||
|
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("Select * From Dokument where DokumentNr=" + Str(DokumentNr), connection)
|
||||||
|
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.Fill(ds, "Dokument")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Dim MyData() As Byte
|
||||||
|
MyData = myRow.Item(16)
|
||||||
|
|
||||||
|
Dim K As Long
|
||||||
|
K = UBound(MyData)
|
||||||
|
Filename = Filename + myRow.Item(6)
|
||||||
|
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||||
|
fs.Write(MyData, 0, K)
|
||||||
|
fs.Close()
|
||||||
|
fs = Nothing
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||||
|
Return ""
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
connection = Nothing
|
||||||
|
End Try
|
||||||
|
CB = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
da = Nothing
|
||||||
|
Return Filename
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Show_Document(ByVal Dokumentnr As Integer) As Boolean
|
||||||
|
Dim tmpfilename As String = Me.Get_Dokument(Dokumentnr)
|
||||||
|
If tmpfilename <> "" Then
|
||||||
|
OpenSystemFile(tmpfilename)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
Return False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function OpenSystemFile(ByVal sFileName As String) As Boolean
|
||||||
|
If Len(sFileName) > 0 Then
|
||||||
|
System.Diagnostics.Process.Start(sFileName)
|
||||||
|
'
|
||||||
|
' ShellExecute(GetDesktopWindow(), vbNullString, sFileName, vbNullString, vbNullString, vbNormalFocus)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal AuswertungName As String) As String
|
||||||
|
Dim filename As String = AuswertungName
|
||||||
|
Dim Connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), Connection)
|
||||||
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||||
|
Dim mydata(fs.Length) As Byte
|
||||||
|
fs.Read(mydata, 0, fs.Length)
|
||||||
|
fs.Close()
|
||||||
|
Try
|
||||||
|
Connection.ConnectionString = Globals.sConnectionString
|
||||||
|
Connection.Open()
|
||||||
|
DA.Fill(ds, "RptFile")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
If ds.Tables(0).Rows.Count = 0 Then
|
||||||
|
' Neues Datei speichern
|
||||||
|
myRow = ds.Tables(0).NewRow
|
||||||
|
myRow.Item(0) = Auswertungnr
|
||||||
|
myRow.Item(1) = AuswertungName
|
||||||
|
myRow.Item(2) = RptName(AuswertungName)
|
||||||
|
myRow.Item(3) = mydata
|
||||||
|
myRow.Item(4) = Now
|
||||||
|
myRow.Item(5) = Now
|
||||||
|
myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
ds.Tables(0).Rows.Add(myRow)
|
||||||
|
DA.Update(ds, "RptFile")
|
||||||
|
Else
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
myRow.Item(1) = AuswertungName
|
||||||
|
myRow.Item(2) = RptName(AuswertungName)
|
||||||
|
myRow.Item(3) = mydata
|
||||||
|
myRow.Item(5) = Now
|
||||||
|
myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
DA.Update(ds, "RptFile")
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
fs = Nothing
|
||||||
|
cb = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
Connection.Close()
|
||||||
|
Connection = Nothing
|
||||||
|
Return RptName(AuswertungName)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function RptName(ByVal path As String) As String
|
||||||
|
Dim i As Integer
|
||||||
|
Dim file As String = path
|
||||||
|
i = InStrRev(file.Trim, "\")
|
||||||
|
If i = 0 Then
|
||||||
|
Return file.Trim
|
||||||
|
Else
|
||||||
|
Return Right(file.Trim, Len(file.Trim) - i)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_RptDatei(ByVal Auswertungnr As String, Optional ByVal fname As String = "") As String
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), connection)
|
||||||
|
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim Filename As String = ""
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
DA.Fill(ds, "RptFile")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Dim MyData() As Byte
|
||||||
|
Filename = Globals.clsapplication.sTmp_filepath + "\" + myRow.Item(2).ToString
|
||||||
|
If fname <> "" Then
|
||||||
|
Filename = fname
|
||||||
|
End If
|
||||||
|
MyData = myRow.Item(3)
|
||||||
|
Dim K As Long
|
||||||
|
K = UBound(MyData)
|
||||||
|
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||||
|
fs.Write(MyData, 0, K)
|
||||||
|
fs.Close()
|
||||||
|
fs = Nothing
|
||||||
|
Catch ex As Exception
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
CB = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
connection.Close()
|
||||||
|
connection = Nothing
|
||||||
|
Return filename
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Save_Architekturfile(ByVal Applikationnr As Integer, ByVal iFilename As String)
|
||||||
|
Dim filename As String = iFilename
|
||||||
|
Dim Connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), Connection)
|
||||||
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||||
|
Dim mydata(fs.Length) As Byte
|
||||||
|
fs.Read(mydata, 0, fs.Length)
|
||||||
|
fs.Close()
|
||||||
|
Try
|
||||||
|
Connection.ConnectionString = Globals.sConnectionString
|
||||||
|
Connection.Open()
|
||||||
|
DA.Fill(ds, "RptFile")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
If ds.Tables(0).Rows.Count = 0 Then
|
||||||
|
' Neues Datei speichern
|
||||||
|
myRow = ds.Tables(0).NewRow
|
||||||
|
myRow.Item(0) = Applikationnr
|
||||||
|
myRow.Item(1) = mydata
|
||||||
|
' myRow.Item(4) = Now
|
||||||
|
' myRow.Item(5) = Now
|
||||||
|
' myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
ds.Tables(0).Rows.Add(myRow)
|
||||||
|
DA.Update(ds, "RptFile")
|
||||||
|
Else
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
myRow.Item(1) = mydata
|
||||||
|
' myRow.Item(2) = RptName(AuswertungName)
|
||||||
|
' myRow.Item(3) = mydata
|
||||||
|
' myRow.Item(5) = Now
|
||||||
|
' myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
DA.Update(ds, "RptFile")
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
fs = Nothing
|
||||||
|
cb = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
Connection.Close()
|
||||||
|
Connection = Nothing
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Architekturfile(ByVal Applikationnr As String, Optional ByVal fname As String = "") As String
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), connection)
|
||||||
|
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim Filename As String = ""
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
DA.Fill(ds, "RptFile")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Dim MyData() As Byte
|
||||||
|
Filename = Globals.clsapplication.sTmp_filepath + "\architekturfile.xml"
|
||||||
|
If fname <> "" Then
|
||||||
|
Filename = fname
|
||||||
|
End If
|
||||||
|
MyData = myRow.Item(1)
|
||||||
|
Dim K As Long
|
||||||
|
K = UBound(MyData)
|
||||||
|
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||||
|
fs.Write(MyData, 0, K)
|
||||||
|
fs.Close()
|
||||||
|
fs = Nothing
|
||||||
|
Catch ex As Exception
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
CB = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
connection.Close()
|
||||||
|
connection = Nothing
|
||||||
|
Return Filename
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
End Namespace
|
||||||
39
SW/20211125/AssessmentMgmt/Klassen/MyGenericEventHandler.vb
Normal file
39
SW/20211125/AssessmentMgmt/Klassen/MyGenericEventHandler.vb
Normal file
@@ -0,0 +1,39 @@
|
|||||||
|
Public Class MyGenericEventHandler
|
||||||
|
|
||||||
|
|
||||||
|
Public Event Set_ToolTip(ByVal formname As String, ByVal ctlname As String)
|
||||||
|
|
||||||
|
Public Event Pruefplandetail_Saved(ByVal handler As Integer, ByVal key As Integer)
|
||||||
|
Public Event Pruefplandetail_Closed(ByVal handler As Integer, ByVal key As Integer)
|
||||||
|
Public Event Pruefschrittresultat_saved(ByVal handler As Integer, ByVal key As Integer)
|
||||||
|
Public Event pruefschrittresultat_closed(ByVal handler As Integer, ByVal key As Integer)
|
||||||
|
Public Event MassnahmeplanDetail_Saveed(ByVal handler As Integer, ByVal key As Integer)
|
||||||
|
Public Event MassnahmeplanDetail_Closed(ByVal handler As Integer, ByVal key As Integer)
|
||||||
|
|
||||||
|
Public Function Pruefplandetails_save(ByVal handler As Integer, key As Integer)
|
||||||
|
RaiseEvent Pruefplandetail_Saved(handler, key)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Pruefplandetail_close(ByVal handler As Integer, key As Integer)
|
||||||
|
RaiseEvent Pruefplandetail_closed(handler, key)
|
||||||
|
|
||||||
|
End Function
|
||||||
|
Public Function Edit_Tooltip(ByVal formname As String, ByVal ctlname As String)
|
||||||
|
RaiseEvent Set_ToolTip(formname, ctlname)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function PruefplanResultat_Save(ByVal handler As Integer, ByVal key As Integer)
|
||||||
|
RaiseEvent Pruefschrittresultat_saved(handler, key)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function pruefschrittResultat_Close(ByVal handler As Integer, ByVal key As Integer)
|
||||||
|
RaiseEvent pruefschrittresultat_closed(handler, key)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function massnahmeplandetail_save(ByVal handler As Integer, ByVal key As Integer)
|
||||||
|
RaiseEvent MassnahmeplanDetail_Saveed(handler, key)
|
||||||
|
End Function
|
||||||
|
Public Function massnahmeplandetail_close(ByVal handler As Integer, ByVal key As Integer)
|
||||||
|
RaiseEvent MassnahmeplanDetail_Closed(handler, key)
|
||||||
|
End Function
|
||||||
|
End Class
|
||||||
228
SW/20211125/AssessmentMgmt/Klassen/MyMessage.vb
Normal file
228
SW/20211125/AssessmentMgmt/Klassen/MyMessage.vb
Normal file
@@ -0,0 +1,228 @@
|
|||||||
|
Imports System.IO
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace Utils
|
||||||
|
''' <summary>
|
||||||
|
''' Standard-Messages in div. Formatenm
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Class MyMessage
|
||||||
|
#Region "Deklarationen"
|
||||||
|
''' <summary>
|
||||||
|
''' Dataview Meldungstexte um Textelemente für die Ausgabe zu suchen
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private meldungstexte As New DataView()
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "Dispose"
|
||||||
|
Sub dispose()
|
||||||
|
meldungstexte.Dispose()
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "DBZugriffe"
|
||||||
|
''' <summary>
|
||||||
|
''' Meldungen aus der Datenbanklesen, sofern diese noch nicht ausgelesen worden sind. Nach dem ersten Lesen werden
|
||||||
|
''' die Daten aus der Tabelle Meldungstexte ohne erneutem DB-Zugriff verwendet
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Get_Meldungstext(ByVal i As Integer) As String
|
||||||
|
Dim meldungen As New DB.clsMeldungstexte
|
||||||
|
Dim res As Integer
|
||||||
|
meldungen.cpMainConnectionProvider = conn
|
||||||
|
If Me.meldungstexte.Count = 0 Then
|
||||||
|
Me.meldungstexte.Table = meldungen.SelectAll
|
||||||
|
End If
|
||||||
|
meldungstexte.Sort = "meldungstextnr"
|
||||||
|
res = meldungstexte.Find(i)
|
||||||
|
Try
|
||||||
|
Get_Meldungstext = Me.meldungstexte(res).Item(2)
|
||||||
|
Catch
|
||||||
|
Get_Meldungstext = ""
|
||||||
|
End Try
|
||||||
|
meldungen.Dispose()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
#Region "Meldungen"
|
||||||
|
''' <summary>
|
||||||
|
''' Standardmessage
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i">Messagenr</param>
|
||||||
|
''' <param name="typ">Messagetyp</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function show_standardmessage(ByVal i As Integer, ByVal typ As MsgBoxStyle) As Integer
|
||||||
|
Me.ShowMyDialog(Get_Meldungstext(i), typ, MsgBoxStyle.OkOnly)
|
||||||
|
'MsgBox(Get_Meldungstext(i), typ)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Yes-No-Meldung
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i">Meldungsnr</param>
|
||||||
|
''' <returns>MsgboxResult</returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Show_MessageYesNo(ByVal i As Integer) As MsgBoxResult
|
||||||
|
Return Me.ShowMyDialog(Get_Meldungstext(i), MsgBoxStyle.Question, MsgBoxStyle.YesNo)
|
||||||
|
'Show_MessageYesNo = MsgBox(Get_Meldungstext(i), MsgBoxStyle.YesNo + MsgBoxStyle.Question)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Standard-Meldung, welcher 2 Strings als Parameter übergeben werden, damit diese im Meldungstext ersetzt werden können.
|
||||||
|
''' Parameter im Meldungstext #1 oder #2
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i"></param>
|
||||||
|
''' <param name="typ"></param>
|
||||||
|
''' <param name="Text1"></param>
|
||||||
|
''' <param name="Text2"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function show_standardmessage_ReplaceText(ByVal i As Integer, ByVal typ As MsgBoxStyle, ByVal Text1 As String, ByVal Text2 As String) As Integer
|
||||||
|
Dim s As String
|
||||||
|
s = Get_Meldungstext(i)
|
||||||
|
s = s.Replace("#1", Text1)
|
||||||
|
s = s.Replace("#2", Text2)
|
||||||
|
Return Me.ShowMyDialog(s, typ, MsgBoxStyle.OkOnly)
|
||||||
|
' MsgBox(s, typ)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Yes-No-Meldung, welcher 2 Strings als Parameter übergeben werden, damit diese im Meldungstext ersetzt werden können.
|
||||||
|
''' Parameter im Meldungstext #1 oder #2
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i">MeldungsNr</param>
|
||||||
|
''' <param name="Text1">erster Text zum ersetzen</param>
|
||||||
|
''' <param name="Text2">zweiter Text zum ersetzen</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function show_MessageYesNo_ReplaceText(ByVal i As Integer, ByVal Text1 As String, ByVal Text2 As String) As MsgBoxResult
|
||||||
|
Dim s As String
|
||||||
|
s = Get_Meldungstext(i)
|
||||||
|
s = s.Replace("#1", Text1)
|
||||||
|
s = s.Replace("#2", Text2)
|
||||||
|
Return Me.ShowMyDialog(s, MsgBoxStyle.Question, MsgBoxStyle.YesNo)
|
||||||
|
'show_MessageYesNo_ReplaceText = MsgBox(s, MsgBoxStyle.YesNo + MsgBoxStyle.Question)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Ausgabe der Meldung, welche übergeben wird. Als Option können 2 Texte zum Ersetzen übergeben werden.
|
||||||
|
''' Parameter im Meldungstext #1 oder #2
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="OrgText">Meldungstext</param>
|
||||||
|
''' <param name="Text1">erster Text zum ersetzen</param>
|
||||||
|
''' <param name="Text2">zweiter Text zum ersetzen</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function ReplaceTextinMSG(ByVal OrgText As String, ByVal Text1 As String, ByVal Text2 As String) As String
|
||||||
|
OrgText = OrgText.Replace("#1", Text1)
|
||||||
|
OrgText = OrgText.Replace("#2", Text2)
|
||||||
|
ReplaceTextinMSG = OrgText
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Meldung Yes-No-Cancel
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Show_MessageYesNoCancel(ByVal i As Integer) As MsgBoxResult
|
||||||
|
Return Me.ShowMyDialog(Get_Meldungstext(i), MsgBoxStyle.Question, MsgBoxStyle.YesNoCancel)
|
||||||
|
'Show_MessageYesNoCancel = MsgBox(Get_Meldungstext(i), MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
'Private Function ShowMessage(ByVal profilnr As Integer, ByVal messagenr As Integer, ByVal fnkt As Integer, ByVal style As Integer) As Boolean
|
||||||
|
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
' Dim i As Integer
|
||||||
|
' Dim dtToReturn As DataTable = New DataTable()
|
||||||
|
' Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
' scmCmdToExecute.CommandText = "dbo.sp_show_hinweismeldung"
|
||||||
|
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
' scmCmdToExecute.Connection = conn.scoDBConnection
|
||||||
|
' Try
|
||||||
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, profilnr))
|
||||||
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@hinweisnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, messagenr))
|
||||||
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
||||||
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@showit", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||||
|
' sdaAdapter.Fill(dtToReturn)
|
||||||
|
' i = scmCmdToExecute.Parameters.Item("@showit").Value
|
||||||
|
' If i <> 0 Then
|
||||||
|
' ShowMessage = True
|
||||||
|
' Else
|
||||||
|
' ShowMessage = False
|
||||||
|
' End If
|
||||||
|
' Catch ex As Exception
|
||||||
|
' ' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
' Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||||
|
' Finally
|
||||||
|
' scmCmdToExecute.Dispose()
|
||||||
|
' sdaAdapter.Dispose()
|
||||||
|
' End Try
|
||||||
|
'End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Zeig den eigenen Messagebox-Dialog
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="msgtext"></param>
|
||||||
|
''' <param name="cancelvisible"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function ShowMyDialog(ByVal msgtext As String, ByVal ImageStyle As MsgBoxStyle, ByVal Buttons As MsgBoxStyle) As MsgBoxResult
|
||||||
|
Dim f As New frmMsgBox
|
||||||
|
f.btnno.Visible = False
|
||||||
|
f.btnAbbruch.Visible = False
|
||||||
|
f.btnYes.Visible = False
|
||||||
|
f.btnOK.Visible = False
|
||||||
|
Select Case Buttons
|
||||||
|
Case MsgBoxStyle.OkCancel
|
||||||
|
f.btnYes.Visible = True
|
||||||
|
f.btnAbbruch.Visible = True
|
||||||
|
Case MsgBoxStyle.YesNo
|
||||||
|
f.btnYes.Visible = True
|
||||||
|
f.btnno.Visible = True
|
||||||
|
Case MsgBoxStyle.YesNoCancel
|
||||||
|
f.btnYes.Visible = True
|
||||||
|
f.btnno.Visible = True
|
||||||
|
f.btnAbbruch.Visible = True
|
||||||
|
Case MsgBoxStyle.OkOnly
|
||||||
|
f.btnOK.Visible = True
|
||||||
|
End Select
|
||||||
|
f.imgCritical.Visible = False
|
||||||
|
f.imgExclamation.Visible = False
|
||||||
|
f.imgInformation.Visible = False
|
||||||
|
f.imgQuestion.Visible = False
|
||||||
|
Select Case ImageStyle
|
||||||
|
Case MsgBoxStyle.Critical
|
||||||
|
f.imgCritical.Visible = True
|
||||||
|
Case MsgBoxStyle.Exclamation
|
||||||
|
f.imgExclamation.Visible = True
|
||||||
|
Case MsgBoxStyle.Information
|
||||||
|
f.imgInformation.Visible = True
|
||||||
|
Case MsgBoxStyle.Question
|
||||||
|
f.imgQuestion.Visible = True
|
||||||
|
End Select
|
||||||
|
f.txtmsg.Text = msgtext
|
||||||
|
'f.btnYes.Visible = True
|
||||||
|
'f.btnno.Visible = True
|
||||||
|
f.ShowDialog()
|
||||||
|
Select Case f.DialogResult
|
||||||
|
Case DialogResult.Abort, DialogResult.Cancel
|
||||||
|
Return MsgBoxResult.Cancel
|
||||||
|
Case DialogResult.No
|
||||||
|
Return MsgBoxResult.No
|
||||||
|
Case DialogResult.Yes
|
||||||
|
Return MsgBoxResult.Yes
|
||||||
|
Case Else
|
||||||
|
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
833
SW/20211125/AssessmentMgmt/Klassen/MySecurity.vb
Normal file
833
SW/20211125/AssessmentMgmt/Klassen/MySecurity.vb
Normal file
@@ -0,0 +1,833 @@
|
|||||||
|
Imports C1.Win.C1TrueDBGrid
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Namespace Utils
|
||||||
|
''' <summary>
|
||||||
|
''' Formular-Security-Objekte auslesen und auf DB schreiben bzw. Formular-Security zur Laufzeit setzen
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
|
||||||
|
Public Class MySecurity
|
||||||
|
Dim tt As New TKB.VV.Utils.clsToolTips
|
||||||
|
Dim SecurityData As DataSet = Globals.SecurityDaten
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
|
||||||
|
Dim IntForm As Form
|
||||||
|
Dim ctlcol As New Collection
|
||||||
|
Dim formname As String = ""
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Formularsecurity setzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="f">Aktuelles Formular</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Set_Form_Security(ByRef f As Form)
|
||||||
|
IntForm = f
|
||||||
|
formname = f.Name
|
||||||
|
'Load form DB
|
||||||
|
Load_Data(f.Name)
|
||||||
|
'Load FormObjects
|
||||||
|
Me.ctlcol.Clear()
|
||||||
|
formname = f.Name
|
||||||
|
For Each ctl As Control In f.Controls
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
' AddHandler ctl.HelpRequested, AddressOf Object_MouseDown
|
||||||
|
'ctl.ContextMenuStrip = Globals.TTContextMenuStrip
|
||||||
|
'AddHandler ctl.KeyDown, AddressOf Object_MouseDown
|
||||||
|
Next
|
||||||
|
Set_Security()
|
||||||
|
If Globals.Set_ToolTips = True Then
|
||||||
|
tt.Edit_ToolTips(f, ctlcol)
|
||||||
|
Else
|
||||||
|
tt.Set_ToolTips(f)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Set_Menu_Security(ByRef f As Form, ByRef menu As ToolStripMenuItem, ByVal Menuname As String)
|
||||||
|
IntForm = f
|
||||||
|
formname = f.Name
|
||||||
|
Load_Data(f.Name)
|
||||||
|
Me.ctlcol.Clear()
|
||||||
|
formname = f.Name
|
||||||
|
Dim ctl As Object = menu
|
||||||
|
Dim typ As System.Type = ctl.GetType
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, Menuname, ctl.Name))
|
||||||
|
|
||||||
|
Set_Security()
|
||||||
|
'If Globals.Set_ToolTips = True Then
|
||||||
|
' tt.Edit_ToolTips(f, ctlcol)
|
||||||
|
'Else
|
||||||
|
' tt.Set_ToolTips(f)
|
||||||
|
'End If
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function Set_Form_Readonly(ByRef f As Form)
|
||||||
|
IntForm = f
|
||||||
|
Me.formname = f.Name
|
||||||
|
Load_Data(f.Name)
|
||||||
|
Me.ctlcol.Clear()
|
||||||
|
For Each ctl As Control In f.Controls
|
||||||
|
Objectanalysis_readonly(ctl)
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
Public Function Set_Form_Default(ByRef f As Form)
|
||||||
|
IntForm = f
|
||||||
|
Me.formname = f.Name
|
||||||
|
Load_Data(f.Name)
|
||||||
|
Me.ctlcol.Clear()
|
||||||
|
For Each ctl As Control In f.Controls
|
||||||
|
Objectanalysis_default(ctl)
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function Objectanalysis_readonly(ByRef ctl As Object) As String
|
||||||
|
Dim typ As System.Type = ctl.GetType
|
||||||
|
Select Case LCase(typ.Name)
|
||||||
|
Case "splitcontainer"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmpsplit As SplitContainer = ctl
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel1.Controls
|
||||||
|
Objectanalysis_readonly(ctrl)
|
||||||
|
Next
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel2.Controls
|
||||||
|
Objectanalysis_readonly(ctrl)
|
||||||
|
Next
|
||||||
|
Case "tabcontrol", "clsmytabcontrol"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabcontrol As TabControl = ctl
|
||||||
|
For Each ctl In tmptabcontrol.TabPages
|
||||||
|
Objectanalysis_readonly(ctl)
|
||||||
|
Next
|
||||||
|
Case "tabpage"
|
||||||
|
Dim tmptabpage As TabPage = ctl
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
|
||||||
|
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis_readonly(ctl)
|
||||||
|
Next
|
||||||
|
Case "groupbox"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabpage As GroupBox = ctl
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis_readonly(ctl)
|
||||||
|
Next
|
||||||
|
Case "panel"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmppanel As Panel = ctl
|
||||||
|
For Each ctl In tmppanel.Controls
|
||||||
|
Objectanalysis_readonly(ctl)
|
||||||
|
Next
|
||||||
|
Case "textbox"
|
||||||
|
Dim x As TextBox = ctl
|
||||||
|
x.BackColor = Color.LightGray
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.ReadOnly = True
|
||||||
|
Case "maskedtextbox"
|
||||||
|
Dim x As MaskedTextBox = ctl
|
||||||
|
x.BackColor = Color.LightGray
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.ReadOnly = True
|
||||||
|
Case "combobox"
|
||||||
|
Dim x As ComboBox = ctl
|
||||||
|
x.Enabled = False
|
||||||
|
x.BackColor = Color.LightGray
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
Case "checkbox"
|
||||||
|
Dim x As CheckBox = ctl
|
||||||
|
x.Enabled = False
|
||||||
|
Case "radiobutton"
|
||||||
|
Dim x As RadioButton = ctl
|
||||||
|
x.Enabled = False
|
||||||
|
Case "comboboxtree"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
x.enabled = False
|
||||||
|
x.BackColor = Color.LightGray
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
Case "richtextbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
x.BackColor = Color.LightGray
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.ReadOnly = True
|
||||||
|
Case "button"
|
||||||
|
Dim x As Button = ctl
|
||||||
|
x.Enabled = False
|
||||||
|
Case "listbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = False
|
||||||
|
Case "checkedlistbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = False
|
||||||
|
Case "datetimepicker"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = False
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function Objectanalysis_default(ByRef ctl As Object) As String
|
||||||
|
Dim typ As System.Type = ctl.GetType
|
||||||
|
Select Case LCase(typ.Name)
|
||||||
|
Case "splitcontainer"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmpsplit As SplitContainer = ctl
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel1.Controls
|
||||||
|
Objectanalysis_default(ctrl)
|
||||||
|
Next
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel2.Controls
|
||||||
|
Objectanalysis_default(ctrl)
|
||||||
|
Next
|
||||||
|
Case "tabcontrol", "clsmytabcontrol"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabcontrol As TabControl = ctl
|
||||||
|
For Each ctl In tmptabcontrol.TabPages
|
||||||
|
Objectanalysis_default(ctl)
|
||||||
|
Next
|
||||||
|
Case "tabpage"
|
||||||
|
Dim tmptabpage As TabPage = ctl
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis_default(ctl)
|
||||||
|
Next
|
||||||
|
Case "groupbox"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabpage As GroupBox = ctl
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis_default(ctl)
|
||||||
|
Next
|
||||||
|
Case "panel"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmppanel As Panel = ctl
|
||||||
|
For Each ctl In tmppanel.Controls
|
||||||
|
Objectanalysis_default(ctl)
|
||||||
|
Next
|
||||||
|
Case "textbox"
|
||||||
|
Dim x As TextBox = ctl
|
||||||
|
x.BackColor = Color.White
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.Enabled = True
|
||||||
|
Case "maskedtextbox"
|
||||||
|
Dim x As MaskedTextBox = ctl
|
||||||
|
x.BackColor = Color.White
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.Enabled = True
|
||||||
|
Case "combobox"
|
||||||
|
Dim x As ComboBox = ctl
|
||||||
|
x.Enabled = True
|
||||||
|
x.BackColor = Color.White
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
|
||||||
|
Case "checkbox"
|
||||||
|
Dim x As CheckBox = ctl
|
||||||
|
x.Enabled = True
|
||||||
|
Case "radiobutton"
|
||||||
|
Dim x As RadioButton = ctl
|
||||||
|
x.Enabled = True
|
||||||
|
Case "comboboxtree"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
x.enabled = True
|
||||||
|
x.BackColor = Color.White
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
Case "richtextbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
x.BackColor = Color.White
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.readonly = True
|
||||||
|
Case "button"
|
||||||
|
Dim x As Button = ctl
|
||||||
|
x.Enabled = True
|
||||||
|
Case "listbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = True
|
||||||
|
Case "checkedlistbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = True
|
||||||
|
Case "datetimepicker"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = True
|
||||||
|
Case Else
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Daten ab Datenbank laden
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub Load_Data(ByVal Formname As String)
|
||||||
|
Try
|
||||||
|
'xxx
|
||||||
|
If SecurityData.Tables.Count > 0 Then
|
||||||
|
SecurityData.Tables.Clear()
|
||||||
|
End If
|
||||||
|
' Exit Sub
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
SecurityData.Tables.Clear()
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "dbo.my_security_get_data"
|
||||||
|
sqlcmd.Parameters.Add("@FormName", SqlDbType.VarChar, 255)
|
||||||
|
sqlcmd.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
|
||||||
|
sqlcmd.Parameters(0).Value = Formname
|
||||||
|
sqlcmd.Parameters(1).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(SecurityData, "SecurityTable")
|
||||||
|
Globals.SecurityDaten.Tables.Add(SecurityData.Tables(0).Copy)
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Prüft die DB-Einträge mit den Formcontrols und bei Übereinstimmung werden die Security-Einstellungen gesetzt
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub Set_Security()
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 0 To Me.SecurityData.Tables(0).Rows.Count - 1
|
||||||
|
Dim SecurityObject As String = Me.SecurityData.Tables(0).Rows(i).Item("SecurityObject")
|
||||||
|
Dim SecurityObjectitem As String = Me.SecurityData.Tables(0).Rows(i).Item("SecurityObjectItem")
|
||||||
|
Dim read_only As Boolean = Me.SecurityData.Tables(0).Rows(i).Item("readonly")
|
||||||
|
Dim invisible As Boolean = Me.SecurityData.Tables(0).Rows(i).Item("invisible")
|
||||||
|
Dim ii As Integer
|
||||||
|
For ii = 1 To ctlcol.Count
|
||||||
|
Dim secobj As MyFormControls = ctlcol(ii)
|
||||||
|
If secobj.MySecurityObject = SecurityObject And secobj.MySecurityObjectItem = SecurityObjectitem Then
|
||||||
|
Set_Preferences(secobj.MyControl, read_only, invisible, SecurityObjectitem)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Security-Einstellungen setzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">Betroffenes Objeckt (Menuitem, Conrol usw.)</param>
|
||||||
|
''' <param name="read_only">Readonly ja/nein</param>
|
||||||
|
''' <param name="invisible">Sichtbar ja/nein</param>
|
||||||
|
''' <param name="SecurityObjectItem">Name des Unterobjektes - wird für die Spalteneinstellungen von C1TruedbGrids verwendet</param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub Set_Preferences(ByRef obj As Object, ByVal read_only As Boolean, ByVal invisible As Boolean, ByVal SecurityObjectItem As String)
|
||||||
|
Dim objtype As System.Type = obj.GetType
|
||||||
|
Select Case LCase(objtype.Name)
|
||||||
|
Case "button"
|
||||||
|
Dim ctl As Button = obj
|
||||||
|
If read_only Then ctl.Enabled = False
|
||||||
|
If invisible Then
|
||||||
|
ctl.Visible = False
|
||||||
|
ctl.Enabled = False
|
||||||
|
End If
|
||||||
|
Case "toolstripmenuitem"
|
||||||
|
Dim ctl As ToolStripMenuItem = obj
|
||||||
|
If read_only Then ctl.Enabled = False
|
||||||
|
If invisible Then
|
||||||
|
ctl.Visible = False
|
||||||
|
ctl.Enabled = False
|
||||||
|
End If
|
||||||
|
Case "textbox", "label", "combobox", "checkbox", "toolstripbutton", "panel", "datetimepicker", "toolstrip"
|
||||||
|
If read_only Then obj.Enabled = False
|
||||||
|
If invisible Then obj.Visible = False
|
||||||
|
Case "richtextbox"
|
||||||
|
If read_only Then obj.Enabled = False
|
||||||
|
Try
|
||||||
|
obj.readonly = True
|
||||||
|
obj.enabled = True
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
If invisible Then obj.Visible = False
|
||||||
|
Case "tabpage"
|
||||||
|
If invisible Then
|
||||||
|
Dim tbp As TabPage = obj
|
||||||
|
For Each x As MyFormControls In Me.ctlcol
|
||||||
|
If x.MySecurityObject = tbp.Parent.Name Then
|
||||||
|
Dim tb As TabControl = x.MyControl
|
||||||
|
tb.TabPages.Remove(tbp)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
'20100406 - TabPageHandling
|
||||||
|
If read_only Then
|
||||||
|
'obj.enabled = False
|
||||||
|
For Each CTLX As Control In obj.CONTROLS
|
||||||
|
Me.Objectanalysis_readonly(CTLX)
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
Case "c1truedbgrid"
|
||||||
|
Dim ctl As C1TrueDBGrid = obj
|
||||||
|
If SecurityObjectItem = "" Then
|
||||||
|
If read_only Then ctl.Enabled = False
|
||||||
|
If invisible Then obj.Visible = False
|
||||||
|
Else
|
||||||
|
If read_only Then ctl.Splits(0).DisplayColumns(SecurityObjectItem).Locked = True
|
||||||
|
If invisible Then ctl.Splits(0).DisplayColumns(SecurityObjectItem).Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Select
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Read Objects from Form and save to Database"
|
||||||
|
Dim tmpmenuname As String
|
||||||
|
''' <summary>
|
||||||
|
''' Alle Controls des Formulars zusammensuchen und auf der DB speichern
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="f">Betroffenes Formular</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
|
||||||
|
Public Function List_Form_Controls(ByRef f As Form)
|
||||||
|
Me.ctlcol.Clear()
|
||||||
|
formname = f.Name
|
||||||
|
For Each ctl As Control In f.Controls
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
Next
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 1 To ctlcol.Count
|
||||||
|
Dim secobj As MyFormControls = ctlcol(i)
|
||||||
|
secobj.Write_Object_to_DB()
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Sämtliche Controls vom Formular auslesen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="ctl"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function Objectanalysis(ByRef ctl As Object) As String
|
||||||
|
Dim typ As System.Type = ctl.GetType
|
||||||
|
Select Case LCase(typ.Name)
|
||||||
|
Case "menustrip"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
tmpmenuname = ctl.name
|
||||||
|
ReadMenu(ctl)
|
||||||
|
Case "contextmenustrip"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
tmpmenuname = ctl.name
|
||||||
|
ReadContextMenu(ctl)
|
||||||
|
Case "toolstrip"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptoolstrop As ToolStrip = ctl
|
||||||
|
Try
|
||||||
|
Dim ic As Integer
|
||||||
|
For ic = 0 To tmptoolstrop.Items.Count - 1
|
||||||
|
Try
|
||||||
|
Dim subobj As ToolStripButton
|
||||||
|
subobj = tmptoolstrop.Items(ic)
|
||||||
|
ctlcol.Add(New MyFormControls(subobj, formname, typ.Name, ctl.Name, subobj.Name, 1))
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Next
|
||||||
|
'For Each subobj As ToolStripButton In tmptoolstrop.Items
|
||||||
|
'ctlcol.Add(New MyFormControls(subobj, formname, typ.Name, ctl.Name, subobj.Name, 1))
|
||||||
|
'Next
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Case "splitcontainer"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmpsplit As SplitContainer = ctl
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel1.Controls
|
||||||
|
Objectanalysis(ctrl)
|
||||||
|
Next
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel2.Controls
|
||||||
|
Objectanalysis(ctrl)
|
||||||
|
Next
|
||||||
|
Case "tabcontrol", "clsmytabcontrol"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabcontrol As TabControl = ctl
|
||||||
|
For Each ctl In tmptabcontrol.TabPages
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
Next
|
||||||
|
Case "tabpage"
|
||||||
|
Dim tmptabpage As TabPage = ctl
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
|
||||||
|
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
Next
|
||||||
|
Case "groupbox"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabpage As GroupBox = ctl
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
Next
|
||||||
|
Case "panel"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmppanel As Panel = ctl
|
||||||
|
For Each ctl In tmppanel.Controls
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
Next
|
||||||
|
Case "c1truedbgrid"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim ctrl As C1TrueDBGrid = ctl
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 0 To ctrl.Columns.Count - 1
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ctrl.Columns(i).Caption, 0, ctrl.Columns(i).Caption))
|
||||||
|
Next
|
||||||
|
Try
|
||||||
|
If ctrl.ContextMenuStrip.Name <> "" Then
|
||||||
|
Dim x As ContextMenuStrip = ctrl.ContextMenuStrip
|
||||||
|
Objectanalysis(x)
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
For Each xctl As Object In ctrl.Controls
|
||||||
|
Objectanalysis(xctl)
|
||||||
|
Next
|
||||||
|
Case "advtree"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim ctrl As DevComponents.AdvTree.AdvTree = ctl
|
||||||
|
Try
|
||||||
|
|
||||||
|
If ctrl.ContextMenuStrip.Name <> "" Then
|
||||||
|
Dim x As ContextMenuStrip = ctrl.ContextMenuStrip
|
||||||
|
Objectanalysis(x)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Case "treeview"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim ctrl As TreeView = ctl
|
||||||
|
Try
|
||||||
|
|
||||||
|
If ctrl.ContextMenuStrip.Name <> "" Then
|
||||||
|
Dim x As ContextMenuStrip = ctrl.ContextMenuStrip
|
||||||
|
Objectanalysis(x)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
If ctl.name = "TreeStruktur" Then
|
||||||
|
End If
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Auslesen von MenuItems
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="x"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
'''
|
||||||
|
Dim level As Integer = 0
|
||||||
|
Private Function ReadMenu(ByRef x As Object)
|
||||||
|
Dim tmpmnu As MenuStrip = x
|
||||||
|
level = 0
|
||||||
|
For Each xx As Object In tmpmnu.Items
|
||||||
|
Dim objtype As System.Type = xx.GetType
|
||||||
|
If LCase(objtype.Name) = "toolstripmenuitem" Then
|
||||||
|
ctlcol.Add(New MyFormControls(xx, formname, "menustrip", tmpmenuname, xx.Name, level))
|
||||||
|
get_all_menus(xx)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Auslesen von ContextMenuItems
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="x"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
'''
|
||||||
|
|
||||||
|
Private Function ReadContextMenu(ByRef x As Object)
|
||||||
|
Dim tmpmnu As ContextMenuStrip = x
|
||||||
|
level = 0
|
||||||
|
Try
|
||||||
|
For Each xx As Object In tmpmnu.Items
|
||||||
|
Dim objtype As System.Type = xx.GetType
|
||||||
|
If LCase(objtype.Name) = "toolstripmenuitem" Then
|
||||||
|
ctlcol.Add(New MyFormControls(xx, formname, "menustrip", tmpmenuname, xx.Name, level))
|
||||||
|
get_all_menus(xx)
|
||||||
|
End If
|
||||||
|
' ctlcol.Add(New MyFormControls(xx, formname, "contextmenustrip", tmpmenuname, xx.Name, level))
|
||||||
|
' get_all_menus(xx)
|
||||||
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Auslesen von Menu-Subitems
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="xx"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function get_all_menus(ByRef xx As ToolStripMenuItem)
|
||||||
|
level = level + 1
|
||||||
|
For Each subobj As Object In xx.DropDownItems
|
||||||
|
If LCase(subobj.GetType.Name) = "toolstripmenuitem" Then
|
||||||
|
ctlcol.Add(New MyFormControls(subobj, formname, "menustrip", tmpmenuname, subobj.Name, level))
|
||||||
|
get_all_menus(subobj)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
level = level - 1
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="securityform">Formular</param>
|
||||||
|
''' <param name="securityobjecttype">Objekttyp</param>
|
||||||
|
''' <param name="securityobject">Objektname</param>
|
||||||
|
''' <param name="securityobjectitem">Objektitem</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function Objexists(ByVal securityform As String, ByVal securityobjecttype As String, ByVal securityobject As String, ByVal securityobjectitem As String) As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[my_security_check_entry]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@form", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityform))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objecttype", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobjecttype))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@object", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobject))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objectitem", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobjectitem))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objexists", SqlDbType.Int, 4, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, 0))
|
||||||
|
scmCmdToExecute.Connection.Open()
|
||||||
|
scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
If scmCmdToExecute.Parameters("@objexists").Value > 0 Then
|
||||||
|
Return True
|
||||||
|
Else
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
scmCmdToExecute.Connection.Close()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "ScreenDoku"
|
||||||
|
|
||||||
|
Public Function Print_Screen(ByRef ctl As Control)
|
||||||
|
saveasbitmap(ctl, ctl.Name)
|
||||||
|
End Function
|
||||||
|
Public Function Generate_HTML()
|
||||||
|
saveasbitmap(Me.IntForm, "testform")
|
||||||
|
'Exit Function
|
||||||
|
'Dim x As MyFormControls
|
||||||
|
'For Each x In ctlcol
|
||||||
|
' Try
|
||||||
|
' saveasbitmap(x.MyControl, x.MyFormname & "_" & x.MySecurityObject & "_" & x.MySecurityObjectItem)
|
||||||
|
' If x.MySecurityObjecttype = "ToolStrip" And x.MySecurityObjectItem = "" Then
|
||||||
|
' Dim gaga As ToolStrip = x.MyControl
|
||||||
|
' For Each c As ToolStripButton In gaga.Items
|
||||||
|
' Dim xxx As Control = CType(c, Control)
|
||||||
|
|
||||||
|
' xxx = CType(c, Control)
|
||||||
|
' saveasbitmap(xxx, "xxx")
|
||||||
|
' Next
|
||||||
|
' End If
|
||||||
|
' Catch ex As Exception
|
||||||
|
' MsgBox(ex.Message)
|
||||||
|
' End Try
|
||||||
|
'Next
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function saveasbitmap(ByRef ctl As Control, ByVal filename As String)
|
||||||
|
Dim g As Graphics = ctl.CreateGraphics
|
||||||
|
Dim b As New Bitmap(ctl.Width, ctl.Height)
|
||||||
|
ctl.DrawToBitmap(b, New Rectangle(0, 0, ctl.Width, ctl.Height))
|
||||||
|
'b.Save("E:\Software-Projekte\Vertragsverwaltung\Screens\" & filename & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
''' <summary>
|
||||||
|
''' Klasse für ein Control-Objekt
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Class MyFormControls
|
||||||
|
|
||||||
|
Public MyControl As Object
|
||||||
|
Public MyFormname As String
|
||||||
|
Public MySecurityObjecttype As String
|
||||||
|
Public MySecurityObject As String
|
||||||
|
Public MySecurityObjectItem As String
|
||||||
|
Public MyDescription As String
|
||||||
|
Public MyLevel As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Neue Instanz erstellen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="ctl">Control-Objekt</param>
|
||||||
|
''' <param name="Formname">Betroffenes Formular</param>
|
||||||
|
''' <param name="securityobjecttype">Objekttyp</param>
|
||||||
|
''' <param name="Securityobject">Objektname</param>
|
||||||
|
''' <param name="SecurityObjectItem">Unterobjekt (z.B. bei Menus, Spalten von C1TrueDBGrids)</param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Sub New(ByVal ctl As Object, ByVal Formname As String, ByVal securityobjecttype As String, ByVal Securityobject As String, ByVal SecurityObjectItem As String, Optional ByVal level As Integer = 0, Optional ByVal desc As String = "")
|
||||||
|
MyControl = ctl
|
||||||
|
MySecurityObjecttype = securityobjecttype
|
||||||
|
MyFormname = Formname
|
||||||
|
MySecurityObject = Securityobject
|
||||||
|
MySecurityObjectItem = SecurityObjectItem
|
||||||
|
If desc = "" Then
|
||||||
|
MyDescription = Get_Description(ctl)
|
||||||
|
Else
|
||||||
|
MyDescription = desc
|
||||||
|
End If
|
||||||
|
Try
|
||||||
|
MyDescription = MyDescription.Replace("&", "")
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
MyLevel = level
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Function Get_Description(ByRef ctl As Object) As String
|
||||||
|
Dim typ As System.Type = ctl.GetType
|
||||||
|
Select Case LCase(typ.Name)
|
||||||
|
Case "menustrip", "toolstripmenuitem", "toolstrip", "toolstripbutton", "contextmenustrip", "tabpage", "c1truedbgrid", "label"
|
||||||
|
Return ctl.Text
|
||||||
|
Case Else
|
||||||
|
Return ctl.Name
|
||||||
|
End Select
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Schreibt einen Datnsatz in die Tabelle SecurityObjects
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Write_Object_to_DB()
|
||||||
|
If Objexists() Then Exit Function
|
||||||
|
Dim sectbl As New DB.clsSecurityObject
|
||||||
|
Dim dbkey As New DB.clsMyKey_Tabelle
|
||||||
|
dbkey.cpMainConnectionProvider = Globals.conn
|
||||||
|
Dim newkey As Integer = dbkey.get_dbkey("SecurityObject")
|
||||||
|
|
||||||
|
sectbl.cpMainConnectionProvider = Globals.conn
|
||||||
|
conn.OpenConnection()
|
||||||
|
sectbl.iSecurityObjectNr = New SqlInt32(CType(newkey, Int32))
|
||||||
|
sectbl.sSecurityForm = New SqlString(CType(MyFormname, String))
|
||||||
|
sectbl.sSecurityObjectType = New SqlString(CType(Me.MySecurityObjecttype, String))
|
||||||
|
sectbl.sSecurityObject = New SqlString(CType(Me.MySecurityObject, String))
|
||||||
|
sectbl.sSecurityObjectItem = New SqlString(CType(Me.MySecurityObjectItem, String))
|
||||||
|
sectbl.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||||
|
sectbl.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
sectbl.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
sectbl.sSecurityObjectDescriotion = New SqlString(CType(Me.MyDescription, String))
|
||||||
|
sectbl.iLevel = New SqlInt32(CType(Me.MyLevel, Int32))
|
||||||
|
sectbl.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
||||||
|
sectbl.iMandantnr = New SqlInt32(CType(Globals.clsmitarbeiter.iMandantnr.Value, Int32))
|
||||||
|
sectbl.Insert()
|
||||||
|
conn.CloseConnection(True)
|
||||||
|
sectbl.Dispose()
|
||||||
|
dbkey.Dispose()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
'''Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function Objexists() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[my_security_check_entry]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@form", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MyFormname))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objecttype", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObjecttype))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@object", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObject))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objectitem", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObjectItem))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objexists", SqlDbType.Int, 4, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, 0))
|
||||||
|
scmCmdToExecute.Connection.Open()
|
||||||
|
scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
If scmCmdToExecute.Parameters("@objexists").Value > 0 Then
|
||||||
|
Return True
|
||||||
|
Else
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
scmCmdToExecute.Connection.Close()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Class ControlsCollection
|
||||||
|
Private Shared m_controls As Collection
|
||||||
|
Public Sub New(ByVal myForm As Form)
|
||||||
|
m_controls = New Collection
|
||||||
|
'create a control walker to get
|
||||||
|
'all controls on the form
|
||||||
|
Dim aControlWalker As New ControlWalker(myForm)
|
||||||
|
End Sub
|
||||||
|
'This property returns the collection of all controls
|
||||||
|
'on the form
|
||||||
|
ReadOnly Property Controls() As Collection
|
||||||
|
Get
|
||||||
|
Return m_controls
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Function FindControl(ByVal ctlname As String) As Boolean
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 1 To Me.m_controls.Count
|
||||||
|
Dim ctl As Control = m_controls(i)
|
||||||
|
If UCase(ctl.Name) = UCase(ctlname) Then MsgBox("found")
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
Private Class ControlWalker
|
||||||
|
' This class recursively walks through all controls
|
||||||
|
' in a container, and all containers contained in
|
||||||
|
' this container, visiting all controls throughout
|
||||||
|
' the hierarchy
|
||||||
|
Private mContainer As Object
|
||||||
|
Public Sub New(ByVal Container As Object)
|
||||||
|
Dim cControl As Control
|
||||||
|
If Container.haschildren Then
|
||||||
|
For Each cControl In Container.controls
|
||||||
|
'add this control to the controls collection
|
||||||
|
m_controls.Add(cControl)
|
||||||
|
If cControl.HasChildren Then
|
||||||
|
'This control has children, create another
|
||||||
|
'ControlWalk go visit each of them
|
||||||
|
Dim cWalker As New ControlWalker(cControl)
|
||||||
|
End If
|
||||||
|
Next cControl
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
192
SW/20211125/AssessmentMgmt/Klassen/clsHistory.vb
Normal file
192
SW/20211125/AssessmentMgmt/Klassen/clsHistory.vb
Normal file
@@ -0,0 +1,192 @@
|
|||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports DevComponents
|
||||||
|
Public Class clsHistory
|
||||||
|
Inherits DB.clsPruefSchrittHistory
|
||||||
|
|
||||||
|
Public daten As New DataTable
|
||||||
|
Public Neuer_Datensatz As Boolean = False
|
||||||
|
Public Mitarbeiterdaten As New DataTable
|
||||||
|
|
||||||
|
Dim stammdaten As New DB.clsStammdaten
|
||||||
|
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||||
|
|
||||||
|
|
||||||
|
Dim mMutierer As String
|
||||||
|
Property MutiererText() As String
|
||||||
|
Get
|
||||||
|
Return mMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As String)
|
||||||
|
mMutierer = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Function Get_Mutierer(ByVal nr As Integer) As String
|
||||||
|
Try
|
||||||
|
Dim ma As New DB.clsMitarbeiter
|
||||||
|
Dim dt As New DataTable
|
||||||
|
Dim Retvalue As String
|
||||||
|
ma.cpMainConnectionProvider = Globals.conn
|
||||||
|
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
|
||||||
|
dt = ma.SelectOne()
|
||||||
|
If dt.Rows.Count = 0 Then
|
||||||
|
Retvalue = ("{" + nr.ToString + "}")
|
||||||
|
Else
|
||||||
|
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
|
||||||
|
End If
|
||||||
|
ma.Dispose()
|
||||||
|
dt.Dispose()
|
||||||
|
Return Retvalue
|
||||||
|
Catch
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function Get_Data(ByVal Nr As Integer)
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iPruefschrittNr = New SqlInt32(CType(Nr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.daten = Me.SelectOne()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Try
|
||||||
|
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
|
||||||
|
Catch ex As Exception
|
||||||
|
Me.MutiererText = ""
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Save_Data() As Integer
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Update()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Löschen eines Datensatzes erstellen.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
If bAktiv.Value = False Then Exit Function
|
||||||
|
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Update()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
MyBase.Delete()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Neue Person einfügen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Add_New() As Integer
|
||||||
|
Dim db As New DB.clsMyKey_Tabelle
|
||||||
|
db.cpMainConnectionProvider = Globals.conn
|
||||||
|
Dim newkey = db.get_dbkey("PruefschrittHistory")
|
||||||
|
db.Dispose()
|
||||||
|
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||||
|
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Me.sBeschreibung = New SqlString(CType("", String))
|
||||||
|
Me.daEintragdatum = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iPruefSchrittHistoryNr = New SqlInt32(CType(newkey, Int32))
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
|
||||||
|
Try
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Insert()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Me.Neuer_Datensatz = True
|
||||||
|
Return Me.iPruefSchrittHistoryNr.Value
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Insert_History(pruefschrittnr As Integer, type As Integer, String1 As String, String2 As String)
|
||||||
|
Dim i As Integer = Me.Add_New()
|
||||||
|
Me.iPruefschrittNr = New SqlInt32(CType(pruefschrittnr, Int32))
|
||||||
|
Select Case type
|
||||||
|
Case 0
|
||||||
|
'String1 = individuelle Beschreibung für den HistoryEintrag
|
||||||
|
Me.sBeschreibung = New SqlString(CType(String1, String))
|
||||||
|
Case 1
|
||||||
|
'String1 = Mitarbeiternr Absender
|
||||||
|
'String2 = Mitarbeiternr Empfänger
|
||||||
|
Dim ma As New clsMitarbeiter
|
||||||
|
String1 = ma.Get_Mitarbeitername(String1)
|
||||||
|
String2 = ma.Get_Mitarbeitername(String2)
|
||||||
|
ma.dispose()
|
||||||
|
Me.sBeschreibung = New SqlString(CType("Assessment zugeteilt von " + String1 + " zu " + String2, String))
|
||||||
|
Case 2
|
||||||
|
Dim ma As New clsMitarbeiter
|
||||||
|
String1 = ma.Get_Mitarbeitername(String1)
|
||||||
|
Me.sBeschreibung = New SqlString(CType("Assessment abgeschlossen von " + String1, String))
|
||||||
|
End Select
|
||||||
|
Me.Save_Data()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Pruefschrittnr As Integer)
|
||||||
|
Try
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "sp_get_pruefschritthistory"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Pruefschrittnr))
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ds, "Datatable1")
|
||||||
|
c1daten.DataSource = Nothing
|
||||||
|
c1daten.DataSource = ds.Tables(0)
|
||||||
|
c1daten.DataMember = ds.Tables(0).TableName
|
||||||
|
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefschritthistory", ds.Tables(0))
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
End Class
|
||||||
150
SW/20211125/AssessmentMgmt/Klassen/clsMitarbeiter.vb
Normal file
150
SW/20211125/AssessmentMgmt/Klassen/clsMitarbeiter.vb
Normal file
@@ -0,0 +1,150 @@
|
|||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports DevComponents
|
||||||
|
Public Class clsMitarbeiter
|
||||||
|
Inherits DB.clsMitarbeiter
|
||||||
|
|
||||||
|
Public daten As New DataTable
|
||||||
|
Public Neuer_Datensatz As Boolean = False
|
||||||
|
Public Mitarbeiterdaten As New DataTable
|
||||||
|
|
||||||
|
Dim stammdaten As New DB.clsStammdaten
|
||||||
|
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||||
|
Public VerantwortlichISIdaten As New DataTable
|
||||||
|
|
||||||
|
Dim mMutierer As String
|
||||||
|
Property MutiererText() As String
|
||||||
|
Get
|
||||||
|
Return mMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As String)
|
||||||
|
mMutierer = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
Mitarbeiterdaten = stammdaten.Get_Stammdaten("mitarbeiter", "bezeichnung")
|
||||||
|
VerantwortlichISIdaten = stammdaten.Get_Stammdaten("verantwortungisi", "bezeichnung")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub dispose()
|
||||||
|
Mitarbeiterdaten.Dispose()
|
||||||
|
VerantwortlichISIdaten.Dispose()
|
||||||
|
End Sub
|
||||||
|
Public Function Get_Mitarbeitername(ByVal nr As Integer) As String
|
||||||
|
Return Get_Mutierer(nr)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Mutierer(ByVal nr As Integer) As String
|
||||||
|
Try
|
||||||
|
Dim ma As New DB.clsMitarbeiter
|
||||||
|
Dim dt As New DataTable
|
||||||
|
Dim Retvalue As String
|
||||||
|
ma.cpMainConnectionProvider = Globals.conn
|
||||||
|
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
|
||||||
|
dt = ma.SelectOne()
|
||||||
|
If dt.Rows.Count = 0 Then
|
||||||
|
Retvalue = ("{" + nr.ToString + "}")
|
||||||
|
Else
|
||||||
|
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
|
||||||
|
End If
|
||||||
|
ma.Dispose()
|
||||||
|
dt.Dispose()
|
||||||
|
Return Retvalue
|
||||||
|
Catch
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function Get_Data(ByVal Nr As Integer)
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iMitarbeiternr = New SqlInt32(CType(Nr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.daten = Me.SelectOne()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Try
|
||||||
|
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
|
||||||
|
Catch ex As Exception
|
||||||
|
Me.MutiererText = ""
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Save_Data() As Integer
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Update()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Löschen eines Datensatzes erstellen.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
If bAktiv.Value = False Then Exit Function
|
||||||
|
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Update()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
MyBase.Delete()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Neue Person einfügen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Add_New() As Integer
|
||||||
|
Dim db As New DB.clsMyKey_Tabelle
|
||||||
|
db.cpMainConnectionProvider = Globals.conn
|
||||||
|
Dim newkey = db.get_dbkey("Mitarbeiter")
|
||||||
|
db.Dispose()
|
||||||
|
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||||
|
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Me.sName = New SqlString(CType("", String))
|
||||||
|
Me.sVorname = New SqlString(CType("", String))
|
||||||
|
Me.sTgnummer = New SqlString(CType("", String))
|
||||||
|
Me.sEmail = New SqlString(CType("", String))
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Try
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Insert()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Me.Neuer_Datensatz = True
|
||||||
|
Return Me.iMitarbeiternr.Value
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
42
SW/20211125/AssessmentMgmt/Klassen/clsStammdaten.vb
Normal file
42
SW/20211125/AssessmentMgmt/Klassen/clsStammdaten.vb
Normal file
@@ -0,0 +1,42 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace db
|
||||||
|
|
||||||
|
Public Class clsStammdaten
|
||||||
|
Public Function Get_Stammdaten(ByVal Tabelle As String, ByVal orderby As String) As DataTable
|
||||||
|
Dim selectcommand As New SqlCommand
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim ds As New DataSet
|
||||||
|
selectcommand.CommandText = "sp_get_stammdaten"
|
||||||
|
selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
|
||||||
|
selectcommand.Parameters.Add("@Tabelle", SqlDbType.VarChar, 255)
|
||||||
|
selectcommand.Parameters.Add("@Orderby", SqlDbType.VarChar, 255)
|
||||||
|
selectcommand.Parameters(0).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
selectcommand.Parameters(1).Value = Tabelle
|
||||||
|
selectcommand.Parameters(2).Value = orderby
|
||||||
|
|
||||||
|
selectcommand.CommandType = CommandType.StoredProcedure
|
||||||
|
selectcommand.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = selectcommand
|
||||||
|
da.Fill(ds)
|
||||||
|
Return ds.Tables(0)
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
ds.Dispose()
|
||||||
|
selectcommand.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
159
SW/20211125/AssessmentMgmt/Klassen/clsToolTips.vb
Normal file
159
SW/20211125/AssessmentMgmt/Klassen/clsToolTips.vb
Normal file
@@ -0,0 +1,159 @@
|
|||||||
|
Imports C1.Win.C1TrueDBGrid
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Namespace TKB.VV.Utils
|
||||||
|
|
||||||
|
Public Class clsToolTips
|
||||||
|
Public WithEvents MyTooltip As New ToolTip
|
||||||
|
Dim ToolTipData As DataSet = Globals.ToolTipDaten
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim l As New List(Of Control)
|
||||||
|
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
|
||||||
|
|
||||||
|
Public Function Edit_ToolTips(ByRef frm As Form, ByRef ctlcol As Collection)
|
||||||
|
Me.Load_Data()
|
||||||
|
l.Clear()
|
||||||
|
Me.GetControl(frm, "*", l)
|
||||||
|
For Each s As Control In l
|
||||||
|
Try
|
||||||
|
MyTooltip.SetToolTip(s, frm.Name + "|" + s.Name)
|
||||||
|
MyTooltip.Tag = frm.Name
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
'For Each ctl As Control In ctlcol
|
||||||
|
' Try
|
||||||
|
' MyTooltip.SetToolTip(ctl, "SetToolTip")
|
||||||
|
' MyTooltip.Tag = frm.Name + "|" + ctl.Name
|
||||||
|
' Catch ex As Exception
|
||||||
|
' End Try
|
||||||
|
'Next
|
||||||
|
End Function
|
||||||
|
Private Sub MyTooltip_Popup(ByVal sender As Object, ByVal e As System.Windows.Forms.PopupEventArgs) Handles MyTooltip.Popup
|
||||||
|
'MsgBox(e.AssociatedControl.Name)
|
||||||
|
evh.Edit_Tooltip(MyTooltip.Tag, e.AssociatedControl.Name)
|
||||||
|
'Dim s As String = MyTooltip.Tag
|
||||||
|
'Dim sp() As String
|
||||||
|
'sp = s.Split("|")
|
||||||
|
'evh.Edit_Tooltip(sp(0), sp(1))
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function Set_ToolTips(ByRef frm As Form)
|
||||||
|
Me.Load_Data()
|
||||||
|
'MyTooltip.ToolTipIcon = ToolTipIcon.Info
|
||||||
|
MyTooltip.IsBalloon = True
|
||||||
|
MyTooltip.UseFading = True
|
||||||
|
MyTooltip.UseAnimation = True
|
||||||
|
Dim dv As New DataView(ToolTipData.Tables(0), "Aktiv = 1 and (Formularname='" & frm.Name & "' or Formularname='Allgemein')", "", DataViewRowState.CurrentRows)
|
||||||
|
For Each dr As DataRowView In dv
|
||||||
|
l.Clear()
|
||||||
|
Me.GetControl(frm, dr.Item("Controlname"), l)
|
||||||
|
Try
|
||||||
|
For Each ctl As Control In l
|
||||||
|
Try
|
||||||
|
MyTooltip.SetToolTip(ctl, dr.Item("ToolTip"))
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Daten ab Datenbank laden
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub Load_Data()
|
||||||
|
Try
|
||||||
|
If ToolTipData.Tables.Count < 1 Then
|
||||||
|
ToolTipData.Tables.Clear()
|
||||||
|
Else
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
ToolTipData.Tables.Clear()
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "dbo.my_tooltip_get_data"
|
||||||
|
'sqlcmd.Parameters(1).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ToolTipData, "Tooltips")
|
||||||
|
Globals.SecurityDaten.Tables.Add(ToolTipData.Tables(0).Copy)
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#Region "Utils"
|
||||||
|
''' <summary>
|
||||||
|
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
|
||||||
|
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
|
||||||
|
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
|
||||||
|
''' <param name="L">Liste der gefundenen Objekte</param>
|
||||||
|
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
|
||||||
|
''' </returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
|
||||||
|
If L Is Nothing Then L = New List(Of Control)
|
||||||
|
Dim Gut As Boolean
|
||||||
|
Dim ReturnFlag As Boolean = False
|
||||||
|
If Key IsNot Nothing Then Key = Key.ToLower
|
||||||
|
|
||||||
|
If BaseControl.HasChildren = True Then
|
||||||
|
For Each ctl As Control In BaseControl.Controls
|
||||||
|
Gut = False
|
||||||
|
If Key Is Nothing Then
|
||||||
|
Gut = True
|
||||||
|
Else
|
||||||
|
If ctl.Name.Length >= Key.Length Then
|
||||||
|
Key = Key.ToLower
|
||||||
|
If Key.StartsWith("*") Then
|
||||||
|
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
|
||||||
|
ElseIf Key.EndsWith("*") Then
|
||||||
|
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
|
||||||
|
Else
|
||||||
|
If Key = ctl.Name.ToLower Then Gut = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Gut = True Then
|
||||||
|
L.Add(ctl)
|
||||||
|
If ReturnAtFirstElement = True Then ReturnFlag = True
|
||||||
|
End If
|
||||||
|
If ReturnFlag = False Then
|
||||||
|
Call GetControl(ctl, Key, L)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
If L.Count - 1 > -1 Then
|
||||||
|
Return True
|
||||||
|
Else
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
235
SW/20211125/AssessmentMgmt/Massnahmen/MassnahmeDetailBearbeitung.Designer.vb
generated
Normal file
235
SW/20211125/AssessmentMgmt/Massnahmen/MassnahmeDetailBearbeitung.Designer.vb
generated
Normal file
@@ -0,0 +1,235 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
|
Partial Class MassnahmeDetailBearbeitung
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()>
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MassnahmeDetailBearbeitung))
|
||||||
|
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||||
|
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.NeuAnmeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.GrpResultate = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.GrpBeschreibung = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
|
||||||
|
Me.GrpStatus = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.btnPruefungabgeschlossen = New System.Windows.Forms.Button()
|
||||||
|
Me.cbboxStatus = New System.Windows.Forms.ComboBox()
|
||||||
|
Me.GrpDokumente = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.DokumenteAllgemein = New ThemenDokumente.Dokumente()
|
||||||
|
Me.MenuStrip1.SuspendLayout()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.GrpResultate.SuspendLayout()
|
||||||
|
Me.GrpBeschreibung.SuspendLayout()
|
||||||
|
Me.GrpStatus.SuspendLayout()
|
||||||
|
Me.GrpDokumente.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'MenuStrip1
|
||||||
|
'
|
||||||
|
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||||
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||||
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
|
Me.MenuStrip1.Size = New System.Drawing.Size(724, 24)
|
||||||
|
Me.MenuStrip1.TabIndex = 9
|
||||||
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
|
'
|
||||||
|
'DateiToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem, Me.NeuAnmeldenToolStripMenuItem})
|
||||||
|
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||||
|
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||||
|
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||||
|
'
|
||||||
|
'BeendenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||||
|
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||||
|
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||||
|
'
|
||||||
|
'NeuAnmeldenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.NeuAnmeldenToolStripMenuItem.Name = "NeuAnmeldenToolStripMenuItem"
|
||||||
|
Me.NeuAnmeldenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||||
|
Me.NeuAnmeldenToolStripMenuItem.Text = "&Neu anmelden"
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(724, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 10
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
|
||||||
|
'
|
||||||
|
'TSBtnSave
|
||||||
|
'
|
||||||
|
Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnSave.Name = "TSBtnSave"
|
||||||
|
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnSave.Text = "Speichern"
|
||||||
|
'
|
||||||
|
'GrpResultate
|
||||||
|
'
|
||||||
|
Me.GrpResultate.Controls.Add(Me.GrpBeschreibung)
|
||||||
|
Me.GrpResultate.Controls.Add(Me.GrpStatus)
|
||||||
|
Me.GrpResultate.Dock = System.Windows.Forms.DockStyle.Left
|
||||||
|
Me.GrpResultate.Location = New System.Drawing.Point(0, 49)
|
||||||
|
Me.GrpResultate.Name = "GrpResultate"
|
||||||
|
Me.GrpResultate.Size = New System.Drawing.Size(374, 435)
|
||||||
|
Me.GrpResultate.TabIndex = 11
|
||||||
|
Me.GrpResultate.TabStop = False
|
||||||
|
Me.GrpResultate.Text = "Resultat der Prüfung"
|
||||||
|
'
|
||||||
|
'GrpBeschreibung
|
||||||
|
'
|
||||||
|
Me.GrpBeschreibung.Controls.Add(Me.txtBeschreibung)
|
||||||
|
Me.GrpBeschreibung.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrpBeschreibung.Location = New System.Drawing.Point(3, 61)
|
||||||
|
Me.GrpBeschreibung.Name = "GrpBeschreibung"
|
||||||
|
Me.GrpBeschreibung.Size = New System.Drawing.Size(368, 371)
|
||||||
|
Me.GrpBeschreibung.TabIndex = 1
|
||||||
|
Me.GrpBeschreibung.TabStop = False
|
||||||
|
Me.GrpBeschreibung.Text = "Beschreibung"
|
||||||
|
'
|
||||||
|
'txtBeschreibung
|
||||||
|
'
|
||||||
|
Me.txtBeschreibung.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.txtBeschreibung.Location = New System.Drawing.Point(3, 16)
|
||||||
|
Me.txtBeschreibung.Multiline = True
|
||||||
|
Me.txtBeschreibung.Name = "txtBeschreibung"
|
||||||
|
Me.txtBeschreibung.Size = New System.Drawing.Size(362, 352)
|
||||||
|
Me.txtBeschreibung.TabIndex = 3
|
||||||
|
'
|
||||||
|
'GrpStatus
|
||||||
|
'
|
||||||
|
Me.GrpStatus.Controls.Add(Me.btnPruefungabgeschlossen)
|
||||||
|
Me.GrpStatus.Controls.Add(Me.cbboxStatus)
|
||||||
|
Me.GrpStatus.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.GrpStatus.Location = New System.Drawing.Point(3, 16)
|
||||||
|
Me.GrpStatus.Name = "GrpStatus"
|
||||||
|
Me.GrpStatus.Size = New System.Drawing.Size(368, 45)
|
||||||
|
Me.GrpStatus.TabIndex = 3
|
||||||
|
Me.GrpStatus.TabStop = False
|
||||||
|
Me.GrpStatus.Text = "Status"
|
||||||
|
'
|
||||||
|
'btnPruefungabgeschlossen
|
||||||
|
'
|
||||||
|
Me.btnPruefungabgeschlossen.Location = New System.Drawing.Point(9, 14)
|
||||||
|
Me.btnPruefungabgeschlossen.Name = "btnPruefungabgeschlossen"
|
||||||
|
Me.btnPruefungabgeschlossen.Size = New System.Drawing.Size(157, 23)
|
||||||
|
Me.btnPruefungabgeschlossen.TabIndex = 1
|
||||||
|
Me.btnPruefungabgeschlossen.Text = "Prüfung abgeschlossen"
|
||||||
|
Me.btnPruefungabgeschlossen.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'cbboxStatus
|
||||||
|
'
|
||||||
|
Me.cbboxStatus.FormattingEnabled = True
|
||||||
|
Me.cbboxStatus.Location = New System.Drawing.Point(10, 16)
|
||||||
|
Me.cbboxStatus.Name = "cbboxStatus"
|
||||||
|
Me.cbboxStatus.Size = New System.Drawing.Size(94, 21)
|
||||||
|
Me.cbboxStatus.TabIndex = 0
|
||||||
|
Me.cbboxStatus.Visible = False
|
||||||
|
'
|
||||||
|
'GrpDokumente
|
||||||
|
'
|
||||||
|
Me.GrpDokumente.Controls.Add(Me.DokumenteAllgemein)
|
||||||
|
Me.GrpDokumente.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrpDokumente.Location = New System.Drawing.Point(374, 49)
|
||||||
|
Me.GrpDokumente.Name = "GrpDokumente"
|
||||||
|
Me.GrpDokumente.Size = New System.Drawing.Size(350, 435)
|
||||||
|
Me.GrpDokumente.TabIndex = 12
|
||||||
|
Me.GrpDokumente.TabStop = False
|
||||||
|
Me.GrpDokumente.Text = "Dokumente"
|
||||||
|
'
|
||||||
|
'DokumenteAllgemein
|
||||||
|
'
|
||||||
|
Me.DokumenteAllgemein.ConnectionString = Nothing
|
||||||
|
Me.DokumenteAllgemein.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.DokumenteAllgemein.Doktype = 0
|
||||||
|
Me.DokumenteAllgemein.Location = New System.Drawing.Point(3, 16)
|
||||||
|
Me.DokumenteAllgemein.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
|
||||||
|
Me.DokumenteAllgemein.Mitarbeiternr = 0
|
||||||
|
Me.DokumenteAllgemein.Name = "DokumenteAllgemein"
|
||||||
|
Me.DokumenteAllgemein.Pruefschrittnr = 0
|
||||||
|
Me.DokumenteAllgemein.Size = New System.Drawing.Size(344, 416)
|
||||||
|
Me.DokumenteAllgemein.TabIndex = 33
|
||||||
|
Me.DokumenteAllgemein.TempFilePath = Nothing
|
||||||
|
Me.DokumenteAllgemein.ThemaNr = 0
|
||||||
|
'
|
||||||
|
'MassnahmeDetailBearbeitung
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(724, 484)
|
||||||
|
Me.Controls.Add(Me.GrpDokumente)
|
||||||
|
Me.Controls.Add(Me.GrpResultate)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.Name = "MassnahmeDetailBearbeitung"
|
||||||
|
Me.Text = "MassnahmeDetailBearbeitung"
|
||||||
|
Me.MenuStrip1.ResumeLayout(False)
|
||||||
|
Me.MenuStrip1.PerformLayout()
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.GrpResultate.ResumeLayout(False)
|
||||||
|
Me.GrpBeschreibung.ResumeLayout(False)
|
||||||
|
Me.GrpBeschreibung.PerformLayout()
|
||||||
|
Me.GrpStatus.ResumeLayout(False)
|
||||||
|
Me.GrpDokumente.ResumeLayout(False)
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents MenuStrip1 As MenuStrip
|
||||||
|
Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
|
||||||
|
Friend WithEvents BeendenToolStripMenuItem As ToolStripMenuItem
|
||||||
|
Friend WithEvents NeuAnmeldenToolStripMenuItem As ToolStripMenuItem
|
||||||
|
Friend WithEvents ToolStrip1 As ToolStrip
|
||||||
|
Friend WithEvents TSBtnQuit As ToolStripButton
|
||||||
|
Friend WithEvents TSBtnSave As ToolStripButton
|
||||||
|
Friend WithEvents GrpResultate As GroupBox
|
||||||
|
Friend WithEvents GrpBeschreibung As GroupBox
|
||||||
|
Friend WithEvents txtBeschreibung As TextBox
|
||||||
|
Friend WithEvents GrpStatus As GroupBox
|
||||||
|
Friend WithEvents btnPruefungabgeschlossen As Button
|
||||||
|
Friend WithEvents cbboxStatus As ComboBox
|
||||||
|
Friend WithEvents GrpDokumente As GroupBox
|
||||||
|
Friend WithEvents DokumenteAllgemein As ThemenDokumente.Dokumente
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,162 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>17, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>124, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
|
||||||
|
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
|
||||||
|
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
|
||||||
|
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
|
||||||
|
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
|
||||||
|
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
|
||||||
|
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
|
||||||
|
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
|
||||||
|
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
|
||||||
|
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
|
||||||
|
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
|
||||||
|
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
|
||||||
|
DzXbwlLPDlfpAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKQSURBVDhPrY/JTxNRAIdf0kQPJoZ4MOFEUNwoWLbSllUg
|
||||||
|
KAFKy6JSFFDABUwQLxz4B0iaECImGA9owo14aCXFUFot2MJAC5zdN+hCaaEFSUQoP997DFSJRyf5kpnM
|
||||||
|
7/veDPkvl06n22hpaoZlfAoL3hUs+lbhXlqFxx+CdzkMXyAMfyCE5WAI43YBba1teHC/Y0PUCWmob0Aj
|
||||||
|
xTE9hwX/2l8sLq/DHViHJ7gO38oPTLvmwQ67e/sORJ2Qm403wBCc89iO7Bwggq3tCH5tbePn5hY9ZJZv
|
||||||
|
bzW3RAP1166D8UZw4dtSaBdfCF8pX+jvfPau4pNnBR/dQdgcM3zLIqJOSF2tDgzLhAAv/dQ9PIE1+vns
|
||||||
|
N8L47g/z4Khtkm9ZRNQJuVJzGYwRqx1zH7yYp8y9Z3gwS3G9o7x1Y4bywjzBt3VXa6OB6soqMB49eQbD
|
||||||
|
6ASGLQ6YXk1h5LUAE2XYOgmj2Y7nL214+Pgp37KIqBOiVVfgn1Roohx4V62tjAbUpWX4E025GlUaLR/V
|
||||||
|
0NMY7JmJ6rLy/Y2oE1JSfBGM0kslsNlscLlcHKfTyWH3giAgS6GEQi7f34o6IYV5+WAUFxbBarUiPzcP
|
||||||
|
ykwFHA4H7HY7j46NjSE/JxfZqiwU0G3RhYJoIFupAiMvKxsWOkxPSUWyVAqz2QyTyQSDwYChoSGoaFSR
|
||||||
|
IUcOi9BDRJ2QjNS0TXlqGh8YjUacPpmAE/HxXBocHMTAwAD6+/shS0qGTJqEzLR0KGlI1AmJORpzL/lc
|
||||||
|
YiRdlsLHe1JfXx96enqg1+vR3d2NMzR8NuEUzidKWWiHqkd2C4Qck0gkpXFxcVVdXV1NVGjt7e1tp3TQ
|
||||||
|
QDt77uzsbIw9Hqs9JJFoGHRfQAg5/BslsRWFgJrRJAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,280 @@
|
|||||||
|
Public Class MassnahmeDetailBearbeitung
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Deklarationen"
|
||||||
|
|
||||||
|
|
||||||
|
Dim OnRefresh_Findings As Boolean = False
|
||||||
|
|
||||||
|
Dim m_MassnahmeNr As Integer
|
||||||
|
Property Massnahmenr As Integer
|
||||||
|
Get
|
||||||
|
Return m_MassnahmeNr
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
m_MassnahmeNr = value
|
||||||
|
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim m_handler As Integer
|
||||||
|
Property Handler As Integer
|
||||||
|
Get
|
||||||
|
Return m_handler
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
m_handler = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim m_readonly As Boolean
|
||||||
|
Property IsReadonly As Boolean
|
||||||
|
Get
|
||||||
|
Return m_readonly
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
m_readonly = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
|
||||||
|
Dim sec As New Utils.MySecurity
|
||||||
|
Dim msg As New Utils.MyMessage
|
||||||
|
Dim FormReadonly As Boolean = False
|
||||||
|
Dim FormDataChanged As Boolean = False
|
||||||
|
Dim status As New clsStatus
|
||||||
|
|
||||||
|
Dim massnahme As New clsMassnahme
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Closing / Check_Changes"
|
||||||
|
''' <summary>
|
||||||
|
''' Schliessen des Formulars
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
||||||
|
If Me.FormReadonly = True Then Exit Sub
|
||||||
|
If Check_Changes() = False Then
|
||||||
|
e.Cancel = True
|
||||||
|
Else
|
||||||
|
|
||||||
|
Me.Dispose()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Prüfung, ob Datenänderungen vorgenommen wurden.
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function Check_Changes() As Boolean
|
||||||
|
If Me.FormReadonly Then
|
||||||
|
Return True
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
Dim msgres As MsgBoxResult
|
||||||
|
If Me.FormDataChanged Then
|
||||||
|
msgres = msg.Show_MessageYesNoCancel(3)
|
||||||
|
Select Case msgres
|
||||||
|
Case MsgBoxResult.Yes
|
||||||
|
save_data()
|
||||||
|
Return True
|
||||||
|
Case MsgBoxResult.Cancel
|
||||||
|
Return False
|
||||||
|
Case MsgBoxResult.No
|
||||||
|
Me.FormDataChanged = False
|
||||||
|
Return True
|
||||||
|
End Select
|
||||||
|
Else
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "Eventhandler ChangeEreignisse"
|
||||||
|
''' <summary>
|
||||||
|
''' Allg Eventhandler für Chanage-Ereignise festlegen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Container"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub AddChanges(ByVal Container As Control)
|
||||||
|
Dim l As New List(Of Control)
|
||||||
|
Me.GetControl(Me, "*", l)
|
||||||
|
Dim evh As EventHandler = AddressOf ChangesMade
|
||||||
|
For Each c As Control In l
|
||||||
|
If TypeOf c Is TextBox Then
|
||||||
|
Dim ctl As TextBox = c
|
||||||
|
AddHandler ctl.TextChanged, evh
|
||||||
|
End If
|
||||||
|
If TypeOf c Is MaskedTextBox Then
|
||||||
|
Dim ctl As MaskedTextBox = c
|
||||||
|
AddHandler ctl.TextChanged, evh
|
||||||
|
End If
|
||||||
|
If TypeOf c Is ComboBox Then
|
||||||
|
Dim ctl As ComboBox = c
|
||||||
|
AddHandler ctl.SelectedValueChanged, evh
|
||||||
|
End If
|
||||||
|
If TypeOf c Is RichTextBox Then
|
||||||
|
Dim ctl As RichTextBox = c
|
||||||
|
AddHandler ctl.TextChanged, evh
|
||||||
|
End If
|
||||||
|
If TypeOf c Is CheckBox Then
|
||||||
|
If c.Name <> "cboxNurAktive" Then
|
||||||
|
Dim ctl As CheckBox = c
|
||||||
|
AddHandler ctl.CheckedChanged, evh
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If TypeOf c Is CheckedListBox Then
|
||||||
|
Dim ctl As CheckedListBox = c
|
||||||
|
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
|
||||||
|
End If
|
||||||
|
If TypeOf c Is DateTimePicker Then
|
||||||
|
Dim ctl As DateTimePicker = c
|
||||||
|
AddHandler ctl.ValueChanged, evh
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Envent-Handler für Change-Ereignisse
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||||
|
If UCase(sender.name) = "TXTFINDINGBEZEICHNUNG" Or UCase(sender.NAME) = "TXTFINDINGBESCHREIBUNG" Then Exit Sub
|
||||||
|
If UCase(sender.name) = "TXTMASSNAHMEBEZEICHNUNG" Or UCase(sender.NAME) = "TXTMASSNAHMEBESCHREIBUNG" Then Exit Sub
|
||||||
|
Me.FormDataChanged = True
|
||||||
|
Dim objtype As System.Type = sender.GetType
|
||||||
|
If objtype.Name = "MaskedTextBox" Then
|
||||||
|
Dim o As MaskedTextBox = sender
|
||||||
|
If o.Text = "01.01.1900" Then o.Text = " . . "
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
|
||||||
|
Me.FormDataChanged = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub generalhandler()
|
||||||
|
Me.FormDataChanged = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
|
||||||
|
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
|
||||||
|
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
|
||||||
|
''' <param name="L">Liste der gefundenen Objekte</param>
|
||||||
|
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
|
||||||
|
''' </returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
|
||||||
|
If L Is Nothing Then L = New List(Of Control)
|
||||||
|
Dim Gut As Boolean
|
||||||
|
Dim ReturnFlag As Boolean = False
|
||||||
|
If Key IsNot Nothing Then Key = Key.ToLower
|
||||||
|
|
||||||
|
If BaseControl.HasChildren = True Then
|
||||||
|
For Each ctl As Control In BaseControl.Controls
|
||||||
|
Gut = False
|
||||||
|
If Key Is Nothing Then
|
||||||
|
Gut = True
|
||||||
|
Else
|
||||||
|
If ctl.Name.Length >= Key.Length Then
|
||||||
|
Key = Key.ToLower
|
||||||
|
If Key.StartsWith("*") Then
|
||||||
|
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
|
||||||
|
ElseIf Key.EndsWith("*") Then
|
||||||
|
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
|
||||||
|
Else
|
||||||
|
If Key = ctl.Name.ToLower Then Gut = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Gut = True Then
|
||||||
|
L.Add(ctl)
|
||||||
|
If ReturnAtFirstElement = True Then ReturnFlag = True
|
||||||
|
End If
|
||||||
|
If ReturnFlag = False Then
|
||||||
|
Call GetControl(ctl, Key, L)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
If L.Count - 1 > -1 Then
|
||||||
|
Return True
|
||||||
|
Else
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Sub MassnahmeDetailBearbeitung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||||
|
Me.massnahme.Get_Data(Me.Massnahmenr)
|
||||||
|
If massnahme.iAktueller_Verantwortlicher.Value <> Globals.clsmitarbeiter.iMitarbeiternr.Value Then Me.IsReadonly = True
|
||||||
|
Refresh_Details()
|
||||||
|
status.Get_Mögliche_Status(massnahme.iStatusNr, cbboxStatus)
|
||||||
|
AddChanges(Me)
|
||||||
|
If Me.IsReadonly = True Then
|
||||||
|
sec.Set_Form_Readonly(Me)
|
||||||
|
Me.DokumenteAllgemein.Show_Toolbar = False
|
||||||
|
End If
|
||||||
|
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
|
||||||
|
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
Me.DokumenteAllgemein.Doktype = 8
|
||||||
|
Me.DokumenteAllgemein.ThemaNr = Me.Massnahmenr
|
||||||
|
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
||||||
|
Me.DokumenteAllgemein.Refresh()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Refresh_Details()
|
||||||
|
Me.txtBeschreibung.Text = Me.massnahme.sMassnahmeResultat.Value
|
||||||
|
Me.DokumenteAllgemein.Refresh_Dokumente()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub TSBtnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
|
||||||
|
save_data
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Save_Data()
|
||||||
|
Me.massnahme.sMassnahmeResultat = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
|
||||||
|
Me.massnahme.Save_Data()
|
||||||
|
massnahme.Get_Data(Me.Massnahmenr)
|
||||||
|
If massnahme.iStatusNr.Value <> 2 Then
|
||||||
|
massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(2, Int32))
|
||||||
|
massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
||||||
|
massnahme.Save_Data()
|
||||||
|
End If
|
||||||
|
Me.FormDataChanged = False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnPruefungabgeschlossen_Click(sender As Object, e As EventArgs) Handles btnPruefungabgeschlossen.Click
|
||||||
|
If MsgBox("Haben Sie die Prüfung abgeschlossen und das Resultat festgehlaten?", vbYesNo + vbQuestion) = vbYes Then
|
||||||
|
massnahme.Get_Data(Me.Massnahmenr)
|
||||||
|
massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(8, Int32))
|
||||||
|
massnahme.Save_Data()
|
||||||
|
|
||||||
|
If massnahme.iVerantwortlichNr.Value = massnahme.iAktueller_Verantwortlicher.Value Then
|
||||||
|
massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(3, Int32))
|
||||||
|
Else
|
||||||
|
massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(massnahme.iVerantwortlichNr.Value, Int32))
|
||||||
|
massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(3, Int32))
|
||||||
|
End If
|
||||||
|
massnahme.Save_Data()
|
||||||
|
Me.Close()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
204
SW/20211125/AssessmentMgmt/Massnahmen/clsMassnahme.vb
Normal file
204
SW/20211125/AssessmentMgmt/Massnahmen/clsMassnahme.vb
Normal file
@@ -0,0 +1,204 @@
|
|||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Public Class clsMassnahme
|
||||||
|
Inherits DB.clsMassnahme
|
||||||
|
|
||||||
|
#Region "Deklarationen"
|
||||||
|
Public daten As New DataTable
|
||||||
|
Public Neuer_Datensatz As Boolean = False
|
||||||
|
Public Mitarbeiterdaten As New DataTable
|
||||||
|
|
||||||
|
Dim stammdaten As New DB.clsStammdaten
|
||||||
|
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||||
|
|
||||||
|
Public Status As DataTable
|
||||||
|
|
||||||
|
Dim mMutierer As String
|
||||||
|
Property MutiererText() As String
|
||||||
|
Get
|
||||||
|
Return mMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As String)
|
||||||
|
mMutierer = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
MyBase.New()
|
||||||
|
Status = stammdaten.Get_Stammdaten("pruefschrittstatus", "")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Overloads Sub dispose()
|
||||||
|
MyBase.Dispose()
|
||||||
|
Try
|
||||||
|
Me.stammdaten = Nothing
|
||||||
|
Me.Status.Dispose()
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Mutierer auslesen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Get_Mutierer(ByVal nr As Integer) As String
|
||||||
|
Try
|
||||||
|
Dim ma As New DB.clsMitarbeiter
|
||||||
|
Dim dt As New DataTable
|
||||||
|
Dim Retvalue As String
|
||||||
|
ma.cpMainConnectionProvider = Globals.conn
|
||||||
|
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
|
||||||
|
dt = ma.SelectOne()
|
||||||
|
If dt.Rows.Count = 0 Then
|
||||||
|
Retvalue = ("{" + nr.ToString + "}")
|
||||||
|
Else
|
||||||
|
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
|
||||||
|
End If
|
||||||
|
ma.Dispose()
|
||||||
|
dt.Dispose()
|
||||||
|
Return Retvalue
|
||||||
|
Catch
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function Get_Data(ByVal Nr As Integer)
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iMassnahmeNr = New SqlInt32(CType(Nr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.daten = Me.SelectOne()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Try
|
||||||
|
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
|
||||||
|
Catch ex As Exception
|
||||||
|
Me.MutiererText = ""
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Save_Data() As Integer
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Update()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Löschen eines Datensatzes erstellen.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
If bAktiv.Value = False Then Exit Function
|
||||||
|
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Update()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
MyBase.Delete()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Neue Person einfügen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Add_New() As Integer
|
||||||
|
Dim db As New DB.clsMyKey_Tabelle
|
||||||
|
db.cpMainConnectionProvider = Globals.conn
|
||||||
|
Dim newkey = db.get_dbkey("Massnahme")
|
||||||
|
db.Dispose()
|
||||||
|
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||||
|
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Try
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Insert()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Me.Neuer_Datensatz = True
|
||||||
|
Return Me.iMassnahmeNr.Value
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Mitarbeiternr As Integer, ByRef tree As DevComponents.AdvTree.AdvTree)
|
||||||
|
Try
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "sp_get_massnahmen"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ds, "Datatable1")
|
||||||
|
Dim status As New clsStatus
|
||||||
|
c1daten.DataSource = Nothing
|
||||||
|
c1daten.DataSource = ds.Tables(0)
|
||||||
|
c1daten.DataMember = ds.Tables(0).TableName
|
||||||
|
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Massnahme", ds.Tables(0))
|
||||||
|
|
||||||
|
Dim intarray(Me.Status.Rows.Count) As Integer
|
||||||
|
For i As Integer = 1 To Me.Status.Rows.Count
|
||||||
|
intarray(i) = 0
|
||||||
|
Next
|
||||||
|
For Each r As DataRow In ds.Tables(0).Rows
|
||||||
|
intarray(r.Item("StatusNr")) = intarray(r.Item("StatusNr")) + 1
|
||||||
|
Next
|
||||||
|
|
||||||
|
For Each n As DevComponents.AdvTree.Node In tree.Nodes
|
||||||
|
n.Text = n.Text + " (" + intarray(n.Tag).ToString + ")"
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
466
SW/20211125/AssessmentMgmt/Massnahmen/clsMassnahmeplan.vb
Normal file
466
SW/20211125/AssessmentMgmt/Massnahmen/clsMassnahmeplan.vb
Normal file
@@ -0,0 +1,466 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports DevComponents
|
||||||
|
Imports DropDownControls
|
||||||
|
|
||||||
|
Public Class clsMassnahmeplan
|
||||||
|
Inherits DB.clsMassnahmeplan
|
||||||
|
|
||||||
|
#Region "Deklarationen"
|
||||||
|
Public daten As New DataTable
|
||||||
|
Public Neuer_Datensatz As Boolean = False
|
||||||
|
Public Mitarbeiterdaten As New DataTable
|
||||||
|
|
||||||
|
Public Zeitpunkt As New DataTable
|
||||||
|
Public Periodizitaet As New DataTable
|
||||||
|
Public Prioritaet As New DataTable
|
||||||
|
Public VerantwortungISI As New DataTable
|
||||||
|
Public Verantwortung As New DataTable
|
||||||
|
Dim stammdaten As New DB.clsStammdaten
|
||||||
|
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||||
|
|
||||||
|
Dim Definition_Massnahmeplan As New DataTable
|
||||||
|
Dim clsDefinition_Massnahmeplan As New DB.clsDefinition_massnahmeplan
|
||||||
|
Public Terminierung As New DataTable
|
||||||
|
|
||||||
|
|
||||||
|
Dim mMutierer As String
|
||||||
|
Property MutiererText() As String
|
||||||
|
Get
|
||||||
|
Return mMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As String)
|
||||||
|
mMutierer = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
MyBase.New()
|
||||||
|
Zeitpunkt = stammdaten.Get_Stammdaten("Zeitpunkt", "Beschreibung")
|
||||||
|
Periodizitaet = stammdaten.Get_Stammdaten("Periodizitaet", "Bezeichnung")
|
||||||
|
Prioritaet = stammdaten.Get_Stammdaten("Prioritaet", "Bezeichnung")
|
||||||
|
VerantwortungISI = stammdaten.Get_Stammdaten("VerantwortungIsi", "Bezeichnung")
|
||||||
|
Verantwortung = stammdaten.Get_Stammdaten("Verantwortung", "Bezeichnung")
|
||||||
|
Terminierung = stammdaten.Get_Stammdaten("Terminierung", "Bezeichnung")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Public Overloads Sub dispose()
|
||||||
|
MyBase.Dispose()
|
||||||
|
Try
|
||||||
|
Me.Zeitpunkt.Dispose()
|
||||||
|
Me.Periodizitaet.Dispose()
|
||||||
|
Me.Prioritaet.Dispose()
|
||||||
|
Me.VerantwortungISI.Dispose()
|
||||||
|
Me.Verantwortung.Dispose()
|
||||||
|
Me.stammdaten = Nothing
|
||||||
|
Me.Definition_Massnahmeplan.Dispose()
|
||||||
|
|
||||||
|
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Mutierer auslesen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Get_Mutierer(ByVal nr As Integer) As String
|
||||||
|
Try
|
||||||
|
Dim ma As New DB.clsMitarbeiter
|
||||||
|
Dim dt As New DataTable
|
||||||
|
Dim Retvalue As String
|
||||||
|
ma.cpMainConnectionProvider = Globals.conn
|
||||||
|
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
|
||||||
|
dt = ma.SelectOne()
|
||||||
|
If dt.Rows.Count = 0 Then
|
||||||
|
Retvalue = ("{" + nr.ToString + "}")
|
||||||
|
Else
|
||||||
|
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
|
||||||
|
End If
|
||||||
|
ma.Dispose()
|
||||||
|
dt.Dispose()
|
||||||
|
Return Retvalue
|
||||||
|
Catch
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function Get_Data(ByVal Nr As Integer)
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iMassnahmeplanNr = New SqlInt32(CType(Nr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.daten = Me.SelectOne()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Try
|
||||||
|
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
|
||||||
|
Catch ex As Exception
|
||||||
|
Me.MutiererText = ""
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Save_Data() As Integer
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Update()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
Dim db As New DB.clsMyKey_Tabelle
|
||||||
|
db.cpMainConnectionProvider = Globals.conn
|
||||||
|
Dim newkey = db.get_dbkey("Massnahmeplan")
|
||||||
|
db.Dispose()
|
||||||
|
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.iMassnahmeplanNr = New SqlInt32(CType(newkey, Int32))
|
||||||
|
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Insert()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = True
|
||||||
|
Return newkey
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Löschen eines Datensatzes erstellen.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
If bAktiv.Value = False Then Exit Function
|
||||||
|
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Update()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
|
||||||
|
If Basenr <> 0 Then
|
||||||
|
Get_Data(Basenr)
|
||||||
|
End If
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
MyBase.Delete()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Me.Neuer_Datensatz = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Neue Person einfügen
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Add_New() As Integer
|
||||||
|
Dim db As New DB.clsMyKey_Tabelle
|
||||||
|
db.cpMainConnectionProvider = Globals.conn
|
||||||
|
Dim newkey = db.get_dbkey("massnahmeplan")
|
||||||
|
db.Dispose()
|
||||||
|
Me.iMassnahmeplanNr = New SqlInt32(CType(newkey, Int32))
|
||||||
|
Me.daGueltig_Bis = New SqlDateTime(CType("31.12.2099", DateTime))
|
||||||
|
Me.iPrioritaetNr = New SqlInt32(CType(0, Int32))
|
||||||
|
Me.iPeriodizitaetNr = New SqlInt32(CType(0, Int32))
|
||||||
|
Me.iZeitpunktNr = New SqlInt32(CType(0, Int32))
|
||||||
|
Me.sBeschreibung = New SqlString(CType("", String))
|
||||||
|
Me.sPruefgegenstand = New SqlString(CType("", String))
|
||||||
|
Me.sHilfsmittel = New SqlString(CType("", String))
|
||||||
|
Me.sMassnahmen = New SqlString(CType("", String))
|
||||||
|
Me.iVerantwortungISINr = New SqlInt32(CType(0, Int32))
|
||||||
|
Me.sBeschreibung = New SqlString(CType("", String))
|
||||||
|
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||||
|
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
|
||||||
|
Me.daErstmals_am = New SqlDateTime(CType(DateAdd(DateInterval.Day, 1, Now), DateTime))
|
||||||
|
Me.iTerminierungID = New SqlInt32(CType(0, Int32))
|
||||||
|
Me.cpMainConnectionProvider = Globals.conn
|
||||||
|
Try
|
||||||
|
Globals.conn.OpenConnection()
|
||||||
|
Me.Insert()
|
||||||
|
Globals.conn.CloseConnection(True)
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Me.Neuer_Datensatz = True
|
||||||
|
Return Me.iMassnahmeplanNr.Value
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_massnahmeplan(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer)
|
||||||
|
Try
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "sp_get_massnahmenplan"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ds, "Datatable1")
|
||||||
|
c1daten.DataSource = Nothing
|
||||||
|
c1daten.DataSource = ds.Tables(0)
|
||||||
|
c1daten.DataMember = ds.Tables(0).TableName
|
||||||
|
|
||||||
|
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "massnahmeplan", ds.Tables(0))
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer, Optional Searchstring As String = "")
|
||||||
|
Try
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "sp_get_massnahmeplan"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@Searchstring", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Searchstring))
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ds, "Datatable1")
|
||||||
|
c1daten.DataSource = Nothing
|
||||||
|
c1daten.DataSource = ds.Tables(0)
|
||||||
|
c1daten.DataMember = ds.Tables(0).TableName
|
||||||
|
|
||||||
|
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "massnahmeplan", ds.Tables(0))
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Definition_Massnahmeplan(ByVal Key As Integer, ByRef cb As CheckedListBox)
|
||||||
|
Me.Definition_Massnahmeplan.Rows.Clear()
|
||||||
|
Try
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "sp_get_definition_Massnahmeplan"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@massnahmeplannr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(Me.Definition_Massnahmeplan)
|
||||||
|
|
||||||
|
For Each r As DataRow In Definition_Massnahmeplan.Rows
|
||||||
|
cb.Items.Add(r.Item("Bezeichnung"), True)
|
||||||
|
Next
|
||||||
|
'cb.DataSource = Definition_massnahmeplan
|
||||||
|
'cb.ValueMember = "Definition_massnahmeplanNr"
|
||||||
|
'cb.DisplayMember = "Bezeichnung"
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Add_new_Zuordnung(ByVal massnahmeplannr As Integer, DefinitionNr As Integer, nodetext As String, ByRef chkcb As CheckedListBox)
|
||||||
|
For Each r As DataRow In Me.Definition_Massnahmeplan.Rows
|
||||||
|
If r.Item(1) = DefinitionNr Then
|
||||||
|
MsgBox("Die Beziehung zu '" + nodetext + "' ist bereits vorhanden", vbExclamation)
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Dim dr As DataRow = Me.Definition_Massnahmeplan.NewRow
|
||||||
|
dr.Item(1) = DefinitionNr
|
||||||
|
dr.Item(2) = massnahmeplannr
|
||||||
|
dr.Item(3) = "31.12.2099"
|
||||||
|
dr.Item(4) = True
|
||||||
|
dr.Item(5) = Now
|
||||||
|
dr.Item(6) = Now
|
||||||
|
dr.Item(7) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
dr.Item(8) = nodetext
|
||||||
|
Me.Definition_Massnahmeplan.Rows.Add(dr)
|
||||||
|
chkcb.Items.Add(nodetext + " | " + dr.Item(3).ToString, True)
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Definition_massnahmeplan(ByVal Key As Integer, ByRef tree As AdvTree.AdvTree)
|
||||||
|
Me.Definition_Massnahmeplan.Rows.Clear()
|
||||||
|
Try
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "sp_get_definition_massnahmeplan"
|
||||||
|
sqlcmd.Parameters.Add(New SqlParameter("@massnahmeplannr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(Me.Definition_Massnahmeplan)
|
||||||
|
Set_Zuordnungnodes(Definition_Massnahmeplan, tree)
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
Public Function Add_new_Zuordnung(ByVal Massnahmeplannr As Integer, DefinitionNr As Integer, nodetext As String, ByRef tree As AdvTree.AdvTree)
|
||||||
|
For Each r As DataRow In Me.Definition_Massnahmeplan.Rows
|
||||||
|
If r.Item(1) = DefinitionNr And (r(4) = True Or r(3) < Now) Then
|
||||||
|
MsgBox("Die Beziehung zu '" + nodetext + "' ist bereits vorhanden", vbExclamation)
|
||||||
|
Exit Function
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Dim dr As DataRow = Me.Definition_Massnahmeplan.NewRow
|
||||||
|
dr.Item(0) = Format(Now, "ddhhmmss")
|
||||||
|
dr.Item(1) = DefinitionNr
|
||||||
|
dr.Item(2) = Massnahmeplannr
|
||||||
|
dr.Item(3) = "31.12.2099"
|
||||||
|
dr.Item(4) = True
|
||||||
|
dr.Item(5) = Now
|
||||||
|
dr.Item(6) = Now
|
||||||
|
dr.Item(7) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
dr.Item(8) = nodetext
|
||||||
|
Me.Definition_Massnahmeplan.Rows.Add(dr)
|
||||||
|
|
||||||
|
Set_Zuordnungnodes(Definition_Massnahmeplan, tree)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Sub Set_Zuordnungnodes(data As DataTable, ByRef tree As AdvTree.AdvTree)
|
||||||
|
tree.Nodes.Clear()
|
||||||
|
For Each r As DataRow In data.Rows
|
||||||
|
Dim tn As New AdvTree.Node
|
||||||
|
tn.Tag = r(0)
|
||||||
|
tn.Text = r(8)
|
||||||
|
tree.Nodes.Add(tn)
|
||||||
|
Dim tn1 As New AdvTree.Node
|
||||||
|
tn1.Text = r(3)
|
||||||
|
tn1.Tag = r(4)
|
||||||
|
tn.Nodes.Add(tn1)
|
||||||
|
tn.ImageIndex = 0
|
||||||
|
If r(3) < "31.12.2099" And r(3) > Now Then tn.ImageIndex = 3
|
||||||
|
If r(3) < Now Then tn.ImageIndex = 2
|
||||||
|
If r(4) = False Then tn.ImageIndex = 1
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Update_Zuordnung(ByVal ID As Integer, Aktiv As Boolean, gueltig As DateTime)
|
||||||
|
For Each r As DataRow In Me.Definition_Massnahmeplan.Rows
|
||||||
|
If r.Item(0) = ID Then
|
||||||
|
r(4) = Aktiv
|
||||||
|
r(3) = gueltig
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function Save_Definition_massnahmeplan(ByRef tree As AdvTree.AdvTree)
|
||||||
|
|
||||||
|
clsDefinition_Massnahmeplan.sConnectionString = Globals.sConnectionString
|
||||||
|
For Each n As AdvTree.Node In tree.Nodes
|
||||||
|
For Each r As DataRow In Definition_Massnahmeplan.Rows
|
||||||
|
If r(0) = n.Tag Then
|
||||||
|
If r(0) > 100000 Then
|
||||||
|
clsDefinition_Massnahmeplan.iDefinitionNr = New SqlInt32(CType(r(1), Int32))
|
||||||
|
clsDefinition_Massnahmeplan.imassnahmeplanNr = New SqlInt32(CType(r(2), Int32))
|
||||||
|
clsDefinition_Massnahmeplan.daGueltig_Bis = New SqlDateTime(CType(r(3), DateTime))
|
||||||
|
clsDefinition_Massnahmeplan.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
clsDefinition_Massnahmeplan.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
clsDefinition_Massnahmeplan.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||||
|
clsDefinition_Massnahmeplan.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
||||||
|
conn.OpenConnection()
|
||||||
|
clsDefinition_Massnahmeplan.Insert()
|
||||||
|
conn.CloseConnection(True)
|
||||||
|
Else
|
||||||
|
clsDefinition_Massnahmeplan.iDefinition_massnahmeplanNr = New SqlInt32(CType(r(0), Int32))
|
||||||
|
clsDefinition_Massnahmeplan.cpMainConnectionProvider = Globals.conn
|
||||||
|
clsDefinition_Massnahmeplan.SelectOne()
|
||||||
|
Dim tn1 As New AdvTree.Node
|
||||||
|
tn1 = n.Nodes(0)
|
||||||
|
If tn1.Tag <> clsDefinition_Massnahmeplan.bAktiv.Value Or tn1.Text <> clsDefinition_Massnahmeplan.daGueltig_Bis.Value Then
|
||||||
|
clsDefinition_Massnahmeplan.iDefinition_massnahmeplanNr = New SqlInt32(CType(r(0), Int32))
|
||||||
|
clsDefinition_Massnahmeplan.cpMainConnectionProvider = Globals.conn
|
||||||
|
clsDefinition_Massnahmeplan.SelectOne()
|
||||||
|
clsDefinition_Massnahmeplan.iDefinitionNr = New SqlInt32(CType(r(1), Int32))
|
||||||
|
clsDefinition_Massnahmeplan.imassnahmeplanNr = New SqlInt32(CType(r(2), Int32))
|
||||||
|
clsDefinition_Massnahmeplan.daGueltig_Bis = New SqlDateTime(CType(r(3), DateTime))
|
||||||
|
clsDefinition_Massnahmeplan.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
clsDefinition_Massnahmeplan.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
clsDefinition_Massnahmeplan.bAktiv = New SqlBoolean(CType(tn1.Tag, Boolean))
|
||||||
|
clsDefinition_Massnahmeplan.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
||||||
|
conn.OpenConnection()
|
||||||
|
clsDefinition_Massnahmeplan.Update()
|
||||||
|
conn.CloseConnection(True)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user