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 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" ' 'dsSortOrder ' Me.dsSortOrder.DataSetName = "NewDataSet" ' '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