This commit is contained in:
2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions

View File

@@ -0,0 +1,197 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtName.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtOrt.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtKurzbezeichnung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancel.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtVorname.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnClose.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmInteressent</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIdm
d4gAAAAAAAAAAAAACGZ3ZmZmRwAAAAAAAACGaIZ3d3ZmZmRwAAAAAAAAZmRmeId2ZmZkgAAAAAAAAIdk
ZniId2ZmZGiAAAAAAACHdmaIiHdmZmRGQAAAAAAACIdmiIiHdmZkRmAAAAAAAAiIdoiIh3ZmRGSAAAAA
AAAAiIeIiId2ZkRkAAAAAAAAAAiIiIiIeGZESAAAAAAAAAAAiIiIiIZkRGAAAAAAAAAAAAiIiIiGZAgA
AAAAAAAAAAAAiIiIZkSAAAAAAAAAAAAAAACGZmSAAAAAAAAAAAAAAAAAgARGAAAAAAAAAAAAAAAACARE
RGAAAAAAAAAAAAAAAARmZmZIAAAAAAAAAAAAAACGd3ZmRAAAAAAAAAAAAAAAhoiHZkQAAAREAAAAAAAA
AIeIiGZEAAREQAAAAAAAAACGiIiGREREQAAAAAAAAAAAxEREREREQAAAAAAAAAAAAMzMTExMQAAAAAAA
AAAAAADOzMTExAAAAAAAAAAAAAAADOzMzEAAAAAAAAAAAAAAAADOzsQAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD////////////////+AP//+AA//wAA
H/8AAB//AAAH/wAAB/+AAAf/gAAH/8AAD//gAA//8AAf//gAP//8AH///wH///8D///+Af///gD///wA
///8APj//ADh//wAB//8AB///AB///wA///+Af///wP//////////////////w==
</value>
</data>
</root>

View File

@@ -0,0 +1,412 @@
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Public Class KopiefrmInteressent
Inherits System.Windows.Forms.Form
Dim partner As New edokadb.clsPartner()
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtName As System.Windows.Forms.TextBox
Friend WithEvents txtOrt As System.Windows.Forms.TextBox
Friend WithEvents txtKurzbezeichnung As System.Windows.Forms.TextBox
Friend WithEvents txtAdresse7 As System.Windows.Forms.TextBox
Friend WithEvents txtAdresse6 As System.Windows.Forms.TextBox
Friend WithEvents txtAdresse5 As System.Windows.Forms.TextBox
Friend WithEvents txtAdresse4 As System.Windows.Forms.TextBox
Friend WithEvents txtAdresse3 As System.Windows.Forms.TextBox
Friend WithEvents txtAdresse2 As System.Windows.Forms.TextBox
Friend WithEvents txtAdresse1 As System.Windows.Forms.TextBox
Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents txtVorname As System.Windows.Forms.TextBox
Friend WithEvents btnClose As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmInteressent))
Me.Label1 = New System.Windows.Forms.Label()
Me.txtName = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtKurzbezeichnung = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtAdresse7 = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtAdresse6 = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtAdresse5 = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtAdresse4 = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAdresse3 = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtAdresse2 = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtAdresse1 = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.btnSave = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.txtVorname = New System.Windows.Forms.TextBox()
Me.btnClose = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(32, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(88, 23)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Name / Firma1 "
'
'txtName
'
Me.txtName.Location = New System.Drawing.Point(136, 24)
Me.txtName.Name = "txtName"
Me.txtName.Size = New System.Drawing.Size(160, 20)
Me.txtName.TabIndex = 1
Me.txtName.Text = ""
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(32, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(104, 23)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Vorname / Firma 2"
'
'txtOrt
'
Me.txtOrt.Location = New System.Drawing.Point(136, 72)
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(160, 20)
Me.txtOrt.TabIndex = 5
Me.txtOrt.Text = ""
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(32, 72)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(72, 23)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Ort"
'
'txtKurzbezeichnung
'
Me.txtKurzbezeichnung.Location = New System.Drawing.Point(136, 96)
Me.txtKurzbezeichnung.Name = "txtKurzbezeichnung"
Me.txtKurzbezeichnung.Size = New System.Drawing.Size(224, 20)
Me.txtKurzbezeichnung.TabIndex = 7
Me.txtKurzbezeichnung.Text = ""
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(32, 96)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(96, 23)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Kurzname"
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtAdresse7, Me.Label11, Me.txtAdresse6, Me.Label10, Me.txtAdresse5, Me.Label9, Me.txtAdresse4, Me.Label8, Me.txtAdresse3, Me.Label7, Me.txtAdresse2, Me.Label6, Me.txtAdresse1, Me.Label5})
Me.GroupBox1.Location = New System.Drawing.Point(16, 128)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(344, 192)
Me.GroupBox1.TabIndex = 8
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Zustelladresse"
'
'txtAdresse7
'
Me.txtAdresse7.Location = New System.Drawing.Point(120, 160)
Me.txtAdresse7.Name = "txtAdresse7"
Me.txtAdresse7.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse7.TabIndex = 35
Me.txtAdresse7.Text = ""
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(16, 160)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(96, 23)
Me.Label11.TabIndex = 34
Me.Label11.Text = "Zeile 7"
'
'txtAdresse6
'
Me.txtAdresse6.Location = New System.Drawing.Point(120, 136)
Me.txtAdresse6.Name = "txtAdresse6"
Me.txtAdresse6.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse6.TabIndex = 33
Me.txtAdresse6.Text = ""
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(16, 136)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(96, 23)
Me.Label10.TabIndex = 32
Me.Label10.Text = "Zeile 6"
'
'txtAdresse5
'
Me.txtAdresse5.Location = New System.Drawing.Point(120, 112)
Me.txtAdresse5.Name = "txtAdresse5"
Me.txtAdresse5.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse5.TabIndex = 31
Me.txtAdresse5.Text = ""
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(16, 112)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(96, 23)
Me.Label9.TabIndex = 30
Me.Label9.Text = "Zeile 5"
'
'txtAdresse4
'
Me.txtAdresse4.Location = New System.Drawing.Point(120, 88)
Me.txtAdresse4.Name = "txtAdresse4"
Me.txtAdresse4.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse4.TabIndex = 29
Me.txtAdresse4.Text = ""
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(16, 88)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(96, 23)
Me.Label8.TabIndex = 28
Me.Label8.Text = "Zeile 4"
'
'txtAdresse3
'
Me.txtAdresse3.Location = New System.Drawing.Point(120, 64)
Me.txtAdresse3.Name = "txtAdresse3"
Me.txtAdresse3.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse3.TabIndex = 27
Me.txtAdresse3.Text = ""
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(16, 64)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(96, 23)
Me.Label7.TabIndex = 26
Me.Label7.Text = "Zeile 3"
'
'txtAdresse2
'
Me.txtAdresse2.Location = New System.Drawing.Point(120, 40)
Me.txtAdresse2.Name = "txtAdresse2"
Me.txtAdresse2.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse2.TabIndex = 25
Me.txtAdresse2.Text = ""
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(16, 40)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(96, 23)
Me.Label6.TabIndex = 24
Me.Label6.Text = "Zeile 2"
'
'txtAdresse1
'
Me.txtAdresse1.Location = New System.Drawing.Point(120, 16)
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse1.TabIndex = 23
Me.txtAdresse1.Text = ""
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(16, 16)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(96, 23)
Me.Label5.TabIndex = 22
Me.Label5.Text = "Zeile 1"
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(104, 336)
Me.btnSave.Name = "btnSave"
Me.btnSave.TabIndex = 9
Me.btnSave.Text = "&Speichern"
'
'btnCancel
'
Me.btnCancel.Location = New System.Drawing.Point(192, 336)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.TabIndex = 10
Me.btnCancel.Text = "&Abbruch"
'
'txtVorname
'
Me.txtVorname.Location = New System.Drawing.Point(136, 48)
Me.txtVorname.Name = "txtVorname"
Me.txtVorname.Size = New System.Drawing.Size(160, 20)
Me.txtVorname.TabIndex = 3
Me.txtVorname.Text = ""
'
'btnClose
'
Me.btnClose.Location = New System.Drawing.Point(144, 336)
Me.btnClose.Name = "btnClose"
Me.btnClose.TabIndex = 11
Me.btnClose.Text = "&Schliessen"
'
'frmInteressent
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(376, 373)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnClose, Me.btnCancel, Me.btnSave, Me.GroupBox1, Me.txtKurzbezeichnung, Me.Label4, Me.txtOrt, Me.Label3, Me.txtVorname, Me.Label2, Me.txtName, Me.Label1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmInteressent"
Me.Text = "Partner eröffnen / bearbeiten"
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Dim m_partnernr As Long
Dim m_display As Boolean
Property Display() As Boolean
Get
Return m_display
End Get
Set(ByVal Value As Boolean)
m_display = Value
End Set
End Property
Property Partnernr() As Long
Get
Return m_partnernr
End Get
Set(ByVal Value As Long)
m_partnernr = Value
End Set
End Property
Private Sub Interessent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim partner As New edokadb.clsPartner()
If Me.Partnernr > 0 Then
partner.cpMainConnectionProvider = conn
partner.iNRPAR00 = New SqlInt32(CType(Me.Partnernr, Int32))
partner.SelectOne()
Me.txtName.Text = partner.sTXADZ011.Value
Me.txtVorname.Text = partner.sTXADZ021.Value
Me.txtOrt.Text = partner.sTXADZ031.Value
Me.txtAdresse1.Text = partner.sTXADZ012.Value
Me.txtAdresse2.Text = partner.sTXADZ022.Value
Me.txtAdresse3.Text = partner.sTXADZ032.Value
Me.txtAdresse4.Text = partner.sTXADZ042.Value
Me.txtAdresse5.Text = partner.sTXADZ052.Value
Me.txtAdresse6.Text = partner.sTXADZ062.Value
Me.txtAdresse7.Text = partner.sTXADZ072.Value
Me.txtKurzbezeichnung.Text = partner.sBKPAR00.Value
End If
If Me.Display = True Then
Me.btnCancel.Visible = False
Me.btnSave.Visible = False
Me.btnClose.Visible = True
Else
Me.btnCancel.Visible = True
Me.btnSave.Visible = True
Me.btnClose.Visible = False
End If
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim key As Long
partner.cpMainConnectionProvider = conn
If Me.Partnernr = 0 Then
dbkey.cpMainConnectionProvider = conn
key = dbkey.get_dbkey("Interessent")
Else
partner.iNRPAR00 = New SqlInt32(CType(Me.Partnernr, Int32))
partner.SelectOne()
End If
conn.OpenConnection()
partner.sBKPAR00 = New SqlString(CType(Me.txtKurzbezeichnung.Text, String))
partner.sTXADZ011 = New SqlString(CType(Me.txtAdresse1.Text, String))
partner.sTXADZ021 = New SqlString(CType(Me.txtAdresse2.Text, String))
partner.sTXADZ031 = New SqlString(CType(Me.txtAdresse3.Text, String))
partner.sTXADZ041 = New SqlString(CType(Me.txtAdresse4.Text, String))
partner.sTXADZ051 = New SqlString(CType(Me.txtAdresse5.Text, String))
partner.sTXADZ061 = New SqlString(CType(Me.txtAdresse6.Text, String))
partner.sTXADZ071 = New SqlString(CType(Me.txtAdresse7.Text, String))
partner.sTXADZ012 = New SqlString(CType(Me.txtName.Text, String))
partner.sTXADZ022 = New SqlString(CType(Me.txtVorname.Text, String))
partner.sTXADZ032 = New SqlString(CType(Me.txtOrt.Text, String))
partner.sNRADR00 = New SqlString(CType("", String))
If Me.Partnernr = 0 Then
partner.iNRPAR00 = New SqlInt32(CType(key, Int32))
partner.Insert()
Me.Partnernr = key
Else
partner.Update()
End If
conn.CloseConnection(True)
Me.Close()
End Sub
Private Sub frmInteressent_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
partner.Dispose()
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,170 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtAdresse1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancel.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmEdokaAdresse</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAATMzMzMzMzMwAAAAAAAAAAEzMzMzMzMzMAAAAAAAAAAAEzMzMzMzMwAAAAAAAAA
AAAEzMwAAAAAAAAAAAAAAAAAAEAA+Pj4AAAAAAAAAAAAAAAAD4+PiAAAAAAAAAAAAAAAAAj4AAAAAAAA
AAAAAAAAAAAPgI+PjwAAAAAAAAAAAAAACPj4+PjwAAAAAAAAAAAAAACPj4+PgAAAAAAAAAAAAAAA+Pj4
+PAAAAAAAAAAAAAAAI+Pj4+AAAAAAAAAAAAAAAAI+Pj48AAAAAAAAAAAAAAPj4+Pj4+PAAAAAAAAAAAA
CPj4+Pj4+AAAAAAAAAAAAA+Pj4+ETwAAAAAAAAAAAAAA+Pj49EAAAAAAAAAAAAAAAA+Pj4+AAAAAAAAA
AAAAAAAA+Pj48AAAAAAAAAAAAAAAAA+Pj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD////////////////+AAD//gAA//4A
AP//AAH//4AD///AB///wAf//8AD///AAf//gAD//4AA//8AAP/+AAD//gAAP/4AAB/+AAAf/gAAP/4A
AH/+AAD//gAAf/8AAD//gAA//4AAP//AAH//4AH///gH/////////////////w==
</value>
</data>
</root>

View File

