Initial

Backup/DataAccess/MitarbeiterFunktionsgruppe.vb

@@ -0,0 +1,154 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Tabelle mitarbeiter_funktionsgruppe</summary>
+Public Class MitarbeiterFunktionsgruppe
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Funktionsgrupppen denen ein Mitarbeiter zugewiesen ist zurück</summary>
+	'''<param name="ds">Das DataSet welches gefüllt werden soll</param>
+
+    Overloads Shared Sub GetListeByMitarbeiterNr(ByVal mitarbeiterNr As Integer, ByRef ds As DataSet)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlCmd.CommandText = "sp_GetMitarbeiterFunktionsgruppen"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "FunktionsgruppenListe")
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+            If da Is Nothing Then
+                da.Dispose()
+            End If
+        End Try
+    End Sub
+
+    '''<summary>Fügt einen Mitarbeiter zu einer Funktionsgruppe hinzu</summary>
+    '''<param name="mitarbeiterNr">Mitarbeiter ID welche hinzugefügt werden soll</param>
+    '''<param name="funktionsGruppeNr">Ziel-Funktionsgruppe</param>
+    '''<param name="mutiererMitarbeiterNr">Mitarbeiter welcher die Änderung vornimmt</param>
+
+	Public Overloads Shared Sub Insert(ByVal mitarbeiterNr As Integer, ByVal funktionsGruppeNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_InsertMitarbeiterFunktionsGruppe"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@FunktionsGruppeNr", funktionsGruppeNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMANr", mutiererMitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Sub
+
+	'''<summary>Fügt einen Mitarbeiter zu einer Funktionsgruppe hinzu</summary>
+	'''<param name="mitarbeiterNr">Mitarbeiter ID welche hinzugefügt werden soll</param>
+	'''<param name="funktionsGruppeNr">Ziel-Funktionsgruppe</param>
+	'''<param name="mutiererMitarbeiterNr">Mitarbeiter welcher die Änderung vornimmt</param>
+
+    Public Overloads Shared Function Delete(ByVal mitarbeiter_funktionsGruppeNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlCmd.CommandText = "sp_DeleteMitarbeiterFunktionsGruppe"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@Mitarbeiter_FunktionsGruppeNr", mitarbeiter_funktionsGruppeNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@MutiererMANr", mutiererMitarbeiterNr))
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            sqlCmd.ExecuteNonQuery()
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+        End Try
+    End Function
+
+    '''<summary>Set den Aktiv Status einer Mitarbeiter Funktionsgruppen Zuordnung</summary>
+    '''<param name="mitarbeiterFunktionsgruppeNr">Das DataSet welches gefüllt werden soll</param>
+    '''<param name="isAktiv">Das DataSet welches gefüllt werden soll</param>
+
+	Overloads Shared Sub SetAktiv(ByVal mitarbeiterFunktionsgruppeNr As Integer, ByVal isAktiv As Boolean, ByVal mutiererMitarbeiterNr As Integer)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_SetMitarbeiterFunktionsgruppen"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterFunktionsgruppeNr", mitarbeiterFunktionsgruppeNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@IsAktiv", isAktiv))
+			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Sub
+
+#End Region
+
+End Class