Update 6.12.23

2023-12-06 20:21:17 +01:00
parent bedd741642
commit f2cb99bb17
152 changed files with 19555 additions and 18732 deletions
--- a/DPM2016/Patient/frmPrivatAnsprechpartner.vb
+++ b/DPM2016/Patient/frmPrivatAnsprechpartner.vb
@@ -0,0 +1,105 @@
+Public Class frmPrivatAnsprechpartner
+    Dim db As New clsDB
+    Dim m_nrprivat As Integer
+    Property nrprivat As Integer
+        Get
+            Return m_nrprivat
+        End Get
+        Set(value As Integer)
+            m_nrprivat = value
+        End Set
+    End Property
+
+    Dim m_id As Integer
+    Property id As Integer
+        Get
+            Return m_id
+        End Get
+        Set(value As Integer)
+            m_id = value
+        End Set
+    End Property
+
+    Dim m_isnew As Boolean
+    Property is_new As Boolean
+        Get
+            Return m_isnew
+        End Get
+        Set(value As Boolean)
+            m_isnew = value
+        End Set
+    End Property
+
+    Private Sub frmPrivatAnsprechpartner_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If id > 0 Then
+            db.Get_Tabledata("Ansprechpartner", "", "Select * from privat_ansprechpartner where id=" + Me.id.ToString)
+            Fill_Form()
+        End If
+
+        If is_new Then
+            db.Get_Tabledata("Ansprechpartner", "", "Select top 1 * from privat_ansprechpartner order by id desc")
+            Dim idnew As Integer
+            If db.dsDaten.Tables(0).Rows.Count = 0 Then idnew = 1 Else idnew = db.dsDaten.Tables(0).Rows(0).Item(0) + 1
+            Me.id = idnew
+            db.Exec_SQL("Insert Privat_Ansprechpartner (id,nrprivat, erstellt_am, mutiert_am, mutierer,aktiv) values(" + idnew.ToString + "," + Me.nrprivat.ToString + ",'" + Now.ToString + "','" + Now.ToString + "'," + Globals.ActUser.ToString + ",1)")
+            db.Get_Tabledata("Ansprechpartner", "", "Select * from privat_ansprechpartner where id=" + Me.id.ToString)
+            Me.txtName.Text = ""
+            Me.txtadresse1.Text = ""
+            Me.txtadresse2.Text = ""
+            Me.txtPLZ.Text = ""
+            Me.txtOrt.Text = ""
+            Me.txttelp.Text = ""
+            Me.txtE_Mail.Text = ""
+            Me.txtBemerkung.Text = ""
+            Me.txtErstellt_am.Text = Now.ToString
+            Me.txtMutiert_am.Text = Now.ToString
+            Me.txtMutierer.Text = Globals.ActUser
+            Me.id = idnew
+            update_data()
+        End If
+    End Sub
+
+    Private Sub Fill_Form()
+        Me.txtName.Text = db.dsDaten.Tables(0).Rows(0).Item("Name")
+        Me.txtadresse1.Text = db.dsDaten.Tables(0).Rows(0).Item("Adresse1")
+        Me.txtadresse2.Text = db.dsDaten.Tables(0).Rows(0).Item("adresse2")
+        Me.txtadresse3.Text = db.dsDaten.Tables(0).Rows(0).Item("adresse3")
+        Me.txtstrasse.Text = db.dsDaten.Tables(0).Rows(0).Item("strasse")
+        Me.txtPLZ.Text = db.dsDaten.Tables(0).Rows(0).Item("plz")
+        Me.txtOrt.Text = db.dsDaten.Tables(0).Rows(0).Item("ort")
+        Me.txttelp.Text = db.dsDaten.Tables(0).Rows(0).Item("telefon")
+        Me.txtE_Mail.Text = db.dsDaten.Tables(0).Rows(0).Item("email")
+        Me.txtBemerkung.Text = db.dsDaten.Tables(0).Rows(0).Item("bemerkung")
+        Me.txtErstellt_am.Text = db.dsDaten.Tables(0).Rows(0).Item("erstellt_am").ToString
+        Me.txtMutiert_am.Text = db.dsDaten.Tables(0).Rows(0).Item("mutiert_am").ToString
+        Me.txtMutierer.Text = db.dsDaten.Tables(0).Rows(0).Item("mutierer").ToString
+    End Sub
+
+    Sub update_data()
+        db.dsDaten.Tables(0).Rows(0).Item("Name") = Me.txtName.Text
+        db.dsDaten.Tables(0).Rows(0).Item("Adresse1") = Me.txtadresse1.Text
+        db.dsDaten.Tables(0).Rows(0).Item("adresse2") = Me.txtadresse2.Text
+        db.dsDaten.Tables(0).Rows(0).Item("adresse3") = Me.txtadresse3.Text
+        db.dsDaten.Tables(0).Rows(0).Item("strasse") = Me.txtstrasse.Text
+        db.dsDaten.Tables(0).Rows(0).Item("plz") = Me.txtPLZ.Text
+        db.dsDaten.Tables(0).Rows(0).Item("ort") = Me.txtOrt.Text
+        db.dsDaten.Tables(0).Rows(0).Item("telefon") = Me.txttelp.Text
+        db.dsDaten.Tables(0).Rows(0).Item("email") = Me.txtE_Mail.Text
+        db.dsDaten.Tables(0).Rows(0).Item("bemerkung") = Me.txtBemerkung.Text
+        db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
+        db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
+        db.Update_Data()
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        update_data()
+        Me.DialogResult = DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.DialogResult = DialogResult.Cancel
+        Me.Close()
+    End Sub
+End Class