DocCount und anderes
This commit is contained in:
Digital Data - Marlon Schreiber
221
app/DD_Clipboard_Searcher/frmResultSQL.vb
Normal file
221
app/DD_Clipboard_Searcher/frmResultSQL.vb
Normal file
@@ -0,0 +1,221 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports DevExpress.Utils
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DD_LIB_Standards
|
||||
Imports DevExpress.XtraGrid.Views.Base
|
||||
Imports DevExpress.XtraTab
|
||||
|
||||
Public Class frmResultSQL
|
||||
|
||||
#Region "Laufzeitvariablen & Konstanten"
|
||||
Private Shared BW_DocPath As String
|
||||
Private Shared BW_DocID As Integer
|
||||
Private Shared CurrSearchID As Integer
|
||||
Private DTDataSearchDefinition As DataTable
|
||||
Private _activeGridView As GridView
|
||||
#End Region
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
Sub RefreshTabData(PROFILE_ID As Integer, ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
|
||||
Try
|
||||
SQLCommand = clsPatterns.ReplaceAllValues(SQLCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, PROFILE_ID)
|
||||
Dim myGridControl As DevExpress.XtraGrid.GridControl
|
||||
Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Select Case TabIndex
|
||||
Case 0
|
||||
GridControlDocSearch1.DataSource = Nothing
|
||||
GridViewDataSearch1.Columns.Clear()
|
||||
myGridview = GridViewDataSearch1
|
||||
myGridControl = GridControlDocSearch1
|
||||
Case 1
|
||||
GridControlDocSearch2.DataSource = Nothing
|
||||
GridViewDataSearch2.Columns.Clear()
|
||||
myGridview = GridViewDataSearch2
|
||||
myGridControl = GridControlDocSearch2
|
||||
Case 2
|
||||
GridControlDocSearch3.DataSource = Nothing
|
||||
GridViewDataSearch3.Columns.Clear()
|
||||
myGridview = GridViewDataSearch3
|
||||
myGridControl = GridControlDocSearch3
|
||||
Case 3
|
||||
GridControlDocSearch4.DataSource = Nothing
|
||||
GridViewDataSearch4.Columns.Clear()
|
||||
myGridControl = GridControlDocSearch4
|
||||
myGridview = GridViewDataSearch4
|
||||
Case 4
|
||||
GridControlDocSearch5.DataSource = Nothing
|
||||
GridViewDataSearch5.Columns.Clear()
|
||||
myGridControl = GridControlDocSearch5
|
||||
myGridview = GridViewDataSearch5
|
||||
End Select
|
||||
myGridControl.ContextMenuStrip = ContextMenuStripWMFile
|
||||
Dim oDatatable As DataTable = clsDatabase.Return_Datatable(SQLCommand)
|
||||
If Not IsNothing(oDatatable) Then
|
||||
XtraTabControlData.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
|
||||
clsWMDocGrid.DTDocuments = oDatatable
|
||||
'Select Case TabIndex
|
||||
' Case 0
|
||||
' GridControlDocSearch1.DataSource = oDatatable
|
||||
' Case 1
|
||||
' GridControlDocSearch2.DataSource = oDatatable
|
||||
' Case 2
|
||||
' GridControlDocSearch3.DataSource = oDatatable
|
||||
' Case 3
|
||||
' GridControlDocSearch4.DataSource = oDatatable
|
||||
' Case 4
|
||||
' GridControlDocSearch5.DataSource = oDatatable
|
||||
|
||||
'End Select
|
||||
myGridControl.DataSource = oDatatable
|
||||
myGridControl.ForceInitialize()
|
||||
Dim oxmlPath As String = ""
|
||||
oxmlPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
|
||||
|
||||
If File.Exists(oxmlPath) Then
|
||||
myGridview.RestoreLayoutFromXml(oxmlPath)
|
||||
myGridview.GuessAutoFilterRowValuesFromFilter()
|
||||
End If
|
||||
tslblState.Text = $"Tab [{TabCaption}] refreshed - {Now}"
|
||||
XtraTabControlData.TabPages(TabIndex).PageVisible = True
|
||||
Else
|
||||
clsWMDocGrid.DTDocuments = Nothing
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
Private Function Get_Grid_Layout_Filename(oIndex As Integer)
|
||||
Dim oFilename As String = String.Format("GridViewData_Search-{0}-{1}-UserLayout.xml", oIndex, CurrSearchID)
|
||||
Dim oPath = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
|
||||
Return oPath
|
||||
End Function
|
||||
Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
|
||||
SaveDocGridLayout()
|
||||
End Sub
|
||||
|
||||
Sub SaveDocGridLayout()
|
||||
Dim oXMLPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
|
||||
_activeGridView.SaveLayoutToXml(oXMLPath)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub GridViewDocSearch1_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewDataSearch1.ColumnWidthChanged
|
||||
_activeGridView = GridViewDataSearch1
|
||||
SaveDocGridLayout()
|
||||
End Sub
|
||||
|
||||
Private Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If My.Settings.frmResultDataPosition.IsEmpty = False Then
|
||||
If My.Settings.frmResultDataPosition.X > 0 And My.Settings.frmResultDataPosition.Y > 0 Then
|
||||
Location = My.Settings.frmResultDataPosition
|
||||
End If
|
||||
End If
|
||||
If My.Settings.frmResultDataSize.IsEmpty = False Then
|
||||
Size = My.Settings.frmResultDataSize
|
||||
End If
|
||||
Load_Searches()
|
||||
End Sub
|
||||
Sub Load_Searches()
|
||||
If Not IsNothing(CurrDataSearch2Load) Then
|
||||
Dim oSQL = $"SELECT * FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({CurrDataSearch2Load}) ORDER BY TAB_INDEX"
|
||||
DTDataSearchDefinition = clsDatabase.Return_Datatable(oSQL)
|
||||
Dim oindex As Integer
|
||||
Dim ocounter As Integer = 0
|
||||
If CurrDataSearch2Load.ToString.Contains(",") Then
|
||||
|
||||
End If
|
||||
For Each oRow As DataRow In DTDataSearchDefinition.Rows
|
||||
RefreshTabData(oRow.Item("PROFILE_ID"), oRow.Item("CONN_ID"), oRow.Item("SQL_COMMAND"), ocounter, oRow.Item("TAB_TITLE"))
|
||||
ocounter += 1
|
||||
Next
|
||||
Else
|
||||
MsgBox("Sorry but the selection of profile went wrong. (CurrSearch2Load is nothing)", MsgBoxStyle.Critical)
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub frmResultDoc_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Try
|
||||
' Position und Größe speichern
|
||||
My.Settings.frmResultDataSize = Me.Size
|
||||
My.Settings.frmResultDataPosition = Me.Location
|
||||
My.Settings.Save()
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
Logger.Info("Error in Save FormLayout: " & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
||||
ReLoad_Active_DocTab()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
|
||||
Set_DoclayoutBack()
|
||||
End Sub
|
||||
Sub Set_DoclayoutBack()
|
||||
Dim oXMLPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
|
||||
Try
|
||||
If File.Exists(oXMLPath) Then
|
||||
File.Delete(oXMLPath)
|
||||
ReLoad_Active_DocTab()
|
||||
tslblState.Text = "Layout has been set back!"
|
||||
Else
|
||||
tslblState.Text = ""
|
||||
End If
|
||||
Catch ex As Exception
|
||||
tslblState.Text = ""
|
||||
End Try
|
||||
End Sub
|
||||
Sub ReLoad_Active_DocTab()
|
||||
Dim oTabIndex = XtraTabControlData.SelectedTabPageIndex
|
||||
Dim oConID = DTDataSearchDefinition.Rows(oTabIndex).Item("CONN_ID")
|
||||
Dim oCommand = DTDataSearchDefinition.Rows(oTabIndex).Item("SQL_COMMAND")
|
||||
Dim oProfID = DTDataSearchDefinition.Rows(oTabIndex).Item("PROFILE_ID")
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfID)
|
||||
RefreshTabData(oProfID, oConID, oCommand, oTabIndex, DTDataSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE"))
|
||||
End Sub
|
||||
|
||||
Private Sub XtraTabControlDocs_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlData.SelectedPageChanged
|
||||
If IsNothing(DTDataSearchDefinition) Then Exit Sub
|
||||
Dim oConID = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("CONN_ID")
|
||||
Dim oCommand = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("SQL_COMMAND")
|
||||
Dim oProfileID = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("PROFILE_ID")
|
||||
oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileID)
|
||||
Dim oTabIndex = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("TAB_INDEX")
|
||||
Dim oTabCaption = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("TAB_TITLE")
|
||||
RefreshTabData(oProfileID, oConID, oCommand, oTabIndex, oTabCaption)
|
||||
End Sub
|
||||
|
||||
Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch1.FocusedRowChanged
|
||||
_activeGridView = GridViewDataSearch1
|
||||
End Sub
|
||||
Private Sub GridViewDocSearch2_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch2.FocusedRowChanged
|
||||
_activeGridView = GridViewDataSearch2
|
||||
End Sub
|
||||
Private Sub GridViewDocSearch3_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch3.FocusedRowChanged
|
||||
_activeGridView = GridViewDataSearch3
|
||||
End Sub
|
||||
Private Sub GridViewDocSearch4_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch4.FocusedRowChanged
|
||||
_activeGridView = GridViewDataSearch4
|
||||
End Sub
|
||||
Private Sub GridViewDocSearch5_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch5.FocusedRowChanged
|
||||
_activeGridView = GridViewDataSearch5
|
||||
End Sub
|
||||
|
||||
Private Sub frmResultSQL_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
Me.BringToFront()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user