Initial
This commit is contained in:
764
EDOKA/Utils/frmSortSelect.vb
Normal file
764
EDOKA/Utils/frmSortSelect.vb
Normal file
@@ -0,0 +1,764 @@
|
||||
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
|
||||
Reference in New Issue
Block a user