Initial commit

_DataClass/Klassen/Berechtigung.vb

@@ -0,0 +1,414 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Berechtigung
+        Inherits DB.clsBerechtigung
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigungNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Berechtigung")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigungNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Berechtigung")
+            db.Dispose()
+            Me.iBerechtigungNr = New SqlInt32(CType(newkey, Int32))
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.sBezeichnung = New SqlString(CType("", String))
+            Me.iSequenz = 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.Mitarbeiternr, Int32))
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iParentID = New SqlInt32(CType(0, Int32))
+
+            Globals.conn.OpenConnection()
+            Me.Insert()
+            Globals.conn.CloseConnection(True)
+            Me.Neuer_Datensatz = True
+            Return newkey
+        End Function
+
+        Public Function Get_Keyvalue() As Integer
+            Return Me.iBerechtigungNr.Value
+        End Function
+
+        Public Function Get_Verwaltung_mit() As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_mit"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Berechtigung"
+            selectcommand.Parameters(1).Value = Me.iBerechtigungNr.Value
+            selectcommand.Parameters(2).Value = 0
+            selectcommand.Parameters(3).Value = 0
+            selectcommand.Parameters(4).Value = 1
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+                If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(0) Else Return -99
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+
+        Public Function Get_Verwaltung_Durch() As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_Durch"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Berechtigung"
+            selectcommand.Parameters(1).Value = Me.iBerechtigungNr.Value
+            selectcommand.Parameters(2).Value = 0
+            selectcommand.Parameters(3).Value = 0
+            selectcommand.Parameters(4).Value = 1
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+                If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(0) Else Return -99
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+        Public Function Set_Verwaltung_mit(ByVal Keyvalue As Integer, keyvalue1 As Integer) As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_mit"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "berechtigung"
+            selectcommand.Parameters(1).Value = Me.iBerechtigungNr.Value
+            selectcommand.Parameters(2).Value = Keyvalue
+            selectcommand.Parameters(3).Value = keyvalue1
+            selectcommand.Parameters(4).Value = 2
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+        Public Function Set_Verwaltung_Durch(ByVal Keyvalue As Integer, keyvalue1 As Integer) As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_durch"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "berechtigung"
+            selectcommand.Parameters(1).Value = Me.iBerechtigungNr.Value
+            selectcommand.Parameters(2).Value = Keyvalue
+            selectcommand.Parameters(3).Value = keyvalue1
+            selectcommand.Parameters(4).Value = 2
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+
+        Public Function Get_Dateneigentuemer() As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_Dateneigentuemer"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Berechtigung"
+            selectcommand.Parameters(1).Value = Me.iBerechtigungNr.Value
+            selectcommand.Parameters(2).Value = 0
+            selectcommand.Parameters(3).Value = 0
+            selectcommand.Parameters(4).Value = 1
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+                If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(0) Else Return -99
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+        Public Function Set_Dateneigentuemer(ByVal Keyvalue As Integer, keyvalue1 As Integer) As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_Dateneigentuemer"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Berechtigung"
+            selectcommand.Parameters(1).Value = Me.iBerechtigungNr.Value
+            selectcommand.Parameters(2).Value = Keyvalue
+            selectcommand.Parameters(3).Value = keyvalue1
+            selectcommand.Parameters(4).Value = 2
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+
+        Public Function Get_ParentValues(parentid As Integer) 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_Parentvalues"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@parentid", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Berechtigung"
+            selectcommand.Parameters(1).Value = parentid
+
+            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
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Berechtigung_Plattform.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Berechtigung_Plattform
+        Inherits DB.clsBerechtigung_Plattform
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigung_PlattformNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Berechtigung_Plattform")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigungNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Personal_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iBerechtigungNr = 0
+            Me.iPlattformNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iBerechtigung_PlattformNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iBerechtigungNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iPlattformNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iBerechtigung_PlattformNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iBerechtigung_PlattformNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Berechtigung_Server.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Berechtigung_Server
+        Inherits DB.clsBerechtigung_Server
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigung_ServerNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Berechtigung_Server")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigungNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Personal_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iBerechtigungNr = 0
+            Me.iServerNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iBerechtigung_ServerNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iBerechtigungNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iBerechtigung_ServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iBerechtigung_ServerNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/FunktionStelle_Server.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class FunktionStelle_Server
+        Inherits DB.clsFunktionStelle_Server
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iFunktionStelle_ServerNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("FunktionStelle_Server")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iServerNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Personal_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iServerNr = 0
+            Me.iFunktionstelleNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iFunktionStelle_ServerNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iFunktionstelleNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iFunktionStelle_ServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iFunktionStelle_ServerNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Funktionstelle.vb

