BEA/_DataClass/Klassen/Server.vb

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