Imports Mediatheek.data
Imports Mediatheek.DataAcces

Public Class frmOntlenerBeheer
    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 PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents lvwOntleners As System.Windows.Forms.ListView
    Friend WithEvents btnOntlenerVerwijderen As System.Windows.Forms.Button
    Friend WithEvents btnOntlenerwijzigen As System.Windows.Forms.Button
    Friend WithEvents btnOntlenerToevoegen As System.Windows.Forms.Button
    Friend WithEvents clhVoornaam As System.Windows.Forms.ColumnHeader
    Friend WithEvents clhAchternaam As System.Windows.Forms.ColumnHeader
    Friend WithEvents clhAdres As System.Windows.Forms.ColumnHeader
    Friend WithEvents clhPostcode As System.Windows.Forms.ColumnHeader
    Friend WithEvents clhGemeente As System.Windows.Forms.ColumnHeader
    Friend WithEvents clhGeboorteDatum As System.Windows.Forms.ColumnHeader
    Friend WithEvents clhTelefoon As System.Windows.Forms.ColumnHeader
    Friend WithEvents clhEmail As System.Windows.Forms.ColumnHeader
    Friend WithEvents btnStatestiekTonen As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmOntlenerBeheer))
        Me.lvwOntleners = New System.Windows.Forms.ListView
        Me.clhAchternaam = New System.Windows.Forms.ColumnHeader
        Me.clhVoornaam = New System.Windows.Forms.ColumnHeader
        Me.clhAdres = New System.Windows.Forms.ColumnHeader
        Me.clhPostcode = New System.Windows.Forms.ColumnHeader
        Me.clhGemeente = New System.Windows.Forms.ColumnHeader
        Me.clhGeboorteDatum = New System.Windows.Forms.ColumnHeader
        Me.clhTelefoon = New System.Windows.Forms.ColumnHeader
        Me.clhEmail = New System.Windows.Forms.ColumnHeader
        Me.btnOntlenerVerwijderen = New System.Windows.Forms.Button
        Me.btnOntlenerwijzigen = New System.Windows.Forms.Button
        Me.btnOntlenerToevoegen = New System.Windows.Forms.Button
        Me.PictureBox1 = New System.Windows.Forms.PictureBox
        Me.btnStatestiekTonen = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'lvwOntleners
        '
        Me.lvwOntleners.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.clhAchternaam, Me.clhVoornaam, Me.clhAdres, Me.clhPostcode, Me.clhGemeente, Me.clhGeboorteDatum, Me.clhTelefoon, Me.clhEmail})
        Me.lvwOntleners.FullRowSelect = True
        Me.lvwOntleners.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
        Me.lvwOntleners.Location = New System.Drawing.Point(8, 112)
        Me.lvwOntleners.MultiSelect = False
        Me.lvwOntleners.Name = "lvwOntleners"
        Me.lvwOntleners.Size = New System.Drawing.Size(856, 208)
        Me.lvwOntleners.Sorting = System.Windows.Forms.SortOrder.Ascending
        Me.lvwOntleners.TabIndex = 21
        Me.lvwOntleners.View = System.Windows.Forms.View.Details
        '
        'clhAchternaam
        '
        Me.clhAchternaam.Text = "Achternaam"
        Me.clhAchternaam.Width = 100
        '
        'clhVoornaam
        '
        Me.clhVoornaam.Text = "Voornaam"
        Me.clhVoornaam.Width = 80
        '
        'clhAdres
        '
        Me.clhAdres.Text = "Adres"
        Me.clhAdres.Width = 140
        '
        'clhPostcode
        '
        Me.clhPostcode.Text = "Postcode"
        '
        'clhGemeente
        '
        Me.clhGemeente.Text = "Gemeente"
        Me.clhGemeente.Width = 100
        '
        'clhGeboorteDatum
        '
        Me.clhGeboorteDatum.Text = "Geboortedatum"
        Me.clhGeboorteDatum.Width = 90
        '
        'clhTelefoon
        '
        Me.clhTelefoon.Text = "Telefoon"
        Me.clhTelefoon.Width = 92
        '
        'clhEmail
        '
        Me.clhEmail.Text = "E-mail"
        Me.clhEmail.Width = 170
        '
        'btnOntlenerVerwijderen
        '
        Me.btnOntlenerVerwijderen.Location = New System.Drawing.Point(304, 328)
        Me.btnOntlenerVerwijderen.Name = "btnOntlenerVerwijderen"
        Me.btnOntlenerVerwijderen.Size = New System.Drawing.Size(104, 23)
        Me.btnOntlenerVerwijderen.TabIndex = 24
        Me.btnOntlenerVerwijderen.Text = "Verwijder ontlener"
        '
        'btnOntlenerwijzigen
        '
        Me.btnOntlenerwijzigen.Location = New System.Drawing.Point(160, 328)
        Me.btnOntlenerwijzigen.Name = "btnOntlenerwijzigen"
        Me.btnOntlenerwijzigen.Size = New System.Drawing.Size(104, 23)
        Me.btnOntlenerwijzigen.TabIndex = 23
        Me.btnOntlenerwijzigen.Text = "Wijzig ontlener"
        '
        'btnOntlenerToevoegen
        '
        Me.btnOntlenerToevoegen.Location = New System.Drawing.Point(16, 328)
        Me.btnOntlenerToevoegen.Name = "btnOntlenerToevoegen"
        Me.btnOntlenerToevoegen.Size = New System.Drawing.Size(104, 23)
        Me.btnOntlenerToevoegen.TabIndex = 22
        Me.btnOntlenerToevoegen.Text = "Nieuwe ontlener"
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(872, 96)
        Me.PictureBox1.TabIndex = 26
        Me.PictureBox1.TabStop = False
        '
        'btnStatestiekTonen
        '
        Me.btnStatestiekTonen.Location = New System.Drawing.Point(448, 328)
        Me.btnStatestiekTonen.Name = "btnStatestiekTonen"
        Me.btnStatestiekTonen.Size = New System.Drawing.Size(104, 23)
        Me.btnStatestiekTonen.TabIndex = 27
        Me.btnStatestiekTonen.Text = "Statestiek"
        '
        'frmOntlenerBeheer
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(872, 366)
        Me.Controls.Add(Me.btnStatestiekTonen)
        Me.Controls.Add(Me.PictureBox1)
        Me.Controls.Add(Me.btnOntlenerVerwijderen)
        Me.Controls.Add(Me.btnOntlenerwijzigen)
        Me.Controls.Add(Me.btnOntlenerToevoegen)
        Me.Controls.Add(Me.lvwOntleners)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "frmOntlenerBeheer"
        Me.Text = "Ontlener beheer"
        Me.ResumeLayout(False)

    End Sub

