Public Class KPI
    Dim m_connectionstring As String
    Property Connectionstring As String
        Get
            Return m_connectionstring
        End Get
        Set(value As String)
            m_connectionstring = value
        End Set
    End Property

    Dim m_mitarbeiternr As Integer
    Property Mitarbeiternr As Integer
        Get
            Return m_mitarbeiternr
        End Get
        Set(value As Integer)
            m_mitarbeiternr = value
        End Set
    End Property

    Dim m_connectionfilename As String
    Property Connectionfilename As String
        Get
            Return m_connectionfilename
        End Get
        Set(value As String)
            m_connectionfilename = value
        End Set
    End Property

    Dim m_tempfilepath As String
    Property Tempfilepath As String
        Get
            Return m_tempfilepath
        End Get
        Set(value As String)
            m_tempfilepath = value
        End Set
    End Property

    Sub New(ByVal constring As String, ma As Integer, ByVal tempfilepath As String, ByVal connectionfilename As String)
        Me.Connectionstring = constring
        Me.Mitarbeiternr = ma
        Me.Connectionfilename = connectionfilename
        Me.Tempfilepath = tempfilepath
        Globals.conn.sConnectionString = Me.Connectionstring
        Globals.Mitarbeiternr = Me.Mitarbeiternr
        Globals.sConnectionString = Me.Connectionstring
        Globals.Tempfilepath = Me.Tempfilepath
        Globals.ConnectionFileName = Me.Connectionfilename
    End Sub

    Public Sub Show_Uebersicht(ByVal parent As System.Windows.Forms.Form)
        Dim f As New frmUebersicht
        f.MdiParent = parent
        f.Show()

    End Sub

End Class