EDOKA_Client/EDOKA/Utils/WindowPostitions.vb

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