@@ -0,0 +1,292 @@
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Public Class frmEdokaAdresse
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtAdresse7 As System.Windows.Forms.TextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents txtAdresse6 As System.Windows.Forms.TextBox
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents txtAdresse5 As System.Windows.Forms.TextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents txtAdresse4 As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtAdresse3 As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtAdresse2 As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtAdresse1 As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents btnCancel As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmEdokaAdresse))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtAdresse7 = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtAdresse6 = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtAdresse5 = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtAdresse4 = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAdresse3 = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtAdresse2 = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtAdresse1 = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.btnSave = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtAdresse7, Me.Label11, Me.txtAdresse6, Me.Label10, Me.txtAdresse5, Me.Label9, Me.txtAdresse4, Me.Label8, Me.txtAdresse3, Me.Label7, Me.txtAdresse2, Me.Label6, Me.txtAdresse1, Me.Label5})
Me.GroupBox1.Location = New System.Drawing.Point(8, 16)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(344, 192)
Me.GroupBox1.TabIndex = 9
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "EDOKA-interne Adresse"
'
'txtAdresse7
'
Me.txtAdresse7.Location = New System.Drawing.Point(120, 160)
Me.txtAdresse7.Name = "txtAdresse7"
Me.txtAdresse7.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse7.TabIndex = 35
Me.txtAdresse7.Text = ""
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(16, 160)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(96, 23)
Me.Label11.TabIndex = 34
Me.Label11.Text = "Zeile 7"
'
'txtAdresse6
'
Me.txtAdresse6.Location = New System.Drawing.Point(120, 136)
Me.txtAdresse6.Name = "txtAdresse6"
Me.txtAdresse6.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse6.TabIndex = 33
Me.txtAdresse6.Text = ""
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(16, 136)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(96, 23)
Me.Label10.TabIndex = 32
Me.Label10.Text = "Zeile 6"
'
'txtAdresse5
'
Me.txtAdresse5.Location = New System.Drawing.Point(120, 112)
Me.txtAdresse5.Name = "txtAdresse5"
Me.txtAdresse5.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse5.TabIndex = 31
Me.txtAdresse5.Text = ""
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(16, 112)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(96, 23)
Me.Label9.TabIndex = 30
Me.Label9.Text = "Zeile 5"
'
'txtAdresse4
'
Me.txtAdresse4.Location = New System.Drawing.Point(120, 88)
Me.txtAdresse4.Name = "txtAdresse4"
Me.txtAdresse4.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse4.TabIndex = 29
Me.txtAdresse4.Text = ""
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(16, 88)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(96, 23)
Me.Label8.TabIndex = 28
Me.Label8.Text = "Zeile 4"
'
'txtAdresse3
'
Me.txtAdresse3.Location = New System.Drawing.Point(120, 64)
Me.txtAdresse3.Name = "txtAdresse3"
Me.txtAdresse3.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse3.TabIndex = 27
Me.txtAdresse3.Text = ""
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(16, 64)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(96, 23)
Me.Label7.TabIndex = 26
Me.Label7.Text = "Zeile 3"
'
'txtAdresse2
'
Me.txtAdresse2.Location = New System.Drawing.Point(120, 40)
Me.txtAdresse2.Name = "txtAdresse2"
Me.txtAdresse2.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse2.TabIndex = 25
Me.txtAdresse2.Text = ""
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(16, 40)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(96, 23)
Me.Label6.TabIndex = 24
Me.Label6.Text = "Zeile 2"
'
'txtAdresse1
'
Me.txtAdresse1.Location = New System.Drawing.Point(120, 16)
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(216, 20)
Me.txtAdresse1.TabIndex = 23
Me.txtAdresse1.Text = ""
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(16, 16)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(96, 23)
Me.Label5.TabIndex = 22
Me.Label5.Text = "Zeile 1"
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(8, 216)
Me.btnSave.Name = "btnSave"
Me.btnSave.TabIndex = 10
Me.btnSave.Text = "&Sichern"
'
'btnCancel
'
Me.btnCancel.Location = New System.Drawing.Point(272, 216)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.TabIndex = 11
Me.btnCancel.Text = "&Abbruch"
'
'frmEdokaAdresse
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(352, 245)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnCancel, Me.btnSave, Me.GroupBox1})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmEdokaAdresse"
Me.Text = "EDOKA-Adresse"
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Dim m_partnernr As Long
Property Partnernr() As Long
Get
Return m_partnernr
End Get
Set(ByVal Value As Long)
m_partnernr = Value
End Set
End Property
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim partner As New edokadb.clsEdoka_adressen()
Dim adrdata As DataTable
partner.cpMainConnectionProvider = conn
conn.OpenConnection()
partner.iNrpar00 = New SqlInt32(CType(Me.Partnernr, Int32))
adrdata = partner.SelectOne()
If adrdata.Rows.Count = 0 Then
partner.iNrpar00 = New SqlInt32(CType(Me.Partnernr, Int32))
partner.sAdresszeile1 = New SqlString(CType(Me.txtAdresse1.Text, String))
partner.sAdresszeile2 = New SqlString(CType(Me.txtAdresse2.Text, String))
partner.sAdresszeile3 = New SqlString(CType(Me.txtAdresse3.Text, String))
partner.sAdresszeile4 = New SqlString(CType(Me.txtAdresse4.Text, String))
partner.sAdresszeile5 = New SqlString(CType(Me.txtAdresse5.Text, String))
partner.sAdresszeile6 = New SqlString(CType(Me.txtAdresse6.Text, String))
partner.sAdresszeile7 = New SqlString(CType(Me.txtAdresse7.Text, String))
partner.Insert()
Else
partner.iNrpar00 = New SqlInt32(CType(Me.Partnernr, Int32))
partner.sAdresszeile1 = New SqlString(CType(Me.txtAdresse1.Text, String))
partner.sAdresszeile2 = New SqlString(CType(Me.txtAdresse2.Text, String))
partner.sAdresszeile3 = New SqlString(CType(Me.txtAdresse3.Text, String))
partner.sAdresszeile4 = New SqlString(CType(Me.txtAdresse4.Text, String))
partner.sAdresszeile5 = New SqlString(CType(Me.txtAdresse5.Text, String))
partner.sAdresszeile6 = New SqlString(CType(Me.txtAdresse6.Text, String))
partner.sAdresszeile7 = New SqlString(CType(Me.txtAdresse7.Text, String))
partner.Update()
End If
conn.CloseConnection(True)
adrdata.Dispose()
partner.Dispose()
Me.Close()
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
Private Sub frmEdokaAdresse_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim partner As New edokadb.clsEdoka_adressen()
Dim adrdata As DataTable
partner.cpMainConnectionProvider = conn
partner.iNrpar00 = New SqlInt32(CType(Me.Partnernr, Int32))
adrdata = partner.SelectOne
If adrdata.Rows.Count > 0 Then
Me.txtAdresse1.Text = adrdata.Rows(0).Item("Adresszeile1")
Me.txtAdresse2.Text = adrdata.Rows(0).Item("Adresszeile2")
Me.txtAdresse3.Text = adrdata.Rows(0).Item("Adresszeile3")
Me.txtAdresse4.Text = adrdata.Rows(0).Item("Adresszeile4")
Me.txtAdresse5.Text = adrdata.Rows(0).Item("Adresszeile5")
Me.txtAdresse6.Text = adrdata.Rows(0).Item("Adresszeile6")
Me.txtAdresse7.Text = adrdata.Rows(0).Item("Adresszeile7")
End If
partner.Dispose()
adrdata.Dispose()
End Sub
End Class

View File

@@ -0,0 +1,145 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ProgressBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmHostTransfer</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
AAAAAAAA/wAAAICAgADAwMAA////AAAAAAAAAAAAAAAAAPDh6wDmxNgA3K3LANOjowDIiooAvnR0AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKCgAAAAAAAAAAAAAAAAkJAAAKCgAAAAAAAAAACAkA
AAoKAAAKCgAAAAIECAAACQkAAAoKAAAKAAAAAAAICQAACgoAAAoKAAAAAgQIAAAJCQAACgoAAAoAAAAA
AAgJAAAKCgAACgoAAAACBAgAAAkJAAAKCgAACgAAAAAACAkAAAoKAAAKCgAAAAIECAAACgoKCgoKAAAK
AAAAAAAJCQkJCQkJCgoK/wAAAgQICAgICQkJCQkJCv8AAAACAgQECAgICAkJAAAAAAAAAAACAgQECAgA
AAAAAAAAAAAAAAACAgAAAAAAAAAAAP5/AAD4HwAA4AcAAIABAAAAAwAAgAEAAAADAACAAQAAAAMAAIAB
AAAAAwAAgAEAAAADAACABwAA4B8AAPh/AAA=
</value>
</data>
</root>

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,248 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="btnSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancel.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnClose.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtvorname.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtname.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtzhd.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtadresse1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtadresse2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtplz.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtort.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtkurzbezeichnung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtbriefanrede.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtanrede.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="adraufbereitet.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txterfasser.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmInteressent</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAEBAAAAEACABoBQAAJgAAACAgAAABAAgAqAgAAI4FAAAoAAAAEAAAACAAAAABAAgAAAAAAEAB
AAAAAAAAAAAAAAAAAAAAAAAA////AOfn5wAAAAAAODg4ADAwMADSwMwA/+f+APHT5gDqzuAA9tXqAEBA
QACHh4cAf39/AIeRiwCJYXoAuISlAP+65wBoSFwAKSsqAMeywACIiIgA/a7fACgdJADLpLwAgICAAOi0
1ABcQlMA39/fAIOJhQD73+8A357HAGtPYQCgoKAAeG10AOOnzQBdRVUAICAgAGlLXwDWnsEA97bfABoT
GAA1JzAAwY+vAF1FVABrT2AA/8XxAP/A6wB4WGwALiIqALSFowDqrNMA8LHZAGRKWgBkSlsAoHaRANyi
xwD/z/0AcVNnAHBQZQD+u+UAu4qpAH9dcgBFTEcAcFBkAHFTZgCFYngAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAICAgICAgICAgIfIiYmJiYCPj8sLCwsQEECHyImJiYmAjozIiIi
Ozw9Ah8iJiYmJgIfIiYmJygCAgIfIiYmJiYCHyImIjUCLDgCOTMiNyYmAh8iJjICNTMzAhY0NDY3JgIf
IiYmMjMiMys0LwIfMiYCHyImJicrLCstLi8CMDEiAiUiJicoAgICAikCAgICKgIhHiIjAiQAGwICJAAb
AgICHB0eHwIAAgACAgAKACACAhgAGRoCGwAbAgIYAAACAgIUAAAVFgICAgICAgICAhcCCgsMDQ4CAgIP
EBECEhMAAgICAgICAgUGBwgJAAAAAAABAgADBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAACAAAABAAAAAAQAIAAAA
AACABAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAA/9SOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AADWnsEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQEBAQEBAQEBAQEBAQEKCgoKCgoKCgoKCgEB
AQEBAQEBAQEBAQEBAQEBAQEBAQoKCgoKCgoKCgoKAQEBAQEBAQEBAQEBAQEBAQEBAQEBCgoKCgoKCgoK
CgoBAQEBCgoKCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgoKCgEBAQoKCgoKCgoKCgoKCgoKCgEBAQoKCgoK
CgoKCgoKAQEBCgoKCgoKCgoKCgoKAQEBAQEBCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgoKAQEBAQEBAQEK
CgoKCgoKCgoKCgEBAQoKCgoKCgoKCgEBAQEBAQEBAQoKCgoKCgoKCgoKAQEBCgoKCgoKCgoBAQEBAQoK
AQEBCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgEBAQoKCgoBAQEKCgoKCgoKCgoKCgEBAQoKCgoKCgoBAQEK
CgoKCgEBAQoKCgoKCgoKCgoKAQEBCgoKCgoKCgoBAQoKCgoKAQEBAQEBAQEBCgoKCgoBAQEKCgoKCgoK
CgoKCgoKCgoBAQEBAQEBAQEKCgoKCgEBAQoKCgoKCgoKCgoKCgoKCgoKCgoKCgEBAQoKCgoKAQEBCgoK
CgoKCgoKCgoKCgoKCgoKCgoKAQEBCgoKCgoBAQEKCgoKCgoKCgoBAQEBAQEKCgoKAQEBAQEBAQoKCgEB
AQoKCgoKCgoKAQEBAQEBAQEBCgEBAQEBAQEBAQoKAQEBCgoKCgoKCgEBAQEBAQEBAQEBAQEBAQEBAQEB
AQoBAQEKCgoKCgoBAQEBAQAAAAEBAQEBAQEAAAABAQEBAQEBAQEKCgoKCgEBAQEAAAAAAAEBAQEBAAAA
AAABAQEBAQEBAQEKCgoKAQEBAAAAAQAAAQEBAQAAAAEAAAABAQEBAQEBAQoKCgoBAQEAAAEBAAABAQEB
AAAAAQAAAAEBAQEBAQEBAQoKCgEBAQAAAAAAAAEBAQEBAAAAAAABAQEBAQEBAQEBAQoKAQEBAQAAAAAB
AQEBAQEAAAAAAAEBAQEBAQEBAQEBAQoKAQEBAQEBAQEBAQEBAQEBAQEBAQEBCgEBAQEBAQEBCgoKAQEB
AQEBAQEBAQEBAQEBAQEBAQoBAQEBAQEBAQEBAQoKAQEBAQEBAQoKCgEBAQEBAQEKAQEBAQEBAQEBAQEB
AQEBAQEBAQEKCgoKCgoBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQoKCgoKCgoKCgoBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAYAAAAGAAAABwA
AAAeAAAAHwAAAB8AAAEfwAADAAAAHwAAAH8AA///8Y///+Mf//8=
</value>
</data>
</root>

View File

