Initial commit

DPM2016/Patient/Patient.Designer.vb

@@ -0,0 +1,431 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Patient
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Patient))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
+        Me.tstxtsuche = New System.Windows.Forms.ToolStripTextBox()
+        Me.tsbtnfirst = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
+        Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
+        Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
+        Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.PatientDetails1 = New DPM2016.PatientDetails()
+        Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.Finanzen1 = New DPM2016.Finanzen()
+        Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.Behandlung1 = New DPM2016.Behandlung()
+        Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
+        Me.Abrechnung = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
+        Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip1.SuspendLayout()
+        CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuperTabControl1.SuspendLayout()
+        Me.SuperTabControlPanel1.SuspendLayout()
+        Me.SuperTabControlPanel5.SuspendLayout()
+        Me.SuperTabControlPanel3.SuspendLayout()
+        Me.SuperTabControlPanel2.SuspendLayout()
+        Me.SuperTabControlPanel4.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.AllowDrop = True
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(1006, 25)
+        Me.ToolStrip1.TabIndex = 15
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'tsbtnquit
+        '
+        Me.tsbtnquit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
+        Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnquit.Name = "tsbtnquit"
+        Me.tsbtnquit.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnquit.Text = "Schliessen"
+        '
+        'tsbtnSave
+        '
+        Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
+        Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnSave.Name = "tsbtnSave"
+        Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnSave.Text = "Speichern"
+        '
+        'tsbtnnew
+        '
+        Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
+        Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnnew.Name = "tsbtnnew"
+        Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnnew.Text = "Neuer Datensatz"
+        '
+        'ToolStripButton4
+        '
+        Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
+        Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton4.Name = "ToolStripButton4"
+        Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
+        Me.ToolStripButton4.Visible = False
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton2.Text = "Dokument löschen"
+        Me.ToolStripButton2.Visible = False
+        '
+        'ToolStripButton3
+        '
+        Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
+        Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton3.Name = "ToolStripButton3"
+        Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
+        Me.ToolStripButton3.Text = "Dokument anzeigen"
+        Me.ToolStripButton3.Visible = False
+        '
+        'ToolStripLabel1
+        '
+        Me.ToolStripLabel1.Name = "ToolStripLabel1"
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 22)
+        Me.ToolStripLabel1.Text = "Suche"
+        '
+        'tstxtsuche
+        '
+        Me.tstxtsuche.Name = "tstxtsuche"
+        Me.tstxtsuche.Size = New System.Drawing.Size(100, 25)
+        '
+        'tsbtnfirst
+        '
+        Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnfirst.Image = CType(resources.GetObject("tsbtnfirst.Image"), System.Drawing.Image)
+        Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnfirst.Name = "tsbtnfirst"
+        Me.tsbtnfirst.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnfirst.Text = "Erster Datensatz"
+        '
+        'tsbtprev
+        '
+        Me.tsbtprev.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtprev.Image = CType(resources.GetObject("tsbtprev.Image"), System.Drawing.Image)
+        Me.tsbtprev.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtprev.Name = "tsbtprev"
+        Me.tsbtprev.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtprev.Text = "Vorheriger Datensatz"
+        '
+        'tsbtnnext
+        '
+        Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnnext.Image = CType(resources.GetObject("tsbtnnext.Image"), System.Drawing.Image)
+        Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnnext.Name = "tsbtnnext"
+        Me.tsbtnnext.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnnext.Text = "nächster Datensatz"
+        '
+        'tsbtnlast
+        '
+        Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnlast.Image = CType(resources.GetObject("tsbtnlast.Image"), System.Drawing.Image)
+        Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnlast.Name = "tsbtnlast"
+        Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
+        Me.tsbtnlast.Text = "Letzter Datensatz"
+        '
+        'SuperTabControl1
+        '
+        '
+        '
+        '
+        '
+        '
+        '
+        Me.SuperTabControl1.ControlBox.CloseBox.Name = ""
+        '
+        '
+        '
+        Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
+        Me.SuperTabControl1.ControlBox.Name = ""
+        Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
+        Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
+        Me.SuperTabControl1.Name = "SuperTabControl1"
+        Me.SuperTabControl1.ReorderTabsEnabled = True
+        Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
+        Me.SuperTabControl1.SelectedTabIndex = 0
+        Me.SuperTabControl1.Size = New System.Drawing.Size(1006, 728)
+        Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.SuperTabControl1.TabIndex = 18
+        Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Krankengeschichte, Me.Finanzen})
+        Me.SuperTabControl1.Text = "SuperTabControl1"
+        '
+        'SuperTabControlPanel1
+        '
+        Me.SuperTabControlPanel1.Controls.Add(Me.PatientDetails1)
+        Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
+        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1006, 703)
+        Me.SuperTabControlPanel1.TabIndex = 1
+        Me.SuperTabControlPanel1.TabItem = Me.Stammdaten
+        '
+        'PatientDetails1
+        '
+        Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PatientDetails1.HasChanges = False
+        Me.PatientDetails1.Location = New System.Drawing.Point(0, 0)
+        Me.PatientDetails1.Name = "PatientDetails1"
+        Me.PatientDetails1.Patientname = "   "
+        Me.PatientDetails1.PatientNr = 0
+        Me.PatientDetails1.Size = New System.Drawing.Size(1006, 703)
+        Me.PatientDetails1.TabIndex = 17
+        '
+        'Stammdaten
+        '
+        Me.Stammdaten.AttachedControl = Me.SuperTabControlPanel1
+        Me.Stammdaten.GlobalItem = False
+        Me.Stammdaten.Name = "Stammdaten"
+        Me.Stammdaten.Text = "Stammdaten"
+        '
+        'SuperTabControlPanel5
+        '
+        Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
+        Me.SuperTabControlPanel5.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel5.Name = "SuperTabControlPanel5"
+        Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1006, 703)
+        Me.SuperTabControlPanel5.TabIndex = 0
+        Me.SuperTabControlPanel5.TabItem = Me.Finanzen
+        '
+        'Finanzen1
+        '
+        Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
+        Me.Finanzen1.Name = "Finanzen1"
+        Me.Finanzen1.Patientnr = 0
+        Me.Finanzen1.Size = New System.Drawing.Size(1006, 703)
+        Me.Finanzen1.TabIndex = 0
+        '
+        'Finanzen
+        '
+        Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
+        Me.Finanzen.GlobalItem = False
+        Me.Finanzen.Name = "Finanzen"
+        Me.Finanzen.Text = "Finanzen"
+        '
+        'SuperTabControlPanel3
+        '
+        Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
+        Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
+        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1006, 568)
+        Me.SuperTabControlPanel3.TabIndex = 0
+        Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
+        '
+        'Behandlung1
+        '
+        Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Behandlung1.HasChanges = False
+        Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
+        Me.Behandlung1.Name = "Behandlung1"
+        Me.Behandlung1.PatientNr = 0
+        Me.Behandlung1.Size = New System.Drawing.Size(1006, 568)
+        Me.Behandlung1.TabIndex = 0
+        '
+        'Behandlungen
+        '
+        Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
+        Me.Behandlungen.GlobalItem = False
+        Me.Behandlungen.Name = "Behandlungen"
+        Me.Behandlungen.Text = "Behandlungen"
+        '
+        'SuperTabControlPanel2
+        '
+        Me.SuperTabControlPanel2.Controls.Add(Me.PatientAbrechnung1)
+        Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
+        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1006, 568)
+        Me.SuperTabControlPanel2.TabIndex = 0
+        Me.SuperTabControlPanel2.TabItem = Me.Abrechnung
+        '
+        'PatientAbrechnung1
+        '
+        Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PatientAbrechnung1.HasChanges = False
+        Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
+        Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
+        Me.PatientAbrechnung1.PatientNr = 0
+        Me.PatientAbrechnung1.Size = New System.Drawing.Size(1006, 568)
+        Me.PatientAbrechnung1.TabIndex = 0
+        '
+        'Abrechnung
+        '
+        Me.Abrechnung.AttachedControl = Me.SuperTabControlPanel2
+        Me.Abrechnung.GlobalItem = False
+        Me.Abrechnung.Name = "Abrechnung"
+        Me.Abrechnung.Text = "Abrechnung"
+        '
+        'SuperTabControlPanel4
+        '
+        Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
+        Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
+        Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1006, 568)
+        Me.SuperTabControlPanel4.TabIndex = 0
+        Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
+        '
+        'Krankengeschichte1
+        '
+        Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
+        Me.Krankengeschichte1.Name = "Krankengeschichte1"
+        Me.Krankengeschichte1.Patientnr = 0
+        Me.Krankengeschichte1.Size = New System.Drawing.Size(1006, 568)
+        Me.Krankengeschichte1.TabIndex = 0
+        '
+        'Krankengeschichte
+        '
+        Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
+        Me.Krankengeschichte.GlobalItem = False
+        Me.Krankengeschichte.Name = "Krankengeschichte"
+        Me.Krankengeschichte.Text = "Krankengeschichte"
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.AllowMerge = False
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(1006, 24)
+        Me.MenuStrip1.TabIndex = 19
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'DateiToolStripMenuItem
+        '
+        Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
+        Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
+        Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
+        Me.DateiToolStripMenuItem.Text = "&Datei"
+        '
+        'BeendenToolStripMenuItem
+        '
+        Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
+        Me.BeendenToolStripMenuItem.Text = "&Beenden"
+        '
+        'Patient
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1006, 777)
+        Me.Controls.Add(Me.SuperTabControl1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.MainMenuStrip = Me.MenuStrip1
+        Me.Name = "Patient"
+        Me.ShowInTaskbar = False
+        Me.Text = "Patient"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SuperTabControl1.ResumeLayout(False)
+        Me.SuperTabControlPanel1.ResumeLayout(False)
+        Me.SuperTabControlPanel5.ResumeLayout(False)
+        Me.SuperTabControlPanel3.ResumeLayout(False)
+        Me.SuperTabControlPanel2.ResumeLayout(False)
+        Me.SuperTabControlPanel4.ResumeLayout(False)
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents tsbtnquit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsbtnnew As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents PatientDetails1 As DPM2016.PatientDetails
+    Friend WithEvents SuperTabControl1 As DevComponents.DotNetBar.SuperTabControl
+    Friend WithEvents SuperTabControlPanel1 As DevComponents.DotNetBar.SuperTabControlPanel
+    Friend WithEvents Stammdaten As DevComponents.DotNetBar.SuperTabItem
+    Friend WithEvents SuperTabControlPanel2 As DevComponents.DotNetBar.SuperTabControlPanel
+    Friend WithEvents Abrechnung As DevComponents.DotNetBar.SuperTabItem
+    Friend WithEvents tsbtnSave As System.Windows.Forms.ToolStripButton
+    Friend WithEvents PatientAbrechnung1 As DPM2016.PatientAbrechnung
+    Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents tstxtsuche As System.Windows.Forms.ToolStripTextBox
+    Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
+    Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents tsbtnfirst As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsbtprev As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsbtnnext As System.Windows.Forms.ToolStripButton
+    Friend WithEvents tsbtnlast As System.Windows.Forms.ToolStripButton
+    Friend WithEvents SuperTabControlPanel3 As DevComponents.DotNetBar.SuperTabControlPanel
+    Friend WithEvents Behandlungen As DevComponents.DotNetBar.SuperTabItem
+    Friend WithEvents Behandlung1 As DPM2016.Behandlung
+    Friend WithEvents SuperTabControlPanel4 As DevComponents.DotNetBar.SuperTabControlPanel
+    Friend WithEvents Krankengeschichte1 As DPM2016.Krankengeschichte
+    Friend WithEvents Krankengeschichte As DevComponents.DotNetBar.SuperTabItem
+    Friend WithEvents SuperTabControlPanel5 As DevComponents.DotNetBar.SuperTabControlPanel
+    Friend WithEvents Finanzen As DevComponents.DotNetBar.SuperTabItem
+    Friend WithEvents Finanzen1 As DPM2016.Finanzen
+End Class

DPM2016/Patient/Patient.resx

@@ -0,0 +1,342 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
+        PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
+        PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
+        ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
+        3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
+        XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
+        sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
+        eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
+        HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
+        D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
+        inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
+        QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
+        DzXbwlLPDlfpAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
+        dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
+        AElFTkSuQmCC
+</value>
+  </data>
+  <data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
+        Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
+        AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
+        Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
+        ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
+        T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
+        cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
+        qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
+        B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
+        7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+        +sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
+        /eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
+        ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
+        Q9+opTzFuO5MOqRC0q0kA+RYnpBC9Lbju20L4nPPW6nt30S9mq1C8GpeIJtTUyeQsO/A6lQXGaTAH79E
+        Q23l2ZgfDggeJVanT5MXHCSbOyD6jiPr3RWhlvIUo9fVKW8nfnqOYC2ogkC+sPamDyx7oPjJVl9LbeUp
+        LDxKCJ525N5fgzh5DJnQJaTI9mJo/wVqqUz+81OkF3mkZ+8g87qXbD+PQujoBC1XZmzssgQCj+yXl1hf
+        CiKXCCAX6V6n5eo0N+9WXuzrQuarG3khAhRituzKh520XJ2mlpZz27bXYk9Dgyu1NNNE05sjHA7vY1l2
+        VKvV6jiTSaXXPxswm82DDodjpCSe5weJ1ERXXC5Xv9PpPOnz+RS0nWHsdvshi8XSS5oGDAbDkNFoHCFx
+        lES2JHou5YaJ1BzH9Vut1sMMwzB/AbGNI/RUTiAEAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
+        gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
+        VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
+        mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
+        0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
+        lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
+        tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
+        XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
+        tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
+        yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
+        ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
+        dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
+        vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
+        809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
+        o85kc4MAlVpLOK4m9AxHWFxfcOOMzolrpnUoXH6wbBS1Wh10JplKDwGoNKRS+YFqlYPR5cGJJy6MzHlg
+        Deeh80bxZn1DANCZWCwO+Z8ApUpNSrtlfK9UoLN/wPEZF84Z3JCuhnBr5QvMa15UOQ50htaTyxX9gCml
+        mtDH2S3vYZMJ4/xTG45O23FS48DIczvCfAUapjNMKDIImJxSkVQ6B+psNo9AkIHa4YXG4QG7HRd6B7cY
+        FHaK2PzKDAMoSTyRQs+5fIGHZZDOZIWQZXEJyytWOF2rYPgb6vT6fsCjSSVhozG+36DTmRysNjtMLxZ4
+        wJoACUUiMjHalXRcPsqEWL7fcMfjSR5gxpzZAtc7N97anSgWi1fEuERy5+69S+73H/me4aHeYiLCv6Cb
+        MWDevIil18vI5vOjYryr+w+lt7X6Z9sGw2xxmGdN88VPPn/tpeUVfL7PNf4Gp8To/ysQCBzhOO5yuVw+
+        1l2RSH4BvQRqc//87N0AAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
+        ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg
+        mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX
+        y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY
+        eQqsigXd4Mxt1HeP4UrXGHSTf0eSYl5nWH6uWAfWMmwCVZ9yykegW76PPy//m3Aftr6lpgK001VfyZS9
+        kFZ1UlQ166C/Zlh+pjAYuh9vD1Dx7MKbHir6ltA5dwcds7fRTjaoH228i4hAzkoBu9Ae5JZqjMjr3oXN
+        iUYYlp86tv5V9O0B1UMns3rRMHwT9SO3jFwxjNbHxVj/pMCO023IlDUYKVJ2wzpA/UwCNv5qf1v/2vsZ
+        1cNQ6RZR9f4CYRHVBP34eG7lKTIV0O82RaQ2UlDRDivfqqcS2BWsWrvdX6VwYXK/kWquoqRrApe7p1Cq
+        nYZcT+/MI7QzKCOjpbvQVEC/Wxa/CuxsJYWwpAUWXvLvFLAOUL5mFVC9FCbshrh5CAXNw5BoxiBtuwZZ
+        +zgKOyZQ1DlpRP/b4nAW1u9lrxSw8qlEXFY1WAIiQsgu0YDuWfgtAnjJJqCa+fqJmv+yi7XIVPaBX6OD
+        sG4AuQ1DEDWNIr/5KsSaaxC3jhMmHqEZB8310ioCb8sRL6gFO6eeQlDaAfpR8aoClsGqDda+lT1usXVI
+        KGxFUkknUsu04Fb2gafUga8egODKMBEZQ17TNYiax4nMBBn1jMPcOc1UwPJ4IVi5TUgQtVAIy7Ww8Mgz
+        EbDyq3TdHlh21y9RhQhyUtF5DYiTaJBQ3IlkeS/SFf24pPwQWephInEVOY3jyG2aRF7zFIV+bv5W8ioC
+        ngXgFLQjUdKFJGk3+GXvweJItlHAzrfxp9beZaI9DPnXARw5TqXIEcqtxAV+LSKJOFPSTiS0SC7rR3rl
+        AHg1I+DXjUPYMImcpmny4Bkj5oc4qwh45CBRpkWC9F1E5nThSFQV6G48o4Dl8ct9jqFF8I6VwDtGAh+m
+        DEGJcoSkK3GeX4/IvFYwpT1IuNyPFMVHyFCNIatuAoL6aSIwS3Y/Z4R2iEUEQlcKWBzhw4vTCJ+kNgqv
+        hEbQXdOMAhaesmr7YDHePHkJrmez4fGOCN7MYgQmKhCSUYsLghZEFXQjvrgfSeVD4CqvIbN2CoKGWeQ2
+        L0DUskiRr1kE7WCcqQDdLQPBPC1OZ/VRnOD1gO6ctKIHaIezw60YvAebHS6AzojAH7zScCg0H17MCpxM
+        q0c4Obn4Ih1SFSPIrCF1b5yDpHWJvH43cblnmXwbCGSkH4xZRcAlBedEH+CieJBCP6c5sU2akOaU+rtt
+        LqlTO9yTYe3Mxk7PDNgH5ePguTJ4MOvgl9qJEH4f3ikYRFzJOJIr53BJfQP8+lvIblgGv/EWzBmRWG/7
+        hADNmYPo4lGw5JMUUUWjpFliTQT0sXaL+tmmA6yCVxmuX/8pMAcOpDRO4RXwZDUikNuNMOH7iJKOIKF8
+        Ghk1SxA2fQxxx21IOu4gv+MzInDRVGDbW3FgV0yBW3OdglU+hW1vRq4q8DibHCJcLZxi7jLOF8IlogrH
+        2U0IytDibK4O0YVjSFTMglf3F4haP0NJ7z9Q+t6/INXehfmBcCLg+YTAwWgkq+YhbP6YIkk5j62M8G8V
+        0MfMIXzDBvuwrjdCcuCdoiECPTibQwRko0ismAGv9gbyNJ+isOceirWfQ9xzB9sOnDMV2EKOJbXuOiSd
+        dyhSa69ji+PZ7xR4nFdeC460cQn7jy+vDaGkBBGSYaqUacpFqv65LZ9QIoK2T7DVMcxUYDOxSqlbomql
+        J4UIbNof8tQC+qzb5bfT7PXgWRe2AuHSQcQUjVF9kFa9gAz1EtWM6Q03sZnc10Rg4/4z4KgXqIbRwyHl
+        MNt38pkE9KHRTr+87tW3ZTv9Ur4JLRqgeiG+dAIJZdPgEBkWue/GfadMBbbSgr+KVs0gXbVIEUXmv6V5
+        PddfMn1+vcPTfd0f/e4d5bfgYuEoIslboedi2TjM9gZjje3elQLHziQPBkrbEVszj1j1PNwza2Bp7/Oh
+        Yfm5snbnUbNf2Lppd5Mv5ynZAEIF/TgjG8IrDgGmAkxuvvWxkITBLXaBDzfa2T203e87sMsx2MKw/H3y
+        0lpLp9hf7T72hQuPfCcUY6QHgkxL8P/Oz+n7dr9Mc5xncCSwD4x7sGfP+Z8Yll5c9A91jhEe3ssS/95w
+        6YeQrFnzP84KtrvywWJtAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
+        dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
+        JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
+        /+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
+        f4i2sQe07UQL9wLjBTB8KtczAuTdARw16vvuoH5w+oUDU1AMTmHjfoFxAqyCZJ6bD0kfpVb0oer6BCq7
+        iT3/0XBuvi97fgMsQqXvMPzlYqdY6h+hUoOSqzp8rtKjVD2K0o5bkBBnj8/H61248xdg4yffzAiQjodx
+        r0LY3I/85gEIW4ZQeHkYRa1aiNpGIGrXvbBNh3VOF+YnwMq/8hgz/NKfbJEamfJOXKzuAa+uFzmKPvAb
+        B5HXrEG+cpgEaYkjtPlKLdbuTX21ABsv2apN/pUtLrE1SCy6jLMl7Ui7pAanohMZsh5wq3tJSD8JGUJu
+        4zD4TVoImkcgaBqhx2as5LkHWPpL99j4SWd8k+SI4dUgjt+A0wUtSBJfwTnJF6AqupAu6wW3ph9ZdRpk
+        N2hJhA65TXraHDI23c1++QAWi3pzk7ckk3mIehqQJEHoOQkiOVIc5dbgZG4jTglbkShWk4guUNJepFcN
+        gFurBU+hI4uOEm8ZHIXprlMvH2DpVXJtV4QI3vEFRCF8E4oQnCxBOCVDNLceJ/gtSChUIamkC6nlN8CR
+        a5BZO4IsxSiyG8eQ0zROm0s03Rn78gEWnsJrO0Pz4RSWAbcoHtyPC+CTIEbQ2QqEc2oRnaVEbJ4KbHE3
+        Usr6QMmGkVmjJ1dgdvHb4DdP0AqUEzBzjJnbLbBw42V8wKSertsRBYZTHLb7cuByRAgfdgXCOA2I4auQ
+        WHwd56WDZA/oyab7GoWtkxBfuUOeC9PPVE/DzOHY3DehuWvabnPXcz9YuyXD0pkNWw8O7IME+CRKggOn
+        6uCX2o4wbieO5d1EQrEWKRXj4FRPgls/9cyGKZiRH2D4urlhwYp7dwOLrbA9yIFdAA8OIUI4Hy2HJ7sB
+        gZQKkbxunCwcRNKlUXCqJsFr/A55rfeR3/YjBG0zMLOPfLWA55g6xIRb7GP/sTdaDJfjUnidaUIweQkd
+        ybmOuKIhnC0fQ0btHQguz6C44xFKvnyMAvVDmNqHzU/ALKvtoxlr7SM0H0cJ4Z2iRBAJOJzTg1gSkFw2
+        hvTab8FvuQeR6ieI1T8jnwSYbP9s/gJotkYtXr0lJIvJTHkaSN4JEeQWnCjox5lSPc7LJ3BRMY1c5T1a
+        Xts9mNgFz3OAgVUf+u01cQyd8Uirw1HhTcSLNGQf3EKabAIXar6hpRqnsGZboHECZlnG9Fm5wvZgs11E
+        FqLE/YgjEexSHb0hZ2POVN/Gqq1+xgt4znIbz8MbHA4/8SHPhuOFAzhZQCTHmHIdVn7kbfyAWZZau1ov
+        Zx7Q7ogXIbzwBv33DC8ewIotXgsTQMP0fWuJpXOOOYv1t3t2O4LKhrBm66cLGGDg7Y17nJa8v/u+c7oE
+        tocSfzNMLyzWjh5L98VmhdjFXHQwTL3mfyxa9C8BQ0Drrw8VXgAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="tsbtnnext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
+        CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
+        8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
+        mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
+        I09ReOEWrL6q+cvMU8o24HLfo6H6wWhvJtqHH6NO+4BRLaP7qOkbg1fiBZh4SC6Z+JQvouFTz2L706jr
+        H4Os685/knaNQqoeRWX3KLgVfVjhU/bL514yJ5oytSzanQzJ5dsQd9xCKZG44yajEgXRDyMovngDOeeH
+        sDuS+4+ZuyTX2LfsQ5o6NSzcySc9H0Z+O1XbMPLariOv9RpyW4aQ0zyIc006YkKHIKECJp5lw+YHJCto
+        +uT5xDYBWU2DRENUZN04CFHDVZz9XovMugFk1PYjvboXaVXdSChRwuJw8Z+mnpJgWmJyLGDFIaNOh8z6
+        q4zG18JaLdJrBnC6WkMu7UNKZQ8EUjX45UpwxR3glCjgHFuP5e7lDeYHK+bQUhNj/rZocpGWSMcojaxT
+        vxtAirwfAlkvEiXd4JWrwBErEV+kQFx+O6KzWxAlaoRfUj1WHix7uGxfsQ0t9+bM3xKJlCodkuVaRoJK
+        LZJkGnJxH7n4Ck6VqhFfrERcQQeicy4gUtSM6KxmHBVUYd+xXKxy4sDYgvtqqUuBgMXivk/Lvj6G1uEQ
+        yHVIlGnBl45rgHx6GnDK+xAv7kGCuAsxeZ0Iy2jFIV4tXCJLsclLiBWOPJjsjoXR9nAYbjyCT3ckYJlz
+        voKWfX0MN4cgvlSDE4W9OJ5/BRHZXQgTqcjEd8Iv+SLc2I1wPF4N+28l2BFYjK2+2djgIcRK50SY2Z+E
+        MSsCC6yCsMSOjaVOogkYIMlh53oQmKFCoFCFgHQl/FM74StQwJvfDveEZriQgdsbIceu4FJs98+DlVcm
+        VrkIYO7AJq8QAzPSAmOHtKSJtWBjAKIKBhCW1YtQ0RUEn+lGEDFzOO0SY8KL14b97CbmFfaEVsDmcAE2
+        eZ/BGtdkrNkvwHJ7/v3Fe/jbaLk3x3CDH2JLh8hfUIvI3AGEZ/czRoIy1PAnJg4mXYT7qRY4n6iFA2mD
+        bUAhtvhmYZ17Cox2nKg2ZnE/pqUmxrx1PkiovInY4muIKRokc6DDsRwNMdGDI+mX4ZusgCenlWmDQ7gU
+        dqFFMP4y+veFW8P9aInJMXetN/g1ozhVMYL4shuILbnGmAg/14ejmWr4pXTAk9uGfewG2IbkYPHWIM0i
+        qyATmj555qzxgKBxDInyH8GV3mZMxBQNIYK8wvg8+JGB9EhqgYUH95Xhep9Ug3WB02jq1DB7tRvS2h4h
+        teYeBFWj4EhuIY68wvg8BJM2uPBqYGQT+HD+Wi9bmjK1zFrpinTFU2Q0PGBM8GS3cVJ8HWGFGliHnMHc
+        1W71My32z6bhU89Hlk4QKp/h7PnHSKsdA5cYOJSvwmcOR1/OsnQJoGH6Y+YXe5Gpfs4Y4NXdhR1Hglmr
+        XLUzLB3NaIh+mbPaEQkdTxBC/gMmLNbf003t0w0s3D6gx/rH8kDMi10CMWaY2j2avtRmJ91+e2wITdls
+        H5l6wMzafwbdeoceMDD4F+v0NgfWMPF+AAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="tsbtnlast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
+        KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
+        oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
+        txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
+        91A/+A4xpcMw/6v0K3Iau+mUN4JdPasemnqKK12jqO8chfruEySIZ9R0eAnG5wUYePAtOmeeU+qafY6K
+        a3OwOap6aeErTySX5B069VfBCJT8UCi9hgJJByVJkxoLe3R4ic1HctEz/RRNmm8oNVL6GqqRR/BLvQYz
+        H9kNs5O1+nT6a2MV3I2s8quLqlD2wtxfBTq8hIFzJppGH0Fx68Gi5LfmIR+cR93QPPjSEWw5KfnnR34K
+        N7rktbAMbEVaYcOiiqVdMPVR6BrQd0qH7OZ9iPvnUEMk7r9HqbqP6ItZVPXOoLh9Ek7R/P9ZeMtKyDH+
+        iS79RRZ+LTdHsai86jaYeEl0DWw8mEJmPo2yHlrd0yjt/hKlXVMo6ZxEcccECtu0xIQWYdl9MPOVTFsG
+        yLbQ5T/Lwq9lp0sQK5RSEpU2w8ijQtfABnseCtomiCZpkXXrBPJb7uLyVQ1ym8aR0ziKrIY7ENUPgVet
+        htXpqv+Y+8rO0S2WxcSzBjGCWrAziBEiYelVGLoW6RpYz4xHTpMWuc13KS2ssxs1yFKNI7NhjDx0BMK6
+        YQjkg0ipVYMv7kdSdR/cOc0w9a5tsTwhXU23+gkmxypwMaMOsZlXKGWUt8Pw88u6BtbtY5MHaYi0lERk
+        nXFlHELlKASKO0iVDSG5dgBJYjW4lX2IL+sBu6gTMfmtCEprxrYTkscmx6vs6HaLGLsXgZ3ViLicZkqi
+        qh4YHc1exsDeaAjrtUhXaigJ6jRIU4yRB4+QB9/GpZpBcKvUiC/vB7v4GqLzO8Au6MBZQT2OXyjBdrck
+        MKz4r4w9ygVMJv8PdFs9Y9c8cPLaEJ/fiYSCLqRXfgGjw0JdA2v3sCBQapGq0CBFvqBx8tcbQ1LtCLji
+        YfDEtxBXeh2ROV04ldwIj+ga7PbLxhbXZJg5cbB5PwtrPz2DTQd4MHEv66Pb6hkfzUR8YQ/iCnoRmdmJ
+        w+clMHROXcbAZ+Hg1owhtuIOLpbdRlTRLUTmD5Abfx1B6b3wSmyF68UGOJ+X4UBoFWwDi7DLJxvb3FNh
+        4ZwABjMK623CYOiQCGO3/EUDRofT4cFRwTOhlZJHnAqGhy4tY4AURxYOIzRnAKHZAwjJUiM44zoCBX3w
+        T+mBN6+DNGrGkSglHM/VYH9wKWz8crHdQwBLl0RyCnGwICNguIjSfjwCQ+dkBKT2UH2oXqndMHRMWMbA
+        pyGIKR9HZMEdROTfxrm8IYQRM6dFN6hCv+RueCa2UadwKEIKu9Pl2O2fB+tj6bD2FMDUOeVrg0Mp++h2
+        ixg6cXEm5ybCLw9RWlgzHGKXMbArCJyaSfIW1CC6ZBysolHKSFjOIIKJiRNpvfC+1An32Ea4kDHYh1Rg
+        b2ABdnoLsflAbAODyX+fbvUTGI4csEpGwK64S+l88QjJj9I18OHOk+DV3QOnagpxlRPkHmhxoXiMmBjG
+        maybCEzvg29SFzUGF5YcDhGVYBxm/3ujLSuIbrEsBgdjEFs9Ab58jhK7agIGdpG6BtZ84o8U1TwuSWfB
+        lcyAUz1FmWAVjuBs7iCChP3w5XfjeGIL7MOLYWAbNqZvE2ZGl/8sBvYsJMpmIGp6RClBOoNNzLO6BlZb
+        +0DQ+gipyr8Tp/cpE3GVk4gip7BwH4LIhfRJ64SVD//V2r+czNDbGfpHuvQX0WeGg6ecQ37HM0q8ujno
+        7wvRNfDBDi+Iup8gQ/UQgvp5JMnmEE9OYeE+nCNj8EhWYbNd6ON1n/jZ0yWvxcb9Z8BV3sfl9qeUuMTA
+        BttTugZWbTuGrL7nyGn5hjKRrLhPPp2+RGTFGPaE52HNDq/mlVaeH9Dpr816W3K5FbMQNZIREHHIONbt
+        PaFr4M9b3ZCt/pZyuZDIJwZOlQ3AyOXsi1VbPULotF/NJkbADyzZFDnRe5TOk/UahofuJ9nKj48gd/A7
+        ykBy01dwSJJh1fZjmhVbXS3olDfCLShxyLegDVHyGUQpZnAkTQ5jG88BOrzE6h2u4PU/Qzh5D5gxmf99
+        z9w5S8/K6106/MZE83NN3U7FDelb+b5ab2X1ysLWa3DbvgAjOrzE1oC47x0FYqwwd3jynrHdQXr77bEr
+        QviZc3RGgMWe4BX01u/8xujp/R8+75YoB9R89wAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>234, 17</value>
+  </metadata>
+</root>

DPM2016/Patient/Patient.vb

@@ -0,0 +1,171 @@
+Public Class Patient
+
+    Dim m_nrpatient As Integer
+    Property PatientNr As Integer
+        Get
+            Return m_nrpatient
+        End Get
+        Set(value As Integer)
+            Globals.OnLoad = True
+            m_nrpatient = value
+            Me.PatientDetails1.PatientNr = value
+            Me.PatientAbrechnung1.PatientNr = value
+            Me.Behandlung1.PatientNr = value
+            Me.Finanzen1.Patientnr = value
+            Globals.OnLoad = False
+        End Set
+    End Property
+
+    Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
+
+    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs)
+        Me.Close()
+    End Sub
+
+    Private Sub Patient_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        If detail_has_changes() = False Then
+            e.Cancel = True
+
+        End If
+    End Sub
+
+    Function detail_has_changes()
+        Dim res As Boolean = False
+        If Me.PatientDetails1.HasChanges Then res = True
+        If PatientAbrechnung1.HasChanges Then res = True
+        If res = True Then
+            Dim qres As MsgBoxResult
+            qres = MsgBox("Daten wurden verändert. Änderungen speichern?", vbYesNoCancel + vbQuestion)
+            Select Case qres
+                Case MsgBoxResult.Cancel
+                    Return False
+                Case MsgBoxResult.No
+                    Return True
+                Case MsgBoxResult.Yes
+                    save_data()
+                    Return True
+            End Select
+        Else
+            Return True
+        End If
+
+    End Function
+
+    Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.tsbtnfirst_Click(sender, e)
+
+    End Sub
+
+    Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
+        save_data()
+
+    End Sub
+
+    Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            Dim db As New clsDB
+            Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
+            If nrprivat <> -1 Then Me.PatientNr = nrprivat
+            db.Dispose()
+        End If
+    End Sub
+
+    Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
+        If nr = Me.PatientNr Then Me.Text = name
+    End Sub
+
+    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub save_data()
+        evh.Fire_PatSaved(Me.PatientNr)
+    End Sub
+
+    Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
+        Me.Text = PatientDetails1.Patientname
+    End Sub
+
+ 
+    Private Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
+        If detail_has_changes() = False Then Return
+        Dim db As New clsDB
+        db.Get_Tabledata("Patient", "", db.Get_SQL(9))
+        Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
+        db.Dispose()
+    End Sub
+
+    Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click
+        If detail_has_changes() = False Then Return
+        Dim db As New clsDB
+        db.Get_Tabledata("Patient", "", db.Get_SQL(10))
+        Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
+        db.Dispose()
+    End Sub
+
+    Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
+        If detail_has_changes() = False Then Return
+        Dim db As New clsDB
+        Try
+            db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
+            Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
+        Catch
+            Me.PatientNr = Me.PatientNr
+        End Try
+        db.Dispose()
+    End Sub
+
+    Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
+        If detail_has_changes() = False Then Return
+        Dim db As New clsDB
+        Try
+            db.Get_Tabledata("Patient", "", db.Get_SQL(12), Me.m_nrpatient.ToString)
+            Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
+        Catch
+            Me.PatientNr = Me.PatientNr
+        End Try
+        db.Dispose()
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
+        Dim db As New clsDB
+        Dim newkey As Integer = db.Get_DBKey("Privat")
+
+        db.Get_Tabledata("Privat", " where nrprivat=0")
+
+        Dim r As DataRow
+        r = db.dsDaten.Tables(0).NewRow
+
+        For Each c As DataColumn In db.dsDaten.Tables(0).Columns
+            r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
+        Next
+
+        db.dsDaten.Tables(0).Rows(0).Item(0) = newkey
+        db.dsDaten.Tables(0).Rows(0).Item("Erstellt_am") = Now
+        db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
+        db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
+        db.dsDaten.Tables(0).Rows(0).Item("aktiv") = True
+        db.dsDaten.Tables(0).Rows(0).Item("Gueltigab") = Now
+        db.dsDaten.Tables(0).Rows.Add(r)
+        db.Update_Data()
+        Me.PatientNr = newkey
+        db.Dispose()
+
+    End Sub
+
+   
+    Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
+        If SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Then
+            Me.Krankengeschichte1.Patientnr = Me.PatientNr
+        End If
+        If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
+            Me.Finanzen1.Refresh_Data()
+        End If
+    End Sub
+
+
+End Class

