First create solution
This commit is contained in:
@@ -0,0 +1,205 @@
|
||||
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 DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.CloneObject
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.DashboardCommon
|
||||
Imports DevExpress.Xpo
|
||||
|
||||
Imports System.IO
|
||||
Imports System.Xml
|
||||
Imports System.Reflection
|
||||
Imports DevExpress.DashboardWin
|
||||
|
||||
Public Class Dashboard_VC
|
||||
Inherits Nuvolar.Module.Dashboard_VC
|
||||
|
||||
Private _DashboardViewer As DashboardViewer
|
||||
Private _DashboardDesigner As DashboardDesigner
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "Dashboard_DetailView_Viewer" Then
|
||||
|
||||
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
|
||||
Dim _DetailView As DetailView = TryCast(View, DetailView)
|
||||
Dim _DashboardViewer_ViewItem As ViewItem = _DetailView.FindItem("DashboardViewer")
|
||||
If _DashboardViewer_ViewItem IsNot Nothing Then
|
||||
AddHandler _DashboardViewer_ViewItem.ControlCreated, AddressOf DashboardViewer_ViewItem_ControlCreated
|
||||
End If
|
||||
End If
|
||||
If View.Id = "Dashboard_DetailView_Designer" Then
|
||||
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
|
||||
Dim _DetailView As DetailView = TryCast(View, DetailView)
|
||||
Dim _DashboardDesigner_ViewItem As ViewItem = _DetailView.FindItem("DashboardDesigner")
|
||||
If _DashboardDesigner_ViewItem IsNot Nothing Then
|
||||
AddHandler _DashboardDesigner_ViewItem.ControlCreated, AddressOf DashboardDesigner_ViewItem_ControlCreated
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Dashboard_DetailView_Viewer" Or
|
||||
View.Id = "Dashboard_DetailView_Designer" Then
|
||||
Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub DashboardViewer_ViewItem_ControlCreated(sender As Object, e As EventArgs)
|
||||
Dim _Dashboard As Dashboard = TryCast(View.SelectedObjects(0), Dashboard)
|
||||
Dim _ItemControl As Object = TryCast(sender, ViewItem).Control
|
||||
Dim _DashboardViewerUserControl As DashboardViewerUserControl = TryCast(_ItemControl, DashboardViewerUserControl)
|
||||
_DashboardViewer = _DashboardViewerUserControl.DashboardViewer1
|
||||
|
||||
If _DashboardViewer IsNot Nothing Then
|
||||
With _DashboardViewerUserControl
|
||||
.UserName = _Dashboard.UserName
|
||||
.Password = _Dashboard.Password
|
||||
.SQLType = _Dashboard.SQLType
|
||||
.SQLServer = _Dashboard.SQLServer
|
||||
.Database = _Dashboard.Database
|
||||
End With
|
||||
|
||||
Dim _MemoryStream As New IO.MemoryStream()
|
||||
_Dashboard.XMLFileData.SaveToStream(_MemoryStream)
|
||||
_MemoryStream.Seek(0, IO.SeekOrigin.Begin)
|
||||
With _DashboardViewer
|
||||
.LoadDashboard(_MemoryStream)
|
||||
End With
|
||||
End If
|
||||
End Sub
|
||||
Private Sub DashboardDesigner_ViewItem_ControlCreated(sender As Object, e As EventArgs)
|
||||
Dim _Dashboard As Dashboard = TryCast(View.SelectedObjects(0), Dashboard)
|
||||
Dim _ItemControl As Object = TryCast(sender, ViewItem).Control
|
||||
Dim _DashboardDesignerUserControl As DashboardDesignerUserControl = TryCast(_ItemControl, DashboardDesignerUserControl)
|
||||
_DashboardDesigner = _DashboardDesignerUserControl.DashboardDesigner1
|
||||
|
||||
If _DashboardDesigner IsNot Nothing Then
|
||||
If Not _Dashboard.IsNewDashboard Then
|
||||
With _DashboardDesignerUserControl
|
||||
.UserName = _Dashboard.UserName
|
||||
.Password = _Dashboard.Password
|
||||
.SQLType = _Dashboard.SQLType
|
||||
.SQLServer = _Dashboard.SQLServer
|
||||
.Database = _Dashboard.Database
|
||||
End With
|
||||
|
||||
Dim _MemoryStream As New IO.MemoryStream()
|
||||
_Dashboard.XMLFileData.SaveToStream(_MemoryStream)
|
||||
_MemoryStream.Seek(0, IO.SeekOrigin.Begin)
|
||||
With _DashboardDesigner
|
||||
.LoadDashboard(_MemoryStream)
|
||||
.ConfirmSaveOnClose = False
|
||||
End With
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aDashboard_SaveDashDesForBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aDashboard_SaveDashDesForBusinessDirectory.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Dashboard As Dashboard = _ocur.GetObject(TryCast(View.SelectedObjects(0), Dashboard))
|
||||
Dim _FileName As String = IO.Path.GetTempPath
|
||||
If _Dashboard.IsNewDashboard Then
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _BusinessDirectory As New BusinessDirectory(_onew.Session)
|
||||
With _BusinessDirectory
|
||||
.IsDashBoard = True
|
||||
_FileName += _DashboardDesigner.SelectedDataSource.Name + ".xml"
|
||||
_DashboardDesigner.Dashboard.SaveToXml(_FileName)
|
||||
If IO.File.Exists(_FileName) Then
|
||||
_BusinessDirectory.FileData = Nothing
|
||||
_BusinessDirectory.FileData = LoadOtherFile(_FileName, New FileData(_onew.Session))
|
||||
End If
|
||||
End With
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "BusinessDirectory_DetailView", True, _BusinessDirectory)
|
||||
Else
|
||||
Select Case _Dashboard.Object_Type
|
||||
Case GetType(BusinessDirectory)
|
||||
Dim _BusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("Oid=?", _Dashboard.Object_Oid))
|
||||
If _BusinessDirectory IsNot Nothing Then
|
||||
_FileName += _BusinessDirectory.FileData.FileName
|
||||
_DashboardDesigner.Dashboard.SaveToXml(_FileName)
|
||||
If IO.File.Exists(_FileName) Then
|
||||
_BusinessDirectory.FileData = Nothing
|
||||
_BusinessDirectory.FileData = LoadOtherFile(_FileName, New FileData(_ocur.Session))
|
||||
End If
|
||||
End If
|
||||
Case Else
|
||||
MsgBox("Almafa!")
|
||||
End Select
|
||||
|
||||
'Dim _da As New DevExpress.DashboardCommon.Dashboard
|
||||
'Dim _dd As New DevExpress.XtraDashboard.DashboardDesigner
|
||||
'_dd.LoadDashboard(_FileName)
|
||||
'Beep()
|
||||
'_dd.d()
|
||||
''_dd.DataBindings
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
|
||||
|
||||
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 GetXMLInfo(_FileName As String)
|
||||
Dim reader As New XmlTextReader("books.xml")
|
||||
While reader.Read()
|
||||
Select Case reader.NodeType
|
||||
Case XmlNodeType.Element
|
||||
' A csomópont egy összetevõ.
|
||||
Console.Write("<" & reader.Name)
|
||||
Console.WriteLine(">")
|
||||
Exit Select
|
||||
Case XmlNodeType.Text
|
||||
'Az egyes összetevõk szövegének megjelenítése.
|
||||
Console.WriteLine(reader.Value)
|
||||
Exit Select
|
||||
Case XmlNodeType.EndElement
|
||||
'Az összetevõ végének megjelenítése.
|
||||
Console.Write("</" & reader.Name)
|
||||
Console.WriteLine(">")
|
||||
Exit Select
|
||||
End Select
|
||||
End While
|
||||
Console.ReadLine()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user