EDOKA_Client/EDOKA/Backup/Utils/MySpalten.vb

'*
' Object MyspaltenTitel
'
' Dieses Objekt liest die Daten aus der Tabelle Spalten und speichert diese in spaltendaten
' Die Daten werden für die Spaltenbezeichnung der C1Datagrids verwendet
'
' Autor: Stefan Hutter
' Datum: 2.12.2002
'*
Namespace EDOKA
    Public Class Tabellenspalte
        Private m_table As String
        Private m_field As String
        Private m_spaltenname As String
        Private m_locked As Boolean
        Private m_Width As Integer
        Private m_Order As Integer
        Private m_alsHacken As Boolean
        Private m_tiptext As String

        Property ColWith() As Integer
            Get
                Return m_Width
            End Get
            Set(ByVal Value As Integer)
                m_Width = Value
            End Set
        End Property
        Property Order() As Integer
            Get
                Return m_Order
            End Get
            Set(ByVal Value As Integer)
                m_Order = Value
            End Set
        End Property
        Property Tabelle() As String
            Get
                Return m_table
            End Get
            Set(ByVal Value As String)
                m_table = Value
            End Set
        End Property
        Property Feld() As String
            Get
                Return m_field
            End Get
            Set(ByVal Value As String)
                m_field = Value
            End Set
        End Property
        Property spaltenname() As String
            Get
                Return m_spaltenname
            End Get
            Set(ByVal Value As String)
                m_spaltenname = Value
            End Set
        End Property
        Property locked() As Boolean
            Get
                Return m_locked
            End Get
            Set(ByVal Value As Boolean)
                m_locked = Value
            End Set
        End Property
        Property AlsHacken() As Boolean
            Get
                Return m_alsHacken
            End Get
            Set(ByVal Value As Boolean)
                m_alsHacken = Value
            End Set
        End Property
        Property TipText() As String
            Get
                Return m_tiptext
            End Get
            Set(ByVal Value As String)
                m_tiptext = Value
            End Set
        End Property

        Public Function getspalte()
            Try
                Dim myspalten As New MySpaltenTitel()
                Me.spaltenname = myspalten.getspalte(Me.Tabelle, Me.Feld)
                Me.locked = myspalten.getlock(Me.Tabelle, Me.Feld)
                Me.ColWith = myspalten.getColWidth(Me.Tabelle, Me.Feld)
                Me.Order = myspalten.getOrder(Me.Tabelle, Me.Feld)
                Me.AlsHacken = myspalten.gethacken(Me.Tabelle, Me.Feld)
                Me.TipText = myspalten.gettiptext(Me.Tabelle, Me.Feld)
            Catch
            End Try
        End Function
    End Class

    Public Class MySpaltenTitel
        Public Function getspalte(ByVal tabelle As String, ByVal feld As String) As String
            Dim i As Integer
            If Globals.Spalten.Rows.Count = 0 Then load_data()
            For i = 0 To Globals.Spalten.Rows.Count - 1
                If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
                    getspalte = Globals.Spalten.Rows(i).Item(3)
                End If
            Next
        End Function

        Public Function getlock(ByVal tabelle As String, ByVal feld As String) As Boolean
            Dim i As Integer
            If Globals.Spalten.Rows.Count = 0 Then load_data()
            For i = 0 To Globals.Spalten.Rows.Count - 1
                If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
                    getlock = Globals.Spalten.Rows(i).Item(4)
                End If
            Next
        End Function

        Public Function getColWidth(ByVal tabelle As String, ByVal feld As String) As Integer
            Dim i As Integer
            If Globals.Spalten.Rows.Count = 0 Then load_data()
            For i = 0 To Globals.Spalten.Rows.Count - 1
                If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
                    getColWidth = Globals.Spalten.Rows(i).Item(6)
                End If
            Next
        End Function

        Public Function getOrder(ByVal tabelle As String, ByVal feld As String) As Integer
            Dim i As Integer
            If Globals.Spalten.Rows.Count = 0 Then load_data()
            For i = 0 To Globals.Spalten.Rows.Count - 1
                If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
                    getOrder = Globals.Spalten.Rows(i).Item(7)
                End If
            Next
        End Function

        Public Function gethacken(ByVal tabelle As String, ByVal feld As String) As Integer
            Dim i As Integer
            If Globals.Spalten.Rows.Count = 0 Then load_data()
            For i = 0 To Globals.Spalten.Rows.Count - 1
                If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
                    gethacken = Globals.Spalten.Rows(i).Item(5)
                End If
            Next
        End Function

        Public Function gettiptext(ByVal tabelle As String, ByVal feld As String) As String
            Dim i As Integer
            If Globals.Spalten.Rows.Count = 0 Then load_data()
            For i = 0 To Globals.Spalten.Rows.Count - 1
                If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
                    gettiptext = Globals.Spalten.Rows(i).Item(8)
                End If
            Next
        End Function

        Public Sub load_data()
            Dim spalten As New edokadb.clsSpalten()
            Globals.Spalten.Rows.Clear()
            spalten.cpMainConnectionProvider = conn
            Globals.Spalten = spalten.SelectAll
        End Sub
    End Class
End Namespace