Initial

2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions
--- a/EDOKA/Backup/Utils/WindowPostitions.vb
+++ b/EDOKA/Backup/Utils/WindowPostitions.vb
@@ -0,0 +1,141 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Public Class WindowPositions
+    Dim m_mitarbeiternr As Integer
+    Dim m_window As String
+    Dim m_top As Long
+    Dim m_left As Long
+    Dim m_width As Long
+    Dim m_height As Long
+
+#Region "Properties"
+
+    Property Mitarbeiternr() As Integer
+        Get
+            Return m_mitarbeiternr
+        End Get
+        Set(ByVal Value As Integer)
+            m_mitarbeiternr = Value
+        End Set
+    End Property
+    Property Window()
+        Get
+            Return m_window
+        End Get
+        Set(ByVal Value)
+            m_window = Value
+        End Set
+    End Property
+    Property Top() As Long
+        Get
+            Return m_top
+        End Get
+        Set(ByVal Value As Long)
+            m_top = Value
+        End Set
+    End Property
+    Property Left() As Long
+        Get
+            Return m_left
+        End Get
+        Set(ByVal Value As Long)
+            m_left = Value
+        End Set
+    End Property
+
+    Property Width() As Long
+        Get
+            Return m_width
+        End Get
+        Set(ByVal Value As Long)
+            m_width = Value
+        End Set
+    End Property
+    Property Height() As Long
+        Get
+            Return m_height
+        End Get
+        Set(ByVal Value As Long)
+            m_height = Value
+        End Set
+    End Property
+#End Region
+
+#Region "DBHandle"
+
+#End Region
+
+#Region "Öffentliche Methoden"
+
+    Public Sub Get_Position(ByVal Frm As Form)
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable("coldindex")
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        scmCmdToExecute.CommandText = "dbo.[sp_windowpositions]"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        Try
+            conn.OpenConnection()
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Formular", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Frm.Text))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@top", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Frm.Top))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@left", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Frm.Left))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@width", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Frm.Width))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@height", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Frm.Height))
+            sdaAdapter.Fill(dtToReturn)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            conn.CloseConnection(True)
+        End Try
+        If dtToReturn.Rows.Count > 0 Then
+            Frm.Top = dtToReturn.Rows(0).Item("top")
+            Frm.Left = dtToReturn.Rows(0).Item("left")
+            Frm.Width = dtToReturn.Rows(0).Item("width")
+            Frm.Height = dtToReturn.Rows(0).Item("height")
+        End If
+        dtToReturn.Dispose()
+    End Sub
+
+    Public Sub Set_Position(ByVal frm As Form)
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable("coldindex")
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        scmCmdToExecute.CommandText = "dbo.[sp_windowpositions]"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        Try
+            conn.OpenConnection()
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Formular", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, frm.Text))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@top", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, frm.Top))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@left", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, frm.Left))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@width", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, frm.Width))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@height", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, frm.Height))
+            scmCmdToExecute.ExecuteNonQuery()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            conn.CloseConnection(True)
+        End Try
+        If dtToReturn.Rows.Count > 0 Then
+            frm.Top = dtToReturn.Rows(0).Item("top")
+            frm.Left = dtToReturn.Rows(0).Item("left")
+            frm.Width = dtToReturn.Rows(0).Item("width")
+            frm.Height = dtToReturn.Rows(0).Item("height")
+        End If
+        dtToReturn.Dispose()
+
+    End Sub
+#End Region
+
+End Class