@@ -0,0 +1,652 @@
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports System.Windows.Forms
Public Class frmInteressent
Inherits System.Windows.Forms.Form
Dim partner As New edokadb.clsPartner()
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents btnClose As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents txtvorname As System.Windows.Forms.TextBox
Friend WithEvents txtname As System.Windows.Forms.TextBox
Friend WithEvents txtzhd As System.Windows.Forms.TextBox
Friend WithEvents txtadresse1 As System.Windows.Forms.TextBox
Friend WithEvents txtadresse2 As System.Windows.Forms.TextBox
Friend WithEvents txtplz As System.Windows.Forms.TextBox
Friend WithEvents txtort As System.Windows.Forms.TextBox
Friend WithEvents txtkurzbezeichnung As System.Windows.Forms.TextBox
Friend WithEvents txtbriefanrede As System.Windows.Forms.TextBox
Friend WithEvents txtanrede As System.Windows.Forms.TextBox
Friend WithEvents adraufbereitet As System.Windows.Forms.TextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txterfasser As System.Windows.Forms.TextBox
Friend WithEvents lblsaldiert As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmInteressent))
Me.btnSave = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnClose = New System.Windows.Forms.Button()
Me.txtvorname = New System.Windows.Forms.TextBox()
Me.txtname = New System.Windows.Forms.TextBox()
Me.txtzhd = New System.Windows.Forms.TextBox()
Me.txtadresse1 = New System.Windows.Forms.TextBox()
Me.txtadresse2 = New System.Windows.Forms.TextBox()
Me.txtplz = New System.Windows.Forms.TextBox()
Me.txtort = New System.Windows.Forms.TextBox()
Me.txtkurzbezeichnung = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtbriefanrede = New System.Windows.Forms.TextBox()
Me.txtanrede = New System.Windows.Forms.TextBox()
Me.adraufbereitet = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.txterfasser = New System.Windows.Forms.TextBox()
Me.lblsaldiert = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(208, 392)
Me.btnSave.Name = "btnSave"
Me.btnSave.TabIndex = 11
Me.btnSave.Text = "&Speichern"
'
'btnCancel
'
Me.btnCancel.Location = New System.Drawing.Point(120, 392)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.TabIndex = 10
Me.btnCancel.Text = "&Abbruch"
'
'btnClose
'
Me.btnClose.Location = New System.Drawing.Point(168, 392)
Me.btnClose.Name = "btnClose"
Me.btnClose.TabIndex = 11
Me.btnClose.Text = "&Schliessen"
'
'txtvorname
'
Me.txtvorname.Location = New System.Drawing.Point(120, 48)
Me.txtvorname.Name = "txtvorname"
Me.txtvorname.Size = New System.Drawing.Size(248, 20)
Me.txtvorname.TabIndex = 1
Me.txtvorname.Text = ""
'
'txtname
'
Me.txtname.Location = New System.Drawing.Point(120, 72)
Me.txtname.Name = "txtname"
Me.txtname.Size = New System.Drawing.Size(248, 20)
Me.txtname.TabIndex = 2
Me.txtname.Text = ""
'
'txtzhd
'
Me.txtzhd.Location = New System.Drawing.Point(120, 96)
Me.txtzhd.Name = "txtzhd"
Me.txtzhd.Size = New System.Drawing.Size(248, 20)
Me.txtzhd.TabIndex = 3
Me.txtzhd.Text = ""
'
'txtadresse1
'
Me.txtadresse1.Location = New System.Drawing.Point(120, 120)
Me.txtadresse1.Name = "txtadresse1"
Me.txtadresse1.Size = New System.Drawing.Size(248, 20)
Me.txtadresse1.TabIndex = 4
Me.txtadresse1.Text = ""
'
'txtadresse2
'
Me.txtadresse2.Location = New System.Drawing.Point(120, 144)
Me.txtadresse2.Name = "txtadresse2"
Me.txtadresse2.Size = New System.Drawing.Size(248, 20)
Me.txtadresse2.TabIndex = 5
Me.txtadresse2.Text = ""
'
'txtplz
'
Me.txtplz.Location = New System.Drawing.Point(120, 168)
Me.txtplz.Name = "txtplz"
Me.txtplz.Size = New System.Drawing.Size(60, 20)
Me.txtplz.TabIndex = 6
Me.txtplz.Text = ""
'
'txtort
'
Me.txtort.Location = New System.Drawing.Point(232, 168)
Me.txtort.Name = "txtort"
Me.txtort.Size = New System.Drawing.Size(136, 20)
Me.txtort.TabIndex = 7
Me.txtort.Text = ""
'
'txtkurzbezeichnung
'
Me.txtkurzbezeichnung.Location = New System.Drawing.Point(120, 200)
Me.txtkurzbezeichnung.Name = "txtkurzbezeichnung"
Me.txtkurzbezeichnung.Size = New System.Drawing.Size(248, 20)
Me.txtkurzbezeichnung.TabIndex = 8
Me.txtkurzbezeichnung.Text = ""
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 23)
Me.Label1.TabIndex = 22
Me.Label1.Text = "Anrede"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(8, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(64, 23)
Me.Label2.TabIndex = 23
Me.Label2.Text = "Vorname"
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(8, 72)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(80, 23)
Me.Label3.TabIndex = 24
Me.Label3.Text = "Name / Firma"
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(8, 96)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(64, 23)
Me.Label4.TabIndex = 25
Me.Label4.Text = "z. Hd."
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(8, 120)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(72, 23)
Me.Label5.TabIndex = 26
Me.Label5.Text = "Adresszeile 1"
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(8, 144)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(72, 23)
Me.Label6.TabIndex = 27
Me.Label6.Text = "Adresszeile 2"
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(8, 168)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(64, 23)
Me.Label7.TabIndex = 28
Me.Label7.Text = "PLZ"
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(200, 168)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(32, 23)
Me.Label8.TabIndex = 29
Me.Label8.Text = "Ort"
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(8, 200)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(96, 23)
Me.Label9.TabIndex = 30
Me.Label9.Text = "Kurzbezeichnung"
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(8, 224)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(64, 23)
Me.Label10.TabIndex = 31
Me.Label10.Text = "Briefanrede"
'
'txtbriefanrede
'
Me.txtbriefanrede.Location = New System.Drawing.Point(120, 224)
Me.txtbriefanrede.Name = "txtbriefanrede"
Me.txtbriefanrede.Size = New System.Drawing.Size(248, 20)
Me.txtbriefanrede.TabIndex = 9
Me.txtbriefanrede.Text = ""
'
'txtanrede
'
Me.txtanrede.Location = New System.Drawing.Point(120, 24)
Me.txtanrede.Name = "txtanrede"
Me.txtanrede.Size = New System.Drawing.Size(248, 20)
Me.txtanrede.TabIndex = 0
Me.txtanrede.Text = ""
'
'adraufbereitet
'
Me.adraufbereitet.Enabled = False
Me.adraufbereitet.Location = New System.Drawing.Point(120, 256)
Me.adraufbereitet.Multiline = True
Me.adraufbereitet.Name = "adraufbereitet"
Me.adraufbereitet.Size = New System.Drawing.Size(248, 101)
Me.adraufbereitet.TabIndex = 33
Me.adraufbereitet.Text = ""
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(8, 256)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(112, 16)
Me.Label11.TabIndex = 34
Me.Label11.Text = "Aufbereitete Adresse"
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(8, 360)
Me.Label12.Name = "Label12"
Me.Label12.TabIndex = 35
Me.Label12.Text = "Erfasst durch"
'
'txterfasser
'
Me.txterfasser.Location = New System.Drawing.Point(120, 360)
Me.txterfasser.Name = "txterfasser"
Me.txterfasser.ReadOnly = True
Me.txterfasser.Size = New System.Drawing.Size(248, 20)
Me.txterfasser.TabIndex = 36
Me.txterfasser.TabStop = False
Me.txterfasser.Text = ""
'
'lblsaldiert
'
Me.lblsaldiert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblsaldiert.ForeColor = System.Drawing.Color.Red
Me.lblsaldiert.Location = New System.Drawing.Point(8, 392)
Me.lblsaldiert.Name = "lblsaldiert"
Me.lblsaldiert.Size = New System.Drawing.Size(144, 24)
Me.lblsaldiert.TabIndex = 37
Me.lblsaldiert.Text = "Partner ist saldiert"
'
'frmInteressent
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(376, 421)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblsaldiert, Me.txterfasser, Me.Label12, Me.Label11, Me.adraufbereitet, Me.txtanrede, Me.Label10, Me.Label9, Me.Label8, Me.Label7, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.Label1, Me.txtbriefanrede, Me.txtkurzbezeichnung, Me.txtort, Me.txtplz, Me.txtadresse2, Me.txtadresse1, Me.txtzhd, Me.txtname, Me.txtvorname, Me.btnClose, Me.btnCancel, Me.btnSave})
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmInteressent"
Me.Text = "Partner eröffnen / bearbeiten"
Me.TopMost = True
Me.ResumeLayout(False)
End Sub
#End Region
Dim Bereits_beantwortet As Boolean = False
Dim returncode As Integer
Dim m_partnernr As Long
Dim m_display As Boolean
Property Display() As Boolean
Get
Return m_display
End Get
Set(ByVal Value As Boolean)
m_display = Value
End Set
End Property
Property Partnernr() As Long
Get
Return m_partnernr
End Get
Set(ByVal Value As Long)
m_partnernr = Value
End Set
End Property
Dim m_profilnr As Integer
Property Profilnr() As Integer
Get
Return m_profilnr
End Get
Set(ByVal Value As Integer)
m_profilnr = Value
End Set
End Property
Dim adressarray(6) As String
Private Sub Interessent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Me.Display Then MyMsg.Show_HinweisMessage(Me.Profilnr, 1, 100, 1, True)
Dim partner As New edokadb.clsPartner()
Dim s As String
adressarray(0) = ""
adressarray(1) = ""
adressarray(2) = ""
adressarray(3) = ""
adressarray(4) = ""
adressarray(5) = ""
adressarray(6) = ""
Me.lblsaldiert.Visible = False
If Me.Partnernr > 0 Then
partner.cpMainConnectionProvider = conn
partner.iNRPAR00 = New SqlInt32(CType(Me.Partnernr, Int32))
partner.SelectOne()
Me.txtanrede.Text = partner.sTXADZ012.Value
Me.txtvorname.Text = partner.sTXADZ022.Value
Me.txtname.Text = partner.sTXADZ032.Value
Me.txtzhd.Text = partner.sTXADZ042.Value
Me.txtadresse1.Text = partner.sTXADZ052.Value
Me.txtadresse2.Text = partner.sTXADZ062.Value
Me.txtplz.Text = partner.sTXADZ072.Value
Me.txtort.Text = partner.sBEBAN012.Value
Me.txtkurzbezeichnung.Text = partner.sBKPAR00.Value
Me.txtbriefanrede.Text = partner.sBEBAN011.Value
Me.txtkurzbezeichnung.Text = partner.sBKPAR00.Value
adressarray(0) = partner.sTXADZ011.Value
adressarray(1) = partner.sTXADZ021.Value
adressarray(2) = partner.sTXADZ031.Value
adressarray(3) = partner.sTXADZ041.Value
adressarray(4) = partner.sTXADZ061.Value
adressarray(5) = partner.sTXADZ061.Value
adressarray(6) = partner.sTXADZ071.Value
If partner.bSaldiert.Value = True Then Me.lblsaldiert.Visible = True Else Me.lblsaldiert.Visible = False
s = ""
s = s + adressarray(0) + vbCrLf
s = s + adressarray(1) + vbCrLf
s = s + adressarray(2) + vbCrLf
s = s + adressarray(3) + vbCrLf
s = s + adressarray(4) + vbCrLf
s = s + adressarray(5) + vbCrLf
s = s + adressarray(6)
Me.adraufbereitet.Text = s
End If
Dim ma As New edokadb.clsMitarbeiter()
Try
Me.txterfasser.Text = ""
ma.cpMainConnectionProvider = conn
ma.iMitarbeiternr = New SqlInt32(CType(partner.iNRFOG012.Value, Int32))
ma.SelectOne()
Me.txterfasser.Text = ma.sName.Value + " " + ma.sVorname.Value + ", " + ma.sTgnummer.Value
Catch
End Try
ma.Dispose()
'Me.txtname_Leave(sender, e)
If Me.Display = True Then
Me.btnCancel.Visible = False
Me.btnSave.Visible = False
Me.btnClose.Visible = True
Else
Me.btnCancel.Visible = True
Me.btnSave.Visible = True
Me.btnClose.Visible = False
End If
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
If Len(Me.txtkurzbezeichnung.Text) > 35 Then
MyMsg.show_standardmessage(106, MsgBoxStyle.Information)
Me.txtkurzbezeichnung.Focus()
Exit Sub
End If
If Len(Me.txtkurzbezeichnung.Text) < 5 Then
MyMsg.show_standardmessage(108, MsgBoxStyle.Critical)
Me.txtkurzbezeichnung.Focus()
Exit Sub
End If
If Len(Me.txtname.Text) < 2 Then
MyMsg.show_standardmessage(109, MsgBoxStyle.Critical)
Me.txtname.Focus()
Exit Sub
End If
If Len(Me.txtort.Text) < 2 Then
MyMsg.show_standardmessage(736, MsgBoxStyle.Critical)
Me.txtname.Focus()
Exit Sub
End If
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim key As Long
partner.cpMainConnectionProvider = conn
If Me.Partnernr = 0 Then
Dim t As DataTable
t = Generic_Select(2)
If Me.returncode <> 0 Then
If Me.Bereits_beantwortet = False Then
Dim pa As New FrmPartnersuche()
pa.Meldung_Doppelter_Partner = True
pa.NurAbfrage = True
pa.AusPartnererfassung = True
Me.Cursor = Cursors.WaitCursor
pa.Doppelte_Partner(Me.txtname.Text, Me.txtort.Text)
Me.Cursor = Cursors.Default
pa.TopMost = True
pa.ShowDialog()
Me.Bereits_beantwortet = True
If pa.PartnerNr <> 0 Then
Me.Partnernr = pa.PartnerNr
Me.Close()
Exit Sub
End If
Exit Sub
Else
End If
End If
dbkey.cpMainConnectionProvider = conn
key = dbkey.get_dbkey("Interessent")
Else
partner.iNRPAR00 = New SqlInt32(CType(Me.Partnernr, Int32))
partner.SelectOne()
End If
conn.OpenConnection()
Me.Cursor = Cursors.WaitCursor
partner.sBKPAR00 = New SqlString(CType(Me.txtkurzbezeichnung.Text, String))
partner.sBEBAN012 = New SqlString(CType(Me.txtort.Text, String))
partner.sTXADZ012 = New SqlString(CType(Me.txtanrede.Text, String))
partner.sTXADZ022 = New SqlString(CType(Me.txtvorname.Text, String))
partner.sTXADZ032 = New SqlString(CType(Me.txtname.Text, String))
partner.sTXADZ042 = New SqlString(CType(Me.txtzhd.Text, String))
partner.sTXADZ052 = New SqlString(CType(Me.txtadresse1.Text, String))
partner.sTXADZ062 = New SqlString(CType(Me.txtadresse2.Text, String))
partner.sTXADZ072 = New SqlString(CType(Me.txtplz.Text, String))
partner.sTXADZ011 = New SqlString(CType(Me.txtadresse1.Text, String))
partner.sTXADZ021 = New SqlString(CType(Me.txtadresse2.Text, String))
partner.sBEBAN011 = New SqlString(CType(Me.txtbriefanrede.Text, String))
partner.sTXADZ011 = New SqlString(CType(Me.adressarray(0).ToString, String))
partner.sTXADZ021 = New SqlString(CType(Me.adressarray(1).ToString, String))
partner.sTXADZ031 = New SqlString(CType(Me.adressarray(2).ToString, String))
partner.sTXADZ041 = New SqlString(CType(Me.adressarray(3).ToString, String))
partner.sTXADZ051 = New SqlString(CType(Me.adressarray(4).ToString, String))
partner.sTXADZ061 = New SqlString(CType(Me.adressarray(5).ToString, String))
partner.sTXADZ071 = New SqlString(CType(Me.adressarray(6).ToString, String))
partner.iNRFOG012 = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
partner.sTSMUT00 = New SqlString(CType(Now, String))
partner.sNRADR00 = New SqlString(CType("", String))
If Me.Partnernr = 0 Then
partner.iNRPAR00 = New SqlInt32(CType(key, Int32))
partner.Insert()
Me.Partnernr = key
Else
partner.Update()
End If
conn.CloseConnection(True)
Me.Cursor = Cursors.Default
Me.Close()
End Sub
Private Sub frmInteressent_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
partner.Dispose()
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()
End Sub
Private Sub txtplz_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtplz.Leave
Dim plz As DataTable
plz = Generic_Select(1)
If plz.Rows.Count > 0 And Me.txtort.Text = "" Then
Me.txtort.Text = plz.Rows(0).Item(2)
End If
plz.Dispose()
End Sub
#Region "Datenhandling"
Private Function Generic_Select(ByVal typ As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Select Case typ
Case 1
scmCmdToExecute.CommandText = "dbo.SP_get_ort"
Case 2
scmCmdToExecute.CommandText = "dbo.SP_check_partner"
Case Else
End Select
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.Connection = conn.scoDBConnection
Try
Select Case typ
Case 1
scmCmdToExecute.Parameters.Add(New SqlParameter("@plz", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtplz.Text))
Case 2
scmCmdToExecute.Parameters.Add(New SqlParameter("@name", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtname.Text))
scmCmdToExecute.Parameters.Add(New SqlParameter("@vorname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtvorname.Text))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ort", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtort.Text))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ret", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
Case Else
End Select
If typ = 1 Then
End If
sdaAdapter.Fill(dtToReturn)
If typ = 2 Then Me.returncode = scmCmdToExecute.Parameters("@ret").Value
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#End Region
Private Sub txtname_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtname.Leave, txtort.Leave, txtanrede.Leave, txtvorname.Leave, txtadresse1.Leave, txtadresse2.Leave, txtzhd.Leave, txtplz.Leave, txtanrede.Enter
If Me.txtvorname.Text = "" Then
Me.txtkurzbezeichnung.Text = Me.txtname.Text
Me.txtbriefanrede.Text = "Damen und Herren"
Else
Me.txtkurzbezeichnung.Text = Me.txtvorname.Text + " " + Me.txtname.Text
Me.txtbriefanrede.Text = Me.txtanrede.Text + " " + Me.txtname.Text
End If
If Me.txtort.Text <> "" Then
Me.txtkurzbezeichnung.Text = Me.txtkurzbezeichnung.Text + ", " + Me.txtort.Text
End If
'Adresse
Dim i As Integer
For i = 0 To 6
Me.adressarray(i) = ""
Next
i = 0
If Me.txtanrede.Text <> "" Then
Me.adressarray(i) = Me.txtanrede.Text
i = i + 1
End If
If Me.txtvorname.Text <> "" Then
Me.adressarray(i) = Me.txtvorname.Text + " " + Me.txtname.Text
i = i + 1
Else
Me.adressarray(i) = Me.txtname.Text
i = i + 1
End If
If Me.txtzhd.Text <> "" Then
Me.adressarray(i) = Me.txtzhd.Text
i = i + 1
End If
If Me.txtadresse1.Text <> "" Then
Me.adressarray(i) = Me.txtadresse1.Text
i = i + 1
End If
If Me.txtadresse2.Text <> "" Then
Me.adressarray(i) = Me.txtadresse2.Text
i = i + 1
End If
Me.adressarray(i) = Me.txtplz.Text + " " + Me.txtort.Text
Me.adraufbereitet.Text = ""
Me.adraufbereitet.Text = Me.adressarray(0) + vbCrLf + Me.adressarray(1) + vbCrLf + Me.adressarray(2) + vbCrLf + Me.adressarray(3) + vbCrLf + Me.adressarray(4) + vbCrLf + Me.adressarray(5) + vbCrLf + Me.adressarray(6)
End Sub
Private Sub txtname_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtname.TextChanged, txtort.TextChanged
Me.Bereits_beantwortet = False
End Sub
End Class

View File

@@ -0,0 +1,271 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="txtPartnernr.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtBkapr00.Locked" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="txtBkapr00.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbvi.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbvsa.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtPartnerEmpfaenger.Locked" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="txtPartnerEmpfaenger.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtZusteller.Locked" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="txtZusteller.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtZusatz.Locked" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="txtZusatz.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtsaldiert.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="vvlist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtInhaber.Locked" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="txtInhaber.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbVip.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cbmitarbeiter.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Betreuerlabel.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GBDatLabel.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmPartnerDetails</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAEBAAAAEACABoBQAAJgAAACAgAAABAAgAqAgAAI4FAAAoAAAAEAAAACAAAAABAAgAAAAAAEAB
AAAAAAAAAAAAAAAAAAAAAAAA////AOfn5wAAAAAAODg4ADAwMADSwMwA/+f+APHT5gDqzuAA9tXqAEBA
QACHh4cAf39/AIeRiwCJYXoAuISlAP+65wBoSFwAKSsqAMeywACIiIgA/a7fACgdJADLpLwAgICAAOi0
1ABcQlMA39/fAIOJhQD73+8A357HAGtPYQCgoKAAeG10AOOnzQBdRVUAICAgAGlLXwDWnsEA97bfABoT
GAA1JzAAwY+vAF1FVABrT2AA/8XxAP/A6wB4WGwALiIqALSFowBxU2cA4K3UANSgxADwsdkAZEpaAOqs
0wAFGiMA/3KEAN6HpADestwAUDtJAKB2kQDcoscAIAgIAP9KSQD/dHIA/3VwAP9VWwBYUGQA/8/9AL80
NAD/PDwA/7m5AP9ubgD/NTAA/6bIABkWHAD/TEwA/zo6AP+urgD/tLQA/zQyAP94igD7wewAu4qpAH9d
cgBwHh4A/0NDAP+7uwD/REMAcVNmAIVieABvHh4A/0FBAL8oKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAICAgICHyImJllZWVlZWVksLFpbAh8iJiZZWQAAAABZIhBUVQIf
IiZZWVlZAABZWScoAgICHyImWVlZWQAAWVk2AixFAjI1IllZWQAAAFlZAjY1NQIWNjY9WVlZWVlZWTc1
IjUrNi8CH1lZWQAAWVknKywrLS4vAjAxWVlZWVlZKAICAgIpAgICAioAWVlZWQIkABsCAiQAGwICAAAA
AAACAAIAAgIACgAgAgAAAAAAAhsAGwICGAAAAgIAAAAAABYCAgICAgICAgIXAAAAAAAOAgICDxARAhIT
AAAAAAAAAgIFBgcICQAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAACAAAABAAAAAAQAIAAAA
AACABAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAA/0ZGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AADWnsEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAgICAQEBAQEBAQEBAQEBAQEKCgoKCgoKCgoKCgEB
AgICAgICAgEBAQEBAQEBAQEBAQoKCgoKCgoKCgoKAQICAgICAgICAgEBAQEBAQEBAQEBCgoKCgoKCgoK
CgoBAgICAAAAAAICAQoKCgoKCgoBAQEKCgoKCgoKCgoKCgICAgICAAACAgICCgoKCgoKCgEBAQoKCgoK
CgoKCgoKAgICAgIAAAICAgIKCgoKAQEBAQEBCgoKCgoKCgoKCgoCAgICAAAAAgICAgoKAQEBAQEBAQEK
CgoKCgoKCgoKCgECAgICAgICAgIKCgEBAQEBAQEBAQoKCgoKCgoKCgoKAQICAgIAAAICAgoBAQEBAQoK
AQEBCgoKCgoKCgoKCgoBAQICAgICAgIKCgEBAQoKCgoBAQEKCgoKCgoKCgoKCgEBAQECAgIKCgoKAQEK
CgoKCgEBAQoKCgoKCgoKCgoKAQEBCgoKCgoKCgoBAQoKCgoKAQEBAQEBAQEBCgoKCgoBAQEKCgoKCgoK
CgoKCgoKCgoBAQEBAQEBAQEKCgoKCgEBAQoKCgoKCgoKCgoKCgoKCgoKCgoKCgEBAQoKCgoKAQEBCgoK
CgoKCgoKCgoKCgoKCgoKCgoKAQEBCgoKCgoBAQEKCgoKCgoKCgoBAQEBAQEKCgoKAQEBAQEBAQoKCgEB
AQoKCgoKCgoKAQEBAQEBAQEBCgEBAQEBAQEBAQoKAQEBCgoKCgoKCgEBAQEBAQEBAQEBAQEBAQEBAQEB
AQoBAQEKCgoKCgoBAQEBAQAAAAEBAQEBAQEAAAABAQEBAQEBAQAKCgoKCgEBAQEAAAAAAAEBAQEBAAAA
AAABAQEBAQEBAAAKCgoKAQEBAAAAAQAAAQEBAQAAAAEAAAABAQEBAQEAAAoKCgoBAQEAAAEBAAABAQEB
AAAAAQAAAAEBAQEBAQAAAAoKCgEBAQAAAAAAAAEBAQEBAAAAAAABAQEBAQEBAAAAAAoKAQEBAQAAAAAB
AQEBAQEAAAAAAAEBAQEBAQEAAAAAAAoKAQEBAQEBAQEBAQEBAQEBAQEBAQEBCgEBAQAAAAAACgoKAQEB
AQEBAQEBAQEBAQEBAQEBAQoAAQEBAAAAAAAAAAoKAQEBAQEBAQoKCgEBAQEBAQEKAAABAQEBAQEBAQEB
AQEBAQEBAQEKCgoKCgoBAQEAAAAAAAEBAQEBAQEBAQEBAQEBAQoKCgoKCgoKCgoAAAAAAAAAAQEBAQEB
AQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAAABAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAEBAQAAAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAMYAAAEBAAACAIAAAgCAAAAAAAAAAAAAAAAAAAIAA
AACAAAAAQAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
</value>
</data>
</root>

View File

@@ -0,0 +1,633 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Color
Public Class frmPartnerDetails
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents txtPartnernr As System.Windows.Forms.TextBox
Friend WithEvents txtBkapr00 As System.Windows.Forms.TextBox
Friend WithEvents cbvi As System.Windows.Forms.CheckBox
Friend WithEvents txtPartnerEmpfaenger As System.Windows.Forms.TextBox
Friend WithEvents txtZusatz As System.Windows.Forms.RichTextBox
Friend WithEvents cbvsa As System.Windows.Forms.CheckBox
Friend WithEvents txtsaldiert As System.Windows.Forms.Label
Friend WithEvents txtZusteller As System.Windows.Forms.RichTextBox
Friend WithEvents vvlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtInhaber As System.Windows.Forms.RichTextBox
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
Friend WithEvents cbmitarbeiter As System.Windows.Forms.CheckBox
Friend WithEvents cbVip As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
Friend WithEvents Betreuerlabel As System.Windows.Forms.Label
Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
Friend WithEvents GBDatLabel As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPartnerDetails))
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
Me.txtPartnernr = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtBkapr00 = New System.Windows.Forms.TextBox()
Me.cbvi = New System.Windows.Forms.CheckBox()
Me.cbvsa = New System.Windows.Forms.CheckBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtPartnerEmpfaenger = New System.Windows.Forms.TextBox()
Me.txtZusteller = New System.Windows.Forms.RichTextBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.txtZusatz = New System.Windows.Forms.RichTextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtsaldiert = New System.Windows.Forms.Label()
Me.vvlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtInhaber = New System.Windows.Forms.RichTextBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.cbVip = New System.Windows.Forms.CheckBox()
Me.cbmitarbeiter = New System.Windows.Forms.CheckBox()
Me.GroupBox6 = New System.Windows.Forms.GroupBox()
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
Me.Betreuerlabel = New System.Windows.Forms.Label()
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
Me.GBDatLabel = New System.Windows.Forms.Label()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
CType(Me.vvlist, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.GroupBox6.SuspendLayout()
Me.GroupBox7.SuspendLayout()
Me.GroupBox8.SuspendLayout()
Me.SuspendLayout()
'
'txtPartnernr
'
Me.txtPartnernr.Location = New System.Drawing.Point(72, 8)
Me.txtPartnernr.Name = "txtPartnernr"
Me.txtPartnernr.ReadOnly = True
Me.txtPartnernr.Size = New System.Drawing.Size(80, 20)
Me.txtPartnernr.TabIndex = 0
Me.txtPartnernr.Text = ""
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 23)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Partner-Nr."
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(176, 8)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(64, 23)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Kurzname"
'
'txtBkapr00
'
Me.txtBkapr00.Location = New System.Drawing.Point(232, 8)
Me.txtBkapr00.Name = "txtBkapr00"
Me.txtBkapr00.ReadOnly = True
Me.txtBkapr00.Size = New System.Drawing.Size(208, 20)
Me.txtBkapr00.TabIndex = 2
Me.txtBkapr00.Text = "TextBox2"
'
'cbvi
'
Me.cbvi.Location = New System.Drawing.Point(8, 16)
Me.cbvi.Name = "cbvi"
Me.cbvi.TabIndex = 4
Me.cbvi.Text = "VI beachten"
'
'cbvsa
'
Me.cbvsa.Location = New System.Drawing.Point(120, 16)
Me.cbvsa.Name = "cbvsa"
Me.cbvsa.Size = New System.Drawing.Size(112, 24)
Me.cbvsa.TabIndex = 5
Me.cbvsa.Text = "Ad. versandfähig"
'
'GroupBox2
'
Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.txtPartnerEmpfaenger, Me.txtZusteller})
Me.GroupBox2.Location = New System.Drawing.Point(8, 224)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(248, 176)
Me.GroupBox2.TabIndex = 7
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Zustell-Adresse (VI auf Ebene Partner)"
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(8, 144)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(120, 23)
Me.Label3.TabIndex = 3
Me.Label3.Text = "Partner-Nr. Empfänger"
'
'txtPartnerEmpfaenger
'
Me.txtPartnerEmpfaenger.Location = New System.Drawing.Point(128, 144)
Me.txtPartnerEmpfaenger.Name = "txtPartnerEmpfaenger"
Me.txtPartnerEmpfaenger.ReadOnly = True
Me.txtPartnerEmpfaenger.Size = New System.Drawing.Size(112, 20)
Me.txtPartnerEmpfaenger.TabIndex = 2
Me.txtPartnerEmpfaenger.Text = "TextBox3"
'
'txtZusteller
'
Me.txtZusteller.Dock = System.Windows.Forms.DockStyle.Top
Me.txtZusteller.Location = New System.Drawing.Point(3, 16)
Me.txtZusteller.Name = "txtZusteller"
Me.txtZusteller.ReadOnly = True
Me.txtZusteller.Size = New System.Drawing.Size(242, 120)
Me.txtZusteller.TabIndex = 0
Me.txtZusteller.Text = ""
'
'GroupBox3
'
Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtZusatz})
Me.GroupBox3.Location = New System.Drawing.Point(272, 384)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(248, 24)
Me.GroupBox3.TabIndex = 8
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "EDOKA-Zustelladresse"
Me.GroupBox3.Visible = False
'
'txtZusatz
'
Me.txtZusatz.Location = New System.Drawing.Point(8, 16)
Me.txtZusatz.Name = "txtZusatz"
Me.txtZusatz.ReadOnly = True
Me.txtZusatz.Size = New System.Drawing.Size(232, 152)
Me.txtZusatz.TabIndex = 0
Me.txtZusatz.Text = "1"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(440, 464)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 10
Me.Button1.Text = "Schliessen"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(8, 464)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(144, 23)
Me.Button2.TabIndex = 11
Me.Button2.Text = "Zustelladresse bearbeiten"
Me.Button2.Visible = False
'
'txtsaldiert
'
Me.txtsaldiert.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtsaldiert.ForeColor = System.Drawing.Color.Red
Me.txtsaldiert.Location = New System.Drawing.Point(216, 464)
Me.txtsaldiert.Name = "txtsaldiert"
Me.txtsaldiert.Size = New System.Drawing.Size(168, 23)
Me.txtsaldiert.TabIndex = 12
Me.txtsaldiert.Text = "Partner saldiert!"
'
'vvlist
'
Me.vvlist.AllowFilter = True
Me.vvlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
Me.vvlist.AllowSort = True
Me.vvlist.AlternatingRows = True
Me.vvlist.CaptionHeight = 17
Me.vvlist.CollapseColor = System.Drawing.Color.Black
Me.vvlist.ColumnHeaders = False
Me.vvlist.DataChanged = False
Me.vvlist.DeadAreaBackColor = System.Drawing.Color.Empty
Me.vvlist.ExpandColor = System.Drawing.Color.Black
Me.vvlist.FetchRowStyles = True
Me.vvlist.GroupByCaption = "Drag a column header here to group by that column"
Me.vvlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
Me.vvlist.Location = New System.Drawing.Point(8, 16)
Me.vvlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
Me.vvlist.Name = "vvlist"
Me.vvlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.vvlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.vvlist.PreviewInfo.ZoomFactor = 75
Me.vvlist.PrintInfo.ShowOptionsDialog = False
Me.vvlist.RecordSelectors = False
Me.vvlist.RecordSelectorWidth = 16
GridLines1.Color = System.Drawing.Color.DarkGray
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
Me.vvlist.RowDivider = GridLines1
Me.vvlist.RowHeight = 15
Me.vvlist.RowSubDividerColor = System.Drawing.Color.Transparent
Me.vvlist.ScrollTips = False
Me.vvlist.Size = New System.Drawing.Size(240, 304)
Me.vvlist.TabIndex = 13
Me.vvlist.Text = "C1TrueDBGrid1"
Me.vvlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
"eCaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cen" & _
"ter;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style9{}O" & _
"ddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tr" & _
"ue;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Co" & _
"ntrol;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data" & _
"></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView HBarStyle=""None"" Name="""" Altern" & _
"atingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHei" & _
"ght=""17"" FetchRowStyles=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWid" & _
"th=""16"" DefRecSelWidth=""16"" RecordSelectors=""False"" VerticalScrollGroup=""1"" Hori" & _
"zontalScrollGroup=""1""><ClientRect>0, 0, 236, 300</ClientRect><BorderSide>0</Bord" & _
"erSide><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor""" & _
" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle pare" & _
"nt=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupS" & _
"tyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" />" & _
"<HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""In" & _
"active"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelector" & _
"Style parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me" & _
"=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView" & _
"></Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=" & _
"""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Ca" & _
"ption"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Sele" & _
"cted"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""Highligh" & _
"tRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow""" & _
" /><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""Filt" & _
"erBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertS" & _
"plits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</Def" & _
"aultRecSelWidth><ClientArea>0, 0, 236, 300</ClientArea></Blob>"
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtInhaber})
Me.GroupBox1.Location = New System.Drawing.Point(8, 80)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(248, 144)
Me.GroupBox1.TabIndex = 6
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Inhaber-Adresse"
'
'txtInhaber
'
Me.txtInhaber.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtInhaber.Location = New System.Drawing.Point(3, 16)
Me.txtInhaber.Name = "txtInhaber"
Me.txtInhaber.ReadOnly = True
Me.txtInhaber.Size = New System.Drawing.Size(242, 125)
Me.txtInhaber.TabIndex = 1
Me.txtInhaber.Text = "1"
'
'GroupBox4
'
Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.vvlist})
Me.GroupBox4.Location = New System.Drawing.Point(264, 128)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(256, 328)
Me.GroupBox4.TabIndex = 14
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Vorhandene VV's"
'
'GroupBox5
'
Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbVip, Me.cbmitarbeiter})
Me.GroupBox5.Location = New System.Drawing.Point(264, 80)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(256, 48)
Me.GroupBox5.TabIndex = 15
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Mitarbeiter/VIP"
'
'cbVip
'
Me.cbVip.Location = New System.Drawing.Point(160, 16)
Me.cbVip.Name = "cbVip"
Me.cbVip.Size = New System.Drawing.Size(80, 24)
Me.cbVip.TabIndex = 18
Me.cbVip.Text = "VIP"
'
'cbmitarbeiter
'
Me.cbmitarbeiter.Location = New System.Drawing.Point(8, 16)
Me.cbmitarbeiter.Name = "cbmitarbeiter"
Me.cbmitarbeiter.Size = New System.Drawing.Size(144, 24)
Me.cbmitarbeiter.TabIndex = 17
Me.cbmitarbeiter.Text = "Mitarbeiter/Angehöriger"
'
'GroupBox6
'
Me.GroupBox6.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbvsa, Me.cbvi})
Me.GroupBox6.Location = New System.Drawing.Point(8, 408)
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(248, 48)
Me.GroupBox6.TabIndex = 16
Me.GroupBox6.TabStop = False
Me.GroupBox6.Text = "Versandinstruktion"
'
'GroupBox7
'
Me.GroupBox7.Controls.AddRange(New System.Windows.Forms.Control() {Me.Betreuerlabel})
Me.GroupBox7.Location = New System.Drawing.Point(264, 40)
Me.GroupBox7.Name = "GroupBox7"
Me.GroupBox7.Size = New System.Drawing.Size(256, 40)
Me.GroupBox7.TabIndex = 17
Me.GroupBox7.TabStop = False
Me.GroupBox7.Text = "Betreuer"
'
'Betreuerlabel
'
Me.Betreuerlabel.Location = New System.Drawing.Point(8, 14)
Me.Betreuerlabel.Name = "Betreuerlabel"
Me.Betreuerlabel.Size = New System.Drawing.Size(240, 23)
Me.Betreuerlabel.TabIndex = 0
'
'GroupBox8
'
Me.GroupBox8.Controls.AddRange(New System.Windows.Forms.Control() {Me.GBDatLabel})
Me.GroupBox8.Location = New System.Drawing.Point(8, 40)
Me.GroupBox8.Name = "GroupBox8"
Me.GroupBox8.Size = New System.Drawing.Size(248, 40)
Me.GroupBox8.TabIndex = 18
Me.GroupBox8.TabStop = False
Me.GroupBox8.Text = "Geburtsdatum"
'
'GBDatLabel
'
Me.GBDatLabel.Location = New System.Drawing.Point(8, 14)
Me.GBDatLabel.Name = "GBDatLabel"
Me.GBDatLabel.Size = New System.Drawing.Size(200, 23)
Me.GBDatLabel.TabIndex = 0
'
'frmPartnerDetails
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(528, 495)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox1, Me.GroupBox8, Me.GroupBox7, Me.GroupBox6, Me.GroupBox5, Me.GroupBox4, Me.txtsaldiert, Me.Button2, Me.Button1, Me.GroupBox3, Me.GroupBox2, Me.txtBkapr00, Me.Label1, Me.txtPartnernr, Me.Label2})
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmPartnerDetails"
Me.Text = "Partner-Details"
Me.TopMost = True
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
CType(Me.vvlist, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox6.ResumeLayout(False)
Me.GroupBox7.ResumeLayout(False)
Me.GroupBox8.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Dim m_partnernr As Long
Dim partner As DataTable
Dim vv As DataTable
Dim mypartner As New edokaDB.clsMyPartner()
Property Partnernr() As Long
Get
Return m_partnernr
End Get
Set(ByVal Value As Long)
m_partnernr = Value
End Set
End Property
Private Sub frmPartnerDetails_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Cursor = Cursors.WaitCursor
Dim s As String
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String
Me.Betreuerlabel.Text = ""
partner = mypartner.Partner_Detail(Me.Partnernr)
vv = mypartner.Partner_VV(Me.Partnernr)
Me.txtPartnernr.Text = partner.Rows(0).Item("nrpar00")
Me.txtBkapr00.Text = partner.Rows(0).Item("bkpar00")
Me.txtPartnerEmpfaenger.Text = partner.Rows(0).Item("nrparad")
Me.Betreuerlabel.Text = mypartner.Partner_Betreuer(Me.Partnernr)
Try
Me.GBDatLabel.Text = mypartner.Partner_Gebdat(Me.Partnernr)
If Me.GBDatLabel.Text = "" Then Me.GroupBox8.Visible = False Else Me.GroupBox8.Visible = True
Catch
Me.GroupBox8.Visible = False
End Try
If partner.Rows(0).Item("cdvig00") = "Y" Then
Me.cbvi.Checked = True
Else
' Me.cbvi.Checked = False
End If
If partner.Rows(0).Item("azepl00") > 1 Then
Me.cbvi.Checked = True
Else
' Me.cbvi.Checked = False
End If
If partner.Rows(0).Item("cdvsa00") = True Then
Me.cbvi.Checked = True
Else
' Me.cbvi.Checked = False
End If
Try
If partner.Rows(0).Item("SAVRS00") = "Y" Then
Me.cbvsa.Checked = True
Else
Me.cbvsa.Checked = False
End If
Catch ex As Exception
'MsgBox(ex.Message)
End Try
If partner.Rows(0).Item("saldiert") = True Then
Me.txtsaldiert.Visible = True
Else
Me.txtsaldiert.Visible = False
End If
s = ""
s1 = ""
s2 = ""
s = s + partner.Rows(0).Item("txadz012") + vbCrLf
s = s + partner.Rows(0).Item("txadz022") + vbCrLf
s = s + partner.Rows(0).Item("txadz032") + vbCrLf
s = s + partner.Rows(0).Item("txadz042") + vbCrLf
s = s + partner.Rows(0).Item("txadz052") + vbCrLf
s = s + partner.Rows(0).Item("txadz062") + vbCrLf
s = s + partner.Rows(0).Item("txadz072") + vbCrLf
s3 = ""
s3 = s3 + partner.Rows(0).Item("txadz012")
s3 = s3 + partner.Rows(0).Item("txadz022")
s3 = s3 + partner.Rows(0).Item("txadz032")
s3 = s3 + partner.Rows(0).Item("txadz042")
s3 = s3 + partner.Rows(0).Item("txadz052")
s3 = s3 + partner.Rows(0).Item("txadz062")
s3 = s3 + partner.Rows(0).Item("txadz072")
s1 = s1 + partner.Rows(0).Item("txadz011") + vbCrLf
s1 = s1 + partner.Rows(0).Item("txadz021") + vbCrLf
s1 = s1 + partner.Rows(0).Item("txadz031") + vbCrLf
s1 = s1 + partner.Rows(0).Item("txadz041") + vbCrLf
s1 = s1 + partner.Rows(0).Item("txadz051") + vbCrLf
s1 = s1 + partner.Rows(0).Item("txadz061") + vbCrLf
s1 = s1 + partner.Rows(0).Item("txadz071") + vbCrLf
s4 = ""
s4 = s4 + partner.Rows(0).Item("txadz011")
s4 = s4 + partner.Rows(0).Item("txadz021")
s4 = s4 + partner.Rows(0).Item("txadz031")
s4 = s4 + partner.Rows(0).Item("txadz041")
s4 = s4 + partner.Rows(0).Item("txadz051")
s4 = s4 + partner.Rows(0).Item("txadz061")
s4 = s4 + partner.Rows(0).Item("txadz071")
get_ma_vip()
'If Not (partner.Rows(0).Item("adresszeile1") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile1") = "") Then
's2 = s2 + partner.Rows(0).Item("adresszeile1") + vbCrLf
'End If
'If Not (partner.Rows(0).Item("adresszeile2") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile2") = "") Then
's2 = s2 + partner.Rows(0).Item("adresszeile2") + vbCrLf
'End If
'If Not (partner.Rows(0).Item("adresszeile3") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile3") = "") Then
's2 = s2 + partner.Rows(0).Item("adresszeile3") + vbCrLf
'End If
'If Not (partner.Rows(0).Item("adresszeile4") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile4") = "") Then
's2 = s2 + partner.Rows(0).Item("adresszeile4") + vbCrLf
'End If
'If Not (partner.Rows(0).Item("adresszeile5") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile5") = "") Then
's2 = s2 + partner.Rows(0).Item("adresszeile5") + vbCrLf
'End If
'If Not (partner.Rows(0).Item("adresszeile6") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile6") = "") Then
's2 = s2 + partner.Rows(0).Item("adresszeile6") + vbCrLf
'End If
'If Not (partner.Rows(0).Item("adresszeile7") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile7") = "") Then
's2 = s2 + partner.Rows(0).Item("adresszeile7") + vbCrLf
'End If
If Val(Me.txtPartnerEmpfaenger.Text) <> Val(Me.txtPartnernr.Text) Then
Me.txtInhaber.Text = s
Me.txtZusteller.Text = s1
Else
Me.txtInhaber.Text = s1
Me.txtZusteller.Text = ""
Me.txtPartnerEmpfaenger.Text = ""
End If
If Trim(s3) <> Trim(s4) And Trim(s3) <> "" Then
Me.txtInhaber.Text = s
Me.txtZusteller.Text = s1
Else
Me.txtInhaber.Text = Trim(s1)
End If
Me.txtZusatz.Text = s2
Me.vvlist.DataSource = Nothing
Me.vvlist.DataMember = Nothing
Me.vvlist.DataSource = Me.vv
Me.vvlist.DataMember = "vv"
Me.vvlist.Splits(0).DisplayColumns(1).Width = 140
Me.vvlist.Splits(0).DisplayColumns(2).Visible = False
Me.vvlist.Splits(0).DisplayColumns(3).Visible = False
Me.Cursor = Cursors.Default
Dim i As Integer
For i = 0 To Me.vvlist.Columns.Count - 1
If UCase(Me.vvlist.Columns(i).Caption) = "SAREC00" Then
Me.vvlist.Splits(0).DisplayColumns(i).Visible = False
End If
Next
End Sub
Private Sub frmPartnerDetails_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
partner.Dispose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim f1 As New frmEdokaAdresse()
f1.Partnernr = Me.Partnernr
f1.ShowDialog()
frmPartnerDetails_Load(sender, e)
End Sub
Private Sub get_ma_vip()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "sp_ma_vip"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
Try
scmCmdToExecute.Connection = conn.scoDBConnection
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Partnernr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ma", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@vip", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
sdaAdapter.Fill(dtToReturn)
If scmCmdToExecute.Parameters("@ma").Value > 0 Then Me.cbmitarbeiter.Checked = True Else Me.cbmitarbeiter.Checked = False
If scmCmdToExecute.Parameters("@vip").Value > 0 Then Me.cbVip.Checked = True Else Me.cbVip.Checked = False
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
dtToReturn.Dispose()
End Try
End Sub
Private Sub vvlist_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles vvlist.FetchRowStyle
If Me.vvlist.Columns("sarec00").CellValue(e.Row) <> 2 Then
Dim FNT As Font = e.CellStyle.Font
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
End If
End Sub
End Class

View File

@@ -0,0 +1,105 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="RichTextBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmPartnerInfo</value>
</data>
</root>

View File

@@ -0,0 +1,61 @@
Public Class frmPartnerInfo
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.Location = New System.Drawing.Point(8, 8)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(776, 608)
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = ""
'
'frmPartnerInfo
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(792, 654)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.RichTextBox1})
Me.Name = "frmPartnerInfo"
Me.Text = "frmPartnerInfo"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
End Sub
End Class

