You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
91 lines
2.6 KiB
91 lines
2.6 KiB
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
|