@@ -0,0 +1,218 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Funktionstelle
+        Inherits db.clsFunktionstelle
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iFunktionstelleNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Funktionstelle")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iFunktionstelleNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Funktionstelle")
+            db.Dispose()
+            Me.iFunktionstelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.sBezeichnung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, Int32))
+            Me.cpMainConnectionProvider = Globals.conn
+
+            Globals.conn.OpenConnection()
+            Me.Insert()
+            Globals.conn.CloseConnection(True)
+            Me.Neuer_Datensatz = True
+            Return newkey
+        End Function
+
+        Public Function Get_Keyvalue() As Integer
+            Return Me.iFunktionstelleNr.Value
+        End Function
+
+        Public Function get_FunktionStelle_by_Funktionstelle(ByVal Funktionstelle As String) As Boolean
+            Dim sqlcmd As New SqlCommand
+            Dim connection As New SqlConnection()
+            connection.ConnectionString = Globals.sConnectionString
+            sqlcmd.CommandText = "dbo.sp_get_funktionstelle_by_funktionstelle"
+            sqlcmd.CommandType = CommandType.StoredProcedure
+            sqlcmd.Parameters.Clear()
+            sqlcmd.Parameters.Add("@funktionstelle", SqlDbType.VarChar)
+            sqlcmd.Parameters.Add("@resultat", SqlDbType.VarChar)
+            sqlcmd.Parameters(0).Value = Funktionstelle
+            sqlcmd.Parameters(1).Value = ""
+            sqlcmd.Parameters(1).Direction = ParameterDirection.Output
+            sqlcmd.Parameters(1).Size = 1024
+            sqlcmd.Connection = connection
+            connection.Open()
+            Try
+                sqlcmd.ExecuteNonQuery()
+                Get_Data(sqlcmd.Parameters(1).Value)
+                Return True
+            Catch ex As Exception
+                Return False
+            Finally
+                connection.Close()
+            End Try
+        End Function
+
+        Public Function Get_aktive_Funktionsstellen() As DataTable
+            Dim fs As New db.clsFunktionstelle
+            fs.cpMainConnectionProvider = Globals.conn
+            Dim dt As New DataTable
+            dt = fs.SelectAll
+
+            Dim dn As New DataTable
+            dn.Columns.Add("Nr")
+            dn.Columns.Add("Bezeichnung")
+            dn.Columns.Add("Funktionstelle")
+            For Each r As DataRow In dt.Rows
+                If r("aktiv") = True And Trim(r("Bezeichnung").ToString) <> "" And Trim(r("Funktionsstelle").ToString) <> "" Then
+
+                    Dim dnr As DataRow = dn.NewRow
+                    dnr.Item(0) = r("FunktionstelleNr")
+                    dnr.Item(1) = r("Bezeichnung")
+                    dnr.Item(2) = r("Funktionsstelle")
+                    dn.Rows.Add(dnr)
+                End If
+            Next
+            Return dn
+        End Function
+
+    End Class
+End Namespace
+