View File

@@ -0,0 +1,301 @@
<?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="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABi
CAAAAk1TRnQBSQFMAgEBAgEAAQQBAAEEAQABEAEAARABAAT/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/wEAEP8QByAAEP8QByAA
Bv8CPwISAQAF/wYHAe0C7AHvBgcgAAX/BPkBAAESBf8EBwHvAYYDoQGGAa4BugQHIAAF/wEfA/kBAAb/
BAcDoQI3A6EBugMHIAAG/wIAARIBAAb/AgcBvAGnA6ECNwOhAa4DByAAB/8B+QISBv8CBwG8BKEB6gES
A6EBhgHvAgcgAAf/AfkBPwQSA/8CBwEJBKEB+wE3BKEB7AIHIAAD/wQSAQAD+QEAAhIC/wIHAQkEoQFK
AfsBUQOhAewCByAAAv8D+QIAAf8E+QELARIBAAH/AgcBvAKhAoYBoQFRAfsBUQKhAe0CByAAAv8D+QIS
Av8E+QESAv8CBwHwAacBoQE3AfsCUQH7AVEBoQGGAwcgAAL/A/kBAAISBPkCAAL/AwcBoAGnAaEBWAL7
AVECoQHvAwcgAAL/AQAI+QEABP8EBwGgAacEoQGnBQcgAAT/AgACFwIABv8FBwHwAbwCCQK8BQcgABD/
EAcgABD/EAcgAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/gQAL
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGhJREFUOE/NU0EK
ACAI8+k+zZ9ZCEapiyCIAg/pWJsa0W9Hu6A5XB/KJ/3KzCUByGeCGwUqIhYTybCwqRkmejy9Dwv2cvCZ
SArMTwSgD2gP3N5qoeh+nDOaEsFCYMAEYIGSgkPcwy/aAP5wqQPBfWzxAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>123, 17</value>
</metadata>
<data name="PartnerList.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="PartnerList.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
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
</value>
</data>
<data name="PartnerList.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style5{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style6{}Style8{}Footer{}Style13{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 192;}EvenRow{BackColor:White;}Style11{}Style1{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Style15{}Style10{AlignHorz:Near;}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="16" DefRecSelWidth="16" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;212&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 564, 212&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;16&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 566, 214&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAH9JREFUOE/Nk8sN
gDAMQ9vlOgCDdsVAQJHydThwIFIlRPGLU9w5ytpkt45Zf2t2WLhpLTKL3z0LVhRG0KggUUyqNOjy4CF5
5wrAMAfprYNRsHVx4QHKRd0djfArAAfj47+gZ/fPcpivswBOP8t0n4ekswdVl+mOb3eZDEwEUHgCxlHV
TYgnEYMAAAAASUVORK5CYII=
</value>
</data>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>246, 17</value>
</metadata>
<data name="BtnHelp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGFJREFUOE9jYKAR
+A80Fxsmyrr/fz/yY2AkA/EaAteI7AKYgcQYAjYgJycH5nyYbWBxcg3A5ir83oDaBFJEsmZkkynSDLcd
S3gQFZWDwwCwK5AClGino8T9gIYBxV4gys8An8SDS+5ffSIAAAAASUVORK5CYII=
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAEBAAAAEACABoBQAAJgAAACAgAAABAAgAqAgAAI4FAAAoAAAAEAAAACAAAAABAAgAAAAAAEAB
AAAAAAAAAAAAAAAAAAAAAAAA////AOfn5wAAAAAAODg4ADAwMADSwMwA/+f+APHT5gDqzuAA9tXqAEBA
QACHh4cAf39/AIeRiwCJYXoAuISlAP+65wBoSFwAKSsqAMeywACIiIgA/a7fACgdJADLpLwAgICAAOi0
1ABcQlMA39/fAIOJhQD73+8A357HAGtPYQCgoKAAeG10AOOnzQBdRVUAICAgAGlLXwDWnsEA97bfABoT
GAA1JzAAwY+vAF1FVABrT2AA/8XxAP/A6wB4WGwALiIqALSFowDqrNMA8LHZAGRKWgBkSlsAoHaRANyi
xwD/z/0AcVNnAHBQZQD+u+UAu4qpAH9dcgBFTEcAcFBkAHFTZgCFYngAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAICAgICAgICAgIfIiYmJiYCPj8sLCwsQEECHyImJiYmAjozIiIi
Ozw9Ah8iJiYmJgIfIiYmJygCAgIfIiYmJiYCHyImIjUCLDgCOTMiNyYmAh8iJjICNTMzAhY0NDY3JgIf
IiYmMjMiMys0LwIfMiYCHyImJicrLCstLi8CMDEiAiUiJicoAgICAikCAgICKgIhHiIjAiQAGwICJAAb
AgICHB0eHwIAAgACAgAKACACAhgAGRoCGwAbAgIYAAACAgIUAAAVFgICAgICAgICAhcCCgsMDQ4CAgIP
EBECEhMAAgICAgICAgUGBwgJAAAAAAABAgADBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAACAAAABAAAAAAQAIAAAA
AACABAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAA/9SOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AADWnsEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQEBAQEBAQEBAQEBAQEKCgoKCgoKCgoKCgEB
AQEBAQEBAQEBAQEBAQEBAQEBAQoKCgoKCgoKCgoKAQEBAQEBAQEBAQEBAQEBAQEBAQEBCgoKCgoKCgoK
CgoBAQEBCgoKCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgoKCgEBAQoKCgoKCgoKCgoKCgoKCgEBAQoKCgoK
CgoKCgoKAQEBCgoKCgoKCgoKCgoKAQEBAQEBCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgoKAQEBAQEBAQEK
CgoKCgoKCgoKCgEBAQoKCgoKCgoKCgEBAQEBAQEBAQoKCgoKCgoKCgoKAQEBCgoKCgoKCgoBAQEBAQoK
AQEBCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgEBAQoKCgoBAQEKCgoKCgoKCgoKCgEBAQoKCgoKCgoBAQEK
CgoKCgEBAQoKCgoKCgoKCgoKAQEBCgoKCgoKCgoBAQoKCgoKAQEBAQEBAQEBCgoKCgoBAQEKCgoKCgoK
CgoKCgoKCgoBAQEBAQEBAQEKCgoKCgEBAQoKCgoKCgoKCgoKCgoKCgoKCgoKCgEBAQoKCgoKAQEBCgoK
CgoKCgoKCgoKCgoKCgoKCgoKAQEBCgoKCgoBAQEKCgoKCgoKCgoBAQEBAQEKCgoKAQEBAQEBAQoKCgEB
AQoKCgoKCgoKAQEBAQEBAQEBCgEBAQEBAQEBAQoKAQEBCgoKCgoKCgEBAQEBAQEBAQEBAQEBAQEBAQEB
AQoBAQEKCgoKCgoBAQEBAQAAAAEBAQEBAQEAAAABAQEBAQEBAQAKCgoKCgEBAQEAAAAAAAEBAQEBAAAA
AAABAQEBAQEBAAAKCgoKAQEBAAAAAQAAAQEBAQAAAAEAAAABAQEBAQEAAAoKCgoBAQEAAAEBAAABAQEB
AAAAAQAAAAEBAQEBAQAAAAoKCgEBAQAAAAAAAAEBAQEBAAAAAAABAQEBAQEBAAAAAAoKAQEBAQAAAAAB
AQEBAQEAAAAAAAEBAQEBAQEAAAAAAAoKAQEBAQEBAQEBAQEBAQEBAQEBAQEBCgEBAQAAAAAACgoKAQEB
AQEBAQEBAQEBAQEBAQEBAQoAAQEBAAAAAAAAAAoKAQEBAQEBAQoKCgEBAQEBAQEKAAABAQEBAQEBAQEB
AQEBAQEBAQEKCgoKCgoBAQEAAAAAAAEBAQEBAQEBAQEBAQEBAQoKCgoKCgoKCgoAAAAAAAAAAQEBAQEB
AQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAAABAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAEBAQAAAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
</value>
</data>
</root>

