348 lines
15 KiB
VB.net
348 lines
15 KiB
VB.net
Imports System.Drawing.Imaging
|
|
Imports System.IO
|
|
Imports DevExpress.XtraCharts
|
|
Imports DevExpress.XtraGrid.Views.Tile
|
|
Imports DigitalData.GUIs.Common
|
|
|
|
Public Class frmInvDashboard
|
|
Private _selectedChart As ChartControl
|
|
Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Try
|
|
Dim oGridBuilder As New GridBuilder(GridView1)
|
|
oGridBuilder.
|
|
WithDefaults().
|
|
WithReadOnlyOptions().
|
|
WithClipboardHandler()
|
|
|
|
Try
|
|
VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
|
|
Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES)
|
|
Catch ex As Exception
|
|
MsgBox("Error loading form1 - " & ex.Message, MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
|
|
End Try
|
|
|
|
VWPM_CHART_TOP5TableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM
|
|
Me.VWPM_CHART_TOP5TableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_TOP5)
|
|
Layout_Dashboard()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox("Error loading form2 - " & ex.Message, MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
|
|
End Try
|
|
End Sub
|
|
Sub Layout_Dashboard()
|
|
Try
|
|
Dim groupCount As Integer
|
|
Dim charts As List(Of ChartControl)
|
|
Dim oGroups As DataRowCollection = BASEDATA_DT_CHARTS.Rows
|
|
groupCount = oGroups.Count
|
|
Configure_Split_Containers(groupCount)
|
|
charts = New List(Of ChartControl) From {ChartTopLeft, ChartTopRight, ChartBottomLeft, ChartBottomRight}
|
|
If groupCount >= 1 Then
|
|
SplitContainerDashboard.Visible = True
|
|
RibbonPageGroup1.Visible = True
|
|
RibbonPageGroup1.Enabled = False
|
|
SplitContainerControl1.Collapsed = False
|
|
Else
|
|
SplitContainerDashboard.Visible = False
|
|
RibbonPageGroup1.Visible = False
|
|
SplitContainerControl1.Collapsed = True
|
|
LOGGER.Debug($"ChartCreating...No chart-Configuration!! BASEDATA_DT_CHARTS = 0")
|
|
Exit Sub
|
|
End If
|
|
If groupCount > 1 Then
|
|
LOGGER.Debug($"ChartCreating...Found more than one charts [{groupCount}]")
|
|
For Each gRow As DataRow In oGroups
|
|
Dim oGroupIndex As Integer = oGroups.IndexOf(gRow)
|
|
Dim oGroupID As String = gRow.Item("GROUP_ID")
|
|
|
|
Dim groupCharts = BASEDATA_DT_CHARTS.Select(String.Format("GROUP_ID = '{0}'", oGroupID))
|
|
Dim chart As ChartControl
|
|
|
|
For Each cRow As DataRow In groupCharts
|
|
|
|
Dim oChartType = cRow.Item("TYPE_CHART")
|
|
LOGGER.Debug($"oChartType [{oChartType}]")
|
|
Dim oChartTitle = cRow.Item("TITLE")
|
|
LOGGER.Debug($"oChartTitle [{oChartTitle}]")
|
|
Dim guid = cRow.Item("GUID")
|
|
LOGGER.Debug($"guid [{guid}]")
|
|
Dim oChartValue = cRow.Item("VALUE")
|
|
Dim oChartArgument = cRow.Item("ARGUMENT")
|
|
Dim oSqlchart = cRow.Item("SQL_COMMAND")
|
|
oSqlchart = oSqlchart.Replace("@USER", USER_USERNAME)
|
|
Dim DATA_DT As DataTable = Database_ECM.GetDatatable(oSqlchart) ', "layputDashboard1")
|
|
|
|
Dim series As Series = Create_Series(oChartTitle, oChartType.ToString.ToUpper)
|
|
|
|
' Select Current Chart
|
|
chart = Select_Chart(oGroupIndex)
|
|
chart = charts.Item(oGroupIndex)
|
|
Try
|
|
chart.Series.Clear()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
|
|
End Try
|
|
' Set DataSource
|
|
chart.DataSource = DATA_DT
|
|
|
|
' Set shown Columns for Chart
|
|
series.ArgumentDataMember = oChartArgument
|
|
series.ValueDataMembers.AddRange(New String() {oChartValue})
|
|
|
|
'set some options
|
|
chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True
|
|
|
|
' Show Data
|
|
chart.Series.Add(series)
|
|
|
|
Next ' End Charts
|
|
Next 'End Groups
|
|
Else
|
|
' Create Charts
|
|
For Each cRow As DataRow In BASEDATA_DT_CHARTS.Rows
|
|
|
|
Dim chart As ChartControl
|
|
|
|
Dim chartIndex As Integer = BASEDATA_DT_CHARTS.Rows.IndexOf(cRow)
|
|
|
|
Dim oChartType = cRow.Item("TYPE_CHART")
|
|
Dim oChartTitle = cRow.Item("TITLE")
|
|
Dim guid = cRow.Item("GUID")
|
|
Dim oChartValue = cRow.Item("VALUE")
|
|
Dim oChartArgument = cRow.Item("ARGUMENT")
|
|
Dim oSqlchart = cRow.Item("SQL_COMMAND")
|
|
|
|
oSqlchart = clsPatterns.ReplaceInternalValues(oSqlchart)
|
|
oSqlchart = clsPatterns.ReplaceUserValues(oSqlchart)
|
|
|
|
oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER_ID", USER_ID)
|
|
oSqlchart = oSqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME)
|
|
Dim DATA_DT As DataTable = Database_ECM.GetDatatable(oSqlchart) ', "layputDashboard2")
|
|
|
|
' Create Series based on type
|
|
Dim series As Series = Create_Series(oChartTitle, oChartType)
|
|
|
|
' Select Current Chart
|
|
chart = Select_Chart(chartIndex)
|
|
Try
|
|
chart.Series.Clear()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
|
|
End Try
|
|
' Set DataSource
|
|
chart.DataSource = DATA_DT
|
|
|
|
' Set shown Columns for Chart
|
|
series.ArgumentDataMember = oChartArgument
|
|
series.ValueDataMembers.AddRange(New String() {oChartValue})
|
|
|
|
'set some options
|
|
chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True
|
|
chart.OptionsPrint.SizeMode = Printing.PrintSizeMode.Stretch
|
|
|
|
' Show Data
|
|
chart.Series.Add(series)
|
|
|
|
Next
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
LOGGER.Info("Layout Dashboard - Error: " & ex.Message)
|
|
MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
|
|
End Try
|
|
End Sub
|
|
Private Sub Configure_Split_Containers(VisibleContainers As Integer)
|
|
Select Case VisibleContainers
|
|
Case 1
|
|
' Show only ChartTopLeft
|
|
SplitContainerTop.Panel2Collapsed = True
|
|
' Collapse SplitContainerBottom
|
|
SplitContainerDashboard.Panel2Collapsed = True
|
|
Case 2
|
|
' Collapse SplitContainerBottom
|
|
SplitContainerDashboard.Panel2Collapsed = True
|
|
Case 3
|
|
' Collapse ChartBottomRight
|
|
SplitContainerBottom.Panel2Collapsed = True
|
|
' Show SplitContainerBottom
|
|
SplitContainerDashboard.Panel2Collapsed = False
|
|
Case 4
|
|
' Show SplitContainerBottom
|
|
SplitContainerDashboard.Panel2Collapsed = False
|
|
End Select
|
|
SplitContainerDashboard.Dock = DockStyle.Fill
|
|
End Sub
|
|
Private Function Select_Chart(index As Integer)
|
|
Select Case index
|
|
Case 0
|
|
Return ChartTopLeft
|
|
Case 1
|
|
Return ChartTopRight
|
|
Case 2
|
|
Return ChartBottomLeft
|
|
Case Else
|
|
Return ChartBottomRight
|
|
End Select
|
|
End Function
|
|
Private Function Create_Series(title As String, type As String) As Series
|
|
Dim series As Series
|
|
LOGGER.Debug($"In Create new series: type [{type}]")
|
|
Select Case type
|
|
Case "BAR"
|
|
LOGGER.Debug("Create new series: ViewType.Bar")
|
|
series = New Series(title, ViewType.Bar)
|
|
Case "LINE"
|
|
LOGGER.Debug("Create new series: ViewType.Line")
|
|
series = New Series(title, ViewType.Line)
|
|
Case "AREA"
|
|
LOGGER.Debug("Create new series: ViewType.Area")
|
|
series = New Series(title, ViewType.Area)
|
|
Case "DOUGHNUT"
|
|
LOGGER.Debug("Create new series: ViewType.Doughnut")
|
|
series = New Series(title, ViewType.Doughnut)
|
|
series.Label.TextPattern = "{A}: {VP:p0}"
|
|
Dim view As PieSeriesView = DirectCast(series.View, PieSeriesView)
|
|
view.Titles.Add(New SeriesTitle())
|
|
view.Titles(0).Text = title
|
|
Case "PIE"
|
|
LOGGER.Debug("Create new series: ViewType.Pie")
|
|
series = New Series(title, ViewType.Pie)
|
|
series.Label.TextPattern = "{A}: {VP:p0}"
|
|
Dim view As PieSeriesView = DirectCast(series.View, PieSeriesView)
|
|
view.Titles.Add(New SeriesTitle())
|
|
view.Titles(0).Text = title
|
|
Case Else
|
|
series = New Series(title, ViewType.Bar)
|
|
End Select
|
|
|
|
Return series
|
|
End Function
|
|
Private Sub TileView1_ItemCustomize(sender As Object, e As DevExpress.XtraGrid.Views.Tile.TileViewItemCustomizeEventArgs) Handles TileView1.ItemCustomize
|
|
Dim oView As TileView = sender
|
|
Dim ovalue = oView.GetRowCellValue(e.RowHandle, "Title")
|
|
If ovalue = "Alle Rechnungen" Then
|
|
e.Item.AppearanceItem.Normal.BackColor = Color.Blue
|
|
'e.Item.Elements(1).Text = ""
|
|
e.Item.Elements(0).Appearance.Normal.ForeColor = Color.White
|
|
e.Item.Elements(1).Appearance.Normal.ForeColor = Color.White
|
|
e.Item.Elements(2).Appearance.Normal.ForeColor = Color.White
|
|
'Console.WriteLine("")
|
|
ElseIf ovalue = "Zeitkritisch" Then
|
|
e.Item.Elements(0).Appearance.Normal.ForeColor = Color.Red
|
|
e.Item.Elements(1).Appearance.Normal.ForeColor = Color.Red
|
|
e.Item.Elements(2).Appearance.Normal.ForeColor = Color.Red
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ChartTopLeft_Click(sender As Object, e As EventArgs) Handles ChartTopLeft.Click, ChartTopRight.Click, ChartBottomLeft.Click, ChartBottomRight.Click
|
|
_selectedChart = sender
|
|
RibbonPageGroup1.Enabled = True
|
|
RibbonPageGroup2.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
|
|
If Not IsNothing(_selectedChart) Then
|
|
SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf"
|
|
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
|
|
ExportChart2Pdf(_selectedChart, SaveFileDialog1.FileName)
|
|
End If
|
|
Else
|
|
MsgBox("Please select a chart via clicking on it!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
|
|
End If
|
|
End Sub
|
|
Sub ExportChart2Pdf(pMyChart As ChartControl, pFilePath As String)
|
|
Try
|
|
pMyChart.OptionsPrint.ImageFormat = DevExpress.XtraCharts.Printing.PrintImageFormat.Metafile
|
|
pMyChart.ExportToPdf(pFilePath, New DevExpress.XtraPrinting.PdfExportOptions With {
|
|
.ConvertImagesToJpeg = False
|
|
})
|
|
' Exports to a stream as PDF.
|
|
Dim pdfStream As FileStream = New FileStream(pFilePath, FileMode.Create)
|
|
pMyChart.ExportToPdf(pdfStream)
|
|
' ...
|
|
pdfStream.Close()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
End Try
|
|
End Sub
|
|
Sub ExportCharttoimage(pMyChart As ChartControl, pFilePath As String)
|
|
Try
|
|
SaveChartImageToFile(pMyChart, ImageFormat.Png, pFilePath)
|
|
Dim image As Image = GetChartImage(pMyChart, ImageFormat.Png)
|
|
image.Save(pFilePath)
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
End Try
|
|
|
|
End Sub
|
|
Private Sub SaveChartImageToFile(ByVal chart As ChartControl, ByVal format As ImageFormat, ByVal fileName As String)
|
|
' Create an image in the specified format from the chart
|
|
' and save it to the specified path.
|
|
chart.ExportToImage(fileName, format)
|
|
End Sub
|
|
Private Function GetChartImage(ByVal chart As ChartControl, ByVal format As ImageFormat) As Image
|
|
' Create an image.
|
|
Dim image As Image = Nothing
|
|
|
|
' Create an image of the chart.
|
|
Using s As New MemoryStream()
|
|
chart.ExportToImage(s, format)
|
|
image = System.Drawing.Image.FromStream(s)
|
|
End Using
|
|
|
|
' Return the image.
|
|
Return image
|
|
End Function
|
|
|
|
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
|
|
If Not IsNothing(_selectedChart) Then
|
|
SaveFileDialog1.Filter = "PNG Files(* .png *)|*.png"
|
|
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
|
|
ExportCharttoimage(_selectedChart, SaveFileDialog1.FileName)
|
|
End If
|
|
Else
|
|
MsgBox("Please select a chart via clicking on it!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub GridControl1_Click(sender As Object, e As EventArgs) Handles GridControl1.Click
|
|
RibbonPageGroup1.Enabled = False
|
|
RibbonPageGroup2.Enabled = True
|
|
BarButtonItem3.Enabled = True
|
|
BarButtonItem4.Enabled = False
|
|
BarButtonItem5.Enabled = False
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
|
|
SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf"
|
|
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
|
|
TileView1.ExportToPdf(SaveFileDialog1.FileName)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
|
|
SaveFileDialog1.Filter = "Excel Files (*.xlsx*)|*.xlsx"
|
|
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
|
|
GridView1.ExportToXlsx(SaveFileDialog1.FileName)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
|
|
SaveFileDialog1.Filter = "PDF Files (*.pdf*)|*.pdf"
|
|
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
|
|
GridView1.ExportToPdf(SaveFileDialog1.FileName)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub GridControl2_Click(sender As Object, e As EventArgs) Handles GridControl2.Click
|
|
RibbonPageGroup1.Enabled = False
|
|
RibbonPageGroup2.Enabled = True
|
|
BarButtonItem3.Enabled = False
|
|
BarButtonItem4.Enabled = True
|
|
BarButtonItem5.Enabled = True
|
|
End Sub
|
|
End Class |