shu/EDOKA_Tools
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
EDOKA_Toolset/Plugin_EDK/Crypto.vb Normal file
View File

@@ -0,0 +1,34 @@
Module Crypto
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
strPwd = UCase$(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
strPwd = UCase$(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function
End Module

14
EDOKA_Toolset/Plugin_EDK/Globals.vb Normal file
View File

@@ -0,0 +1,14 @@
Imports System.IO
Imports System.Reflection
Module Globals
Public ConnectionFilename As String
Public sConnectionstring As String
Public Mitarbeiternr As Integer
Public Function ApplicationPath() As String
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
End Function
End Module

20
EDOKA_Toolset/Plugin_EDK/Klassen/Class1.vb Normal file
View File

@@ -0,0 +1,20 @@
Imports PluginContracts
Public Class Class1
Implements PluginContracts.IPlugin
Public ReadOnly Property Name() As String Implements IPlugin.Name
Get
Return "EDK_Analyzer"
End Get
End Property
Public Function Show(CurrentUser As String, Connectionstring As String, Parentform As Object) As Object Implements IPlugin.Show
Globals.Mitarbeiternr = CurrentUser
Dim f As New FrmData
f.Text = Me.Name
f.MdiParent = Parentform
f.Show()
End Function
End Class

253
EDOKA_Toolset/Plugin_EDK/Klassen/db.vb Normal file
View File

@@ -0,0 +1,253 @@
Imports System.IO
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class DB
Public dsDaten As New DataSet
Public dsdaten1 As New DataSet
Public dsdatenma As New DataSet
Public dadaten As SqlDataAdapter
Public dadatenma As SqlDataAdapter
Public dadaten1 As SqlDataAdapter
Dim sql As String
Public subject As String
Public body As String
Public Function Check_Dok(ByVal Dokumentid As String) As Boolean
Dim selectcommand As New SqlCommand
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim ds As New DataSet
selectcommand.CommandText = "sp_plugin_berechtigung_checkdok"
selectcommand.Parameters.Add("@Dokumentid", SqlDbType.VarChar, 255)
selectcommand.Parameters(0).Value = Dokumentid
selectcommand.CommandType = CommandType.StoredProcedure
selectcommand.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionstring
connection.Open()
da.SelectCommand = selectcommand
da.Fill(ds)
If ds.Tables(0).Rows(0).Item(0) = "NOK" Then
Return False
Else
subject = ds.Tables(0).Rows(0).Item("subject")
body = ds.Tables(0).Rows(0).Item("Body")
Return True
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
ds.Dispose()
selectcommand.Dispose()
End Try
End Function
Public Sub Insert_Row(ByVal Dokumentid As String, Mitarbeiternr As String, bemerkung As String, usernr As Integer)
Dim selectcommand As New SqlCommand
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim ds As New DataSet
selectcommand.CommandText = "sp_plugin_berechtigung_insertrow"
selectcommand.Parameters.Add("@Dokumentid", SqlDbType.VarChar, 255)
selectcommand.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
selectcommand.Parameters.Add("@bemerkung", SqlDbType.VarChar, 255)
selectcommand.Parameters.Add("@usernr", SqlDbType.VarChar, 255)
selectcommand.Parameters(0).Value = Dokumentid
selectcommand.Parameters(1).Value = Mitarbeiternr
selectcommand.Parameters(2).Value = bemerkung
selectcommand.Parameters(3).Value = usernr
selectcommand.CommandType = CommandType.StoredProcedure
selectcommand.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionstring
connection.Open()
selectcommand.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
ds.Dispose()
selectcommand.Dispose()
End Try
End Sub
Public Sub sendmail(ByVal empfaenger As String, subject As String, body As String)
Dim selectcommand As New SqlCommand
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim ds As New DataSet
selectcommand.CommandText = "sp_plugin_berechtigung_sendmail"
selectcommand.Parameters.Add("@empfaenger", SqlDbType.VarChar, 255)
selectcommand.Parameters.Add("@subject", SqlDbType.VarChar, 255)
selectcommand.Parameters.Add("@body", SqlDbType.VarChar, 255)
selectcommand.Parameters(0).Value = empfaenger
selectcommand.Parameters(1).Value = subject
selectcommand.Parameters(2).Value = body
selectcommand.CommandType = CommandType.StoredProcedure
selectcommand.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionstring
connection.Open()
selectcommand.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
ds.Dispose()
selectcommand.Dispose()
End Try
End Sub
Public Sub deleteentry(ByVal mutierer As String, eintrag As String)
Dim selectcommand As New SqlCommand
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim ds As New DataSet
selectcommand.CommandText = "sp_plugin_berechtigung_deleteentry"
selectcommand.Parameters.Add("@mutierer", SqlDbType.VarChar, 255)
selectcommand.Parameters.Add("@eintrag", SqlDbType.VarChar, 255)
selectcommand.Parameters(0).Value = mutierer
selectcommand.Parameters(1).Value = eintrag
selectcommand.CommandType = CommandType.StoredProcedure
selectcommand.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionstring
connection.Open()
selectcommand.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
ds.Dispose()
selectcommand.Dispose()
End Try
End Sub
Public Sub Get_MA_Daten()
dsdatenma.Clear()
sql = "Select mitarbeiternr, name+' '+vorname+', '+tgnummer as Mitarbeiter from Mitarbeiter where klassifizierung=1 and aktiv=1 order by name, vorname"
dadatenma = New SqlDataAdapter(sql, Globals.sConnectionstring)
dadatenma.Fill(dsdatenma, "MaData")
End Sub
Public Sub Get_data(ByVal sql As String)
Try
dsDaten.Clear()
Dim selectcommand As New SqlCommand
Dim connection As New SqlConnection()
selectcommand.CommandText = sql
selectcommand.CommandType = CommandType.Text
selectcommand.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionstring
connection.Open()
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
dadaten.SelectCommand = selectcommand
dadaten.Fill(dsDaten, "Einträge")
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
selectcommand.Dispose()
End Try
Catch
End Try
End Sub
Sub Update_Daten()
Try
Dim cb As New SqlCommandBuilder(dadaten)
dadaten.Update(dsDaten, dsDaten.Tables(0).TableName)
MsgBox("Änderungen wurden gespeichert")
Catch ex As Exception
MsgBox("Felher: " + ex.Message)
End Try
End Sub
End Class
Public Class DB_Connection
''' <summary>
''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
'''
''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
''' </summary>
''' <remarks></remarks>
Sub New()
Dim path As String = ""
Dim fc As Integer = 0
If fc < 2 Then Globals.ConnectionFilename = "edokaconn.cfg"
Dim ofile As System.IO.File
Dim oread As System.IO.StreamReader
oread = ofile.OpenText(ApplicationPath() + "\" + Globals.ConnectionFilename)
sConnectionstring = oread.ReadLine
sConnectionstring = Crypto.DecryptText(sConnectionstring, "HutterundMueller")
sConnectionstring = Left(sConnectionstring, Len(sConnectionstring) - 1)
Globals.sConnectionstring = sConnectionstring
oread.Close()
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select beschreibung from pluginparameter where pluginparamnr=1", connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
connection.ConnectionString = Globals.sConnectionstring
connection.Open()
da.Fill(ds, "params")
path = ds.Tables(0).Rows(0).Item(0)
Catch ex As Exception
path = ""
CB = Nothing
End Try
ds = Nothing
da = Nothing
connection.Close()
connection = Nothing
Globals.ConnectionFilename = "edokaconn.cfg"
oread = ofile.OpenText(path + "\" + Globals.ConnectionFilename)
sConnectionstring = oread.ReadLine
sConnectionstring = Crypto.DecryptText(sConnectionstring, "HutterundMueller")
sConnectionstring = Left(sConnectionstring, Len(sConnectionstring) - 1)
Globals.sConnectionstring = sConnectionstring
oread.Close()
End Sub
End Class

13
EDOKA_Toolset/Plugin_EDK/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
EDOKA_Toolset/Plugin_EDK/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>1</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
EDOKA_Toolset/Plugin_EDK/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Plugin_EDK")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Plugin_EDK")>
<Assembly: AssemblyCopyright("Copyright © 2017")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("bb9b6b5d-95ce-4383-9d20-07d17dca32f2")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

62
EDOKA_Toolset/Plugin_EDK/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Plugin_EDK.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
EDOKA_Toolset/Plugin_EDK/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,117 @@
<?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.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="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</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" 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>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>
</root>

73
EDOKA_Toolset/Plugin_EDK/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Plugin_EDK.My.MySettings
Get
Return Global.Plugin_EDK.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
EDOKA_Toolset/Plugin_EDK/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

2
EDOKA_Toolset/Plugin_EDK/My Project/licenses.licx Normal file
View File

@@ -0,0 +1,2 @@
C1.Win.C1SplitContainer.C1SplitContainer, C1.Win.C1SplitContainer.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=79882d576c6336da
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da

146
EDOKA_Toolset/Plugin_EDK/Plugin_EDK.vbproj Normal file
View File

@@ -0,0 +1,146 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{7E1AA04C-DF46-4BE4-B588-3CD9D2B4162C}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>Plugin_EDK</RootNamespace>
<AssemblyName>Plugin_EDK</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\Bin\</OutputPath>
<DocumentationFile>Plugin_EDK.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Plugin_EDK.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="C1.Win.C1SplitContainer.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=79882d576c6336da, processorArchitecture=MSIL" />
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
<Reference Include="ColorCode, Version=1.0.1.62759, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Bin\ColorCode.dll</HintPath>
</Reference>
<Reference Include="EnvDTE, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="PluginContracts, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Bin\PluginContracts.dll</HintPath>
</Reference>
<Reference Include="Syncfusion.Grid.Base, Version=15.1460.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.Grid.Windows, Version=15.1460.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.Shared.Base, Version=15.1460.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.Shared.Windows, Version=15.1460.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.SpellChecker.Base, Version=15.1460.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.Tools.Base, Version=15.1460.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89" />
<Reference Include="Syncfusion.Tools.Windows, Version=15.1460.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Design" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Crypto.vb" />
<Compile Include="frmData.Designer.vb">
<DependentUpon>frmData.vb</DependentUpon>
</Compile>
<Compile Include="frmData.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Globals.vb" />
<Compile Include="Klassen\Class1.vb" />
<Compile Include="Klassen\db.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmData.resx">
<DependentUpon>frmData.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

669
EDOKA_Toolset/Plugin_EDK/frmData.Designer.vb generated Normal file
View File

@@ -0,0 +1,669 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmData
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmData))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.gpEDKData = New System.Windows.Forms.GroupBox()
Me.Button5 = New System.Windows.Forms.Button()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.ComboBox6 = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.gpEDKLog = New System.Windows.Forms.GroupBox()
Me.Button4 = New System.Windows.Forms.Button()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.ComboBox5 = New System.Windows.Forms.ComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.ComboBox4 = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.Button6 = New System.Windows.Forms.Button()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Button2 = New System.Windows.Forms.Button()
Me.ComboBox3 = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.RadioButton2 = New System.Windows.Forms.RadioButton()
Me.RadioButton1 = New System.Windows.Forms.RadioButton()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.Button7 = New System.Windows.Forms.Button()
Me.MenuStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.gpEDKData.SuspendLayout()
Me.gpEDKLog.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.GroupBox4.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
Me.GroupBox3.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1151, 24)
Me.MenuStrip1.TabIndex = 0
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
Me.BeendenToolStripMenuItem.Text = "&Beenden"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.gpEDKData)
Me.GroupBox1.Controls.Add(Me.gpEDKLog)
Me.GroupBox1.Controls.Add(Me.GroupBox5)
Me.GroupBox1.Controls.Add(Me.GroupBox4)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 24)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(332, 698)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Selektoin"
'
'gpEDKData
'
Me.gpEDKData.Controls.Add(Me.Button5)
Me.gpEDKData.Controls.Add(Me.TextBox4)
Me.gpEDKData.Controls.Add(Me.ComboBox6)
Me.gpEDKData.Controls.Add(Me.Label6)
Me.gpEDKData.Dock = System.Windows.Forms.DockStyle.Top
Me.gpEDKData.Enabled = False
Me.gpEDKData.Location = New System.Drawing.Point(3, 312)
Me.gpEDKData.Name = "gpEDKData"
Me.gpEDKData.Size = New System.Drawing.Size(326, 83)
Me.gpEDKData.TabIndex = 3
Me.gpEDKData.TabStop = False
Me.gpEDKData.Text = "EDK_Data"
'
'Button5
'
Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image)
Me.Button5.Location = New System.Drawing.Point(248, 16)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(32, 24)
Me.Button5.TabIndex = 17
Me.Button5.UseVisualStyleBackColor = True
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(145, 19)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(100, 20)
Me.TextBox4.TabIndex = 16
'
'ComboBox6
'
Me.ComboBox6.FormattingEnabled = True
Me.ComboBox6.Items.AddRange(New Object() {"= ", "<>"})
Me.ComboBox6.Location = New System.Drawing.Point(88, 18)
Me.ComboBox6.Name = "ComboBox6"
Me.ComboBox6.Size = New System.Drawing.Size(51, 21)
Me.ComboBox6.TabIndex = 15
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(8, 22)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(64, 13)
Me.Label6.TabIndex = 14
Me.Label6.Text = "TG-Nummer"
'
'gpEDKLog
'
Me.gpEDKLog.Controls.Add(Me.Button4)
Me.gpEDKLog.Controls.Add(Me.TextBox3)
Me.gpEDKLog.Controls.Add(Me.ComboBox5)
Me.gpEDKLog.Controls.Add(Me.Label5)
Me.gpEDKLog.Controls.Add(Me.Button3)
Me.gpEDKLog.Controls.Add(Me.TextBox2)
Me.gpEDKLog.Controls.Add(Me.ComboBox4)
Me.gpEDKLog.Controls.Add(Me.Label4)
Me.gpEDKLog.Dock = System.Windows.Forms.DockStyle.Top
Me.gpEDKLog.Location = New System.Drawing.Point(3, 229)
Me.gpEDKLog.Name = "gpEDKLog"
Me.gpEDKLog.Size = New System.Drawing.Size(326, 83)
Me.gpEDKLog.TabIndex = 2
Me.gpEDKLog.TabStop = False
Me.gpEDKLog.Text = "EDK_Log"
'
'Button4
'
Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image)
Me.Button4.Location = New System.Drawing.Point(248, 42)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(32, 24)
Me.Button4.TabIndex = 13
Me.Button4.UseVisualStyleBackColor = True
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(145, 45)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(100, 20)
Me.TextBox3.TabIndex = 12
'
'ComboBox5
'
Me.ComboBox5.FormattingEnabled = True
Me.ComboBox5.Items.AddRange(New Object() {"=", "Like"})
Me.ComboBox5.Location = New System.Drawing.Point(87, 44)
Me.ComboBox5.Name = "ComboBox5"
Me.ComboBox5.Size = New System.Drawing.Size(52, 21)
Me.ComboBox5.TabIndex = 11
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(8, 48)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(49, 13)
Me.Label5.TabIndex = 10
Me.Label5.Text = "Filename"
'
'Button3
'
Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
Me.Button3.Location = New System.Drawing.Point(247, 16)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(32, 24)
Me.Button3.TabIndex = 9
Me.Button3.UseVisualStyleBackColor = True
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(144, 19)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(100, 20)
Me.TextBox2.TabIndex = 8
'
'ComboBox4
'
Me.ComboBox4.FormattingEnabled = True
Me.ComboBox4.Items.AddRange(New Object() {"=", ">", "<"})
Me.ComboBox4.Location = New System.Drawing.Point(87, 18)
Me.ComboBox4.Name = "ComboBox4"
Me.ComboBox4.Size = New System.Drawing.Size(51, 21)
Me.ComboBox4.TabIndex = 7
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(7, 22)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(70, 13)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Mitarbeiter-Nr"
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.Button7)
Me.GroupBox5.Controls.Add(Me.Button6)
Me.GroupBox5.Controls.Add(Me.Label9)
Me.GroupBox5.Controls.Add(Me.Label8)
Me.GroupBox5.Controls.Add(Me.Label7)
Me.GroupBox5.Controls.Add(Me.DateTimePicker3)
Me.GroupBox5.Controls.Add(Me.DateTimePicker2)
Me.GroupBox5.Controls.Add(Me.DateTimePicker1)
Me.GroupBox5.Controls.Add(Me.Button2)
Me.GroupBox5.Controls.Add(Me.ComboBox3)
Me.GroupBox5.Controls.Add(Me.Label3)
Me.GroupBox5.Controls.Add(Me.Button1)
Me.GroupBox5.Controls.Add(Me.TextBox1)
Me.GroupBox5.Controls.Add(Me.ComboBox2)
Me.GroupBox5.Controls.Add(Me.Label2)
Me.GroupBox5.Controls.Add(Me.Label1)
Me.GroupBox5.Controls.Add(Me.ComboBox1)
Me.GroupBox5.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox5.Location = New System.Drawing.Point(3, 71)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(326, 158)
Me.GroupBox5.TabIndex = 1
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Selektion"
'
'Button6
'
Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image)
Me.Button6.Location = New System.Drawing.Point(294, 113)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(32, 24)
Me.Button6.TabIndex = 18
Me.Button6.UseVisualStyleBackColor = True
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(98, 132)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(21, 13)
Me.Label9.TabIndex = 17
Me.Label9.Text = "Bis"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(98, 113)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(26, 13)
Me.Label8.TabIndex = 16
Me.Label8.Text = "Von"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(9, 113)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(87, 13)
Me.Label7.TabIndex = 15
Me.Label7.Text = "Insert-Timestamp"
'
'DateTimePicker3
'
Me.DateTimePicker3.CustomFormat = "yyy-MM-dd HH:mm:ss"
Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker3.Location = New System.Drawing.Point(143, 132)
Me.DateTimePicker3.Name = "DateTimePicker3"
Me.DateTimePicker3.Size = New System.Drawing.Size(150, 20)
Me.DateTimePicker3.TabIndex = 14
'
'DateTimePicker2
'
Me.DateTimePicker2.CustomFormat = "yyy-MM-dd HH:mm:ss"
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker2.Location = New System.Drawing.Point(143, 113)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.Size = New System.Drawing.Size(150, 20)
Me.DateTimePicker2.TabIndex = 13
'
'DateTimePicker1
'
Me.DateTimePicker1.CustomFormat = "yyy-MM-dd HH:mm:ss"
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker1.Location = New System.Drawing.Point(143, 78)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(150, 20)
Me.DateTimePicker1.TabIndex = 12
'
'Button2
'
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
Me.Button2.Location = New System.Drawing.Point(294, 78)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(32, 24)
Me.Button2.TabIndex = 9
Me.Button2.UseVisualStyleBackColor = True
'
'ComboBox3
'
Me.ComboBox3.FormattingEnabled = True
Me.ComboBox3.Items.AddRange(New Object() {"=", ">", "<"})
Me.ComboBox3.Location = New System.Drawing.Point(101, 78)
Me.ComboBox3.Name = "ComboBox3"
Me.ComboBox3.Size = New System.Drawing.Size(37, 21)
Me.ComboBox3.TabIndex = 7
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(8, 81)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(87, 13)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Insert-Timestamp"
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.Location = New System.Drawing.Point(247, 46)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(32, 24)
Me.Button1.TabIndex = 5
Me.Button1.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(144, 49)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(100, 20)
Me.TextBox1.TabIndex = 4
'
'ComboBox2
'
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Items.AddRange(New Object() {"=", ">", "<"})
Me.ComboBox2.Location = New System.Drawing.Point(101, 48)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(37, 21)
Me.ComboBox2.TabIndex = 3
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(7, 52)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(43, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Row-ID"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 22)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(124, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Anzahl letzte Datensätze"
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Items.AddRange(New Object() {"100", "200", "500", "1000", "2000", "10000"})
Me.ComboBox1.Location = New System.Drawing.Point(144, 19)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(101, 21)
Me.ComboBox1.TabIndex = 0
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.RadioButton2)
Me.GroupBox4.Controls.Add(Me.RadioButton1)
Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBox4.Location = New System.Drawing.Point(3, 16)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(326, 55)
Me.GroupBox4.TabIndex = 0
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Tabelle"
'
'RadioButton2
'
Me.RadioButton2.AutoSize = True
Me.RadioButton2.Location = New System.Drawing.Point(87, 20)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(76, 17)
Me.RadioButton2.TabIndex = 1
Me.RadioButton2.Text = "EDK_Data"
Me.RadioButton2.UseVisualStyleBackColor = True
'
'RadioButton1
'
Me.RadioButton1.AutoSize = True
Me.RadioButton1.Checked = True
Me.RadioButton1.Location = New System.Drawing.Point(10, 20)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(71, 17)
Me.RadioButton1.TabIndex = 0
Me.RadioButton1.TabStop = True
Me.RadioButton1.Text = "EDK_Log"
Me.RadioButton1.UseVisualStyleBackColor = True
'
'SplitContainer1
'
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.Location = New System.Drawing.Point(332, 24)
Me.SplitContainer1.Name = "SplitContainer1"
Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox3)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.WebBrowser1)
Me.SplitContainer1.Panel2.Controls.Add(Me.RichTextBox1)
Me.SplitContainer1.Panel2.Controls.Add(Me.CheckBox1)
Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip1)
Me.SplitContainer1.Size = New System.Drawing.Size(819, 698)
Me.SplitContainer1.SplitterDistance = 300
Me.SplitContainer1.TabIndex = 2
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.C1Daten)
Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox3.Location = New System.Drawing.Point(0, 0)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(819, 300)
Me.GroupBox3.TabIndex = 4
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Datensätze"
'
'C1Daten
'
Me.C1Daten.AlternatingRows = True
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Daten.FetchRowStyles = True
Me.C1Daten.FilterBar = True
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
Me.C1Daten.Location = New System.Drawing.Point(3, 16)
Me.C1Daten.Name = "C1Daten"
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Daten.RecordSelectorWidth = 16
Me.C1Daten.Size = New System.Drawing.Size(813, 281)
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Daten.TabIndex = 17
Me.C1Daten.Text = "C1TrueDBGrid2"
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
'
'WebBrowser1
'
Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser1.Location = New System.Drawing.Point(0, 25)
Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser1.Name = "WebBrowser1"
Me.WebBrowser1.Size = New System.Drawing.Size(819, 369)
Me.WebBrowser1.TabIndex = 3
'
'RichTextBox1
'
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox1.Font = New System.Drawing.Font("Courier New", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RichTextBox1.Location = New System.Drawing.Point(0, 25)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(819, 369)
Me.RichTextBox1.TabIndex = 2
Me.RichTextBox1.Text = ""
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Checked = True
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox1.Location = New System.Drawing.Point(148, 3)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(94, 17)
Me.CheckBox1.TabIndex = 1
Me.CheckBox1.Text = "XML anzeigen"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(819, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(71, 22)
Me.ToolStripButton1.Text = "Check XML"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(63, 22)
Me.ToolStripButton2.Text = "Speichern"
'
'Button7
'
Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image)
Me.Button7.Location = New System.Drawing.Point(247, 19)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(32, 24)
Me.Button7.TabIndex = 19
Me.Button7.UseVisualStyleBackColor = True
'
'frmData
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1151, 722)
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.MenuStrip1)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "frmData"
Me.Text = "EDK_Analyzer"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.gpEDKData.ResumeLayout(False)
Me.gpEDKData.PerformLayout()
Me.gpEDKLog.ResumeLayout(False)
Me.gpEDKLog.PerformLayout()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.Panel2.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As Windows.Forms.MenuStrip
Friend WithEvents DateiToolStripMenuItem As Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As Windows.Forms.ToolStripMenuItem
Friend WithEvents GroupBox1 As Windows.Forms.GroupBox
Friend WithEvents GroupBox5 As Windows.Forms.GroupBox
Friend WithEvents Label1 As Windows.Forms.Label
Friend WithEvents ComboBox1 As Windows.Forms.ComboBox
Friend WithEvents GroupBox4 As Windows.Forms.GroupBox
Friend WithEvents RadioButton2 As Windows.Forms.RadioButton
Friend WithEvents RadioButton1 As Windows.Forms.RadioButton
Friend WithEvents SplitContainer1 As Windows.Forms.SplitContainer
Friend WithEvents GroupBox3 As Windows.Forms.GroupBox
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents CheckBox1 As Windows.Forms.CheckBox
Friend WithEvents ToolStrip1 As Windows.Forms.ToolStrip
Friend WithEvents RichTextBox1 As Windows.Forms.RichTextBox
Friend WithEvents ToolStripButton1 As Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton2 As Windows.Forms.ToolStripButton
Friend WithEvents SaveFileDialog1 As Windows.Forms.SaveFileDialog
Friend WithEvents WebBrowser1 As Windows.Forms.WebBrowser
Friend WithEvents Button1 As Windows.Forms.Button
Friend WithEvents TextBox1 As Windows.Forms.TextBox
Friend WithEvents ComboBox2 As Windows.Forms.ComboBox
Friend WithEvents Label2 As Windows.Forms.Label
Friend WithEvents Button2 As Windows.Forms.Button
Friend WithEvents ComboBox3 As Windows.Forms.ComboBox
Friend WithEvents Label3 As Windows.Forms.Label
Friend WithEvents gpEDKLog As Windows.Forms.GroupBox
Friend WithEvents gpEDKData As Windows.Forms.GroupBox
Friend WithEvents Button5 As Windows.Forms.Button
Friend WithEvents TextBox4 As Windows.Forms.TextBox
Friend WithEvents ComboBox6 As Windows.Forms.ComboBox
Friend WithEvents Label6 As Windows.Forms.Label
Friend WithEvents Button4 As Windows.Forms.Button
Friend WithEvents TextBox3 As Windows.Forms.TextBox
Friend WithEvents ComboBox5 As Windows.Forms.ComboBox
Friend WithEvents Label5 As Windows.Forms.Label
Friend WithEvents Button3 As Windows.Forms.Button
Friend WithEvents TextBox2 As Windows.Forms.TextBox
Friend WithEvents ComboBox4 As Windows.Forms.ComboBox
Friend WithEvents Label4 As Windows.Forms.Label
Friend WithEvents DateTimePicker1 As Windows.Forms.DateTimePicker
Friend WithEvents Button6 As Windows.Forms.Button
Friend WithEvents Label9 As Windows.Forms.Label
Friend WithEvents Label8 As Windows.Forms.Label
Friend WithEvents Label7 As Windows.Forms.Label
Friend WithEvents DateTimePicker3 As Windows.Forms.DateTimePicker
Friend WithEvents DateTimePicker2 As Windows.Forms.DateTimePicker
Friend WithEvents Button7 As Windows.Forms.Button
End Class

