Initial commit

2021-04-20 07:44:06 +02:00
commit 1cc7ed8893
1562 changed files with 496306 additions and 0 deletions
--- a/Kopie/Klassen/clsWindowHandling.vb
+++ b/Kopie/Klassen/clsWindowHandling.vb
@@ -0,0 +1,97 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Public Class clsWindowHandling
+    Dim m_width As Integer
+    Property Width As Integer
+        Get
+            Return m_width
+        End Get
+        Set(value As Integer)
+            m_width = value
+        End Set
+    End Property
+
+    Dim m_height As Integer
+    Property height As Integer
+        Get
+            Return m_height
+        End Get
+        Set(value As Integer)
+            m_height = value
+        End Set
+    End Property
+
+    Public Function get_windowsize(windowsnr 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_Windowsize"
+        selectcommand.Parameters.Add("@WindowsNr", SqlDbType.VarChar, 255)
+        selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+        selectcommand.Parameters.Add("@fnkt", SqlDbType.Int, 4)
+        selectcommand.Parameters.Add("@width", SqlDbType.Int, 4)
+        selectcommand.Parameters.Add("@height", SqlDbType.Int, 4)
+        selectcommand.Parameters(0).Value = windowsnr
+        selectcommand.Parameters(1).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
+        selectcommand.Parameters(2).Value = 1
+        selectcommand.Parameters(3).Value = 0
+        selectcommand.Parameters(4).Value = 0
+
+        selectcommand.CommandType = CommandType.StoredProcedure
+        selectcommand.Connection = connection
+        Try
+            connection.ConnectionString = Globals.sConnectionString
+            connection.Open()
+            da.SelectCommand = selectcommand
+            da.Fill(ds)
+            Me.Width = ds.Tables(0).Rows(0).Item("Width")
+            Me.height = ds.Tables(0).Rows(0).Item("Height")
+        Catch ex As Exception
+            Me.Width = 0
+            Me.height = 0
+        Finally
+            connection.Close()
+            da.Dispose()
+            ds.Dispose()
+            selectcommand.Dispose()
+        End Try
+    End Function
+
+    Public Function set_Windowsize(windownr As Integer, width As Integer, height 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_Windowsize"
+        selectcommand.Parameters.Add("@WindowsNr", SqlDbType.VarChar, 255)
+        selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
+        selectcommand.Parameters.Add("@fnkt", SqlDbType.Int, 4)
+        selectcommand.Parameters.Add("@width", SqlDbType.Int, 4)
+        selectcommand.Parameters.Add("@height", SqlDbType.Int, 4)
+        selectcommand.Parameters(0).Value = windownr
+        selectcommand.Parameters(1).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
+        selectcommand.Parameters(2).Value = 2
+        selectcommand.Parameters(3).Value = width
+        selectcommand.Parameters(4).Value = height
+
+        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
+
+End Class