_DataClass/Klassen/Funktionstelle_Berechtigung.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class FunktionStelle_Berechtigung
+        Inherits DB.clsFunktionstelle_Berechtigung
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iFunktionstelle_BerechtigungNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("FunktionStelle_Berechtigung")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigungNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Personal_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iBerechtigungNr = 0
+            Me.iFunktionstelleNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iFunktionstelle_BerechtigungNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iFunktionstelleNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iBerechtigungNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iFunktionstelle_BerechtigungNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iFunktionstelle_BerechtigungNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Funktionstelle_Plattform.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class FunktionStelle_Plattform
+        Inherits DB.clsFunktionStelle_Plattform
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iFunktionStelle_PlattformNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("FunktionStelle_Plattform")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPlattformNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Personal_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iPlattformNr = 0
+            Me.iFunktionstelleNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iFunktionStelle_PlattformNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iFunktionstelleNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iPlattformNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iFunktionStelle_PlattformNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iFunktionStelle_PlattformNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Personal.vb

@@ -0,0 +1,241 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Personal
+        Inherits db.clsPersonal
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPersonalnr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Personal")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPersonalnr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Personal")
+            db.Dispose()
+            Me.iPersonalnr = New SqlInt32(CType(newkey, Int32))
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.sBezeichnung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, Int32))
+            Me.cpMainConnectionProvider = Globals.conn
+
+            Globals.conn.OpenConnection()
+            Me.Insert()
+            Globals.conn.CloseConnection(True)
+            Me.Neuer_Datensatz = True
+            Return newkey
+        End Function
+
+        Public Function Get_Keyvalue() As Integer
+            Return Me.iPersonalnr.Value
+        End Function
+
+        Public Function get_mitarbeiter_by_tgnummer(ByVal tgnummer As String) As Boolean
+            Dim Mitarbeiter As String
+
+            Dim sqlcmd As New SqlCommand
+            Dim connection As New SqlConnection()
+            connection.ConnectionString = Globals.sConnectionString
+            sqlcmd.CommandText = "dbo.sp_get_personal_by_tgnummer"
+            sqlcmd.CommandType = CommandType.StoredProcedure
+            sqlcmd.Parameters.Clear()
+            sqlcmd.Parameters.Add("@tgnummer", SqlDbType.VarChar)
+            sqlcmd.Parameters.Add("@resultat", SqlDbType.VarChar)
+            sqlcmd.Parameters(0).Value = tgnummer
+            sqlcmd.Parameters(1).Value = ""
+            sqlcmd.Parameters(1).Direction = ParameterDirection.Output
+            sqlcmd.Parameters(1).Size = 1024
+            sqlcmd.Connection = connection
+            connection.Open()
+            Try
+                sqlcmd.ExecuteNonQuery()
+                Get_Data(sqlcmd.Parameters(1).Value)
+                Return True
+            Catch ex As Exception
+                Return False
+            Finally
+                connection.Close()
+            End Try
+        End Function
+
+        Public Function get_funktionsbeziehungen(ByVal Personalnr As Integer) As DataTable
+            Dim da As New DataTable
+            Dim sqlcmd As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(sqlcmd)
+            connection.ConnectionString = Globals.sConnectionString
+            sqlcmd.CommandText = "dbo.sp_get_personal_funktionstelle"
+            sqlcmd.CommandType = CommandType.StoredProcedure
+            sqlcmd.Parameters.Clear()
+            sqlcmd.Parameters.Add("@personalnr", SqlDbType.VarChar)
+            sqlcmd.Parameters(0).Value = Personalnr
+            sqlcmd.Connection = connection
+            connection.Open()
+            Try
+                sdaAdapter.Fill(da)
+                Return da
+            Catch ex As Exception
+            Finally
+                connection.Close()
+            End Try
+        End Function
+
+        Public Function Get_aktives_Personal() As DataTable
+            Dim fs As New db.clsPersonal
+            fs.cpMainConnectionProvider = Globals.conn
+            Dim dt As New DataTable
+            dt = fs.SelectAll
+
+            Dim dn As New DataTable
+            dn.Columns.Add("Nr")
+            dn.Columns.Add("Name")
+            dn.Columns.Add("Userid")
+            For Each r As DataRow In dt.Rows
+                If r("aktiv") = True And r("Name") <> "" Then
+                    Dim dnr As DataRow = dn.NewRow
+                    dnr.Item(0) = r("PersonalNr")
+                    dnr.Item(1) = r("Name")
+                    dnr.Item(2) = r("TGNUmmer")
+                    dn.Rows.Add(dnr)
+                End If
+            Next
+            Return dn
+        End Function
+
+    End Class
+End Namespace
+

