Initial commit

_FRReporting/_FRReporting.vb

@@ -0,0 +1,90 @@
+Imports System.Windows.Forms
+
+Public Class _FRReporting
+    Dim m_connectionstring As String
+
+#Region "Properties"
+    Public Property ConnectionString() As String
+        Get
+            ConnectionString = m_connectionstring
+        End Get
+        Set(ByVal Value As String)
+            If m_connectionstring <> Value Then
+                m_connectionstring = Value
+                Globals.sConnectionString = m_connectionstring
+                Globals.conn.sConnectionString = m_connectionstring
+            End If
+        End Set
+    End Property
+
+
+    Dim m_Mitarbeiternr As Integer
+    Public Property Mitarbeiternr As Integer
+        Get
+            Mitarbeiternr = m_Mitarbeiternr
+        End Get
+        Set(value As Integer)
+            If m_Mitarbeiternr <> value Then
+                m_Mitarbeiternr = value
+                Globals.Mitarbeiternr = m_Mitarbeiternr
+            End If
+        End Set
+    End Property
+
+    Dim m_TempFilePath As String
+    Public Property TempFilePath As String
+        Get
+            TempFilePath = m_TempFilePath
+        End Get
+        Set(value As String)
+            If m_TempFilePath <> value Then
+                m_TempFilePath = value
+                Globals.TmpFilepath = m_TempFilePath
+            End If
+        End Set
+    End Property
+
+    Sub New()
+
+    End Sub
+#End Region
+
+
+    Public Function ReportSelect(ByVal Parentform As Form)
+        Dim f As New FrmReportSelect
+        f.MdiParent = Parentform
+        f.Show()
+    End Function
+
+    Public Function DefaultReport(ByVal auswertungnr As Integer, param As String, ByVal ParamValue As String, Optional Parent As Object = Nothing)
+        Dim f As New FrmReportSelect
+        f.MdiParent = Parent
+        f.Show()
+        f.TreeAuswertungen.SelectedNode = FindNode(f.TreeAuswertungen.Nodes, auswertungnr, "")
+        f.cbparam1.Text = param
+        f.cbop1.Text = "="
+        f.cbvalue1.Text = ParamValue
+        f.showreport()
+        f.Close()
+    End Function
+
+    Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
+        Dim tmpNode As TreeNode
+        For Each _child As TreeNode In _nodeCollection
+            If _child.Tag = SearchVal Then
+
+                Return _child
+            End If
+            ' If InStr(UCase(_child.Text), UCase(SearchString)) > 0 Then
+            ' Return _child
+            ' End If
+            tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
+            If Not tmpNode Is Nothing Then
+                Return tmpNode
+            End If
+        Next
+        Return Nothing
+    End Function
+
+
+End Class