View File

@@ -0,0 +1,906 @@
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports UtilityLibrary.Win32
Public Class FrmPartnersuche
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents BUtton3 As System.Windows.Forms.Button
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents PartnerList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents BtnHelp As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmPartnersuche))
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.TextBox4 = New System.Windows.Forms.TextBox
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.BUtton3 = New System.Windows.Forms.Button
Me.PartnerList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Label5 = New System.Windows.Forms.Label
Me.TextBox5 = New System.Windows.Forms.TextBox
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.Label6 = New System.Windows.Forms.Label
Me.Button6 = New System.Windows.Forms.Button
Me.Label7 = New System.Windows.Forms.Label
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Label8 = New System.Windows.Forms.Label
Me.BtnHelp = New System.Windows.Forms.Button
CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(96, 16)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(176, 20)
Me.TextBox1.TabIndex = 0
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 23)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Partner-Nr."
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(16, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 23)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Kurzname"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(96, 40)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(176, 20)
Me.TextBox2.TabIndex = 2
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(16, 64)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(72, 23)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Freitext"
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(96, 64)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(176, 20)
Me.TextBox3.TabIndex = 4
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(424, 16)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(80, 40)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Maximale Anzahl Treffer"
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(520, 16)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(64, 20)
Me.TextBox4.TabIndex = 6
Me.TextBox4.Text = "50"
'
'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, "")
Me.ImageList1.Images.SetKeyName(1, "")
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(280, 16)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 24)
Me.Button1.TabIndex = 9
Me.Button1.Text = "&Suchen"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Button2
'
Me.Button2.Enabled = False
Me.Button2.Location = New System.Drawing.Point(496, 336)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(88, 23)
Me.Button2.TabIndex = 11
Me.Button2.Text = "Übernehmen"
'
'BUtton3
'
Me.BUtton3.Location = New System.Drawing.Point(48, 336)
Me.BUtton3.Name = "BUtton3"
Me.BUtton3.Size = New System.Drawing.Size(80, 24)
Me.BUtton3.TabIndex = 10
Me.BUtton3.Text = "Schliessen"
'
'PartnerList
'
Me.PartnerList.AllowUpdate = False
Me.PartnerList.AllowUpdateOnBlur = False
Me.PartnerList.AlternatingRows = True
Me.PartnerList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
Me.PartnerList.ContextMenu = Me.ContextMenu1
Me.PartnerList.FetchRowStyles = True
Me.PartnerList.FilterBar = True
Me.PartnerList.GroupByCaption = "Drag a column header here to group by that column"
Me.PartnerList.Images.Add(CType(resources.GetObject("PartnerList.Images"), System.Drawing.Image))
Me.PartnerList.Location = New System.Drawing.Point(16, 112)
Me.PartnerList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.PartnerList.Name = "PartnerList"
Me.PartnerList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.PartnerList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.PartnerList.PreviewInfo.ZoomFactor = 75
Me.PartnerList.PrintInfo.PageSettings = CType(resources.GetObject("PartnerList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.PartnerList.ScrollTips = True
Me.PartnerList.Size = New System.Drawing.Size(568, 216)
Me.PartnerList.TabIndex = 13
Me.PartnerList.Text = "C1TrueDBGrid1"
Me.PartnerList.PropBag = resources.GetString("PartnerList.PropBag")
'
'ContextMenu1
'
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.Text = "&Partner übernehmen"
'
'MenuItem2
'
Me.MenuItem2.Index = 1
Me.MenuItem2.Text = "&Detailinformationen"
'
'MenuItem3
'
Me.MenuItem3.Index = 2
Me.MenuItem3.Text = "-"
'
'MenuItem4
'
Me.MenuItem4.Index = 3
Me.MenuItem4.Text = "Partner erfassen / bearbeiten"
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(280, 40)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(88, 24)
Me.Button4.TabIndex = 14
Me.Button4.Text = "Neuer Partner"
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(280, 64)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(88, 24)
Me.Button5.TabIndex = 15
Me.Button5.Text = "HOST-Partner"
Me.Button5.Visible = False
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(16, 88)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(72, 23)
Me.Label5.TabIndex = 17
Me.Label5.Text = "VV-Suche"
'
'TextBox5
'
Me.TextBox5.Location = New System.Drawing.Point(96, 88)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(176, 20)
Me.TextBox5.TabIndex = 16
'
'CheckBox1
'
Me.CheckBox1.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CheckBox1.Location = New System.Drawing.Point(568, 56)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(16, 16)
Me.CheckBox1.TabIndex = 18
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(424, 56)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(152, 32)
Me.Label6.TabIndex = 19
Me.Label6.Text = "Trefferliste immer anzeigen"
'
'Button6
'
Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image)
Me.Button6.Location = New System.Drawing.Point(368, 16)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(24, 24)
Me.Button6.TabIndex = 20
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.Color.Red
Me.Label7.Location = New System.Drawing.Point(136, 336)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(344, 32)
Me.Label7.TabIndex = 21
Me.Label7.Text = "Partner wurde direkt übernommen"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Label7.Visible = False
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(408, 72)
Me.Label8.Name = "Label8"
Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Label8.Size = New System.Drawing.Size(184, 16)
Me.Label8.TabIndex = 22
Me.Label8.Text = "(z.B. für EDOKA-Partner-Mutation)"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'BtnHelp
'
Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image)
Me.BtnHelp.Location = New System.Drawing.Point(16, 336)
Me.BtnHelp.Name = "BtnHelp"
Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
Me.BtnHelp.TabIndex = 61
'
'FrmPartnersuche
'
Me.AcceptButton = Me.Button1
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(592, 373)
Me.Controls.Add(Me.BtnHelp)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.PartnerList)
Me.Controls.Add(Me.BUtton3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label6)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "FrmPartnersuche"
Me.ShowInTaskbar = False
Me.Text = "Partnersuche"
CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
#Region "Deklarationen"
Public Event partner_selected()
Dim m_noclose As Boolean = False
Property NoClose() As Boolean
Get
Return m_noclose
End Get
Set(ByVal Value As Boolean)
m_noclose = Value
End Set
End Property
Dim m_meldung_doppelter_partner As Boolean = False
Property Meldung_Doppelter_Partner() As Boolean
Get
Return m_meldung_doppelter_partner
End Get
Set(ByVal Value As Boolean)
m_meldung_doppelter_partner = Value
End Set
End Property
Dim Partner As DataTable
Dim m_zustelladresse As String
Dim m_anrede As String
Dim mypartner As New edokadb.clsMyPartner()
Dim m_partnernr As Long
Property PartnerNr() As Long
Get
Return m_partnernr
End Get
Set(ByVal Value As Long)
m_partnernr = Value
End Set
End Property
Dim m_PartnerKurzbezeichnung As String
Property PartnerKurzbezeichnnung() As String
Get
Return m_PartnerKurzbezeichnung
End Get
Set(ByVal Value As String)
m_PartnerKurzbezeichnung = Value
End Set
End Property
Property zustelladresse() As String
Get
Return m_zustelladresse
End Get
Set(ByVal Value As String)
m_zustelladresse = Value
End Set
End Property
Property Anrede() As String
Get
Return m_anrede
End Get
Set(ByVal Value As String)
m_anrede = Value
End Set
End Property
Dim m_dokumenterstellen As Boolean = False
Property Dokumenterstellen() As Boolean
Get
Return m_dokumenterstellen
End Get
Set(ByVal Value As Boolean)
m_dokumenterstellen = Value
End Set
End Property
Dim m_profilnr As Integer
Property profilnr() As Integer
Get
Return m_profilnr
End Get
Set(ByVal Value As Integer)
m_profilnr = Value
End Set
End Property
Dim m_erfassung As Boolean = False
Property AusPartnererfassung() As Boolean
Get
Return m_erfassung
End Get
Set(ByVal Value As Boolean)
m_erfassung = Value
End Set
End Property
Dim m_retrieval As Boolean
Property NurAbfrage() As Boolean
Get
Return m_retrieval
End Get
Set(ByVal Value As Boolean)
m_retrieval = Value
End Set
End Property
Dim m_vibeachten As Boolean
Property VIBeachten() As Boolean
Get
Return m_vibeachten
End Get
Set(ByVal Value As Boolean)
m_vibeachten = Value
End Set
End Property
Dim m_dokumenttypnr As Integer = 0
Property Dokumenttypnrnr() As Integer
Get
Return m_dokumenttypnr
End Get
Set(ByVal Value As Integer)
m_dokumenttypnr = Value
End Set
End Property
#End Region
Private Sub Buton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.PartnerList.DataSource = Nothing
Me.PartnerList.DataMember = Nothing
Dim iii As Double
If Me.TextBox1.Text <> "" Then
Try
Dim d As Double
d = Val(Me.TextBox1.Text)
If d = 0 Then
MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
Me.TextBox1.Focus()
Exit Sub
End If
Me.Cursor = Cursors.WaitCursor
Partner = mypartner.search_partner(d, Me.TextBox4.Text, 0)
Me.Cursor = Cursors.Default
Catch
MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
Me.TextBox1.Focus()
Exit Sub
End Try
Else
If Me.TextBox2.Text <> "" Then
Me.Cursor = Cursors.WaitCursor
Partner = mypartner.search_partner(Me.TextBox2.Text, Me.TextBox4.Text, 1)
Me.Cursor = Cursors.Default
Else
If Me.TextBox3.Text <> "" Then
Me.Cursor = Cursors.WaitCursor
Partner = mypartner.search_partner(Me.TextBox3.Text, Me.TextBox4.Text, 2)
Me.Cursor = Cursors.Default
Else
Me.Cursor = Cursors.WaitCursor
Partner = mypartner.search_partner(Me.TextBox5.Text, Me.TextBox4.Text, 3)
Me.Cursor = Cursors.Default
End If
End If
End If
If Partner.Rows.Count = 0 Then
MyMsg.show_standardmessage(204, MsgBoxStyle.Exclamation)
Else
Globals.Save_Partnersuche = Partner
Me.PartnerList.DataSource = Partner
Me.PartnerList.DataMember = "Partner"
SpaltenTitel_Aktualisieren()
Dim i As Long
Dim ii As Long
If Me.PartnerList.Splits(0).Rows.Count = 1 And Me.CheckBox1.Checked <> True Then
If Me.NoClose Then
Me.Timer1.Enabled = True
Me.Label7.Visible = True
End If
Button2_Click(sender, e)
End If
End If
If Me.PartnerList.Splits(0).Rows.Count > 0 Then
Me.Button2.Enabled = True
Me.PartnerList.Focus()
Else
Me.Button2.Enabled = False
Me.TextBox1.Focus()
End If
End Sub
Private Sub PartnerList_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles PartnerList.FetchRowStyle
If Microsoft.VisualBasic.Left(Me.PartnerList.Columns(0).CellValue(e.Row), 1) = "9" Then
e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
End If
End Sub
Private Sub BUtton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUtton3.Click
Me.Close()
End Sub
Public Sub SpaltenTitel_Aktualisieren()
'Spaltentitel setzen
Dim titel As New EDOKA.MySpaltenTitel()
Dim ts As New EDOKA.Tabellenspalte()
Dim i As Integer
Dim t As New DataTable()
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
Dim s As String
t = Partner
ts.Tabelle = "Partner"
For i = 0 To Me.PartnerList.Columns.Count - 1
s = Me.PartnerList.Columns(i).DataField
ts.Feld = s
ts.getspalte()
Me.PartnerList.Columns(i).Caption = ts.spaltenname
If Me.PartnerList.Columns(i).Caption = "" Then
Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
Else
Me.PartnerList.Splits(0).DisplayColumns(i).Width = ts.ColWith
End If
' If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
If ts.locked Then
Me.PartnerList.Splits(0).DisplayColumns(i).Locked = True
End If
If ts.AlsHacken Then
Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
'Präsentation von aktiv
If Me.PartnerList.Columns(i).DataField = "aktiv" Then
Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
Me.PartnerList.Columns(i).ValueItems.DefaultItem = True
Me.PartnerList.Columns(i).DefaultValue = True
Me.PartnerList.Columns(i).FilterText = True
End If
If Me.PartnerList.Columns(i).DataField = "erstellt_am" Then
Me.PartnerList.Columns(i).DefaultValue = Now
End If
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Partner_Suche(Me.PartnerList.Columns(0).Value)
If Me.NoClose Then
RaiseEvent partner_selected()
Me.Timer1.Enabled = True
Me.Label7.Visible = True
Exit Sub
End If
End Sub
Public Sub Partner_Suche(ByVal nrpar00 As String)
Dim p As New edokadb.clsPartner()
Dim ph As New edokadb.clsPartner_Hauptadresse()
p.sConnectionString = Globals.sConnectionString
p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
p.SelectOne()
ph.sConnectionString = Globals.sConnectionString
ph.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
ph.SelectOne()
Dim s As String
s = ""
Try
If p.sCDVIG00.Value = "Y" Or p.iAZEPL00.Value > 1 Or p.bCDVSA00.Value = True Then Me.VIBeachten = True Else Me.VIBeachten = False
If p.sTXADZ011.Value <> "" Then s = s + p.sTXADZ011.Value + vbCrLf
If p.sTXADZ021.Value <> "" Then s = s + p.sTXADZ021.Value + vbCrLf
If p.sTXADZ031.Value <> "" Then s = s + p.sTXADZ031.Value + vbCrLf
If p.sTXADZ041.Value <> "" Then s = s + p.sTXADZ041.Value + vbCrLf
If p.sTXADZ051.Value <> "" Then s = s + p.sTXADZ051.Value + vbCrLf
If p.sTXADZ061.Value <> "" Then s = s + p.sTXADZ061.Value + vbCrLf
If p.sTXADZ071.Value <> "" Then s = s + p.sTXADZ071.Value + vbCrLf
Me.zustelladresse = s
If p.iNRPAR00.Value > 91000000 Then
Me.Anrede = p.sBEBAN011.Value
Else
Me.Anrede = ph.sBEBAN01.Value
End If
Me.PartnerNr = nrpar00
Me.PartnerKurzbezeichnnung = p.sBKPAR00.Value
If Me.NoClose = True Then
Exit Sub
End If
Try
Me.Partner.Dispose()
Catch
End Try
Try
Me.Close()
Catch
End Try
Me.mypartner = Nothing
Catch ex As Exception
' MsgBox(ex.Message)
Finally
Try
p.Dispose()
ph.Dispose()
Catch
End Try
End Try
End Sub
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
Button2_Click(sender, e)
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
Try
If Me.PartnerList.Columns(0).Value > 91000000 Then
Dim f As New frmInteressent()
f.Partnernr = Me.PartnerList.Columns(0).Value
f.Display = True
f.ShowDialog()
f.Dispose()
Else
Dim f As New frmPartnerDetails()
f.Partnernr = Me.PartnerList.Columns(0).Value
f.ShowDialog()
f.Dispose()
End If
Catch
Finally
End Try
End Sub
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown
If e.KeyCode = Keys.Return Then Buton1_Click(sender, e)
End Sub
Private Sub PartnerList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PartnerList.DoubleClick
Button2_Click(sender, e)
End Sub
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
Dim f As New frmInteressent()
f.Display = False
Try
If Me.PartnerList.Columns(0).Value > 91000000 Then
f.Partnernr = Me.PartnerList.Columns(0).Value
f.ShowDialog()
Else
f.Partnernr = 0
f.ShowDialog()
End If
Catch
f.Partnernr = 0
f.ShowDialog()
Finally
Me.TextBox1.Text = f.Partnernr
f.Dispose()
Buton1_Click(sender, e)
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim f As New frmInteressent()
f.Profilnr = Me.profilnr
f.Display = False
Try
f.Partnernr = 0
f.ShowDialog()
Catch
f.Partnernr = 0
f.ShowDialog()
Finally
Me.TextBox1.Text = f.Partnernr
f.Dispose()
Buton1_Click(sender, e)
End Try
End Sub
Private Sub FrmPartnersuche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Me.NurAbfrage Then
Me.Button4.Visible = False
Me.Button5.Visible = False
Else
Me.Button4.Visible = True
'NOVA RGL 20071010
Me.Button5.Visible = False
If DivFnkt.EDOKA_Partner_Berechtigt = False Then Me.Button4.Enabled = False Else Me.Button4.Enabled = True
If DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumenttypnrnr) = True Then Me.Button4.Enabled = True Else Me.Button4.Enabled = False
End If
Me.TextBox1.Focus()
Me.TextBox1.Select()
If Globals.Save_Partnersuche.Rows.Count > 0 And Not Me.AusPartnererfassung Then
Me.PartnerList.DataSource = Globals.Save_Partnersuche
Me.PartnerList.DataMember = Globals.Save_Partnersuche.TableName
Me.Button2.Enabled = True
SpaltenTitel_Aktualisieren()
End If
' Rel 4.0 Fensterhandling Problem
' Handle verweis auf Prozess EDOKA...
Dim p As Process
Dim Ret As Int32
Dim hWndMain As IntPtr
Dim MyProcesses() As Process = _
Process.GetProcessesByName( _
Process.GetCurrentProcess().ProcessName)
For Each p In MyProcesses
If (p.Id = Process.GetCurrentProcess().Id) Then
Globals.Apphandle = p.MainWindowHandle()
End If
Next
' Rel 4.0 Fensterhandling Problem
' Zeige EDOKA im Hintergrund
Win32API.ShowWindow(Globals.Apphandle, Win32API.SW_Maximize)
Win32API.SetActiveWindow(Globals.Apphandle)
Win32API.BringWindowToTop(Globals.Apphandle)
'Me.BringToFront()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MsgBox("Diese Funktion ist nicht mehr aktiv")
'NOVA RGL 20071010
'Dim nrpar00 As Integer
'Dim host As New frmHostTransfer()
'If Me.TextBox1.Text <> "" Then
' Try
' Dim d As Double
' d = Val(Me.TextBox1.Text)
' If d = 0 Then
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
' Me.TextBox1.Focus()
' Exit Sub
' End If
' host.Nrpar00 = d
' Me.Hide()
' host.ShowDialog()
' If host.DialogResult = DialogResult.Abort Then
' Me.Show()
' Else
' Me.TextBox1.Text = host.Nrpar00
' Me.Buton1_Click(sender, e)
' Me.Show()
' End If
' host.Dispose()
' Catch
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
' Me.TextBox1.Focus()
' End Try
'Else
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
' Me.TextBox1.Focus()
'End If
End Sub
Private Sub PartnerList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles PartnerList.KeyDown
If e.KeyCode = Keys.Enter Then
If Me.PartnerList.Splits(0).Rows.Count > 0 Then
Try
Partner_Suche(Me.PartnerList.Columns(0).Value)
Catch
End Try
End If
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim f As New frmPartnersucheInfo()
f.ShowDialog()
f.Dispose()
End Sub
Public Sub Doppelte_Partner(ByVal name As String, ByVal ort As String)
Partner = mypartner.search_doppelte_partner(name, ort, 4)
If Partner.Rows.Count = 0 Then
MyMsg.show_standardmessage(204, MsgBoxStyle.Exclamation)
Else
Me.PartnerList.DataSource = Partner
Me.PartnerList.DataMember = "Partner"
SpaltenTitel_Aktualisieren()
If Meldung_Doppelter_Partner Then MyMsg.show_standardmessage(25, MsgBoxStyle.Information)
Me.Meldung_Doppelter_Partner = False
Dim i As Long
Dim ii As Long
End If
If Me.PartnerList.Splits(0).Rows.Count > 0 Then
Me.Button2.Enabled = True
Me.PartnerList.Focus()
Else
Me.Button2.Enabled = False
Me.TextBox1.Focus()
End If
End Sub
Private Sub FrmPartnersuche_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If Me.NoClose = True Then
e.Cancel = True
Me.Hide()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Label7.Visible = False
Me.Timer1.Enabled = False
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
End Sub
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
Try
If Me.PartnerList.Columns(0).Value < 91000000 Then
Me.MenuItem3.Visible = False
Me.MenuItem4.Visible = False
Else
Me.MenuItem3.Visible = True
Me.MenuItem4.Visible = True
End If
Catch
End Try
End Sub
Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click
Globals.HTMLHelp.ShowHelpToc("partnersuche")
End Sub
End Class

