Initial commit
This commit is contained in:
@@ -0,0 +1,256 @@
|
||||
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()
|
||||
Try
|
||||
dsDaten.Clear()
|
||||
|
||||
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
selectcommand.CommandText = "sp_plugin_berechtigung_getdata"
|
||||
selectcommand.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
|
||||
|
||||
selectcommand.Parameters(0).Value = Globals.Mitarbeiternr
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
|
||||
dadaten.SelectCommand = selectcommand
|
||||
dadaten.Fill(dsDaten, "Dokumente")
|
||||
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
|
||||
|
||||
@@ -0,0 +1,151 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="12.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>{1210CA67-4D06-4344-81F4-E7EBB72D4816}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>EDOKA_Toolset.My.MyApplication</StartupObject>
|
||||
<RootNamespace>EDOKA_Toolset</RootNamespace>
|
||||
<AssemblyName>EDOKA_Toolset</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>..\Bin\</OutputPath>
|
||||
<DocumentationFile>EDOKA_Toolset.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>EDOKA_Toolset.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</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.C1Command.2, Version=2.0.20141.19617, Culture=neutral, PublicKeyToken=e808566f358766d8, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\Bin\C1.Win.C1Command.2.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
|
||||
<Reference Include="PluginContracts, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\Bin\PluginContracts.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<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" />
|
||||
</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.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Crypto.vb" />
|
||||
<Compile Include="frmBenutzer.Designer.vb">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmBenutzer.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMain1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMain1.Designer.vb">
|
||||
<DependentUpon>frmMain1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Globals.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="frmBenutzer.resx">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmMain1.resx">
|
||||
<DependentUpon>frmMain1.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="app.config" />
|
||||
<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>
|
||||
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.34209
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
@@ -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 mit einer Assembly verknüpft sind.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("Plugin_Aufhebung")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("Plugin_Aufhebung")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2015")>
|
||||
<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("2e624677-f093-47d3-b208-ffd40dc48a7c")>
|
||||
|
||||
' 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")>
|
||||
Reference in New Issue
Block a user