325
EDOKA_Toolset/Plugin_EDK/frmData.resx Normal file
View File

@@ -0,0 +1,325 @@
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
X5PSraNl1YanAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
X5PSraNl1YanAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
X5PSraNl1YanAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
X5PSraNl1YanAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
X5PSraNl1YanAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
X5PSraNl1YanAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACrElEQVQ4T7WT3U9SYRzHTy+r5bqp1VUX
3XTR/AdaV7W1uuyue5V4kRdJ1GVhsSzXumjTyYwXQd4VxQUHOBxefBkkg81AMbWlKZBaCbqBJEyIXw/w
zOZFddVn++08e77f7+8857fnEP+VcCL9Qzwe4FWqwzx9l2+kr3KlU2ex/G8s0U+lz7vZ/M5+oZjYzaWU
gZhFZJ4WsfVUPbb8nV7vLES+ZyGynYVENg/b+QMgF+Nf2sxTWqbKcQ3b/gxf525lqamf6LnXZQ0WzbEk
rGQKqMl6UWjwerhK+gq2/kZCztbh5SEtOt9todFnFA77UiOxBERTeyAhZ9J8g7cLW2p0T8ZY0tDHcn94
OY+3jsDV0NKO8UDelUiDIrgEPC0dwhJBiJ2zzFcTUdjMFcC2lIQeb2QfS4ewBl3XuVr3jml5C3ToJJwh
V6oqiJ1hppgMQuhbBsJoaNF0DnTz69D59l0eAI5VTQhBH3WaraJKg/NJUEbjwFa7MkQbFarn6z0gNPmq
NbKSAtnCJgiN3rJA7ymjAZZxvnoCjobOKWIb8HJqAThqao1oNQfPCMz+iy0m3+tKg2eeORj4sIW6U1DR
JBI4jvMER+t2PLbOlOWLX0E05i81a90GLNVga+hCN+osnd8ANGFoG5seeTgWuMnTe4Q8g3fukcVfJFe3
oS+aQC+gM81azw0crcFSUQqe3lt6OrkAve/j0G7xVwYFD0wT0OOJgH0tDf3RJAiGJ/fZQ1QPjh0FXRwd
Eoud9jDI0LDI1RQ411KgW9yqfjdryFlgqp0D2P6be6OjJ1hysg7VBYbS/oShJDfQdS2yVM5ype6rHAcM
hS3eJCfbGUr6fOWnQplTOF5DIpk6WRGbBh2Xm2TkrUa5tbVBZnvR+Mb2vEFmFaG9O2yN/VKz0XGuFiaI
X5PSraNl1YanAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value>
</metadata>
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{Wrap:True;Trimming:Character;AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView HBarHeight="16" VBarHeight="16" Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="16" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 811, 279&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 811, 279&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>239, 17</value>
</metadata>
</root>

659
EDOKA_Toolset/Plugin_EDK/frmData.vb Normal file
View File

@@ -0,0 +1,659 @@
Imports C1.Win.C1TrueDBGrid
Imports System.IO
Imports System.IO.Stream
Imports System.Drawing
Imports System.Xml
Imports ColorCode
Public Class frmData
Dim OnLoad As Boolean = True
Dim data As New DB
Dim dbco As New DB_Connection
Private Sub frmData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.ComboBox1.SelectedIndex = 0
Me.ComboBox2.SelectedIndex = 0
Me.ComboBox3.SelectedIndex = 0
Me.ComboBox4.SelectedIndex = 0
Me.ComboBox5.SelectedIndex = 0
Me.ComboBox6.SelectedIndex = 0
OnLoad = False
Get_Data(1)
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
If OnLoad Then Exit Sub
If Me.RadioButton1.Checked = True Then
Get_Data(1)
Me.gpEDKLog.Enabled = True
Me.gpEDKData.Enabled = False
Else
Me.gpEDKLog.Enabled = False
Me.gpEDKData.Enabled = True
End If
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
If OnLoad Then Exit Sub
If Me.RadioButton2.Checked = True Then
Get_Data(2)
Me.gpEDKLog.Enabled = False
Me.gpEDKData.Enabled = True
Else
Me.gpEDKLog.Enabled = True
Me.gpEDKData.Enabled = False
End If
End Sub
Sub Get_Data(ByVal Typ As Integer)
Me.C1Daten.Columns.Clear()
data.dsDaten.Tables.Clear()
Me.RichTextBox1.Text = ""
Me.WebBrowser1.DocumentText = ""
If Typ < 3 Then
Try
If Me.RadioButton1.Checked = True Then Typ = 1
If Me.RadioButton2.Checked = True Then Typ = 2
Dim sql As String
sql = "Select "
If IsNumeric(Me.ComboBox1.Text) Then
sql = sql + "top " + Me.ComboBox1.Text + " * "
End If
Select Case Typ
Case 1
sql = sql + " from dbo.edk_log"
Case 2
sql = sql + " from dbo.edk_data"
End Select
sql = sql + " order by rowid desc"
data.Get_data(sql)
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = data.dsDaten.Tables(0)
Me.C1Daten.DataMember = data.dsDaten.Tables(0).TableName
For i As Integer = 0 To Me.C1Daten.Splits(0).DisplayColumns.Count - 1
If C1Daten.Columns(i).DataType.Name = "DateTime" Then
C1Daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss.fff"
End If
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
If Typ = 3 Then
Try
If Me.RadioButton1.Checked = True Then Typ = 1
If Me.RadioButton2.Checked = True Then Typ = 2
Dim sql As String
sql = "Select "
If IsNumeric(Me.ComboBox1.Text) Then
sql = sql + "top " + Me.ComboBox1.Text + " * "
End If
Select Case Typ
Case 1
sql = sql + " from dbo.edk_log"
Case 2
sql = sql + " from dbo.edk_data"
End Select
sql = sql + " where rowid " + ComboBox2.Text + " " + TextBox1.Text + " "
sql = sql + " order by rowid desc"
data.Get_data(sql)
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = data.dsDaten.Tables(0)
Me.C1Daten.DataMember = data.dsDaten.Tables(0).TableName
For i As Integer = 0 To Me.C1Daten.Splits(0).DisplayColumns.Count - 1
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
If Typ = 4 Then
Try
If Me.RadioButton1.Checked = True Then Typ = 1
If Me.RadioButton2.Checked = True Then Typ = 2
Dim sql As String
sql = "Select "
If IsNumeric(Me.ComboBox1.Text) Then
sql = sql + "top " + Me.ComboBox1.Text + " * "
End If
Select Case Typ
Case 1
sql = sql + " from dbo.edk_log"
Case 2
sql = sql + " from dbo.edk_data"
End Select
Dim yy As String = Trim(Str(Year(DateTimePicker1.Value)))
Dim dd As String = Trim(Str(Month(DateTimePicker1.Value)))
Dim mm As String = Trim(Str(Day(DateTimePicker1.Value)))
Dim hh As String = Trim(Str(Hour(DateTimePicker1.Value)))
Dim mi As String = Trim(Str(Minute(DateTimePicker1.Value)))
Dim ss As String = Trim(Str(Second(DateTimePicker1.Value)))
While Len(mm) < 2
mm = "0" + mm
End While
While Len(dd) < 2
dd = "0" + dd
End While
While Len(hh) < 2
hh = "0" + hh
End While
While Len(mi) < 2
mi = "0" + mi
End While
While Len(ss) < 2
ss = "0" + ss
End While
sql = sql + " where insert_timestamp " + ComboBox3.Text + " '" + yy + "-" + mm + "-" + dd + " " + hh + ":" + mi + ":" + ss + "'"
sql = sql + " order by rowid desc"
data.Get_data(sql)
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = data.dsDaten.Tables(0)
Me.C1Daten.DataMember = data.dsDaten.Tables(0).TableName
For i As Integer = 0 To Me.C1Daten.Splits(0).DisplayColumns.Count - 1
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
If Typ = 5 Then
Try
If Me.RadioButton1.Checked = True Then Typ = 1
If Me.RadioButton2.Checked = True Then Typ = 2
Dim sql As String
sql = "Select "
If IsNumeric(Me.ComboBox1.Text) Then
sql = sql + "top " + Me.ComboBox1.Text + " * "
End If
Select Case Typ
Case 1
sql = sql + " from dbo.edk_log"
Case 2
sql = sql + " from dbo.edk_data"
End Select
Dim yy As String = Trim(Str(Year(DateTimePicker1.Value)))
Dim dd As String = Trim(Str(Month(DateTimePicker1.Value)))
Dim mm As String = Trim(Str(Day(DateTimePicker1.Value)))
While Len(mm) < 2
mm = "0" + mm
End While
While Len(dd) < 2
dd = "0" + dd
End While
sql = sql + " where mitarbeiternr " + ComboBox4.Text + " " + Me.TextBox2.Text
sql = sql + " order by rowid desc"
data.Get_data(sql)
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = data.dsDaten.Tables(0)
Me.C1Daten.DataMember = data.dsDaten.Tables(0).TableName
For i As Integer = 0 To Me.C1Daten.Splits(0).DisplayColumns.Count - 1
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
If Typ = 6 Then
Try
If Me.RadioButton1.Checked = True Then Typ = 1
If Me.RadioButton2.Checked = True Then Typ = 2
Dim sql As String
sql = "Select "
If IsNumeric(Me.ComboBox1.Text) Then
sql = sql + "top " + Me.ComboBox1.Text + " * "
End If
Select Case Typ
Case 1
sql = sql + " from dbo.edk_log"
Case 2
sql = sql + " from dbo.edk_data"
End Select
Dim yy As String = Trim(Str(Year(DateTimePicker1.Value)))
Dim dd As String = Trim(Str(Month(DateTimePicker1.Value)))
Dim mm As String = Trim(Str(Day(DateTimePicker1.Value)))
While Len(mm) < 2
mm = "0" + mm
End While
While Len(dd) < 2
dd = "0" + dd
End While
If ComboBox5.Text = "Like" Then
sql = sql + " where filename like '%" + TextBox3.Text + "%'"
Else
sql = sql + " where filename ='" + TextBox3.Text + "'"
End If
sql = sql + " order by rowid desc"
data.Get_data(sql)
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = data.dsDaten.Tables(0)
Me.C1Daten.DataMember = data.dsDaten.Tables(0).TableName
For i As Integer = 0 To Me.C1Daten.Splits(0).DisplayColumns.Count - 1
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
If Typ = 7 Then
Try
If Me.RadioButton1.Checked = True Then Typ = 1
If Me.RadioButton2.Checked = True Then Typ = 2
Dim sql As String
sql = "Select "
If IsNumeric(Me.ComboBox1.Text) Then
sql = sql + "top " + Me.ComboBox1.Text + " * "
End If
Select Case Typ
Case 1
sql = sql + " from dbo.edk_log"
Case 2
sql = sql + " from dbo.edk_data"
End Select
Dim yy As String = Trim(Str(Year(DateTimePicker1.Value)))
Dim dd As String = Trim(Str(Month(DateTimePicker1.Value)))
Dim mm As String = Trim(Str(Day(DateTimePicker1.Value)))
While Len(mm) < 2
mm = "0" + mm
End While
While Len(dd) < 2
dd = "0" + dd
End While
sql = sql + " where tgnummer " + ComboBox6.Text + " '" + Me.TextBox4.Text + "'"
sql = sql + " order by rowid desc"
data.Get_data(sql)
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = data.dsDaten.Tables(0)
Me.C1Daten.DataMember = data.dsDaten.Tables(0).TableName
For i As Integer = 0 To Me.C1Daten.Splits(0).DisplayColumns.Count - 1
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
If Typ = 8 Then
Try
If Me.RadioButton1.Checked = True Then Typ = 1
If Me.RadioButton2.Checked = True Then Typ = 2
Dim sql As String
sql = "Select "
If IsNumeric(Me.ComboBox1.Text) Then
sql = sql + "top " + Me.ComboBox1.Text + " * "
End If
Select Case Typ
Case 1
sql = sql + " from dbo.edk_log"
Case 2
sql = sql + " from dbo.edk_data"
End Select
Dim yy As String = Trim(Str(Year(DateTimePicker2.Value)))
Dim dd As String = Trim(Str(Month(DateTimePicker2.Value)))
Dim mm As String = Trim(Str(Day(DateTimePicker2.Value)))
Dim hh As String = Trim(Str(Hour(DateTimePicker2.Value)))
Dim mi As String = Trim(Str(Minute(DateTimePicker2.Value)))
Dim ss As String = Trim(Str(Second(DateTimePicker2.Value)))
While Len(mm) < 2
mm = "0" + mm
End While
While Len(dd) < 2
dd = "0" + dd
End While
While Len(hh) < 2
hh = "0" + hh
End While
While Len(mi) < 2
mi = "0" + mi
End While
While Len(ss) < 2
ss = "0" + ss
End While
sql = sql + " where insert_timestamp >= '" + yy + "-" + mm + "-" + dd + " " + hh + ":" + mi + ":" + ss + "'"
yy = Trim(Str(Year(DateTimePicker3.Value)))
dd = Trim(Str(Month(DateTimePicker3.Value)))
mm = Trim(Str(Day(DateTimePicker3.Value)))
hh = Trim(Str(Hour(DateTimePicker3.Value)))
mi = Trim(Str(Minute(DateTimePicker3.Value)))
ss = Trim(Str(Second(DateTimePicker3.Value)))
While Len(mm) < 2
mm = "0" + mm
End While
While Len(dd) < 2
dd = "0" + dd
End While
While Len(hh) < 2
hh = "0" + hh
End While
While Len(mi) < 2
mi = "0" + mi
End While
While Len(ss) < 2
ss = "0" + ss
End While
sql = sql + " and insert_timestamp <= '" + yy + "-" + mm + "-" + dd + " " + hh + ":" + mi + ":" + ss + "'"
sql = sql + " order by rowid desc"
data.Get_data(sql)
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = data.dsDaten.Tables(0)
Me.C1Daten.DataMember = data.dsDaten.Tables(0).TableName
For i As Integer = 0 To Me.C1Daten.Splits(0).DisplayColumns.Count - 1
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
Try
For i As Integer = 0 To Me.C1Daten.Splits(0).DisplayColumns.Count - 1
If C1Daten.Columns(i).DataType.Name = "DateTime" Then
C1Daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
End If
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
Next
Catch ex As Exception
End Try
End Sub
Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
refresh_xml()
End Sub
Sub refresh_xml()
Me.RichTextBox1.Text = ""
Me.WebBrowser1.DocumentText = ""
Try
If Me.CheckBox1.Checked = True Then
Dim row As Integer = Me.C1Daten.Columns("rowid").Value
For Each r As DataRow In data.dsDaten.Tables(0).Rows
If r("rowid") = row Then
'Highlight1(r("xmldata"))
'Exit Sub
Dim s As String
s = UnicodeBytesToString(r("xmldata"))
Me.RichTextBox1.Text = s
Dim colorizedSourceCode As String = New CodeColorizer().Colorize(s, Languages.Xml)
Me.WebBrowser1.DocumentText = colorizedSourceCode
'Me.RichTextBox1.Text = UnicodeBytesToString(r("xmldata"))
'Dim s As String
's = UnicodeBytesToString(r("xmldata"))
'AddColouredText(s)
Exit Sub
End If
Next
End If
Catch
End Try
End Sub
Private Function UnicodeBytesToString(ByVal bytes() As Byte) As String
Dim ms As New MemoryStream(bytes)
Return System.Text.Encoding.ASCII.GetString(bytes)
ms.Dispose()
''Return UBound(bytes)
'Return System.Text.Encoding.Unicode.GetString(bytes)
End Function
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If Me.CheckBox1.Checked = False Then
Me.RichTextBox1.Text = ""
Me.WebBrowser1.DocumentText = ""
Else
refresh_xml()
End If
End Sub
Sub Highlight1(ByVal bytes() As Byte)
Dim ms As New MemoryStream(bytes)
Dim reader As New XmlTextReader(ms)
While reader.Read()
Select Case reader.NodeType
Case XmlNodeType.Element
' The node is an element.
Me.RichTextBox1.SelectionColor = Color.Blue
Me.RichTextBox1.AppendText("<")
Me.RichTextBox1.SelectionColor = Color.Brown
Me.RichTextBox1.AppendText(reader.Name)
Me.RichTextBox1.SelectionColor = Color.Blue
Me.RichTextBox1.AppendText(">")
Exit Select
Case XmlNodeType.Text
'Display the text in each element.
Me.RichTextBox1.SelectionColor = Color.Black
Me.RichTextBox1.AppendText(reader.Value)
Exit Select
Case XmlNodeType.EndElement
'Display the end of the element.
Me.RichTextBox1.SelectionColor = Color.Blue
Me.RichTextBox1.AppendText("</")
Me.RichTextBox1.SelectionColor = Color.Brown
Me.RichTextBox1.AppendText(reader.Name)
Me.RichTextBox1.SelectionColor = Color.Blue
Me.RichTextBox1.AppendText(">")
Me.RichTextBox1.AppendText(vbLf)
Exit Select
End Select
End While
End Sub
Private Sub AddColouredText(strTextToAdd As String)
'Use the RichTextBox to create the initial RTF code
RichTextBox1.Clear()
RichTextBox1.Text = strTextToAdd
Dim strRTF As String = RichTextBox1.Rtf
RichTextBox1.Clear()
'
' * ADD COLOUR TABLE TO THE HEADER FIRST
' *
' Search for colour table info, if it exists (which it shouldn't)
' remove it and replace with our one
Dim iCTableStart As Integer = strRTF.IndexOf("colortbl;")
If iCTableStart <> -1 Then
'then colortbl exists
'find end of colortbl tab by searching
'forward from the colortbl tab itself
Dim iCTableEnd As Integer = strRTF.IndexOf("}"c, iCTableStart)
strRTF = strRTF.Remove(iCTableStart, iCTableEnd - iCTableStart)
'now insert new colour table at index of old colortbl tag
' CHANGE THIS STRING TO ALTER COLOUR TABLE
strRTF = strRTF.Insert(iCTableStart, "colortbl ;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;}")
Else
'colour table doesn't exist yet, so let's make one
' find index of start of header
Dim iRTFLoc As Integer = strRTF.IndexOf("\rtf")
' get index of where we'll insert the colour table
' try finding opening bracket of first property of header first
Dim iInsertLoc As Integer = strRTF.IndexOf("{"c, iRTFLoc)
' if there is no property, we'll insert colour table
' just before the end bracket of the header
If iInsertLoc = -1 Then
iInsertLoc = strRTF.IndexOf("}"c, iRTFLoc) - 1
End If
' insert the colour table at our chosen location
' CHANGE THIS STRING TO ALTER COLOUR TABLE
strRTF = strRTF.Insert(iInsertLoc, "{\colortbl ;\red128\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;}")
End If
'
' * NOW PARSE THROUGH RTF DATA, ADDING RTF COLOUR TAGS WHERE WE WANT THEM
' * In our colour table we defined:
' * cf1 = red
' * cf2 = green
' * cf3 = blue
' *
For i As Integer = 0 To strRTF.Length - 1
If strRTF(i) = "<"c Then
'add RTF tags after symbol
'Check for comments tags
If strRTF(i + 1) = "!"c Then
strRTF = strRTF.Insert(i + 4, "\cf2 ")
Else
strRTF = strRTF.Insert(i + 1, "\cf1 ")
End If
'add RTF before symbol
strRTF = strRTF.Insert(i, "\cf3 ")
'skip forward past the characters we've just added
'to avoid getting trapped in the loop
i += 6
ElseIf strRTF(i) = ">"c Then
'add RTF tags after character
strRTF = strRTF.Insert(i + 1, "\cf0 ")
'Check for comments tags
If strRTF(i - 1) = "-"c Then
strRTF = strRTF.Insert(i - 2, "\cf3 ")
'skip forward past the 6 characters we've just added
i += 8
Else
strRTF = strRTF.Insert(i, "\cf3 ")
'skip forward past the 6 characters we've just added
i += 6
End If
End If
Next
RichTextBox1.Rtf = strRTF
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Try
Dim x = System.Xml.Linq.XDocument.Parse(Me.RichTextBox1.Text)
MsgBox("XML-Parser erfolgreich")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Fehlerhaftes XML")
End Try
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Me.SaveFileDialog1.ShowDialog()
If Me.SaveFileDialog1.FileName <> "" Then
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter(Me.SaveFileDialog1.FileName, True)
file.Write(Me.RichTextBox1.Text)
file.Flush()
file.Close()
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.Leave, ComboBox1.SelectedIndexChanged
Try
Me.Get_Data(0)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Get_Data(3)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Get_Data(4)
End Sub
Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Get_Data(5)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Get_Data(6)
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Get_Data(7)
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Get_Data(8)
End Sub
Private Sub DateTimePicker1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles DateTimePicker1.KeyDown, DateTimePicker2.KeyDown, DateTimePicker3.KeyDown
If e.Modifiers = System.Windows.Forms.Keys.Control AndAlso e.KeyCode = System.Windows.Forms.Keys.V Then
Try
sender.VALUE = System.Windows.Forms.Clipboard.GetText()
'Me.DateTimePicker1.Value = System.Windows.Forms.Clipboard.GetText()
'MsgBox(System.Windows.Forms.Clipboard.GetText())
Catch ex As Exception
End Try
End If
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Me.Get_Data(1)
End Sub
End Class