View File

@@ -0,0 +1,198 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="PictureBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAT9JREFUWEftlkkO
wyAMRcnNc7TcjMakRsbBY5DSRZGyaBn+82ewtxJo+75XbfjZvwWW8w0FUfyO46hSgz461re6Msoj6oFJ
gYC4Fq1oA+tAV0IQIK41WLSUOnwW7Amgnp0OaIkDGBfH35YrJoRH/AnANVdwIrLnmS1Ad665Ewhv9JbN
nn4AGN6TSPQeAWsMutAhItFLBxD+j7TBhQgAisxAMgDNhT/ATzhgPaV8f5+cAXoLUjdBeg29hxBvAGbb
lgeib0HWAR797UGyotDeAU9SmkbPcrXFkO7n4lp5lxaRJkbE0ZBlFVFGvEPA5OgVBRdI2h0KVauqvpVu
3wmYw1UYKjqLOiyONKzUFmEk0eG+h6pTNpiCoDP00C2N2gK1AKz5K/u7CdSBlQKetRrEmwAA+TpAS2jL
TrzH99mYDMAH4NzAyhPM9x8AAAAASUVORK5CYII=
</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label14.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label15.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label16.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label17.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label18.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label19.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label20.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label21.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label13.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label22.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label23.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label24.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label25.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label26.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>frmPartnersucheInfo</value>
</data>
</root>

