Initial
This commit is contained in:
394
Backup/EDOKA/Reporting/clsReporting_Dokumenttyp.vb
Normal file
394
Backup/EDOKA/Reporting/clsReporting_Dokumenttyp.vb
Normal file
@@ -0,0 +1,394 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'Reporting_Dokumenttyp'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Donnerstag, 30. Januar 2003, 20:31:17
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Imports UtilityLibrary.Win32
|
||||
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'Reporting_Dokumenttyp'.
|
||||
' /// </summary>
|
||||
Public Class clsReporting_Dokumenttyp
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_dokumentname As String
|
||||
Private m_dokumentid As String
|
||||
Private m_bUsed As SqlBoolean
|
||||
Private m_iType As SqlInt32
|
||||
Private m_sDEFFELD, m_sDEFDESC, m_sDEFVALUE, m_sOFBM, m_sID, m_sOFFeld, m_sDEFBME, m_sDEFBMB As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Property Dokumentname() As String
|
||||
Get
|
||||
Return m_dokumentname
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_dokumentname = Value
|
||||
End Set
|
||||
End Property
|
||||
Property DokumentID() As String
|
||||
Get
|
||||
Return m_dokumentid
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_dokumentid = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property [sID]() As SqlString
|
||||
Get
|
||||
Return m_sID
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sOFBM]() As SqlString
|
||||
Get
|
||||
Return m_sOFBM
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sOFBM = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sOFFeld]() As SqlString
|
||||
Get
|
||||
Return m_sOFFeld
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sOFFeld = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDEFBMB]() As SqlString
|
||||
Get
|
||||
Return m_sDEFBMB
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDEFBMB = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDEFBME]() As SqlString
|
||||
Get
|
||||
Return m_sDEFBME
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDEFBME = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDEFFELD]() As SqlString
|
||||
Get
|
||||
Return m_sDEFFELD
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDEFFELD = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDEFDESC]() As SqlString
|
||||
Get
|
||||
Return m_sDEFDESC
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDEFDESC = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sDEFVALUE]() As SqlString
|
||||
Get
|
||||
Return m_sDEFVALUE
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sDEFVALUE = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iType]() As SqlInt32
|
||||
Get
|
||||
Return m_iType
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bUsed]() As SqlBoolean
|
||||
Get
|
||||
Return m_bUsed
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bUsed = Value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
#Region "Save Reportdocument To DB"
|
||||
|
||||
Public Function Save_To_DB(ByVal sDokumentID As String, ByVal sDokumentName As String, ByVal DokumentSpaltenname As String, ByVal RowIndex As Integer) As Boolean
|
||||
'===============================================================================
|
||||
'Beschr: Einlesen eines Reportfile in die Datenbank
|
||||
'Input : Dataset
|
||||
' DokumentNr = Identifikation des Dokument
|
||||
' Dokumentname(inkl.Pfad)
|
||||
' DokumentSpaltenname = Spaltenname für das Dokunent
|
||||
' RowIndex = aktuelle Datasetreihe
|
||||
'Output: True/False
|
||||
'Erstellt : koe 20.10.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Try
|
||||
Me.DokumentID = sDokumentID
|
||||
Me.Dokumentname = sDokumentName
|
||||
|
||||
Dim Connection As New SqlConnection()
|
||||
Dim DA As New SqlDataAdapter("select * from report where reportNr= " + sDokumentID, Connection)
|
||||
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||
Dim ds As New DataSet()
|
||||
Dim fs As New FileStream(sDokumentName, FileMode.OpenOrCreate, FileAccess.Read)
|
||||
Dim mydata(fs.Length) As Byte
|
||||
|
||||
|
||||
Try
|
||||
Globals.PerfMon.insert_entry(Me.DokumentID + " ---- Dokument von Filesystem lesen")
|
||||
fs.Read(mydata, 0, fs.Length)
|
||||
fs.Close()
|
||||
Connection.ConnectionString = Globals.sConnectionString
|
||||
Connection.Open()
|
||||
DA.Fill(ds, "docs")
|
||||
Dim myRow As DataRow
|
||||
If ds.Tables(0).Rows.Count = 0 Then
|
||||
' Neues Dokument speichern
|
||||
myRow = ds.Tables(0).NewRow
|
||||
myRow.Item(0) = Me.DokumentID
|
||||
myRow.Item(1) = mydata
|
||||
ds.Tables(0).Rows.Add(myRow)
|
||||
DA.Update(ds, "docs")
|
||||
Globals.PerfMon.insert_entry(Me.DokumentID + " ---- Neues Dokument gespeichert")
|
||||
Else
|
||||
'Bestehendes Dokument sichenr
|
||||
myRow = ds.Tables("docs").Rows(0)
|
||||
myRow.Item("reportfile") = mydata
|
||||
DA.Update(ds, "docs")
|
||||
Globals.PerfMon.insert_entry(Me.DokumentID + " ---- Bestehendes Dokument ersetzt")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Globals.PerfMon.insert_entry(Me.DokumentID + " ---- Fehler bei der Dokumentspeicherung")
|
||||
MyMsg.show_standardmessage(86, MsgBoxStyle.Critical)
|
||||
' MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
fs = Nothing
|
||||
cb = Nothing
|
||||
ds = Nothing
|
||||
DA = Nothing
|
||||
|
||||
Connection.Close()
|
||||
Connection = Nothing
|
||||
Return True
|
||||
Catch
|
||||
Globals.PerfMon.insert_entry(Me.DokumentID + " ---- Fehler bei der Dokumentspeicherung")
|
||||
MyMsg.show_standardmessage(86, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
'---------------------------------------------------------------------------------------
|
||||
'Me.DokumentID = sDokumentID
|
||||
'Me.Dokumentname = sDokumentName
|
||||
'Dim fs As New FileStream(Me.Dokumentname, FileMode.OpenOrCreate, FileAccess.Read)
|
||||
'Dim mydata(fs.Length) As Byte
|
||||
'Try
|
||||
' '============ Dokument von Filesystem lesen
|
||||
' Globals.PerfMon.insert_entry(Me.DokumentID + " ---- Report von Filesystem lesen")
|
||||
' fs.Read(mydata, 0, fs.Length)
|
||||
' fs.Close()
|
||||
' Dim myRow As DataRow
|
||||
|
||||
' '============ Dokument speichern
|
||||
' ds.Tables(0).Rows(RowIndex).Item(DokumentSpaltenname) = mydata
|
||||
' Globals.PerfMon.insert_entry(Me.DokumentID + " ---- Neuer Report gespeichert")
|
||||
'Catch ex As Exception
|
||||
' Globals.PerfMon.insert_entry(Me.DokumentID + " ---- Fehler bei der Reportspeicherung")
|
||||
' MyMsg.show_standardmessage(86, MsgBoxStyle.Critical)
|
||||
' Return False
|
||||
'End Try
|
||||
'fs = Nothing
|
||||
''ds = Nothing
|
||||
'Return True
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Get Reportdocument From DB"
|
||||
Public Function Get_DocumentFrom_DB(ByVal DokumentIDSpaltenname As String, ByVal DokumentID As String, ByVal Tabellenname As String, ByVal DokumentSpaltenname As String, ByVal DokumentePfad As String, ByVal DokumentenName As String) As Boolean
|
||||
'===============================================================================
|
||||
'Beschr: Liest ein Dokument aus der Datenbank und speichert die auf den Fileserver
|
||||
' Ein bestehendes File wird überschrieben
|
||||
'Input : DokumentIDSpaltenname = Spalte für die Identifikation des Dokument
|
||||
' DokumentID = Eindeutige Identifikation des Dokument
|
||||
' Tabellenname = Tabell in der das File gespeichert ist
|
||||
' Spaltenname = Spaltenname in der das Dokument gespeichert ist
|
||||
' Dokumentenname = Name des Dokumentes inkl. Pfadangaben
|
||||
'Output: Speicherung erfolgreich True/False
|
||||
'Erstellt : koe 20.10.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Me.DokumentID = DokumentID
|
||||
Me.Dokumentname = DokumentenName
|
||||
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select * From " & Tabellenname & " where " & DokumentIDSpaltenname & " = '" + Me.DokumentID + "'", connection)
|
||||
Dim ds As New DataSet()
|
||||
|
||||
'===============================================================================
|
||||
'Verzeichnisprüffung
|
||||
'===============================================================================
|
||||
Try
|
||||
If Right(DokumentePfad, 1) <> "\" Then
|
||||
DokumentePfad = DokumentePfad & "\"
|
||||
End If
|
||||
If Not System.IO.Directory.Exists(DokumentePfad) Then
|
||||
System.IO.Directory.CreateDirectory(DokumentePfad)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show("Vereichnis " & DokumentePfad & " kann nicht hergestellt werden!", "Verzeichnis", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
|
||||
Try
|
||||
'Connectionstring zur Datenbank
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.Fill(ds, "Dokument")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
MyData = myRow.Item(DokumentSpaltenname)
|
||||
Dim lCnt As Long
|
||||
lCnt = UBound(MyData)
|
||||
Dim fs As New FileStream(DokumentePfad & DokumentenName, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, lCnt)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
'If Not DivFnkt.isbck(Me.DokumentID) Then
|
||||
'MyMsg.show_standardmessage(93, MsgBoxStyle.Critical)
|
||||
'End If
|
||||
Return False
|
||||
End Try
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function Get_From_DB(ByVal sDokumentID As String, ByVal sDokumentName As String) As Boolean
|
||||
Me.DokumentID = sDokumentID
|
||||
Me.Dokumentname = sDokumentName
|
||||
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select * From doks where DokumentID='" + Me.DokumentID + "'", connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
|
||||
Try
|
||||
'Connectionstring zur Datenbank
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.Fill(ds, "docs")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
MyData = myRow.Item(1)
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Dim fs As New FileStream(sDokumentName, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Catch ex As Exception
|
||||
If Not DivFnkt.isbck(Me.DokumentID) Then
|
||||
MyMsg.show_standardmessage(93, MsgBoxStyle.Critical)
|
||||
End If
|
||||
Return False
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function Get_layout_from_DB(ByVal profilnr As Integer, ByVal sdokumentname As String) As String
|
||||
Me.Dokumentname = LTrim(Str(profilnr)) + ".lyt"
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select * From profillayout where profilnr=" + Str(profilnr), connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.Fill(ds, "docs")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
If Right(sdokumentname, 8) = "HOST.lyt" Then
|
||||
MyData = myRow.Item(2)
|
||||
Else
|
||||
MyData = myRow.Item(1)
|
||||
End If
|
||||
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Dim fs As New FileStream(sdokumentname, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
Return True
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
214
Backup/EDOKA/Reporting/frmDatumSelect.resx
Normal file
214
Backup/EDOKA/Reporting/frmDatumSelect.resx
Normal file
@@ -0,0 +1,214 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="cboAnzTageBis.DataSource" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAE5TeXN0ZW0uRGF0YSwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJl
|
||||
PW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAABVTeXN0ZW0uRGF0YS5E
|
||||
YXRhVGFibGUDAAAAGURhdGFUYWJsZS5SZW1vdGluZ1ZlcnNpb24JWG1sU2NoZW1hC1htbERpZmZHcmFt
|
||||
AwEBDlN5c3RlbS5WZXJzaW9uAgAAAAkDAAAABgQAAAD1Azw/eG1sIHZlcnNpb249IjEuMCIgZW5jb2Rp
|
||||
bmc9InV0Zi0xNiI/Pg0KPHhzOnNjaGVtYSB4bWxucz0iIiB4bWxuczp4cz0iaHR0cDovL3d3dy53My5v
|
||||
cmcvMjAwMS9YTUxTY2hlbWEiIHhtbG5zOm1zZGF0YT0idXJuOnNjaGVtYXMtbWljcm9zb2Z0LWNvbTp4
|
||||
bWwtbXNkYXRhIj4NCiAgPHhzOmVsZW1lbnQgbmFtZT0iVGFibGUxIj4NCiAgICA8eHM6Y29tcGxleFR5
|
||||
cGU+DQogICAgPC94czpjb21wbGV4VHlwZT4NCiAgPC94czplbGVtZW50Pg0KICA8eHM6ZWxlbWVudCBu
|
||||
YW1lPSJ0bXBEYXRhU2V0IiBtc2RhdGE6SXNEYXRhU2V0PSJ0cnVlIiBtc2RhdGE6TWFpbkRhdGFUYWJs
|
||||
ZT0iVGFibGUxIiBtc2RhdGE6VXNlQ3VycmVudExvY2FsZT0idHJ1ZSI+DQogICAgPHhzOmNvbXBsZXhU
|
||||
eXBlPg0KICAgICAgPHhzOmNob2ljZSBtaW5PY2N1cnM9IjAiIG1heE9jY3Vycz0idW5ib3VuZGVkIiAv
|
||||
Pg0KICAgIDwveHM6Y29tcGxleFR5cGU+DQogIDwveHM6ZWxlbWVudD4NCjwveHM6c2NoZW1hPgYFAAAA
|
||||
gAE8ZGlmZmdyOmRpZmZncmFtIHhtbG5zOm1zZGF0YT0idXJuOnNjaGVtYXMtbWljcm9zb2Z0LWNvbTp4
|
||||
bWwtbXNkYXRhIiB4bWxuczpkaWZmZ3I9InVybjpzY2hlbWFzLW1pY3Jvc29mdC1jb206eG1sLWRpZmZn
|
||||
cmFtLXYxIiAvPgQDAAAADlN5c3RlbS5WZXJzaW9uBAAAAAZfTWFqb3IGX01pbm9yBl9CdWlsZAlfUmV2
|
||||
aXNpb24AAAAACAgICAIAAAAAAAAA//////////8L
|
||||
</value>
|
||||
</data>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="cboAnzTageBis.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="cboAnzTageBis.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1List.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style3{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style4{}Style10{}EvenRow{BackColor:Aqua;}Style11{}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{AlignHorz:Near;}Style2{}Normal{BackColor:HighlightText;}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}</Data></Styles><Splits><C1.Win.C1List.ListBoxView AllowColSelect="False" Name="Split[0,0]" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><ClientRect>0, 0, 96, 198</ClientRect><Height>198</Height><BorderSide>Right</BorderSide><VScrollBar><Width>17</Width></VScrollBar><HScrollBar><Height>17</Height></HScrollBar><CaptionStyle parent="Style2" me="Style9" /><EvenRowStyle parent="EvenRow" me="Style7" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style11" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style6" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style8" /><RecordSelectorStyle parent="RecordSelector" me="Style10" /><SelectedStyle parent="Selected" me="Style5" /><Style parent="" me="Normal" /></C1.Win.C1List.ListBoxView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth></Blob></value>
|
||||
</data>
|
||||
<data name="cboAnzTageVon.DataSource" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAE5TeXN0ZW0uRGF0YSwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJl
|
||||
PW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAABVTeXN0ZW0uRGF0YS5E
|
||||
YXRhVGFibGUDAAAAGURhdGFUYWJsZS5SZW1vdGluZ1ZlcnNpb24JWG1sU2NoZW1hC1htbERpZmZHcmFt
|
||||
AwEBDlN5c3RlbS5WZXJzaW9uAgAAAAkDAAAABgQAAAD1Azw/eG1sIHZlcnNpb249IjEuMCIgZW5jb2Rp
|
||||
bmc9InV0Zi0xNiI/Pg0KPHhzOnNjaGVtYSB4bWxucz0iIiB4bWxuczp4cz0iaHR0cDovL3d3dy53My5v
|
||||
cmcvMjAwMS9YTUxTY2hlbWEiIHhtbG5zOm1zZGF0YT0idXJuOnNjaGVtYXMtbWljcm9zb2Z0LWNvbTp4
|
||||
bWwtbXNkYXRhIj4NCiAgPHhzOmVsZW1lbnQgbmFtZT0iVGFibGUxIj4NCiAgICA8eHM6Y29tcGxleFR5
|
||||
cGU+DQogICAgPC94czpjb21wbGV4VHlwZT4NCiAgPC94czplbGVtZW50Pg0KICA8eHM6ZWxlbWVudCBu
|
||||
YW1lPSJ0bXBEYXRhU2V0IiBtc2RhdGE6SXNEYXRhU2V0PSJ0cnVlIiBtc2RhdGE6TWFpbkRhdGFUYWJs
|
||||
ZT0iVGFibGUxIiBtc2RhdGE6VXNlQ3VycmVudExvY2FsZT0idHJ1ZSI+DQogICAgPHhzOmNvbXBsZXhU
|
||||
eXBlPg0KICAgICAgPHhzOmNob2ljZSBtaW5PY2N1cnM9IjAiIG1heE9jY3Vycz0idW5ib3VuZGVkIiAv
|
||||
Pg0KICAgIDwveHM6Y29tcGxleFR5cGU+DQogIDwveHM6ZWxlbWVudD4NCjwveHM6c2NoZW1hPgYFAAAA
|
||||
gAE8ZGlmZmdyOmRpZmZncmFtIHhtbG5zOm1zZGF0YT0idXJuOnNjaGVtYXMtbWljcm9zb2Z0LWNvbTp4
|
||||
bWwtbXNkYXRhIiB4bWxuczpkaWZmZ3I9InVybjpzY2hlbWFzLW1pY3Jvc29mdC1jb206eG1sLWRpZmZn
|
||||
cmFtLXYxIiAvPgQDAAAADlN5c3RlbS5WZXJzaW9uBAAAAAZfTWFqb3IGX01pbm9yBl9CdWlsZAlfUmV2
|
||||
aXNpb24AAAAACAgICAIAAAAAAAAA//////////8L
|
||||
</value>
|
||||
</data>
|
||||
<data name="cboAnzTageVon.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="cboAnzTageVon.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1List.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style9{AlignHorz:Near;}Style3{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style4{}EvenRow{BackColor:Aqua;}Style11{}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style10{}Style2{}Normal{BackColor:HighlightText;}Style7{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}</Data></Styles><Splits><C1.Win.C1List.ListBoxView AllowColSelect="False" Name="Split[0,0]" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><ClientRect>0, 0, 96, 198</ClientRect><Height>198</Height><BorderSide>Right</BorderSide><VScrollBar><Width>17</Width></VScrollBar><HScrollBar><Height>17</Height></HScrollBar><CaptionStyle parent="Style2" me="Style9" /><EvenRowStyle parent="EvenRow" me="Style7" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style11" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style6" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style8" /><RecordSelectorStyle parent="RecordSelector" me="Style10" /><SelectedStyle parent="Selected" me="Style5" /><Style parent="" me="Normal" /></C1.Win.C1List.ListBoxView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth></Blob></value>
|
||||
</data>
|
||||
<data name="cboDateRange.DataSource" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAE5TeXN0ZW0uRGF0YSwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJl
|
||||
PW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAABVTeXN0ZW0uRGF0YS5E
|
||||
YXRhVGFibGUDAAAAGURhdGFUYWJsZS5SZW1vdGluZ1ZlcnNpb24JWG1sU2NoZW1hC1htbERpZmZHcmFt
|
||||
AwEBDlN5c3RlbS5WZXJzaW9uAgAAAAkDAAAABgQAAAD1Azw/eG1sIHZlcnNpb249IjEuMCIgZW5jb2Rp
|
||||
bmc9InV0Zi0xNiI/Pg0KPHhzOnNjaGVtYSB4bWxucz0iIiB4bWxuczp4cz0iaHR0cDovL3d3dy53My5v
|
||||
cmcvMjAwMS9YTUxTY2hlbWEiIHhtbG5zOm1zZGF0YT0idXJuOnNjaGVtYXMtbWljcm9zb2Z0LWNvbTp4
|
||||
bWwtbXNkYXRhIj4NCiAgPHhzOmVsZW1lbnQgbmFtZT0iVGFibGUxIj4NCiAgICA8eHM6Y29tcGxleFR5
|
||||
cGU+DQogICAgPC94czpjb21wbGV4VHlwZT4NCiAgPC94czplbGVtZW50Pg0KICA8eHM6ZWxlbWVudCBu
|
||||
YW1lPSJ0bXBEYXRhU2V0IiBtc2RhdGE6SXNEYXRhU2V0PSJ0cnVlIiBtc2RhdGE6TWFpbkRhdGFUYWJs
|
||||
ZT0iVGFibGUxIiBtc2RhdGE6VXNlQ3VycmVudExvY2FsZT0idHJ1ZSI+DQogICAgPHhzOmNvbXBsZXhU
|
||||
eXBlPg0KICAgICAgPHhzOmNob2ljZSBtaW5PY2N1cnM9IjAiIG1heE9jY3Vycz0idW5ib3VuZGVkIiAv
|
||||
Pg0KICAgIDwveHM6Y29tcGxleFR5cGU+DQogIDwveHM6ZWxlbWVudD4NCjwveHM6c2NoZW1hPgYFAAAA
|
||||
gAE8ZGlmZmdyOmRpZmZncmFtIHhtbG5zOm1zZGF0YT0idXJuOnNjaGVtYXMtbWljcm9zb2Z0LWNvbTp4
|
||||
bWwtbXNkYXRhIiB4bWxuczpkaWZmZ3I9InVybjpzY2hlbWFzLW1pY3Jvc29mdC1jb206eG1sLWRpZmZn
|
||||
cmFtLXYxIiAvPgQDAAAADlN5c3RlbS5WZXJzaW9uBAAAAAZfTWFqb3IGX01pbm9yBl9CdWlsZAlfUmV2
|
||||
aXNpb24AAAAACAgICAIAAAAAAAAA//////////8L
|
||||
</value>
|
||||
</data>
|
||||
<data name="cboDateRange.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="cboDateRange.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1List.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style3{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style4{}Style10{}EvenRow{BackColor:Aqua;}Style11{}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{AlignHorz:Near;}Style2{}Normal{BackColor:HighlightText;}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}</Data></Styles><Splits><C1.Win.C1List.ListBoxView AllowColSelect="False" Name="Split[0,0]" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><ClientRect>0, 0, 116, 156</ClientRect><Height>156</Height><BorderSide>Right</BorderSide><VScrollBar><Width>17</Width></VScrollBar><HScrollBar><Height>17</Height></HScrollBar><CaptionStyle parent="Style2" me="Style9" /><EvenRowStyle parent="EvenRow" me="Style7" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style11" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style6" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style8" /><RecordSelectorStyle parent="RecordSelector" me="Style10" /><SelectedStyle parent="Selected" me="Style5" /><Style parent="" me="Normal" /></C1.Win.C1List.ListBoxView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
835
Backup/EDOKA/Reporting/frmDatumSelect.vb
Normal file
835
Backup/EDOKA/Reporting/frmDatumSelect.vb
Normal file
@@ -0,0 +1,835 @@
|
||||
Public Class frmDatumSelect
|
||||
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 lbl As System.Windows.Forms.Label
|
||||
Friend WithEvents cboAnzTageBis As C1.Win.C1List.C1Combo
|
||||
Friend WithEvents cboAnzTageVon As C1.Win.C1List.C1Combo
|
||||
Friend WithEvents cboDateRange As C1.Win.C1List.C1Combo
|
||||
Friend WithEvents dpBis As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents dpVon As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents lblAuswahlVon As System.Windows.Forms.Label
|
||||
Friend WithEvents lblAuswahlBis As System.Windows.Forms.Label
|
||||
Friend WithEvents lblVonDatum As System.Windows.Forms.Label
|
||||
Friend WithEvents lblBisDatum As System.Windows.Forms.Label
|
||||
Friend WithEvents cmdCancel As System.Windows.Forms.Button
|
||||
Friend WithEvents cmdOK As System.Windows.Forms.Button
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Dim Style1 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDatumSelect))
|
||||
Dim Style2 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style3 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style4 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style5 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style6 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style7 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style8 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style9 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style10 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style11 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style12 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style13 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style14 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style15 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style16 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style17 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style18 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style19 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style20 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style21 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style22 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style23 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Dim Style24 As C1.Win.C1List.Style = New C1.Win.C1List.Style
|
||||
Me.lbl = New System.Windows.Forms.Label
|
||||
Me.cboAnzTageBis = New C1.Win.C1List.C1Combo
|
||||
Me.cboAnzTageVon = New C1.Win.C1List.C1Combo
|
||||
Me.cboDateRange = New C1.Win.C1List.C1Combo
|
||||
Me.dpBis = New System.Windows.Forms.DateTimePicker
|
||||
Me.dpVon = New System.Windows.Forms.DateTimePicker
|
||||
Me.lblAuswahlVon = New System.Windows.Forms.Label
|
||||
Me.lblAuswahlBis = New System.Windows.Forms.Label
|
||||
Me.lblVonDatum = New System.Windows.Forms.Label
|
||||
Me.lblBisDatum = New System.Windows.Forms.Label
|
||||
Me.cmdCancel = New System.Windows.Forms.Button
|
||||
Me.cmdOK = New System.Windows.Forms.Button
|
||||
CType(Me.cboAnzTageBis, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cboAnzTageVon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cboDateRange, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'lbl
|
||||
'
|
||||
Me.lbl.Location = New System.Drawing.Point(18, 11)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(80, 16)
|
||||
Me.lbl.TabIndex = 80
|
||||
Me.lbl.Text = "Datumbereich"
|
||||
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'cboAnzTageBis
|
||||
'
|
||||
Me.cboAnzTageBis.AddItemSeparator = Global.Microsoft.VisualBasic.ChrW(59)
|
||||
Me.cboAnzTageBis.Caption = ""
|
||||
Me.cboAnzTageBis.CaptionHeight = 17
|
||||
Me.cboAnzTageBis.CaptionStyle = Style1
|
||||
Me.cboAnzTageBis.CaptionVisible = False
|
||||
Me.cboAnzTageBis.CharacterCasing = System.Windows.Forms.CharacterCasing.Normal
|
||||
Me.cboAnzTageBis.ColumnCaptionHeight = 17
|
||||
Me.cboAnzTageBis.ColumnFooterHeight = 17
|
||||
Me.cboAnzTageBis.ColumnHeaders = False
|
||||
Me.cboAnzTageBis.ContentHeight = 15
|
||||
Me.cboAnzTageBis.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.cboAnzTageBis.DataMode = C1.Win.C1List.DataModeEnum.AddItem
|
||||
Me.cboAnzTageBis.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.cboAnzTageBis.EditorBackColor = System.Drawing.SystemColors.Window
|
||||
Me.cboAnzTageBis.EditorFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
|
||||
Me.cboAnzTageBis.EditorForeColor = System.Drawing.SystemColors.WindowText
|
||||
Me.cboAnzTageBis.EditorHeight = 15
|
||||
Me.cboAnzTageBis.EvenRowStyle = Style2
|
||||
Me.cboAnzTageBis.FooterStyle = Style3
|
||||
Me.cboAnzTageBis.HeadingStyle = Style4
|
||||
Me.cboAnzTageBis.HighLightRowStyle = Style5
|
||||
Me.cboAnzTageBis.Images.Add(CType(resources.GetObject("cboAnzTageBis.Images"), System.Drawing.Image))
|
||||
Me.cboAnzTageBis.ItemHeight = 15
|
||||
Me.cboAnzTageBis.Location = New System.Drawing.Point(296, 32)
|
||||
Me.cboAnzTageBis.MatchEntryTimeout = CType(100, Long)
|
||||
Me.cboAnzTageBis.MaxDropDownItems = CType(5, Short)
|
||||
Me.cboAnzTageBis.MaxLength = 32767
|
||||
Me.cboAnzTageBis.MouseCursor = System.Windows.Forms.Cursors.Default
|
||||
Me.cboAnzTageBis.Name = "cboAnzTageBis"
|
||||
Me.cboAnzTageBis.OddRowStyle = Style6
|
||||
Me.cboAnzTageBis.RowDivider.Color = System.Drawing.Color.DarkGray
|
||||
Me.cboAnzTageBis.RowDivider.Style = C1.Win.C1List.LineStyleEnum.None
|
||||
Me.cboAnzTageBis.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.cboAnzTageBis.SelectedStyle = Style7
|
||||
Me.cboAnzTageBis.Size = New System.Drawing.Size(98, 21)
|
||||
Me.cboAnzTageBis.Style = Style8
|
||||
Me.cboAnzTageBis.TabIndex = 5
|
||||
Me.cboAnzTageBis.TabStop = False
|
||||
Me.cboAnzTageBis.Text = "1"
|
||||
Me.cboAnzTageBis.PropBag = resources.GetString("cboAnzTageBis.PropBag")
|
||||
'
|
||||
'cboAnzTageVon
|
||||
'
|
||||
Me.cboAnzTageVon.AddItemSeparator = Global.Microsoft.VisualBasic.ChrW(59)
|
||||
Me.cboAnzTageVon.Caption = ""
|
||||
Me.cboAnzTageVon.CaptionHeight = 17
|
||||
Me.cboAnzTageVon.CaptionStyle = Style9
|
||||
Me.cboAnzTageVon.CaptionVisible = False
|
||||
Me.cboAnzTageVon.CharacterCasing = System.Windows.Forms.CharacterCasing.Normal
|
||||
Me.cboAnzTageVon.ColumnCaptionHeight = 17
|
||||
Me.cboAnzTageVon.ColumnFooterHeight = 17
|
||||
Me.cboAnzTageVon.ColumnHeaders = False
|
||||
Me.cboAnzTageVon.ContentHeight = 15
|
||||
Me.cboAnzTageVon.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.cboAnzTageVon.DataMode = C1.Win.C1List.DataModeEnum.AddItem
|
||||
Me.cboAnzTageVon.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.cboAnzTageVon.EditorBackColor = System.Drawing.SystemColors.Window
|
||||
Me.cboAnzTageVon.EditorFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
|
||||
Me.cboAnzTageVon.EditorForeColor = System.Drawing.SystemColors.WindowText
|
||||
Me.cboAnzTageVon.EditorHeight = 15
|
||||
Me.cboAnzTageVon.EvenRowStyle = Style10
|
||||
Me.cboAnzTageVon.FooterStyle = Style11
|
||||
Me.cboAnzTageVon.HeadingStyle = Style12
|
||||
Me.cboAnzTageVon.HighLightRowStyle = Style13
|
||||
Me.cboAnzTageVon.Images.Add(CType(resources.GetObject("cboAnzTageVon.Images"), System.Drawing.Image))
|
||||
Me.cboAnzTageVon.ItemHeight = 15
|
||||
Me.cboAnzTageVon.Location = New System.Drawing.Point(296, 8)
|
||||
Me.cboAnzTageVon.MatchEntryTimeout = CType(100, Long)
|
||||
Me.cboAnzTageVon.MaxDropDownItems = CType(5, Short)
|
||||
Me.cboAnzTageVon.MaxLength = 32767
|
||||
Me.cboAnzTageVon.MouseCursor = System.Windows.Forms.Cursors.Default
|
||||
Me.cboAnzTageVon.Name = "cboAnzTageVon"
|
||||
Me.cboAnzTageVon.OddRowStyle = Style14
|
||||
Me.cboAnzTageVon.RowDivider.Color = System.Drawing.Color.DarkGray
|
||||
Me.cboAnzTageVon.RowDivider.Style = C1.Win.C1List.LineStyleEnum.None
|
||||
Me.cboAnzTageVon.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.cboAnzTageVon.SelectedStyle = Style15
|
||||
Me.cboAnzTageVon.Size = New System.Drawing.Size(98, 21)
|
||||
Me.cboAnzTageVon.Style = Style16
|
||||
Me.cboAnzTageVon.TabIndex = 4
|
||||
Me.cboAnzTageVon.Text = "1"
|
||||
Me.cboAnzTageVon.PropBag = resources.GetString("cboAnzTageVon.PropBag")
|
||||
'
|
||||
'cboDateRange
|
||||
'
|
||||
Me.cboDateRange.AddItemSeparator = Global.Microsoft.VisualBasic.ChrW(59)
|
||||
Me.cboDateRange.AutoCompletion = True
|
||||
Me.cboDateRange.AutoDropDown = True
|
||||
Me.cboDateRange.Caption = ""
|
||||
Me.cboDateRange.CaptionHeight = 17
|
||||
Me.cboDateRange.CaptionStyle = Style17
|
||||
Me.cboDateRange.CharacterCasing = System.Windows.Forms.CharacterCasing.Normal
|
||||
Me.cboDateRange.ColumnCaptionHeight = 17
|
||||
Me.cboDateRange.ColumnFooterHeight = 17
|
||||
Me.cboDateRange.ColumnHeaders = False
|
||||
Me.cboDateRange.ContentHeight = 15
|
||||
Me.cboDateRange.Cursor = System.Windows.Forms.Cursors.IBeam
|
||||
Me.cboDateRange.DataMode = C1.Win.C1List.DataModeEnum.AddItem
|
||||
Me.cboDateRange.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.cboDateRange.EditorBackColor = System.Drawing.SystemColors.Window
|
||||
Me.cboDateRange.EditorFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
|
||||
Me.cboDateRange.EditorForeColor = System.Drawing.SystemColors.WindowText
|
||||
Me.cboDateRange.EditorHeight = 15
|
||||
Me.cboDateRange.EvenRowStyle = Style18
|
||||
Me.cboDateRange.FooterStyle = Style19
|
||||
Me.cboDateRange.HeadingStyle = Style20
|
||||
Me.cboDateRange.HighLightRowStyle = Style21
|
||||
Me.cboDateRange.Images.Add(CType(resources.GetObject("cboDateRange.Images"), System.Drawing.Image))
|
||||
Me.cboDateRange.ItemHeight = 15
|
||||
Me.cboDateRange.Location = New System.Drawing.Point(101, 8)
|
||||
Me.cboDateRange.MatchEntryTimeout = CType(100, Long)
|
||||
Me.cboDateRange.MaxDropDownItems = CType(5, Short)
|
||||
Me.cboDateRange.MaxLength = 32767
|
||||
Me.cboDateRange.MouseCursor = System.Windows.Forms.Cursors.Default
|
||||
Me.cboDateRange.Name = "cboDateRange"
|
||||
Me.cboDateRange.OddRowStyle = Style22
|
||||
Me.cboDateRange.RowDivider.Color = System.Drawing.Color.DarkGray
|
||||
Me.cboDateRange.RowDivider.Style = C1.Win.C1List.LineStyleEnum.None
|
||||
Me.cboDateRange.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.cboDateRange.SelectedStyle = Style23
|
||||
Me.cboDateRange.Size = New System.Drawing.Size(167, 21)
|
||||
Me.cboDateRange.Style = Style24
|
||||
Me.cboDateRange.TabIndex = 1
|
||||
Me.cboDateRange.Text = "Von_Bis"
|
||||
Me.cboDateRange.PropBag = resources.GetString("cboDateRange.PropBag")
|
||||
'
|
||||
'dpBis
|
||||
'
|
||||
Me.dpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dpBis.Location = New System.Drawing.Point(101, 71)
|
||||
Me.dpBis.Name = "dpBis"
|
||||
Me.dpBis.Size = New System.Drawing.Size(168, 20)
|
||||
Me.dpBis.TabIndex = 3
|
||||
'
|
||||
'dpVon
|
||||
'
|
||||
Me.dpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dpVon.Location = New System.Drawing.Point(101, 40)
|
||||
Me.dpVon.Name = "dpVon"
|
||||
Me.dpVon.Size = New System.Drawing.Size(168, 20)
|
||||
Me.dpVon.TabIndex = 2
|
||||
'
|
||||
'lblAuswahlVon
|
||||
'
|
||||
Me.lblAuswahlVon.Location = New System.Drawing.Point(18, 39)
|
||||
Me.lblAuswahlVon.Name = "lblAuswahlVon"
|
||||
Me.lblAuswahlVon.Size = New System.Drawing.Size(60, 16)
|
||||
Me.lblAuswahlVon.TabIndex = 75
|
||||
Me.lblAuswahlVon.Text = "Datum von"
|
||||
Me.lblAuswahlVon.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'lblAuswahlBis
|
||||
'
|
||||
Me.lblAuswahlBis.Location = New System.Drawing.Point(18, 72)
|
||||
Me.lblAuswahlBis.Name = "lblAuswahlBis"
|
||||
Me.lblAuswahlBis.Size = New System.Drawing.Size(63, 16)
|
||||
Me.lblAuswahlBis.TabIndex = 74
|
||||
Me.lblAuswahlBis.Text = "Datum bis"
|
||||
Me.lblAuswahlBis.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'lblVonDatum
|
||||
'
|
||||
Me.lblVonDatum.Location = New System.Drawing.Point(273, 43)
|
||||
Me.lblVonDatum.Name = "lblVonDatum"
|
||||
Me.lblVonDatum.Size = New System.Drawing.Size(63, 16)
|
||||
Me.lblVonDatum.TabIndex = 69
|
||||
Me.lblVonDatum.Text = "01.01.2003"
|
||||
Me.lblVonDatum.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'lblBisDatum
|
||||
'
|
||||
Me.lblBisDatum.Location = New System.Drawing.Point(274, 74)
|
||||
Me.lblBisDatum.Name = "lblBisDatum"
|
||||
Me.lblBisDatum.Size = New System.Drawing.Size(63, 16)
|
||||
Me.lblBisDatum.TabIndex = 68
|
||||
Me.lblBisDatum.Text = "31.12.2003"
|
||||
Me.lblBisDatum.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'cmdCancel
|
||||
'
|
||||
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
||||
Me.cmdCancel.Location = New System.Drawing.Point(101, 100)
|
||||
Me.cmdCancel.Name = "cmdCancel"
|
||||
Me.cmdCancel.Size = New System.Drawing.Size(67, 23)
|
||||
Me.cmdCancel.TabIndex = 7
|
||||
Me.cmdCancel.Text = "Abbrechen"
|
||||
'
|
||||
'cmdOK
|
||||
'
|
||||
Me.cmdOK.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||
Me.cmdOK.Location = New System.Drawing.Point(264, 100)
|
||||
Me.cmdOK.Name = "cmdOK"
|
||||
Me.cmdOK.Size = New System.Drawing.Size(67, 23)
|
||||
Me.cmdOK.TabIndex = 6
|
||||
Me.cmdOK.Text = "OK"
|
||||
'
|
||||
'frmDatumSelect
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(410, 138)
|
||||
Me.Controls.Add(Me.lbl)
|
||||
Me.Controls.Add(Me.cboAnzTageVon)
|
||||
Me.Controls.Add(Me.cboDateRange)
|
||||
Me.Controls.Add(Me.dpBis)
|
||||
Me.Controls.Add(Me.dpVon)
|
||||
Me.Controls.Add(Me.lblAuswahlVon)
|
||||
Me.Controls.Add(Me.lblAuswahlBis)
|
||||
Me.Controls.Add(Me.lblVonDatum)
|
||||
Me.Controls.Add(Me.lblBisDatum)
|
||||
Me.Controls.Add(Me.cmdCancel)
|
||||
Me.Controls.Add(Me.cmdOK)
|
||||
Me.Controls.Add(Me.cboAnzTageBis)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Name = "frmDatumSelect"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||
Me.Text = "Datum Selektion"
|
||||
CType(Me.cboAnzTageBis, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cboAnzTageVon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cboDateRange, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Declarationen"
|
||||
Private m_sdatenherkunft As String
|
||||
Private m_sResult As String
|
||||
Private m_dDatumVon As Date
|
||||
Private m_dDatumBis As Date
|
||||
Private m_iAnzahlTageVon As Integer
|
||||
Private m_iAnzahlTageBis As Integer
|
||||
Private m_iLastDayAktuellerMonat As Integer
|
||||
Dim m_sDislpayResult As String
|
||||
Dim m_sNavigationResult As String
|
||||
|
||||
|
||||
Private m_iDatumberich As Enum_Datumbereich
|
||||
Public Enum Enum_Datumbereich
|
||||
Von_Bis = 0
|
||||
Datum_Bis_Heute = 1
|
||||
Tage_Bis_Heute = 2
|
||||
Aktueller_Monat = 3
|
||||
Aktueller_MonatVon_Bis = 4
|
||||
End Enum
|
||||
Public Enum Enum_Filltype
|
||||
Monat = 0
|
||||
Jahr = 1
|
||||
Heute = 2
|
||||
End Enum
|
||||
#End Region
|
||||
|
||||
#Region "Property"
|
||||
Property NavigationResult() As String
|
||||
' Werte dienen für die Steuerung
|
||||
Get
|
||||
Return m_sResult
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_sResult = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property DislpayResult() As String
|
||||
Get
|
||||
m_sDislpayResult = Replace(m_sResult, "BETWEEN", "Zwischen")
|
||||
m_sDislpayResult = Replace(m_sDislpayResult, "AND", "und")
|
||||
Return m_sDislpayResult
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_sDislpayResult = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property Datumsbereich()
|
||||
Get
|
||||
Datumsbereich = m_iDatumberich
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_iDatumberich = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property datenherkunft()
|
||||
Get
|
||||
datenherkunft = m_sdatenherkunft
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
Dim aDatenherkunft() As String
|
||||
m_sdatenherkunft = Value
|
||||
aDatenherkunft = Split(m_sdatenherkunft, ";")
|
||||
m_iLastDayAktuellerMonat = getlastDayInMonth(Now())
|
||||
If UBound(aDatenherkunft) > 0 Then
|
||||
'Struktut des Array
|
||||
'0= Datumbereichtyp 0
|
||||
'1= Anzahl Tage oder Vondatum 1 oder 10.11.2003
|
||||
'2= Text Datumbereich Datum_Bis_Heute
|
||||
'3= Anzahl Tage oderBisDatum 10 oder 10.11.2003
|
||||
m_iDatumberich = aDatenherkunft(0)
|
||||
Select Case m_iDatumberich
|
||||
Case Enum_Datumbereich.Von_Bis
|
||||
m_dDatumVon = aDatenherkunft(1)
|
||||
m_dDatumBis = aDatenherkunft(3)
|
||||
|
||||
Case Enum_Datumbereich.Datum_Bis_Heute
|
||||
m_dDatumVon = aDatenherkunft(1)
|
||||
m_dDatumBis = Format(Now(), "dd.MM.yyyy")
|
||||
|
||||
Case Enum_Datumbereich.Tage_Bis_Heute
|
||||
m_iAnzahlTageVon = aDatenherkunft(1)
|
||||
m_dDatumBis = Format(Now(), "dd.MM.yyyy")
|
||||
|
||||
Case Enum_Datumbereich.Aktueller_Monat
|
||||
m_iAnzahlTageVon = aDatenherkunft(1)
|
||||
m_iAnzahlTageBis = aDatenherkunft(3)
|
||||
|
||||
Case Enum_Datumbereich.Aktueller_MonatVon_Bis
|
||||
m_iAnzahlTageVon = aDatenherkunft(1)
|
||||
If aDatenherkunft(3) = "Letzter Tag" Then
|
||||
m_iAnzahlTageBis = 31
|
||||
End If
|
||||
'm_iAnzahlTageBis = aDatenherkunft(3)
|
||||
If m_iAnzahlTageBis > m_iLastDayAktuellerMonat Then
|
||||
m_iAnzahlTageBis = m_iLastDayAktuellerMonat
|
||||
End If
|
||||
End Select
|
||||
Else
|
||||
m_dDatumVon = Format(Now(), "dd.MM.yyyy")
|
||||
m_dDatumBis = Format(Now(), "dd.MM.yyyy")
|
||||
|
||||
End If
|
||||
|
||||
End Set
|
||||
End Property
|
||||
'Public Property Result()
|
||||
' Get
|
||||
' Result = m_sResult
|
||||
' End Get
|
||||
' Set(ByVal Value)
|
||||
' m_sResult = Value
|
||||
' End Set
|
||||
'End Property
|
||||
#End Region
|
||||
|
||||
#Region "Formularfunktionen"
|
||||
Dim iCnt As Integer
|
||||
|
||||
Private Sub frmDatumSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
m_iLastDayAktuellerMonat = getlastDayInMonth(Now())
|
||||
cboAnzTageVon.Top = dpVon.Top
|
||||
cboAnzTageVon.Left = dpVon.Left
|
||||
cboAnzTageVon.ColumnHeaders = False
|
||||
|
||||
cboAnzTageBis.Top = dpBis.Top
|
||||
cboAnzTageBis.Left = dpBis.Left
|
||||
cboAnzTageBis.ColumnHeaders = False
|
||||
|
||||
cboDateRange.ColumnHeaders = False
|
||||
|
||||
With cboDateRange
|
||||
.AddItem("Von Bis") 'Von Bis
|
||||
.AddItem("Datum Bis Heute") 'vondatum bis Heute
|
||||
.AddItem("Tage Bis Heute") 'Anzahl Tage bis Heute
|
||||
.AddItem("Aktueller Monat") 'Aktueller Monat
|
||||
.AddItem("Aktueller Monat Von Bis") 'Aktueller Monat
|
||||
.SelectedIndex = m_iDatumberich
|
||||
End With
|
||||
ShowGroupBox(m_iDatumberich)
|
||||
Select Case m_iDatumberich
|
||||
Case Enum_Datumbereich.Von_Bis
|
||||
Case Enum_Datumbereich.Datum_Bis_Heute
|
||||
'dpVon.Text = m_dDatumVon
|
||||
Case Enum_Datumbereich.Tage_Bis_Heute
|
||||
cboAnzTageVon.SelectedIndex = m_iAnzahlTageVon
|
||||
dpBis.Text = m_dDatumBis
|
||||
Case Enum_Datumbereich.Aktueller_Monat
|
||||
cboAnzTageVon.SelectedIndex = m_iAnzahlTageVon - 1
|
||||
cboAnzTageBis.SelectedIndex = m_iAnzahlTageBis
|
||||
Case Enum_Datumbereich.Aktueller_MonatVon_Bis
|
||||
cboAnzTageVon.SelectedIndex = m_iAnzahlTageVon - 1
|
||||
cboAnzTageBis.SelectedIndex = m_iAnzahlTageBis
|
||||
End Select
|
||||
GetDatumBis()
|
||||
GetDatumVon()
|
||||
'lblVonDatum.Text = dpVon.Text
|
||||
'lblBisDatum.Text = dpBis.Text
|
||||
cboDateRange.Splits(0).DisplayColumns(0).Width = cboDateRange.Width - 20
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub dpBis_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dpBis.ValueChanged
|
||||
lblBisDatum.Text = dpBis.Text
|
||||
End Sub
|
||||
|
||||
Private Sub dpVon_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dpVon.ValueChanged
|
||||
lblVonDatum.Text = dpVon.Text
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub cboAnzTageVon_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboAnzTageVon.TextChanged
|
||||
GetDatumVon()
|
||||
End Sub
|
||||
|
||||
Private Sub cboAnzTageVon_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cboAnzTageVon.Validating
|
||||
If ValidateComboInput(cboAnzTageVon) = False Then 'Eingabe prüfen
|
||||
MessageBox.Show(MyTxt.gettext(18), "Eingabe von Datum", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
|
||||
'MessageBox.Show("Kein Text der Liste", "Eingabe", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
|
||||
|
||||
e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cboAnzTageVon_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboAnzTageVon.Validated
|
||||
GetDatumVon()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub cboAnzTageBis_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboAnzTageBis.TextChanged
|
||||
GetDatumBis()
|
||||
End Sub
|
||||
|
||||
Private Sub cboAnzTageBis_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cboAnzTageBis.Validating
|
||||
If ValidateComboInput(cboAnzTageBis) = False Then
|
||||
MessageBox.Show(MyTxt.gettext(18), "Eingabe bis Datum", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
|
||||
|
||||
' MessageBox.Show("Kein Text der Liste", "Eingabe", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
|
||||
e.Cancel = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cboAnzTageBis_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboAnzTageBis.Validated
|
||||
GetDatumBis()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
|
||||
'===============================================================================
|
||||
'Desc : Befüllen der Property & Form schliessen
|
||||
'Input :
|
||||
'Kriterium : Selected Datumrange
|
||||
'Updatewert :
|
||||
'Output :
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
m_iDatumberich = cboDateRange.SelectedIndex
|
||||
Select Case cboDateRange.SelectedIndex
|
||||
Case Enum_Datumbereich.Von_Bis
|
||||
m_sdatenherkunft = m_iDatumberich & ";" & dpVon.Text & ";Von_Bis;" & dpBis.Text
|
||||
|
||||
Case Enum_Datumbereich.Datum_Bis_Heute
|
||||
m_sdatenherkunft = m_iDatumberich & ";" & dpVon.Text & ";Datum_Bis_Heute;Heute"
|
||||
|
||||
Case Enum_Datumbereich.Tage_Bis_Heute
|
||||
m_sdatenherkunft = m_iDatumberich & ";" & cboAnzTageVon.Text & ";Tage_Bis_Heute;Heute"
|
||||
|
||||
Case Enum_Datumbereich.Aktueller_Monat
|
||||
m_sdatenherkunft = m_iDatumberich & ";1;AktuellerMonat;0" '0 = Letzer Tag
|
||||
|
||||
Case Enum_Datumbereich.Aktueller_MonatVon_Bis
|
||||
m_sdatenherkunft = m_iDatumberich & ";" & cboAnzTageVon.Text & ";AktuellerMonat;" & cboAnzTageBis.Text
|
||||
End Select
|
||||
|
||||
'm_sResult = "BETWEEN CONVERT(DATETIME, ' " & Format(CDate(lblVonDatum.Text), "yyyy.MM.dd") & "', 102) And CONVERT(DATETIME, ' " & Format(CDate(lblBisDatum.Text), "yyyy.MM.dd 23:59:59") & "', 102) "
|
||||
|
||||
m_sResult = "BETWEEN " & lblVonDatum.Text & " AND " & lblBisDatum.Text
|
||||
'WHERE (mutiert_am BETWEEN CONVERT(DATETIME, '2004-03-01 00:00:00', 102) AND CONVERT(DATETIME, '2004-03-01 23:59:59', 102))
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Div Funktionen"
|
||||
|
||||
Private Sub fillCbo(ByRef cbo As C1.Win.C1List.C1Combo, ByVal Datum As Date, ByVal FillTyp As Enum_Filltype, ByVal inklLetzterTag As Boolean)
|
||||
'===============================================================================
|
||||
'Desc : Füllt das Combo für den aktuellen Filltyp
|
||||
'Input : Combocontrol,Datum, Inkl. Letzter Tag
|
||||
'Kriterium : Inkl. Letzter Tag = Bei einem Monat wird der letzte Tag des Monat gewählt
|
||||
'Updatewert :
|
||||
'Output :
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Dim iCnt As Integer 'Zaehler
|
||||
With cbo
|
||||
.ClearItems()
|
||||
If inklLetzterTag = True Then
|
||||
.AddItem("Letzter Tag")
|
||||
|
||||
End If
|
||||
Select Case FillTyp
|
||||
Case Enum_Filltype.Heute
|
||||
'============ Heute
|
||||
.AddItem("Heute")
|
||||
.SelectedIndex = 0
|
||||
|
||||
Case Enum_Filltype.Jahr
|
||||
'============ Jahr
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
For iCnt = 0 To 366
|
||||
.AddItem(iCnt)
|
||||
Next
|
||||
.SelectedIndex = 0
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
Case Enum_Filltype.Monat
|
||||
'============ Monat
|
||||
For iCnt = 1 To m_iLastDayAktuellerMonat
|
||||
.AddItem(CType(iCnt, String))
|
||||
Next
|
||||
Try
|
||||
.SelectedIndex = 0
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Select
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function ValidateComboInput(ByRef cbo As C1.Win.C1List.C1Combo) As Boolean
|
||||
Dim iFoundIndex As Integer
|
||||
iFoundIndex = cbo.FindStringExact(cbo.Text, 0, 0)
|
||||
If iFoundIndex > -1 Then
|
||||
ValidateComboInput = True
|
||||
Try
|
||||
cbo.SelectedIndex = iFoundIndex
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Else
|
||||
ValidateComboInput = False
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function getlastDayInMonth(ByVal Datum As Date) As Integer
|
||||
'===============================================================================
|
||||
'Desc : Ermittelt den letzten Tag des Monats
|
||||
'Input : Datum
|
||||
'Kriterium :
|
||||
'Updatewert :
|
||||
'Output : Letzter Tag des Monats
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Dim iLastDayNextMonat As Integer
|
||||
Dim iMonat As Integer
|
||||
Dim dDate As Date
|
||||
iMonat = DatePart(DateInterval.Month, Datum, FirstDayOfWeek.Monday)
|
||||
dDate = DateSerial(DatePart(DateInterval.Year, Datum, FirstDayOfWeek.Monday), iMonat + 1, 1)
|
||||
iLastDayNextMonat = DatePart(DateInterval.Day, DateAdd(DateInterval.Day, -1, dDate), FirstDayOfWeek.Monday)
|
||||
|
||||
getlastDayInMonth = iLastDayNextMonat
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub ShowGroupBox(ByVal Auswahltyp As Enum_Datumbereich)
|
||||
'===============================================================================
|
||||
'Desc : Je nach Berichswal werden die entsprechenden Controls angezeigt
|
||||
'Input : Auswahlty
|
||||
'Kriterium :
|
||||
'Updatewert :
|
||||
'Output :
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Try
|
||||
cboAnzTageVon.Visible = False
|
||||
cboAnzTageBis.Visible = False
|
||||
dpVon.Visible = False
|
||||
dpBis.Visible = False
|
||||
dpVon.Enabled = False
|
||||
dpBis.Enabled = False
|
||||
lblAuswahlBis.Visible = True
|
||||
lblAuswahlVon.Visible = True
|
||||
Select Case Auswahltyp
|
||||
Case Enum_Datumbereich.Von_Bis
|
||||
dpVon.Visible = True
|
||||
dpBis.Visible = True
|
||||
dpVon.Enabled = True
|
||||
dpBis.Enabled = True
|
||||
'lblVonDatum.Text = dpVon.Text
|
||||
'lblBisDatum.Text = dpBis.Text
|
||||
Case Enum_Datumbereich.Datum_Bis_Heute
|
||||
fillCbo(cboAnzTageBis, Now(), Enum_Filltype.Heute, False)
|
||||
dpVon.Visible = True
|
||||
dpVon.Enabled = True
|
||||
cboAnzTageBis.Visible = True
|
||||
'lblVonDatum.Text = m_dDatumVon
|
||||
'lblBisDatum.Text = m_dDatumBis
|
||||
|
||||
Case Enum_Datumbereich.Tage_Bis_Heute
|
||||
fillCbo(cboAnzTageVon, Now(), Enum_Filltype.Jahr, False)
|
||||
fillCbo(cboAnzTageBis, Now(), Enum_Filltype.Heute, False)
|
||||
cboAnzTageVon.Visible = True
|
||||
cboAnzTageBis.Visible = True
|
||||
'lblVonDatum.Text = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), DatePart(DateInterval.Day, DateAdd(DateInterval.Day, -cboAnzTageVon.Value, Now()))), "dd.MM.yyyy")
|
||||
'lblBisDatum.Text = Format(Now(), "dd.MM.yyyy")
|
||||
|
||||
Case Enum_Datumbereich.Aktueller_Monat
|
||||
'lblVonDatum.Text = DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), 1)
|
||||
'lblBisDatum.Text = DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), getlastDayInMonth(Now()))
|
||||
fillCbo(cboAnzTageVon, Now(), Enum_Filltype.Heute, False)
|
||||
fillCbo(cboAnzTageBis, Now(), Enum_Filltype.Heute, False)
|
||||
|
||||
dpVon.Visible = True
|
||||
dpBis.Visible = True
|
||||
'lblAuswahlBis.Visible = False
|
||||
'lblAuswahlVon.Visible = False
|
||||
|
||||
Case Enum_Datumbereich.Aktueller_MonatVon_Bis
|
||||
fillCbo(cboAnzTageVon, Now(), Enum_Filltype.Monat, False)
|
||||
fillCbo(cboAnzTageBis, Now(), Enum_Filltype.Monat, True)
|
||||
cboAnzTageVon.Visible = True
|
||||
cboAnzTageBis.Visible = True
|
||||
End Select
|
||||
If cboAnzTageVon.Visible = True Then
|
||||
cboAnzTageVon.Splits(0).DisplayColumns(0).Width = cboAnzTageVon.Width - 20
|
||||
End If
|
||||
If cboAnzTageBis.Visible = True Then
|
||||
cboAnzTageBis.Splits(0).DisplayColumns(0).Width = cboAnzTageBis.Width - 20
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GetDatumVon()
|
||||
Try
|
||||
Select Case cboDateRange.SelectedIndex
|
||||
Case Enum_Datumbereich.Von_Bis
|
||||
lblVonDatum.Text = m_dDatumVon
|
||||
|
||||
Case Enum_Datumbereich.Datum_Bis_Heute
|
||||
lblVonDatum.Text = m_dDatumVon
|
||||
|
||||
Case Enum_Datumbereich.Tage_Bis_Heute
|
||||
If (Not IsNumeric(cboAnzTageVon.Text) And Len(cboAnzTageVon.Text) > 0) Or Len(cboAnzTageVon.Text) > 4 Then
|
||||
MessageBox.Show(MyTxt.gettext(18), "Eingabe von Datum", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
|
||||
Exit Sub
|
||||
End If
|
||||
If cboAnzTageVon.Text <> "" Then
|
||||
m_dDatumVon = Format(DateAdd(DateInterval.Day, -CType(cboAnzTageVon.Text, Integer), Now()), "dd.MM.yyyy")
|
||||
Else
|
||||
m_dDatumVon = Format(DateAdd(DateInterval.Day, 0, Now()), "dd.MM.yyyy")
|
||||
End If
|
||||
lblVonDatum.Text = m_dDatumVon
|
||||
|
||||
Case Enum_Datumbereich.Aktueller_Monat
|
||||
lblVonDatum.Text = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), 1), "dd.MM.yyyy")
|
||||
Case Enum_Datumbereich.Aktueller_MonatVon_Bis
|
||||
If cboAnzTageVon.Text <> "" Then
|
||||
m_dDatumVon = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), cboAnzTageVon.Text), "dd.MM.yyyy")
|
||||
Else
|
||||
m_dDatumVon = Format(DateAdd(DateInterval.Day, 0, Now()), "dd.MM.yyyy")
|
||||
End If
|
||||
lblVonDatum.Text = m_dDatumVon
|
||||
End Select
|
||||
dpVon.Text = lblVonDatum.Text
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GetDatumBis()
|
||||
Select Case cboDateRange.SelectedIndex
|
||||
Case Enum_Datumbereich.Von_Bis
|
||||
lblBisDatum.Text = m_dDatumBis
|
||||
|
||||
Case Enum_Datumbereich.Datum_Bis_Heute
|
||||
lblBisDatum.Text = m_dDatumBis
|
||||
|
||||
Case Enum_Datumbereich.Tage_Bis_Heute
|
||||
m_dDatumBis = Format(DateAdd(DateInterval.Day, 0, Now()), "dd.MM.yyyy")
|
||||
'If cboAnzTageBis.Text <> "" Then
|
||||
' m_dDatumBis = Format(DateAdd(DateInterval.Day, -CType(cboAnzTageVon.Text, Integer), Now()), "dd.MM.yyyy")
|
||||
'Else
|
||||
' m_dDatumBis = Format(DateAdd(DateInterval.Day, 0, Now()), "dd.MM.yyyy")
|
||||
'End If
|
||||
lblBisDatum.Text = m_dDatumBis
|
||||
|
||||
Case Enum_Datumbereich.Aktueller_Monat
|
||||
|
||||
lblBisDatum.Text = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), m_iLastDayAktuellerMonat), "dd.MM.yyyy")
|
||||
Case Enum_Datumbereich.Aktueller_MonatVon_Bis
|
||||
Select Case cboAnzTageBis.SelectedIndex
|
||||
Case 0 'Letzter Tag Monat
|
||||
lblBisDatum.Text = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), m_iLastDayAktuellerMonat), "dd.MM.yyyy")
|
||||
Case Else '0-31
|
||||
lblBisDatum.Text = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), cboAnzTageBis.SelectedIndex), "dd.MM.yyyy")
|
||||
End Select
|
||||
End Select
|
||||
dpBis.Text = lblBisDatum.Text
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Control Functionen "
|
||||
Private Sub cboDateRange_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboDateRange.Enter
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cboAnzTageBis_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboAnzTageBis.Enter
|
||||
|
||||
cboAnzTageBis.Columns(0).Caption = ""
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cboAnzTageVon_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboAnzTageVon.Enter
|
||||
cboAnzTageVon.Columns(0).Caption = ""
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub cboDateRange_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboDateRange.TextChanged
|
||||
ShowGroupBox(cboDateRange.SelectedIndex)
|
||||
GetDatumVon()
|
||||
GetDatumBis()
|
||||
End Sub
|
||||
End Class
|
||||
144
Backup/EDOKA/Reporting/frmDescription.resx
Normal file
144
Backup/EDOKA/Reporting/frmDescription.resx
Normal file
@@ -0,0 +1,144 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="PictureBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="PictureBox2.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
R0lGODlhIAAgAPcAAAAAAIAAgAAAgACAgACAAICAAIAAAMDAwMDcwKbK8ICAgP8A/wAA/wD//wD/AP//
|
||||
AP8AAP/////78KCgpP/w1P/isf/Ujv/Ga/+4SP+qJf+qANySALl6AJZiAHNKAFAyAP/j1P/Hsf+rjv+P
|
||||
a/9zSP9XJf9VANxJALk9AJYxAHMlAFAZAP/U1P+xsf+Ojv9ra/9ISP8lJf8AANwAALkAAJYAAHMAAFAA
|
||||
AP/U4/+xx/+Oq/9rj/9Ic/8lV/8AVdwASbkAPZYAMXMAJVAAGf/U8P+x4v+O1P9rxv9IuP8lqv8AqtwA
|
||||
krkAepYAYnMASlAAMv/U//+x//+O//9r//9I//8l//8A/9wA3LkAuZYAlnMAc1AAUPDU/+Kx/9SO/8Zr
|
||||
/7hI/6ol/6oA/5IA3HoAuWIAlkoAczIAUOPU/8ex/6uO/49r/3NI/1cl/1UA/0kA3D0AuTEAliUAcxkA
|
||||
UNTU/7Gx/46O/2tr/0hI/yUl/wAA/wAA3AAAuQAAlgAAcwAAUNTj/7HH/46r/2uP/0hz/yVX/wBV/wBJ
|
||||
3AA9uQAxlgAlcwAZUNTw/7Hi/47U/2vG/0i4/yWq/wCq/wCS3AB6uQBilgBKcwAyUNT//7H//47//2v/
|
||||
/0j//yX//wD//wDc3AC5uQCWlgBzcwBQUNT/8LH/4o7/1Gv/xkj/uCX/qgD/qgDckgC5egCWYgBzSgBQ
|
||||
MtT/47H/x47/q2v/j0j/cyX/VwD/VQDcSQC5PQCWMQBzJQBQGdT/1LH/sY7/jmv/a0j/SCX/JQD/AADc
|
||||
AAC5AACWAABzAABQAOP/1Mf/sav/jo//a3P/SFf/JVX/AEncAD25ADGWACVzABlQAPD/1OL/sdT/jsb/
|
||||
a7j/SKr/Jar/AJLcAHq5AGKWAEpzADJQAP//1P//sf//jv//a///SP//Jf//ANzcALm5AJaWAHNzAFBQ
|
||||
APLy8ubm5tra2s7OzsLCwra2tqqqqp6enpKSkoaGhnp6em5ubmJiYlZWVkpKSj4+PjIyMiYmJhoaGg4O
|
||||
DiwAAAAAIAAgAAAI/wDfCRwo0J27dggTInQX7wDBhxAFHnDHrmKEixglSLgoz2HEhwc1ssMYAZ68kSQj
|
||||
sJP3ceBBiyTz/fmzKKVFePE+HmyHEuO7P4oS+amXUmUEQBMg7uyJsZ2fRIQSCbrYkx3PBEkJvix6cQIi
|
||||
QoOoVkTJDhA7eixdthPLFSM7RnDhXoTrzp7HrWNhkmRUMW7cCJgAMbpHr+BalXkjKFBkyZKiRRMi+P0L
|
||||
CFACfB7XvvUbYYIiAUH90JM8mVFgOgn0ZTVbmtHFRLAFRJ5cmZHlBJfqCRTc2vW9oIpm265c+/YlBbt7
|
||||
u64EfAKm4cQFG0cOj45yTMwTKRoUODrxRglwI/93yDtubezAuXsnHl7Q8XcHqsP1Djf79u7ewSe4l/td
|
||||
gngJrFebfYMM18iBB7ZnyT5JTRAPgOuZVokA2qmHYILh2bPIPQ7B4yCAjeQHGyKwhXhhePFMsMg+hQk0
|
||||
gTzygBgiI4I8hUghhZAoCCCNBJKAIClacgmHBE3wYXiB9JiAfkv6qJ8gggxiySL4pEUQPfUIAiOAS16Y
|
||||
IJRQKnDJJfhkBdEEhL0ozwRgJuDjj4JMUM+UQ1oZUTz24IOPAkYaKUh7g1RCZz715NSSQB7mmU9j9Pz5
|
||||
4yUr4lOPPPAc+hA8mMqjjyWOunePg5ZaGs8+g/w5CIuhpjoBqQkMckmLqVoXKk8+pfYXa6jw3FPJPrrd
|
||||
muo89tj5UUAAOw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="lblMessage.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdOk.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblTitel.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmDescription</value>
|
||||
</data>
|
||||
</root>
|
||||
164
Backup/EDOKA/Reporting/frmDescription.vb
Normal file
164
Backup/EDOKA/Reporting/frmDescription.vb
Normal file
@@ -0,0 +1,164 @@
|
||||
Public Class frmDescription
|
||||
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 PictureBox2 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents lblMessage As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents cmdOk As System.Windows.Forms.Button
|
||||
Friend WithEvents lblTitel As System.Windows.Forms.Label
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDescription))
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.lblMessage = New System.Windows.Forms.Label()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.cmdOk = New System.Windows.Forms.Button()
|
||||
Me.lblTitel = New System.Windows.Forms.Label()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PictureBox2
|
||||
'
|
||||
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Bitmap)
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(8, 8)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(34, 33)
|
||||
Me.PictureBox2.TabIndex = 7
|
||||
Me.PictureBox2.TabStop = False
|
||||
'
|
||||
'lblMessage
|
||||
'
|
||||
Me.lblMessage.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.lblMessage.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.lblMessage.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
Me.lblMessage.Location = New System.Drawing.Point(48, 40)
|
||||
Me.lblMessage.Name = "lblMessage"
|
||||
Me.lblMessage.Size = New System.Drawing.Size(536, 240)
|
||||
Me.lblMessage.TabIndex = 8
|
||||
Me.lblMessage.Text = "Label1"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdOk})
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 285)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(584, 32)
|
||||
Me.Panel1.TabIndex = 9
|
||||
'
|
||||
'cmdOk
|
||||
'
|
||||
Me.cmdOk.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.cmdOk.Location = New System.Drawing.Point(520, 0)
|
||||
Me.cmdOk.Name = "cmdOk"
|
||||
Me.cmdOk.Size = New System.Drawing.Size(64, 32)
|
||||
Me.cmdOk.TabIndex = 0
|
||||
Me.cmdOk.Text = "Ok"
|
||||
'
|
||||
'lblTitel
|
||||
'
|
||||
Me.lblTitel.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.lblTitel.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
Me.lblTitel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblTitel.Location = New System.Drawing.Point(48, 8)
|
||||
Me.lblTitel.Name = "lblTitel"
|
||||
Me.lblTitel.Size = New System.Drawing.Size(536, 24)
|
||||
Me.lblTitel.TabIndex = 10
|
||||
Me.lblTitel.Text = "Label2"
|
||||
'
|
||||
'frmDescription
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(584, 317)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblTitel, Me.Panel1, Me.lblMessage, Me.PictureBox2})
|
||||
Me.KeyPreview = True
|
||||
Me.Name = "frmDescription"
|
||||
Me.Text = "frmDescription"
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Declarationen "
|
||||
Private m_sTitel As String
|
||||
Private m_sMeldung As String
|
||||
Private m_sFormTitel As String
|
||||
#End Region
|
||||
|
||||
#Region " Property "
|
||||
|
||||
Public Property Titel()
|
||||
Get
|
||||
Return m_sTitel
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_sTitel = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property FormTitel()
|
||||
Get
|
||||
Return m_sFormTitel
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_sFormTitel = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Meldung()
|
||||
Get
|
||||
Return m_sMeldung
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_sMeldung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Formular Functionen "
|
||||
Private Sub frmDescription_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.lblMessage.Text = m_sMeldung
|
||||
Me.lblTitel.Text = m_sTitel
|
||||
Me.Text = m_sFormTitel
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
End Class
|
||||
189
Backup/EDOKA/Reporting/frmParameterSetName.resx
Normal file
189
Backup/EDOKA/Reporting/frmParameterSetName.resx
Normal file
@@ -0,0 +1,189 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>109, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmUebernehmen.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>191, 23</value>
|
||||
</data>
|
||||
<data name="cmUebernehmen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="mnuUebernehmen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="mnuExit.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>310, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>976, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>429, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>824, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>665, 17</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmParameterSetName</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>152</value>
|
||||
</data>
|
||||
</root>
|
||||
712
Backup/EDOKA/Reporting/frmParameterSetName.vb
Normal file
712
Backup/EDOKA/Reporting/frmParameterSetName.vb
Normal file
@@ -0,0 +1,712 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmParameterSetName
|
||||
Inherits EDOKAApp._frmDomainEditor
|
||||
|
||||
#Region "Deklarationen"
|
||||
Private m_iReportNr As Integer
|
||||
Private m_dsParameterDataset As DataSet
|
||||
Private m_sParameterSetName As String
|
||||
Private m_iParameterSetNameID As Integer
|
||||
Private m_bDatenSpeichern As Boolean = False 'False = Daten Laden True = Daten Speichern
|
||||
Private m_bNewParameterSetListe As Boolean = False ' Wird auf true gesetzt, wenn ein neuer ParametesetName eingegeben wird
|
||||
Public Enum Enum_DatenModus
|
||||
Speichern = 0
|
||||
Laden = 1
|
||||
End Enum
|
||||
Private m_iDatenModus As Enum_DatenModus
|
||||
#End Region
|
||||
|
||||
#Region "Property"
|
||||
Public Property DatenModus()
|
||||
Get
|
||||
Return DatenModus
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_iDatenModus = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property DatenSpeichern()
|
||||
Get
|
||||
DatenSpeichern = m_bDatenSpeichern
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_bDatenSpeichern = Value
|
||||
Me.DomainList.AllowAddNew = m_bDatenSpeichern
|
||||
Me.DomainList.AllowUpdate = m_bDatenSpeichern
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property ParameterSetNameID()
|
||||
Get
|
||||
ParameterSetNameID = m_iParameterSetNameID
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_iParameterSetNameID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property ParameterDataset()
|
||||
Get
|
||||
ParameterDataset = m_dsParameterDataset
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_dsParameterDataset = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property ParameterSetName()
|
||||
Get
|
||||
ParameterSetName = m_sParameterSetName
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_sParameterSetName = Value
|
||||
End Set
|
||||
End Property
|
||||
Public Property ReportNr()
|
||||
Get
|
||||
ReportNr = m_iReportNr
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_iReportNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#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 DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents cmUebernehmen As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents mnuUebernehmen As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents mnuExit As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents SqlDataAdapter1 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 SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.cmUebernehmen = New System.Windows.Forms.ContextMenu()
|
||||
Me.mnuUebernehmen = New System.Windows.Forms.MenuItem()
|
||||
Me.mnuExit = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
'
|
||||
'cmUebernehmen
|
||||
'
|
||||
Me.cmUebernehmen.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuUebernehmen, Me.mnuExit, Me.MenuItem4, Me.MenuItem5})
|
||||
'
|
||||
'mnuUebernehmen
|
||||
'
|
||||
Me.mnuUebernehmen.Index = 0
|
||||
Me.mnuUebernehmen.Text = "Ü&bernehmen"
|
||||
'
|
||||
'mnuExit
|
||||
'
|
||||
Me.mnuExit.Index = 1
|
||||
Me.mnuExit.Text = "B&eenden ohne Übernehmen"
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = 2
|
||||
Me.MenuItem4.Text = "-"
|
||||
'
|
||||
'MenuItem5
|
||||
'
|
||||
Me.MenuItem5.Index = 3
|
||||
Me.MenuItem5.Text = "Parameterset &löschen"
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "ParameterSetName", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ParameterSetNameID", "ParameterSetNameID"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("reportNr", "reportNr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), 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")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_ParameterSetName_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_ParameterSetNameID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ParameterSetNameID", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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))
|
||||
Me.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=TGTSQLEDOKABSSF;initial catalog=edoka;integrated security=SSPI;persis" & _
|
||||
"t security info=False;user id=tgentwicklung3;workstation id=TG602640;packet size" & _
|
||||
"=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_ParameterSetName_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("@ParameterSetNameID", System.Data.SqlDbType.Int, 4, "ParameterSetNameID"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportNr", System.Data.SqlDbType.Int, 4, "reportNr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_ParameterSetName_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("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportNr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_ParameterSetName_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("@ParameterSetNameID", System.Data.SqlDbType.Int, 4, "ParameterSetNameID"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "reportNr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ParameterSetNameID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ParameterSetNameID", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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))
|
||||
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmParameterSetName
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(880, 377)
|
||||
Me.Name = "frmParameterSetName"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = ""
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Formular Funktionen"
|
||||
|
||||
Private Sub frmParameterSet_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim lCnt As Long
|
||||
Me.DomainList.ContextMenu = Me.cmUebernehmen
|
||||
|
||||
Me.TableName = "ParameterSetName"
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mitarbeiternr", Globals.MitarbeiterNr)
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@reportnr", Me.ReportNr)
|
||||
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.DataSet1.Tables(0).TableName
|
||||
'Me.Eintrag = "Parameterwerte"
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
DomainList.FetchRowStyles = True
|
||||
If Me.ParameterSetNameID > 0 Then
|
||||
For lCnt = 0 To DomainList.Splits(0).Rows.Count - 1
|
||||
If DomainList.Columns("ParameterSetNameID").CellText(lCnt) = Me.ParameterSetNameID Then
|
||||
DomainList.Bookmark = lCnt
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmParameterSetName_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
|
||||
Select Case m_iDatenModus
|
||||
Case Enum_DatenModus.Laden 'Form wird für Laden der Parameter geöffnet
|
||||
Me.ToolBar1.Buttons(1).Visible = False 'Ausschalten des Speichernknopfes
|
||||
Me.MenuItem3.Visible = False
|
||||
Case Enum_DatenModus.Speichern 'Form wir für Speichern der Parameter geöffnet
|
||||
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmParameterSetName_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then
|
||||
e.Cancel = False
|
||||
Else
|
||||
e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then
|
||||
e.Cancel = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Menu Funktionen"
|
||||
Private Sub mnuUebernehmen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuUebernehmen.Click
|
||||
Uebenehmen()
|
||||
End Sub
|
||||
|
||||
Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
|
||||
|
||||
|
||||
Me.TransferKey = 0
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Select Case m_iDatenModus
|
||||
Case Enum_DatenModus.Laden
|
||||
Uebenehmen()
|
||||
Case Enum_DatenModus.Speichern
|
||||
Me.Close()
|
||||
End Select
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
'===============================================================================
|
||||
'Desc : Löschen der ParamterSetNamen Nach OK Bestätigung des Users wird erst die ParametersetListe gelöscht
|
||||
' Danach die ParameterSetName
|
||||
'Input :
|
||||
'Output :
|
||||
'Erstellt : koe 20.10.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Save_Data()
|
||||
|
||||
End Sub
|
||||
Private Sub MenuItem5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
|
||||
|
||||
'===============================================================================
|
||||
'Desc : Löschen der ParamterSetNamen Nach OK Bestätigung des Users wird erst die ParametersetListe gelöscht
|
||||
' Danach die ParameterSetName
|
||||
'Input :
|
||||
'Output :
|
||||
'Erstellt : koe 20.10.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
If MyMsg.show_MessageYesNo_ReplaceText(218, DomainList.Columns("bezeichnung").Value, "") = DialogResult.Yes Then 'Möchten Sie das Parameterset " & DomainList.Columns("bezeichnung").Value & " Löschen?"
|
||||
'MyMsg.show_standardmessage_ReplaceText(218, MsgBoxStyle.Question, DomainList.Columns("bezeichnung").Value, "")
|
||||
DeleteParameterSetList()
|
||||
DeleteParameterSetName()
|
||||
RefreshParameterlist()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Daten Funktionen"
|
||||
|
||||
Private Sub Uebenehmen()
|
||||
Select Case m_iDatenModus
|
||||
Case Enum_DatenModus.Laden
|
||||
If Me.DomainList.Splits(0).Rows.Count >= 1 And Not Me.DomainList.Columns("ParameterSetNameID").Value Is System.DBNull.Value Then
|
||||
Me.ToSelect = True
|
||||
Me.ParameterSetName = Me.DomainList.Columns("bezeichnung").Value
|
||||
Me.TransferKey = Me.DomainList.Columns("ParameterSetNameID").Value
|
||||
Else
|
||||
Me.TransferKey = 0
|
||||
End If
|
||||
Me.Close()
|
||||
Case Enum_DatenModus.Speichern
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Me.ActiveControl = Me.ToolBar1
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
If m_bNewParameterSetListe = True Then
|
||||
'===============================================================================
|
||||
'Ein neuer Parametename wurde vergeben
|
||||
'===============================================================================
|
||||
If InsertParameterList() = False Then
|
||||
Save_Data = False
|
||||
End If
|
||||
Else
|
||||
'===============================================================================
|
||||
'Ein bestehender Parametername wird überschreiben
|
||||
'===============================================================================
|
||||
If UpdateParameterList() = False Then
|
||||
Save_Data = False
|
||||
End If
|
||||
|
||||
End If
|
||||
m_bNewParameterSetListe = False
|
||||
'Me.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function InsertParameterList() As Boolean
|
||||
'===============================================================================
|
||||
'Desc : Neue Parameter werden gespeichert
|
||||
'Input :
|
||||
'Output : True False
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Dim lCnt As Long
|
||||
Dim key As Long
|
||||
Dim vdata As New edokadb.clsParameterSetList()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
InsertParameterList = True
|
||||
Try
|
||||
conn.OpenConnection()
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
For lCnt = 0 To m_dsParameterDataset.Tables(0).Rows.Count - 1
|
||||
'Alle Benutzerparanmeter durchlaufen
|
||||
With vdata
|
||||
key = dbkey.get_dbkey("ParameterSetList")
|
||||
conn.OpenConnection()
|
||||
.cpMainConnectionProvider = conn
|
||||
.iParameterSetListID = New SqlInt32(CType(key, Integer))
|
||||
.iParameterSetNameID = New SqlInt32(CType(Me.DomainList.Columns("ParameterSetNameID").Value, SqlInt32))
|
||||
.iReportReportfeldregelNr = New SqlInt32(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("Reportreportfeldregelnr"), Integer))
|
||||
|
||||
If Not m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue") Is System.DBNull.Value Then
|
||||
.sParameterDisplayValue = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue"), String))
|
||||
Else
|
||||
'.sParameterDisplayValue = m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue")
|
||||
End If
|
||||
'.sParameterDisplayValue = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue"), String))
|
||||
|
||||
If Not m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue") Is System.DBNull.Value Then
|
||||
.sParameterNavigationValue = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue"), String))
|
||||
Else
|
||||
'.sParameterNavigationValue = m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue")
|
||||
End If
|
||||
|
||||
If Not m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft") Is System.DBNull.Value Then
|
||||
.sDatenherkunft = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft"), String))
|
||||
Else
|
||||
'.sDatenherkunft = m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft")
|
||||
End If
|
||||
.iReihenfolge() = New SqlInt32(lCnt)
|
||||
.iMandantnr = New SqlInt32(Globals.MitarbeiterNr)
|
||||
.bAktiv = New SqlBoolean(True)
|
||||
.daErstellt_am = New SqlDateTime(Now())
|
||||
.daMutiert_am = New SqlDateTime(Now())
|
||||
.iMutierer = New SqlInt32(Globals.MitarbeiterNr)
|
||||
End With
|
||||
vdata.Insert()
|
||||
'conn.Dispose()
|
||||
Next
|
||||
Catch ex As Exception
|
||||
InsertParameterList = False
|
||||
MessageBox.Show(ex.Message, "Einfügefehler", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
|
||||
End Try
|
||||
|
||||
conn.CloseConnection(True)
|
||||
vdata.Dispose()
|
||||
dbkey.Dispose()
|
||||
End Function
|
||||
|
||||
Private Function UpdateParameterList() As Boolean
|
||||
'===============================================================================
|
||||
'Desc : Besthende Parameter werden ergänzt
|
||||
'Kriterium : ParameterSetNameID,ReportReportfeldregelNr
|
||||
'Updatewert : MitarbeiterNr, Parameterwert
|
||||
'Output : True False
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim objParmameterSetList As New edokadb.clsParameterSetList()
|
||||
Dim daTable As New DataTable()
|
||||
Dim iErrorCode As Integer
|
||||
Dim lCnt As Long
|
||||
UpdateParameterList = True
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_ParameterSetList_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
conn.OpenConnection()
|
||||
objParmameterSetList.cpMainConnectionProvider = conn
|
||||
daTable = objParmameterSetList.SelectAll()
|
||||
conn.CloseConnection(True)
|
||||
Try
|
||||
If GetRecordcount() = m_dsParameterDataset.Tables(0).Rows.Count Then
|
||||
conn.OpenConnection()
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
For lCnt = 0 To m_dsParameterDataset.Tables(0).Rows.Count - 1
|
||||
scmCmdToExecute.Parameters.Clear()
|
||||
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ParameterDisplayValue", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue")))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ParameterNavigationValue", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue")))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft")))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ParametesetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DomainList.Columns("ParameterSetNameID").Value))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ReportReportfeldregelNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("Reportreportfeldregelnr")))
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Next
|
||||
Else
|
||||
DeleteParameterSetList()
|
||||
InsertParameterList()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
UpdateParameterList = False
|
||||
MessageBox.Show(ex.Message, "Update Parameterliste", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
|
||||
conn.CloseConnection(True)
|
||||
End Function
|
||||
|
||||
Private Function DeleteParameterSetList() As Boolean
|
||||
'===============================================================================
|
||||
'Desc : Besthende ParameterSetListe werden gelöscht
|
||||
'Kriterium : DomainList.Columns("ParameterSetNameID")
|
||||
'Output : True False
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Dim scmCmdToExecuteParameterSetlist As SqlCommand = New SqlCommand()
|
||||
Dim iErrorCode As Integer
|
||||
Dim lCnt As Long
|
||||
DeleteParameterSetList = True
|
||||
scmCmdToExecuteParameterSetlist.CommandText = "dbo.[sp_ParameterSetList_Delete]"
|
||||
scmCmdToExecuteParameterSetlist.CommandType = CommandType.StoredProcedure
|
||||
|
||||
conn.OpenConnection()
|
||||
scmCmdToExecuteParameterSetlist.Connection = conn.scoDBConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecuteParameterSetlist.Parameters.Clear()
|
||||
scmCmdToExecuteParameterSetlist.Parameters.Add(New SqlParameter("@ParameterSetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DomainList.Columns("ParameterSetNameID").Value))
|
||||
' // Execute query ParameterSetList.
|
||||
scmCmdToExecuteParameterSetlist.ExecuteNonQuery()
|
||||
' // Execute query ParameterSetName.
|
||||
Catch ex As Exception
|
||||
DeleteParameterSetList = False
|
||||
MessageBox.Show(ex.Message, "Parametersetliste löschen", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
|
||||
Finally
|
||||
scmCmdToExecuteParameterSetlist.Dispose()
|
||||
End Try
|
||||
conn.CloseConnection(True)
|
||||
End Function
|
||||
|
||||
Private Function DeleteParameterSetName() As Boolean
|
||||
'===============================================================================
|
||||
'Desc : Besthende ParameterSetName werden gelöscht
|
||||
'Kriterium : DomainList.Columns("ParameterSetNameID")
|
||||
'Output : True False
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Dim scmCmdToExecuteParameterSetName As SqlCommand = New SqlCommand()
|
||||
DeleteParameterSetName = True
|
||||
scmCmdToExecuteParameterSetName.CommandText = "dbo.[sp_ParameterSetName_Delete]"
|
||||
scmCmdToExecuteParameterSetName.CommandType = CommandType.StoredProcedure
|
||||
conn.OpenConnection()
|
||||
scmCmdToExecuteParameterSetName.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecuteParameterSetName.Parameters.Clear()
|
||||
scmCmdToExecuteParameterSetName.Parameters.Add(New SqlParameter("@ParameterSetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DomainList.Columns("ParameterSetNameID").Value))
|
||||
|
||||
' // Execute query ParameterSetName.
|
||||
scmCmdToExecuteParameterSetName.ExecuteNonQuery()
|
||||
DomainList.Refresh()
|
||||
Catch ex As Exception
|
||||
DeleteParameterSetName = False
|
||||
MessageBox.Show(ex.Message, "ParametersetNamen löschen", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
|
||||
Finally
|
||||
scmCmdToExecuteParameterSetName.Dispose()
|
||||
End Try
|
||||
|
||||
conn.CloseConnection(True)
|
||||
End Function
|
||||
|
||||
Private Sub RefreshParameterlist()
|
||||
DataSet1.Clear()
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.DataSet1.Tables(0).TableName
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Diverse Funktionen"
|
||||
Public Function GetRecordcount() As Integer
|
||||
'===============================================================================
|
||||
'Desc : Ermittelt die Anzahl der Records in der Tabelle ParameterSetList
|
||||
'Input :
|
||||
'Kriterium : DomainList.Columns("ParameterSetNameID").Value
|
||||
'Updatewert :
|
||||
'Output : Anzahl Datensätze
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Dim m_dbkey As Long
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_ParameterSetList_anzahl]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
conn.OpenConnection()
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ParameterSetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, DomainList.Columns("ParameterSetNameID").Value))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Anzahl", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, GetRecordcount))
|
||||
'scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
'scmCmdToExecute.Connection.Open()
|
||||
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
GetRecordcount = scmCmdToExecute.Parameters("@Anzahl").Value()
|
||||
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
MessageBox.Show(ex.Message, "Anzahl Parametersetliste ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
|
||||
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
conn.CloseConnection(True)
|
||||
End Try
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Grid Funktionen"
|
||||
|
||||
Private Sub DomainList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DomainList.MouseDown
|
||||
If e.Button = MouseButtons.Right Then
|
||||
Me.DomainList.Bookmark = Me.DomainList.RowContaining(e.Y)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DomainList_BeforeInsert(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles DomainList.BeforeInsert
|
||||
If m_bNewParameterSetListe = False Then
|
||||
m_bNewParameterSetListe = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DomainList_Dblklick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.DoubleClick
|
||||
Uebenehmen()
|
||||
End Sub
|
||||
Private Sub DomainList_AfterInsert(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.AfterInsert
|
||||
Me.DomainList.Columns("beschreibung").Text = ""
|
||||
|
||||
End Sub
|
||||
Private Sub domainlist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DomainList.AfterColUpdate
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
Try
|
||||
Me.DomainList.Columns("reportNr").Value = Me.m_iReportNr
|
||||
Me.DomainList.Columns("mandantnr").Value = Globals.MandantNr
|
||||
Me.DomainList.Columns("mitarbeiternr").Value = Globals.MitarbeiterNr
|
||||
|
||||
Save_Data()
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DomainList_BeforeRowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles DomainList.BeforeRowColChange
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
884
Backup/EDOKA/Reporting/frmProfilDokAuswertung.resx
Normal file
884
Backup/EDOKA/Reporting/frmProfilDokAuswertung.resx
Normal file
@@ -0,0 +1,884 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="MainMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="MainMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="btnClose.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="btnOpen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="btnSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>237, 17</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AABKDgAAAk1TRnQBSQFMAgEBCgEAAQ4BAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ACwAB
|
||||
BwHsCAAQBycAAQcB7AcAAQcL7wQHJgAB+QEAAQcB7AYAAQcBoQmnAaEBtQMHJgAC+QEAAQcB7AUAAQcB
|
||||
oQftAesB7AGnAbUDByYAA/kBAAEHAewEAAEHAaEBBwHsAe0B7wHsAZIB9wEVARIBhgG1AwcmAAT5AQAB
|
||||
BwHsAwABBwGhAe8BEwFtAZIBEwLsARABAAFfAfcDByYABfkBAAEHAwABBwGhAe8BbQHsAfcBbQLtAREB
|
||||
IgEUAeoB7wIHJgAG+QEAAQcCAAEHAaEB7wFtAewB9wFtAewB7QERATABeQERAZICByYABvkEAAEHAaEH
|
||||
zwGGARUBWAFKARIB7wEHJgAF+QUAAQcBoQG1AaEBpwHPAaEBpwHPAaEBCgEwARwBEAHvAQcmAAT5BgAB
|
||||
BwGhAacCoQGnAaECpwGhAYUBQwFYAW0BFAEHJgAD+QcAAQcKtQFDATcBcwEOAe8mAAL5CAALBwH3ARQB
|
||||
DwEFAREmAAH5CQAMBwFDAQUBpTEADAcB7wERAQAB7zAAEAcgAD0HAe8VBwsPBQcLDw8HARAB7xQHAQAJ
|
||||
vAEABQcBAAS8AZIEvAEADQcB9wGSAQ8B7AGSBQcB7AH3DAcBAAn/AQAFBwEABP8BBwT/AQANBwHqAUMB
|
||||
DgERAUMFBwEOAesB7AsHAQAJ/wEABQcBAAT/AQcE/wEAAwcL7AHvARAB7wYHAgABEALsAZIIBwEACf8B
|
||||
AAUHAQAC/wLxAQcC8QL/AQADBwEACW0BDwHtAeoB7wYHBAABQwHqCAcBAAn/AQAFBwEAAf8B6wLyAQcC
|
||||
8gHxAf8BAAMHAQ4B9AHsAe8B8QHsAgcB7AHwARIB7QgHBwAHBwEACf8BAAUHAQAB/wHsAf8B8gEHAfIB
|
||||
/wHyAf8BAAMHAQ4B8wHsAfcB8AHsAgcB7AG8ARIB7QgHBQABDwHsBwcBAAn/AQAFBwEAAv8B8gMHAfIC
|
||||
/wEAAwcBAAnPAoYB7wcHAwABQwHsCQcBAAn/AQAFBwEAAv8FBwL/AQADBwHrAaEJtQGnAbUHBwIAAe8L
|
||||
BwEABv8D7wEABQcBAAL/AfADBwHsAu8BAAQHAacB8QESAewBBwESAe8BkgESAbwBpwG1BwcBbQ0HAQAG
|
||||
/wEAARQBAAFDBQcBAAP/A/ABAAEUAQABQwQHAacB9AEHAfAB8gEHAvEBBwHzAacBtRUHAQAG/wEAAbwB
|
||||
EAYHAQAG/wEAAbwBEAUHAaEJpwGhAbUVBwEABvEBAAEPBwcBAAbxAQABDwYHAaEBtQGhAacBzwGhAc8B
|
||||
pwGhAc8BpwG1FQcIDggHCA4HBwuhAbVCBxAAEAIgBwYAAQMB/wgAAgINAAECIAcEAAHsAQMB7AH/CAAB
|
||||
AgEAAgMGAAIHAQABAwEAAQILABUHAgABAwHsAQMB7AEDAf8IAAECAQACAwYAAgcBAAEDAQABAgIACQMB
|
||||
AA0HAe8BkgLsAwcBAAEDAewBAwHsAQMB7AH/AQAB7AYAAQIBAAIDBgACBwEAAQMBAAECAQAB+wEACQMB
|
||||
AAsHAewB6wESAQAB7AMHAQAB7AEDAewBAwHsAQMB/wEAAewGAAECAQACAwkAAQMBAAECAQAB/wH7AQAJ
|
||||
AwEACAcB7QHsARABDgIAAewDBwEAAQMB7AEDAgAB7AH/AQAB7AYAAQIBAAwDAQABAgEAAfsB/wH7AQAJ
|
||||
AwEABgcB7AESBQAB7AMHAQAB7AEDAewCBwEDAf8BAAHsAQABBgQAAQIBAAIDCAACAwEAAQIBAAH/AfsB
|
||||
/wH7CwAEBwFtBwAB7AMHAQABAwHsAQMB7AEDAewB/wIAAQYF/gECAQABAwEACAcBAAEDAQABAgEAAfsB
|
||||
/wH7Af8B+wH/AfsB/wH7AQAJBwGSAW0GAAHsAwcBAAHsAQMB7AEDAewBAwH/AQABbQb+AQIBAAEDAQAI
|
||||
BwEAAQMBAAECAQAB/wH7Af8B+wH/AfsB/wH7Af8BAAwHAUMEAAHsAwcBAAEDAewBAwHsAQMB7AH/AQAB
|
||||
7AFtAf4EbQECAQABAwEACAcBAAEDAQABAgEAAfsB/wH7BwANBwHvARUCAAHsAwcBAAHsAQMB7AEDAewB
|
||||
AwH/AQAB7AEAAm0DAAECAQABAwEACAcBAAEDAQABAgEHAwAIBwMACwcB7wFtBAcBAAEDAewBAwHsAQcB
|
||||
/wHsAQAB7AIAAW0DAAECAQABAwEACAcDAAECDQcCABEHAQAB7AEDAQcB/wHsAQAD7AYAAQIBAAEDAQAI
|
||||
BwEAAQcBAAECCAcBAAMHAQABBwEAEQcBAAEHAf8B7AEABewGAAECDgABAgkHAwAUBxAAEAIgBwFCAU0B
|
||||
PgcAAT4DAAEoAwABQAMAAUADAAEBAQABAQYAAQIWAAP/gQAB+AH/BgAB+AF/BgAB+AE/BgAB+AEfBgAB
|
||||
+AEPBgAB+AEHBgAB+AEHBgAB+AEDBgAB+AEHBgAB+AEPBgAB+AEfBgAB+AE/BgAB+AF/BgAB+AH/BgAB
|
||||
+QH/BgAB+wH/hgAB/AF/BgAB8AF/BgABwAF/BwABHwcAAR8HAAEXBwABBycAAQcHAAEXBwABHwcAAR8H
|
||||
AAEfHAAL
|
||||
</value>
|
||||
</data>
|
||||
<data name="ColorDialog1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>123, 17</value>
|
||||
</data>
|
||||
<data name="ColorDialog1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MnuListe.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>496, 17</value>
|
||||
</data>
|
||||
<data name="MnuListe.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem13.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Profile.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Button4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label25.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ComboBox10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label24.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ComboBox9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ctmenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>592, 17</value>
|
||||
</data>
|
||||
<data name="ctmenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MnuDel.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="CTMenuErsteller.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>686, 17</value>
|
||||
</data>
|
||||
<data name="CTMenuErsteller.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem15.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem16.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="CTMenuVerantwortlicher.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>970, 17</value>
|
||||
</data>
|
||||
<data name="CTMenuVerantwortlicher.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem20.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="CTMenuMutierer.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="CTMenuMutierer.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem24.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem25.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem26.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem27.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>247, 54</value>
|
||||
</data>
|
||||
<data name="SqlConnection2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>710, 54</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>150, 54</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Splitter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TabControl1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TabPage1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="pnlhostdiv.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="hostinklmavip.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GroupBox7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblhostdatum3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblhostdatum2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblhostdatum1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Button6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Button7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Button8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label26.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="HostTag3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="HostTag2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="HostTag1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="HostDatum3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="HostDatum2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="HostDatum1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label27.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label28.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label29.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GroupBox6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label32.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label33.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label34.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label35.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="CheckBox3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="CheckBox4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="CheckBox5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label36.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label37.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label38.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TVHostDok.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>587, 54</value>
|
||||
</data>
|
||||
<data name="ContextMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MnuSelectDokumentart.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MnuDeleteDokumentart.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="PnlDokumentDaten.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cinklalt.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cbmavip.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lbldatum3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lbldatum2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lbldatum1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Button3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cbtag3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cbtag2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cbtag1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cbd6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cbd4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cbd2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtdatum6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtdatum5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtdatum4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtdatum3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtdatum2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtdatum1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label18.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label17.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label16.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label15.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label14.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label13.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DateTimePicker1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GroupBox3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GroupBox10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="PnlDokumentart.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TVDokart.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="PnlPartner.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="PartnerList.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="btnPartnersuche.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="btnPartnersuche.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGhJREFUOE/NU0EK
|
||||
ACAI8+k+zZ9ZCEapiyCIAg/pWJsa0W9Hu6A5XB/KJ/3KzCUByGeCGwUqIhYTybCwqRkmejy9Dwv2cvCZ
|
||||
SArMTwSgD2gP3N5qoeh+nDOaEsFCYMAEYIGSgkPcwy/aAP5wqQPBfWzxAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images1" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TreeView1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>375, 54</value>
|
||||
</data>
|
||||
<data name="ImageList2.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AAB6DQAAAk1TRnQBSQFMAgEBCgEAAQ4BAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AEQAB
|
||||
UD8AAlAEAAL5AgAB+TQABFAFAALuKwAFUAQABlADAALuAgABbSkAAlAGAAZQBQAD7gEAAf8BAAH4KAAC
|
||||
GgQAAlABAAJQAwAC+ATuAQAC/ykAARoFAAFQAgABUAQAAvgBAATuAwABUAEAAVAlAAQaAgABUAcAAvgB
|
||||
AALuAgAD/wEAAe4nAAMaAgABUAcAA/gBAALuAQAD/wEAAe4mAAUaCgAF+AEABP8BAAHuJQADGhIAAv8C
|
||||
AALuJwACGg4AA+4BAAL/AQAD7jcABe4BAAHuPgAB+ALuOwAF+GIAEP8GAAEHAewLAAHsHAAQ/wcAAQcB
|
||||
7AoAAewB/wIHAf8DBwH/AQcTABD/BgAB+QEAAQcB7AkAAewI/wEHBgAB+QQABfkDABD/BgAC+QEAAQcB
|
||||
7AgAAewB/wIHAf8DBwH/AQcGAAL5AwAC+QYAEP8GAAP5AQABBwHsBwAB7Aj/AQcFAAT5BAACGgQAEP8G
|
||||
AAT5AQABBwHsBgAB7AH/BgcB/wEHBAAG+QMAARoFABD/BgAF+QEAAQcGAAHsCP8BBwMABvkEAAQaAgAQ
|
||||
/wYABvkBAAEHBQAB7AH/BAcB/wEHAf8BBwMAAvkBAAL5BgADGgIAEP8GAAb5BwAB7Aj/AQcDAAH5AgAB
|
||||
+QYABRoBABD/BgAF+QgAAewB/wQHA/8BBwMAAfkJAAMaAwAQ/wYABPkJAAHsBv8GAAH5CwACGgIAEP8G
|
||||
AAP5CgAB7AH/BAcB/wHsAf8FAAH5DgAQ/wYAAvkLAAHsBv8B7BUAEP8GAAH5DAAI7BUAEP8wABD/MwAB
|
||||
7A8ACvwEAAEGAQABBgEAAgYLAAHsDAcEAAHsAf8CBwH/AwcB/wEHCAAF/AgAAQYBAAH/DQAB7Av/AQcE
|
||||
AAHsCP8BBwkABPwJAAH/AewCAAEFAQACBQcAAewB/wnsAf8BBwQAAewB/wIHAf8DBwH/AQcJAAL/CgAB
|
||||
7AP/AewBBwEFCQAB7Av/AQcEAAHsCP8BBwoABf8FAAHsAQcBAAL/AQABBwoAAewL/wEHBAAB7AH/BgcB
|
||||
/wEHCgAE/wHsBQACBwP/AQACBwkAAewB/wnsAf8BBwQAAewI/wEHCgAF/wUAAf8BBwEAAv8DBwkAAewL
|
||||
/wEHBAAB7AH/BAcB/wEHAf8BBwkAB/8EAAHsBP8EBwgAAewL/wEHBAAB7Aj/AQcLAAL/AewB/wcAAv8B
|
||||
AAHsAgcJAAHsAf8J7AH/AQcEAAHsAf8EBwP/AQcKAAP/AewJAAH/CgcB7AIAAewL/wEHBAAB7Ab/DAAF
|
||||
/wkAAv8DBwEAAQcBBAMHAewCAAHsC/8BBwQAAewB/wQHAf8B7AH/DAAC/wsAAewDAAEHAwQCBwHsAgAB
|
||||
7AH/CewB/wEHBAAB7Ab/AeweAAMHAgQBBwHsAgAB7An/A+wEAAjsHgAEBwIEAewCAAHsCv8BBysABgcB
|
||||
7AIAAewJ/wEHLAAH7AIACuwEAAFCAU0BPgcAAT4DAAEoAwABQAMAAUADAAEBAQABAQYAAQIWAAP/gQAB
|
||||
/wH3Av8EAAH/AfMBgAH/BAAB/wHhAcEB/wQAAQECwAF/BAABAwGBAYABDwQAAYMBkwEAAR8EAAHBAbcB
|
||||
AAEBBAABgAG/AQABAwUAAb8BAAEDBQABfwGAAQEFAAH/AcABAQUAAf8B8AUAAQEBfwH4AQEEAAGAAX8B
|
||||
/AEBBAABwQL/AQEEAAP/AYMGAAH4Af8B4AEDAv8CAAH4AX8B4AEDAv8CAAH4AT8B4AEDAe4BAwIAAfgB
|
||||
HwHgAQMB5gEHAgAB+AEPAeABAwHDAQcCAAH4AQcB4AEDAYEBgwIAAfgBBwHgAgMBAQIAAfgBAwHgAQMB
|
||||
JgEBAgAB+AEHAeABAwFuAwAB+AEPAeABAwF+AQECAAH4AR8B4AEDAX4BAQIAAfgBPwHgAQcBvgECAgAB
|
||||
+AF/AeABDwH/AwAB+AH/AeABHwH/AYMCAAH5Bf8CAAH7Bf8B4AEDAcABAwEAAf8BwAEBAeABAwHgAQcB
|
||||
gwH/AcABAQHgAQMB8AEfAcABHwHAAQEB4AEDAfgBDwHAAT8BwAEBAeABAwHwAQcBgAF/AcABAQHgAQMB
|
||||
8AEHAYABfwHAAQEB4AEDAeABBwGAAX8BwAEBAeABAwHAAQMBgAE/AcABAQHgAQMBwAEHAcABfwHAAQEB
|
||||
4AEDAcABDwHgAQABwAEBAeABAwHAAQ8B8AEAAcABAQHgAQcBwAEfAfgBgAHAAQEB4AEPAeABDwH/AYAB
|
||||
wAEBAeABHwHwAR8B/wGAAcABAwX/AYABwAEHBf8BgAHAAQ8WAAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="ImageList3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>481, 54</value>
|
||||
</data>
|
||||
<data name="ImageList3.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AADiBwAAAk1TRnQBSQFMAgEBAwEAAQUBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAQ
|
||||
ByD/EAAHBwEAAQcBAAPsAQACByD/EAAHBwEAAQcBAAPsAQACByD/EQABBwQAAQcBAAEHAQAD7AEAAgcg
|
||||
/xAABQcDAAEHAQAD7AEAAgcg/xAABQcCAAIHAQAB7AEHAewBAAIHIP8SAAEHAQABBwMAAQcBAAPsAQAC
|
||||
ByD/EAAEBwYAA+wBAAIHIP8QAAYHAgABBwIAAuwBAAIHIP8QAAUHAwABBwEAA+wBAAIHIP8QAAYHAgAB
|
||||
BwIAAuwBAAIHIP8QAAkHBQACByD/EAAQByD/EAAIBwQEBAcg/xAACAcBBAIHAQQEByD/EAAIBwQEBAcg
|
||||
/xAAAUIBTQE+BwABPgMAASgDAAFAAwABIAMAAQEBAAEBBgABARYAA///ABgACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="SqlConnection3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>997, 54</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 91</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>818, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>343, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>838, 54</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmProfilDokAuswertung</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>173</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAgICAAP///wD//5cAwMDAACvZRQBra2sA4bnSANaewQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAApgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAADwUPAAAAAAAAAAAAAAAAAA8FDwAAAAAAAAAAAAAAAAAPBQ8AAAAAAAAAAAAAAAAADw8P
|
||||
AAAAAAAAAAAAAAAAAAEAAAAACQkJCQkJAAAAAQEDAwMDBgAJCAgICAAAAAEDAwMDAwYHAAgICQkAAAED
|
||||
AgMDAwMGBwcACQgIAAABAgMDAwMDBgcHAAgICAAAAQMCAgIDAwYHBwAICAkJAAECAwICAwMGBwcACAgI
|
||||
CAAAAQIDAgMDBgcACAgICAgAAAEBAgMCAwYAAAgIAAgICQAAAAEBAQAACAgICAAIAAAAAAAAAAAAAAgI
|
||||
CAgICAAAAAAAAAAAAAkJCQkJCQkJAOH/AADh/wAA4f8AAOH/AADgAQAAgAEAAIABAAAAAQAAAAEAAAAB
|
||||
AAAAAAAAgAAAAIAAAADgAQAA/gEAAP4BAAA=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
3868
Backup/EDOKA/Reporting/frmProfilDokAuswertung.vb
Normal file
3868
Backup/EDOKA/Reporting/frmProfilDokAuswertung.vb
Normal file
File diff suppressed because one or more lines are too long
406
Backup/EDOKA/Reporting/frmReportSelection.resx
Normal file
406
Backup/EDOKA/Reporting/frmReportSelection.resx
Normal file
@@ -0,0 +1,406 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>280, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>433, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBtnExit.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBtnOpenParSet.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBtnSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBtnClearParameter.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBtnPreview.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>638, 17</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AAC6DQAAAk1TRnQBSQFMAgEBBwEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AFQAg
|
||||
BxEAAewLBwMAHQcB7wIHEQAB7Ar/AQcOAAkHAe8BvAcHARQB8QEHEQAB7AH/AQAI/wEHBQAJAwEABwcB
|
||||
6wFDAQcBvAUHAZIDBxEAAewG/wIAAuwBBwQAAfsBAAkDAQAFBwHvAgABEgHyBAcB7QHqAbwCBxEAAewH
|
||||
/wHsAQACBwQAAf8B+wEACQMBAAQHAe8BFQEAAUMB7wG8AgcB7QEQAQcBvAIHEQAB7AH/BwQBAwEAAQcE
|
||||
AAH7Af8B+wEACQMBAAQHAe8BFQEAAUMB7wG8Ae0BEQETBAcRAAHsCf8BAwUAAf8B+wH/AfsLAAQHAe8B
|
||||
FAEAARUB6wERARIBBwG8AwcRAAHsCv8BAwQAAfsB/wH7Af8B+wH/AfsB/wH7AQAKBwH3ARQCAAESAQcB
|
||||
vAQHEQAB7AH/CAQB/wEHAQMDAAH/AfsB/wH7Af8B+wH/AfsB/wEACgcBkgERAgABQwHvAbwEBxEAAewK
|
||||
/wEHAgABAQEAAfsB/wH7BwAJBwGSAREBAAETAZIBFQGSAfAEBxEAAewJ/wIHAgABAQEHAwAIBwMAAwcB
|
||||
7wFDARABAAETAQcBvAH3AeoBQwEHAbwCBxEAAewB/wUEAv8GAA0HAgACBwHvARACAAEUAbwDBwHvAUMB
|
||||
EAG8AgcRAAHsCf8B7AQACAcBAAMHAQABBwEAAgcB7wEAAREB8AHvBQcB7wERAQ8B8QEHEQAB7Aj/AewF
|
||||
AAkHAwAGBwLvCAcC7wIHEQAJ7AYAIAcgABACCP8BChD/AewBAAHsBP8GAAEDAf8IAAICDQABAgX/AQcB
|
||||
FAHsAfMBEgHxDP8B7AEAAv8B7AT/BAAB7AEDAewB/wgAAQIBAAIDBgACBwEAAQMBAAECA/8BBwEUAewD
|
||||
/wHzARIB8Qn/AewBAAT/AQAB7AP/AgABAwHsAQMB7AEDAf8IAAECAQACAwYAAgcBAAEDAQABAgH/AQcB
|
||||
FAHsBv8B8wESAfEG/wHsAQAF/wH8Af8B7AP/AQABAwHsAQMB7AEDAewB/wEAAewGAAECAQACAwYAAgcB
|
||||
AAEDAQABAgFnAewC/wIHAv8CBwH/AfMBEgHxBP8BAAX/AfwB/wH8Af8BAAHsAv8BAAHsAQMB7AEDAewB
|
||||
AwH/AQAB7AYAAQIBAAIDCQABAwEAAQIBZwGSAf8BBwL/AgcB8QEHAfEBBwHzARIB8QP/AewD/wH8Af8B
|
||||
/AL/AfwB/wHsAv8BAAEDAewBAwIAAewB/wEAAewGAAECAQAMAwEAAQIB/wEHAZIB/wIHAfEBBwHxAgcC
|
||||
8QHzARIC/wHsAQcBAAL/AfwC/wH8Af8B/AH/AQAB7AH/AQAB7AEDAewCBwEDAf8BAAHsAQABBgQAAQIB
|
||||
AAIDCAACAwEAAQIC/wEHAW0BEAEHAfECBwHxAQcB8QH/AfMBbQE+Af8DBwP/AfwB/wH8Av8B/AH/AewB
|
||||
/wEAAQMB7AEDAewBAwHsAf8CAAEGBf4BAgEAAQMBAAgHAQABAwEAAQIC/wGSATcBbQH/AQcB8QEHAfED
|
||||
/wIHAT4B/wEAAgcBAAL/AfwC/wH8Af8B/AH/AQAB7AEAAewBAwHsAQMB7AEDAf8BAAFtBv4BAgEAAQMB
|
||||
AAgHAQABAwEAAQIC/wFKAVgB7AGSAvEC/wGYA/8BFQL/AgACBwX/AfwC/wH8Af8B7AEAAQMB7AEDAewB
|
||||
AwHsAf8BAAHsAW0B/gRtAQIBAAEDAQAIBwEAAQMBAAECAf8BkgE3AewB/wEHAZIB/wG2Ac8BmAHxAuwF
|
||||
/wEAAQcBAAH/AwcB/wH8A/8CAAHsAQMB7AEDAewBAwH/AQAB7AEAAm0DAAECAQABAwEACAcBAAEDAQAB
|
||||
AgH/AUoBWAEHAv8BBwGSAb0B8QLsBP8BAAP/AQABBwH/AgcH/wEAAQMB7AEDAewBBwH/AewBAAHsAgAB
|
||||
bQMAAQIBAAEDAQAIBwMAAQIB/wEeAewE/wEHAW0B7Aj/AQAC/wIAAv8BAAHsAQcC/wEAAf8BAAHsAQMB
|
||||
BwH/AewBAAPsBgABAgEAAQMBAAgHAQABBwEAAQIC/wEHEf8BAAH/AQAB/wEAAf8BBwMAAv8BAAEHAf8B
|
||||
7AEABewGAAECDgABAhb/AQAE/wEHAQAD/xAAEAIg/wFCAU0BPgcAAT4DAAEoAwABQAMAATADAAEBAQAB
|
||||
AQUAAYABARYAA/+BAAL/BgABgAEHBgABgAEHBgABgAEHBgABgAEHBgABgAEHBgABgAEHBgABgAEHBgAB
|
||||
gAEDBgABgAEBBgABgAEEBgABgAEGBgABgAEHBgABgAEPBgABgAEfBgABgAE/BgAB/AF/BgAB8AF/BgAB
|
||||
wAF/BwABHwcAAR8HAAEXBwABBycAAQcHAAEXBwABHwcAAR8HAAEfHAAL
|
||||
</value>
|
||||
</data>
|
||||
<data name="MainMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>530, 17</value>
|
||||
</data>
|
||||
<data name="MainMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="pnlTop.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="pnlBottom.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="daReport.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="daReport.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>744, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>412, 54</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="dsReport.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>841, 17</value>
|
||||
</data>
|
||||
<data name="dsReport.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="dsParameter.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="dsParameter.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="daParameter.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="daParameter.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>688, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>803, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>958, 54</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>131, 54</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="pnlReportgruppe.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="gbxReserve.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Splitter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="gbxReportgruppen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grdReportgruppen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Splitter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="pnlRepoert_Reportbeschreibung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="gbxReportBeschreibung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtReportDescription.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Splitter4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="gbxReport.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grdReport.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images1" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Splitter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="pnlParameter.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grxParameter.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grdParameter.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images2" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>66</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmReportSelection</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAEBAQAAAAAAAoAQAAFgAAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||
AAD///8AAAAAAAAAAAAAAAAAAAAAAA//////AAAAD4hwAAAAAAAP//D/////8A+IcPiI+IjwD//w////
|
||||
//APiHD4iPiI8A//8P/////wRERA+Ij4iPBERED/////8AAP9EREREREAA90REREREQAD/////8AAABE
|
||||
REREREAAAEREREREQAD//wAAAB8AAAAfAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAA
|
||||
AADAAAAAwAcAAMAHAADABwAA
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
1854
Backup/EDOKA/Reporting/frmReportSelection.vb
Normal file
1854
Backup/EDOKA/Reporting/frmReportSelection.vb
Normal file
File diff suppressed because it is too large
Load Diff
331
Backup/EDOKA/Reporting/frmSortSelect.resx
Normal file
331
Backup/EDOKA/Reporting/frmSortSelect.resx
Normal file
@@ -0,0 +1,331 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="dsSortOrderUser.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="dsSortOrderUser.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="dsSortOrder.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>280, 17</value>
|
||||
</data>
|
||||
<data name="dsSortOrder.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="daSortOrder.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="daSortOrder.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>391, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>791, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>645, 54</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>172, 54</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="daSortOrderUser.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="daSortOrderUser.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>503, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>331, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>151, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>638, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>486, 54</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="ContextMenu2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>686, 21</value>
|
||||
</data>
|
||||
<data name="ContextMenu2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="mnuUp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="mnuDown.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="mnuDelete.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="mnuSortOrder.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="speichern.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="abbrechen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>824, 18</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AAAWCQAAAk1TRnQBSQFMAgEBAgEAAQUBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAQ
|
||||
AjAAAgINAAECBgABAwH/KAABAgEAAgMGAAIHAQABAwEAAQIEAAHsAQMB7AH/KAABAgEAAgMGAAIHAQAB
|
||||
AwEAAQICAAEDAewBAwHsAQMB/ygAAQIBAAIDBgACBwEAAQMBAAECAQABAwHsAQMB7AEDAewB/wEAAewm
|
||||
AAECAQACAwkAAQMBAAECAQAB7AEDAewBAwHsAQMB/wEAAewmAAECAQAMAwEAAQIBAAEDAewBAwIAAewB
|
||||
/wEAAewmAAECAQACAwgAAgMBAAECAQAB7AEDAewCBwEDAf8BAAHsAQABBiQAAQIBAAEDAQAIBwEAAQMB
|
||||
AAECAQABAwHsAQMB7AEDAewB/wIAAQYF/iAAAQIBAAEDAQAIBwEAAQMBAAECAQAB7AEDAewBAwHsAQMB
|
||||
/wEAAW0G/iAAAQIBAAEDAQAIBwEAAQMBAAECAQABAwHsAQMB7AEDAewB/wEAAewBbQH+BG0gAAECAQAB
|
||||
AwEACAcBAAEDAQABAgEAAewBAwHsAQMB7AEDAf8BAAHsAQACbSMAAQIBAAEDAQAIBwMAAQIBAAEDAewB
|
||||
AwHsAQcB/wHsAQAB7AIAAW0jAAECAQABAwEACAcBAAEHAQABAgEAAewBAwEHAf8B7AEAA+wmAAECDgAB
|
||||
AgEAAQcB/wHsAQAF7CYAEAIwAAFCAU0BPgcAAT4DAAEoAwABQAMAASADAAEBAQABAQYAAQEWAAP/gwAB
|
||||
/AF/BgAB8AF/BgABwAF/BwABHwcAAR8HAAEXBwABBycAAQcHAAEXBwABHwcAAR8HAAEfGgAL
|
||||
</value>
|
||||
</data>
|
||||
<data name="Panel2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label19.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="LBSelect.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Button11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label22.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="LBSort.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label21.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lbSortfields.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmSortSelect</value>
|
||||
</data>
|
||||
</root>
|
||||
762
Backup/EDOKA/Reporting/frmSortSelect.vb
Normal file
762
Backup/EDOKA/Reporting/frmSortSelect.vb
Normal file
@@ -0,0 +1,762 @@
|
||||
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"
|
||||
'
|
||||
'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
|
||||
246
Backup/EDOKA/Reporting/frmValueSelect.resx
Normal file
246
Backup/EDOKA/Reporting/frmValueSelect.resx
Normal file
@@ -0,0 +1,246 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="tlbValueSelect.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Abbrechen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Uebernehmen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Partnersuche.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AADOCwAAAk1TRnQBSQFMAgEBBQEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAQ
|
||||
AjAAAgINAAECMAABAgEAAgMGAAIHAQABAwEAAQIwAAECAQACAwYAAgcBAAEDAQABAjAAAQIBAAIDBgAC
|
||||
BwEAAQMBAAECMAABAgEAAgMJAAEDAQABAjAAAQIBAAwDAQABAjAAAQIBAAIDCAACAwEAAQIwAAECAQAB
|
||||
AwEACAcBAAEDAQABAjAAAQIBAAEDAQAIBwEAAQMBAAECMAABAgEAAQMBAAgHAQABAwEAAQIwAAECAQAB
|
||||
AwEACAcBAAEDAQABAjAAAQIBAAEDAQAIBwMAAQIwAAECAQABAwEACAcBAAEHAQABAjAAAQIOAAECMAAQ
|
||||
AlEAD+wKAAHqBbYWAAEDAf8XAAHsAQABFAFtBOoBbQHrAQAB6gW2FAAB7AEDAewB/wkAAwcBAAIHAQAC
|
||||
7AEAAQcBAAEHAQAB7AEAAW0B3QO2Ad0BtQHrAQAB6gW2AgABBwkAAQcFAAEDAewBAwHsAQMB/wkAAwcB
|
||||
AAIHAQAC7AEAAQcBAAEHAQAB7AEAAeoDtgHdAQ8DAAHqBbYCAAEHCQABBwQAAQMB7AEDAewBAwHsAf8B
|
||||
AAHsBwADBwEAAgcBAALsAQABBwEAAQcBAAHsAQAB6gO2ARIBAAHqAd4BAAFtAd0EthEAAewBAwHsAQMB
|
||||
7AEDAf8BAAHsBwADBwkAAQcBAAHsAQAB6gK2AdcBAAESAt0BAAEQAhIBjQK2AgABBwHsBwABBwHsBAAB
|
||||
AwHsAQMCAAHsAf8BAAHsBwANBwEAAewBAAHqA7YB1wHdAbYB3QISAW0BAAHqAdcBtgIAAQcB7AcAAQcB
|
||||
7AQAAewBAwHsAgcBAwH/AQAB7AEAAQYFAAEHCwABBwEAAewBAAHqA7YB3QESAeoBEgLeAW0BAAERAfcB
|
||||
tgIAAQcB7AcAAQcB7AQAAQMB7AEDAewBAwHsAf8CAAEGBf4BAAEHAQAJ/wEAAQcBAAHsAQAB6gK2Ad0B
|
||||
DwQAAUMEAAG1EQAB7AEDAewBAwHsAQMB/wEAAW0G/gEAAQcBAAn/AQABBwEAAewBAAHrArYBEgEAARAB
|
||||
/wHxAgABEAH/AfEFAAIHBQACBwUAAQMB7AEDAewBAwHsAf8BAAHsAW0B/gRtAQABBwEACf8BAAEHAQAB
|
||||
7AEAAewB8wG2AeoBAAH/AQAB/wIAAf8BFAH/AfcSAAHsAQMB7AEDAewBAwH/AQAB7AEAAm0EAAEHAQAJ
|
||||
/wEAAQcBAAHsAQAB7AH/Ad0BEgEAAfEB/wHxAgAB7AL/BgAB7AUAAewGAAEDAewBAwHsAQcB/wHsAQAB
|
||||
7AIAAW0EAAEHAQAJ/wEAAQcBAAHsAQAB7AL/AdcBEAkAAbYRAAHsAQMBBwH/AewBAAPsBwABBwEACf8D
|
||||
AAHsAQABFAPsAa4DAAG1Ad0B6gEAAREBBwH/EQABBwH/AewBAAXsBwABBwEACf8BAAH/AQAB7AcAAbwB
|
||||
9AHyAfEB3gT/MAAB/wHyAQAB/wEVAUMK/wFCAU0BPgcAAT4DAAEoAwABQAMAATADAAEBAQABAQUAAYAB
|
||||
ARYAA///AAIAAv8B/AF/AYADAAL/AfABfwQAAYcB4QHAAX8EAAGHAeEBAAEfBAABhwHhAQABHwQAAoEB
|
||||
AAEXBAABgAEBAQABBwQAAYABAQYAAYABAQYAAYABAQYAAcEBgwYAAeEBhwEAAQcEAAHhAYcBAAEXBAAB
|
||||
4QGHAQABHwQAAv8BAAEfBAAC/wEAAR8BAAEBGAAL
|
||||
</value>
|
||||
</data>
|
||||
<data name="Panel2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grdValue.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Splitter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grdSelected.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images1" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Timer1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>123, 17</value>
|
||||
</data>
|
||||
<data name="Timer1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="timHinweismeldung.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>209, 17</value>
|
||||
</data>
|
||||
<data name="timHinweismeldung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmValueSelect</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAIAICAQAAAAAADoAgAAJgAAABAQEAAAAAAAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
|
||||
AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIhwAAAAAAAAAACIcAAAAACI
|
||||
cAAAAAAAAAAAiHAAAAAAiHAAAAAAAAAAAIhwAAAAAIhwAAAAAAAAAACIcAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAIgAAAAAAAAACIAAAAAAAACIBwAAAAAAAAiAcAAAAAAAiAcAAAAIAAAI
|
||||
gHAAAAAAAIgHAAAACAAACIBwAAAAAACIBwAAAAgAAAiAcAAAAAAAiAcAAAAIAAAIgHAAAAAAAAAHAAAA
|
||||
AAAAAABwAAAAAAAABwAAAAAAAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiIcAAAAAiIcAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdwAAAAAAdwAAAA
|
||||
AAAAAAAHcAAAAAAHcAAAAAAAAAAAB3AAAAAAB3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////////
|
||||
/////////////4A/+AOAP/gDgD/4A4A/+AOAP/gDgAOAA4ADgAOAA4ADgAAAA4AAAAOAAAADgAAAA4AA
|
||||
AAPAAAAHwAAAB8AAAAf4A4A/+AOAP/gDgD/4A4A//AfAf/wHwH/8B8B//AfAf///////////////////
|
||||
//8oAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA
|
||||
AACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAACAAAAAAIAAAIAAAAAAgAAAAAAAAAAAAACHAAAACHAAAIcAAAAIcAAAhwAAAAhwAAAA
|
||||
AAAAAAAAAAiAAACIAAAAAAAAAAAAAAAAcAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//8AAP//
|
||||
AACH4QAAh+EAAIfhAACBgQAAgAEAAIABAACAAQAAgAEAAMGDAADhhwAA4YcAAOGHAAD//wAA//8AAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
808
Backup/EDOKA/Reporting/frmValueSelect.vb
Normal file
808
Backup/EDOKA/Reporting/frmValueSelect.vb
Normal file
@@ -0,0 +1,808 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class frmValueSelect
|
||||
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 Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
|
||||
Friend WithEvents grdValue As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
||||
Friend WithEvents grdSelected As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents Abbrechen As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents Uebernehmen As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents tlbValueSelect As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents Partnersuche As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents Timer1 As System.Windows.Forms.Timer
|
||||
Friend WithEvents timHinweismeldung As System.Windows.Forms.Timer
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmValueSelect))
|
||||
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.tlbValueSelect = New System.Windows.Forms.ToolBar()
|
||||
Me.Abbrechen = New System.Windows.Forms.ToolBarButton()
|
||||
Me.Uebernehmen = New System.Windows.Forms.ToolBarButton()
|
||||
Me.Partnersuche = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.grdValue = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.Splitter1 = New System.Windows.Forms.Splitter()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.grdSelected = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.timHinweismeldung = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.grdValue, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel3.SuspendLayout()
|
||||
CType(Me.grdSelected, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.tlbValueSelect})
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(752, 32)
|
||||
Me.Panel1.TabIndex = 6
|
||||
'
|
||||
'tlbValueSelect
|
||||
'
|
||||
Me.tlbValueSelect.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.Abbrechen, Me.Uebernehmen, Me.Partnersuche})
|
||||
Me.tlbValueSelect.DropDownArrows = True
|
||||
Me.tlbValueSelect.ImageList = Me.ImageList1
|
||||
Me.tlbValueSelect.Name = "tlbValueSelect"
|
||||
Me.tlbValueSelect.ShowToolTips = True
|
||||
Me.tlbValueSelect.Size = New System.Drawing.Size(750, 25)
|
||||
Me.tlbValueSelect.TabIndex = 6
|
||||
'
|
||||
'Abbrechen
|
||||
'
|
||||
Me.Abbrechen.ImageIndex = 1
|
||||
Me.Abbrechen.Tag = "Abbrechen"
|
||||
Me.Abbrechen.ToolTipText = "Abbrechen"
|
||||
'
|
||||
'Uebernehmen
|
||||
'
|
||||
Me.Uebernehmen.ImageIndex = 4
|
||||
Me.Uebernehmen.Tag = "Uebernehmen"
|
||||
Me.Uebernehmen.ToolTipText = "Übernehmen"
|
||||
'
|
||||
'Partnersuche
|
||||
'
|
||||
Me.Partnersuche.ImageIndex = 3
|
||||
Me.Partnersuche.Tag = "Partnersuche"
|
||||
Me.Partnersuche.ToolTipText = "Partnersuche"
|
||||
'
|
||||
'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.grdValue})
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 32)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(396, 551)
|
||||
Me.Panel2.TabIndex = 7
|
||||
'
|
||||
'grdValue
|
||||
'
|
||||
Me.grdValue.AllowFilter = True
|
||||
Me.grdValue.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.grdValue.AllowSort = True
|
||||
Me.grdValue.AllowUpdate = False
|
||||
Me.grdValue.AlternatingRows = True
|
||||
Me.grdValue.CaptionHeight = 17
|
||||
Me.grdValue.CollapseColor = System.Drawing.Color.Black
|
||||
Me.grdValue.DataChanged = False
|
||||
Me.grdValue.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.grdValue.ExpandColor = System.Drawing.Color.Black
|
||||
Me.grdValue.FetchRowStyles = True
|
||||
Me.grdValue.FilterBar = True
|
||||
Me.grdValue.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.grdValue.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
||||
Me.grdValue.Location = New System.Drawing.Point(26, 20)
|
||||
Me.grdValue.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
||||
Me.grdValue.Name = "grdValue"
|
||||
Me.grdValue.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.grdValue.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.grdValue.PreviewInfo.ZoomFactor = 75
|
||||
Me.grdValue.PrintInfo.ShowOptionsDialog = False
|
||||
Me.grdValue.RecordSelectorWidth = 16
|
||||
GridLines1.Color = System.Drawing.Color.DarkGray
|
||||
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.grdValue.RowDivider = GridLines1
|
||||
Me.grdValue.RowHeight = 15
|
||||
Me.grdValue.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.grdValue.ScrollTips = False
|
||||
Me.grdValue.Size = New System.Drawing.Size(282, 88)
|
||||
Me.grdValue.TabIndex = 4
|
||||
Me.grdValue.Text = "C1TrueDBGrid1"
|
||||
Me.grdValue.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
||||
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
||||
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
||||
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
||||
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
||||
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
||||
"lor:Highlight;}Style9{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
||||
":Center;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:" & _
|
||||
"ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
||||
"}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
||||
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
||||
"oterHeight=""17"" FetchRowStyles=""True"" FilterBar=""True"" MarqueeStyle=""DottedCellB" & _
|
||||
"order"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" Hori" & _
|
||||
"zontalScrollGroup=""1""><ClientRect>0, 0, 278, 84</ClientRect><BorderSide>0</Borde" & _
|
||||
"rSide><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" " & _
|
||||
"me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle paren" & _
|
||||
"t=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupSt" & _
|
||||
"yle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><" & _
|
||||
"HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Ina" & _
|
||||
"ctive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorS" & _
|
||||
"tyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=" & _
|
||||
"""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView>" & _
|
||||
"</Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""" & _
|
||||
"Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Cap" & _
|
||||
"tion"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selec" & _
|
||||
"ted"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""Highlight" & _
|
||||
"Row"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" " & _
|
||||
"/><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""Filte" & _
|
||||
"rBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSp" & _
|
||||
"lits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</Defa" & _
|
||||
"ultRecSelWidth><ClientArea>0, 0, 278, 84</ClientArea></Blob>"
|
||||
'
|
||||
'Splitter1
|
||||
'
|
||||
Me.Splitter1.Location = New System.Drawing.Point(396, 32)
|
||||
Me.Splitter1.Name = "Splitter1"
|
||||
Me.Splitter1.Size = New System.Drawing.Size(3, 551)
|
||||
Me.Splitter1.TabIndex = 8
|
||||
Me.Splitter1.TabStop = False
|
||||
'
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.grdSelected})
|
||||
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel3.Location = New System.Drawing.Point(399, 32)
|
||||
Me.Panel3.Name = "Panel3"
|
||||
Me.Panel3.Size = New System.Drawing.Size(353, 551)
|
||||
Me.Panel3.TabIndex = 9
|
||||
'
|
||||
'grdSelected
|
||||
'
|
||||
Me.grdSelected.AllowDelete = True
|
||||
Me.grdSelected.AllowFilter = True
|
||||
Me.grdSelected.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.grdSelected.AllowSort = True
|
||||
Me.grdSelected.AllowUpdate = False
|
||||
Me.grdSelected.AlternatingRows = True
|
||||
Me.grdSelected.CaptionHeight = 17
|
||||
Me.grdSelected.CollapseColor = System.Drawing.Color.Black
|
||||
Me.grdSelected.DataChanged = False
|
||||
Me.grdSelected.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.grdSelected.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.grdSelected.ExpandColor = System.Drawing.Color.Black
|
||||
Me.grdSelected.FetchRowStyles = True
|
||||
Me.grdSelected.FilterBar = True
|
||||
Me.grdSelected.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.grdSelected.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
||||
Me.grdSelected.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
||||
Me.grdSelected.Name = "grdSelected"
|
||||
Me.grdSelected.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.grdSelected.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.grdSelected.PreviewInfo.ZoomFactor = 75
|
||||
Me.grdSelected.PrintInfo.ShowOptionsDialog = False
|
||||
Me.grdSelected.RecordSelectorWidth = 16
|
||||
GridLines2.Color = System.Drawing.Color.DarkGray
|
||||
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.grdSelected.RowDivider = GridLines2
|
||||
Me.grdSelected.RowHeight = 15
|
||||
Me.grdSelected.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.grdSelected.ScrollTips = False
|
||||
Me.grdSelected.Size = New System.Drawing.Size(353, 551)
|
||||
Me.grdSelected.TabIndex = 5
|
||||
Me.grdSelected.Text = "C1TrueDBGrid1"
|
||||
Me.grdSelected.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
||||
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
||||
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
||||
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
||||
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
||||
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
||||
"lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
||||
":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
|
||||
":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
||||
"}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
||||
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
||||
"oterHeight=""17"" FetchRowStyles=""True"" FilterBar=""True"" MarqueeStyle=""DottedCellB" & _
|
||||
"order"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" Hori" & _
|
||||
"zontalScrollGroup=""1""><ClientRect>0, 0, 349, 547</ClientRect><BorderSide>0</Bord" & _
|
||||
"erSide><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor""" & _
|
||||
" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle pare" & _
|
||||
"nt=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupS" & _
|
||||
"tyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" />" & _
|
||||
"<HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""In" & _
|
||||
"active"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelector" & _
|
||||
"Style parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me" & _
|
||||
"=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView" & _
|
||||
"></Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=" & _
|
||||
"""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Ca" & _
|
||||
"ption"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Sele" & _
|
||||
"cted"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""Highligh" & _
|
||||
"tRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow""" & _
|
||||
" /><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""Filt" & _
|
||||
"erBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertS" & _
|
||||
"plits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</Def" & _
|
||||
"aultRecSelWidth><ClientArea>0, 0, 349, 547</ClientArea></Blob>"
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
'
|
||||
'timHinweismeldung
|
||||
'
|
||||
Me.timHinweismeldung.Interval = 1000
|
||||
'
|
||||
'frmValueSelect
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(752, 583)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel3, Me.Splitter1, Me.Panel2, Me.Panel1})
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmValueSelect"
|
||||
Me.Text = "frmValueSelect"
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
CType(Me.grdValue, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel3.ResumeLayout(False)
|
||||
CType(Me.grdSelected, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Declaration "
|
||||
Dim WithEvents PartnerSearch As New FrmPartnersuche()
|
||||
Dim dtSelected As New DataTable("Valueselected")
|
||||
|
||||
Public Enum Enum_SelelectType
|
||||
ValueSelect = 1
|
||||
End Enum
|
||||
|
||||
Dim mypartner As New edokadb.clsMyPartner()
|
||||
Dim partner As DataTable
|
||||
Dim m_sDatenherkunft As String
|
||||
Dim m_sDislpayResult As String
|
||||
Dim m_sNavigationResult As String
|
||||
Dim m_iSelectionType As Enum_SelelectType
|
||||
Dim m_sID As String
|
||||
Private m_sTableName As String
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " 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 SelectionType() As Enum_SelelectType
|
||||
'Typisierung für datenherkunft Bestimmt Welche Stored Procedure aufgerufen wird
|
||||
Get
|
||||
Return m_iSelectionType
|
||||
End Get
|
||||
Set(ByVal Value As Enum_SelelectType)
|
||||
m_iSelectionType = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property TableName() As String
|
||||
Get
|
||||
Return m_sTableName
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_sTableName = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property ID() As String
|
||||
'Typisierung für datenherkunft Bestimmt Welche Stored Procedure aufgerufen wird
|
||||
Get
|
||||
Return m_sID
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_sID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Formularfunktionen "
|
||||
Private Sub frmValueSelect_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
'===============================================================================
|
||||
'Desc : Laden der Datem gem Datenherkunft
|
||||
'Output : Wenn eine ID übergeben wurde wird das GridValue Positioniert
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Dim iCount As Integer
|
||||
Dim i As Integer = 50
|
||||
Dim sRowName As String
|
||||
Try
|
||||
Me.TableName = "Valueselect" & Replace(m_sDatenherkunft, "&", "")
|
||||
Dim DS As New DataSet(Me.TableName)
|
||||
Dim DSSelected As New DataSet("Valueselected")
|
||||
Select Case m_sDatenherkunft
|
||||
Case "&Partner&"
|
||||
Panel2.Width = 0
|
||||
Me.tlbValueSelect.Buttons(2).Enabled = True
|
||||
Me.tlbValueSelect.Buttons(2).Visible = True
|
||||
Case Else
|
||||
Me.tlbValueSelect.Buttons(2).Enabled = False
|
||||
Me.tlbValueSelect.Buttons(2).Visible = False
|
||||
grdValue.Dock = DockStyle.Fill
|
||||
grdValue.Visible = True
|
||||
grdValue.DataSource = Generic_Select()
|
||||
DS.Tables.Add(grdValue.DataSource)
|
||||
SpaltenTitel_Aktualisieren(DS, Me.grdValue)
|
||||
grdValue.Columns("aktiv").FilterText = True
|
||||
|
||||
End Select
|
||||
|
||||
CreateDatatablel()
|
||||
grdSelected.DataSource = dtSelected
|
||||
grdSelected.DataMember = dtSelected.TableName
|
||||
|
||||
DSSelected.Tables.Add(grdSelected.DataSource)
|
||||
Me.TableName = DSSelected.Tables(0).TableName
|
||||
SpaltenTitel_Aktualisieren(DSSelected, Me.grdSelected)
|
||||
Select Case m_sDatenherkunft
|
||||
Case "&Partner&"
|
||||
Me.Timer1.Enabled = True
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Datenfunktionen "
|
||||
Private Sub FillProperty()
|
||||
'===============================================================================
|
||||
'Desc : Füllen der Property DislpayResult & NavigationResult
|
||||
'Erstellt : koe 10.11.2003
|
||||
'Geaendert :
|
||||
'===============================================================================
|
||||
Dim row As Long
|
||||
Dim iCnt As Integer
|
||||
Dim sDelimeter As String = ""
|
||||
m_sDislpayResult = ""
|
||||
m_sNavigationResult = ""
|
||||
For iCnt = 0 To grdSelected.Splits(0).Rows.Count - 1
|
||||
Me.m_sDislpayResult = Me.m_sDislpayResult & sDelimeter & Me.grdSelected.Columns(1).CellText(iCnt)
|
||||
Me.m_sNavigationResult = Me.m_sNavigationResult & sDelimeter & Me.grdSelected.Columns(0).CellText(iCnt)
|
||||
sDelimeter = ";"
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function Generic_Select() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable
|
||||
|
||||
Select Case m_iSelectionType
|
||||
Case Enum_SelelectType.ValueSelect
|
||||
scmCmdToExecute.CommandText = "dbo.SP_ValueSelect"
|
||||
Case Else
|
||||
MyMsg.show_standardmessage(209, MsgBoxStyle.Information)
|
||||
Exit Function
|
||||
End Select
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
'Dim dtToReturn As DataTable = New DataTable(Me.TableName)
|
||||
dtToReturn = New DataTable(Me.TableName)
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Clear()
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Datenherkunft))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
'sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("SelectValue::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Command Controlsfunction"
|
||||
Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
FillProperty()
|
||||
Me.DialogResult = DialogResult.OK
|
||||
Me.Close()
|
||||
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 grdSelected_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdSelected.DoubleClick
|
||||
grdSelected.Delete()
|
||||
End Sub
|
||||
|
||||
Private Sub grdValue_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdValue.DoubleClick
|
||||
AddToSelectetd()
|
||||
End Sub
|
||||
|
||||
Private Sub PartnerList_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
AddToSelectetd()
|
||||
End Sub
|
||||
|
||||
Private Sub tlbValueSelect_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbValueSelect.ButtonClick
|
||||
Select Case tlbValueSelect.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close Exit
|
||||
Me.DialogResult = DialogResult.Cancel
|
||||
Me.Close()
|
||||
|
||||
Case 1 'Uebernehnmen
|
||||
FillProperty()
|
||||
Me.DialogResult = DialogResult.OK
|
||||
Me.Close()
|
||||
Case 2 'Partnersuche
|
||||
Me.PartnerSearch.NoClose = True
|
||||
Me.PartnerSearch.TopMost = True
|
||||
Me.PartnerSearch.Show()
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub grdSelected_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles grdSelected.MouseDown
|
||||
If e.X < 2 And e.Y < 2 Then
|
||||
MsgBox(dtSelected.TableName)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub grdValue_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles grdValue.MouseDown
|
||||
If e.X < 2 And e.Y < 2 Then
|
||||
MsgBox(Me.TableName)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Extra Funktionen "
|
||||
|
||||
Private Sub AddToSelectetd()
|
||||
'*********************************************************************************************************************
|
||||
'Description: Datensattz in das Grid selected übenehmen
|
||||
'Input:
|
||||
'Criteria:
|
||||
'Output:
|
||||
'Erstellt : koe 11.01.2004
|
||||
'Geaendert:
|
||||
'*********************************************************************************************************************
|
||||
Dim rc As DataRowCollection
|
||||
Dim newrow As DataRow()
|
||||
Dim rowvals(1) As Object
|
||||
Dim iCount As Integer
|
||||
|
||||
Select Case m_sDatenherkunft
|
||||
Case "&Mitarbeiter&"
|
||||
With grdSelected
|
||||
For iCount = 0 To .Splits(0).Rows.Count - 1
|
||||
If grdValue.Columns(1).Text = .Columns(1).CellValue(iCount) Then
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
End With
|
||||
rowvals(0) = grdValue.Columns(0).Text
|
||||
rowvals(1) = grdValue.Columns("Nachname").Text
|
||||
Case "&Partner&"
|
||||
With grdSelected
|
||||
For iCount = 0 To .Splits(0).Rows.Count - 1
|
||||
If Me.PartnerSearch.PartnerKurzbezeichnnung = .Columns(1).CellValue(iCount) Then
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
End With
|
||||
rowvals(0) = Me.PartnerSearch.PartnerNr
|
||||
rowvals(1) = Me.PartnerSearch.PartnerKurzbezeichnnung
|
||||
|
||||
Case Else
|
||||
With grdSelected
|
||||
For iCount = 0 To .Splits(0).Rows.Count - 1
|
||||
If grdValue.Columns(1).Text = .Columns("Bezeichnung").CellValue(iCount) Then
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
End With
|
||||
rowvals(0) = grdValue.Columns(0).Text
|
||||
rowvals(1) = grdValue.Columns("Bezeichnung").Text
|
||||
End Select
|
||||
dtSelected.Rows.Add(rowvals)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CreateDatatablel()
|
||||
Dim rc As DataRowCollection
|
||||
Dim newrow As DataRow()
|
||||
Dim sDisplayResult() As String
|
||||
Dim sNavigationResult() As String
|
||||
Dim rowvals(1) As Object
|
||||
Dim iCount As Integer
|
||||
Select Case m_sDatenherkunft
|
||||
Case "&Mitarbeiter&"
|
||||
With dtSelected
|
||||
.Columns.Add("ID")
|
||||
.Columns.Add("Bezeichnung")
|
||||
End With
|
||||
Case Else
|
||||
With dtSelected
|
||||
.Columns.Add("ID")
|
||||
.Columns.Add("Bezeichnung")
|
||||
End With
|
||||
End Select
|
||||
|
||||
rc = dtSelected.Rows
|
||||
sDisplayResult = Split(m_sDislpayResult, ";")
|
||||
sNavigationResult = Split(m_sNavigationResult, ";")
|
||||
|
||||
If UBound(sNavigationResult) > 0 Then
|
||||
For iCount = 0 To UBound(sNavigationResult)
|
||||
rowvals(0) = sNavigationResult(iCount)
|
||||
rowvals(1) = sDisplayResult(iCount)
|
||||
dtSelected.Rows.Add(rowvals)
|
||||
Next
|
||||
Else
|
||||
If m_sNavigationResult <> "" Then
|
||||
rowvals(0) = m_sNavigationResult
|
||||
rowvals(1) = m_sDislpayResult
|
||||
dtSelected.Rows.Add(rowvals)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub InsertPartner() Handles PartnerSearch.partner_selected
|
||||
'*********************************************************************************************************************
|
||||
'Description: Wird aufgerufen, wenn aus der Partnerwahl ein Record übernommen wird
|
||||
'Input:
|
||||
'Criteria:
|
||||
'Output:
|
||||
'Erstellt : koe 11.01.2004
|
||||
'Geaendert:
|
||||
'*********************************************************************************************************************
|
||||
'Dim msg As String
|
||||
'Dim fHinweis As New frmHinweismeldung()
|
||||
AddToSelectetd()
|
||||
'msg = MyTxt.Get_Meldungstext(216) '+ vbCrLf + vbCrLf + "Partner: " + Me.txtPartner + vbCrLf + "Dokument: " & Me.txtDokumenttyp
|
||||
'fHinweis.MsgBoxStyle = 1
|
||||
'fHinweis.Label1.Text = msg
|
||||
'fHinweis.CheckBox1.Visible = False
|
||||
'fHinweis.Show()
|
||||
'fHinweis.TopMost = True
|
||||
'Me.timHinweismeldung.Enabled = True
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|
||||
Me.Timer1.Enabled = False
|
||||
Me.PartnerSearch.NoClose = True
|
||||
Me.PartnerSearch.TopMost = True
|
||||
Me.PartnerSearch.Show()
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub SpaltenTitel_Aktualisieren(ByVal ds As DataSet, ByRef grd As C1.Win.C1TrueDBGrid.C1TrueDBGrid)
|
||||
|
||||
'Spaltentitel setzen
|
||||
Dim titel As New EDOKA.MySpaltenTitel()
|
||||
Dim cols(grd.Splits(0).DisplayColumns.Count) As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim s As String
|
||||
|
||||
Dim DisplayColumnsCount As Integer
|
||||
Dim aSpalten(0, 0) As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim Reihe As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim iMaxSortOrderValue As Integer = 0
|
||||
Dim dsMaxSortOrder As New DataSet()
|
||||
Dim bSetNewSortOrder As Boolean = True
|
||||
Dim iSpaltenOffset As Integer = 0 'Offset wenn Nothing in Array
|
||||
|
||||
'============ Bestimmt Anzahl Displaycolumn und MaxValue Sortorder
|
||||
'Dim ssql As String
|
||||
'ssql = "SELECT MAX(Reihenfolge) AS MaxSortOrder FROM spalten WHERE tabelle = '" & Me.TableName & "'"
|
||||
Dim daMaxSortOrder As New SqlDataAdapter("SELECT MAX(Reihenfolge) AS MaxSortOrder FROM spalten WHERE tabelle = '" & Me.TableName & "'", Globals.sConnectionString)
|
||||
Try
|
||||
daMaxSortOrder.Fill(dsMaxSortOrder)
|
||||
DisplayColumnsCount = grd.Splits(0).DisplayColumns.Count - 1
|
||||
iMaxSortOrderValue = dsMaxSortOrder.Tables(0).Rows(0).Item(0)
|
||||
ReDim aSpalten(iMaxSortOrderValue - 1, 0) 'Array für Anzahlen definieren
|
||||
|
||||
t = ds.Tables(0)
|
||||
ts.Tabelle = Me.TableName
|
||||
For i = 0 To grd.Columns.Count - 1
|
||||
s = grd.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
grd.Columns(i).Caption = ts.spaltenname
|
||||
If ts.ColWith = 0 Then
|
||||
grd.Splits(0).DisplayColumns(i).Width = 0
|
||||
grd.Splits(0).DisplayColumns(i).Visible = False
|
||||
Else
|
||||
grd.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
|
||||
'If grd.Columns(i).Caption = "" Then
|
||||
' 'grd.Splits(0).DisplayColumns(i).Visible = False
|
||||
' grd.Splits(0).DisplayColumns(i).Width = 0
|
||||
' 'grd.Columns(i).Caption = grd.Columns(i).DataField
|
||||
'Else
|
||||
' grd.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
'End If
|
||||
If ts.locked Then
|
||||
grd.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
|
||||
If ts.AlsHacken Then
|
||||
grd.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If grd.Columns(i).DataField = "aktiv" Then
|
||||
grd.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
grd.Columns(i).ValueItems.DefaultItem = True
|
||||
grd.Columns(i).DefaultValue = True
|
||||
grd.Columns(i).FilterText = True
|
||||
End If
|
||||
If grd.Columns(i).DataField = "erstellt_am" Then
|
||||
grd.Columns(i).DefaultValue = Now
|
||||
End If
|
||||
|
||||
|
||||
'============ Aktuelle Spalte in ArraySpalten schreiben
|
||||
'============ Sortorder darf nicht 0 sein
|
||||
If iMaxSortOrderValue > 0 Then
|
||||
If ts.Order = 0 Then
|
||||
MessageBox.Show("Fehler Reihenfolge" & vbCrLf & "Tabelle " & Me.TableName & vbCrLf & "Spalte " & s & vbCrLf & "Sortierreihenfolge mit dem Wert 0 sind nicht erlaubt!" & vbCrLf & "Prüfen Sie die Reihenfolge der Tabelle " & Me.TableName & " in der Systemadministration Spalten", "Sortierreihenfolge 0", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
|
||||
Else
|
||||
Reihe = grd.Splits(0).DisplayColumns(i)
|
||||
If Not aSpalten(ts.Order - 1, 0) Is Nothing Then
|
||||
'============ Arrayplatz bereits bleget
|
||||
' MessageBox.Show("Doppelte Sortier-Nummer!" & vbCrLf & "Tabelle " & Me.TableName & vbCrLf & "Spalte " & s & vbCrLf & "Prüfen Sie die Sortierreihenfoge der Tabelle " & Me.TableName & " in der Systemadministration Spalten!", MessageBoxButtons.OK, "Sortierreihenfolge ", MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
|
||||
MessageBox.Show("Doppelte Sortier-Nummer!" & vbCrLf & "Tabelle " & Me.TableName & vbCrLf & "Spalte " & s & vbCrLf & "Sortierreihenfolge mit 2 gleichen Werten sind nicht erlaubt!" & vbCrLf & "Prüfen Sie die Reihenfolge der Tabelle " & Me.TableName & " in der Systemadministration Spalten", "Doppelte Sortier-Nummer " & ts.Order, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
|
||||
'bSetNewSortOrder = False
|
||||
End If
|
||||
If ts.Order > 0 And aSpalten(ts.Order - 1, 0) Is Nothing Then
|
||||
'============ Aktuelle Spalte in ArraySpalten schreiben
|
||||
aSpalten(ts.Order - 1, 0) = Reihe
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
If iMaxSortOrderValue > 0 And bSetNewSortOrder = True Then
|
||||
'===============================================================================
|
||||
'Wenn in der Sortierreihenfoge keine 0 steht werden die Spalten neu Sortiert
|
||||
'===============================================================================
|
||||
Try
|
||||
'============ Spalten löschen
|
||||
For i = 0 To DisplayColumnsCount
|
||||
grd.Splits(0).DisplayColumns.RemoveAt(0)
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
'============ Spalten nachh Sortorder einfügen
|
||||
For i = 0 To iMaxSortOrderValue - 1
|
||||
Try
|
||||
If Not aSpalten(i, 0) Is Nothing Then
|
||||
If aSpalten(i, 0).Width > 0 Then
|
||||
grd.Splits(0).DisplayColumns.Insert(i - iSpaltenOffset, aSpalten(i, 0))
|
||||
Else
|
||||
iSpaltenOffset += 1
|
||||
End If
|
||||
Else
|
||||
iSpaltenOffset += 1
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
Next
|
||||
End If
|
||||
dsMaxSortOrder = Nothing
|
||||
daMaxSortOrder = Nothing
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user