79 lines
2.2 KiB
VB.net
79 lines
2.2 KiB
VB.net
Imports System
|
|
Imports System.ComponentModel
|
|
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.Data.Filtering
|
|
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.Persistent.Base
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
Imports DevExpress.Persistent.Validation
|
|
|
|
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
|
Public Class AlertPeriodWeekly
|
|
Inherits BaseObject
|
|
|
|
Private _AlertPeriod As AlertPeriod
|
|
Private _DayOfWeek As eDayOfWeek
|
|
Private _AlertTime As DateTime
|
|
Private _AlertHoure As Long
|
|
Private _AlertMinute As Long
|
|
|
|
Public Sub New(ByVal session As Session)
|
|
MyBase.New(session)
|
|
End Sub
|
|
Public Overrides Sub AfterConstruction()
|
|
MyBase.AfterConstruction()
|
|
End Sub
|
|
|
|
<Association("AlertPeriod-AlertPeriodWeekly", GetType(AlertPeriod))> _
|
|
Property AlertPeriod As AlertPeriod
|
|
Get
|
|
Return _AlertPeriod
|
|
End Get
|
|
Set(value As AlertPeriod)
|
|
SetPropertyValue("AlertPeriod", _AlertPeriod, value)
|
|
End Set
|
|
End Property
|
|
Property DayOfWeek As eDayOfWeek
|
|
Get
|
|
Return _DayOfWeek
|
|
End Get
|
|
Set(value As eDayOfWeek)
|
|
SetPropertyValue("DayOfWeek", _DayOfWeek, value)
|
|
End Set
|
|
End Property
|
|
Property AlertTime As DateTime
|
|
Get
|
|
Return _AlertTime
|
|
End Get
|
|
Set(value As DateTime)
|
|
SetPropertyValue("AlertTime", _AlertTime, value)
|
|
End Set
|
|
End Property
|
|
<RuleRange("AlertPeriodWeekly.AlertHoure", DefaultContexts.Save, 0, 23)> _
|
|
Property AlertHoure As Long
|
|
Get
|
|
Return _AlertHoure
|
|
End Get
|
|
Set(value As Long)
|
|
SetPropertyValue("AlertHoure", _AlertHoure, value)
|
|
End Set
|
|
End Property
|
|
<RuleRange("AlertPeriodWeekly.AlertMinute", DefaultContexts.Save, 0, 59)> _
|
|
Property AlertMinute As Long
|
|
Get
|
|
Return _AlertMinute
|
|
End Get
|
|
Set(value As Long)
|
|
SetPropertyValue("AlertMinute", _AlertMinute, value)
|
|
End Set
|
|
End Property
|
|
ReadOnly Property DisplayName As String
|
|
Get
|
|
Return String.Format("{0} napon, {1} óra {2} perckor", DayOfWeek, AlertHoure, AlertMinute)
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|