BIN
EDOKA_Toolset/Plugin_EDK/icon-refresh-128.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.1 KiB

1
EDOKA_Toolset/Plugin_EDK/obj/Debug/CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
039bc78b6b92ac647fc6ce6e79609232cdd7a1df

BIN
EDOKA_Toolset/Plugin_EDK/obj/Debug/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_EDK/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_EDK/obj/Debug/Plugin_EDK.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_EDK/obj/Debug/Plugin_EDK.dll Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_EDK/obj/Debug/Plugin_EDK.frmData.resources Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_EDK/obj/Debug/Plugin_EDK.pdb Normal file
View File

Binary file not shown.

0
EDOKA_Toolset/Plugin_EDK/obj/Debug/Plugin_EDK.vbproj.CopyComplete Normal file
View File

12
EDOKA_Toolset/Plugin_EDK/obj/Debug/Plugin_EDK.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,12 @@
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_EDK\obj\Debug\Plugin_EDK.frmData.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_EDK\obj\Debug\Plugin_EDK.Resources.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_EDK\obj\Debug\Plugin_EDK.vbproj.GenerateResource.Cache
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_EDK\obj\Debug\Plugin_EDK.dll.licenses
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_EDK.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_EDK.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Bin\Plugin_EDK.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_EDK\obj\Debug\Plugin_EDK.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_EDK\obj\Debug\Plugin_EDK.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_EDK\obj\Debug\Plugin_EDK.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_EDK\obj\Debug\Plugin_EDK.vbproj.CopyComplete
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_EDK\obj\Debug\Plugin_EDK.vbprojAssemblyReference.cache

BIN
EDOKA_Toolset/Plugin_EDK/obj/Debug/Plugin_EDK.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_EDK/obj/Debug/Plugin_EDK.vbprojAssemblyReference.cache Normal file
View File

Binary file not shown.

36
EDOKA_Toolset/Plugin_EDK/obj/Debug/Plugin_EDK.xml Normal file
View File

@@ -0,0 +1,36 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Plugin_EDK
</name>
</assembly>
<members>
<member name="T:Plugin_EDK.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:Plugin_EDK.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:Plugin_EDK.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="M:Plugin_EDK.DB_Connection.#ctor">
<summary>
Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
</summary>
<remarks></remarks>
</member>
</members>
</doc>

BIN
EDOKA_Toolset/Plugin_EDK/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_EDK/obj/Debug/plugin_edk.dll.licenses Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_EDK/obj/Release/Plugin_EDK.vbprojAssemblyReference.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_Toolset/Plugin_EDK/obj/Release/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.

0
EDOKA_Toolset/Plugin_EDK/obj/Release/build.force Normal file
View File