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