Imports System.Data.Odbc

Public Class FormController
    Private Shared instance As FormController
    Private formGridGeladen As Boolean = False

    Private _formGrid As FormGrid
    Private _formDetail As FormDetail
    Private _formLabel As FormLabel
    Private _formReworkRedenen As FormReworkRedenen
    Private _formReworkTrayPrinter As FormReworkTrayPrinter
    Private _formSelectID As FormSelectID
    Private _formConfigsWijzigen As FormConfigsWijzigen
    'SUBMENU
    Private _formSpecialMenu As FormSpecialMenu
    Private _formTestLade As FormLades
    Private _formVoorraadAanmaken As FormVoorraad
    Private _formStaal As FormStalen
    Private _formSpecialLade As FormSifonLade
    Private _formSpecialDiepteVerschil As FormDiepteVerschil
    Private _formSpecialHoogteVerschil As FormHoogteVerschil
    Private _formKleurVervangen As FormKleurVervangen

    Private _sender As Form

    Public Shared Function getInstance() As FormController
        If instance Is Nothing Then
            instance = New FormController
        End If
        Return instance
    End Function

    Private Sub New()
        Try
            _formGrid = New FormGrid
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Environment.Exit(0)
        End Try
    End Sub

    Private Sub registreerVorigeForm(form As Form)
        _sender = form
    End Sub

    Public Sub registreerFormSelectId(form As FormSelectID)
        _formSelectID = form
    End Sub

    'LADEN VAN VORIGE FORM
    Public Sub laadVorige(sender As Form)
        Dim originalSender As Form = _sender
        registreerVorigeForm(sender)
        originalSender.Show()

        _sender.Hide()
    End Sub

    'LADEN VAN FORMSELECTID

    Public Sub laadFormSelectID(sender As Form)
        registreerVorigeForm(sender)
        _formSelectID.Show()

        _sender.Hide()
    End Sub

    Public Function formSelectIDKanTerug() As Boolean
        Return formGridGeladen
    End Function

    'LADEN VAN FORMCONFIGSWIJZIGEN
    Public Sub laadFormConfigsWijzigen(sender As Form)
        _formConfigsWijzigen = New FormConfigsWijzigen
        _formConfigsWijzigen.ShowDialog()
    End Sub

    'LADEN VAN FORMDETAIL
    Public Sub laadFormDetail(sender As Form, barcode As String)
        registreerVorigeForm(sender)

        _formDetail = New FormDetail()
        _formDetail.laadData(barcode)

        _formDetail.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMGRID
    Private _kolom As Kolommen
    Private _waarde As Object
    Private _dataReader As Object

    Public Sub laadFormGrid(sender As Form)
        registreerVorigeForm(sender)

        _formGrid.Show()
        _sender.Hide()
    End Sub

    Public Sub laadEnRefreshFormGrid(sender As Form)
        registreerVorigeForm(sender)

        _formGrid.laadData(_kolom, _waarde)

        _formGrid.Show()
        _sender.Hide()
    End Sub

    Public Sub LaadFormGrid(sender As Form, reden() As String)
        registreerVorigeForm(sender)

        _formGrid.voegReworkRedenToe(reden)

        _formGrid.Show()
        _sender.Hide()
    End Sub

    Public Sub LaadFormGrid(sender As Form, kolom As Kolommen, waarde As Object, dataReader As Object)
        formGridGeladen = True

        registreerVorigeForm(sender)

        _kolom = kolom
        _waarde = waarde
        _dataReader = dataReader

        _formGrid.laadData(_kolom, _waarde, dataReader)

        _formGrid.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMLABEL
    Public Sub laadFormLabel(sender As Form, Optional barcode As String = "")
        registreerVorigeForm(sender)

        _formLabel = New FormLabel()
        _formLabel.laadData(barcode)

        _formLabel.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMREWORKREDENEN
    Public Sub laadFormReworkRedenen(sender As Form, onderdeel As String)
        registreerVorigeForm(sender)

        _formReworkRedenen = New FormReworkRedenen()
        _formReworkRedenen.laadData(onderdeel)

        _formReworkRedenen.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMREWORKTRAYPRINTER
    Public Sub laadFormReworkTrayPrinter(sender As Form)
        registreerVorigeForm(sender)

        _formReworkTrayPrinter = New FormReworkTrayPrinter()

        _formReworkTrayPrinter.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMSPECIALMENU
    Public Sub laadFormSpecialMenu(sender As Form)
        registreerVorigeForm(sender)

        _formSpecialMenu = New FormSpecialMenu()

        _formSpecialMenu.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMTESTLADE
    Public Sub laadFormLades(sender As Form)
        registreerVorigeForm(sender)

        _formTestLade = New FormLades()

        _formTestLade.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMTESTLADE
    Public Sub laadFormVoorraad(sender As Form)
        registreerVorigeForm(sender)

        _formVoorraadAanmaken = New FormVoorraad()

        _formVoorraadAanmaken.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMSTAAL
    Public Sub laadFormStalen(sender As Form)
        registreerVorigeForm(sender)

        _formStaal = New FormStalen()

        _formStaal.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMSPECIALLADE
    Public Sub laadFormSifonEnSpoelbakLade(sender As Form)
        registreerVorigeForm(sender)

        _formSpecialLade = New FormSifonLade()

        _formSpecialLade.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMSPECIALDIEPTEVERSCHIL
    Public Sub laadFormDiepteVerschil(sender As Form)
        registreerVorigeForm(sender)

        _formSpecialDiepteVerschil = New FormDiepteVerschil()

        _formSpecialDiepteVerschil.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMSPECIALHOOGTEVERSCHIL
    Public Sub laadFormHoogteVerschil(sender As Form)
        registreerVorigeForm(sender)

        _formSpecialHoogteVerschil = New FormHoogteVerschil()

        _formSpecialHoogteVerschil.Show()
        _sender.Hide()
    End Sub

    'LADEN VAN FORMKLEURVERVANGEN
    Public Sub laadFormKleurVervangen(sender As Form)
        registreerVorigeForm(sender)

        _formKleurVervangen = New FormKleurVervangen()

        _formKleurVervangen.Show()
        _sender.Hide()
    End Sub

End Class