First create solution
This commit is contained in:
@@ -0,0 +1,58 @@
|
||||
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 MySceduleFileData
|
||||
Inherits BaseObject
|
||||
Private _MySchedule As MySchedule
|
||||
Private _DocumentType As String
|
||||
Private _DocumentFileData As DocumentFileData
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
<Association("MySchedule-MyScheduleFileData", GetType(MySchedule))> _
|
||||
Property MyScedule As MySchedule
|
||||
Get
|
||||
Return _MySchedule
|
||||
End Get
|
||||
Set(value As MySchedule)
|
||||
SetPropertyValue("MySchedule", _MySchedule, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DocumentType As String
|
||||
Get
|
||||
Return _DocumentType
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentType", _DocumentType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DocumentFileData As DocumentFileData
|
||||
Get
|
||||
Return _DocumentFileData
|
||||
End Get
|
||||
Set(value As DocumentFileData)
|
||||
SetPropertyValue("DocumentFileData", _DocumentFileData, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,97 @@
|
||||
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("ToDo")> _
|
||||
Public Class MyTasks
|
||||
Inherits Task
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
End Class
|
||||
Public Enum eEventType
|
||||
eMeeting = 0 'Találkozás
|
||||
ePhoneConversation = 1 'Telefonbeszélgetés
|
||||
eEmailOut = 2 'Kimenő email
|
||||
eEMailIn = 3 'Bejövő email
|
||||
eAlert = 4 'Figyelmeztetési aktivitás
|
||||
eBusinessDirectory = 5 'Dokumentumtárhely kezelés
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("ToDo")> _
|
||||
Public Class MySchedule
|
||||
Inherits [Event]
|
||||
Private _HRPerson As HRPerson
|
||||
Private _EventType As eEventType = eEventType.eMeeting
|
||||
Private _Email_Oid As String 'Objektum string az emailek megkereséséhez
|
||||
Private _ObjectCreated As Date 'Létrehozva
|
||||
Private _UserCreated As User 'Létrehozó
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
Property EventType As eEventType
|
||||
Get
|
||||
Return _EventType
|
||||
End Get
|
||||
Set(value As eEventType)
|
||||
SetPropertyValue("EventType", _EventType, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)> _
|
||||
Property Email_Oid As String
|
||||
Get
|
||||
Return _Email_Oid
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Email_Oid", _Email_Oid, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("MySchedule-MyScheduleFileData", GetType(MySceduleFileData))> _
|
||||
ReadOnly Property MySceduleFileData As XPCollection(Of MySceduleFileData)
|
||||
Get
|
||||
Return GetCollection(Of MySceduleFileData)("MySceduleFileData")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,32 @@
|
||||
Partial Class MySchedule_VC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,33 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
|
||||
Public Class MySchedule_VC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "MySchedule_ListView" Then
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "MySchedule_ListView" Then
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user