_DataClass/Klassen/Personal_Berechtigung.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Personal_Berechtigung
+        Inherits DB.clsPersonal_Berechtigung
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPersonal_BerechtigungNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Personal_Berechtigung")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigungNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Personal_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iBerechtigungNr = 0
+            Me.iPersonalNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iPersonal_BerechtigungNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iPersonalNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iBerechtigungNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iPersonal_BerechtigungNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iPersonal_BerechtigungNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Personal_Funktionstelle.vb

@@ -0,0 +1,197 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Personal_FunktionStelle
+        Inherits db.clsPersonal_FunktionStelle
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPersonal_FunktionStelleNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Personal_Funktionstelle")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iFunktionStelleNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Personal_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iFunktionStelleNr = 0
+            Me.iPersonalNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = 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.Mitarbeiternr, 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.iPersonal_FunktionStelleNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iPersonalNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iFunktionStelleNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iPersonal_FunktionStelleNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iPersonal_FunktionStelleNr.Value
+        End Function
+
+        Public Function Update_Data(ByVal Key As Integer, Personalnr As Integer, funktionstellenr As Integer, checked As Boolean) As Integer
+            If Key <> -1 And checked = True Then Exit Function
+            If Key <> -1 And checked = False Then
+                Me.Delete_Data(Key)
+            End If
+            If Key = -1 And checked = True Then
+                Me.Add_New()
+                Me.iFunktionStelleNr = New SqlInt32(CType(funktionstellenr, Int32))
+                Me.iPersonalNr = New SqlInt32(CType(Personalnr, Int32))
+                Me.Save_Data()
+            End If
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Personal_Plattform.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Personal_Plattform
+        Inherits DB.clsPersonal_Plattform
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPersonal_PlattformNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Personal_Plattform")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPlattformNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Personal_Plattform")
+            'db.Dispose()
+            'Me.iPeronal_PlattformNr = New SqlInt32(CType(newkey, Int32))
+            Me.iPlattformNr = 0
+            Me.iPersonalNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iPersonal_PlattformNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iPersonalNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iPlattformNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iPersonal_PlattformNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iPersonal_PlattformNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Personal_Server.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Personal_Server
+        Inherits DB.clsPersonal_Server
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPersonal_ServerNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Personal_Server")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iServerNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Personal_Server")
+            'db.Dispose()
+            'Me.iPeronal_ServerNr = New SqlInt32(CType(newkey, Int32))
+            Me.iServerNr = 0
+            Me.iPersonalNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iPersonal_ServerNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iPersonalNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iPersonal_ServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iPersonal_ServerNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Plattform.vb

