AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add clipboard handler to monitor and invoice dashboard

Browse Source
This commit is contained in:
Jonathan Jenne 2021-10-21 14:35:19 +02:00
parent 9b251623dc
commit 6a1b6580e4
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_PM_WINDREAM/frmInvDashboard.vb
View File

@ -2,11 +2,18 @@
Imports System.IO Imports System.IO
Imports DevExpress.XtraCharts Imports DevExpress.XtraCharts
Imports DevExpress.XtraGrid.Views.Tile Imports DevExpress.XtraGrid.Views.Tile
Imports DigitalData.GUIs.Common
Public Class frmInvDashboard Public Class frmInvDashboard
Private _selectedChart As ChartControl Private _selectedChart As ChartControl
Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
Dim oGridBuilder As New GridBuilder(GridView1)
oGridBuilder.
WithDefaults().
WithReadOnlyOptions().
WithClipboardHandler()
Try Try
VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM 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) Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES)

14
app/DD_PM_WINDREAM/frmMonitor.vb
View File

@ -2,7 +2,9 @@
Imports System.IO Imports System.IO
Imports DevExpress.Utils Imports DevExpress.Utils
Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraPrinting Imports DevExpress.XtraPrinting
Imports DigitalData.GUIs.Common
Public Class frmMonitor Public Class frmMonitor
Dim DT_MONITOR_KONFIG As DataTable Dim DT_MONITOR_KONFIG As DataTable
@ -13,6 +15,8 @@ Public Class frmMonitor
Dim GRID3_SQL As String Dim GRID3_SQL As String
Dim GRID4_TITLE As String Dim GRID4_TITLE As String
Dim GRID4_SQL As String Dim GRID4_SQL As String
Private _GridBuilder As GridBuilder
Private _ActiveGrid As GridControl = Nothing Private _ActiveGrid As GridControl = Nothing
' Private _frmDocView As frmDocView 'You need a reference to Form1 ' Private _frmDocView As frmDocView 'You need a reference to Form1
Dim FormShown As Boolean = False Dim FormShown As Boolean = False
@ -152,6 +156,16 @@ Public Class frmMonitor
Private Async Sub frmMonitor_Load(sender As Object, e As EventArgs) Handles Me.Load Private Async Sub frmMonitor_Load(sender As Object, e As EventArgs) Handles Me.Load
SplitContainerControlMain.Collapsed = True SplitContainerControlMain.Collapsed = True
Dim _GridList As New List(Of GridView) From {
GridView1,
GridView2,
GridView3,
GridView4
}
_GridBuilder = New GridBuilder(_GridList).
WithReadOnlyOptions().
WithClipboardHandler()
GridView1.ShowLoadingPanel() GridView1.ShowLoadingPanel()
Await Load_Grid_Data() Await Load_Grid_Data()
GridView1.HideLoadingPanel() GridView1.HideLoadingPanel()