Initial
This commit is contained in:
493
EDOKA/Systemadministration/Rel54/MySysadmin.vb
Normal file
493
EDOKA/Systemadministration/Rel54/MySysadmin.vb
Normal file
@@ -0,0 +1,493 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace Sysadmin
|
||||
|
||||
Public Class DomainTable
|
||||
|
||||
#Region "Deklarationen"
|
||||
|
||||
Dim UpdateCommand As New SqlCommand
|
||||
Dim InsertCommand As New SqlCommand
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim BaseData As New DataSet
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
|
||||
Dim m_tablename As String
|
||||
Property Tablename() As String
|
||||
Get
|
||||
Return m_tablename
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_tablename = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_selectproc As String
|
||||
Property Select_Proc() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_selectall"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_selectall"
|
||||
End Set
|
||||
End Property
|
||||
Property Update_Proc() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_Update"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_Update"
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Insert_Proc() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_Insert"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_Update"
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Select_Proc_Bottomtable() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_selectall_bottomtable"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_selectall_bottomtable"
|
||||
End Set
|
||||
End Property
|
||||
Property Select_Proc_Bottomtable2() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_selectall_bottomtable2"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_selectall_bottomtable2"
|
||||
End Set
|
||||
End Property
|
||||
Property Update_Proc_Bottomtable() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_Update_bottomtable"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_Update_bottomtable"
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Insert_Proc_Bottomtable() As String
|
||||
Get
|
||||
Return "pr_" & Tablename & "_Insert_bottomtable"
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_selectproc = "pr_" & Tablename & "_Update_bottomtable"
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Tabledata As New DataSet
|
||||
Property Tabledata() As DataSet
|
||||
Get
|
||||
Return m_Tabledata
|
||||
End Get
|
||||
Set(ByVal value As DataSet)
|
||||
m_Tabledata = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
''' <summary>
|
||||
''' Tabellenname übernehmen und Daten ab DB laden
|
||||
''' </summary>
|
||||
''' <param name="tablename"></param>
|
||||
''' <remarks></remarks>
|
||||
Sub New(ByVal tablename As String, Optional ByVal Fokus As Integer = 0, Optional ByVal Keyvalue As String = "")
|
||||
Me.Tablename = tablename
|
||||
If Keyvalue = "" Then
|
||||
Load_Data()
|
||||
Else
|
||||
Load_Bootom_Table(tablename, Fokus, Keyvalue)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub New(ByVal tablename As String, ByVal Fokus As Integer, ByVal Keyvalue As String, ByVal mitarbeiternr As Integer)
|
||||
Me.Tablename = tablename
|
||||
If Keyvalue = "" Then
|
||||
Load_Data()
|
||||
Else
|
||||
Load_Data_MA_Fokus(tablename, Fokus, Keyvalue, mitarbeiternr)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(ByVal tablename As String, ByVal keyvalue As String, ByVal mitarbeiternr As Integer)
|
||||
Me.Tablename = tablename
|
||||
Load_Data_MA(tablename, keyvalue, mitarbeiternr)
|
||||
End Sub
|
||||
|
||||
Sub New(ByVal tablename As String, ByVal Focus As Integer, ByVal keyvalue As String, ByVal mitarbeiternr As Integer, ByVal Key2 As String)
|
||||
Me.Tablename = tablename
|
||||
Load_Data_2Key(tablename, keyvalue, mitarbeiternr, Key2)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub Load_Data_MA(ByVal tablename As String, ByVal KeyValue As String, ByVal mitarbeiternr As Integer)
|
||||
Tabledata.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.CommandText = Me.Select_Proc_Bottomtable
|
||||
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters(0).Value = 0
|
||||
sqlcmd.Parameters(1).Value = 0
|
||||
sqlcmd.Parameters(2).Value = KeyValue
|
||||
sqlcmd.Parameters(3).Value = Globals.MitarbeiterNr
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(Tabledata, "Domaintable")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub Load_Data_2Key(ByVal tablename As String, ByVal KeyValue As String, ByVal mitarbeiternr As Integer, ByVal KeyValue2 As String)
|
||||
Tabledata.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.CommandText = Me.Select_Proc_Bottomtable2
|
||||
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters.Add("@KeyValue2", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters(0).Value = 0
|
||||
sqlcmd.Parameters(1).Value = 0
|
||||
sqlcmd.Parameters(2).Value = KeyValue
|
||||
sqlcmd.Parameters(3).Value = KeyValue2
|
||||
sqlcmd.Parameters(4).Value = Globals.MitarbeiterNr
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(Tabledata, "Domaintable")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub Load_Data_MA_Fokus(ByVal tablename As String, ByVal Fokus As Integer, ByVal KeyValue As String, ByVal mitarbeiternr As Integer)
|
||||
Tabledata.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.CommandText = Me.Select_Proc_Bottomtable
|
||||
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters(0).Value = 0
|
||||
sqlcmd.Parameters(1).Value = Fokus
|
||||
sqlcmd.Parameters(2).Value = KeyValue
|
||||
sqlcmd.Parameters(3).Value = Globals.MitarbeiterNr
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(Tabledata, "Domaintable")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Sub New()
|
||||
'End Sub
|
||||
''' <summary>
|
||||
''' Daten ab Datenbank laden
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Overridable Sub Load_Data()
|
||||
Tabledata.Tables.Clear()
|
||||
|
||||
selectcommand.CommandText = Me.Select_Proc
|
||||
selectcommand.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
selectcommand.Parameters(0).Value = 0
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = selectcommand
|
||||
da.Fill(Tabledata, "Domaintable")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Basis-Datentabelle laden. Diese wird für die dynamische Generierung der Insert- und Update-Statements benötigt
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Load_BaseData()
|
||||
BaseData.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
|
||||
sqlcmd.CommandText = Me.Select_Proc
|
||||
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters(0).Value = 0
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(BaseData, "Basedata")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Update-Statement dynamisch für das UpdateCommand generieren
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Generate_Update_Statement()
|
||||
Dim col As DataColumn
|
||||
Dim col1 As DataColumn
|
||||
Dim UseCol As Boolean = False
|
||||
|
||||
UpdateCommand.CommandText = Me.Update_Proc
|
||||
UpdateCommand.CommandType = System.Data.CommandType.StoredProcedure
|
||||
UpdateCommand.Connection = connection
|
||||
|
||||
UpdateCommand.Parameters.Clear()
|
||||
For Each col In Me.Tabledata.Tables(0).Columns
|
||||
UseCol = False
|
||||
For Each col1 In Me.BaseData.Tables(0).Columns
|
||||
|
||||
If UCase(col.ColumnName) = UCase(col1.ColumnName) Then
|
||||
UseCol = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If UseCol Then UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter(Get_Prefix(col) & col.ColumnName, Get_SqlDBType(col), Get_Data_Fieldlen(col), col.ColumnName))
|
||||
Next
|
||||
UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@iErrorcode", SqlDbType.Int, 4))
|
||||
UpdateCommand.Parameters("@iErrorcode").Value = 0
|
||||
da.UpdateCommand = UpdateCommand
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Insert-Statement dynamisch für das InsertCommand generieren
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Generate_Insert_Statement()
|
||||
Dim col As DataColumn
|
||||
Dim col1 As DataColumn
|
||||
Dim UseCol As Boolean = False
|
||||
|
||||
InsertCommand.CommandText = Me.Insert_Proc
|
||||
InsertCommand.CommandType = System.Data.CommandType.StoredProcedure
|
||||
InsertCommand.Connection = connection
|
||||
|
||||
InsertCommand.Parameters.Clear()
|
||||
For Each col In Me.Tabledata.Tables(0).Columns
|
||||
UseCol = False
|
||||
For Each col1 In Me.BaseData.Tables(0).Columns
|
||||
|
||||
If UCase(col.ColumnName) = UCase(col1.ColumnName) Then
|
||||
UseCol = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If UseCol Then InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter(Get_Prefix(col) & col.ColumnName, Get_SqlDBType(col), Get_Data_Fieldlen(col), col.ColumnName))
|
||||
Next
|
||||
InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@iErrorcode", SqlDbType.Int, 4))
|
||||
InsertCommand.Parameters("@iErrorcode").Value = 0
|
||||
da.InsertCommand = InsertCommand
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Prefixt für den SP-Übergabeparameter generieren
|
||||
''' </summary>
|
||||
''' <param name="col">Aktuelle Columnt</param>
|
||||
''' <returns>Prefis für SP-Übergabeparameter</returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Get_Prefix(ByVal col As DataColumn) As String
|
||||
If col.DataType.Name = "DateTime" Then Return "@da"
|
||||
If col.DataType.Name = "Double" Then Return "@f"
|
||||
Return "@" & col.DataType.Name.Substring(0, 1)
|
||||
End Function
|
||||
''' <summary>
|
||||
''' SQL-DB-Type für den SP-Übergabeparameter festlegen
|
||||
''' </summary>
|
||||
''' <param name="col">Aktuelle Column</param>
|
||||
''' <returns>SQLDBType</returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Get_SqlDBType(ByVal col As DataColumn) As SqlDbType
|
||||
If col.DataType.Name = "Integer" Then Return SqlDbType.Int
|
||||
If col.DataType.Name = "Int32" Then Return SqlDbType.Int
|
||||
If col.DataType.Name = "String" Then Return SqlDbType.VarChar
|
||||
If col.DataType.Name = "Boolean" Then Return SqlDbType.Bit
|
||||
If col.DataType.Name = "DateTime" Then Return SqlDbType.DateTime
|
||||
If col.DataType.Name = "Double" Then Return SqlDbType.Float
|
||||
MsgBox(col.DataType.Name)
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Feldlänge für den SP-Übergabeparemter festlegen
|
||||
''' </summary>
|
||||
''' <param name="col">Aktulle Column</param>
|
||||
''' <returns>Feldlänge</returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Get_Data_Fieldlen(ByVal col As DataColumn) As Integer
|
||||
Return col.MaxLength
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Datesichern. Dabei wird das Update- sowie das Insert-Statement dynamisch generiert
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Sub Save_Data()
|
||||
Load_BaseData()
|
||||
Generate_Update_Statement()
|
||||
Generate_Insert_Statement()
|
||||
Try
|
||||
da.Update(Me.Tabledata, Me.Tabledata.Tables(0).TableName)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Dispose von Tabledata
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Public Sub dispose()
|
||||
Me.Tabledata.Dispose()
|
||||
End Sub
|
||||
|
||||
#Region "Verknüpfungseditor"
|
||||
''' <summary>
|
||||
''' Load der Verbindungstabelle
|
||||
''' </summary>
|
||||
''' <param name="tablename"></param>
|
||||
''' <param name="Fokus"></param>
|
||||
''' <param name="KeyValue"></param>
|
||||
''' <remarks></remarks>
|
||||
Public Sub Load_Bootom_Table(ByVal tablename As String, ByVal Fokus As Integer, ByVal KeyValue As String)
|
||||
Tabledata.Tables.Clear()
|
||||
Dim sqlcmd As New SqlCommand
|
||||
sqlcmd.CommandText = Me.Select_Proc_Bottomtable
|
||||
sqlcmd.Parameters.Add("@iErrorCode", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@Fokus", SqlDbType.Int, 4)
|
||||
sqlcmd.Parameters.Add("@KeyValue", SqlDbType.VarChar, 255)
|
||||
sqlcmd.Parameters(0).Value = 0
|
||||
sqlcmd.Parameters(1).Value = Fokus
|
||||
sqlcmd.Parameters(2).Value = KeyValue
|
||||
|
||||
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||
sqlcmd.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionString
|
||||
connection.Open()
|
||||
da.SelectCommand = sqlcmd
|
||||
da.Fill(Tabledata, "Domaintable")
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
sqlcmd.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Neuer Eintrag in der Tabelle eintragen. Sind neben den Defaultwerten weitere Attribute vorhanden, werde diese abhängig vom Datentype mit Defaultwerten befüllt.
|
||||
''' </summary>
|
||||
''' <param name="key1"></param>
|
||||
''' <param name="keyvalue1"></param>
|
||||
''' <param name="key2"></param>
|
||||
''' <param name="keyvalue2"></param>
|
||||
''' <remarks></remarks>
|
||||
Public Sub Insert_Bottom_Table(ByVal key1 As String, ByVal keyvalue1 As Integer, ByVal key2 As String, ByVal keyvalue2 As String)
|
||||
Dim dbkey As New edokaDB.clsMyKey_Tabelle
|
||||
dbkey.cpMainConnectionProvider = Globals.conn
|
||||
conn.OpenConnection()
|
||||
Dim newkey As Integer = dbkey.get_dbkey(Me.Tablename)
|
||||
conn.CloseConnection(True)
|
||||
dbkey.Dispose()
|
||||
Dim dr As DataRow
|
||||
dr = Me.Tabledata.Tables(0).NewRow
|
||||
dr.Item(0) = newkey
|
||||
Dim i As Integer
|
||||
For i = 1 To Me.Tabledata.Tables(0).Columns.Count - 1
|
||||
Select Case UCase(Me.Tabledata.Tables(0).Columns(i).ColumnName)
|
||||
Case "AKTIV"
|
||||
dr.Item(i) = 1
|
||||
Case "ERSTELLT_AM"
|
||||
dr.Item(i) = Now
|
||||
Case "MUTIERT_AM"
|
||||
dr.Item(i) = Now
|
||||
Case "MUTIERER"
|
||||
dr.Item(i) = Globals.MitarbeiterNr
|
||||
Case "MANDANTNR"
|
||||
dr.Item(i) = 1
|
||||
Case "MANDANT"
|
||||
dr.Item(i) = Globals.MitarbeiterNr
|
||||
Case UCase(key1)
|
||||
dr.Item(i) = keyvalue1
|
||||
Case UCase(key2)
|
||||
dr.Item(i) = keyvalue2
|
||||
Case Else
|
||||
Select Case Type.GetTypeCode(Me.Tabledata.Tables(0).Columns(i).DataType)
|
||||
Case TypeCode.DateTime
|
||||
dr.Item(i) = Now
|
||||
Case TypeCode.Double
|
||||
dr.Item(i) = 0
|
||||
Case TypeCode.String
|
||||
dr.Item(i) = ""
|
||||
Case TypeCode.Int32
|
||||
dr.Item(i) = 0
|
||||
Case TypeCode.Boolean
|
||||
dr.Item(i) = True
|
||||
Case TypeCode.Int16
|
||||
dr.Item(i) = 0
|
||||
Case TypeCode.Int32
|
||||
dr.Item(i) = 0
|
||||
Case TypeCode.Int64
|
||||
dr.Item(i) = 0
|
||||
End Select
|
||||
End Select
|
||||
Next
|
||||
Me.Tabledata.Tables(0).Rows.Add(dr)
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
381
EDOKA/Systemadministration/Rel54/frmVerbindungEditor.designer.vb
generated
Normal file
381
EDOKA/Systemadministration/Rel54/frmVerbindungEditor.designer.vb
generated
Normal file
@@ -0,0 +1,381 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmVerbindungEditor
|
||||
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()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVerbindungEditor))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||
Me.GrpBoxLeft = New System.Windows.Forms.GroupBox()
|
||||
Me.c1DatenLeft = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.CtxMenuDokumentaufhebung = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.VonDokumenttypKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GrpBoxRight = New System.Windows.Forms.GroupBox()
|
||||
Me.c1DatenRight = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.BtnFocusRight = New System.Windows.Forms.Button()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.BtnFocusLeft = New System.Windows.Forms.Button()
|
||||
Me.BtnVerbinden = New System.Windows.Forms.Button()
|
||||
Me.GrpBoxBottom = New System.Windows.Forms.GroupBox()
|
||||
Me.c1DatenBottom = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
Me.SplitContainer2.Panel1.SuspendLayout()
|
||||
Me.SplitContainer2.Panel2.SuspendLayout()
|
||||
Me.SplitContainer2.SuspendLayout()
|
||||
Me.GrpBoxLeft.SuspendLayout()
|
||||
CType(Me.c1DatenLeft, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.CtxMenuDokumentaufhebung.SuspendLayout()
|
||||
Me.GrpBoxRight.SuspendLayout()
|
||||
CType(Me.c1DatenRight, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.GrpBoxBottom.SuspendLayout()
|
||||
CType(Me.c1DatenBottom, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(953, 25)
|
||||
Me.ToolStrip1.TabIndex = 3
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'TSBtnQuit
|
||||
'
|
||||
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||
'
|
||||
'TSBtnSave
|
||||
'
|
||||
Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
|
||||
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TSBtnSave.Name = "TSBtnSave"
|
||||
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
|
||||
Me.TSBtnSave.Text = "ToolStripButton1"
|
||||
Me.TSBtnSave.ToolTipText = "Daten speichern"
|
||||
'
|
||||
'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(953, 24)
|
||||
Me.MenuStrip1.TabIndex = 2
|
||||
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"
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 49)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.SplitContainer2)
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.GrpBoxBottom)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(953, 466)
|
||||
Me.SplitContainer1.SplitterDistance = 276
|
||||
Me.SplitContainer1.TabIndex = 4
|
||||
'
|
||||
'SplitContainer2
|
||||
'
|
||||
Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer2.Name = "SplitContainer2"
|
||||
'
|
||||
'SplitContainer2.Panel1
|
||||
'
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.GrpBoxLeft)
|
||||
'
|
||||
'SplitContainer2.Panel2
|
||||
'
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.GrpBoxRight)
|
||||
Me.SplitContainer2.Size = New System.Drawing.Size(953, 243)
|
||||
Me.SplitContainer2.SplitterDistance = 467
|
||||
Me.SplitContainer2.TabIndex = 1
|
||||
'
|
||||
'GrpBoxLeft
|
||||
'
|
||||
Me.GrpBoxLeft.Controls.Add(Me.c1DatenLeft)
|
||||
Me.GrpBoxLeft.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GrpBoxLeft.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GrpBoxLeft.Name = "GrpBoxLeft"
|
||||
Me.GrpBoxLeft.Size = New System.Drawing.Size(467, 243)
|
||||
Me.GrpBoxLeft.TabIndex = 0
|
||||
Me.GrpBoxLeft.TabStop = False
|
||||
Me.GrpBoxLeft.Text = "GroupBox1"
|
||||
'
|
||||
'c1DatenLeft
|
||||
'
|
||||
Me.c1DatenLeft.AllowAddNew = True
|
||||
Me.c1DatenLeft.AlternatingRows = True
|
||||
Me.c1DatenLeft.BackColor = System.Drawing.Color.Gray
|
||||
Me.c1DatenLeft.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.c1DatenLeft.ContextMenuStrip = Me.CtxMenuDokumentaufhebung
|
||||
Me.c1DatenLeft.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.c1DatenLeft.FilterBar = True
|
||||
Me.c1DatenLeft.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.c1DatenLeft.Images.Add(CType(resources.GetObject("c1DatenLeft.Images"), System.Drawing.Image))
|
||||
Me.c1DatenLeft.Location = New System.Drawing.Point(3, 16)
|
||||
Me.c1DatenLeft.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.c1DatenLeft.Name = "c1DatenLeft"
|
||||
Me.c1DatenLeft.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.c1DatenLeft.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.c1DatenLeft.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.c1DatenLeft.PrintInfo.PageSettings = CType(resources.GetObject("c1DatenLeft.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.c1DatenLeft.Size = New System.Drawing.Size(461, 224)
|
||||
Me.c1DatenLeft.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.c1DatenLeft.TabIndex = 9
|
||||
Me.c1DatenLeft.Text = "C1TrueDBGrid1"
|
||||
Me.c1DatenLeft.PropBag = resources.GetString("c1DatenLeft.PropBag")
|
||||
'
|
||||
'CtxMenuDokumentaufhebung
|
||||
'
|
||||
Me.CtxMenuDokumentaufhebung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VonDokumenttypKopierenToolStripMenuItem})
|
||||
Me.CtxMenuDokumentaufhebung.Name = "CtxMenuDokumentaufhebung"
|
||||
Me.CtxMenuDokumentaufhebung.Size = New System.Drawing.Size(214, 48)
|
||||
'
|
||||
'VonDokumenttypKopierenToolStripMenuItem
|
||||
'
|
||||
Me.VonDokumenttypKopierenToolStripMenuItem.Name = "VonDokumenttypKopierenToolStripMenuItem"
|
||||
Me.VonDokumenttypKopierenToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
|
||||
Me.VonDokumenttypKopierenToolStripMenuItem.Text = "Zu Dokumenttyp kopieren"
|
||||
'
|
||||
'GrpBoxRight
|
||||
'
|
||||
Me.GrpBoxRight.Controls.Add(Me.c1DatenRight)
|
||||
Me.GrpBoxRight.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GrpBoxRight.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GrpBoxRight.Name = "GrpBoxRight"
|
||||
Me.GrpBoxRight.Size = New System.Drawing.Size(482, 243)
|
||||
Me.GrpBoxRight.TabIndex = 1
|
||||
Me.GrpBoxRight.TabStop = False
|
||||
Me.GrpBoxRight.Text = "GroupBox1"
|
||||
'
|
||||
'c1DatenRight
|
||||
'
|
||||
Me.c1DatenRight.AllowAddNew = True
|
||||
Me.c1DatenRight.AlternatingRows = True
|
||||
Me.c1DatenRight.BackColor = System.Drawing.Color.Gray
|
||||
Me.c1DatenRight.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.c1DatenRight.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.c1DatenRight.FilterBar = True
|
||||
Me.c1DatenRight.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.c1DatenRight.Images.Add(CType(resources.GetObject("c1DatenRight.Images"), System.Drawing.Image))
|
||||
Me.c1DatenRight.Location = New System.Drawing.Point(3, 16)
|
||||
Me.c1DatenRight.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.c1DatenRight.Name = "c1DatenRight"
|
||||
Me.c1DatenRight.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.c1DatenRight.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.c1DatenRight.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.c1DatenRight.PrintInfo.PageSettings = CType(resources.GetObject("c1DatenRight.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.c1DatenRight.Size = New System.Drawing.Size(476, 224)
|
||||
Me.c1DatenRight.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.c1DatenRight.TabIndex = 9
|
||||
Me.c1DatenRight.Text = "C1TrueDBGrid1"
|
||||
Me.c1DatenRight.PropBag = resources.GetString("c1DatenRight.PropBag")
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.BtnFocusRight)
|
||||
Me.Panel1.Controls.Add(Me.BtnFocusLeft)
|
||||
Me.Panel1.Controls.Add(Me.BtnVerbinden)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 243)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(953, 33)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'BtnFocusRight
|
||||
'
|
||||
Me.BtnFocusRight.ImageIndex = 2
|
||||
Me.BtnFocusRight.ImageList = Me.ImageList1
|
||||
Me.BtnFocusRight.Location = New System.Drawing.Point(920, 3)
|
||||
Me.BtnFocusRight.Name = "BtnFocusRight"
|
||||
Me.BtnFocusRight.Size = New System.Drawing.Size(30, 23)
|
||||
Me.BtnFocusRight.TabIndex = 2
|
||||
Me.BtnFocusRight.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "Kette3.ico")
|
||||
Me.ImageList1.Images.SetKeyName(1, "Haken1.ico")
|
||||
Me.ImageList1.Images.SetKeyName(2, "Haken2.ico")
|
||||
'
|
||||
'BtnFocusLeft
|
||||
'
|
||||
Me.BtnFocusLeft.ImageIndex = 1
|
||||
Me.BtnFocusLeft.ImageList = Me.ImageList1
|
||||
Me.BtnFocusLeft.Location = New System.Drawing.Point(6, 4)
|
||||
Me.BtnFocusLeft.Name = "BtnFocusLeft"
|
||||
Me.BtnFocusLeft.Size = New System.Drawing.Size(30, 23)
|
||||
Me.BtnFocusLeft.TabIndex = 1
|
||||
Me.BtnFocusLeft.UseVisualStyleBackColor = True
|
||||
'
|
||||
'BtnVerbinden
|
||||
'
|
||||
Me.BtnVerbinden.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.BtnVerbinden.ImageIndex = 0
|
||||
Me.BtnVerbinden.ImageList = Me.ImageList1
|
||||
Me.BtnVerbinden.Location = New System.Drawing.Point(430, 4)
|
||||
Me.BtnVerbinden.Name = "BtnVerbinden"
|
||||
Me.BtnVerbinden.Size = New System.Drawing.Size(84, 23)
|
||||
Me.BtnVerbinden.TabIndex = 0
|
||||
Me.BtnVerbinden.Text = "Verbinden"
|
||||
Me.BtnVerbinden.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.BtnVerbinden.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GrpBoxBottom
|
||||
'
|
||||
Me.GrpBoxBottom.Controls.Add(Me.c1DatenBottom)
|
||||
Me.GrpBoxBottom.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GrpBoxBottom.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GrpBoxBottom.Name = "GrpBoxBottom"
|
||||
Me.GrpBoxBottom.Size = New System.Drawing.Size(953, 186)
|
||||
Me.GrpBoxBottom.TabIndex = 2
|
||||
Me.GrpBoxBottom.TabStop = False
|
||||
Me.GrpBoxBottom.Text = "GroupBox1"
|
||||
'
|
||||
'c1DatenBottom
|
||||
'
|
||||
Me.c1DatenBottom.AllowAddNew = True
|
||||
Me.c1DatenBottom.AlternatingRows = True
|
||||
Me.c1DatenBottom.BackColor = System.Drawing.Color.Gray
|
||||
Me.c1DatenBottom.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.c1DatenBottom.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.c1DatenBottom.FilterBar = True
|
||||
Me.c1DatenBottom.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.c1DatenBottom.Images.Add(CType(resources.GetObject("c1DatenBottom.Images"), System.Drawing.Image))
|
||||
Me.c1DatenBottom.Location = New System.Drawing.Point(3, 16)
|
||||
Me.c1DatenBottom.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.c1DatenBottom.Name = "c1DatenBottom"
|
||||
Me.c1DatenBottom.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.c1DatenBottom.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.c1DatenBottom.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.c1DatenBottom.PrintInfo.PageSettings = CType(resources.GetObject("c1DatenBottom.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.c1DatenBottom.Size = New System.Drawing.Size(947, 167)
|
||||
Me.c1DatenBottom.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.c1DatenBottom.TabIndex = 9
|
||||
Me.c1DatenBottom.Text = "C1TrueDBGrid1"
|
||||
Me.c1DatenBottom.PropBag = resources.GetString("c1DatenBottom.PropBag")
|
||||
'
|
||||
'ContextMenuStrip2
|
||||
'
|
||||
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
|
||||
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'frmVerbindungEditor
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(953, 515)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmVerbindungEditor"
|
||||
Me.Text = "VerbindungEditor"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.SplitContainer2.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer2.Panel2.ResumeLayout(False)
|
||||
Me.SplitContainer2.ResumeLayout(False)
|
||||
Me.GrpBoxLeft.ResumeLayout(False)
|
||||
CType(Me.c1DatenLeft, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.CtxMenuDokumentaufhebung.ResumeLayout(False)
|
||||
Me.GrpBoxRight.ResumeLayout(False)
|
||||
CType(Me.c1DatenRight, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.GrpBoxBottom.ResumeLayout(False)
|
||||
CType(Me.c1DatenBottom, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents SplitContainer2 As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents GrpBoxLeft As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents GrpBoxRight As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents GrpBoxBottom As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents BtnVerbinden As System.Windows.Forms.Button
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents BtnFocusRight As System.Windows.Forms.Button
|
||||
Friend WithEvents BtnFocusLeft As System.Windows.Forms.Button
|
||||
Friend WithEvents TSBtnSave As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents c1DatenLeft As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents c1DatenRight As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents c1DatenBottom As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents CtxMenuDokumentaufhebung As ContextMenuStrip
|
||||
Friend WithEvents VonDokumenttypKopierenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
|
||||
End Class
|
||||
330
EDOKA/Systemadministration/Rel54/frmVerbindungEditor.resx
Normal file
330
EDOKA/Systemadministration/Rel54/frmVerbindungEditor.resx
Normal file
@@ -0,0 +1,330 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>227, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
|
||||
qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
|
||||
A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
|
||||
VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
|
||||
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
|
||||
AElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>329, 17</value>
|
||||
</metadata>
|
||||
<metadata name="CtxMenuDokumentaufhebung.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>547, 17</value>
|
||||
</metadata>
|
||||
<data name="c1DatenLeft.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="c1DatenLeft.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
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="c1DatenLeft.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{Wrap:True;BackColor:255, 255, 192;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>222</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 459, 222</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 459, 222</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="c1DatenRight.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="c1DatenRight.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
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="c1DatenRight.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{Wrap:True;BackColor:255, 255, 192;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>222</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 474, 222</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 474, 222</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>437, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA6
|
||||
CAAAAk1TRnQBSQFMAgEBAwEAAUwBAAFMAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/6IADewzAA3sMwAC7AkA
|
||||
AuwzAALsAwAB7AUAAuwUAAUHAgAFBxMAAuwCAAPsBAAC7BMAAgcKAAIHEgAC7AEABewDAALsEwABBwMA
|
||||
BgcDAAEHEgAC7AEAAuwBAAPsAgAC7BMAAgcKAAIHEgAC7AEAAewDAAPsAQAC7BQABQcCAAUHEwAC7AYA
|
||||
AuwBAALsMwAC7AcAAewBAALsMwAC7AkAAuwzAA3sMwAN7FIAAUIBTQE+BwABPgMAASgDAAFAAwABEAMA
|
||||
AQEBAAEBBQABgBcAA/8BAAb/AgAG/wIAAv8BgAEDAYABAwIAAv8BgAEDAYABAwIAAv8BnwHzAZ8B8wIA
|
||||
AcEBgwGdAfMBnQHzAgABgAEBAZgB8wGYAfMEAAGQAXMBkAFzAgABEAEIAZIBMwGSATMEAAGXARMBlwET
|
||||
AgABgAEBAZ8BkwGfAZMCAAHBAYMBnwHTAZ8B0wIAAv8BnwHzAZ8B8wIAAv8BgAEDAYABAwIAAv8BgAED
|
||||
AYABAwIABv8CAAs=
|
||||
</value>
|
||||
</data>
|
||||
<data name="c1DatenBottom.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="c1DatenBottom.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
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="c1DatenBottom.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>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;}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{Wrap:True;BackColor:255, 255, 192;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>165</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 945, 165</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 945, 165</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>704, 17</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAACIiIiIiAAAiIiIiIgAAAAAiIiIiIgAAIiIiIiIAAAAiIgAAAAAAAAA
|
||||
AAAAiIgAAIiIAAAAAAAAAAAAAIiIAACIAAAAiIiIiIiIAAAAiAAAiAAAAIiIiIiIiAAAAIgAAIiIAAAA
|
||||
AAAAAAAAAIiIAACIiAAAAAAAAAAAAACIiAAAAIiIiIiIAACIiIiIiAAAAACIiIiIiAAAiIiIiIgAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////////
|
||||
////////////////////////8APAD/ADwA/AAAADwAAAAwAAAAAAAAAAAwAAwAMAAMAAAAAAAAAAAMAA
|
||||
AAPAAAAD8APAD/ADwA///////////////////////////////////////////w==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
342
EDOKA/Systemadministration/Rel54/frmVerbindungEditor.vb
Normal file
342
EDOKA/Systemadministration/Rel54/frmVerbindungEditor.vb
Normal file
@@ -0,0 +1,342 @@
|
||||
''' <summary>
|
||||
''' Verbindungseditor: Verbindet 2 Domain-Tables in einer dritten Tabelle.
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
'''<seealso cref="T:Vertragsverwaltung.TKB.VV.Sysadmin.DomainTable"></seealso>
|
||||
Public Class frmVerbindungEditor
|
||||
|
||||
#Region "Deklarationen"
|
||||
Dim Fokus As Integer = 1
|
||||
Dim Domaintableleft As Sysadmin.DomainTable
|
||||
Dim Domaintableright As Sysadmin.DomainTable
|
||||
Dim domaintablebottom As Sysadmin.DomainTable
|
||||
Dim SpaltenTitel As New EDOKA.Tabellenspalte
|
||||
Dim SysadminfunktionNr As Integer
|
||||
|
||||
Dim TablenameLeft As String
|
||||
Dim TablenameRight As String
|
||||
Dim TablenameBottom As String
|
||||
Dim first As Boolean = True
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
''' <summary>
|
||||
''' Laden der linken und rechten Tabelle
|
||||
''' </summary>
|
||||
''' <param name="TableLeft"></param>
|
||||
''' <param name="TableRight"></param>
|
||||
''' <param name="TableBottom"></param>
|
||||
''' <param name="SysadminfnktNr"></param>
|
||||
''' <remarks></remarks>
|
||||
Public Sub New(ByVal TableLeft As String, ByVal TableRight As String, ByVal TableBottom As String, ByVal SysadminfnktNr As Integer)
|
||||
InitializeComponent()
|
||||
Me.Domaintableleft = New Sysadmin.DomainTable(TableLeft)
|
||||
Me.Domaintableright = New Sysadmin.DomainTable(TableRight)
|
||||
Me.TablenameLeft = TableLeft
|
||||
Me.TablenameRight = TableRight
|
||||
Me.TablenameBottom = TableBottom
|
||||
Me.SysadminfunktionNr = SysadminfnktNr
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Laden sämlticher Tabellen
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub FrmVerbindungEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.C1DatenLeft.DataSource = Domaintableleft.Tabledata
|
||||
Me.C1DatenLeft.DataMember = Domaintableleft.Tabledata.Tables(0).TableName
|
||||
|
||||
Me.C1DatenRight.DataSource = Domaintableright.Tabledata
|
||||
Me.C1DatenRight.DataMember = Domaintableright.Tabledata.Tables(0).TableName
|
||||
|
||||
'SpaltenTitel.Spaltentitel_aktualisieren(Me.C1DatenLeft, TablenameLeft, Me.Domaintableleft.Tabledata)
|
||||
'SpaltenTitel.Spaltentitel_aktualisieren(Me.C1DatenRight, TablenameRight, Me.Domaintableright.Tabledata)
|
||||
|
||||
Refresh_Bottomtable()
|
||||
|
||||
Me.C1DatenLeft.AllowAddNew = False
|
||||
Me.C1DatenLeft.AllowDelete = False
|
||||
Me.C1DatenLeft.AllowUpdate = False
|
||||
|
||||
Me.C1DatenRight.AllowAddNew = False
|
||||
Me.C1DatenRight.AllowDelete = False
|
||||
Me.C1DatenRight.AllowUpdate = False
|
||||
|
||||
Me.C1DatenBottom.AllowAddNew = False
|
||||
Me.C1DatenBottom.AllowDelete = False
|
||||
|
||||
Me.GrpBoxLeft.Text = Me.TablenameLeft
|
||||
Me.GrpBoxRight.Text = Me.TablenameRight
|
||||
Me.GrpBoxBottom.Text = Me.TablenameBottom
|
||||
first = False
|
||||
If TablenameBottom = "Dokumentaufhebung" Or TablenameBottom = "dokumentindexmutation" Then
|
||||
CtxMenuDokumentaufhebung.Visible = True
|
||||
Else
|
||||
CtxMenuDokumentaufhebung.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Aktualiserung der Verbindungstabelle
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Refresh_Bottomtable()
|
||||
Try
|
||||
check_changes()
|
||||
Me.domaintablebottom.dispose()
|
||||
Catch
|
||||
End Try
|
||||
|
||||
Dim keyvalue As String = ""
|
||||
|
||||
If Fokus = 1 Then
|
||||
keyvalue = Me.C1DatenLeft.Columns(0).Value
|
||||
Else
|
||||
keyvalue = Me.C1DatenRight.Columns(0).Value
|
||||
End If
|
||||
Me.domaintablebottom = New Sysadmin.DomainTable(Me.TablenameBottom, Fokus, keyvalue)
|
||||
Me.C1DatenBottom.DataSource = domaintablebottom.Tabledata
|
||||
Me.C1DatenBottom.DataMember = domaintablebottom.Tabledata.Tables(0).TableName
|
||||
'SpaltenTitel.Spaltentitel_aktualisieren(Me.C1DatenBottom, TablenameBottom, Me.domaintablebottom.Tabledata)
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Linker Fokus-Knopf betätigt
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub BtnFocusLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFocusLeft.Click
|
||||
Fokus = 1
|
||||
Me.BtnFocusLeft.ImageIndex = 1
|
||||
Me.BtnFocusRight.ImageIndex = 2
|
||||
Refresh_Bottomtable()
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Rechter Fokus-Knopf betätigt
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub BtnFocusRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFocusRight.Click
|
||||
Me.Fokus = 2
|
||||
Me.BtnFocusRight.ImageIndex = 1
|
||||
Me.BtnFocusLeft.ImageIndex = 2
|
||||
Refresh_Bottomtable()
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Prüfung, ob Verbindungstabelle geändert wurde.
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Sub check_changes()
|
||||
If first Then Exit Sub
|
||||
Dim msgres As MsgBoxResult
|
||||
If Me.domaintablebottom.Tabledata.HasChanges Then
|
||||
|
||||
msgres = MsgBox("Daten wurden verändert.Speichern?", vbYesNoCancel + vbQuestion)
|
||||
If msgres = MsgBoxResult.Yes Then
|
||||
Me.domaintablebottom.Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Formular schliessen
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
check_changes()
|
||||
Me.Close()
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Formular schliessen
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
||||
check_changes()
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Formular-Resize: Button Verbinden und Button Focus-Rechts neu positionieren
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub FrmVerbindungEditor_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
|
||||
Me.BtnFocusRight.Left = Me.Width - (Me.BtnFocusRight.Width + 10)
|
||||
Me.BtnVerbinden.Left = Me.SplitContainer2.Panel1.Width - (Me.BtnVerbinden.Width / 2)
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Verbindungstabelle sichern
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
|
||||
Me.domaintablebottom.Save_Data()
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Nach Datenmutation der unteren Tabelle mutiert_am und mutierer nachführen
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub C1DatenBottom_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles c1DatenBottom.AfterColUpdate
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.c1DatenBottom.Columns.Count - 1
|
||||
If LCase(Me.c1DatenBottom.Columns(i).DataField) = "mutiert_am" Then Me.c1DatenBottom.Columns(i).Value = Now
|
||||
If LCase(Me.c1DatenBottom.Columns(i).DataField) = "mutierer" Then Me.c1DatenBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Doppelklick in linken Grid
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub C1DatenLeft_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles c1DatenLeft.DoubleClick
|
||||
Try
|
||||
Me.BtnVerbinden_Click(sender, e)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Linke Tabelle angeklickt
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles c1DatenLeft.RowColChange
|
||||
Try
|
||||
check_changes()
|
||||
Refresh_Bottomtable()
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Doppelklick im rechten Grid
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub C1DatenRight_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles c1DatenRight.DoubleClick
|
||||
Try
|
||||
Me.BtnVerbinden_Click(sender, e)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Rechte Tabelle angeklickt
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles c1DatenRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_Bottomtable()
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Die linke und rechte Domain-Table in der unteren Tabelle verbinden.
|
||||
''' Daten sichern und erneut laden
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub BtnVerbinden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVerbinden.Click
|
||||
check_changes()
|
||||
Dim ileft As Integer = Me.C1DatenLeft.SelectedRows.Count
|
||||
Dim iright As Integer = Me.C1DatenRight.SelectedRows.Count
|
||||
Dim ic As Integer = 0
|
||||
Dim Currentsel As Boolean
|
||||
Dim colrows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim keyvalueleft As Integer = 0
|
||||
Dim Keyvalueright As Integer = 0
|
||||
If (Me.Fokus = 1 And ileft > 1) Or (Me.Fokus = 2 And iright > 1) Then
|
||||
'Me.msg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.Fokus = 1 Then
|
||||
ic = iright
|
||||
colrows = Me.C1DatenRight.SelectedRows
|
||||
End If
|
||||
If Me.Fokus = 2 Then
|
||||
ic = ileft
|
||||
colrows = Me.C1DatenLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
Dim i As Integer
|
||||
For i = 0 To ic - 1
|
||||
If Me.Fokus = 1 Then
|
||||
keyvalueleft = Me.C1DatenLeft.Columns(0).Value
|
||||
If Currentsel = True Then
|
||||
Keyvalueright = Me.C1DatenRight.Columns(0).Value
|
||||
Else
|
||||
Keyvalueright = Me.C1DatenRight.Columns(0).CellValue(colrows(i))
|
||||
End If
|
||||
Else
|
||||
Keyvalueright = Me.C1DatenRight.Columns(0).Value
|
||||
If Currentsel = True Then
|
||||
keyvalueleft = Me.C1DatenLeft.Columns(0).Value
|
||||
Else
|
||||
keyvalueleft = Me.C1DatenLeft.Columns(0).CellValue(colrows(i))
|
||||
End If
|
||||
End If
|
||||
Me.domaintablebottom.Insert_Bottom_Table(Me.Domaintableleft.Tabledata.Tables(0).Columns(0).ColumnName, keyvalueleft, Me.Domaintableright.Tabledata.Tables(0).Columns(0).ColumnName, Keyvalueright)
|
||||
Me.domaintablebottom.Save_Data()
|
||||
Next
|
||||
|
||||
Me.Refresh_Bottomtable()
|
||||
End Sub
|
||||
|
||||
Private Sub VonDokumenttypKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VonDokumenttypKopierenToolStripMenuItem.Click
|
||||
If Me.Fokus <> 1 Then
|
||||
MsgBox("Bitte den Fokus der Tabellen wechseln.")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim s As String
|
||||
check_changes()
|
||||
s = InputBox("Bitte geben Sie die Dokumenttyp-Nr. ein, zu welcher die Daten kopiert werden sollen." + vbCrLf + "Von Dokumenttyp: " + Me.c1DatenLeft.Columns(0).Value.ToString + " nach...")
|
||||
If s <> "" Then
|
||||
Dim ileft As Integer = Me.c1DatenLeft.SelectedRows.Count
|
||||
Dim iright As Integer = Me.c1DatenRight.Splits(0).Rows.Count
|
||||
Dim ic As Integer = 0
|
||||
Dim Currentsel As Boolean
|
||||
Dim colrows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim keyvalueleft As Integer = 0
|
||||
Dim Keyvalueright As Integer = 0
|
||||
If (Me.Fokus = 1 And ileft > 1) Or (Me.Fokus = 2 And iright > 1) Then
|
||||
'Me.msg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.domaintablebottom.Tabledata.Tables(0).Rows.Count - 1
|
||||
If Me.domaintablebottom.Tabledata.Tables(0).Rows(i).Item("Aktiv") = True Then
|
||||
keyvalueleft = s
|
||||
Keyvalueright = domaintablebottom.Tabledata.Tables(0).Rows(i).Item(3)
|
||||
Me.domaintablebottom.Insert_Bottom_Table(Me.Domaintableleft.Tabledata.Tables(0).Columns(0).ColumnName, keyvalueleft, Me.Domaintableright.Tabledata.Tables(0).Columns(0).ColumnName, Keyvalueright)
|
||||
End If
|
||||
Next
|
||||
If Me.domaintablebottom.Tabledata.HasChanges Then
|
||||
Me.domaintablebottom.Save_Data()
|
||||
End If
|
||||
Me.Refresh_Bottomtable()
|
||||
MsgBox("Kopiervorgang abgeschlossen.")
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user