@@ -0,0 +1,413 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Plattform
+        Inherits DB.clsPlattform
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPlattformNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Plattform")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPlattformNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Plattform")
+            db.Dispose()
+            Me.iPlattformNr = New SqlInt32(CType(newkey, Int32))
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.sBezeichnung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, Int32))
+            Me.cpMainConnectionProvider = Globals.conn
+
+            Globals.conn.OpenConnection()
+            Me.Insert()
+            Globals.conn.CloseConnection(True)
+            Me.Neuer_Datensatz = True
+            Return newkey
+        End Function
+
+        Public Function Get_Keyvalue() As Integer
+            Return Me.iPlattformNr.Value
+        End Function
+
+        Public Function Get_Verwaltung_mit() As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_mit"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Plattform"
+            selectcommand.Parameters(1).Value = Me.iPlattformNr.Value
+            selectcommand.Parameters(2).Value = 0
+            selectcommand.Parameters(3).Value = 0
+            selectcommand.Parameters(4).Value = 1
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+                If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(0) Else Return -99
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+        Public Function Get_Verwaltung_Durch() As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_Durch"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Plattform"
+            selectcommand.Parameters(1).Value = Me.iPlattformNr.Value
+            selectcommand.Parameters(2).Value = 0
+            selectcommand.Parameters(3).Value = 0
+            selectcommand.Parameters(4).Value = 1
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+                If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(0) Else Return -99
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+        Public Function Set_Verwaltung_mit(ByVal Keyvalue As Integer, keyvalue1 As Integer) As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_mit"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Plattform"
+            selectcommand.Parameters(1).Value = Me.iPlattformNr.Value
+            selectcommand.Parameters(2).Value = Keyvalue
+            selectcommand.Parameters(3).Value = keyvalue1
+            selectcommand.Parameters(4).Value = 2
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+        Public Function Set_Verwaltung_Durch(ByVal Keyvalue As Integer, keyvalue1 As Integer) As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_durch"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Plattform"
+            selectcommand.Parameters(1).Value = Me.iPlattformNr.Value
+            selectcommand.Parameters(2).Value = Keyvalue
+            selectcommand.Parameters(3).Value = keyvalue1
+            selectcommand.Parameters(4).Value = 2
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+        Public Function Get_Dateneigentuemer() As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_Dateneigentuemer"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Plattform"
+            selectcommand.Parameters(1).Value = Me.iPlattformNr.Value
+            selectcommand.Parameters(2).Value = 0
+            selectcommand.Parameters(3).Value = 0
+            selectcommand.Parameters(4).Value = 1
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+                If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(0) Else Return -99
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+
+        Public Function Set_Dateneigentuemer(ByVal Keyvalue As Integer, keyvalue1 As Integer) As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_Dateneigentuemer"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Plattform"
+            selectcommand.Parameters(1).Value = Me.iPlattformNr.Value
+            selectcommand.Parameters(2).Value = Keyvalue
+            selectcommand.Parameters(3).Value = keyvalue1
+            selectcommand.Parameters(4).Value = 2
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+
+        Public Function Get_ParentValues(parentid As Integer) 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_Parentvalues"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@parentid", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Plattform"
+            selectcommand.Parameters(1).Value = parentid
+
+            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
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Plattform_Berechtigung.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Plattform_Berechtigung
+        Inherits DB.clsPlattform_Berechtigung
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPlattform_BerechtigungNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Plattform_Berechtigung")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigungNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Plattform_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iBerechtigungNr = 0
+            Me.iPlattformNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iPlattform_BerechtigungNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iPlattformNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iBerechtigungNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iPlattform_BerechtigungNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iPlattform_BerechtigungNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Plattform_Server.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Plattform_Server
+        Inherits DB.clsPlattform_Server
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPlattform_ServerNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Plattform_Server")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iServerNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Plattform_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iServerNr = 0
+            Me.iPlattformNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iPlattform_ServerNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iPlattformNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iPlattform_ServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iPlattform_ServerNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Server.vb

