Initial commit

_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
+