You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
765 lines
44 KiB
765 lines
44 KiB
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Math
|
|
Public Class frmSortSelect
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents dsSortOrderUser As System.Data.DataSet
|
|
Friend WithEvents dsSortOrder As System.Data.DataSet
|
|
Friend WithEvents daSortOrder As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents daSortOrderUser As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents mnuUp As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuDown As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuDelete As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuSortOrder As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
|
Friend WithEvents speichern As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents abbrechen As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
|
Friend WithEvents Label19 As System.Windows.Forms.Label
|
|
Friend WithEvents Button11 As System.Windows.Forms.Button
|
|
Friend WithEvents Label22 As System.Windows.Forms.Label
|
|
Friend WithEvents LBSort As System.Windows.Forms.ListBox
|
|
Friend WithEvents Label21 As System.Windows.Forms.Label
|
|
Friend WithEvents lbSortfields As System.Windows.Forms.ListBox
|
|
Friend WithEvents LBSelect As System.Windows.Forms.ListBox
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmSortSelect))
|
|
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
|
Me.dsSortOrderUser = New System.Data.DataSet()
|
|
Me.dsSortOrder = New System.Data.DataSet()
|
|
Me.daSortOrder = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.daSortOrderUser = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
|
|
Me.mnuUp = New System.Windows.Forms.MenuItem()
|
|
Me.mnuDown = New System.Windows.Forms.MenuItem()
|
|
Me.mnuDelete = New System.Windows.Forms.MenuItem()
|
|
Me.mnuSortOrder = New System.Windows.Forms.MenuItem()
|
|
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
|
Me.speichern = New System.Windows.Forms.ToolBarButton()
|
|
Me.abbrechen = New System.Windows.Forms.ToolBarButton()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.Panel2 = New System.Windows.Forms.Panel()
|
|
Me.Label19 = New System.Windows.Forms.Label()
|
|
Me.LBSelect = New System.Windows.Forms.ListBox()
|
|
Me.Button11 = New System.Windows.Forms.Button()
|
|
Me.Label22 = New System.Windows.Forms.Label()
|
|
Me.LBSort = New System.Windows.Forms.ListBox()
|
|
Me.Label21 = New System.Windows.Forms.Label()
|
|
Me.lbSortfields = New System.Windows.Forms.ListBox()
|
|
CType(Me.dsSortOrderUser, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.dsSortOrder, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.Panel2.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'SqlConnection1
|
|
'
|
|
Me.SqlConnection1.ConnectionString = "data source=tgtsqledokabssf;initial catalog=edoka;integrated security=SSPI;persis" & _
|
|
"t security info=False;workstation id=TG602643;packet size=4096"
|
|
'
|
|
'dsSortOrderUser
|
|
'
|
|
Me.dsSortOrderUser.DataSetName = "NewDataSet"
|
|
Me.dsSortOrderUser.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'dsSortOrder
|
|
'
|
|
Me.dsSortOrder.DataSetName = "NewDataSet"
|
|
Me.dsSortOrder.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'daSortOrder
|
|
'
|
|
Me.daSortOrder.DeleteCommand = Me.SqlDeleteCommand1
|
|
Me.daSortOrder.InsertCommand = Me.SqlInsertCommand1
|
|
Me.daSortOrder.SelectCommand = Me.SqlSelectCommand1
|
|
Me.daSortOrder.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "ReportingSortOrder", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("DisplayFieldName", "DisplayFieldName"), New System.Data.Common.DataColumnMapping("Aufsteigend", "Aufsteigend"), New System.Data.Common.DataColumnMapping("ID", "ID"), New System.Data.Common.DataColumnMapping("ReportID", "ReportID"), New System.Data.Common.DataColumnMapping("ReportFieldName", "ReportFieldName")})})
|
|
Me.daSortOrder.UpdateCommand = Me.SqlUpdateCommand1
|
|
'
|
|
'SqlDeleteCommand1
|
|
'
|
|
Me.SqlDeleteCommand1.CommandText = "[pv_ReportingSortOrder_delete]"
|
|
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Aufsteigend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Aufsteigend", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_DisplayFieldName", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DisplayFieldName", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportFieldName", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportFieldName", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportID", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[pv_ReportingSortOrder_insert]"
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@DisplayFieldName", System.Data.SqlDbType.VarChar, 1024, "DisplayFieldName"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Aufsteigend", System.Data.SqlDbType.Bit, 1, "Aufsteigend"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ID", System.Data.SqlDbType.Int, 4, "ID"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportID", System.Data.SqlDbType.Int, 4, "ReportID"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportFieldName", System.Data.SqlDbType.VarChar, 1024, "ReportFieldName"))
|
|
'
|
|
'SqlSelectCommand1
|
|
'
|
|
Me.SqlSelectCommand1.CommandText = "[pv_ReportingSortOrder_select]"
|
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportID", System.Data.SqlDbType.Int, 4, "ReportID"))
|
|
'
|
|
'SqlUpdateCommand1
|
|
'
|
|
Me.SqlUpdateCommand1.CommandText = "[pv_ReportingSortOrder_update]"
|
|
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@DisplayFieldName", System.Data.SqlDbType.VarChar, 1024, "DisplayFieldName"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Aufsteigend", System.Data.SqlDbType.Bit, 1, "Aufsteigend"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ID", System.Data.SqlDbType.Int, 4, "ID"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "ReportID"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportFieldName", System.Data.SqlDbType.VarChar, 1024, "ReportFieldName"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Aufsteigend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Aufsteigend", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_DisplayFieldName", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DisplayFieldName", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportFieldName", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportFieldName", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportID", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'daSortOrderUser
|
|
'
|
|
Me.daSortOrderUser.DeleteCommand = Me.SqlDeleteCommand2
|
|
Me.daSortOrderUser.InsertCommand = Me.SqlInsertCommand2
|
|
Me.daSortOrderUser.SelectCommand = Me.SqlSelectCommand2
|
|
Me.daSortOrderUser.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "ReportingSortOrderUser", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ID", "ID"), New System.Data.Common.DataColumnMapping("ReportingSortOrderID", "ReportingSortOrderID"), New System.Data.Common.DataColumnMapping("ReportID", "ReportID"), New System.Data.Common.DataColumnMapping("DisplayFieldName", "DisplayFieldName"), New System.Data.Common.DataColumnMapping("ReportFieldName", "ReportFieldName"), New System.Data.Common.DataColumnMapping("Aufsteigend", "Aufsteigend"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("SortOrder", "SortOrder"), New System.Data.Common.DataColumnMapping("Mandant_Nr", "Mandant_Nr"), New System.Data.Common.DataColumnMapping("Aktiv", "Aktiv"), New System.Data.Common.DataColumnMapping("Erstellt_Am", "Erstellt_Am"), New System.Data.Common.DataColumnMapping("Mutiert_Am", "Mutiert_Am"), New System.Data.Common.DataColumnMapping("Mutierer", "Mutierer"), New System.Data.Common.DataColumnMapping("Loeschen", "Loeschen")})})
|
|
Me.daSortOrderUser.UpdateCommand = Me.SqlUpdateCommand2
|
|
'
|
|
'SqlDeleteCommand2
|
|
'
|
|
Me.SqlDeleteCommand2.CommandText = "[pv_ReportingSortOrderUser_delete]"
|
|
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Aktiv", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Aufsteigend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Aufsteigend", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_DisplayFieldName", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DisplayFieldName", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Erstellt_Am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Erstellt_Am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Loeschen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Loeschen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mandant_Nr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mandant_Nr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mutierer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mutiert_Am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mutiert_Am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportFieldName", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportFieldName", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportID", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportingSortOrderID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportingSortOrderID", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_SortOrder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "SortOrder", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlInsertCommand2
|
|
'
|
|
Me.SqlInsertCommand2.CommandText = "[pv_ReportingSortOrderUser_insert]"
|
|
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ID", System.Data.SqlDbType.Int, 4, "ID"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportingSortOrderID", System.Data.SqlDbType.Int, 4, "ReportingSortOrderID"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportID", System.Data.SqlDbType.Int, 4, "ReportID"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@DisplayFieldName", System.Data.SqlDbType.VarChar, 1024, "DisplayFieldName"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportFieldName", System.Data.SqlDbType.VarChar, 1024, "ReportFieldName"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Aufsteigend", System.Data.SqlDbType.Bit, 1, "Aufsteigend"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@SortOrder", System.Data.SqlDbType.Int, 4, "SortOrder"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mandant_Nr", System.Data.SqlDbType.Int, 4, "Mandant_Nr"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Aktiv", System.Data.SqlDbType.Bit, 1, "Aktiv"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Erstellt_Am", System.Data.SqlDbType.DateTime, 8, "Erstellt_Am"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mutiert_Am", System.Data.SqlDbType.DateTime, 8, "Mutiert_Am"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mutierer", System.Data.SqlDbType.Int, 4, "Mutierer"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Loeschen", System.Data.SqlDbType.Bit, 1, "Loeschen"))
|
|
'
|
|
'SqlSelectCommand2
|
|
'
|
|
Me.SqlSelectCommand2.CommandText = "[pv_ReportingSortOrderUser_select]"
|
|
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportID", System.Data.SqlDbType.Int, 4, "ReportID"))
|
|
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
|
'
|
|
'SqlUpdateCommand2
|
|
'
|
|
Me.SqlUpdateCommand2.CommandText = "[pv_ReportingSortOrderUser_update]"
|
|
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportingSortOrderID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@DisplayFieldName", System.Data.SqlDbType.VarChar, 1024))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportFieldName", System.Data.SqlDbType.VarChar, 1024))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Aufsteigend", System.Data.SqlDbType.Bit, 1))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@SortOrder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mandant_Nr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Aktiv", System.Data.SqlDbType.Bit, 1))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Erstellt_Am", System.Data.SqlDbType.DateTime, 8))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mutiert_Am", System.Data.SqlDbType.DateTime, 8))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Loeschen", System.Data.SqlDbType.Bit, 1))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Aktiv", System.Data.SqlDbType.Bit, 1))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Aufsteigend", System.Data.SqlDbType.Bit, 1))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_DisplayFieldName", System.Data.SqlDbType.VarChar, 1024))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Erstellt_Am", System.Data.SqlDbType.DateTime, 8))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Loeschen", System.Data.SqlDbType.Bit, 1))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mandant_Nr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mutiert_Am", System.Data.SqlDbType.DateTime, 8))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportFieldName", System.Data.SqlDbType.VarChar, 1024))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportingSortOrderID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_SortOrder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
'
|
|
'ContextMenu2
|
|
'
|
|
Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuUp, Me.mnuDown, Me.mnuDelete, Me.mnuSortOrder})
|
|
'
|
|
'mnuUp
|
|
'
|
|
Me.mnuUp.Index = 0
|
|
Me.mnuUp.Text = "&Aufwärts"
|
|
'
|
|
'mnuDown
|
|
'
|
|
Me.mnuDown.Index = 1
|
|
Me.mnuDown.Text = "A&bwärts"
|
|
'
|
|
'mnuDelete
|
|
'
|
|
Me.mnuDelete.Index = 2
|
|
Me.mnuDelete.Text = "&Löschen"
|
|
'
|
|
'mnuSortOrder
|
|
'
|
|
Me.mnuSortOrder.Index = 3
|
|
Me.mnuSortOrder.Text = "Sortierung ändern"
|
|
'
|
|
'ToolBar1
|
|
'
|
|
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.abbrechen, Me.speichern})
|
|
Me.ToolBar1.DropDownArrows = True
|
|
Me.ToolBar1.ImageList = Me.ImageList1
|
|
Me.ToolBar1.Name = "ToolBar1"
|
|
Me.ToolBar1.ShowToolTips = True
|
|
Me.ToolBar1.Size = New System.Drawing.Size(338, 25)
|
|
Me.ToolBar1.TabIndex = 11
|
|
'
|
|
'speichern
|
|
'
|
|
Me.speichern.ImageIndex = 0
|
|
Me.speichern.Tag = "Speichern"
|
|
Me.speichern.ToolTipText = "übernehmen"
|
|
'
|
|
'abbrechen
|
|
'
|
|
Me.abbrechen.ImageIndex = 1
|
|
Me.abbrechen.Tag = "Abbrechen"
|
|
Me.abbrechen.ToolTipText = "Beenden ohne Datenübernahme"
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'Panel2
|
|
'
|
|
Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label19, Me.LBSelect, Me.Button11, Me.Label22, Me.LBSort, Me.Label21, Me.lbSortfields})
|
|
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
|
|
Me.Panel2.Location = New System.Drawing.Point(0, 25)
|
|
Me.Panel2.Name = "Panel2"
|
|
Me.Panel2.Size = New System.Drawing.Size(328, 508)
|
|
Me.Panel2.TabIndex = 12
|
|
'
|
|
'Label19
|
|
'
|
|
Me.Label19.Location = New System.Drawing.Point(176, 15)
|
|
Me.Label19.Name = "Label19"
|
|
Me.Label19.Size = New System.Drawing.Size(100, 16)
|
|
Me.Label19.TabIndex = 27
|
|
Me.Label19.Text = "Sortierungsart"
|
|
'
|
|
'LBSelect
|
|
'
|
|
Me.LBSelect.ContextMenu = Me.ContextMenu2
|
|
Me.LBSelect.Location = New System.Drawing.Point(16, 288)
|
|
Me.LBSelect.Name = "LBSelect"
|
|
Me.LBSelect.Size = New System.Drawing.Size(296, 199)
|
|
Me.LBSelect.TabIndex = 26
|
|
'
|
|
'Button11
|
|
'
|
|
Me.Button11.Location = New System.Drawing.Point(128, 248)
|
|
Me.Button11.Name = "Button11"
|
|
Me.Button11.Size = New System.Drawing.Size(80, 24)
|
|
Me.Button11.TabIndex = 25
|
|
Me.Button11.Text = "Einfügen"
|
|
'
|
|
'Label22
|
|
'
|
|
Me.Label22.Location = New System.Drawing.Point(16, 272)
|
|
Me.Label22.Name = "Label22"
|
|
Me.Label22.Size = New System.Drawing.Size(100, 16)
|
|
Me.Label22.TabIndex = 24
|
|
Me.Label22.Text = "Sortierung"
|
|
'
|
|
'LBSort
|
|
'
|
|
Me.LBSort.Items.AddRange(New Object() {"Absteigend", "Aufsteigend"})
|
|
Me.LBSort.Location = New System.Drawing.Point(176, 31)
|
|
Me.LBSort.Name = "LBSort"
|
|
Me.LBSort.Size = New System.Drawing.Size(136, 199)
|
|
Me.LBSort.Sorted = True
|
|
Me.LBSort.TabIndex = 22
|
|
'
|
|
'Label21
|
|
'
|
|
Me.Label21.Location = New System.Drawing.Point(16, 15)
|
|
Me.Label21.Name = "Label21"
|
|
Me.Label21.Size = New System.Drawing.Size(100, 16)
|
|
Me.Label21.TabIndex = 21
|
|
Me.Label21.Text = "Sortierkriterien"
|
|
'
|
|
'lbSortfields
|
|
'
|
|
Me.lbSortfields.Location = New System.Drawing.Point(16, 31)
|
|
Me.lbSortfields.Name = "lbSortfields"
|
|
Me.lbSortfields.Size = New System.Drawing.Size(136, 199)
|
|
Me.lbSortfields.Sorted = True
|
|
Me.lbSortfields.TabIndex = 20
|
|
'
|
|
'frmSortSelect
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(338, 533)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel2, Me.ToolBar1})
|
|
Me.Name = "frmSortSelect"
|
|
Me.Text = "Sortierung"
|
|
CType(Me.dsSortOrderUser, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.dsSortOrder, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.Panel2.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region " Declaration "
|
|
Dim m_sTableName As String
|
|
Dim m_sDatenherkunft As String
|
|
Dim m_sDislpayResult As String
|
|
Dim m_sNavigationResult As String
|
|
Dim m_sReportID As String
|
|
Dim m_iLastID As Integer
|
|
Dim i As Integer
|
|
|
|
#End Region
|
|
|
|
#Region " Property "
|
|
Property TableName() As String
|
|
Get
|
|
Return m_sTableName
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_sTableName = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Property Datenherkunft() As String
|
|
' Werte dienen für die Anziege
|
|
Get
|
|
Return m_sDatenherkunft
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_sDatenherkunft = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property NavigationResult() As String
|
|
' Werte dienen für die Steuerung
|
|
Get
|
|
Return m_sNavigationResult
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_sNavigationResult = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property DislpayResult() As String
|
|
Get
|
|
Return m_sDislpayResult
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_sDislpayResult = Value
|
|
End Set
|
|
End Property
|
|
|
|
Property ReportID() As String
|
|
Get
|
|
Return m_sReportID
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_sReportID = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
#End Region
|
|
|
|
#Region " Command Controlsfunction"
|
|
|
|
|
|
Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
End Sub
|
|
|
|
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Me.DialogResult = DialogResult.Cancel
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub grdSortOrderUser_BeforeInsert(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs)
|
|
Debug.Write("BeforeInsert ")
|
|
|
|
End Sub
|
|
|
|
Private Sub grdSortOrderUser_BeforeColEdit(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColEditEventArgs)
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
#Region " Formular Funktionen "
|
|
|
|
Private Sub frmSortSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim iCount As Integer
|
|
Dim iWidth As Integer = 50
|
|
|
|
Try
|
|
Globals.WinPos.Get_Position(Me)
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
|
Me.SqlConnection1.Open()
|
|
|
|
'===============================================================================
|
|
'Datasource Sortorderfelder des Reports
|
|
'===============================================================================
|
|
Me.daSortOrder.SelectCommand.Parameters("@ReportID").Value = m_sReportID
|
|
Me.daSortOrder.Fill(Me.dsSortOrder)
|
|
|
|
For iCount = 0 To dsSortOrder.Tables(0).Rows.Count - 1
|
|
Me.lbSortfields.Items.Add(dsSortOrder.Tables(0).Rows(iCount).Item("DisplayFieldName"))
|
|
Next
|
|
If dsSortOrder.Tables(0).Rows.Count > 0 Then
|
|
Me.lbSortfields.SelectedIndex = 0
|
|
End If
|
|
LBSort.SelectedIndex = 0
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub frmSortSelect_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
Try
|
|
Globals.WinPos.Set_Position(Me)
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region " Data Funktionen "
|
|
|
|
|
|
|
|
Private Sub FillProperty()
|
|
'===============================================================================
|
|
'Desc : Füllen der Property DislpayResult & NavigationResult
|
|
'Erstellt : koe 10.11.2003
|
|
'Geaendert :
|
|
'===============================================================================
|
|
Dim iCount As Integer
|
|
Dim iCnt As Integer
|
|
Dim sSeperater As String
|
|
Dim sSortOrderDisplay(1) As String
|
|
Dim sSortOrderNavigation(1) As String
|
|
Dim sSortOrderDown As String
|
|
sSortOrderDisplay(0) = " Absteigend "
|
|
sSortOrderDisplay(1) = " Aufdsteigend "
|
|
sSortOrderNavigation(0) = " DESC "
|
|
sSortOrderNavigation(1) = " ASC "
|
|
m_sNavigationResult = "ORDER BY "
|
|
|
|
sSeperater = ""
|
|
|
|
|
|
Dim splitter
|
|
For iCount = 0 To Me.LBSelect.Items.Count - 1
|
|
splitter = Microsoft.VisualBasic.Split(Me.LBSelect.Items.Item(iCount), " | ")
|
|
For iCnt = 0 To Me.dsSortOrder.Tables(0).Rows.Count - 1
|
|
If splitter(0) = dsSortOrder.Tables(0).Rows(iCnt).Item("DisplayFieldName") Then
|
|
m_sDislpayResult = m_sDislpayResult & sSeperater & dsSortOrder.Tables(0).Rows(iCnt).Item("DisplayFieldName") & " " & splitter(1)
|
|
Select Case splitter(1)
|
|
Case "Absteigend"
|
|
m_sNavigationResult = m_sNavigationResult & sSeperater & dsSortOrder.Tables(0).Rows(iCnt).Item("ReportFieldName") & " DESC"
|
|
Case "Aufsteigend"
|
|
m_sNavigationResult = m_sNavigationResult & sSeperater & dsSortOrder.Tables(0).Rows(iCnt).Item("ReportFieldName") & " ASC"
|
|
End Select
|
|
sSeperater = ", "
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
|
|
Next
|
|
'Insertitem(Me.lbSortfields, splitter(0))
|
|
'Me.LBSelect.Items.RemoveAt(Me.LBSelect.SelectedIndex)
|
|
|
|
'With grdSortOrderUser
|
|
' Try
|
|
' .AllowAddNew = False
|
|
' If .Splits(0).Rows.Count = 0 Then
|
|
' m_sNavigationResult = ""
|
|
' End If
|
|
' For iCount = 0 To .Splits(0).Rows.Count - 1
|
|
' m_sDislpayResult = m_sDislpayResult & sSeperater & .Columns("DisplayFieldName").CellValue(iCount) & sSortOrderDisplay(Abs(CInt(.Columns("Aufsteigend").CellValue(iCount))))
|
|
' m_sNavigationResult = m_sNavigationResult & sSeperater & .Columns("ReportFieldName").CellValue(iCount) & sSortOrderNavigation(Abs(CInt(.Columns("Aufsteigend").CellValue(iCount))))
|
|
' sSeperater = ", "
|
|
' Next
|
|
' Catch ex As Exception
|
|
' MsgBox(ex.Message)
|
|
' End Try
|
|
'End With
|
|
'ORDER BY Partner.NRPAR00, Partner.BKPAR00, dokumenttyp.bezeichnung, dokument.erstelltam, dokument.mutiertam, dokument_status.bezeichnung DESC
|
|
Select Case m_sDatenherkunft
|
|
Case Else
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region " Extra Funktionen "
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
|
|
Private Sub Insertitem(ByVal lb As ListBox, ByVal s As String)
|
|
Dim i As Integer
|
|
Dim inserted As Boolean = False
|
|
For i = 0 To lb.Items.Count - 1
|
|
lb.SelectedIndex = i
|
|
If s > lb.SelectedItem And Not inserted Then
|
|
lb.Items.Insert(i, s)
|
|
inserted = True
|
|
End If
|
|
Next
|
|
If Not inserted Then lb.Items.Insert(i, s)
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub mnuUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuUp.Click
|
|
Dim i As Integer
|
|
Dim s As String
|
|
Try
|
|
i = LBSelect.SelectedIndex
|
|
s = LBSelect.SelectedItem
|
|
If i > 0 Then
|
|
LBSelect.Items.RemoveAt(i)
|
|
LBSelect.Items.Insert(i - 1, s)
|
|
LBSelect.SelectedIndex = i - 1
|
|
End If
|
|
Catch
|
|
End Try
|
|
'changes = True
|
|
|
|
End Sub
|
|
|
|
Private Sub mnuDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDown.Click
|
|
Dim i As Integer
|
|
Dim s As String
|
|
Try
|
|
i = LBSelect.SelectedIndex
|
|
s = LBSelect.SelectedItem
|
|
If i < LBSelect.Items.Count - 1 Then
|
|
LBSelect.Items.RemoveAt(i)
|
|
LBSelect.Items.Insert(i + 1, s)
|
|
LBSelect.SelectedIndex = i + 1
|
|
End If
|
|
'changes = True
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub mnuSortOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSortOrder.Click
|
|
Dim s, s1 As String
|
|
Dim splitter
|
|
Try
|
|
s = LBSelect.SelectedItem
|
|
splitter = Microsoft.VisualBasic.Split(s, " | ")
|
|
Select Case splitter(1)
|
|
Case "Absteigend"
|
|
s1 = "Aufsteigend"
|
|
Case "Aufsteigend"
|
|
s1 = "Absteigend"
|
|
Case Else
|
|
s1 = "Aufsteigend"
|
|
End Select
|
|
s = splitter(0) + " | " + s1
|
|
i = LBSelect.SelectedIndex
|
|
LBSelect.SelectedIndex = i
|
|
LBSelect.Items.RemoveAt(i)
|
|
LBSelect.Items.Insert(i, s)
|
|
Catch
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub AddToSelected()
|
|
Try
|
|
If lbSortfields.SelectedItems.Count > 0 Then
|
|
|
|
' If lbSortfields.Items.Count > 0 Then
|
|
Me.LBSelect.Items.Add(Me.lbSortfields.SelectedItem + " | " + Me.LBSort.SelectedItem)
|
|
Me.lbSortfields.Items.RemoveAt(Me.lbSortfields.SelectedIndex)
|
|
End If
|
|
If lbSortfields.Items.Count > 0 Then
|
|
lbSortfields.SelectedIndex = 0
|
|
End If
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub DeleteFromSelected()
|
|
Dim splitter
|
|
Try
|
|
If LBSelect.SelectedItems.Count > 0 Then
|
|
|
|
'If LBSelect.Items.Count > 0 Then
|
|
splitter = Microsoft.VisualBasic.Split(Me.LBSelect.SelectedItem, " | ")
|
|
Insertitem(Me.lbSortfields, splitter(0))
|
|
Me.LBSelect.Items.RemoveAt(Me.LBSelect.SelectedIndex)
|
|
End If
|
|
If LBSelect.Items.Count > 0 Then
|
|
LBSelect.SelectedIndex = 0
|
|
End If
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub mnuDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDelete.Click
|
|
DeleteFromSelected()
|
|
End Sub
|
|
|
|
|
|
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
|
Select Case e.Button.Tag
|
|
Case "Abbrechen"
|
|
Me.DialogResult = DialogResult.Cancel
|
|
Me.Close()
|
|
Case "Speichern"
|
|
FillProperty()
|
|
Me.DialogResult = DialogResult.OK
|
|
Me.Close()
|
|
End Select
|
|
End Sub
|
|
Private Sub Button11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button11.Click
|
|
AddToSelected()
|
|
End Sub
|
|
|
|
Private Sub lbSortfields_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbSortfields.DoubleClick
|
|
Button11_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub LBSelect_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBSelect.DoubleClick
|
|
DeleteFromSelected()
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub LBSort_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBSort.DoubleClick
|
|
Button11_Click(sender, e)
|
|
End Sub
|
|
End Class
|