@@ -0,0 +1,414 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Server
+        Inherits DB.clsServer
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iServerNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Server")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iServerNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Server")
+            db.Dispose()
+            Me.iServerNr = New SqlInt32(CType(newkey, Int32))
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.sBezeichnung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, Int32))
+            Me.cpMainConnectionProvider = Globals.conn
+
+            Globals.conn.OpenConnection()
+            Me.Insert()
+            Globals.conn.CloseConnection(True)
+            Me.Neuer_Datensatz = True
+            Return newkey
+        End Function
+
+        Public Function Get_Keyvalue() As Integer
+            Return Me.iServerNr.Value
+        End Function
+
+        Public Function Get_Verwaltung_mit() As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_mit"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Server"
+            selectcommand.Parameters(1).Value = Me.iServerNr.Value
+            selectcommand.Parameters(2).Value = 0
+            selectcommand.Parameters(3).Value = 0
+            selectcommand.Parameters(4).Value = 1
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+                If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(0) Else Return -99
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+        Public Function Get_Verwaltung_Durch() As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_Durch"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Server"
+            selectcommand.Parameters(1).Value = Me.iServerNr.Value
+            selectcommand.Parameters(2).Value = 0
+            selectcommand.Parameters(3).Value = 0
+            selectcommand.Parameters(4).Value = 1
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+                If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(0) Else Return -99
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+        Public Function Set_Verwaltung_mit(ByVal Keyvalue As Integer, keyvalue1 As Integer) As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_mit"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Server"
+            selectcommand.Parameters(1).Value = Me.iServerNr.Value
+            selectcommand.Parameters(2).Value = Keyvalue
+            selectcommand.Parameters(3).Value = keyvalue1
+            selectcommand.Parameters(4).Value = 2
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+        Public Function Set_Verwaltung_Durch(ByVal Keyvalue As Integer, keyvalue1 As Integer) As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_verwaltung_durch"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Server"
+            selectcommand.Parameters(1).Value = Me.iServerNr.Value
+            selectcommand.Parameters(2).Value = Keyvalue
+            selectcommand.Parameters(3).Value = keyvalue1
+            selectcommand.Parameters(4).Value = 2
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+
+        Public Function Get_Dateneigentuemer() As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_Dateneigentuemer"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Server"
+            selectcommand.Parameters(1).Value = Me.iServerNr.Value
+            selectcommand.Parameters(2).Value = 0
+            selectcommand.Parameters(3).Value = 0
+            selectcommand.Parameters(4).Value = 1
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+                If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(0) Else Return -99
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+
+        Public Function Set_Dateneigentuemer(ByVal Keyvalue As Integer, keyvalue1 As Integer) As Integer
+            Dim selectcommand As New SqlCommand
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim ds As New DataSet
+            selectcommand.CommandText = "sp_getset_Dateneigentuemer"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@Objektnr", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr2", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Objektnr3", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int, 4)
+            selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Server"
+            selectcommand.Parameters(1).Value = Me.iServerNr.Value
+            selectcommand.Parameters(2).Value = Keyvalue
+            selectcommand.Parameters(3).Value = keyvalue1
+            selectcommand.Parameters(4).Value = 2
+            selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
+
+            selectcommand.CommandType = CommandType.StoredProcedure
+            selectcommand.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = selectcommand
+                da.Fill(ds)
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+        End Function
+
+        Public Function Get_ParentValues(parentid As Integer) 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_Parentvalues"
+            selectcommand.Parameters.Add("@Objekt", SqlDbType.VarChar, 255)
+            selectcommand.Parameters.Add("@parentid", SqlDbType.Int, 4)
+            selectcommand.Parameters(0).Value = "Server"
+            selectcommand.Parameters(1).Value = parentid
+
+            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
+                MsgBox(ex.Message)
+            Finally
+                connection.Close()
+                da.Dispose()
+                ds.Dispose()
+                selectcommand.Dispose()
+            End Try
+
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/VerwaltungMit.vb

@@ -0,0 +1,171 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class VerwaltungMit
+        Inherits DB.clsVerwaltung_mit
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_mitNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Verwaltung_Mit")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_mitNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Verwaltung_Mit")
+            db.Dispose()
+            Me.iVerwaltung_mitNr = New SqlInt32(CType(newkey, Int32))
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.sBezeichnung = New SqlString(CType("", String))
+            Me.iSequenz = 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.Mitarbeiternr, Int32))
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iParentID = New SqlInt32(CType(0, Int32))
+
+            Globals.conn.OpenConnection()
+            Me.Insert()
+            Globals.conn.CloseConnection(True)
+            Me.Neuer_Datensatz = True
+            Return newkey
+        End Function
+
+        Public Function Get_Keyvalue() As Integer
+            Return Me.iVerwaltung_mitNr.Value
+        End Function
+
+
+    End Class
+End Namespace
+

