Initial commit

2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
--- a/.svn/pristine/95/955206477a82a59564adfd5d6932786a64eb01ed.svn-base
+++ b/.svn/pristine/95/955206477a82a59564adfd5d6932786a64eb01ed.svn-base
@@ -0,0 +1,270 @@
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Public Class clsFinding
+    Inherits DB.clsPruefschrittFinding
+
+
+#Region "Deklarationen"
+    Public daten As New DataTable
+    Public Neuer_Datensatz As Boolean = False
+    Public Mitarbeiterdaten As New DataTable
+
+    Dim stammdaten As New DB.clsStammdaten
+    Dim SpaltenTitel As New Utils.Tabellenspalte
+
+    Dim mMutierer As String
+    Property MutiererText() As String
+        Get
+            Return mMutierer
+        End Get
+        Set(ByVal value As String)
+            mMutierer = value
+        End Set
+    End Property
+
+    Public auswirkung As New DataTable
+    Public Kritikalitaet As New DataTable
+    Public Wichtigkeit As New DataTable
+#End Region
+
+
+    Sub New()
+        MyBase.New()
+        auswirkung = stammdaten.Get_Stammdaten("auswirkung", "Sort")
+        Kritikalitaet = stammdaten.Get_Stammdaten("Kritikalitaet", "Sort")
+        Wichtigkeit = stammdaten.Get_Stammdaten("Wichtigkeit", "Sort")
+    End Sub
+
+    Public Overloads Sub dispose()
+        MyBase.Dispose()
+        auswirkung.Dispose()
+        Kritikalitaet.Dispose()
+        Wichtigkeit.Dispose()
+
+        Try
+            Me.stammdaten = Nothing
+        Catch
+        End Try
+    End Sub
+
+    ''' <summary>
+    ''' Mutierer auslesen
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function Get_Mutierer(ByVal nr As Integer) As String
+        Try
+            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
+        Catch
+            Return ""
+        End Try
+
+    End Function
+
+
+    Public Function Get_Data(ByVal Nr As Integer)
+        Me.cpMainConnectionProvider = Globals.conn
+        Me.iPruefschrittfindingNr = New SqlInt32(CType(Nr, Int32))
+        Globals.conn.OpenConnection()
+        Me.daten = Me.SelectOne()
+        Globals.conn.CloseConnection(True)
+        Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        Catch ex As Exception
+            Me.MutiererText = ""
+
+        End Try
+
+    End Function
+
+    Public Function Save_Data() As Integer
+        Me.cpMainConnectionProvider = Globals.conn
+        Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, 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("PruefschrittFinding")
+        db.Dispose()
+
+        Me.cpMainConnectionProvider = Globals.conn
+        Me.iPruefschrittfindingNr = 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.clsmitarbeiter.iMitarbeiternr, 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.clsmitarbeiter.iMitarbeiternr, 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("Pruefschrittfinding")
+        db.Dispose()
+        Me.iPruefschrittfindingNr = New SqlInt32(CType(newkey, Int32))
+        Me.iPruefschrittresultatnr = New SqlInt32(CType(0, Int32))
+        Me.iPruefschrittfindingNr = New SqlInt32(CType(newkey, Int32))
+        Me.sBezeichnung = New SqlString(CType("", String))
+        Me.sBeschreibung = New SqlString(CType("", String))
+        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.clsmitarbeiter.iMitarbeiternr, 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.iPruefschrittfindingNr.Value
+    End Function
+
+
+    Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer, ByVal images As ImageList)
+        Try
+            Dim ds As New DataSet
+            Dim connection As New SqlConnection()
+            Dim da As New SqlDataAdapter("", connection)
+            Dim sqlcmd As New SqlCommand
+
+            sqlcmd.CommandText = "sp_get_PruefschrittFinding"
+            sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
+            sqlcmd.CommandType = CommandType.StoredProcedure
+            sqlcmd.Connection = connection
+            Try
+                connection.ConnectionString = Globals.sConnectionString
+                connection.Open()
+                da.SelectCommand = sqlcmd
+                da.Fill(ds, "Datatable1")
+                Try
+                    c1daten.DataSource = Nothing
+                Catch
+                End Try
+
+                c1daten.DataSource = ds.Tables(0)
+                    c1daten.DataMember = ds.Tables(0).TableName
+
+                    SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefschrittfinding", ds.Tables(0))
+
+                    Dim bmp0 As New Bitmap(images.Images(0))
+                    Dim bmp1 As New Bitmap(images.Images(1))
+                    Dim bmp2 As New Bitmap(images.Images(2))
+                    Dim bmp3 As New Bitmap(images.Images(3))
+
+                    Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
+                    Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
+                    Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
+                    Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
+
+                    v0.DisplayValue = bmp0
+                    v0.Value = 1
+
+                    v1.DisplayValue = bmp1
+                    v1.Value = 2
+
+                    v2.DisplayValue = bmp2
+                    v2.Value = 3
+
+                    v3.DisplayValue = bmp3
+                    v3.Value = 4
+
+                    c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v0)
+                    c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v1)
+                    c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v2)
+                    c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v3)
+                    c1daten.Columns("Auswirkungnr").ValueItems.Translate = True
+                    c1daten.Splits(0).DisplayColumns("Auswirkungnr").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
+                    c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v0)
+                    c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v1)
+                    c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v2)
+                    c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v3)
+                    c1daten.Columns("kritikalitaetnr").ValueItems.Translate = True
+                    c1daten.Splits(0).DisplayColumns("kritikalitaetnr").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
+
+                    c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v0)
+                    c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v1)
+                    c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v2)
+                    c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v3)
+                    c1daten.Columns("wichtigkeitnr").ValueItems.Translate = True
+                    c1daten.Splits(0).DisplayColumns("wichtigkeitnr").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
+
+
+                Catch ex As Exception
+                    MsgBox(ex.Message)
+                Finally
+                    connection.Close()
+                da.Dispose()
+                sqlcmd.Dispose()
+            End Try
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+
+End Class
--- a/.svn/pristine/95/958bf2e2e2a601f43ac4208a9e5b2cf6ac01e526.svn-base
+++ b/.svn/pristine/95/958bf2e2e2a601f43ac4208a9e5b2cf6ac01e526.svn-base
@@ -0,0 +1,20 @@
+
+Microsoft Visual Studio Solution File, Format Version 11.00
+# Visual Studio 2010
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Themenmanagement", "Themenmanagement\Themenmanagement.vbproj", "{1B191999-7204-4EB5-96F7-A6805B0B32FC}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|x86 = Debug|x86
+		Release|x86 = Release|x86
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|x86.ActiveCfg = Debug|x86
+		{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Debug|x86.Build.0 = Debug|x86
+		{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|x86.ActiveCfg = Release|x86
+		{1B191999-7204-4EB5-96F7-A6805B0B32FC}.Release|x86.Build.0 = Release|x86
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal