Initial commit
This commit is contained in:
414
_DataClass/Klassen/Server.vb
Normal file
414
_DataClass/Klassen/Server.vb
Normal file
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user