_DataClass/Klassen/Verwaltung_Durch_Berechtigung.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Verwaltung_Durch_Berechtigung
+        Inherits DB.clsVerwaltung_Durch_Berechtigung
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_Durch_BerechtigungNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Verwaltung_Durch_Berechtigung")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigungNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Verwaltung_Durch_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iBerechtigungNr = 0
+            Me.iVerwaltung_DurchNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iVerwaltung_Durch_BerechtigungNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iVerwaltung_DurchNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iBerechtigungNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iVerwaltung_Durch_BerechtigungNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iVerwaltung_Durch_BerechtigungNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Verwaltung_Durch_Plattform.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Verwaltung_Durch_Plattform
+        Inherits DB.clsVerwaltung_Durch_Plattform
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_Durch_PlattformNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Verwaltung_Durch_Plattform")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPlattformNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Verwaltung_Durch_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iPlattformNr = 0
+            Me.iVerwaltung_DurchNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iVerwaltung_Durch_PlattformNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iVerwaltung_DurchNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iPlattformNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iVerwaltung_Durch_PlattformNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iVerwaltung_Durch_PlattformNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Verwaltung_Durch_Server.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Verwaltung_Durch_Server
+        Inherits DB.clsVerwaltung_Durch_Server
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_Durch_ServerNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Verwaltung_Durch_Server")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iServerNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Verwaltung_Durch_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iServerNr = 0
+            Me.iVerwaltung_DurchNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iVerwaltung_Durch_ServerNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iVerwaltung_DurchNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iVerwaltung_Durch_ServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iVerwaltung_Durch_ServerNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Verwaltung_Mit_Funktionstelle.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Verwaltung_Mit_FunktionStelle
+        Inherits DB.clsVerwaltung_Mit_FunktionStelle
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_Mit_FunktionStelleNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Verwaltung_Mit_FunktionStelle")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iFunktionStelleNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Verwaltung_Mit_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iFunktionStelleNr = 0
+            Me.iVerwaltung_MitNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iVerwaltung_Mit_FunktionStelleNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iVerwaltung_MitNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iFunktionStelleNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iVerwaltung_Mit_FunktionStelleNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iVerwaltung_Mit_FunktionStelleNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Verwaltung_Mit_Plattform.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Verwaltung_Mit_Plattform
+        Inherits db.clsVerwaltung_Mit_Plattform
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_Mit_PlattformNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Verwaltung_Mit_Plattform")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iPlattformNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Verwaltung_Mit_Plattform")
+            'db.Dispose()
+            'Me.iPeronal_PlattformNr = New SqlInt32(CType(newkey, Int32))
+            Me.iPlattformNr = 0
+            Me.iVerwaltung_MitNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iVerwaltung_Mit_PlattformNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iVerwaltung_MitNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iPlattformNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iVerwaltung_Mit_PlattformNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iVerwaltung_Mit_PlattformNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Verwaltung_Mit_Server.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Verwaltung_Mit_Server
+        Inherits db.clsVerwaltung_Mit_Server
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_Mit_ServerNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Verwaltung_Mit_Server")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iServerNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Verwaltung_Mit_Server")
+            'db.Dispose()
+            'Me.iPeronal_ServerNr = New SqlInt32(CType(newkey, Int32))
+            Me.iServerNr = 0
+            Me.iVerwaltung_MitNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iVerwaltung_Mit_ServerNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iVerwaltung_MitNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iVerwaltung_Mit_ServerNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iVerwaltung_Mit_ServerNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Verwaltung_mit_Berechtigung.vb

