|
|
VERSION 5.00
|
|
|
Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx"
|
|
|
Object = "{CBA16C06-AF5C-423D-9E34-7385EBC4F97B}#1.0#0"; "VWSTouch.ocx"
|
|
|
Object = "{C1B43C67-D439-11D5-8A98-0050BAB20053}#2.3#0"; "VWSFrame.ocx"
|
|
|
Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
|
|
|
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
|
|
|
Object = "{73B49944-40AB-11D5-8A0C-0050BAB20053}#1.0#0"; "VWSDateTime.ocx"
|
|
|
Begin VB.Form FAlarmHistory
|
|
|
BorderStyle = 0 'Kein
|
|
|
ClientHeight = 11520
|
|
|
ClientLeft = 0
|
|
|
ClientTop = 0
|
|
|
ClientWidth = 15360
|
|
|
ClipControls = 0 'False
|
|
|
Icon = "FAlarmHistory.frx":0000
|
|
|
ScaleHeight = 11520
|
|
|
ScaleWidth = 15360
|
|
|
StartUpPosition = 2 'Bildschirmmitte
|
|
|
Begin VWSAlarmDemo.XHeader XHeader1
|
|
|
Height = 1020
|
|
|
Left = 0
|
|
|
TabIndex = 0
|
|
|
Top = 0
|
|
|
Width = 15360
|
|
|
_ExtentX = 27093
|
|
|
_ExtentY = 873
|
|
|
Caption = "idxCaption"
|
|
|
IndexGroup = "FAlarmHistory"
|
|
|
End
|
|
|
Begin VWSAlarmDemo.XFooter XFooter1
|
|
|
Height = 840
|
|
|
Left = 0
|
|
|
TabIndex = 1
|
|
|
Top = 10680
|
|
|
Width = 15360
|
|
|
_ExtentX = 27093
|
|
|
_ExtentY = 1482
|
|
|
End
|
|
|
Begin VWSFrameLib.VWSFrame fraNotes
|
|
|
Height = 1575
|
|
|
Left = 60
|
|
|
TabIndex = 2
|
|
|
Top = 9000
|
|
|
Width = 15195
|
|
|
_ExtentX = 26802
|
|
|
_ExtentY = 2778
|
|
|
Caption = "fraNotes"
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 9
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
FontClass = "Tahoma9"
|
|
|
IndexGroup = "FAlarmHistory.Notes"
|
|
|
Begin VB.TextBox txtNote
|
|
|
Height = 375
|
|
|
Left = 9720
|
|
|
TabIndex = 3
|
|
|
Top = 300
|
|
|
Width = 5235
|
|
|
End
|
|
|
Begin MSComctlLib.ListView lvwNotes
|
|
|
Height = 1095
|
|
|
Left = 120
|
|
|
TabIndex = 4
|
|
|
Top = 300
|
|
|
Width = 9495
|
|
|
_ExtentX = 16748
|
|
|
_ExtentY = 1931
|
|
|
View = 3
|
|
|
LabelEdit = 1
|
|
|
LabelWrap = 0 'False
|
|
|
HideSelection = 0 'False
|
|
|
FullRowSelect = -1 'True
|
|
|
GridLines = -1 'True
|
|
|
_Version = 393217
|
|
|
ForeColor = -2147483640
|
|
|
BackColor = -2147483643
|
|
|
Appearance = 1
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
NumItems = 3
|
|
|
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
Object.Tag = "DateTime"
|
|
|
Text = "Datum"
|
|
|
Object.Width = 2999
|
|
|
EndProperty
|
|
|
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
SubItemIndex = 1
|
|
|
Object.Tag = "User"
|
|
|
Text = "Benutzer"
|
|
|
Object.Width = 2999
|
|
|
EndProperty
|
|
|
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
SubItemIndex = 2
|
|
|
Object.Tag = "Note"
|
|
|
Text = "Notiz"
|
|
|
Object.Width = 10054
|
|
|
EndProperty
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey keyAddNote
|
|
|
Height = 375
|
|
|
Left = 13560
|
|
|
TabIndex = 6
|
|
|
Top = 780
|
|
|
Width = 1395
|
|
|
_cx = 2461
|
|
|
_cy = 661
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
PictureMonitorOn= "FAlarmHistory.frx":000C
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = "FAlarmHistory.Notes"
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = "Tahoma8"
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = 0 'False
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
Picture = "FAlarmHistory.frx":0028
|
|
|
PictureDown = "FAlarmHistory.frx":0044
|
|
|
PictureDisabled = "FAlarmHistory.frx":0060
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = "keyAdd"
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey keyDeleteNote
|
|
|
Height = 375
|
|
|
Left = 9720
|
|
|
TabIndex = 5
|
|
|
Top = 1020
|
|
|
Width = 1395
|
|
|
_cx = 2461
|
|
|
_cy = 661
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
PictureMonitorOn= "FAlarmHistory.frx":007C
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = "FAlarmHistory.Notes"
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = "Tahoma8"
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = 0 'False
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
Picture = "FAlarmHistory.frx":0098
|
|
|
PictureDown = "FAlarmHistory.frx":00B4
|
|
|
PictureDisabled = "FAlarmHistory.frx":00D0
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = "keyDelete"
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
End
|
|
|
Begin VWSFrameLib.VWSFrame fraFilter
|
|
|
Height = 2235
|
|
|
Left = 60
|
|
|
TabIndex = 7
|
|
|
Top = 1680
|
|
|
Width = 15195
|
|
|
_ExtentX = 26802
|
|
|
_ExtentY = 3942
|
|
|
Caption = "fraFilter"
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 9
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
FontClass = "Tahoma9"
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Begin VWSFrameLib.VWSFrame fraPriority
|
|
|
Height = 1875
|
|
|
Left = 8400
|
|
|
TabIndex = 8
|
|
|
Top = 240
|
|
|
Width = 1455
|
|
|
_ExtentX = 2566
|
|
|
_ExtentY = 3307
|
|
|
Caption = "fraPriority"
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 9
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
FontClass = "Tahoma9"
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Begin VisiWinStudioLib.VWSVarIn vinMinPriority
|
|
|
Height = 315
|
|
|
Left = 480
|
|
|
TabIndex = 9
|
|
|
Top = 840
|
|
|
Width = 855
|
|
|
_cx = 1508
|
|
|
_cy = 556
|
|
|
VWItem = "__UNLINKED_UI2"
|
|
|
VWItemLimitMin = ""
|
|
|
VWItemLimitMax = ""
|
|
|
Blink = 0
|
|
|
UseItemConfig = 0 'False
|
|
|
BackStyle = 1
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 4
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483643
|
|
|
BackColorDisabled= -2147483633
|
|
|
ForeColor = -2147483640
|
|
|
Format = 0
|
|
|
DecPoint = 0
|
|
|
Enabled = -1 'True
|
|
|
LimitCheck = 0 'False
|
|
|
LimitMin = ""
|
|
|
LimitMax = ""
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
AddText = ""
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
UnitConversion = 0
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSVarIn vinMaxPriority
|
|
|
Height = 315
|
|
|
Left = 480
|
|
|
TabIndex = 10
|
|
|
Top = 1440
|
|
|
Width = 855
|
|
|
_cx = 1508
|
|
|
_cy = 556
|
|
|
VWItem = "__UNLINKED_UI2"
|
|
|
VWItemLimitMin = ""
|
|
|
VWItemLimitMax = ""
|
|
|
Blink = 0
|
|
|
UseItemConfig = 0 'False
|
|
|
BackStyle = 1
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 4
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483643
|
|
|
BackColorDisabled= -2147483633
|
|
|
ForeColor = -2147483640
|
|
|
Format = 0
|
|
|
DecPoint = 0
|
|
|
Enabled = -1 'True
|
|
|
LimitCheck = 0 'False
|
|
|
LimitMin = ""
|
|
|
LimitMax = ""
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
AddText = ""
|
|
|
IndexGroup = ""
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
UnitConversion = 0
|
|
|
FontClass = ""
|
|
|
RecipeMember = 0 'False
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSOptionButton optPriority
|
|
|
Height = 240
|
|
|
Index = 0
|
|
|
Left = 180
|
|
|
TabIndex = 11
|
|
|
Top = 300
|
|
|
Width = 1095
|
|
|
_cx = 1931
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Arial"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "optAll"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
OptionButtonHeight= 1
|
|
|
OptionGroup = 5
|
|
|
OptionMode = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Arial8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSOptionButton optPriority
|
|
|
Height = 240
|
|
|
Index = 1
|
|
|
Left = 180
|
|
|
TabIndex = 12
|
|
|
Top = 600
|
|
|
Width = 1095
|
|
|
_cx = 1931
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Arial"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "optFrom"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
OptionButtonHeight= 1
|
|
|
OptionGroup = 5
|
|
|
OptionMode = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Arial8"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex idxLabel
|
|
|
Height = 255
|
|
|
Index = 3
|
|
|
Left = 540
|
|
|
Top = 1200
|
|
|
Width = 375
|
|
|
_cx = 661
|
|
|
_cy = 450
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 1
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Arial"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483643
|
|
|
ForeColorOff = -2147483630
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = "Arial8"
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "optTo"
|
|
|
End
|
|
|
End
|
|
|
Begin VWSFrameLib.VWSFrame fraClasses
|
|
|
Height = 1875
|
|
|
Left = 6300
|
|
|
TabIndex = 13
|
|
|
Top = 240
|
|
|
Width = 1995
|
|
|
_ExtentX = 3519
|
|
|
_ExtentY = 3307
|
|
|
Caption = "fraClasses"
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 9
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
FontClass = "Tahoma9"
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Begin VWSTouchLib.VWSCheckBox chkClasses
|
|
|
Height = 240
|
|
|
Index = 0
|
|
|
Left = 180
|
|
|
TabIndex = 14
|
|
|
Tag = "Alarm"
|
|
|
Top = 300
|
|
|
Width = 1755
|
|
|
_cx = 3096
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Arial"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "Alarm"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
CheckBoxHeight = 1
|
|
|
IndexGroup = ""
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Arial8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSCheckBox chkClasses
|
|
|
Height = 240
|
|
|
Index = 1
|
|
|
Left = 180
|
|
|
TabIndex = 15
|
|
|
Tag = "SPSAlarm"
|
|
|
Top = 600
|
|
|
Width = 1755
|
|
|
_cx = 3096
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Arial"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "SPS-Alarm"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
CheckBoxHeight = 1
|
|
|
IndexGroup = ""
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Arial8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSCheckBox chkClasses
|
|
|
Height = 240
|
|
|
Index = 2
|
|
|
Left = 180
|
|
|
TabIndex = 36
|
|
|
Tag = "UserAlarm"
|
|
|
Top = 900
|
|
|
Width = 1755
|
|
|
_cx = 3096
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Arial"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "User-Alarm"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
CheckBoxHeight = 1
|
|
|
IndexGroup = ""
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Arial8"
|
|
|
End
|
|
|
End
|
|
|
Begin VWSFrameLib.VWSFrame fraGroups
|
|
|
Height = 1875
|
|
|
Left = 4200
|
|
|
TabIndex = 16
|
|
|
Top = 240
|
|
|
Width = 1995
|
|
|
_ExtentX = 3519
|
|
|
_ExtentY = 3307
|
|
|
Caption = "fraGroups"
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 9
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
FontClass = "Tahoma9"
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Begin VWSTouchLib.VWSCheckBox chkGroups
|
|
|
Height = 240
|
|
|
Index = 0
|
|
|
Left = 180
|
|
|
TabIndex = 17
|
|
|
Tag = "Gruppe1"
|
|
|
Top = 300
|
|
|
Width = 1755
|
|
|
_cx = 3096
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "Gruppe1"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
CheckBoxHeight = 1
|
|
|
IndexGroup = ""
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSCheckBox chkGroups
|
|
|
Height = 240
|
|
|
Index = 1
|
|
|
Left = 180
|
|
|
TabIndex = 18
|
|
|
Tag = "Gruppe2"
|
|
|
Top = 600
|
|
|
Width = 1755
|
|
|
_cx = 3096
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "Gruppe2"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
CheckBoxHeight = 1
|
|
|
IndexGroup = ""
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
End
|
|
|
Begin VWSFrameLib.VWSFrame fraDateTime
|
|
|
Height = 1875
|
|
|
Left = 120
|
|
|
TabIndex = 19
|
|
|
Top = 240
|
|
|
Width = 3975
|
|
|
_ExtentX = 7011
|
|
|
_ExtentY = 3307
|
|
|
Caption = "fraTime"
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 9
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
FontClass = "Tahoma9"
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Begin VWSDateTime.VWSDateTimeInput dtiFrom
|
|
|
Height = 315
|
|
|
Left = 960
|
|
|
TabIndex = 20
|
|
|
Top = 1260
|
|
|
Width = 1155
|
|
|
_ExtentX = 2037
|
|
|
_ExtentY = 556
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
ForeColor = -2147483640
|
|
|
ShowUpDown = 0 'False
|
|
|
TimeMode = 1
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSOptionButton optTimeFilter
|
|
|
Height = 240
|
|
|
Index = 1
|
|
|
Left = 180
|
|
|
TabIndex = 21
|
|
|
Top = 600
|
|
|
Width = 1650
|
|
|
_cx = 2910
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "optToday"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
OptionButtonHeight= 1
|
|
|
OptionGroup = 1
|
|
|
OptionMode = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSOptionButton optTimeFilter
|
|
|
Height = 240
|
|
|
Index = 2
|
|
|
Left = 2220
|
|
|
TabIndex = 22
|
|
|
Top = 600
|
|
|
Width = 1650
|
|
|
_cx = 2910
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "optYesterday"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
OptionButtonHeight= 1
|
|
|
OptionGroup = 1
|
|
|
OptionMode = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSOptionButton optTimeFilter
|
|
|
Height = 240
|
|
|
Index = 3
|
|
|
Left = 180
|
|
|
TabIndex = 23
|
|
|
Top = 900
|
|
|
Width = 1650
|
|
|
_cx = 2910
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "optThisWeek"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
OptionButtonHeight= 1
|
|
|
OptionGroup = 1
|
|
|
OptionMode = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSOptionButton optTimeFilter
|
|
|
Height = 240
|
|
|
Index = 4
|
|
|
Left = 2220
|
|
|
TabIndex = 24
|
|
|
Top = 900
|
|
|
Width = 1650
|
|
|
_cx = 2910
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "optLastWeek"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
OptionButtonHeight= 1
|
|
|
OptionGroup = 1
|
|
|
OptionMode = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSOptionButton optTimeFilter
|
|
|
Height = 240
|
|
|
Index = 5
|
|
|
Left = 180
|
|
|
TabIndex = 25
|
|
|
Top = 1290
|
|
|
Width = 975
|
|
|
_cx = 1720
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "optFrom"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
OptionButtonHeight= 1
|
|
|
OptionGroup = 1
|
|
|
OptionMode = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSDateTime.VWSDateTimeInput dtiTo
|
|
|
Height = 315
|
|
|
Left = 2640
|
|
|
TabIndex = 26
|
|
|
Top = 1260
|
|
|
Width = 1215
|
|
|
_ExtentX = 2143
|
|
|
_ExtentY = 556
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
ForeColor = -2147483640
|
|
|
ShowUpDown = 0 'False
|
|
|
TimeMode = 1
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSOptionButton optTimeFilter
|
|
|
Height = 240
|
|
|
Index = 0
|
|
|
Left = 180
|
|
|
TabIndex = 27
|
|
|
Top = 300
|
|
|
Width = 1650
|
|
|
_cx = 2910
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "optAll"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
OptionButtonHeight= 1
|
|
|
OptionGroup = 1
|
|
|
OptionMode = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex VWSIndex1
|
|
|
Height = 315
|
|
|
Left = 2220
|
|
|
Top = 1260
|
|
|
Width = 375
|
|
|
_cx = 661
|
|
|
_cy = 556
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483643
|
|
|
ForeColorOff = -2147483630
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = "Tahoma8"
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "optTo"
|
|
|
End
|
|
|
End
|
|
|
Begin VWSFrameLib.VWSFrame fraStates
|
|
|
Height = 1875
|
|
|
Left = 9960
|
|
|
TabIndex = 28
|
|
|
Top = 240
|
|
|
Width = 2715
|
|
|
_ExtentX = 4789
|
|
|
_ExtentY = 3307
|
|
|
Caption = "fraStates"
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 9
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
FontClass = "Tahoma9"
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Begin VWSTouchLib.VWSCheckBox chkStates
|
|
|
Height = 240
|
|
|
Index = 1
|
|
|
Left = 180
|
|
|
TabIndex = 29
|
|
|
Top = 300
|
|
|
Width = 2475
|
|
|
_cx = 4366
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "chkActivated"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
CheckBoxHeight = 1
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSCheckBox chkStates
|
|
|
Height = 240
|
|
|
Index = 2
|
|
|
Left = 180
|
|
|
TabIndex = 30
|
|
|
Top = 600
|
|
|
Width = 2475
|
|
|
_cx = 4366
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "chkDeactivated"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
CheckBoxHeight = 1
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSCheckBox chkStates
|
|
|
Height = 240
|
|
|
Index = 3
|
|
|
Left = 180
|
|
|
TabIndex = 31
|
|
|
Top = 900
|
|
|
Width = 2475
|
|
|
_cx = 4366
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "chkActiveAck"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
CheckBoxHeight = 1
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSCheckBox chkStates
|
|
|
Height = 240
|
|
|
Index = 4
|
|
|
Left = 180
|
|
|
TabIndex = 32
|
|
|
Top = 1200
|
|
|
Width = 2475
|
|
|
_cx = 4366
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "chkAckDeactivated"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
CheckBoxHeight = 1
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
Begin VWSTouchLib.VWSCheckBox chkStates
|
|
|
Height = 240
|
|
|
Index = 5
|
|
|
Left = 180
|
|
|
TabIndex = 33
|
|
|
Top = 1500
|
|
|
Width = 2475
|
|
|
_cx = 4366
|
|
|
_cy = 423
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
Enabled = -1 'True
|
|
|
BitNumber = 0
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
FocusRect = -1 'True
|
|
|
EditState = 0
|
|
|
FocusNext = -1 'True
|
|
|
RestoreOnLostFocus= -1 'True
|
|
|
WriteOnReturn = -1 'True
|
|
|
EditControl = 0 'False
|
|
|
EatsCursorKeys = 0 'False
|
|
|
VWItem = "__UNLINKED_BOOL"
|
|
|
Blink = 0
|
|
|
Key = 0
|
|
|
Caption = "chkResetted"
|
|
|
Alignment = 0
|
|
|
UseMnemonic = 0 'False
|
|
|
CheckBoxHeight = 1
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
Authorization = ""
|
|
|
AuthorizationMode= 0
|
|
|
FontClass = "Tahoma8"
|
|
|
End
|
|
|
End
|
|
|
Begin VisiWinStudioLib.VWSKey keyDisplay
|
|
|
Height = 495
|
|
|
Left = 12780
|
|
|
TabIndex = 34
|
|
|
Top = 300
|
|
|
Width = 1395
|
|
|
_cx = 2461
|
|
|
_cy = 873
|
|
|
VWItem = ""
|
|
|
VWItemMonitor = ""
|
|
|
Blink = 0
|
|
|
BitMonitor = 0
|
|
|
CaptionMonitorOn= ""
|
|
|
PictureMonitorOn= "FAlarmHistory.frx":00EC
|
|
|
ForeColorMonitorOn= -2147483630
|
|
|
BackColorMonitorOn= -2147483633
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
AuthorizationMode= 0
|
|
|
Authorization = ""
|
|
|
FontClass = "Tahoma8"
|
|
|
RecipeMember = 0 'False
|
|
|
SetMode = 0
|
|
|
BitNumber = 0
|
|
|
Enabled = -1 'True
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColor = -2147483633
|
|
|
ForeColor = -2147483630
|
|
|
BorderColor2D = -2147483630
|
|
|
BackStyle = 1
|
|
|
ButtonStyle = 1
|
|
|
Alignment = 7
|
|
|
FocusRect = -1 'True
|
|
|
Picture = "FAlarmHistory.frx":0108
|
|
|
PictureDown = "FAlarmHistory.frx":0124
|
|
|
PictureDisabled = "FAlarmHistory.frx":0140
|
|
|
PictureAlign = 7
|
|
|
AutoSize = -1 'True
|
|
|
EatsCursorKeys = 0 'False
|
|
|
GlobalHotKey = 0 'False
|
|
|
FocusOnClick = -1 'True
|
|
|
EventOnKeyRepeat= 0 'False
|
|
|
Caption = "keyDetermine"
|
|
|
UseMnemonic = 0 'False
|
|
|
Key = 0
|
|
|
DownWhenDisabled= 0 'False
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex idxCount
|
|
|
Height = 315
|
|
|
Left = 12780
|
|
|
Top = 1800
|
|
|
Width = 2295
|
|
|
_cx = 4048
|
|
|
_cy = 556
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 4
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483643
|
|
|
ForeColorOff = -2147483630
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = ""
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = "Tahoma8"
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "0"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex idxStatus
|
|
|
Height = 315
|
|
|
Left = 12780
|
|
|
Top = 1140
|
|
|
Width = 2295
|
|
|
_cx = 4048
|
|
|
_cy = 556
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 4
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483643
|
|
|
ForeColorOff = -2147483630
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = "__UNLINKED_I2"
|
|
|
Blink = 0
|
|
|
IndexGroup = "FAlarmHistory.State"
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = 1
|
|
|
Offset = 0
|
|
|
Range = 3
|
|
|
FontClass = "Tahoma8"
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = ""
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex idxLabel
|
|
|
Height = 255
|
|
|
Index = 0
|
|
|
Left = 12840
|
|
|
Top = 1530
|
|
|
Width = 2235
|
|
|
_cx = 3942
|
|
|
_cy = 450
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 1
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483643
|
|
|
ForeColorOff = -2147483630
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = "Tahoma8"
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "idxCount"
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex idxLabel
|
|
|
Height = 255
|
|
|
Index = 1
|
|
|
Left = 12840
|
|
|
Top = 870
|
|
|
Width = 2235
|
|
|
_cx = 3942
|
|
|
_cy = 450
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 1
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483643
|
|
|
ForeColorOff = -2147483630
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = "FAlarmHistory.Filter"
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = "Tahoma8"
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "idxState"
|
|
|
End
|
|
|
End
|
|
|
Begin MSComctlLib.ListView lvwHistoricalAlarms
|
|
|
Height = 4875
|
|
|
Left = 60
|
|
|
TabIndex = 35
|
|
|
Top = 4020
|
|
|
Width = 15195
|
|
|
_ExtentX = 26802
|
|
|
_ExtentY = 8599
|
|
|
View = 3
|
|
|
LabelEdit = 1
|
|
|
LabelWrap = 0 'False
|
|
|
HideSelection = 0 'False
|
|
|
FullRowSelect = -1 'True
|
|
|
GridLines = -1 'True
|
|
|
_Version = 393217
|
|
|
ForeColor = -2147483640
|
|
|
BackColor = -2147483643
|
|
|
Appearance = 1
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Tahoma"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
NumItems = 8
|
|
|
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
Object.Tag = "TimeIn"
|
|
|
Text = "Gekommen"
|
|
|
Object.Width = 3598
|
|
|
EndProperty
|
|
|
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
SubItemIndex = 1
|
|
|
Object.Tag = "TimePLCAck"
|
|
|
Text = "Gegangen"
|
|
|
Object.Width = 3598
|
|
|
EndProperty
|
|
|
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
SubItemIndex = 2
|
|
|
Object.Tag = "Group"
|
|
|
Text = "Gruppe"
|
|
|
Object.Width = 3528
|
|
|
EndProperty
|
|
|
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
SubItemIndex = 3
|
|
|
Object.Tag = "State"
|
|
|
Text = "Status"
|
|
|
Object.Width = 1764
|
|
|
EndProperty
|
|
|
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
SubItemIndex = 4
|
|
|
Object.Tag = "Priority"
|
|
|
Text = "Priorit<69>t"
|
|
|
Object.Width = 1411
|
|
|
EndProperty
|
|
|
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
SubItemIndex = 5
|
|
|
Object.Tag = "Class"
|
|
|
Text = "Klasse"
|
|
|
Object.Width = 1764
|
|
|
EndProperty
|
|
|
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
SubItemIndex = 6
|
|
|
Object.Tag = "Text"
|
|
|
Text = "Text"
|
|
|
Object.Width = 7056
|
|
|
EndProperty
|
|
|
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
|
|
|
SubItemIndex = 7
|
|
|
Object.Tag = "Notes"
|
|
|
Text = "Notizen"
|
|
|
Object.Width = 1411
|
|
|
EndProperty
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSLangSelect VWSLangSelect1
|
|
|
Left = 0
|
|
|
Top = 840
|
|
|
_cx = 794
|
|
|
_cy = 794
|
|
|
End
|
|
|
Begin VWSLanguageLib.VWSIndex idxWhatToDo
|
|
|
Height = 495
|
|
|
Left = 0
|
|
|
Top = 1080
|
|
|
Width = 15360
|
|
|
_cx = 27093
|
|
|
_cy = 873
|
|
|
BackStyle = 1
|
|
|
Enabled = -1 'True
|
|
|
Alignment = 7
|
|
|
ShadowColor1 = -2147483632
|
|
|
ShadowColor2 = -2147483634
|
|
|
ShadowDepth = 2
|
|
|
ShadowStyle = 0
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
BackColorOff = -2147483633
|
|
|
BackColorOn = -2147483643
|
|
|
ForeColorOff = -2147483630
|
|
|
ForeColorOn = -2147483640
|
|
|
TextRotation = 0
|
|
|
AuthorizationMode= 1
|
|
|
Authorization = ""
|
|
|
VWItem = ""
|
|
|
Blink = 0
|
|
|
IndexGroup = "FAlarmHistory"
|
|
|
IndexPrefix = ""
|
|
|
BitNumber = 0
|
|
|
Mode = -1
|
|
|
Offset = 0
|
|
|
Range = 1
|
|
|
FontClass = ""
|
|
|
OffsetText = 0
|
|
|
TextOn = ""
|
|
|
TextOff = "idxWhatToDo"
|
|
|
End
|
|
|
End
|
|
|
Attribute VB_Name = "FAlarmHistory"
|
|
|
Attribute VB_GlobalNameSpace = False
|
|
|
Attribute VB_Creatable = False
|
|
|
Attribute VB_PredeclaredId = True
|
|
|
Attribute VB_Exposed = False
|
|
|
Option Explicit
|
|
|
|
|
|
'Anmerkung: <<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
|
|
' Dieses Formular kann als Vorlage in ein Projekt eingef<65>gt werden:
|
|
|
' Kontextmen<65> des Knotens "Formulare" aufrufen, Men<65> "Hinzuf<75>gen Formular" w<>hlen,
|
|
|
' Kartei "VisiWinStudio-Vorlagen", Verzeichnis "Formulare\Meldesystem",
|
|
|
' Datei "FVWAlarmHistory" ausw<73>hlen.
|
|
|
|
|
|
|
|
|
|
|
|
'Objekt f<>r den Zugriff auf historische Alarme
|
|
|
Private WithEvents mVWSHistoricalAlarms As VWCOMMONLib.VWSHistoricalAlarms
|
|
|
Attribute mVWSHistoricalAlarms.VB_VarHelpID = -1
|
|
|
|
|
|
'Objekt f<>r die sprachumgeschaltete Darstellung von Zeit/Datum
|
|
|
Private mVWSTimeFormat As VWCOMMONLib.VWSTimeFormat
|
|
|
|
|
|
Private mVWSHistoricalAlarmNotes As VWCOMMONLib.VWSHistoricalAlarmNotes
|
|
|
|
|
|
|
|
|
Private Sub Form_Load()
|
|
|
'Instanz erzeugen
|
|
|
Set mVWSHistoricalAlarms = New VWCOMMONLib.VWSHistoricalAlarms
|
|
|
Set mVWSHistoricalAlarmNotes = New VWCOMMONLib.VWSHistoricalAlarmNotes
|
|
|
|
|
|
Set mVWSTimeFormat = New VWCOMMONLib.VWSTimeFormat
|
|
|
'gew<65>nschtes Format einstellen
|
|
|
mVWSTimeFormat.FormatDate = "@LongDate"
|
|
|
mVWSTimeFormat.FormatTime = "@LongTime"
|
|
|
|
|
|
optTimeFilter(0).State = 1 'Zeitfilter "Alles" wird angew<65>hlt
|
|
|
chkGroups(0).State = 1 'Alle Gruppen anw<6E>hlen
|
|
|
chkGroups(1).State = 1
|
|
|
chkClasses(0).State = 1 'Alle Klassen anw<6E>hlen
|
|
|
chkClasses(1).State = 1
|
|
|
optPriority(0).State = 1 'Priorit<69>tsfilter "Alles" wird angew<65>hlt
|
|
|
chkStates(1).State = 1 'Alle Status anw<6E>hlen
|
|
|
chkStates(2).State = 1
|
|
|
chkStates(3).State = 1
|
|
|
chkStates(4).State = 1
|
|
|
chkStates(5).State = 1
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Form_Unload(Cancel As Integer)
|
|
|
'Instanz l<>schen
|
|
|
Set mVWSHistoricalAlarms = Nothing
|
|
|
Set mVWSHistoricalAlarmNotes = Nothing
|
|
|
Set mVWSTimeFormat = Nothing
|
|
|
End Sub
|
|
|
|
|
|
Private Sub VWSLangSelect1_LanguageChange(ByVal Language As Long)
|
|
|
Dim chk As VWSCheckBox
|
|
|
Dim VWSAlarmGroup As New VWCOMMONLib.VWSAlarmGroup
|
|
|
Dim chd As MSComctlLib.ColumnHeader
|
|
|
|
|
|
'sprachabh<62>ngige Namen der Gruppen anzeigen
|
|
|
For Each chk In chkGroups
|
|
|
VWSAlarmGroup.GroupName = chk.Tag
|
|
|
chk.Caption = VWSAlarmGroup.DisplayName
|
|
|
Next chk
|
|
|
|
|
|
'sprachabh<62>ngige Spalten<65>berschriften ermitteln
|
|
|
For Each chd In lvwHistoricalAlarms.ColumnHeaders
|
|
|
chd.Text = VWSLangSelect1.GetText("FAlarmHistory.Columns." & chd.Tag)
|
|
|
Next chd
|
|
|
Set lvwHistoricalAlarms.Font = VWSLangSelect1.GetFont("Tahoma8")
|
|
|
|
|
|
'sprachabh<62>ngige Spalten<65>berschriften ermitteln
|
|
|
For Each chd In lvwNotes.ColumnHeaders
|
|
|
chd.Text = VWSLangSelect1.GetText("FAlarmHistory.Notes." & chd.Tag)
|
|
|
Next chd
|
|
|
Set lvwNotes.Font = VWSLangSelect1.GetFont("Tahoma8")
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub keyDisplay_Click()
|
|
|
Dim VWSAlarmItem As VWCOMMONLib.VWSAlarmItem
|
|
|
Dim VWSAlarmFilter As VWCOMMONLib.VWSAlarmFilter
|
|
|
Dim chk As VWSCheckBox
|
|
|
|
|
|
keyDisplay.Enabled = False
|
|
|
keyAddNote.Enabled = False
|
|
|
idxStatus.State = 1 'Status "Ermittle ..." anzeigen
|
|
|
|
|
|
'Filter f<>r die Abfrage erzeugen
|
|
|
Set VWSAlarmFilter = New VWCOMMONLib.VWSAlarmFilter
|
|
|
|
|
|
VWSAlarmFilter.Historical = True
|
|
|
|
|
|
'Filter abfragen
|
|
|
|
|
|
'Filter f<>r Datumseinstellungen
|
|
|
Select Case True
|
|
|
Case optTimeFilter(0).State 'Alles
|
|
|
'...
|
|
|
Case optTimeFilter(1).State 'heute
|
|
|
VWSAlarmFilter.MinTime = Date
|
|
|
VWSAlarmFilter.MaxTime = DateAdd("s", -1, DateAdd("d", 1, Date))
|
|
|
Case optTimeFilter(2).State 'gestern
|
|
|
VWSAlarmFilter.MinTime = DateAdd("d", -1, Date)
|
|
|
VWSAlarmFilter.MaxTime = DateAdd("s", -1, Date)
|
|
|
Case optTimeFilter(3).State 'diese Woche
|
|
|
VWSAlarmFilter.MinTime = DateAdd("d", -Weekday(Now, vbUseSystemDayOfWeek) + 1, Date)
|
|
|
VWSAlarmFilter.MaxTime = DateAdd("s", -1, DateAdd("d", 1, Date))
|
|
|
Case optTimeFilter(4).State 'letzte Woche
|
|
|
VWSAlarmFilter.MinTime = DateAdd("d", -Weekday(Now, vbUseSystemDayOfWeek) + 1 - 7, Date)
|
|
|
VWSAlarmFilter.MaxTime = DateAdd("s", -1, DateAdd("d", -Weekday(Now, vbUseSystemDayOfWeek) + 1, Date))
|
|
|
Case optTimeFilter(5).State 'von bis
|
|
|
VWSAlarmFilter.MinTime = dtiFrom.Value
|
|
|
VWSAlarmFilter.MaxTime = dtiTo.Value
|
|
|
End Select
|
|
|
|
|
|
'Gruppenfilter
|
|
|
'Voraussetzung: in der Tag-Eigenschaft der CheckBoxen muss der
|
|
|
'Gruppenname stehen (Parameter "Name" der Gruppendefinition)
|
|
|
VWSAlarmFilter.GroupFilter = ""
|
|
|
For Each chk In chkGroups
|
|
|
If chk.State Then
|
|
|
VWSAlarmFilter.GroupFilter = VWSAlarmFilter.GroupFilter & chk.Tag & ";"
|
|
|
End If
|
|
|
Next chk
|
|
|
|
|
|
'Klassenfilter
|
|
|
'Voraussetzung: in der Tag-Eigenschaft der CheckBoxen muss der
|
|
|
'Klassenname stehen (Parameter "Name" der Klassendefinition)
|
|
|
VWSAlarmFilter.ClassFilter = ""
|
|
|
For Each chk In chkClasses
|
|
|
If chk.State Then
|
|
|
VWSAlarmFilter.ClassFilter = VWSAlarmFilter.ClassFilter & chk.Tag & ";"
|
|
|
End If
|
|
|
Next chk
|
|
|
|
|
|
'Priorit<69>tsfilter
|
|
|
Select Case True
|
|
|
Case optPriority(0).State 'Alles
|
|
|
VWSAlarmFilter.MinPriority = -1
|
|
|
VWSAlarmFilter.MaxPriority = -1
|
|
|
Case optPriority(1).State 'von ... bis ...
|
|
|
VWSAlarmFilter.MinPriority = vinMinPriority.Value
|
|
|
VWSAlarmFilter.MaxPriority = vinMaxPriority.Value
|
|
|
End Select
|
|
|
|
|
|
'Statusfilter
|
|
|
VWSAlarmFilter.States = 0 'keine Auswahl == Alle Zust<73>nde
|
|
|
If chkStates(1).State Then
|
|
|
VWSAlarmFilter.States = VWSAlarmFilter.States + 1 'Bit 0 == gekommen
|
|
|
End If
|
|
|
If chkStates(2).State Then
|
|
|
VWSAlarmFilter.States = VWSAlarmFilter.States + 4 'Bit 2 == gegangen
|
|
|
End If
|
|
|
If chkStates(3).State Then
|
|
|
VWSAlarmFilter.States = VWSAlarmFilter.States + 2 'Bit 1 == gekommen quittiert
|
|
|
End If
|
|
|
If chkStates(4).State Then
|
|
|
VWSAlarmFilter.States = VWSAlarmFilter.States + 8 'Bit 3 == quittiert gegangen
|
|
|
End If
|
|
|
If chkStates(5).State Then
|
|
|
VWSAlarmFilter.States = VWSAlarmFilter.States + 16 'Bit 4 == gel<65>scht
|
|
|
End If
|
|
|
|
|
|
'Asynchrone Abfrage mit der Filtereinstellung starten
|
|
|
'(Es wird nicht auf das Ergebnis gewartet)
|
|
|
mVWSHistoricalAlarms.GetHistoricalAlarms VWSAlarmFilter, True
|
|
|
'Ist das Ergebnis verf<72>gbar, wird das
|
|
|
'mVWSHistoricalAlarms_AsyncAlarmRequestFinished-Ereignis ausgel<65>st.
|
|
|
'(siehe unten)
|
|
|
End Sub
|
|
|
|
|
|
Private Sub mVWSHistoricalAlarms_AsyncAlarmRequestFinished(ByVal Success As Boolean)
|
|
|
'Die Anfrage nach historischen Alarmen wurde abgeschlossen.
|
|
|
'Das Ergebnis kann jetzt angezeigt werden.
|
|
|
|
|
|
Dim VWSAlarmItem As VWCOMMONLib.VWSAlarmItem
|
|
|
Dim vHistoricalID As Variant, vHasNotes As Variant, vFileName As Variant, vNotes As Variant
|
|
|
Dim l As Long
|
|
|
Dim itm As MSComctlLib.ListItem
|
|
|
|
|
|
lvwHistoricalAlarms.ListItems.Clear 'Liste l<>schen
|
|
|
|
|
|
If Success Then
|
|
|
idxCount.TextOff = mVWSHistoricalAlarms.AlarmsInEnum 'Anzahl
|
|
|
idxStatus.State = 2 'Status "OK" anzeigen
|
|
|
|
|
|
'Daten in die Liste eintragen
|
|
|
For l = 1 To mVWSHistoricalAlarms.AlarmsInEnum
|
|
|
'eine historische Meldung mit Parametern holen
|
|
|
'vFileName, vHistoricalID, vHasNotes sind R<>ckgabeparameter
|
|
|
Set VWSAlarmItem = mVWSHistoricalAlarms.GetNext(vFileName, vHistoricalID, vHasNotes)
|
|
|
'und Datensatz in die Liste eintragen
|
|
|
Set itm = lvwHistoricalAlarms.ListItems.Add(, , mVWSTimeFormat.GetDateTimeString(VWSAlarmItem.ActivationTime))
|
|
|
If VWSAlarmItem.DeactivationTime Then
|
|
|
itm.SubItems(1) = mVWSTimeFormat.GetDateTimeString(VWSAlarmItem.DeactivationTime)
|
|
|
End If
|
|
|
itm.SubItems(2) = VWSAlarmItem.GroupName
|
|
|
itm.SubItems(3) = VWSAlarmItem.AlarmStatus & " " & VWSAlarmItem.StatusText
|
|
|
itm.SubItems(4) = VWSAlarmItem.Priority
|
|
|
itm.SubItems(5) = VWSAlarmItem.ClassID
|
|
|
itm.SubItems(6) = VWSAlarmItem.AlarmText
|
|
|
|
|
|
If vHasNotes Then
|
|
|
itm.SubItems(7) = mVWSHistoricalAlarmNotes.GetAlarmNotes(vFileName, vHistoricalID, vNotes)
|
|
|
End If
|
|
|
'zu jedem Eintrag wird vFileName und vHistoricalID gespeichert
|
|
|
'(notwendig f<>r die Ermittlung der Notizen)
|
|
|
itm.Tag = vFileName & vbNullChar & vHistoricalID
|
|
|
Next l
|
|
|
Else
|
|
|
idxCount.TextOff = "0"
|
|
|
idxStatus.State = 3 'Status "Keine Eintr<74>ge" anzeigen
|
|
|
End If
|
|
|
|
|
|
mVWSHistoricalAlarms.ResetEnum 'internen Speicher freigeben
|
|
|
keyDisplay.Enabled = True
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
Private Sub lvwHistoricalAlarms_ItemClick(ByVal Item As MSComctlLib.ListItem)
|
|
|
'Eine Zeile der historischen Meldungen wurde angeklickt.
|
|
|
|
|
|
Dim astr() As String, l As Long
|
|
|
Dim vNotes, vTimeStamps, vUsers, vNoteIDs
|
|
|
Dim itm As MSComctlLib.ListItem
|
|
|
|
|
|
lvwNotes.ListItems.Clear 'Liste der Notizen l<>schen
|
|
|
keyAddNote.Enabled = True
|
|
|
keyDeleteNote.Enabled = False
|
|
|
|
|
|
'Die gespeicherten Parameter vFileName und vHistoricalID aus dem Eintrag ermitteln
|
|
|
astr = Split(Item.Tag, vbNullChar)
|
|
|
'und damit die zugeh<65>rigen Notizen mit Parametern erfragen
|
|
|
l = mVWSHistoricalAlarmNotes.GetAlarmNotes(astr(0), astr(1), vNotes, vTimeStamps, vUsers, vNoteIDs)
|
|
|
If l Then
|
|
|
'Wenn Notizen vorhanden sind, diese in die Liste eintragen
|
|
|
For l = 0 To UBound(vNotes)
|
|
|
Set itm = lvwNotes.ListItems.Add(, , vTimeStamps(l))
|
|
|
itm.SubItems(1) = vUsers(l)
|
|
|
itm.SubItems(2) = vNotes(l)
|
|
|
'zu jedem Eintrag wird astr(0)=vFileName und vNoteID gespeichert
|
|
|
'(notwendig f<>r die Bearbeitung der Notizen)
|
|
|
itm.Tag = astr(0) & vbNullChar & vNoteIDs(l)
|
|
|
Next l
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub lvwNotes_ItemClick(ByVal Item As MSComctlLib.ListItem)
|
|
|
keyDeleteNote.Enabled = True
|
|
|
End Sub
|
|
|
|
|
|
Private Sub keyAddNote_Click()
|
|
|
Dim astr() As String
|
|
|
|
|
|
If Not lvwHistoricalAlarms.SelectedItem Is Nothing Then
|
|
|
astr = Split(lvwHistoricalAlarms.SelectedItem.Tag, vbNullChar)
|
|
|
mVWSHistoricalAlarmNotes.AddAlarmNote astr(0), astr(1), Now, txtNote.Text
|
|
|
lvwHistoricalAlarms_ItemClick lvwHistoricalAlarms.SelectedItem 'Alle Notizen nochmal anzeigen
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
Private Sub keyDeleteNote_Click()
|
|
|
Dim astr() As String
|
|
|
|
|
|
If Not lvwNotes.SelectedItem Is Nothing Then
|
|
|
astr = Split(lvwNotes.SelectedItem.Tag, vbNullChar)
|
|
|
mVWSHistoricalAlarmNotes.RemoveAlarmNote astr(0), astr(1)
|
|
|
lvwNotes.ListItems.Remove lvwNotes.SelectedItem.Index
|
|
|
keyDeleteNote.Enabled = False
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub vinMaxPriority_AfterWriteValue(PreviousValue As Variant, NewValue As Variant)
|
|
|
optPriority(1).State = True
|
|
|
End Sub
|
|
|
|
|
|
Private Sub vinMinPriority_AfterWriteValue(PreviousValue As Variant, NewValue As Variant)
|
|
|
optPriority(1).State = True
|
|
|
End Sub
|
|
|
|