#End Region


#Region "Opvulling"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        listviewopvullen()

    End Sub

    Private Sub listviewopvullen()
        'alle ontleners komen in een listview
        lvwOntleners.Items.Clear()

        Dim arlOntleners As ArrayList
        arlOntleners = clsOntlenerDA.GetOntleners

        For Each oOntlener As clsOntlener In arlOntleners

            Dim olitm As ListViewItem

            olitm = New ListViewItem

            olitm.Text = oOntlener.AchterNaam
            olitm.SubItems.Add(oOntlener.VoorNaam)
            olitm.SubItems.Add(oOntlener.Adres)
            olitm.SubItems.Add(oOntlener.PostCode)
            olitm.SubItems.Add(oOntlener.Gemeente)
            olitm.SubItems.Add(oOntlener.GeboorteDatum)
            olitm.SubItems.Add(oOntlener.Telefoon)
            olitm.SubItems.Add(oOntlener.Email)
            olitm.Tag = oOntlener
            lvwOntleners.Items.Add(olitm)

        Next
    End Sub


#End Region

#Region "BUTTONS"
    'alle buttons krijgen een handler
    Private Sub btnOntlenerToevoegen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOntlenerToevoegen.Click
        Dim oNieuweOntlener As New frmOntlenerToevoegen
        AddHandler oNieuweOntlener.OntlenerToegevoegd, AddressOf listviewopvullen
        oNieuweOntlener.Show()
    End Sub
    Private Sub btnOntlenerwijzigen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOntlenerwijzigen.Click
        Dim oWijzigOntlener As New frmOntlenerWijzigen
        AddHandler oWijzigOntlener.OntlenerGewijzigd, AddressOf listviewopvullen
        oWijzigOntlener.Show()
    End Sub

    Private Sub btnStatestiekTonen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStatestiekTonen.Click
        Dim oStatestiek As New frmStatestiek
        oStatestiek.Show()
    End Sub

#End Region

#Region "Verwijderen"

    Private Sub btnOntlenerVerwijderen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOntlenerVerwijderen.Click
        Dim response As MsgBoxResult
        response = MsgBox("Bent U zeker dat U de ontlener wil verwijderen?  Alle ontleningen met deze ontlener worden mede verwijderd !  ", MsgBoxStyle.YesNo, "Confirmatie verwijder ontlener ")

        If response = MsgBoxResult.Yes Then

            voeruitopdatabaseverwijder()
        ElseIf response = MsgBoxResult.No Then
            'do nothing
        End If

    End Sub
    Private Sub voeruitopdatabaseverwijder()
        'hier wordt het item uit de database verwijderd
        Try

            Dim olitm As ListViewItem
            Dim oOntlener As clsOntlener
            For Each oItem As ListViewItem In lvwOntleners.SelectedItems
                oOntlener = oItem.Tag
                clsOntlenerDA.VerwijderOntleningenByOntlenerID(oOntlener.Id)
                clsOntlenerDA.VerwijderOntlener(oOntlener.Id)
            Next

            listviewopvullen()

        Catch ex As Exception
            MessageBox.Show("Er trad een onverwachte fout op bij het verwijderen van de ontlener")
        Finally

        End Try
    End Sub

#End Region


End Class
