92 lines
3.5 KiB
VB.net
92 lines
3.5 KiB
VB.net
|
|
Public Class cBuergschaft
|
|
Property brg_id As Integer = -1
|
|
Property brg_datum As String = ""
|
|
Property brg_at_tag As String = ""
|
|
Property brg_at_woche As String = ""
|
|
Property brg_de_tag As String = ""
|
|
Property brg_de_woche As String = ""
|
|
Property brg_at_tag_atlas As String = ""
|
|
Property brg_at_tag_zolaris As String = ""
|
|
Property brg_at_woche_atlas As String = ""
|
|
Property brg_at_woche_zolaris As String = ""
|
|
Property brg_de_tag_atlas As String = ""
|
|
Property brg_de_woche_atlas As String = ""
|
|
End Class
|
|
|
|
Public Class cMonitoringBrg
|
|
Property brgusrset_id As Integer = -1
|
|
Property brgusrset_username As String = ""
|
|
Property brgusrset_gvvAt_summe As Double = 0.0
|
|
Property brgusrset_gvvAt_tag_warn1 As Double = 0.0
|
|
Property brgusrset_gvvAt_tag_warn2 As Double = 0.0
|
|
Property brgusrset_gvvAt_woche_warn1 As Double = 0.0
|
|
Property brgusrset_gvvAt_woche_warn2 As Double = 0.0
|
|
Property brgusrset_gvvDe_summe As Double = 0.0
|
|
Property brgusrset_gvvDe_tag_warn1 As Double = 0.0
|
|
Property brgusrset_gvvDe_tag_warn2 As Double = 0.0
|
|
Property brgusrset_gvvDe_woche_warn1 As Double = 0.0
|
|
Property brgusrset_gvvDe_woche_warn2 As Double = 0.0
|
|
Property brgusrset_gvvDe2_summe As Double = 0.0
|
|
Property brgusrset_gvvDe2_tag_warn1 As Double = 0.0
|
|
Property brgusrset_gvvDe2_tag_warn2 As Double = 0.0
|
|
Property brgusrset_gvvDe2_woche_warn1 As Double = 0.0
|
|
Property brgusrset_gvvDe2_woche_warn2 As Double = 0.0
|
|
Property brgusrset_aufschub_AG_de_summe As Double = 0.0
|
|
Property brgusrset_aufschub_AG_de_warn1 As Double = 0.0
|
|
Property brgusrset_aufschub_AG_de_warn2 As Double = 0.0
|
|
Property brgusrset_aufschub_AG_at_summe As Double = 0.0
|
|
Property brgusrset_aufschub_AG_at_warn1 As Double = 0.0
|
|
Property brgusrset_aufschub_AG_at_warn2 As Double = 0.0
|
|
Property brgusrset_aufschub_CS_at_summe As Double = 0.0
|
|
Property brgusrset_aufschub_CS_at_warn1 As Double = 0.0
|
|
Property brgusrset_aufschub_CS_at_warn2 As Double = 0.0
|
|
Property brgusrset_aufschub_ZS_at_summe As Double = 0.0
|
|
Property brgusrset_aufschub_ZS_at_warn1 As Double = 0.0
|
|
Property brgusrset_aufschub_ZS_at_warn2 As Double = 0.0
|
|
|
|
Property brgusrset_aufschub_imex_de_summe As Double = 0.0
|
|
Property brgusrset_aufschub_imex_de_warn1 As Double = 0.0
|
|
Property brgusrset_aufschub_imex_de_warn2 As Double = 0.0
|
|
|
|
|
|
Property brgusrset_gvvAt_imex_de_summe As Double = 0.0
|
|
Property brgusrset_gvvAt_imex_tag_warn1 As Double = 0.0
|
|
Property brgusrset_gvvAt_imex_tag_warn2 As Double = 0.0
|
|
Property brgusrset_gvvAt_imex_woche_warn1 As Double = 0.0
|
|
Property brgusrset_gvvAt_imex_woche_warn2 As Double = 0.0
|
|
|
|
Property brgusrset_gvvAt_ATILLA_de_summe As Double = 0.0
|
|
Property brgusrset_gvvAt_ATILLA_tag_warn1 As Double = 0.0
|
|
Property brgusrset_gvvAt_ATILLA_tag_warn2 As Double = 0.0
|
|
Property brgusrset_gvvAt_ATILLA_woche_warn1 As Double = 0.0
|
|
Property brgusrset_gvvAt_ATILLA_woche_warn2 As Double = 0.0
|
|
End Class
|
|
|
|
|
|
Public Class MyListItem
|
|
Private mText As String
|
|
Private mValue As String
|
|
|
|
Public Sub New(ByVal pText As String, ByVal pValue As String)
|
|
mText = pText
|
|
mValue = pValue
|
|
End Sub
|
|
|
|
Public ReadOnly Property Text() As String
|
|
Get
|
|
Return mText
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Value() As String
|
|
Get
|
|
Return mValue
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return mText
|
|
End Function
|
|
|
|
End Class |