Imports Mediatheek.data
Imports Mediatheek.DataAcces

Public Class frmOntlenerToevoegen
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents txtToevoegId As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents txtNieuweOntAchterNaam As System.Windows.Forms.TextBox
    Friend WithEvents txtNieuweOntVoorNaam As System.Windows.Forms.TextBox
    Friend WithEvents txtNieuweOntStraat As System.Windows.Forms.TextBox
    Friend WithEvents txtNieuweOntNr As System.Windows.Forms.TextBox
    Friend WithEvents cboNieuweOntGemeente As System.Windows.Forms.ComboBox
    Friend WithEvents txtNieuweOntPostcode As System.Windows.Forms.TextBox
    Friend WithEvents txtNieuweOntEmail As System.Windows.Forms.TextBox
    Friend WithEvents txtNieuweOntTelefoon As System.Windows.Forms.TextBox
    Friend WithEvents txtNieuweOntGeboorteMaand As System.Windows.Forms.TextBox
    Friend WithEvents txtNieuweOntGeboorteJaar As System.Windows.Forms.TextBox
    Friend WithEvents txtNieuweOntGeboorteDag As System.Windows.Forms.TextBox
    Friend WithEvents btnOntlenerToevoegenToevoegen As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmOntlenerToevoegen))
        Me.Label5 = New System.Windows.Forms.Label
        Me.txtToevoegId = New System.Windows.Forms.TextBox
        Me.btnOntlenerToevoegenToevoegen = New System.Windows.Forms.Button
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.txtNieuweOntEmail = New System.Windows.Forms.TextBox
        Me.Label13 = New System.Windows.Forms.Label
        Me.txtNieuweOntTelefoon = New System.Windows.Forms.TextBox
        Me.Label11 = New System.Windows.Forms.Label
        Me.txtNieuweOntGeboorteMaand = New System.Windows.Forms.TextBox
        Me.txtNieuweOntGeboorteJaar = New System.Windows.Forms.TextBox
        Me.Label10 = New System.Windows.Forms.Label
        Me.Label9 = New System.Windows.Forms.Label
        Me.txtNieuweOntGeboorteDag = New System.Windows.Forms.TextBox
        Me.Label8 = New System.Windows.Forms.Label
        Me.txtNieuweOntPostcode = New System.Windows.Forms.TextBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.cboNieuweOntGemeente = New System.Windows.Forms.ComboBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.txtNieuweOntNr = New System.Windows.Forms.TextBox
        Me.Label3 = New System.Windows.Forms.Label
        Me.txtNieuweOntStraat = New System.Windows.Forms.TextBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.txtNieuweOntAchterNaam = New System.Windows.Forms.TextBox
        Me.txtNieuweOntVoorNaam = New System.Windows.Forms.TextBox
        Me.PictureBox1 = New System.Windows.Forms.PictureBox
        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(23, 416)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(24, 23)
        Me.Label5.TabIndex = 23
        Me.Label5.Text = "ID"
        '
        'txtToevoegId
        '
        Me.txtToevoegId.Location = New System.Drawing.Point(63, 416)
        Me.txtToevoegId.Name = "txtToevoegId"
        Me.txtToevoegId.ReadOnly = True
        Me.txtToevoegId.Size = New System.Drawing.Size(48, 20)
        Me.txtToevoegId.TabIndex = 22
        Me.txtToevoegId.Text = ""
        '
        'btnOntlenerToevoegenToevoegen
        '
        Me.btnOntlenerToevoegenToevoegen.Location = New System.Drawing.Point(311, 416)
        Me.btnOntlenerToevoegenToevoegen.Name = "btnOntlenerToevoegenToevoegen"
        Me.btnOntlenerToevoegenToevoegen.Size = New System.Drawing.Size(104, 23)
        Me.btnOntlenerToevoegenToevoegen.TabIndex = 21
        Me.btnOntlenerToevoegenToevoegen.Text = "Toevoegen"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.txtNieuweOntEmail)
        Me.GroupBox1.Controls.Add(Me.Label13)
        Me.GroupBox1.Controls.Add(Me.txtNieuweOntTelefoon)
        Me.GroupBox1.Controls.Add(Me.Label11)
        Me.GroupBox1.Controls.Add(Me.txtNieuweOntGeboorteMaand)
        Me.GroupBox1.Controls.Add(Me.txtNieuweOntGeboorteJaar)
        Me.GroupBox1.Controls.Add(Me.Label10)
        Me.GroupBox1.Controls.Add(Me.Label9)
        Me.GroupBox1.Controls.Add(Me.txtNieuweOntGeboorteDag)
        Me.GroupBox1.Controls.Add(Me.Label8)
        Me.GroupBox1.Controls.Add(Me.txtNieuweOntPostcode)
        Me.GroupBox1.Controls.Add(Me.Label7)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.cboNieuweOntGemeente)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.txtNieuweOntNr)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.txtNieuweOntStraat)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Controls.Add(Me.txtNieuweOntAchterNaam)
        Me.GroupBox1.Controls.Add(Me.txtNieuweOntVoorNaam)
        Me.GroupBox1.Location = New System.Drawing.Point(8, 96)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(433, 296)
        Me.GroupBox1.TabIndex = 20
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Voeg een ontlener toe"
        '
        'txtNieuweOntEmail
        '
        Me.txtNieuweOntEmail.Location = New System.Drawing.Point(136, 256)
        Me.txtNieuweOntEmail.Name = "txtNieuweOntEmail"
        Me.txtNieuweOntEmail.Size = New System.Drawing.Size(144, 20)
        Me.txtNieuweOntEmail.TabIndex = 20
        Me.txtNieuweOntEmail.Text = ""
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(24, 256)
        Me.Label13.Name = "Label13"
        Me.Label13.TabIndex = 25
        Me.Label13.Text = "E-mail"
        '
        'txtNieuweOntTelefoon
        '
        Me.txtNieuweOntTelefoon.Location = New System.Drawing.Point(136, 224)
        Me.txtNieuweOntTelefoon.Name = "txtNieuweOntTelefoon"
        Me.txtNieuweOntTelefoon.Size = New System.Drawing.Size(144, 20)
        Me.txtNieuweOntTelefoon.TabIndex = 19
        Me.txtNieuweOntTelefoon.Text = ""
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(24, 224)
        Me.Label11.Name = "Label11"
        Me.Label11.TabIndex = 22
        Me.Label11.Text = "Telefoon"
        '
        'txtNieuweOntGeboorteMaand
        '
        Me.txtNieuweOntGeboorteMaand.Location = New System.Drawing.Point(184, 192)
        Me.txtNieuweOntGeboorteMaand.Name = "txtNieuweOntGeboorteMaand"
        Me.txtNieuweOntGeboorteMaand.Size = New System.Drawing.Size(24, 20)
        Me.txtNieuweOntGeboorteMaand.TabIndex = 17
        Me.txtNieuweOntGeboorteMaand.Text = ""
        '
        'txtNieuweOntGeboorteJaar
        '
        Me.txtNieuweOntGeboorteJaar.Location = New System.Drawing.Point(232, 192)
        Me.txtNieuweOntGeboorteJaar.Name = "txtNieuweOntGeboorteJaar"
        Me.txtNieuweOntGeboorteJaar.Size = New System.Drawing.Size(40, 20)
        Me.txtNieuweOntGeboorteJaar.TabIndex = 18
        Me.txtNieuweOntGeboorteJaar.Text = ""
        '
        'Label10
        '
        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!)
        Me.Label10.Location = New System.Drawing.Point(216, 192)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(16, 24)
        Me.Label10.TabIndex = 19
        Me.Label10.Text = "/"
        '
        'Label9
        '
        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!)
        Me.Label9.Location = New System.Drawing.Point(168, 192)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(16, 24)
        Me.Label9.TabIndex = 17
        Me.Label9.Text = "/"
        '
        'txtNieuweOntGeboorteDag
        '
        Me.txtNieuweOntGeboorteDag.Location = New System.Drawing.Point(136, 192)
        Me.txtNieuweOntGeboorteDag.Name = "txtNieuweOntGeboorteDag"
        Me.txtNieuweOntGeboorteDag.Size = New System.Drawing.Size(24, 20)
        Me.txtNieuweOntGeboorteDag.TabIndex = 16
        Me.txtNieuweOntGeboorteDag.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(24, 192)
        Me.Label8.Name = "Label8"
        Me.Label8.TabIndex = 15
        Me.Label8.Text = "Geboortedatum"
        '
        'txtNieuweOntPostcode
        '
        Me.txtNieuweOntPostcode.Enabled = False
        Me.txtNieuweOntPostcode.Location = New System.Drawing.Point(360, 144)
        Me.txtNieuweOntPostcode.Name = "txtNieuweOntPostcode"
        Me.txtNieuweOntPostcode.ReadOnly = True
        Me.txtNieuweOntPostcode.Size = New System.Drawing.Size(56, 20)
        Me.txtNieuweOntPostcode.TabIndex = 14
        Me.txtNieuweOntPostcode.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(296, 144)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 23)
        Me.Label7.TabIndex = 13
        Me.Label7.Text = "Postcode"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(24, 144)
        Me.Label6.Name = "Label6"
        Me.Label6.TabIndex = 12
        Me.Label6.Text = "Gemeente"
        '
        'cboNieuweOntGemeente
        '
        Me.cboNieuweOntGemeente.Location = New System.Drawing.Point(136, 144)
        Me.cboNieuweOntGemeente.Name = "cboNieuweOntGemeente"
        Me.cboNieuweOntGemeente.Size = New System.Drawing.Size(144, 21)
        Me.cboNieuweOntGemeente.TabIndex = 11
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(296, 112)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(40, 23)
        Me.Label4.TabIndex = 10
        Me.Label4.Text = "Nr."
        '
        'txtNieuweOntNr
        '
        Me.txtNieuweOntNr.Location = New System.Drawing.Point(360, 112)
        Me.txtNieuweOntNr.Name = "txtNieuweOntNr"
        Me.txtNieuweOntNr.Size = New System.Drawing.Size(56, 20)
        Me.txtNieuweOntNr.TabIndex = 9
        Me.txtNieuweOntNr.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(24, 112)
        Me.Label3.Name = "Label3"
        Me.Label3.TabIndex = 8
        Me.Label3.Text = "Straat"
        '
        'txtNieuweOntStraat
        '
        Me.txtNieuweOntStraat.Location = New System.Drawing.Point(136, 112)
        Me.txtNieuweOntStraat.Name = "txtNieuweOntStraat"
        Me.txtNieuweOntStraat.Size = New System.Drawing.Size(144, 20)
        Me.txtNieuweOntStraat.TabIndex = 7
        Me.txtNieuweOntStraat.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(24, 56)
        Me.Label2.Name = "Label2"
        Me.Label2.TabIndex = 6
        Me.Label2.Text = "Acthernaam"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(24, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.TabIndex = 5
        Me.Label1.Text = "Voornaam"
        '
        'txtNieuweOntAchterNaam
        '
        Me.txtNieuweOntAchterNaam.Location = New System.Drawing.Point(136, 56)
        Me.txtNieuweOntAchterNaam.Name = "txtNieuweOntAchterNaam"
        Me.txtNieuweOntAchterNaam.Size = New System.Drawing.Size(144, 20)
        Me.txtNieuweOntAchterNaam.TabIndex = 4
        Me.txtNieuweOntAchterNaam.Text = ""
        '
        'txtNieuweOntVoorNaam
        '
        Me.txtNieuweOntVoorNaam.Location = New System.Drawing.Point(136, 24)
        Me.txtNieuweOntVoorNaam.Name = "txtNieuweOntVoorNaam"
        Me.txtNieuweOntVoorNaam.Size = New System.Drawing.Size(144, 20)
        Me.txtNieuweOntVoorNaam.TabIndex = 3
        Me.txtNieuweOntVoorNaam.Text = ""
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(-1, 0)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(457, 80)
        Me.PictureBox1.TabIndex = 24
        Me.PictureBox1.TabStop = False
        '
        'frmOntlenerToevoegen
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(450, 464)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.txtToevoegId)
        Me.Controls.Add(Me.btnOntlenerToevoegenToevoegen)
        Me.Controls.Add(Me.GroupBox1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "frmOntlenerToevoegen"
        Me.Text = "Ontlener toevoegen"
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Event OntlenerToegevoegd()
    Dim miKeyDown As Integer = 0

#Region "Opvulling"

    Private Sub frmOntlenerToevoegen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
            txtNieuweOntEmail.Text = "none"
            comboboxgemeenteopvullen()

       
    End Sub

    Private Sub comboboxgemeenteopvullen()
        'cbo wordt met gemeentes opgevuld
        Dim arlGemeentes As ArrayList
        arlGemeentes = clsGemeenteDA.GetGemeentes
        For Each oGemeente As clsGemeente In arlGemeentes
            cboNieuweOntGemeente.Items.Add(oGemeente.Gemeente)
        Next

        toevoegidingeven()
    End Sub
    Private Sub cboNieuweOntGemeente_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboNieuweOntGemeente.SelectedIndexChanged
        zoekovereenkomstigpostcode()
    End Sub

    Private Sub zoekovereenkomstigpostcode()
        'als men gemeente gekozen heeft wordt de overeenkomstige postcode ingevuld
        Dim sGekozen As String
        sGekozen = cboNieuweOntGemeente.Text

        Dim arlGemeentes As ArrayList
        arlGemeentes = clsGemeenteDA.GetPostcode2(sGekozen)

        For Each oGemeente As clsGemeente In arlGemeentes
            txtNieuweOntPostcode.Text = oGemeente.PostCode

        Next

    End Sub


#End Region
   
#Region "Toevoegen"
    Private Sub btnOntlenerToevoegenToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOntlenerToevoegenToevoegen.Click

        If miKeyDown = 1 Then
            MsgBox("Gelieve geldige gegevens in te vullen ( o.a. door een geldige keuze te maken in keuzelijst van gemeente ) !  ")
            cboNieuweOntGemeente.Text = ""
            miKeyDown = 0

        Else
            'hier wordt een controle op het max aantal chars per gegeven gecontroleerd
            Dim sVoornaam, sAchternaam, sStraat, sNr, sDag, sMaand, sJaar, sTelefoon, sEmail As String
            sVoornaam = txtNieuweOntVoorNaam.Text.Trim
            sAchternaam = txtNieuweOntAchterNaam.Text.Trim
            sStraat = txtNieuweOntStraat.Text.Trim
            sNr = txtNieuweOntNr.Text.Trim
            sDag = txtNieuweOntGeboorteDag.Text.Trim
            sMaand = txtNieuweOntGeboorteMaand.Text.Trim
            sJaar = txtNieuweOntGeboorteJaar.Text.Trim
            sTelefoon = txtNieuweOntTelefoon.Text.Trim
            sEmail = txtNieuweOntEmail.Text.Trim

            'If sVoornaam.Length < 30 And sAchternaam.Length < 30 And sStraat.Length < 30 And sNr.Length < 4 And sDag.Length = 2 And sMaand.Length = 2 And sJaar.Length = 4 And sTelefoon.Length < 10 And sEmail.Length < 30 Then
            If checkMaxChar(sVoornaam, 30) And checkMaxChar(sAchternaam, 30) _
            And checkMaxChar(sStraat, 30) And checkMaxChar(sNr, 4) _
            And checkMaxChar(sDag, 2) And checkMaxChar(sMaand, 2) _
            And checkMaxChar(sJaar, 4) And checkMaxChar(sTelefoon, 10) _
            And checkMaxChar(sEmail, 30) Then

                controlegegevensuitvoeren()

            Else
                'MsgBox("Het max aantal in te voegen karakters is 30 per invoegvak , voor geboortedatum gelieve de volgende schrijfwijze te respecteren: dd/mm/jj ! ")
                'txtboxledigen()
            End If
        End If
        

    End Sub

    Private Function checkMaxChar(ByVal sString As String, ByVal iMax As Integer) As Boolean
        If sString.Length > iMax Then
            MsgBox(sString & " is geen geldige ingave." & vbCrLf & vbCrLf & "Gelieve niet meer dan " & iMax & " karakters in te vullen.", MsgBoxStyle.OKOnly, "Ongeldige invoergegevens.")
            Return False
        Else
            Return True
        End If
    End Function

    Private Sub controlegegevensuitvoeren()
        'controle als alle gegevens ingevuld zijn
        If txtNieuweOntVoorNaam.Text <> "" And txtNieuweOntAchterNaam.Text <> "" And txtNieuweOntStraat.Text <> "" And txtNieuweOntNr.Text <> "" And cboNieuweOntGemeente.Text <> "" And IsNumeric(txtNieuweOntGeboorteDag.Text) And IsNumeric(txtNieuweOntGeboorteMaand.Text) And IsNumeric(txtNieuweOntGeboorteJaar.Text) And txtNieuweOntTelefoon.Text <> "" And txtNieuweOntEmail.Text <> "" Then
            controlebestaand()
        Else
            MsgBox("Gelieve geldige waarden in te geven !")
        End If

    End Sub
    Private Sub toevoegidingeven()
        'het nieuwe id wordt gezocht
        Dim nieuweid As Integer = 0

        Dim arlOntleners As ArrayList
        arlOntleners = clsOntlenerDA.GetOntleners

        For Each oOntlener As clsOntlener In arlOntleners
            nieuweid += 1
        Next
        nieuweid += 1
        txtToevoegId.Text = Convert.ToString(nieuweid)


    End Sub


    Private Sub controlebestaand()
        'hier wordt een controle gemaakt als de ontlener al bestaat of niet
        Dim oOntlener2 As New clsOntlener(txtToevoegId.Text, txtNieuweOntVoorNaam.Text, txtNieuweOntAchterNaam.Text, txtNieuweOntStraat.Text & " " & txtNieuweOntNr.Text, txtNieuweOntPostcode.Text, cboNieuweOntGemeente.Text, txtNieuweOntGeboorteDag.Text & "/" & txtNieuweOntGeboorteMaand.Text & "/" & txtNieuweOntGeboorteJaar.Text, txtNieuweOntTelefoon.Text, txtNieuweOntEmail.Text)

        Dim arlOntleners As ArrayList
        arlOntleners = clsOntlenerDA.GetOntleners
        Dim uitvoeren As Integer = 0

        For Each oOntlener As clsOntlener In arlOntleners
            If oOntlener.Id = oOntlener2.Id And oOntlener.VoorNaam = oOntlener2.VoorNaam And oOntlener.AchterNaam = oOntlener2.AchterNaam And oOntlener.Adres = oOntlener2.Adres And oOntlener.PostCode = oOntlener2.PostCode And oOntlener.Gemeente = oOntlener2.Gemeente And oOntlener.GeboorteDatum = oOntlener2.GeboorteDatum And oOntlener.Telefoon = oOntlener2.Telefoon And oOntlener.Email = oOntlener2.Email Then
                MsgBox("De ontlener die u wilt toevoegen bestaat al!")
                txtboxledigen()
                uitvoeren = 1
            End If

        Next
        If uitvoeren = 0 Then
            voeruitopdatabase()
        End If

    End Sub

    Private Sub voeruitopdatabase()
        'hier wordt de ontlener toegevoegd op de database
        Try
            Dim oOntlener As New clsOntlener(txtToevoegId.Text, txtNieuweOntVoorNaam.Text, txtNieuweOntAchterNaam.Text, txtNieuweOntStraat.Text & " " & txtNieuweOntNr.Text, txtNieuweOntPostcode.Text, cboNieuweOntGemeente.Text, txtNieuweOntGeboorteDag.Text & "/" & txtNieuweOntGeboorteMaand.Text & "/" & txtNieuweOntGeboorteJaar.Text, txtNieuweOntTelefoon.Text, txtNieuweOntEmail.Text)

            clsOntlenerDA.VoegOntlener(oOntlener)

            txtboxledigen()
            RaiseEvent OntlenerToegevoegd()
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.OKOnly, "Er trad een onverwachte fout op bij het toevoegen van de ontlener")

        End Try
    End Sub
#End Region
   

    Public Sub txtboxledigen()
        txtNieuweOntVoorNaam.Text = ""
        txtNieuweOntAchterNaam.Text = ""
        txtNieuweOntStraat.Text = ""
        txtNieuweOntNr.Text = ""
        txtNieuweOntPostcode.Text = ""
        txtNieuweOntGeboorteDag.Text = ""
        txtNieuweOntGeboorteMaand.Text = ""
        txtNieuweOntGeboorteJaar.Text = ""
        txtNieuweOntTelefoon.Text = ""
        txtNieuweOntEmail.Text = ""
        toevoegidingeven()
    End Sub


   
    Private Sub cboNieuweOntGemeente_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboNieuweOntGemeente.KeyDown
        miKeyDown = 1
    End Sub
End Class