DPM2016/Patient/PatientAbrechnung.Designer.vb

@@ -0,0 +1,650 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class PatientAbrechnung
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.cbboxnrzahnarzt = New DPM2016.MyCombobox()
+        Me.cbboxnrhausarzt = New DPM2016.MyCombobox()
+        Me.CBBOXNRFs = New DPM2016.MyCombobox()
+        Me.CBBOXNRIV = New DPM2016.MyCombobox()
+        Me.cbboxNRKK = New DPM2016.MyCombobox()
+        Me.cbboxNRVS = New DPM2016.MyCombobox()
+        Me.cbboxNrGarant = New DPM2016.MyCombobox()
+        Me.cbboxNrGesVertreter = New DPM2016.MyCombobox()
+        Me.Label30 = New System.Windows.Forms.Label()
+        Me.Label29 = New System.Windows.Forms.Label()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.txtFSNR = New System.Windows.Forms.TextBox()
+        Me.Label25 = New System.Windows.Forms.Label()
+        Me.Label26 = New System.Windows.Forms.Label()
+        Me.txtIVNR = New System.Windows.Forms.TextBox()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.txtKKNR = New System.Windows.Forms.TextBox()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.txtVSNR = New System.Windows.Forms.TextBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.txtKorrespondenzadresse = New System.Windows.Forms.TextBox()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.cbboxnrbehandler = New DPM2016.MyCombobox()
+        Me.cbboxzazRecallTyp = New DPM2016.MyCombobox()
+        Me.txtzazRecallBemerkung = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.txtZAZRecallfixmonat = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.chkZAZRECALLTELEFON = New System.Windows.Forms.CheckBox()
+        Me.txtzazrecall = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.cbboxESTyp = New DPM2016.MyCombobox()
+        Me.cbboxNrRGTyp = New DPM2016.MyCombobox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtRabatt = New System.Windows.Forms.TextBox()
+        Me.GroupBox4.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox4.Controls.Add(Me.cbboxnrzahnarzt)
+        Me.GroupBox4.Controls.Add(Me.cbboxnrhausarzt)
+        Me.GroupBox4.Controls.Add(Me.CBBOXNRFs)
+        Me.GroupBox4.Controls.Add(Me.CBBOXNRIV)
+        Me.GroupBox4.Controls.Add(Me.cbboxNRKK)
+        Me.GroupBox4.Controls.Add(Me.cbboxNRVS)
+        Me.GroupBox4.Controls.Add(Me.cbboxNrGarant)
+        Me.GroupBox4.Controls.Add(Me.cbboxNrGesVertreter)
+        Me.GroupBox4.Controls.Add(Me.Label30)
+        Me.GroupBox4.Controls.Add(Me.Label29)
+        Me.GroupBox4.Controls.Add(Me.Label27)
+        Me.GroupBox4.Controls.Add(Me.Label28)
+        Me.GroupBox4.Controls.Add(Me.txtFSNR)
+        Me.GroupBox4.Controls.Add(Me.Label25)
+        Me.GroupBox4.Controls.Add(Me.Label26)
+        Me.GroupBox4.Controls.Add(Me.txtIVNR)
+        Me.GroupBox4.Controls.Add(Me.Label24)
+        Me.GroupBox4.Controls.Add(Me.txtKKNR)
+        Me.GroupBox4.Controls.Add(Me.Label23)
+        Me.GroupBox4.Controls.Add(Me.Label22)
+        Me.GroupBox4.Controls.Add(Me.txtVSNR)
+        Me.GroupBox4.Controls.Add(Me.Label19)
+        Me.GroupBox4.Controls.Add(Me.Label20)
+        Me.GroupBox4.Controls.Add(Me.Label21)
+        Me.GroupBox4.Location = New System.Drawing.Point(259, 3)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(348, 424)
+        Me.GroupBox4.TabIndex = 11
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "Beziehungen"
+        '
+        'cbboxnrzahnarzt
+        '
+        Me.cbboxnrzahnarzt.Dataselection = Nothing
+        Me.cbboxnrzahnarzt.Displaymember = Nothing
+        Me.cbboxnrzahnarzt.Location = New System.Drawing.Point(122, 305)
+        Me.cbboxnrzahnarzt.Name = "cbboxnrzahnarzt"
+        Me.cbboxnrzahnarzt.SelectedValue = Nothing
+        Me.cbboxnrzahnarzt.Size = New System.Drawing.Size(208, 22)
+        Me.cbboxnrzahnarzt.TabIndex = 45
+        Me.cbboxnrzahnarzt.Table = Nothing
+        Me.cbboxnrzahnarzt.Valuemember = Nothing
+        '
+        'cbboxnrhausarzt
+        '
+        Me.cbboxnrhausarzt.Dataselection = Nothing
+        Me.cbboxnrhausarzt.Displaymember = Nothing
+        Me.cbboxnrhausarzt.Location = New System.Drawing.Point(123, 277)
+        Me.cbboxnrhausarzt.Name = "cbboxnrhausarzt"
+        Me.cbboxnrhausarzt.SelectedValue = Nothing
+        Me.cbboxnrhausarzt.Size = New System.Drawing.Size(208, 22)
+        Me.cbboxnrhausarzt.TabIndex = 44
+        Me.cbboxnrhausarzt.Table = Nothing
+        Me.cbboxnrhausarzt.Valuemember = Nothing
+        '
+        'CBBOXNRFs
+        '
+        Me.CBBOXNRFs.Dataselection = Nothing
+        Me.CBBOXNRFs.Displaymember = Nothing
+        Me.CBBOXNRFs.Location = New System.Drawing.Point(123, 223)
+        Me.CBBOXNRFs.Name = "CBBOXNRFs"
+        Me.CBBOXNRFs.SelectedValue = Nothing
+        Me.CBBOXNRFs.Size = New System.Drawing.Size(208, 22)
+        Me.CBBOXNRFs.TabIndex = 43
+        Me.CBBOXNRFs.Table = Nothing
+        Me.CBBOXNRFs.Valuemember = Nothing
+        '
+        'CBBOXNRIV
+        '
+        Me.CBBOXNRIV.Dataselection = Nothing
+        Me.CBBOXNRIV.Displaymember = Nothing
+        Me.CBBOXNRIV.Location = New System.Drawing.Point(123, 176)
+        Me.CBBOXNRIV.Name = "CBBOXNRIV"
+        Me.CBBOXNRIV.SelectedValue = Nothing
+        Me.CBBOXNRIV.Size = New System.Drawing.Size(208, 22)
+        Me.CBBOXNRIV.TabIndex = 42
+        Me.CBBOXNRIV.Table = Nothing
+        Me.CBBOXNRIV.Valuemember = Nothing
+        '
+        'cbboxNRKK
+        '
+        Me.cbboxNRKK.Dataselection = Nothing
+        Me.cbboxNRKK.Displaymember = Nothing
+        Me.cbboxNRKK.Location = New System.Drawing.Point(123, 122)
+        Me.cbboxNRKK.Name = "cbboxNRKK"
+        Me.cbboxNRKK.SelectedValue = Nothing
+        Me.cbboxNRKK.Size = New System.Drawing.Size(208, 22)
+        Me.cbboxNRKK.TabIndex = 41
+        Me.cbboxNRKK.Table = Nothing
+        Me.cbboxNRKK.Valuemember = Nothing
+        '
+        'cbboxNRVS
+        '
+        Me.cbboxNRVS.Dataselection = Nothing
+        Me.cbboxNRVS.Displaymember = Nothing
+        Me.cbboxNRVS.Location = New System.Drawing.Point(123, 70)
+        Me.cbboxNRVS.Name = "cbboxNRVS"
+        Me.cbboxNRVS.SelectedValue = Nothing
+        Me.cbboxNRVS.Size = New System.Drawing.Size(208, 22)
+        Me.cbboxNRVS.TabIndex = 40
+        Me.cbboxNRVS.Table = Nothing
+        Me.cbboxNRVS.Valuemember = Nothing
+        '
+        'cbboxNrGarant
+        '
+        Me.cbboxNrGarant.Dataselection = Nothing
+        Me.cbboxNrGarant.Displaymember = Nothing
+        Me.cbboxNrGarant.Location = New System.Drawing.Point(123, 42)
+        Me.cbboxNrGarant.Name = "cbboxNrGarant"
+        Me.cbboxNrGarant.SelectedValue = Nothing
+        Me.cbboxNrGarant.Size = New System.Drawing.Size(208, 22)
+        Me.cbboxNrGarant.TabIndex = 39
+        Me.cbboxNrGarant.Table = Nothing
+        Me.cbboxNrGarant.Valuemember = Nothing
+        '
+        'cbboxNrGesVertreter
+        '
+        Me.cbboxNrGesVertreter.Dataselection = Nothing
+        Me.cbboxNrGesVertreter.Displaymember = Nothing
+        Me.cbboxNrGesVertreter.Location = New System.Drawing.Point(123, 14)
+        Me.cbboxNrGesVertreter.Name = "cbboxNrGesVertreter"
+        Me.cbboxNrGesVertreter.SelectedValue = Nothing
+        Me.cbboxNrGesVertreter.Size = New System.Drawing.Size(208, 22)
+        Me.cbboxNrGesVertreter.TabIndex = 38
+        Me.cbboxNrGesVertreter.Table = Nothing
+        Me.cbboxNrGesVertreter.Valuemember = Nothing
+        '
+        'Label30
+        '
+        Me.Label30.AutoSize = True
+        Me.Label30.Location = New System.Drawing.Point(17, 307)
+        Me.Label30.Name = "Label30"
+        Me.Label30.Size = New System.Drawing.Size(99, 13)
+        Me.Label30.TabIndex = 37
+        Me.Label30.Text = "Überweisender Arzt"
+        '
+        'Label29
+        '
+        Me.Label29.AutoSize = True
+        Me.Label29.Location = New System.Drawing.Point(17, 280)
+        Me.Label29.Name = "Label29"
+        Me.Label29.Size = New System.Drawing.Size(49, 13)
+        Me.Label29.TabIndex = 35
+        Me.Label29.Text = "Hausarzt"
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Location = New System.Drawing.Point(17, 254)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(90, 13)
+        Me.Label27.TabIndex = 33
+        Me.Label27.Text = "Fürsorge-Nummer"
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.Location = New System.Drawing.Point(17, 229)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(48, 13)
+        Me.Label28.TabIndex = 32
+        Me.Label28.Text = "Fürsorge"
+        '
+        'txtFSNR
+        '
+        Me.txtFSNR.Location = New System.Drawing.Point(123, 251)
+        Me.txtFSNR.Name = "txtFSNR"
+        Me.txtFSNR.Size = New System.Drawing.Size(208, 20)
+        Me.txtFSNR.TabIndex = 31
+        '
+        'Label25
+        '
+        Me.Label25.AutoSize = True
+        Me.Label25.Location = New System.Drawing.Point(17, 204)
+        Me.Label25.Name = "Label25"
+        Me.Label25.Size = New System.Drawing.Size(34, 13)
+        Me.Label25.TabIndex = 29
+        Me.Label25.Text = "IV-Nr."
+        '
+        'Label26
+        '
+        Me.Label26.AutoSize = True
+        Me.Label26.Location = New System.Drawing.Point(17, 179)
+        Me.Label26.Name = "Label26"
+        Me.Label26.Size = New System.Drawing.Size(17, 13)
+        Me.Label26.TabIndex = 28
+        Me.Label26.Text = "IV"
+        '
+        'txtIVNR
+        '
+        Me.txtIVNR.Location = New System.Drawing.Point(123, 201)
+        Me.txtIVNR.Name = "txtIVNR"
+        Me.txtIVNR.Size = New System.Drawing.Size(208, 20)
+        Me.txtIVNR.TabIndex = 27
+        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.Location = New System.Drawing.Point(17, 153)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(92, 13)
+        Me.Label24.TabIndex = 25
+        Me.Label24.Text = "Krankenkasse-Nr."
+        '
+        'txtKKNR
+        '
+        Me.txtKKNR.Location = New System.Drawing.Point(123, 150)
+        Me.txtKKNR.Name = "txtKKNR"
+        Me.txtKKNR.Size = New System.Drawing.Size(208, 20)
+        Me.txtKKNR.TabIndex = 24
+        '
+        'Label23
+        '
+        Me.Label23.AutoSize = True
+        Me.Label23.Location = New System.Drawing.Point(17, 128)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(75, 13)
+        Me.Label23.TabIndex = 23
+        Me.Label23.Text = "Krankenkasse"
+        '
+        'Label22
+        '
+        Me.Label22.AutoSize = True
+        Me.Label22.Location = New System.Drawing.Point(17, 102)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(91, 13)
+        Me.Label22.TabIndex = 21
+        Me.Label22.Text = "Versicherungs-Nr."
+        '
+        'txtVSNR
+        '
+        Me.txtVSNR.Location = New System.Drawing.Point(123, 95)
+        Me.txtVSNR.Name = "txtVSNR"
+        Me.txtVSNR.Size = New System.Drawing.Size(208, 20)
+        Me.txtVSNR.TabIndex = 7
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Location = New System.Drawing.Point(17, 75)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(69, 13)
+        Me.Label19.TabIndex = 6
+        Me.Label19.Text = "Versicherung"
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(17, 49)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(39, 13)
+        Me.Label20.TabIndex = 5
+        Me.Label20.Text = "Garant"
+        '
+        'Label21
+        '
+        Me.Label21.AutoSize = True
+        Me.Label21.Location = New System.Drawing.Point(17, 24)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(57, 13)
+        Me.Label21.TabIndex = 4
+        Me.Label21.Text = "Ges. Vertr."
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox3.Controls.Add(Me.Label12)
+        Me.GroupBox3.Controls.Add(Me.txtKorrespondenzadresse)
+        Me.GroupBox3.Location = New System.Drawing.Point(4, 302)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(249, 125)
+        Me.GroupBox3.TabIndex = 10
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "Korrespondenzadresse"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(17, 22)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(45, 13)
+        Me.Label12.TabIndex = 19
+        Me.Label12.Text = "Adresse"
+        '
+        'txtKorrespondenzadresse
+        '
+        Me.txtKorrespondenzadresse.Location = New System.Drawing.Point(81, 19)
+        Me.txtKorrespondenzadresse.Multiline = True
+        Me.txtKorrespondenzadresse.Name = "txtKorrespondenzadresse"
+        Me.txtKorrespondenzadresse.Size = New System.Drawing.Size(161, 100)
+        Me.txtKorrespondenzadresse.TabIndex = 18
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox2.Controls.Add(Me.cbboxnrbehandler)
+        Me.GroupBox2.Controls.Add(Me.cbboxzazRecallTyp)
+        Me.GroupBox2.Controls.Add(Me.txtzazRecallBemerkung)
+        Me.GroupBox2.Controls.Add(Me.Label11)
+        Me.GroupBox2.Controls.Add(Me.Label10)
+        Me.GroupBox2.Controls.Add(Me.txtZAZRecallfixmonat)
+        Me.GroupBox2.Controls.Add(Me.Label9)
+        Me.GroupBox2.Controls.Add(Me.chkZAZRECALLTELEFON)
+        Me.GroupBox2.Controls.Add(Me.txtzazrecall)
+        Me.GroupBox2.Controls.Add(Me.Label8)
+        Me.GroupBox2.Controls.Add(Me.Label7)
+        Me.GroupBox2.Location = New System.Drawing.Point(3, 111)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(250, 184)
+        Me.GroupBox2.TabIndex = 9
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "Recall"
+        '
+        'cbboxnrbehandler
+        '
+        Me.cbboxnrbehandler.Dataselection = Nothing
+        Me.cbboxnrbehandler.Displaymember = Nothing
+        Me.cbboxnrbehandler.Location = New System.Drawing.Point(82, 18)
+        Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
+        Me.cbboxnrbehandler.SelectedValue = Nothing
+        Me.cbboxnrbehandler.Size = New System.Drawing.Size(160, 22)
+        Me.cbboxnrbehandler.TabIndex = 18
+        Me.cbboxnrbehandler.Table = Nothing
+        Me.cbboxnrbehandler.Valuemember = Nothing
+        '
+        'cbboxzazRecallTyp
+        '
+        Me.cbboxzazRecallTyp.Dataselection = Nothing
+        Me.cbboxzazRecallTyp.Displaymember = Nothing
+        Me.cbboxzazRecallTyp.Location = New System.Drawing.Point(82, 72)
+        Me.cbboxzazRecallTyp.Name = "cbboxzazRecallTyp"
+        Me.cbboxzazRecallTyp.SelectedValue = Nothing
+        Me.cbboxzazRecallTyp.Size = New System.Drawing.Size(160, 22)
+        Me.cbboxzazRecallTyp.TabIndex = 9
+        Me.cbboxzazRecallTyp.Table = Nothing
+        Me.cbboxzazRecallTyp.Valuemember = Nothing
+        '
+        'txtzazRecallBemerkung
+        '
+        Me.txtzazRecallBemerkung.Location = New System.Drawing.Point(82, 129)
+        Me.txtzazRecallBemerkung.Multiline = True
+        Me.txtzazRecallBemerkung.Name = "txtzazRecallBemerkung"
+        Me.txtzazRecallBemerkung.Size = New System.Drawing.Size(161, 49)
+        Me.txtzazRecallBemerkung.TabIndex = 17
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(17, 132)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(61, 13)
+        Me.Label11.TabIndex = 16
+        Me.Label11.Text = "Bemerkung"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(17, 102)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(62, 13)
+        Me.Label10.TabIndex = 15
+        Me.Label10.Text = "Fixer Monat"
+        '
+        'txtZAZRecallfixmonat
+        '
+        Me.txtZAZRecallfixmonat.Location = New System.Drawing.Point(82, 99)
+        Me.txtZAZRecallfixmonat.Name = "txtZAZRecallfixmonat"
+        Me.txtZAZRecallfixmonat.Size = New System.Drawing.Size(58, 20)
+        Me.txtZAZRecallfixmonat.TabIndex = 14
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(17, 75)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(25, 13)
+        Me.Label9.TabIndex = 12
+        Me.Label9.Text = "Typ"
+        '
+        'chkZAZRECALLTELEFON
+        '
+        Me.chkZAZRECALLTELEFON.AutoSize = True
+        Me.chkZAZRECALLTELEFON.Location = New System.Drawing.Point(157, 47)
+        Me.chkZAZRECALLTELEFON.Name = "chkZAZRECALLTELEFON"
+        Me.chkZAZRECALLTELEFON.Size = New System.Drawing.Size(77, 17)
+        Me.chkZAZRECALLTELEFON.TabIndex = 11
+        Me.chkZAZRECALLTELEFON.Text = "telefonisch"
+        Me.chkZAZRECALLTELEFON.UseVisualStyleBackColor = True
+        '
+        'txtzazrecall
+        '
+        Me.txtzazrecall.Location = New System.Drawing.Point(82, 46)
+        Me.txtzazrecall.Name = "txtzazrecall"
+        Me.txtzazrecall.Size = New System.Drawing.Size(58, 20)
+        Me.txtzazrecall.TabIndex = 10
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(17, 49)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(44, 13)
+        Me.Label8.TabIndex = 9
+        Me.Label8.Text = "Intervall"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(17, 22)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(55, 13)
+        Me.Label7.TabIndex = 8
+        Me.Label7.Text = "Behandler"
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
+        Me.GroupBox1.Controls.Add(Me.cbboxESTyp)
+        Me.GroupBox1.Controls.Add(Me.cbboxNrRGTyp)
+        Me.GroupBox1.Controls.Add(Me.Label6)
+        Me.GroupBox1.Controls.Add(Me.Label5)
+        Me.GroupBox1.Controls.Add(Me.Label4)
+        Me.GroupBox1.Controls.Add(Me.Label3)
+        Me.GroupBox1.Controls.Add(Me.txtRabatt)
+        Me.GroupBox1.Location = New System.Drawing.Point(3, 3)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(250, 102)
+        Me.GroupBox1.TabIndex = 8
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Abrechnung"
+        '
+        'cbboxESTyp
+        '
+        Me.cbboxESTyp.Dataselection = Nothing
+        Me.cbboxESTyp.Displaymember = Nothing
+        Me.cbboxESTyp.Location = New System.Drawing.Point(84, 72)
+        Me.cbboxESTyp.Name = "cbboxESTyp"
+        Me.cbboxESTyp.SelectedValue = Nothing
+        Me.cbboxESTyp.Size = New System.Drawing.Size(160, 22)
+        Me.cbboxESTyp.TabIndex = 8
+        Me.cbboxESTyp.Table = Nothing
+        Me.cbboxESTyp.Valuemember = Nothing
+        '
+        'cbboxNrRGTyp
+        '
+        Me.cbboxNrRGTyp.Dataselection = Nothing
+        Me.cbboxNrRGTyp.Displaymember = Nothing
+        Me.cbboxNrRGTyp.Location = New System.Drawing.Point(83, 14)
+        Me.cbboxNrRGTyp.Name = "cbboxNrRGTyp"
+        Me.cbboxNrRGTyp.SelectedValue = Nothing
+        Me.cbboxNrRGTyp.Size = New System.Drawing.Size(160, 22)
+        Me.cbboxNrRGTyp.TabIndex = 7
+        Me.cbboxNrRGTyp.Table = Nothing
+        Me.cbboxNrRGTyp.Valuemember = Nothing
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(17, 75)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(59, 13)
+        Me.Label6.TabIndex = 6
+        Me.Label6.Text = "Einzahlung"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(17, 49)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(39, 13)
+        Me.Label5.TabIndex = 5
+        Me.Label5.Text = "Rabatt"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(17, 16)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(25, 13)
+        Me.Label4.TabIndex = 4
+        Me.Label4.Text = "Typ"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(194, 49)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(15, 13)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "%"
+        '
+        'txtRabatt
+        '
+        Me.txtRabatt.Location = New System.Drawing.Point(83, 46)
+        Me.txtRabatt.Name = "txtRabatt"
+        Me.txtRabatt.Size = New System.Drawing.Size(108, 20)
+        Me.txtRabatt.TabIndex = 1
+        '
+        'PatientAbrechnung
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.GroupBox4)
+        Me.Controls.Add(Me.GroupBox3)
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Name = "PatientAbrechnung"
+        Me.Size = New System.Drawing.Size(617, 436)
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox4.PerformLayout()
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox2.PerformLayout()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
+    Friend WithEvents Label30 As System.Windows.Forms.Label
+    Friend WithEvents Label29 As System.Windows.Forms.Label
+    Friend WithEvents Label27 As System.Windows.Forms.Label
+    Friend WithEvents Label28 As System.Windows.Forms.Label
+    Friend WithEvents txtFSNR As System.Windows.Forms.TextBox
+    Friend WithEvents Label25 As System.Windows.Forms.Label
+    Friend WithEvents Label26 As System.Windows.Forms.Label
+    Friend WithEvents txtIVNR As System.Windows.Forms.TextBox
+    Friend WithEvents Label24 As System.Windows.Forms.Label
+    Friend WithEvents txtKKNR As System.Windows.Forms.TextBox
+    Friend WithEvents Label23 As System.Windows.Forms.Label
+    Friend WithEvents Label22 As System.Windows.Forms.Label
+    Friend WithEvents txtVSNR As System.Windows.Forms.TextBox
+    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 GroupBox3 As System.Windows.Forms.GroupBox
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents txtKorrespondenzadresse As System.Windows.Forms.TextBox
+    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
+    Friend WithEvents txtzazRecallBemerkung As System.Windows.Forms.TextBox
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents txtZAZRecallfixmonat As System.Windows.Forms.TextBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents chkZAZRECALLTELEFON As System.Windows.Forms.CheckBox
+    Friend WithEvents txtzazrecall As System.Windows.Forms.TextBox
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtRabatt As System.Windows.Forms.TextBox
+    Friend WithEvents cbboxNrRGTyp As DPM2016.MyCombobox
+    Friend WithEvents cbboxESTyp As DPM2016.MyCombobox
+    Friend WithEvents cbboxzazRecallTyp As DPM2016.MyCombobox
+    Friend WithEvents cbboxnrbehandler As DPM2016.MyCombobox
+    Friend WithEvents cbboxNrGarant As DPM2016.MyCombobox
+    Friend WithEvents cbboxNrGesVertreter As DPM2016.MyCombobox
+    Friend WithEvents CBBOXNRFs As DPM2016.MyCombobox
+    Friend WithEvents CBBOXNRIV As DPM2016.MyCombobox
+    Friend WithEvents cbboxNRKK As DPM2016.MyCombobox
+    Friend WithEvents cbboxNRVS As DPM2016.MyCombobox
+    Friend WithEvents cbboxnrzahnarzt As DPM2016.MyCombobox
+    Friend WithEvents cbboxnrhausarzt As DPM2016.MyCombobox
+
+End Class

