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ä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ügt werden: ' Kontextmenü des Knotens "Formulare" aufrufen, Menü "Hinzufügen Formular" wählen, ' Kartei "VisiWinStudio-Vorlagen", Verzeichnis "Formulare\Meldesystem", ' Datei "FVWAlarmHistory" auswä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ünschtes Format einstellen mVWSTimeFormat.FormatDate = "@LongDate" mVWSTimeFormat.FormatTime = "@LongTime" optTimeFilter(0).State = 1 'Zeitfilter "Alles" wird angewählt chkGroups(0).State = 1 'Alle Gruppen anwählen chkGroups(1).State = 1 chkClasses(0).State = 1 'Alle Klassen anwählen chkClasses(1).State = 1 optPriority(0).State = 1 'Prioritätsfilter "Alles" wird angewählt chkStates(1).State = 1 'Alle Status anwä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ängige Namen der Gruppen anzeigen For Each chk In chkGroups VWSAlarmGroup.GroupName = chk.Tag chk.Caption = VWSAlarmGroup.DisplayName Next chk 'sprachabhängige Spaltenü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ängige Spaltenü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ä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ä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öscht End If 'Asynchrone Abfrage mit der Filtereinstellung starten '(Es wird nicht auf das Ergebnis gewartet) mVWSHistoricalAlarms.GetHistoricalAlarms VWSAlarmFilter, True 'Ist das Ergebnis verfügbar, wird das 'mVWSHistoricalAlarms_AsyncAlarmRequestFinished-Ereignis ausgelö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ä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ö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