@@ -0,0 +1,184 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class Verwaltung_Mit_Berechtigung
+        Inherits DB.clsVerwaltung_Mit_Berechtigung
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_Mit_BerechtigungNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Verwaltung_Mit_Berechtigung")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iBerechtigungNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Verwaltung_Mit_Funktionstelle")
+            'db.Dispose()
+            'Me.iPeronal_FunktionStelleNr = New SqlInt32(CType(newkey, Int32))
+            Me.iBerechtigungNr = 0
+            Me.iVerwaltung_MitNr = 0
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.iSequenz = New SqlInt32(CType(1, 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.Mitarbeiternr, 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.iVerwaltung_Mit_BerechtigungNr.Value
+        End Function
+
+        Public Sub Set_ObjektNr1(ByVal Keyvalue As Integer)
+            Me.iVerwaltung_MitNr = New SqlInt32(CType(Keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_ObjektNr2(ByVal keyvalue As Integer)
+            Me.iBerechtigungNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Sub Set_KeyField(ByVal keyvalue As Integer)
+            Me.iVerwaltung_Mit_BerechtigungNr = New SqlInt32(CType(keyvalue, Int32))
+        End Sub
+
+        Public Function Get_KeyValue() As Integer
+            Return Me.iVerwaltung_Mit_BerechtigungNr.Value
+        End Function
+    End Class
+End Namespace
+

_DataClass/Klassen/Verwaltungdurch.vb

@@ -0,0 +1,171 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace db
+    Public Class VerwaltungDurch
+        Inherits DB.clsVerwaltung_durch
+
+
+#Region "Deklarationen"
+        Public daten As New DataTable
+        Public Neuer_Datensatz As Boolean = False
+        Public Mitarbeiterdaten 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()
+
+        End Sub
+
+        Public Overloads Sub dispose()
+            MyBase.Dispose()
+            Try
+            Catch
+            End Try
+        End Sub
+
+        ''' <summary>
+        ''' Mutierer auslesen
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function Get_Mutierer(ByVal nr As Integer) As String
+            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
+        End Function
+
+
+        Public Function Get_Data(ByVal Nr As Integer)
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_durchNr = New SqlInt32(CType(Nr, Int32))
+            Globals.conn.OpenConnection()
+            Me.daten = Me.SelectOne()
+            Globals.conn.CloseConnection(True)
+            Try
+            Catch ex As Exception
+            End Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        End Function
+
+        Public Function Save_Data() As Integer
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iMutierer = New SqlInt32(CType(Globals.Mitarbeiternr, 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("Verwaltung_Durch")
+            db.Dispose()
+
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iVerwaltung_durchNr = 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.Mitarbeiternr, 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.Mitarbeiternr, 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("Verwaltung_Durch")
+            db.Dispose()
+            Me.iVerwaltung_durchNr = New SqlInt32(CType(newkey, Int32))
+            Me.sBeschreibung = New SqlString(CType("", String))
+            Me.sBezeichnung = New SqlString(CType("", String))
+            Me.iSequenz = 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.Mitarbeiternr, Int32))
+            Me.cpMainConnectionProvider = Globals.conn
+            Me.iParentID = New SqlInt32(CType(0, Int32))
+
+            Globals.conn.OpenConnection()
+            Me.Insert()
+            Globals.conn.CloseConnection(True)
+            Me.Neuer_Datensatz = True
+            Return newkey
+        End Function
+
+        Public Function Get_Keyvalue() As Integer
+            Return Me.iVerwaltung_durchNr.Value
+        End Function
+
+
+    End Class
+End Namespace
+

_DataClass/Klassen/clsBeziehungen.vb

@@ -0,0 +1,61 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace DB
+
+    Public Class clsBeziehungen
+        Inherits DB.clsMitarbeiter
+
+        Public Function Get_Beziehungen(Type As String, ByVal keyvalue As Integer, Optional typ As Integer = 0) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            cpMainConnectionProvider = Globals.conn
+            scmCmdToExecute.CommandText = Type
+            'Select Case UCase(Type)
+            '    Case "BERECHTIGUNG"
+
+            '    Case "FUNKTIONSTELLE", "ORGANISATION"
+            '        scmCmdToExecute.CommandText = "dbo.sp_get_funktionstelle_beziehungen"
+            '    Case "PLATTFORM"
+            '        scmCmdToExecute.CommandText = "dbo.sp_get_plattform_beziehungen"
+            '    Case "PERSONAL"
+            '        scmCmdToExecute.CommandText = "dbo.sp_get_Personal_beziehungen"
+            '    Case "SERVER"
+            '        scmCmdToExecute.CommandText = "dbo.sp_get_server_beziehungen"
+            '    Case "VERWALTUNGDURCH"
+            '        scmCmdToExecute.CommandText = "dbo.sp_get_verwaltungdurch_beziehungen"
+            '    Case "VERWALTUNGMIT"
+            '        scmCmdToExecute.CommandText = "dbo.sp_get_verwaltungmit_beziehungen"
+            'End Select
+
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@KeyValue", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, keyvalue))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, typ))
+                If m_bMainConnectionIsCreatedLocal Then
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                Throw New Exception("_Get_Beziehungen:" + Type + ":::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+    End Class
+End Namespace