DPM2016/Patient/PatientAbrechnung.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

DPM2016/Patient/PatientAbrechnung.vb

@@ -0,0 +1,407 @@
+Public Class PatientAbrechnung
+
+#Region "Properties"
+    Dim m_patientnr As Integer
+    Property PatientNr As Integer
+        Get
+            Return m_patientnr
+        End Get
+        Set(value As Integer)
+            Try
+                If value = 0 Then Exit Property
+                m_patientnr = value
+                Fill_Stammdaten()
+                Get_Data()
+            Catch ex As Exception
+                log.Writelog("PatientAbrechnung: PatientNr Set: " + ex.Message, clsLog.Logtype.ApplError)
+                Dim a As Integer = 1
+            End Try
+        End Set
+    End Property
+
+    Dim m_haschanges As Boolean
+    Property HasChanges As Boolean
+        Get
+            Return m_haschanges
+        End Get
+        Set(value As Boolean)
+            m_haschanges = value
+        End Set
+    End Property
+
+#End Region
+
+#Region "Deklarationen"
+    Dim DB As New clsDB
+    Dim log As New clsLog
+    Dim FormReadonly As Boolean = False
+    Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
+
+#End Region
+
+#Region "Closing / Check_Changes"
+
+    ''' <summary>
+    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
+    ''' </summary>
+    ''' <remarks></remarks>
+    Private Function Check_Changes() As Boolean
+        If Me.FormReadonly Then
+            Return True
+            Exit Function
+        End If
+        Dim msgres As MsgBoxResult
+        If Me.HasChanges Then
+            msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
+            Select Case msgres
+                Case MsgBoxResult.Yes
+                    Save_Data()
+                    Return True
+                Case MsgBoxResult.Cancel
+                    Return False
+                Case MsgBoxResult.No
+                    Me.HasChanges = False
+                    Return True
+            End Select
+        Else
+            Return True
+        End If
+    End Function
+
+#End Region
+
+#Region "Eventhandler ChangeEreignisse"
+    ''' <summary>
+    ''' Allg Eventhandler für Chanage-Ereignise festlegen
+    ''' </summary>
+    ''' <param name="Container"></param>
+    ''' <remarks></remarks>
+    Private Sub AddChanges(ByVal Container As Control)
+        Dim l As New List(Of Control)
+        Me.GetControl(Me, "*", l)
+        Dim evh As EventHandler = AddressOf ChangesMade
+        For Each c As Control In l
+            If TypeOf c Is TextBox Then
+                Dim ctl As TextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is MaskedTextBox Then
+                Dim ctl As MaskedTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is ComboBox Then
+                Dim ctl As ComboBox = c
+                AddHandler ctl.SelectedValueChanged, evh
+            End If
+            If TypeOf c Is RichTextBox Then
+                Dim ctl As RichTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is CheckBox Then
+                If c.Name <> "cboxNurAktive" Then
+                    Dim ctl As CheckBox = c
+                    AddHandler ctl.CheckedChanged, evh
+                End If
+            End If
+            If TypeOf c Is DateTimePicker Then
+                Dim ctl As DateTimePicker = c
+                AddHandler ctl.ValueChanged, evh
+            End If
+            If TypeOf c Is CheckedListBox Then
+                Dim ctl As CheckedListBox = c
+                AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
+            End If
+        Next
+    End Sub
+    ''' <summary>
+    ''' Envent-Handler für Change-Ereignisse
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    ''' <remarks></remarks>
+    Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
+        Me.HasChanges = True
+        Dim objtype As System.Type = sender.GetType
+        If objtype.Name = "MaskedTextBox" Then
+            Dim o As MaskedTextBox = sender
+            If o.Text = "01.01.1900" Then o.Text = "  .  .    "
+        End If
+    End Sub
+
+    Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
+        Me.HasChanges = True
+    End Sub
+
+
+    ''' <summary>
+    ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
+    ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
+    ''' </summary>
+    ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
+    ''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
+    ''' <param name="L">Liste der gefundenen Objekte</param>
+    ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+    ''' </returns>
+    ''' <remarks></remarks>
+    Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
+        If L Is Nothing Then L = New List(Of Control)
+        Dim Gut As Boolean
+        Dim ReturnFlag As Boolean = False
+        If Key IsNot Nothing Then Key = Key.ToLower
+
+        If BaseControl.HasChildren = True Then
+            For Each ctl As Control In BaseControl.Controls
+                Gut = False
+                If Key Is Nothing Then
+                    Gut = True
+                Else
+                    If ctl.Name.Length >= Key.Length Then
+                        Key = Key.ToLower
+                        If Key.StartsWith("*") Then
+                            If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
+                        ElseIf Key.EndsWith("*") Then
+                            If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
+                        Else
+                            If Key = ctl.Name.ToLower Then Gut = True
+                        End If
+                    End If
+                End If
+
+                If Gut = True Then
+                    L.Add(ctl)
+                    If ReturnAtFirstElement = True Then ReturnFlag = True
+                End If
+                If ReturnFlag = False Then
+                    Call GetControl(ctl, Key, L)
+                End If
+            Next
+        End If
+
+        If L.Count - 1 > -1 Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+#End Region
+
+#Region "Daten_Laden"
+
+    Public Sub Fill_Stammdaten()
+        Me.cbboxNrRGTyp.Table = "RGTyp"
+        Me.cbboxNrRGTyp.Displaymember = "BezD"
+        Me.cbboxNrRGTyp.Valuemember = "nrrgtyp"
+
+        Me.cbboxESTyp.Table = "ESTyp"
+        Me.cbboxESTyp.Displaymember = "estyp"
+        Me.cbboxESTyp.Valuemember = "nrestyp"
+
+        Me.cbboxzazRecallTyp.Table = "RecallTyp"
+        Me.cbboxzazRecallTyp.Displaymember = "RecallTyp"
+        Me.cbboxzazRecallTyp.Valuemember = "nrrecalltyp"
+
+        Me.cbboxnrbehandler.Dataselection = DB.Get_SQL(2)
+        Me.cbboxnrbehandler.Table = "Behandler"
+        Me.cbboxnrbehandler.Displaymember = "Name"
+        Me.cbboxnrbehandler.Valuemember = "nrprivat"
+
+        Me.cbboxNrGesVertreter.Dataselection = DB.Get_SQL(3)
+        Me.cbboxNrGesVertreter.Table = "GesVertreter"
+        Me.cbboxNrGesVertreter.Displaymember = "Name"
+        Me.cbboxNrGesVertreter.Valuemember = "nrprivat"
+
+        Me.cbboxNrGarant.Dataselection = DB.Get_SQL(4)
+        Me.cbboxNrGarant.Table = "Garant"
+        Me.cbboxNrGarant.Displaymember = "Name"
+        Me.cbboxNrGarant.Valuemember = "nrprivat"
+
+        Me.cbboxNRVS.Dataselection = DB.Get_SQL(5)
+        Me.cbboxNRVS.Table = "Versicherung"
+        Me.cbboxNRVS.Displaymember = "Firmenname"
+        Me.cbboxNRVS.Valuemember = "nrfirma"
+
+        Me.cbboxNRKK.Dataselection = DB.Get_SQL(6)
+        Me.cbboxNRKK.Table = "Krankenkasse"
+        Me.cbboxNRKK.Displaymember = "Firmenname"
+        Me.cbboxNRKK.Valuemember = "nrfirma"
+
+        Me.CBBOXNRIV.Dataselection = DB.Get_SQL(7)
+        Me.CBBOXNRIV.Table = "IVStelle"
+        Me.CBBOXNRIV.Displaymember = "Firmenname"
+        Me.CBBOXNRIV.Valuemember = "nrfirma"
+
+        Me.CBBOXNRFs.Dataselection = DB.Get_SQL(8)
+        Me.CBBOXNRFs.Table = "Fürsorgestelle"
+        Me.CBBOXNRFs.Displaymember = "Firmenname"
+        Me.CBBOXNRFs.Valuemember = "nrfirma"
+
+        Me.cbboxnrhausarzt.Dataselection = DB.Get_SQL(13)
+        Me.cbboxnrhausarzt.Table = "Hausarzt"
+        Me.cbboxnrhausarzt.Displaymember = "Name"
+        Me.cbboxnrhausarzt.Valuemember = "nrprivat"
+
+        Me.cbboxnrzahnarzt.Dataselection = DB.Get_SQL(14)
+        Me.cbboxnrzahnarzt.Table = "Zahnarzt"
+        Me.cbboxnrzahnarzt.Displaymember = "Name"
+        Me.cbboxnrzahnarzt.Valuemember = "nrprivat"
+
+    End Sub
+
+    
+
+
+    Sub Get_Data()
+        DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+        Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+
+        Get_Data_Controls(Me, r)
+        AddChanges(Me)
+        Me.HasChanges = False
+    End Sub
+
+    Sub Get_Data_Controls(ByVal ictl As Control, ByRef R As DataRow)
+
+        For Each ctl As Control In ictl.Controls
+
+            If ctl.Controls.Count = 0 Or (ctl.Controls.Count = 1 And Microsoft.VisualBasic.Left(UCase(ctl.Name), 5) = "CBBOX") Then
+                get_data_for_control(ctl, R)
+            Else
+                Get_Data_Controls(ctl, R)
+            End If
+        Next
+    End Sub
+
+    Sub get_data_for_control(ByRef ctl As Control, ByRef R As DataRow)
+
+
+        For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+            Try
+                If UCase(ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                    ctl.Text = R(c.ColumnName)
+                    Exit For
+                End If
+                If UCase(ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                    If UCase(c.ColumnName) = "NRFS" Then
+
+                    End If
+                    Dim ct As MyCombobox
+                    Dim o As Object = ctl
+                    Try
+                        o.SelectedValue = R(c.ColumnName)
+                    Catch
+                        o.selectedvalue = -1
+                    End Try
+
+                    Exit For
+                End If
+                If UCase(ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                    Dim dt As DateTimePicker
+                    dt = ctl
+                    dt.Value = R(c.ColumnName)
+                    Exit For
+                End If
+                If UCase(ctl.Name) = "CHK" + UCase(c.ColumnName) Then
+                    Dim dt As CheckBox
+                    dt = ctl
+                    Try
+                        dt.Checked = R(c.ColumnName)
+                        Exit For
+                    Catch
+                        dt.Checked = False
+                    End Try
+                End If
+            Catch ex As Exception
+                MsgBox(ex.Message + " / " + ctl.Name + " / " + R(c.ColumnName))
+            End Try
+
+        Next
+
+    End Sub
+   
+#End Region
+
+#Region "Daten speichern"
+
+    Public Sub Save_Data()
+        DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+        Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+
+        Save_Data_Controls(Me, r)
+        r("Mutiert_am") = Now
+        r("mutierer") = Globals.ActUser
+        DB.Update_Data()
+        Me.HasChanges = False
+    End Sub
+
+    Sub Save_Data_Controls(ByVal ictl As Control, ByRef r As DataRow)
+
+        For Each ctl As Control In ictl.Controls
+
+            If ctl.Controls.Count = 0 Or (ctl.Controls.Count = 1 And Microsoft.VisualBasic.Left(UCase(ctl.Name), 5) = "CBBOX") Then
+                Save_Data_for_Control(ctl, r)
+            Else
+                Save_Data_Controls(ctl, r)
+
+            End If
+        Next
+    End Sub
+
+    Sub Save_Data_for_Control(ByRef ctl As Control, ByRef r As DataRow)
+        Dim ctlname As String
+        Dim colname As String
+        ctlname = ctl.Name
+        Try
+            For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+                colname = c.ColumnName
+                If UCase(ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                    r(c.ColumnName) = ctl.Text
+                    Exit For
+                End If
+                If UCase(ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                    Dim ct As MyCombobox
+                    Dim o As Object = ctl
+                    Try
+                        If o.selectedvalue Is System.DBNull.Value Or o.selectedvalue Is Nothing Then
+                            r(c.ColumnName) = -1
+                        Else
+                            r(c.ColumnName) = o.selectedvalue
+                        End If
+                    Catch ex As Exception
+                        r(c.ColumnName) = -1
+                    End Try
+                    Exit For
+                End If
+                If UCase(ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                    Dim dt As DateTimePicker
+                    dt = ctl
+                    r(c.ColumnName) = dt.Value
+                    Exit For
+                End If
+                If UCase(ctl.Name) = "CHK" + UCase(c.ColumnName) Then
+                    Dim dt As CheckBox
+                    dt = ctl
+                    r(c.ColumnName) = dt.Checked
+                    Exit For
+                End If
+            Next
+
+        Catch ex As Exception
+            log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
+        End Try
+
+
+    End Sub
+
+
+
+
+
+#End Region
+
+  
+    Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
+        If Nr = Me.PatientNr Then
+            Me.Save_Data()
+        End If
+    End Sub
+End Class

DPM2016/Patient/PatientDetails.Designer.vb

@@ -0,0 +1,781 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class PatientDetails
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.txtnrprivat = New System.Windows.Forms.TextBox()
+        Me.lblNr = New System.Windows.Forms.Label()
+        Me.lblAnrede = New System.Windows.Forms.Label()
+        Me.lblTitel = New System.Windows.Forms.Label()
+        Me.txtMutierer = New System.Windows.Forms.TextBox()
+        Me.txtMutiert_am = New System.Windows.Forms.TextBox()
+        Me.txtErstellt_am = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.chklbAdresstyp = New System.Windows.Forms.CheckedListBox()
+        Me.txtBemerkung = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtFaxG = New System.Windows.Forms.TextBox()
+        Me.txtName = New System.Windows.Forms.TextBox()
+        Me.lbltelg = New System.Windows.Forms.Label()
+        Me.lblName = New System.Windows.Forms.Label()
+        Me.txtTelg = New System.Windows.Forms.TextBox()
+        Me.txtVorname = New System.Windows.Forms.TextBox()
+        Me.lblahv = New System.Windows.Forms.Label()
+        Me.txtahvnr = New System.Windows.Forms.TextBox()
+        Me.lblVorname = New System.Windows.Forms.Label()
+        Me.lblBeruf = New System.Windows.Forms.Label()
+        Me.txtBeruf = New System.Windows.Forms.TextBox()
+        Me.txtCOAdresse = New System.Windows.Forms.TextBox()
+        Me.lblArbeitgeber = New System.Windows.Forms.Label()
+        Me.lblCO = New System.Windows.Forms.Label()
+        Me.txtStrasse = New System.Windows.Forms.TextBox()
+        Me.lblSprache = New System.Windows.Forms.Label()
+        Me.lblStrasse = New System.Windows.Forms.Label()
+        Me.txtPLZ = New System.Windows.Forms.TextBox()
+        Me.lblStatus = New System.Windows.Forms.Label()
+        Me.lblPLZOrt = New System.Windows.Forms.Label()
+        Me.lblBriefanrede = New System.Windows.Forms.Label()
+        Me.txtOrt = New System.Windows.Forms.TextBox()
+        Me.txtBriefanrede = New System.Windows.Forms.TextBox()
+        Me.lblGebDat = New System.Windows.Forms.Label()
+        Me.lblGeschlecht = New System.Windows.Forms.Label()
+        Me.txttelp = New System.Windows.Forms.TextBox()
+        Me.lblInternet = New System.Windows.Forms.Label()
+        Me.lblTelefon = New System.Windows.Forms.Label()
+        Me.txtWeb = New System.Windows.Forms.TextBox()
+        Me.txtFaxp = New System.Windows.Forms.TextBox()
+        Me.lblemail = New System.Windows.Forms.Label()
+        Me.lblFaxP = New System.Windows.Forms.Label()
+        Me.txtE_Mail = New System.Windows.Forms.TextBox()
+        Me.txtNatel = New System.Windows.Forms.TextBox()
+        Me.lblMobile = New System.Windows.Forms.Label()
+        Me.dtgebdat = New System.Windows.Forms.DateTimePicker()
+        Me.dtGueltigab = New System.Windows.Forms.DateTimePicker()
+        Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker()
+        Me.cbboxNRArbeitgeber = New DPM2016.MyCombobox()
+        Me.cbboxNrGeschlecht = New DPM2016.MyCombobox()
+        Me.cbboxSprache = New DPM2016.MyCombobox()
+        Me.cbboxStatus = New DPM2016.MyCombobox()
+        Me.cbboxNRTitel = New DPM2016.MyCombobox()
+        Me.cbboxNrAnrede = New DPM2016.MyCombobox()
+        Me.SuspendLayout()
+        '
+        'txtnrprivat
+        '
+        Me.txtnrprivat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtnrprivat.Location = New System.Drawing.Point(74, 14)
+        Me.txtnrprivat.Name = "txtnrprivat"
+        Me.txtnrprivat.ReadOnly = True
+        Me.txtnrprivat.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.txtnrprivat.Size = New System.Drawing.Size(48, 20)
+        Me.txtnrprivat.TabIndex = 100
+        '
+        'lblNr
+        '
+        Me.lblNr.AutoSize = True
+        Me.lblNr.BackColor = System.Drawing.Color.Transparent
+        Me.lblNr.Location = New System.Drawing.Point(4, 16)
+        Me.lblNr.Name = "lblNr"
+        Me.lblNr.Size = New System.Drawing.Size(21, 13)
+        Me.lblNr.TabIndex = 103
+        Me.lblNr.Text = "Nr."
+        '
+        'lblAnrede
+        '
+        Me.lblAnrede.AutoSize = True
+        Me.lblAnrede.BackColor = System.Drawing.Color.Transparent
+        Me.lblAnrede.Location = New System.Drawing.Point(4, 41)
+        Me.lblAnrede.Name = "lblAnrede"
+        Me.lblAnrede.Size = New System.Drawing.Size(41, 13)
+        Me.lblAnrede.TabIndex = 104
+        Me.lblAnrede.Text = "Anrede"
+        '
+        'lblTitel
+        '
+        Me.lblTitel.AutoSize = True
+        Me.lblTitel.BackColor = System.Drawing.Color.Transparent
+        Me.lblTitel.Location = New System.Drawing.Point(4, 68)
+        Me.lblTitel.Name = "lblTitel"
+        Me.lblTitel.Size = New System.Drawing.Size(27, 13)
+        Me.lblTitel.TabIndex = 105
+        Me.lblTitel.Text = "Titel"
+        '
+        'txtMutierer
+        '
+        Me.txtMutierer.Location = New System.Drawing.Point(586, 257)
+        Me.txtMutierer.Name = "txtMutierer"
+        Me.txtMutierer.ReadOnly = True
+        Me.txtMutierer.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.txtMutierer.Size = New System.Drawing.Size(135, 20)
+        Me.txtMutierer.TabIndex = 207
+        '
+        'txtMutiert_am
+        '
+        Me.txtMutiert_am.Location = New System.Drawing.Point(586, 234)
+        Me.txtMutiert_am.Name = "txtMutiert_am"
+        Me.txtMutiert_am.ReadOnly = True
+        Me.txtMutiert_am.Size = New System.Drawing.Size(135, 20)
+        Me.txtMutiert_am.TabIndex = 206
+        '
+        'txtErstellt_am
+        '
+        Me.txtErstellt_am.Location = New System.Drawing.Point(586, 212)
+        Me.txtErstellt_am.Name = "txtErstellt_am"
+        Me.txtErstellt_am.ReadOnly = True
+        Me.txtErstellt_am.Size = New System.Drawing.Size(135, 20)
+        Me.txtErstellt_am.TabIndex = 205
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.BackColor = System.Drawing.Color.Transparent
+        Me.Label18.Location = New System.Drawing.Point(527, 260)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(45, 13)
+        Me.Label18.TabIndex = 204
+        Me.Label18.Text = "Mutierer"
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.BackColor = System.Drawing.Color.Transparent
+        Me.Label17.Location = New System.Drawing.Point(527, 237)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(56, 13)
+        Me.Label17.TabIndex = 203
+        Me.Label17.Text = "Mutiert am"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.BackColor = System.Drawing.Color.Transparent
+        Me.Label16.Location = New System.Drawing.Point(528, 215)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(55, 13)
+        Me.Label16.TabIndex = 202
+        Me.Label16.Text = "Erstellt am"
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.BackColor = System.Drawing.Color.Transparent
+        Me.Label15.Location = New System.Drawing.Point(272, 254)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(50, 13)
+        Me.Label15.TabIndex = 201
+        Me.Label15.Text = "Gültig bis"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.BackColor = System.Drawing.Color.Transparent
+        Me.Label14.Location = New System.Drawing.Point(272, 230)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(49, 13)
+        Me.Label14.TabIndex = 200
+        Me.Label14.Text = "Gültig ab"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.BackColor = System.Drawing.Color.Transparent
+        Me.Label13.Location = New System.Drawing.Point(527, 42)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(53, 13)
+        Me.Label13.TabIndex = 199
+        Me.Label13.Text = "Adresstyp"
+        '
+        'chklbAdresstyp
+        '
+        Me.chklbAdresstyp.FormattingEnabled = True
+        Me.chklbAdresstyp.Items.AddRange(New Object() {"Patient", "Garant", "Zahnarzt", "Ges. Vertreter", "Hausarzt", "Behandler", "DH-Patient", "Nicht annehmen", "Nicht aufbieten", "Betreibung vorhanden"})
+        Me.chklbAdresstyp.Location = New System.Drawing.Point(586, 39)
+        Me.chklbAdresstyp.Name = "chklbAdresstyp"
+        Me.chklbAdresstyp.Size = New System.Drawing.Size(137, 154)
+        Me.chklbAdresstyp.TabIndex = 26
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.Location = New System.Drawing.Point(275, 301)
+        Me.txtBemerkung.Multiline = True
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Size = New System.Drawing.Size(446, 101)
+        Me.txtBemerkung.TabIndex = 25
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.BackColor = System.Drawing.Color.Transparent
+        Me.Label2.Location = New System.Drawing.Point(272, 281)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(61, 13)
+        Me.Label2.TabIndex = 198
+        Me.Label2.Text = "Bemerkung"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.Transparent
+        Me.Label1.Location = New System.Drawing.Point(272, 200)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(38, 13)
+        Me.Label1.TabIndex = 197
+        Me.Label1.Text = "Fax G."
+        '
+        'txtFaxG
+        '
+        Me.txtFaxG.Location = New System.Drawing.Point(342, 197)
+        Me.txtFaxG.Name = "txtFaxG"
+        Me.txtFaxG.Size = New System.Drawing.Size(162, 20)
+        Me.txtFaxG.TabIndex = 22
+        '
+        'txtName
+        '
+        Me.txtName.Location = New System.Drawing.Point(74, 93)
+        Me.txtName.Name = "txtName"
+        Me.txtName.Size = New System.Drawing.Size(162, 20)
+        Me.txtName.TabIndex = 2
+        '
+        'lbltelg
+        '
+        Me.lbltelg.AutoSize = True
+        Me.lbltelg.BackColor = System.Drawing.Color.Transparent
+        Me.lbltelg.Location = New System.Drawing.Point(272, 174)
+        Me.lbltelg.Name = "lbltelg"
+        Me.lbltelg.Size = New System.Drawing.Size(57, 13)
+        Me.lbltelg.TabIndex = 196
+        Me.lbltelg.Text = "Telefon G."
+        '
+        'lblName
+        '
+        Me.lblName.AutoSize = True
+        Me.lblName.BackColor = System.Drawing.Color.Transparent
+        Me.lblName.Location = New System.Drawing.Point(4, 96)
+        Me.lblName.Name = "lblName"
+        Me.lblName.Size = New System.Drawing.Size(35, 13)
+        Me.lblName.TabIndex = 178
+        Me.lblName.Text = "Name"
+        '
+        'txtTelg
+        '
+        Me.txtTelg.Location = New System.Drawing.Point(342, 171)
+        Me.txtTelg.Name = "txtTelg"
+        Me.txtTelg.Size = New System.Drawing.Size(162, 20)
+        Me.txtTelg.TabIndex = 21
+        '
+        'txtVorname
+        '
+        Me.txtVorname.Location = New System.Drawing.Point(74, 119)
+        Me.txtVorname.Name = "txtVorname"
+        Me.txtVorname.Size = New System.Drawing.Size(162, 20)
+        Me.txtVorname.TabIndex = 3
+        '
+        'lblahv
+        '
+        Me.lblahv.AutoSize = True
+        Me.lblahv.BackColor = System.Drawing.Color.Transparent
+        Me.lblahv.Location = New System.Drawing.Point(272, 148)
+        Me.lblahv.Name = "lblahv"
+        Me.lblahv.Size = New System.Drawing.Size(43, 13)
+        Me.lblahv.TabIndex = 195
+        Me.lblahv.Text = "AHV-Nr"
+        '
+        'txtahvnr
+        '
+        Me.txtahvnr.Location = New System.Drawing.Point(342, 145)
+        Me.txtahvnr.Name = "txtahvnr"
+        Me.txtahvnr.Size = New System.Drawing.Size(162, 20)
+        Me.txtahvnr.TabIndex = 20
+        '
+        'lblVorname
+        '
+        Me.lblVorname.AutoSize = True
+        Me.lblVorname.BackColor = System.Drawing.Color.Transparent
+        Me.lblVorname.Location = New System.Drawing.Point(4, 122)
+        Me.lblVorname.Name = "lblVorname"
+        Me.lblVorname.Size = New System.Drawing.Size(49, 13)
+        Me.lblVorname.TabIndex = 179
+        Me.lblVorname.Text = "Vorname"
+        '
+        'lblBeruf
+        '
+        Me.lblBeruf.AutoSize = True
+        Me.lblBeruf.BackColor = System.Drawing.Color.Transparent
+        Me.lblBeruf.Location = New System.Drawing.Point(272, 122)
+        Me.lblBeruf.Name = "lblBeruf"
+        Me.lblBeruf.Size = New System.Drawing.Size(32, 13)
+        Me.lblBeruf.TabIndex = 194
+        Me.lblBeruf.Text = "Beruf"
+        '
+        'txtBeruf
+        '
+        Me.txtBeruf.Location = New System.Drawing.Point(342, 119)
+        Me.txtBeruf.Name = "txtBeruf"
+        Me.txtBeruf.Size = New System.Drawing.Size(162, 20)
+        Me.txtBeruf.TabIndex = 19
+        '
+        'txtCOAdresse
+        '
+        Me.txtCOAdresse.Location = New System.Drawing.Point(74, 145)
+        Me.txtCOAdresse.Name = "txtCOAdresse"
+        Me.txtCOAdresse.Size = New System.Drawing.Size(162, 20)
+        Me.txtCOAdresse.TabIndex = 4
+        '
+        'lblArbeitgeber
+        '
+        Me.lblArbeitgeber.AutoSize = True
+        Me.lblArbeitgeber.BackColor = System.Drawing.Color.Transparent
+        Me.lblArbeitgeber.Location = New System.Drawing.Point(272, 96)
+        Me.lblArbeitgeber.Name = "lblArbeitgeber"
+        Me.lblArbeitgeber.Size = New System.Drawing.Size(61, 13)
+        Me.lblArbeitgeber.TabIndex = 193
+        Me.lblArbeitgeber.Text = "Arbeitgeber"
+        '
+        'lblCO
+        '
+        Me.lblCO.AutoSize = True
+        Me.lblCO.BackColor = System.Drawing.Color.Transparent
+        Me.lblCO.Location = New System.Drawing.Point(4, 148)
+        Me.lblCO.Name = "lblCO"
+        Me.lblCO.Size = New System.Drawing.Size(27, 13)
+        Me.lblCO.TabIndex = 180
+        Me.lblCO.Text = "C/O"
+        '
+        'txtStrasse
+        '
+        Me.txtStrasse.Location = New System.Drawing.Point(74, 171)
+        Me.txtStrasse.Name = "txtStrasse"
+        Me.txtStrasse.Size = New System.Drawing.Size(162, 20)
+        Me.txtStrasse.TabIndex = 5
+        '
+        'lblSprache
+        '
+        Me.lblSprache.AutoSize = True
+        Me.lblSprache.BackColor = System.Drawing.Color.Transparent
+        Me.lblSprache.Location = New System.Drawing.Point(272, 69)
+        Me.lblSprache.Name = "lblSprache"
+        Me.lblSprache.Size = New System.Drawing.Size(47, 13)
+        Me.lblSprache.TabIndex = 192
+        Me.lblSprache.Text = "Sprache"
+        '
+        'lblStrasse
+        '
+        Me.lblStrasse.AutoSize = True
+        Me.lblStrasse.BackColor = System.Drawing.Color.Transparent
+        Me.lblStrasse.Location = New System.Drawing.Point(4, 174)
+        Me.lblStrasse.Name = "lblStrasse"
+        Me.lblStrasse.Size = New System.Drawing.Size(42, 13)
+        Me.lblStrasse.TabIndex = 181
+        Me.lblStrasse.Text = "Strasse"
+        '
+        'txtPLZ
+        '
+        Me.txtPLZ.Location = New System.Drawing.Point(74, 197)
+        Me.txtPLZ.Name = "txtPLZ"
+        Me.txtPLZ.Size = New System.Drawing.Size(48, 20)
+        Me.txtPLZ.TabIndex = 6
+        '
+        'lblStatus
+        '
+        Me.lblStatus.AutoSize = True
+        Me.lblStatus.BackColor = System.Drawing.Color.Transparent
+        Me.lblStatus.Location = New System.Drawing.Point(272, 42)
+        Me.lblStatus.Name = "lblStatus"
+        Me.lblStatus.Size = New System.Drawing.Size(37, 13)
+        Me.lblStatus.TabIndex = 191
+        Me.lblStatus.Text = "Status"
+        '
+        'lblPLZOrt
+        '
+        Me.lblPLZOrt.AutoSize = True
+        Me.lblPLZOrt.BackColor = System.Drawing.Color.Transparent
+        Me.lblPLZOrt.Location = New System.Drawing.Point(4, 200)
+        Me.lblPLZOrt.Name = "lblPLZOrt"
+        Me.lblPLZOrt.Size = New System.Drawing.Size(46, 13)
+        Me.lblPLZOrt.TabIndex = 182
+        Me.lblPLZOrt.Text = "PLZ/Ort"
+        '
+        'lblBriefanrede
+        '
+        Me.lblBriefanrede.AutoSize = True
+        Me.lblBriefanrede.BackColor = System.Drawing.Color.Transparent
+        Me.lblBriefanrede.Location = New System.Drawing.Point(4, 411)
+        Me.lblBriefanrede.Name = "lblBriefanrede"
+        Me.lblBriefanrede.Size = New System.Drawing.Size(65, 13)
+        Me.lblBriefanrede.TabIndex = 190
+        Me.lblBriefanrede.Text = "Brief-Anrede"
+        '
+        'txtOrt
+        '
+        Me.txtOrt.Location = New System.Drawing.Point(128, 197)
+        Me.txtOrt.Name = "txtOrt"
+        Me.txtOrt.Size = New System.Drawing.Size(108, 20)
+        Me.txtOrt.TabIndex = 7
+        '
+        'txtBriefanrede
+        '
+        Me.txtBriefanrede.Location = New System.Drawing.Point(74, 408)
+        Me.txtBriefanrede.Name = "txtBriefanrede"
+        Me.txtBriefanrede.Size = New System.Drawing.Size(647, 20)
+        Me.txtBriefanrede.TabIndex = 15
+        '
+        'lblGebDat
+        '
+        Me.lblGebDat.AutoSize = True
+        Me.lblGebDat.BackColor = System.Drawing.Color.Transparent
+        Me.lblGebDat.Location = New System.Drawing.Point(4, 229)
+        Me.lblGebDat.Name = "lblGebDat"
+        Me.lblGebDat.Size = New System.Drawing.Size(44, 13)
+        Me.lblGebDat.TabIndex = 183
+        Me.lblGebDat.Text = "GebDat"
+        '
+        'lblGeschlecht
+        '
+        Me.lblGeschlecht.AutoSize = True
+        Me.lblGeschlecht.BackColor = System.Drawing.Color.Transparent
+        Me.lblGeschlecht.Location = New System.Drawing.Point(4, 384)
+        Me.lblGeschlecht.Name = "lblGeschlecht"
+        Me.lblGeschlecht.Size = New System.Drawing.Size(61, 13)
+        Me.lblGeschlecht.TabIndex = 189
+        Me.lblGeschlecht.Text = "Geschlecht"
+        '
+        'txttelp
+        '
+        Me.txttelp.Location = New System.Drawing.Point(74, 251)
+        Me.txttelp.Name = "txttelp"
+        Me.txttelp.Size = New System.Drawing.Size(162, 20)
+        Me.txttelp.TabIndex = 9
+        '
+        'lblInternet
+        '
+        Me.lblInternet.AutoSize = True
+        Me.lblInternet.BackColor = System.Drawing.Color.Transparent
+        Me.lblInternet.Location = New System.Drawing.Point(4, 358)
+        Me.lblInternet.Name = "lblInternet"
+        Me.lblInternet.Size = New System.Drawing.Size(43, 13)
+        Me.lblInternet.TabIndex = 188
+        Me.lblInternet.Text = "Internet"
+        '
+        'lblTelefon
+        '
+        Me.lblTelefon.AutoSize = True
+        Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
+        Me.lblTelefon.Location = New System.Drawing.Point(4, 254)
+        Me.lblTelefon.Name = "lblTelefon"
+        Me.lblTelefon.Size = New System.Drawing.Size(55, 13)
+        Me.lblTelefon.TabIndex = 184
+        Me.lblTelefon.Text = "Telefon p."
+        '
+        'txtWeb
+        '
+        Me.txtWeb.Location = New System.Drawing.Point(74, 355)
+        Me.txtWeb.Name = "txtWeb"
+        Me.txtWeb.Size = New System.Drawing.Size(162, 20)
+        Me.txtWeb.TabIndex = 13
+        '
+        'txtFaxp
+        '
+        Me.txtFaxp.Location = New System.Drawing.Point(74, 277)
+        Me.txtFaxp.Name = "txtFaxp"
+        Me.txtFaxp.Size = New System.Drawing.Size(162, 20)
+        Me.txtFaxp.TabIndex = 10
+        '
+        'lblemail
+        '
+        Me.lblemail.AutoSize = True
+        Me.lblemail.BackColor = System.Drawing.Color.Transparent
+        Me.lblemail.Location = New System.Drawing.Point(4, 332)
+        Me.lblemail.Name = "lblemail"
+        Me.lblemail.Size = New System.Drawing.Size(36, 13)
+        Me.lblemail.TabIndex = 187
+        Me.lblemail.Text = "E-Mail"
+        '
+        'lblFaxP
+        '
+        Me.lblFaxP.AutoSize = True
+        Me.lblFaxP.BackColor = System.Drawing.Color.Transparent
+        Me.lblFaxP.Location = New System.Drawing.Point(4, 280)
+        Me.lblFaxP.Name = "lblFaxP"
+        Me.lblFaxP.Size = New System.Drawing.Size(36, 13)
+        Me.lblFaxP.TabIndex = 185
+        Me.lblFaxP.Text = "Fax p."
+        '
+        'txtE_Mail
+        '
+        Me.txtE_Mail.Location = New System.Drawing.Point(74, 329)
+        Me.txtE_Mail.Name = "txtE_Mail"
+        Me.txtE_Mail.Size = New System.Drawing.Size(162, 20)
+        Me.txtE_Mail.TabIndex = 12
+        '
+        'txtNatel
+        '
+        Me.txtNatel.Location = New System.Drawing.Point(74, 303)
+        Me.txtNatel.Name = "txtNatel"
+        Me.txtNatel.Size = New System.Drawing.Size(162, 20)
+        Me.txtNatel.TabIndex = 11
+        '
+        'lblMobile
+        '
+        Me.lblMobile.AutoSize = True
+        Me.lblMobile.BackColor = System.Drawing.Color.Transparent
+        Me.lblMobile.Location = New System.Drawing.Point(4, 306)
+        Me.lblMobile.Name = "lblMobile"
+        Me.lblMobile.Size = New System.Drawing.Size(38, 13)
+        Me.lblMobile.TabIndex = 186
+        Me.lblMobile.Text = "Mobile"
+        '
+        'dtgebdat
+        '
+        Me.dtgebdat.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtgebdat.Location = New System.Drawing.Point(74, 223)
+        Me.dtgebdat.Name = "dtgebdat"
+        Me.dtgebdat.Size = New System.Drawing.Size(162, 20)
+        Me.dtgebdat.TabIndex = 8
+        '
+        'dtGueltigab
+        '
+        Me.dtGueltigab.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtGueltigab.Location = New System.Drawing.Point(342, 225)
+        Me.dtGueltigab.Name = "dtGueltigab"
+        Me.dtGueltigab.Size = New System.Drawing.Size(162, 20)
+        Me.dtGueltigab.TabIndex = 23
+        '
+        'dtgueltigbis
+        '
+        Me.dtgueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtgueltigbis.Location = New System.Drawing.Point(342, 251)
+        Me.dtgueltigbis.Name = "dtgueltigbis"
+        Me.dtgueltigbis.Size = New System.Drawing.Size(162, 20)
+        Me.dtgueltigbis.TabIndex = 24
+        '
+        'cbboxNRArbeitgeber
+        '
+        Me.cbboxNRArbeitgeber.Dataselection = Nothing
+        Me.cbboxNRArbeitgeber.Displaymember = Nothing
+        Me.cbboxNRArbeitgeber.Location = New System.Drawing.Point(342, 91)
+        Me.cbboxNRArbeitgeber.Name = "cbboxNRArbeitgeber"
+        Me.cbboxNRArbeitgeber.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxNRArbeitgeber.TabIndex = 18
+        Me.cbboxNRArbeitgeber.Table = Nothing
+        Me.cbboxNRArbeitgeber.TableAlias = ""
+        Me.cbboxNRArbeitgeber.Valuemember = Nothing
+        '
+        'cbboxNrGeschlecht
+        '
+        Me.cbboxNrGeschlecht.Dataselection = Nothing
+        Me.cbboxNrGeschlecht.Displaymember = Nothing
+        Me.cbboxNrGeschlecht.Location = New System.Drawing.Point(74, 381)
+        Me.cbboxNrGeschlecht.Name = "cbboxNrGeschlecht"
+        Me.cbboxNrGeschlecht.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxNrGeschlecht.TabIndex = 14
+        Me.cbboxNrGeschlecht.Table = Nothing
+        Me.cbboxNrGeschlecht.TableAlias = ""
+        Me.cbboxNrGeschlecht.Valuemember = Nothing
+        '
+        'cbboxSprache
+        '
+        Me.cbboxSprache.Dataselection = Nothing
+        Me.cbboxSprache.Displaymember = Nothing
+        Me.cbboxSprache.Location = New System.Drawing.Point(342, 65)
+        Me.cbboxSprache.Name = "cbboxSprache"
+        Me.cbboxSprache.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxSprache.TabIndex = 17
+        Me.cbboxSprache.Table = Nothing
+        Me.cbboxSprache.TableAlias = ""
+        Me.cbboxSprache.Valuemember = Nothing
+        '
+        'cbboxStatus
+        '
+        Me.cbboxStatus.Dataselection = Nothing
+        Me.cbboxStatus.Displaymember = Nothing
+        Me.cbboxStatus.Location = New System.Drawing.Point(342, 38)
+        Me.cbboxStatus.Name = "cbboxStatus"
+        Me.cbboxStatus.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxStatus.TabIndex = 16
+        Me.cbboxStatus.Table = Nothing
+        Me.cbboxStatus.TableAlias = ""
+        Me.cbboxStatus.Valuemember = Nothing
+        '
+        'cbboxNRTitel
+        '
+        Me.cbboxNRTitel.Dataselection = Nothing
+        Me.cbboxNRTitel.Displaymember = Nothing
+        Me.cbboxNRTitel.Location = New System.Drawing.Point(74, 65)
+        Me.cbboxNRTitel.Name = "cbboxNRTitel"
+        Me.cbboxNRTitel.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxNRTitel.TabIndex = 1
+        Me.cbboxNRTitel.Table = Nothing
+        Me.cbboxNRTitel.TableAlias = ""
+        Me.cbboxNRTitel.Valuemember = Nothing
+        '
+        'cbboxNrAnrede
+        '
+        Me.cbboxNrAnrede.Dataselection = Nothing
+        Me.cbboxNrAnrede.Displaymember = Nothing
+        Me.cbboxNrAnrede.Location = New System.Drawing.Point(74, 38)
+        Me.cbboxNrAnrede.Name = "cbboxNrAnrede"
+        Me.cbboxNrAnrede.Size = New System.Drawing.Size(162, 21)
+        Me.cbboxNrAnrede.TabIndex = 0
+        Me.cbboxNrAnrede.Table = Nothing
+        Me.cbboxNrAnrede.TableAlias = ""
+        Me.cbboxNrAnrede.Valuemember = Nothing
+        '
+        'PatientDetails
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.cbboxNRArbeitgeber)
+        Me.Controls.Add(Me.cbboxNrGeschlecht)
+        Me.Controls.Add(Me.cbboxSprache)
+        Me.Controls.Add(Me.cbboxStatus)
+        Me.Controls.Add(Me.cbboxNRTitel)
+        Me.Controls.Add(Me.cbboxNrAnrede)
+        Me.Controls.Add(Me.dtgueltigbis)
+        Me.Controls.Add(Me.dtGueltigab)
+        Me.Controls.Add(Me.dtgebdat)
+        Me.Controls.Add(Me.txtMutierer)
+        Me.Controls.Add(Me.txtMutiert_am)
+        Me.Controls.Add(Me.txtErstellt_am)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.chklbAdresstyp)
+        Me.Controls.Add(Me.txtBemerkung)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtFaxG)
+        Me.Controls.Add(Me.txtName)
+        Me.Controls.Add(Me.lbltelg)
+        Me.Controls.Add(Me.lblName)
+        Me.Controls.Add(Me.txtTelg)
+        Me.Controls.Add(Me.txtVorname)
+        Me.Controls.Add(Me.lblahv)
+        Me.Controls.Add(Me.txtahvnr)
+        Me.Controls.Add(Me.lblVorname)
+        Me.Controls.Add(Me.lblBeruf)
+        Me.Controls.Add(Me.txtBeruf)
+        Me.Controls.Add(Me.txtCOAdresse)
+        Me.Controls.Add(Me.lblArbeitgeber)
+        Me.Controls.Add(Me.lblCO)
+        Me.Controls.Add(Me.txtStrasse)
+        Me.Controls.Add(Me.lblSprache)
+        Me.Controls.Add(Me.lblStrasse)
+        Me.Controls.Add(Me.txtPLZ)
+        Me.Controls.Add(Me.lblStatus)
+        Me.Controls.Add(Me.lblPLZOrt)
+        Me.Controls.Add(Me.lblBriefanrede)
+        Me.Controls.Add(Me.txtOrt)
+        Me.Controls.Add(Me.txtBriefanrede)
+        Me.Controls.Add(Me.lblGebDat)
+        Me.Controls.Add(Me.lblGeschlecht)
+        Me.Controls.Add(Me.txttelp)
+        Me.Controls.Add(Me.lblInternet)
+        Me.Controls.Add(Me.lblTelefon)
+        Me.Controls.Add(Me.txtWeb)
+        Me.Controls.Add(Me.txtFaxp)
+        Me.Controls.Add(Me.lblemail)
+        Me.Controls.Add(Me.lblFaxP)
+        Me.Controls.Add(Me.txtE_Mail)
+        Me.Controls.Add(Me.txtNatel)
+        Me.Controls.Add(Me.lblMobile)
+        Me.Controls.Add(Me.txtnrprivat)
+        Me.Controls.Add(Me.lblNr)
+        Me.Controls.Add(Me.lblAnrede)
+        Me.Controls.Add(Me.lblTitel)
+        Me.Name = "PatientDetails"
+        Me.Size = New System.Drawing.Size(737, 439)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtnrprivat As System.Windows.Forms.TextBox
+    Friend WithEvents lblNr As System.Windows.Forms.Label
+    Friend WithEvents lblAnrede As System.Windows.Forms.Label
+    Friend WithEvents lblTitel As System.Windows.Forms.Label
+    Friend WithEvents txtMutierer As System.Windows.Forms.TextBox
+    Friend WithEvents txtMutiert_am As System.Windows.Forms.TextBox
+    Friend WithEvents txtErstellt_am As System.Windows.Forms.TextBox
+    Friend WithEvents Label18 As System.Windows.Forms.Label
+    Friend WithEvents Label17 As System.Windows.Forms.Label
+    Friend WithEvents Label16 As System.Windows.Forms.Label
+    Friend WithEvents Label15 As System.Windows.Forms.Label
+    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents Label13 As System.Windows.Forms.Label
+    Friend WithEvents chklbAdresstyp As System.Windows.Forms.CheckedListBox
+    Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtFaxG As System.Windows.Forms.TextBox
+    Friend WithEvents txtName As System.Windows.Forms.TextBox
+    Friend WithEvents lbltelg As System.Windows.Forms.Label
+    Friend WithEvents lblName As System.Windows.Forms.Label
+    Friend WithEvents txtTelg As System.Windows.Forms.TextBox
+    Friend WithEvents txtVorname As System.Windows.Forms.TextBox
+    Friend WithEvents lblahv As System.Windows.Forms.Label
+    Friend WithEvents txtahvnr As System.Windows.Forms.TextBox
+    Friend WithEvents lblVorname As System.Windows.Forms.Label
+    Friend WithEvents lblBeruf As System.Windows.Forms.Label
+    Friend WithEvents txtBeruf As System.Windows.Forms.TextBox
+    Friend WithEvents txtCOAdresse As System.Windows.Forms.TextBox
+    Friend WithEvents lblArbeitgeber As System.Windows.Forms.Label
+    Friend WithEvents lblCO As System.Windows.Forms.Label
+    Friend WithEvents txtStrasse As System.Windows.Forms.TextBox
+    Friend WithEvents lblSprache As System.Windows.Forms.Label
+    Friend WithEvents lblStrasse As System.Windows.Forms.Label
+    Friend WithEvents txtPLZ As System.Windows.Forms.TextBox
+    Friend WithEvents lblStatus As System.Windows.Forms.Label
+    Friend WithEvents lblPLZOrt As System.Windows.Forms.Label
+    Friend WithEvents lblBriefanrede As System.Windows.Forms.Label
+    Friend WithEvents txtOrt As System.Windows.Forms.TextBox
+    Friend WithEvents txtBriefanrede As System.Windows.Forms.TextBox
+    Friend WithEvents lblGebDat As System.Windows.Forms.Label
+    Friend WithEvents lblGeschlecht As System.Windows.Forms.Label
+    Friend WithEvents txttelp As System.Windows.Forms.TextBox
+    Friend WithEvents lblInternet As System.Windows.Forms.Label
+    Friend WithEvents lblTelefon As System.Windows.Forms.Label
+    Friend WithEvents txtWeb As System.Windows.Forms.TextBox
+    Friend WithEvents txtFaxp As System.Windows.Forms.TextBox
+    Friend WithEvents lblemail As System.Windows.Forms.Label
+    Friend WithEvents lblFaxP As System.Windows.Forms.Label
+    Friend WithEvents txtE_Mail As System.Windows.Forms.TextBox
+    Friend WithEvents txtNatel As System.Windows.Forms.TextBox
+    Friend WithEvents lblMobile As System.Windows.Forms.Label
+    Friend WithEvents dtgebdat As System.Windows.Forms.DateTimePicker
+    Friend WithEvents dtGueltigab As System.Windows.Forms.DateTimePicker
+    Friend WithEvents dtgueltigbis As System.Windows.Forms.DateTimePicker
+    Friend WithEvents cbboxNrAnrede As DPM2016.MyCombobox
+    Friend WithEvents cbboxNRTitel As DPM2016.MyCombobox
+    Friend WithEvents cbboxStatus As DPM2016.MyCombobox
+    Friend WithEvents cbboxSprache As DPM2016.MyCombobox
+    Friend WithEvents cbboxNrGeschlecht As DPM2016.MyCombobox
+    Friend WithEvents cbboxNRArbeitgeber As DPM2016.MyCombobox
+
+End Class

DPM2016/Patient/PatientDetails.resx

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

DPM2016/Patient/PatientDetails.vb

@@ -0,0 +1,446 @@
+Imports DPM2016.MyCombobox
+Public Class PatientDetails
+
+#Region "Properties"
+    Dim m_patientnr As Integer
+
+    Property PatientNr As Integer
+        Get
+            Return m_patientnr
+        End Get
+        Set(value As Integer)
+            Try
+                m_patientnr = value
+                Fill_Stammdaten()
+                log.Writelog("Partnerdetails: Get_Data Start", clsLog.Logtype.Information)
+                Get_Data()
+                log.Writelog("Partnerdetails: Get_Data Ende", clsLog.Logtype.Information)
+                AddChanges(Me)
+                Me.HasChanges = False
+                Globals.EVH.Fire_PatName_Changed(Me.Patientname, Me.PatientNr)
+
+            Catch ex As Exception
+                log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
+            End Try
+        End Set
+    End Property
+
+    Dim m_patname As String
+    Property Patientname As String
+        Get
+            Return Me.txtnrprivat.Text + " " + Me.txtName.Text + " " + Me.txtVorname.Text + " " + Me.txtOrt.Text
+        End Get
+        Set(value As String)
+
+        End Set
+    End Property
+
+    Dim m_haschanges As Boolean
+    Property HasChanges As Boolean
+        Get
+            Return m_haschanges
+        End Get
+        Set(value As Boolean)
+            m_haschanges = value
+        End Set
+    End Property
+
+#End Region
+
+#Region "Deklarationen"
+    Dim DB As New clsDB
+    Dim FormReadonly As Boolean = False
+    Dim log As New clsLog
+    Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
+
+#End Region
+
+#Region "Closing / Check_Changes"
+
+    ''' <summary>
+    ''' Prüfung, ob Datenänderungen vorgenommen wurden. 
+    ''' </summary>
+    ''' <remarks></remarks>
+    Private Function Check_Changes() As Boolean
+        If Me.FormReadonly Then
+            Return True
+            Exit Function
+        End If
+        Dim msgres As MsgBoxResult
+        If Me.HasChanges Then
+            msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
+            Select Case msgres
+                Case MsgBoxResult.Yes
+                    Save_Data()
+                    Return True
+                Case MsgBoxResult.Cancel
+                    Return False
+                Case MsgBoxResult.No
+                    Me.HasChanges = False
+                    Return True
+            End Select
+        Else
+            Return True
+        End If
+    End Function
+
+#End Region
+
+#Region "Eventhandler ChangeEreignisse"
+    ''' <summary>
+    ''' Allg Eventhandler für Chanage-Ereignise festlegen
+    ''' </summary>
+    ''' <param name="Container"></param>
+    ''' <remarks></remarks>
+    Private Sub AddChanges(ByVal Container As Control)
+        Dim l As New List(Of Control)
+        Me.GetControl(Me, "*", l)
+        Dim evh As EventHandler = AddressOf ChangesMade
+        For Each c As Control In l
+            If TypeOf c Is TextBox Then
+                Dim ctl As TextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is MaskedTextBox Then
+                Dim ctl As MaskedTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is ComboBox Then
+                Dim ctl As ComboBox = c
+                AddHandler ctl.SelectedValueChanged, evh
+            End If
+            If TypeOf c Is RichTextBox Then
+                Dim ctl As RichTextBox = c
+                AddHandler ctl.TextChanged, evh
+            End If
+            If TypeOf c Is CheckBox Then
+                If c.Name <> "cboxNurAktive" Then
+                    Dim ctl As CheckBox = c
+                    AddHandler ctl.CheckedChanged, evh
+                End If
+            End If
+            If TypeOf c Is DateTimePicker Then
+                Dim ctl As DateTimePicker = c
+                AddHandler ctl.ValueChanged, evh
+            End If
+            If TypeOf c Is CheckedListBox Then
+                Dim ctl As CheckedListBox = c
+                AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
+            End If
+        Next
+    End Sub
+    ''' <summary>
+    ''' Envent-Handler für Change-Ereignisse
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    ''' <remarks></remarks>
+    Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
+        Me.HasChanges = True
+        Dim objtype As System.Type = sender.GetType
+        If objtype.Name = "MaskedTextBox" Then
+            Dim o As MaskedTextBox = sender
+            If o.Text = "01.01.1900" Then o.Text = "  .  .    "
+        End If
+    End Sub
+
+    Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
+        Me.HasChanges = True
+    End Sub
+
+
+    ''' <summary>
+    ''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
+    ''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
+    ''' </summary>
+    ''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
+    ''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
+    ''' <param name="L">Liste der gefundenen Objekte</param>
+    ''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
+    ''' </returns>
+    ''' <remarks></remarks>
+    Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
+        If L Is Nothing Then L = New List(Of Control)
+        Dim Gut As Boolean
+        Dim ReturnFlag As Boolean = False
+        If Key IsNot Nothing Then Key = Key.ToLower
+
+        If BaseControl.HasChildren = True Then
+            For Each ctl As Control In BaseControl.Controls
+                Gut = False
+                If Key Is Nothing Then
+                    Gut = True
+                Else
+                    If ctl.Name.Length >= Key.Length Then
+                        Key = Key.ToLower
+                        If Key.StartsWith("*") Then
+                            If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
+                        ElseIf Key.EndsWith("*") Then
+                            If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
+                        Else
+                            If Key = ctl.Name.ToLower Then Gut = True
+                        End If
+                    End If
+                End If
+
+                If Gut = True Then
+                    L.Add(ctl)
+                    If ReturnAtFirstElement = True Then ReturnFlag = True
+                End If
+                If ReturnFlag = False Then
+                    Call GetControl(ctl, Key, L)
+                End If
+            Next
+        End If
+
+        If L.Count - 1 > -1 Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+#End Region
+
+#Region "Daten_Laden"
+
+    Public Sub Fill_Stammdaten()
+        log.Writelog("PartnerDetails: Fill_Stammdaten", clsLog.Logtype.Information)
+        Me.cbboxNrAnrede.Table = "Anrede"
+        Me.cbboxNrAnrede.Displaymember = "Anrede_D"
+        Me.cbboxNrAnrede.Valuemember = "NRANREDE"
+
+        Me.cbboxNRTitel.Table = "Titel"
+        Me.cbboxNRTitel.Displaymember = "Titel_D"
+        Me.cbboxNRTitel.Valuemember = "NRTITEL"
+
+        Me.cbboxSprache.Table = "Sprache"
+        Me.cbboxSprache.Displaymember = "Sprachbezeichnung"
+        Me.cbboxSprache.Valuemember = "Sprachcode"
+
+        Me.cbboxStatus.Table = "Status"
+        Me.cbboxStatus.Displaymember = "Status"
+        Me.cbboxStatus.Valuemember = "nrstatus"
+
+        Me.cbboxNrGeschlecht.Table = "Geschlecht"
+        Me.cbboxNrGeschlecht.Displaymember = "Geschlecht"
+        Me.cbboxNrGeschlecht.Valuemember = "NrGeschlecht"
+
+        Me.cbboxNRArbeitgeber.Dataselection = DB.Get_SQL(1)
+        Me.cbboxNRArbeitgeber.Table = "Arbeitgeber"
+        Me.cbboxNRArbeitgeber.Displaymember = "Firmenname"
+        Me.cbboxNRArbeitgeber.Valuemember = "nrfirma"
+
+        log.Writelog("PartnerDetails: Fill_Stammdaten Ende", clsLog.Logtype.Information)
+
+    End Sub
+
+    Sub Get_Data()
+        Dim ctlname As String
+        Dim colname As String
+        Try
+            DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+            Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+            For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+                colname = c.ColumnName
+                For Each Ctl As Control In Me.Controls
+                    'Dim objtype As System.Type = Ctl.GetType
+                    'If objtype.Name = "Label" Then
+                    '    Exit For
+                    'End If
+                    ctlname = Ctl.Name
+                    log.Writelog("Partnerdtails: Get_Data: " + Ctl.Name, clsLog.Logtype.Information)
+                    If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Ctl.Text = r(c.ColumnName).ToString
+                        Exit For
+                    End If
+                    If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim ct As MyCombobox
+                        Dim o As Object = Ctl
+                        Try
+                            o.SelectedValue = r(c.ColumnName)
+                        Catch
+                            o.SelectedValue = -1
+                        End Try
+
+                        Exit For
+                    End If
+                    If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                        log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
+                        Dim dt As DateTimePicker
+                        dt = Ctl
+                        Try
+                            dt.Value = r(c.ColumnName)
+                        Catch
+                        End Try
+
+                        Exit For
+                    End If
+                Next
+
+                Select Case LCase(c.ColumnName)
+                    Case "patient"
+                        Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                        log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    Case "garant"
+                        Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                        log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    Case "gesvertreter"
+                        Set_Adresstype("Ges. Vertreter", r(c.ColumnName).ToString)
+                        log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    Case "hausarzt"
+                        Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                        log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    Case "zahnarzt"
+                        Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                        log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    Case "behandler"
+                        Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
+                        log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    Case "dhpat"
+                        Set_Adresstype("DH-Patient", r(c.ColumnName).ToString)
+                        log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    Case "nichtaufbieten"
+                        Set_Adresstype("Nicht Aufbieten", r(c.ColumnName).ToString)
+                        log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    Case "nichtannehmen"
+                        Set_Adresstype("Nicht annehmen", r(c.ColumnName).ToString)
+                        log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                    Case "betreibung"
+                        Set_Adresstype("Betreibung vorhanden", r(c.ColumnName).ToString)
+                        log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
+                End Select
+            Next
+        Catch ex As Exception
+            log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
+        End Try
+    End Sub
+
+    Private Sub Set_Adresstype(ByVal feldname, value)
+        Dim i As Integer
+        For i = 0 To Me.chklbAdresstyp.Items.Count - 1
+            If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
+                Try
+                    If value <> False Then chklbAdresstyp.SetItemCheckState(i, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
+
+                Catch ex As Exception
+                    chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
+
+                End Try
+            End If
+        Next
+    End Sub
+
+#End Region
+
+#Region "Daten speichern"
+
+    Public Sub Save_Data()
+        DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
+        Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
+
+        For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
+            For Each Ctl As Control In Me.Controls
+                If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
+                    If UCase(Ctl.Name) <> "TXTMUTIERT_AM" And UCase(Ctl.Name) <> "TXTERSTLLT_AM" Then
+                        r(c.ColumnName) = Ctl.Text
+                        Exit For
+                    End If
+                End If
+                If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
+                    Dim ct As MyCombobox
+                    Dim o As Object = Ctl
+                    Try
+                        r(c.ColumnName) = o.selectedvalue
+                    Catch ex As Exception
+                        r(c.ColumnName) = 0
+                    End Try
+                    Exit For
+                End If
+                If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
+                    Dim dt As DateTimePicker
+                    dt = Ctl
+                    r(c.ColumnName) = dt.Value
+                    Exit For
+                End If
+            Next
+            Select Case LCase(c.ColumnName)
+                Case "patient"
+                    r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                Case "garant"
+                    r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                Case "gesvertreter"
+                    r(c.ColumnName) = Get_Adresstype("Ges. Vertreter", r(c.ColumnName))
+                Case "hausarzt"
+                    r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                Case "zahnarzt"
+                    r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                Case "behandler"
+                    r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
+                Case "dhpat"
+                    r(c.ColumnName) = Get_Adresstype("DH-Patient", r(c.ColumnName))
+                Case "nichtaufbieten"
+                    r(c.ColumnName) = Get_Adresstype("nicht aufbieten", r(c.ColumnName))
+                Case "nichtannehmen"
+                    r(c.ColumnName) = Get_Adresstype("nicht annehmen", r(c.ColumnName))
+                Case "betreibung"
+                    r(c.ColumnName) = Get_Adresstype("Betreibung vorhanden", r(c.ColumnName))
+            End Select
+        Next
+        r("Mutiert_am") = Now
+        r("mutierer") = Globals.ActUser
+        DB.Update_Data()
+        Me.HasChanges = False
+
+    End Sub
+
+    Private Function Get_Adresstype(ByVal feldname, value) As Integer
+        Try
+            Dim i As Integer
+            For i = 0 To Me.chklbAdresstyp.Items.Count - 1
+                If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
+                    Return chklbAdresstyp.GetItemChecked(i)
+                End If
+            Next
+        Catch
+            Return -1
+        End Try
+
+    End Function
+
+
+
+#End Region
+
+    Public Function Create_new()
+
+    End Function
+
+
+    Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
+        If Nr = Me.PatientNr Then
+            Me.Save_Data()
+        End If
+    End Sub
+
+    Private Sub cbboxNrAnrede_Leave(sender As Object, e As EventArgs) Handles txtVorname.Leave, txtName.Leave, cbboxNrAnrede.Leave, cbboxNRTitel.Leave
+        Dim alt As String = Me.txtBriefanrede.Text
+        Dim neu As String
+        If Me.cbboxNrAnrede.Text = "Frau" Then
+            neu = "Sehr geehrte Frau "
+            If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
+            neu = neu + Me.txtName.Text
+        Else
+            neu = "Sehr geehrter Herr "
+            If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
+            neu = neu + Me.txtName.Text
+        End If
+        If alt <> neu Then Me.txtBriefanrede.Text = neu
+    End Sub
+
+   
+    Private Sub txtPLZ_Leave(sender As Object, e As EventArgs) Handles txtPLZ.Leave
+        If Me.txtOrt.Text = "" Then Me.txtOrt.Text = IntTables.GetOrt(Me.txtPLZ.Text)
+    End Sub
+End Class