View File

@@ -0,0 +1,354 @@
Public Class frmPartnersucheInfo
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents Label18 As System.Windows.Forms.Label
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents Label21 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Label22 As System.Windows.Forms.Label
Friend WithEvents Label23 As System.Windows.Forms.Label
Friend WithEvents Label24 As System.Windows.Forms.Label
Friend WithEvents Label25 As System.Windows.Forms.Label
Friend WithEvents Label26 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPartnersucheInfo))
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label21 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label23 = New System.Windows.Forms.Label()
Me.Label24 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label()
Me.Label26 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(64, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(552, 23)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Sie können Partner mit der Partnernummer, dem Kurznamen, einem Freitext oder eine" & _
"r VV-Nummer suchen."
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Bitmap)
Me.PictureBox1.Location = New System.Drawing.Point(8, 16)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
Me.PictureBox1.TabIndex = 4
Me.PictureBox1.TabStop = False
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(64, 40)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(552, 32)
Me.Label2.TabIndex = 5
Me.Label2.Text = "Bei der Partnernummer-Suche ist die gesamte Partnernummer ohne Interpunktionen (m" & _
"it oder ohne führende Nullen) zu verwenden. Bei der VV-Suche sind Interpunktions" & _
"zeichen möglich."
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(64, 80)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(552, 40)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Bei der Kurznamen- und Freitext-Suche sind mehrere, durch Leerzeichen getrennte B" & _
"egriff als Suchkriterium möglich. Die Begriffe werden bei der Kurznamen-Suche im" & _
" Kurznamen, bei der Freitext-Suche in sämtlichen Partner-Informationen (Kurzbeze" & _
"ichnung, Inhaber-Adresse und Zustelladresse) gesucht."
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(64, 128)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(552, 32)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Verwenden Sie mehrere Suchbegriffe, werden in der Trefferliste nur Partner aufgef" & _
"ührt, bei denen sämtliche Suchbegriffe gefunden wurden, und zwar unabhängig von " & _
"der Reihenfolge der erfassten Suchbegriffe. "
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(64, 168)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(552, 32)
Me.Label5.TabIndex = 8
Me.Label5.Text = "Bei einem Suchbegriff wird ein Treffer erzielt, wenn er irgendwo in einem Datensa" & _
"tz enthalten ist. EDOKA setzt für die Suche vor und nach dem Suchbegriff automat" & _
"isch sogenannte Wildcards (*)."
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(64, 208)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(552, 16)
Me.Label6.TabIndex = 9
Me.Label6.Text = "Beispiel (Suche im Kurznamen):"
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(80, 240)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(552, 16)
Me.Label8.TabIndex = 11
Me.Label8.Text = "Treffer:"
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(152, 240)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(552, 16)
Me.Label9.TabIndex = 12
Me.Label9.Text = "Hans Egg, Mauren"
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(152, 256)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(552, 16)
Me.Label10.TabIndex = 13
Me.Label10.Text = "Hanselmann & Egger, Kreuzlingen"
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(152, 272)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(552, 16)
Me.Label11.TabIndex = 14
Me.Label11.Text = "Hans Maurer, Eggersriet"
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(64, 304)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(560, 32)
Me.Label12.TabIndex = 15
Me.Label12.Text = "Sie können selber Wildcards verwenden. Verwenden Sie * für eine beliebige Anzahl " & _
"beliebiger Zeichen und _ für ein einzelnes, beliebiges Zeichen"
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(152, 392)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(552, 16)
Me.Label14.TabIndex = 19
Me.Label14.Text = "Meier & Huber, Kreuzlingen"
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(152, 376)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(552, 16)
Me.Label15.TabIndex = 18
Me.Label15.Text = "Franz Meyer, Weinfelden"
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(80, 360)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(552, 16)
Me.Label16.TabIndex = 17
Me.Label16.Text = "Suchkriterium:"
'
'Label17
'
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label17.Location = New System.Drawing.Point(64, 344)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(552, 16)
Me.Label17.TabIndex = 16
Me.Label17.Text = "Beispiel (Suche im Kurznamen):"
'
'Label18
'
Me.Label18.Location = New System.Drawing.Point(80, 376)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(48, 16)
Me.Label18.TabIndex = 21
Me.Label18.Text = "Treffer:"
'
'Label19
'
Me.Label19.Location = New System.Drawing.Point(152, 360)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(552, 16)
Me.Label19.TabIndex = 22
Me.Label19.Text = "Me_er"
'
'Label20
'
Me.Label20.Location = New System.Drawing.Point(80, 224)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(552, 16)
Me.Label20.TabIndex = 23
Me.Label20.Text = "Suchkriterium:"
'
'Label21
'
Me.Label21.Location = New System.Drawing.Point(152, 224)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(552, 16)
Me.Label21.TabIndex = 24
Me.Label21.Text = "Hans Egg, Mauren"
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(152, 432)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(552, 16)
Me.Label7.TabIndex = 30
Me.Label7.Text = "Me*er, Arbon"
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(152, 464)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(552, 16)
Me.Label13.TabIndex = 28
Me.Label13.Text = "Meinrad Dornacher, Arbon"
'
'Label22
'
Me.Label22.Location = New System.Drawing.Point(152, 448)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(552, 16)
Me.Label22.TabIndex = 27
Me.Label22.Text = "Rolf Meissner, Arbon"
'
'Label23
'
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(64, 416)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(552, 16)
Me.Label23.TabIndex = 25
Me.Label23.Text = "Beispiel (Suche im Kurznamen):"
'
'Label24
'
Me.Label24.Location = New System.Drawing.Point(80, 448)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(48, 16)
Me.Label24.TabIndex = 29
Me.Label24.Text = "Treffer:"
'
'Label25
'
Me.Label25.Location = New System.Drawing.Point(80, 432)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(552, 16)
Me.Label25.TabIndex = 26
Me.Label25.Text = "Suchkriterium:"
'
'Label26
'
Me.Label26.Location = New System.Drawing.Point(152, 480)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(552, 16)
Me.Label26.TabIndex = 31
Me.Label26.Text = "Meier und Tischler, Arbon"
'
'Button1
'
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.Location = New System.Drawing.Point(272, 520)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 0
Me.Button1.Text = "&Schliessen"
'
'frmPartnersucheInfo
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(624, 549)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.Label26, Me.Label7, Me.Label13, Me.Label22, Me.Label23, Me.Label24, Me.Label25, Me.Label21, Me.Label20, Me.Label19, Me.Label14, Me.Label15, Me.Label17, Me.Label12, Me.Label11, Me.Label10, Me.Label9, Me.Label8, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.PictureBox1, Me.Label1, Me.Label18, Me.Label16})
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "frmPartnersucheInfo"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Info zur Partnersuche"
Me.TopMost = True
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub frmPartnersucheInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Button1.Focus()
End Sub
Private Sub frmPartnersucheInfo_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Return Then Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,485 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label20.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox19.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label18.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Detaillist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="TextBox17.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label16.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ListBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnDossierHaupt.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label15.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox15.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label13.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Textbox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnPartnerauswahl1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnPartnerauswahl1.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAZZJREFUOE9jYECA
/1AmiIaxkaRxM2EasNEMdek9/9OCC/8n+Gf/L4qtx2rwfwcHh//t7e3/6+vr/3dPbP9fldiJYtjWKSf+
fz/1/39ORAVc3MM6AG7Y/46Ojv8wcH/d3/8qshr4XAWXa82ZDDbkf0NDA1j/lS0v/gc7xYAV3L9/HywG
oqFhAlcHEoeJgQ1o7Wz+//7+7//H593/nwj0K0gMpghZMYgN8i4ILFiwAB7Y/0tyK8Cazy5//D/UNRYs
oaCggOECbGJgF8R7Z4I1H5x37f/9bd//SwhLYYSBgbophtj6/oOQMAA5G2YAzJAQoEtAUQeiPx79///1
AUQsaCnp/V/cugWsB6sBl9e8+n9z4wewAhANMiTKKwUejSALQWpAlmEYAJIAuSoaqAGkGYRBfFDUggwB
4YllC/4fX3QHuwEgW0GaQZpAXvh7HhJl6cDUCHMVTDNWF+AKSPRwAqmDG5ALTKIw00EuAOGnu//9X9m1
G5b+MQIaxQCQE0HpHORkZAzKRBVJrWAv4HUBUrLEmQdwGQAApXIOrLlV970AAAAASUVORK5CYII=
</value>
</data>
<data name="GroupBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label21.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox20.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label19.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox18.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label17.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button5.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAEpJREFUOE9jYBgq
4D+lDgUZQJQhMIX4aLyOIcYArC6BCRJrAE7vkGIAiiF0dwFGQJLiArKSBMF0gOwCkA24+GTZTpEmopIv
RTYAAPzAVasfT79PAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button4.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAE1JREFUOE9jYBjM
4D8ljgNpJtsAmGZ8NE7HEaMZp8uI1QwzAMUgUjTTxgWwQCHWJXhjmBhDQAbgjWaK0gGyd5BtQg99shMa
ySmctjYBALUIVatLhkV1AAAAAElFTkSuQmCC
</value>
</data>
<data name="TextBox16.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label14.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox13.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="TextBox14.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnpartnerauswahl2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnpartnerauswahl2.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAZZJREFUOE9jYECA
/1AmiIaxkaRxM2EasNEMdek9/9OCC/8n+Gf/L4qtx2rwfwcHh//t7e3/6+vr/3dPbP9fldiJYtjWKSf+
fz/1/39ORAVc3MM6AG7Y/46Ojv8wcH/d3/8qshr4XAWXa82ZDDbkf0NDA1j/lS0v/gc7xYAV3L9/HywG
oqFhAlcHEoeJgQ1o7Wz+//7+7//H593/nwj0K0gMpghZMYgN8i4ILFiwAB7Y/0tyK8Cazy5//D/UNRYs
oaCggOECbGJgF8R7Z4I1H5x37f/9bd//SwhLYYSBgbophtj6/oOQMAA5G2YAzJAQoEtAUQeiPx79///1
AUQsaCnp/V/cugWsB6sBl9e8+n9z4wewAhANMiTKKwUejSALQWpAlmEYAJIAuSoaqAGkGYRBfFDUggwB
4YllC/4fX3QHuwEgW0GaQZpAXvh7HhJl6cDUCHMVTDNWF+AKSPRwAqmDG5ALTKIw00EuAOGnu//9X9m1
G5b+MQIaxQCQE0HpHORkZAzKRBVJrWAv4HUBUrLEmQdwGQAApXIOrLlV970AAAAASUVORK5CYII=
</value>
</data>
<data name="Abbruch.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="CheckBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBarButton4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABoCgAAAk1TRnQBSQFMAgEBBAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8A/wD/
AP8A/wAmAAGnDQABTgFJEAABIAEBBwABAwH/FQABpwwAAk4BSRAAAiAFAAHsAQMB7AH/CQAGFgoABhYD
AAFOAQABTgFJAwAGFgsAAQMB7AEDAewBAwH/CQAEFggAAacDAAQWCAABTgMABBYIAAEgAQECAAEDAewB
AwHsAQMB7AH/AQAB7AcAAxYBAAIWBgAByAGnAgADFgEAAhYGAAJOAgADFgEAAhYGAAIgAgAB7AEDAewB
AwHsAQMB/wEAAewHAAYWAQACtgQAAcgBpwEABhYBAAK2BAABTgIABhYBAAK2AwACIAIAAQMB7AEDAgAB
7AH/AQAB7AcABRYGAAHIAgAByAEABRYIAAJOAQAFFgcAAiACAAHsAQMB7AIHAQMB/wEAAewBAAEGBQAH
FgEAAbYCAAHIAgAByAEABxYBAAG2BQABTgEABxYBAAG2AwACIAIAAQMB7AEDAewBAwHsAf8CAAEGBf4B
AAcWAQABtgMAAsgCAAcWAQABtgcABxYBAAG2BwAB7AEDAewBAwHsAQMB/wEAAW0G/gEABBYBAAIWCQAE
FgEAAhYJAAQWAQACFgkAAQMB7AEDAewBAwHsAf8BAAHsAW0B/gRtAQAEFgEAARYBAAO2BgAEFgEAARYB
AAO2BgAEFgEAARYBAAO2BgAB7AEDAewBAwHsAQMB/wEAAewBAAJtBAAGFgEAA7YGAAYWAQADtgYABhYB
AAO2BgABAwHsAQMB7AEHAf8B7AEAAewCAAFtDAACtg4AArYOAAK2BgAB7AEDAQcB/wHsAQAD7AoABLYB
AAG2CgAEtgEAAbYKAAS2AQABtgcAAQcB/wHsAQAF7AoABrYKAAa2CgAGtkYAAUIBTQE+BwABPgMAASgD
AAFAAwABMAMAAQEBAAEBBQABgAEBFgAD//8AAgAB/AF/Af8B+wH/AecB/wH5AfABfwEAAfsBAAHHAQAB
+QHAAX8BAAH/AQAB0wEAAf8BAAEfAQAB+wEAAfsBAAH5AQABHwEAARkBAAEZAQABGQEAARcBAAEcAQAB
HQEAARkBAAEHAQABFgEAARwBAAEZAwABFgEAAR4BAAEZAwABGQEAAR8BAAEfAwABDwEAAQ8BAAEPAwAB
DwEAAQ8BAAEPAQABBwEAAQ8BAAEPAQABDwEAARcBAAEPAQABDwEAAQ8BAAEfAeABHwHgAR8B4AEfAQAB
HwHgAR8B4AEfAeABHwEAAR8B4AEfAeABHwHgAR8WAAs=
</value>
</data>
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>123, 17</value>
</data>
<data name="ContextMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource.Images1" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="ContextMenu2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>455, 30</value>
</data>
<data name="ContextMenu2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="MenuItem6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btninaktivieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="BtnHelp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="BtnHelp.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGFJREFUOE9jYKAR
+A80Fxsmyrr/fz/yY2AkA/EaAteI7AKYgcQYAjYgJycH5nyYbWBxcg3A5ir83oDaBFJEsmZkkynSDLcd
S3gQFZWDwwCwK5AClGino8T9gIYBxV4gys8An8SDS+5ffSIAAAAASUVORK5CYII=
</value>
</data>
<data name="$this.Name">
<value>frmPartnerzusammenlegung</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAgICAAP///wD//wAAwMDAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADWnsEAi4TqAAAA
AAAAAAAAAADKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAABAFAAAAAAAAAAAAAAAAAAAQEAAADQ0NDQ0NAAAAAAAAAAAAAA0NDQ0A
AAAAAAAAABAFAAANDQ0ADQ0AAAAAAAAQEAAADQ0NDQ0NAAwMAAAAEBAAAA0NDQ0NAAAAAAAAABAQAAAN
DQ0NDQ0NAAwAAAAQEAAADQ0NDQ0NDQAMAAAAAAAAAA0NDQ0ADQ0AAAAAAAAAAAANDQ0NAA0ADAwMAAAA
AAAADQ0NDQ0NAAwMDAAAAAAAAAAAAAAAAAAADAwAAAAAAAAAAAAMDAwMAAwAAAAAAAAAAAAADAwMDAwM
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP/5AAAA+QAAAP8AAAD5AAAAGQAAABkAAAAZAAAAGQAAAB8AAAAP
AAAADwAAAA8AAAAPAADgHwAA4B8AAOAfAAA=
</value>
</data>
</root>

File diff suppressed because it is too large Load Diff