First create solution
This commit is contained in:
+212
@@ -0,0 +1,212 @@
|
||||
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
|
||||
Imports System.Xml
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.CloneObject
|
||||
|
||||
Public Class BusinessDirectory_VC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "Role_ListView_BusinessDirectory" Then
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Role_ListView_BusinessDirectory" Then
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aBusinessDirectory_OppenDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OppenDocument.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
|
||||
ProcessDocument(_BusinessDirectory.FileData)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub ProcessDocument(_DocumentFile As DevExpress.Persistent.BaseImpl.FileData)
|
||||
Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _DocumentFile.FileName)
|
||||
Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create)
|
||||
_DocumentFile.SaveToStream(_Stream)
|
||||
_Stream.Close()
|
||||
If IO.Path.GetExtension(_FilePath).Replace(".", "").ToUpper = "XML" Then
|
||||
|
||||
'Dim _Arguments As String
|
||||
'Select Case GLOBAL_SQLType
|
||||
' Case eSQLType.MSSQL
|
||||
' _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " MSSQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer
|
||||
' Case eSQLType.MySQL
|
||||
' _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " MySQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer
|
||||
' Case eSQLType.PostgreSQL
|
||||
' _Arguments = """" & _FilePath + """ " + GLOBAL_SQLUser + " " + GLOBAL_SQLPassword + " PostgreSQL " + GLOBAL_SQLDatabase + " " + GLOBAL_SQLServer
|
||||
'End Select
|
||||
|
||||
'Process.Start(GLOBAL_ApplicationStartupPath + "DashBoardViewer.exe", _Arguments)
|
||||
Else
|
||||
|
||||
Process.Start(_FilePath)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aBusinessDirectory_OpenDashboardWithViewer_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OpenDashboardWithViewer.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
|
||||
|
||||
Dim _Dashboard As New Dashboard(_onew.Session)
|
||||
With _Dashboard
|
||||
.DashboardViewMode = DashboardViewMode.Viewer
|
||||
.UserName = _BusinessDirectory.DashBoard_UserName
|
||||
.Password = _BusinessDirectory.DashBoard_Password
|
||||
.SQLServer = _BusinessDirectory.DashBoard_Server
|
||||
.Database = _BusinessDirectory.DashBoard_Database
|
||||
.XMLFileData = _onew.GetObject(_BusinessDirectory.FileData)
|
||||
.SQLType = _BusinessDirectory.SQLType
|
||||
|
||||
End With
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Viewer", True, _Dashboard)
|
||||
End Sub
|
||||
Private Sub aBusinessDirectory_OpenDashboardWithDesigner_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_OpenDashboardWithDesigner.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _BusinessDirectory As BusinessDirectory = TryCast(View.SelectedObjects(0), BusinessDirectory)
|
||||
|
||||
Dim _Dashboard As New Dashboard(_onew.Session)
|
||||
With _Dashboard
|
||||
.DashboardViewMode = DashboardViewMode.Designer
|
||||
.UserName = _BusinessDirectory.DashBoard_UserName
|
||||
.Password = _BusinessDirectory.DashBoard_Password
|
||||
.SQLServer = _BusinessDirectory.DashBoard_Server
|
||||
.Database = _BusinessDirectory.DashBoard_Database
|
||||
.XMLFileData = _onew.GetObject(_BusinessDirectory.FileData)
|
||||
.SQLType = _BusinessDirectory.SQLType
|
||||
.Object_Oid = _BusinessDirectory.Oid.ToString
|
||||
.Object_Type = GetType(BusinessDirectory)
|
||||
End With
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Designer", True, _Dashboard)
|
||||
|
||||
End Sub
|
||||
Private Sub aBusinessDirectory_SetRoleDisabled_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aBusinessDirectory_SetRoleDisabled.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Role_Collection As New CollectionSource(_onew, GetType(Role))
|
||||
|
||||
e.View = Application.CreateListView("Role_ListView_BusinessDirectory", _Role_Collection, True)
|
||||
End Sub
|
||||
Private Sub aBusinessDirectory_SetRoleDisabled_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aBusinessDirectory_SetRoleDisabled.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
For Each _Role As Role In e.PopupWindow.View.SelectedObjects
|
||||
For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects
|
||||
Dim _BusinessDirectory_Roles As New BusinessDirectory_Roles(_ocur.Session)
|
||||
With _BusinessDirectory_Roles
|
||||
.BusinessDirectory = _BusinessDirectory
|
||||
.Role = _ocur.GetObjectByKey(Of Role)(_Role.Oid)
|
||||
End With
|
||||
Next
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
Private Sub aBusinessDirectory_SetRoleEnabled_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aBusinessDirectory_SetRoleEnabled.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Role_Collection As New CollectionSource(_onew, GetType(Role))
|
||||
|
||||
e.View = Application.CreateListView("Role_ListView_BusinessDirectory", _Role_Collection, True)
|
||||
End Sub
|
||||
Private Sub aBusinessDirectory_SetRoleEnabled_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aBusinessDirectory_SetRoleEnabled.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _BusinessDirectory_Roles_DELCollection As New ArrayList
|
||||
For Each _Role As Role In e.PopupWindow.View.SelectedObjects
|
||||
For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects
|
||||
Dim _BusinessDirectory_Roles As BusinessDirectory_Roles = _ocur.FindObject(Of BusinessDirectory_Roles)(CriteriaOperator.Parse("BusinessDirectory=? AND Role=?", _BusinessDirectory, _ocur.GetObjectByKey(Of Role)(_Role.Oid)))
|
||||
If _BusinessDirectory_Roles IsNot Nothing Then
|
||||
_BusinessDirectory_Roles_DELCollection.Add(_BusinessDirectory_Roles)
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
_ocur.Delete(_BusinessDirectory_Roles_DELCollection)
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
Private Sub aBusinessDirectory_Clone_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_Clone.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
|
||||
For Each _BusinessDirectory As BusinessDirectory In View.SelectedObjects
|
||||
Dim _BusinessDirectory_New As New BusinessDirectory(_ocur.Session)
|
||||
With _BusinessDirectory_New
|
||||
.BusinessDirectory_Parent = _ocur.GetObject(_BusinessDirectory.Parent)
|
||||
.ShortName = _BusinessDirectory.ShortName + " Másolat"
|
||||
.IsFolder = _BusinessDirectory.IsFolder
|
||||
If _BusinessDirectory.FileData IsNot Nothing Then
|
||||
Dim _FileName As String = System.IO.Path.GetTempPath() + _BusinessDirectory.FileData.FileName
|
||||
Dim _StreamFile As System.IO.Stream = New System.IO.FileStream(_FileName, System.IO.FileMode.Create, System.IO.FileAccess.Write)
|
||||
_BusinessDirectory.FileData.SaveToStream(_StreamFile)
|
||||
_StreamFile.Close()
|
||||
|
||||
.FileData = Nothing
|
||||
|
||||
.FileData = LoadOtherFile(_FileName, New FileData(_ocur.Session))
|
||||
Else
|
||||
.FileData = Nothing
|
||||
End If
|
||||
|
||||
.FileCreated = _BusinessDirectory.FileCreated
|
||||
.FileModified = _BusinessDirectory.FileModified
|
||||
.Completed = _BusinessDirectory.Completed
|
||||
.TaskDescription = _BusinessDirectory.TaskDescription
|
||||
.EMail_Sender = _BusinessDirectory.EMail_Sender
|
||||
.Email_Copy = _BusinessDirectory.Email_Copy
|
||||
.IsDashBoard = _BusinessDirectory.IsDashBoard
|
||||
.DashBoard_Server = _BusinessDirectory.DashBoard_Server
|
||||
.DashBoard_Database = _BusinessDirectory.DashBoard_Database
|
||||
.DashBoard_UserName = _BusinessDirectory.DashBoard_UserName
|
||||
.DashBoard_Password = _BusinessDirectory.DashBoard_Password
|
||||
.SQLType = _BusinessDirectory.SQLType
|
||||
|
||||
End With
|
||||
|
||||
Next
|
||||
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
Private Function LoadOtherFile(ByVal _ActFile As String, _FileData As FileData) As FileData
|
||||
Dim _StreamFile = New System.IO.FileStream(_ActFile, System.IO.FileMode.Open, System.IO.FileAccess.Read)
|
||||
Dim _StreamReader As New System.IO.StreamReader(_StreamFile)
|
||||
_StreamFile.Seek(0, System.IO.SeekOrigin.Begin)
|
||||
|
||||
_FileData.LoadFromStream(_ActFile, _StreamFile)
|
||||
_FileData.FileName = System.IO.Path.GetFileName(_ActFile)
|
||||
_StreamReader.Close()
|
||||
_StreamFile.Close()
|
||||
|
||||
Return _FileData
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub aBusinessDirectory_NewDashboard_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aBusinessDirectory_NewDashboard.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Dashboard As New Dashboard(_onew.Session)
|
||||
With _Dashboard
|
||||
.DashboardViewMode = DashboardViewMode.Designer
|
||||
.IsNewDashboard = True
|
||||
End With
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Dashboard_DetailView_Designer", True, _Dashboard)
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user