Public Class Form1
    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 daBrouwers As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents conBieren As System.Data.OleDb.OleDbConnection
    Friend WithEvents DsBrouwers1 As eersteOefening.dsBrouwers
    Friend WithEvents lblBrouwers As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents lblAdres As System.Windows.Forms.Label
    Friend WithEvents lblPostcode As System.Windows.Forms.Label
    Friend WithEvents lblGemeente As System.Windows.Forms.Label
    Friend WithEvents lblOmzet As System.Windows.Forms.Label
    Friend WithEvents txtBrouwer As System.Windows.Forms.TextBox
    Friend WithEvents txtNaam As System.Windows.Forms.TextBox
    Friend WithEvents txtAdres As System.Windows.Forms.TextBox
    Friend WithEvents txtPostcode As System.Windows.Forms.TextBox
    Friend WithEvents txtGemeente As System.Windows.Forms.TextBox
    Friend WithEvents txtOmzet As System.Windows.Forms.TextBox
    Friend WithEvents cmdGegOphalen As System.Windows.Forms.Button
    Friend WithEvents cmdEerste As System.Windows.Forms.Button
    Friend WithEvents cmdVolgende As System.Windows.Forms.Button
    Friend WithEvents cmdVorige As System.Windows.Forms.Button
    Friend WithEvents cmdLaatste As System.Windows.Forms.Button
    Friend WithEvents lblRecord As System.Windows.Forms.Label
    Friend WithEvents cmbBrouwers As System.Windows.Forms.ComboBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.daBrouwers = New System.Data.OleDb.OleDbDataAdapter()
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.conBieren = New System.Data.OleDb.OleDbConnection()
        Me.DsBrouwers1 = New eersteOefening.dsBrouwers()
        Me.lblBrouwers = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.lblAdres = New System.Windows.Forms.Label()
        Me.lblPostcode = New System.Windows.Forms.Label()
        Me.lblGemeente = New System.Windows.Forms.Label()
        Me.lblOmzet = New System.Windows.Forms.Label()
        Me.txtBrouwer = New System.Windows.Forms.TextBox()
        Me.txtNaam = New System.Windows.Forms.TextBox()
        Me.txtAdres = New System.Windows.Forms.TextBox()
        Me.txtPostcode = New System.Windows.Forms.TextBox()
        Me.txtGemeente = New System.Windows.Forms.TextBox()
        Me.txtOmzet = New System.Windows.Forms.TextBox()
        Me.cmdGegOphalen = New System.Windows.Forms.Button()
        Me.cmdEerste = New System.Windows.Forms.Button()
        Me.cmdVolgende = New System.Windows.Forms.Button()
        Me.cmdVorige = New System.Windows.Forms.Button()
        Me.cmdLaatste = New System.Windows.Forms.Button()
        Me.lblRecord = New System.Windows.Forms.Label()
        Me.cmbBrouwers = New System.Windows.Forms.ComboBox()
        CType(Me.DsBrouwers1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'daBrouwers
        '
        Me.daBrouwers.SelectCommand = Me.OleDbSelectCommand1
        Me.daBrouwers.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Brouwers", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("BrouwerNummer", "BrouwerNummer"), New System.Data.Common.DataColumnMapping("Naam", "Naam"), New System.Data.Common.DataColumnMapping("Adres", "Adres"), New System.Data.Common.DataColumnMapping("PostCode", "PostCode"), New System.Data.Common.DataColumnMapping("Gemeente", "Gemeente"), New System.Data.Common.DataColumnMapping("Omzet", "Omzet")})})
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT Brouwers.BrouwerNr AS BrouwerNummer, Brouwers.Naam, Brouwers.Adres, Brouwe" & _
        "rs.PostCode, Gemeenten.Gemeente, Brouwers.Omzet, Gemeenten.Postcode AS Expr1 FRO" & _
        "M Brouwers INNER JOIN Gemeenten ON Brouwers.PostCode = Gemeenten.Postcode"
        Me.OleDbSelectCommand1.Connection = Me.conBieren
        '
        'conBieren
        '
        Me.conBieren.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\school " & _
        "2\RAD\Bieren.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System da" & _
        "tabase="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:En" & _
        "gine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=" & _
        "2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OL" & _
        "EDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'" & _
        "t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Je" & _
        "t OLEDB:SFP=False"
        '
        'DsBrouwers1
        '
        Me.DsBrouwers1.DataSetName = "dsBrouwers"
        Me.DsBrouwers1.Locale = New System.Globalization.CultureInfo("nl-BE")
        Me.DsBrouwers1.Namespace = "http://www.tempuri.org/dsBrouwers.xsd"
        '
        'lblBrouwers
        '
        Me.lblBrouwers.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblBrouwers.Location = New System.Drawing.Point(48, 24)
        Me.lblBrouwers.Name = "lblBrouwers"
        Me.lblBrouwers.Size = New System.Drawing.Size(64, 24)
        Me.lblBrouwers.TabIndex = 0
        Me.lblBrouwers.Text = "Brouwers"
        '
        'Label1
        '
        Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label1.Location = New System.Drawing.Point(48, 56)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(64, 24)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Naam"
        '
        'lblAdres
        '
        Me.lblAdres.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblAdres.Location = New System.Drawing.Point(48, 88)
        Me.lblAdres.Name = "lblAdres"
        Me.lblAdres.Size = New System.Drawing.Size(64, 24)
        Me.lblAdres.TabIndex = 2
        Me.lblAdres.Text = "Adres"
        '
        'lblPostcode
        '
        Me.lblPostcode.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblPostcode.Location = New System.Drawing.Point(48, 120)
        Me.lblPostcode.Name = "lblPostcode"
        Me.lblPostcode.Size = New System.Drawing.Size(64, 24)
        Me.lblPostcode.TabIndex = 3
        Me.lblPostcode.Text = "Postcode"
        '
        'lblGemeente
        '
        Me.lblGemeente.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblGemeente.Location = New System.Drawing.Point(48, 152)
        Me.lblGemeente.Name = "lblGemeente"
        Me.lblGemeente.Size = New System.Drawing.Size(64, 24)
        Me.lblGemeente.TabIndex = 4
        Me.lblGemeente.Text = "Gemeente"
        '
        'lblOmzet
        '
        Me.lblOmzet.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblOmzet.Location = New System.Drawing.Point(48, 184)
        Me.lblOmzet.Name = "lblOmzet"
        Me.lblOmzet.Size = New System.Drawing.Size(64, 24)
        Me.lblOmzet.TabIndex = 5
        Me.lblOmzet.Text = "Omzet"
        '
        'txtBrouwer
        '
        Me.txtBrouwer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsBrouwers1, "Brouwers.BrouwerNummer"))
        Me.txtBrouwer.Location = New System.Drawing.Point(112, 24)
        Me.txtBrouwer.Name = "txtBrouwer"
        Me.txtBrouwer.Size = New System.Drawing.Size(152, 20)
        Me.txtBrouwer.TabIndex = 6
        Me.txtBrouwer.Text = ""
        '
        'txtNaam
        '
        Me.txtNaam.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsBrouwers1, "Brouwers.Naam"))
        Me.txtNaam.Location = New System.Drawing.Point(112, 56)
        Me.txtNaam.Name = "txtNaam"
        Me.txtNaam.Size = New System.Drawing.Size(152, 20)
        Me.txtNaam.TabIndex = 7
        Me.txtNaam.Text = ""
        '
        'txtAdres
        '
        Me.txtAdres.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsBrouwers1, "Brouwers.Adres"))
        Me.txtAdres.Location = New System.Drawing.Point(112, 88)
        Me.txtAdres.Name = "txtAdres"
        Me.txtAdres.Size = New System.Drawing.Size(152, 20)
        Me.txtAdres.TabIndex = 8
        Me.txtAdres.Text = ""
        '
        'txtPostcode
        '
        Me.txtPostcode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsBrouwers1, "Brouwers.PostCode"))
        Me.txtPostcode.Location = New System.Drawing.Point(112, 120)
        Me.txtPostcode.Name = "txtPostcode"
        Me.txtPostcode.Size = New System.Drawing.Size(152, 20)
        Me.txtPostcode.TabIndex = 9
        Me.txtPostcode.Text = ""
        '
        'txtGemeente
        '
        Me.txtGemeente.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsBrouwers1, "Brouwers.Gemeente"))
        Me.txtGemeente.Location = New System.Drawing.Point(112, 152)
        Me.txtGemeente.Name = "txtGemeente"
        Me.txtGemeente.Size = New System.Drawing.Size(152, 20)
        Me.txtGemeente.TabIndex = 10
        Me.txtGemeente.Text = ""
        '
        'txtOmzet
        '
        Me.txtOmzet.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DsBrouwers1, "Brouwers.Omzet"))
        Me.txtOmzet.Location = New System.Drawing.Point(112, 184)
        Me.txtOmzet.Name = "txtOmzet"
        Me.txtOmzet.Size = New System.Drawing.Size(152, 20)
        Me.txtOmzet.TabIndex = 11
        Me.txtOmzet.Text = ""
        '
        'cmdGegOphalen
        '
        Me.cmdGegOphalen.Location = New System.Drawing.Point(0, 224)
        Me.cmdGegOphalen.Name = "cmdGegOphalen"
        Me.cmdGegOphalen.Size = New System.Drawing.Size(64, 32)
        Me.cmdGegOphalen.TabIndex = 12
        Me.cmdGegOphalen.Text = "Gegevens ophalen"
        '
        'cmdEerste
        '
        Me.cmdEerste.Location = New System.Drawing.Point(64, 224)
        Me.cmdEerste.Name = "cmdEerste"
        Me.cmdEerste.Size = New System.Drawing.Size(64, 32)
        Me.cmdEerste.TabIndex = 13
        Me.cmdEerste.Text = "Eerste"
        '
        'cmdVolgende
        '
        Me.cmdVolgende.Location = New System.Drawing.Point(128, 224)
        Me.cmdVolgende.Name = "cmdVolgende"
        Me.cmdVolgende.Size = New System.Drawing.Size(64, 32)
        Me.cmdVolgende.TabIndex = 14
        Me.cmdVolgende.Text = "Volgende"
        '
        'cmdVorige
        '
        Me.cmdVorige.Location = New System.Drawing.Point(192, 224)
        Me.cmdVorige.Name = "cmdVorige"
        Me.cmdVorige.Size = New System.Drawing.Size(64, 32)
        Me.cmdVorige.TabIndex = 15
        Me.cmdVorige.Text = "Vorige"
        '
        'cmdLaatste
        '
        Me.cmdLaatste.Location = New System.Drawing.Point(256, 224)
        Me.cmdLaatste.Name = "cmdLaatste"
        Me.cmdLaatste.Size = New System.Drawing.Size(64, 32)
        Me.cmdLaatste.TabIndex = 16
        Me.cmdLaatste.Text = "Laatste"
        '
        'lblRecord
        '
        Me.lblRecord.Location = New System.Drawing.Point(288, 24)
        Me.lblRecord.Name = "lblRecord"
        Me.lblRecord.Size = New System.Drawing.Size(128, 24)
        Me.lblRecord.TabIndex = 17
        '
        'cmbBrouwers
        '
        Me.cmbBrouwers.DataSource = Me.DsBrouwers1
        Me.cmbBrouwers.DisplayMember = "Brouwers.Naam"
        Me.cmbBrouwers.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbBrouwers.Location = New System.Drawing.Point(280, 56)
        Me.cmbBrouwers.Name = "cmbBrouwers"
        Me.cmbBrouwers.Size = New System.Drawing.Size(136, 21)
        Me.cmbBrouwers.TabIndex = 18
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(432, 254)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmbBrouwers, Me.lblRecord, Me.cmdLaatste, Me.cmdVorige, Me.cmdVolgende, Me.cmdEerste, Me.cmdGegOphalen, Me.txtOmzet, Me.txtGemeente, Me.txtPostcode, Me.txtAdres, Me.txtNaam, Me.txtBrouwer, Me.lblOmzet, Me.lblGemeente, Me.lblPostcode, Me.lblAdres, Me.Label1, Me.lblBrouwers})
        Me.Name = "Form1"
        Me.Text = "Form1"
        CType(Me.DsBrouwers1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

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

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblBrouwers.Click

    End Sub

    Private Sub cmdGegOphalen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGegOphalen.Click
        DsBrouwers1.Clear()
        daBrouwers.Fill(DsBrouwers1)
    End Sub

    Private Sub cmdEerste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEerste.Click
        Me.BindingContext(DsBrouwers1, "Brouwers").Position = 0
    End Sub

    Private Sub cmdVolgende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVolgende.Click
        Me.BindingContext(DsBrouwers1, "Brouwers").Position += 1
    End Sub

    Private Sub cmdVorige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVorige.Click
        Me.BindingContext(DsBrouwers1, "Brouwers").Position -= 1
    End Sub

    Private Sub cmdLaatste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLaatste.Click
        Me.BindingContext(DsBrouwers1, "Brouwers").Position = Me.BindingContext(DsBrouwers1, "Brouwers").Count

    End Sub

    Private Sub lblPositie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub lblRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblRecord.Click

    End Sub

    Private Sub txtBrouwer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBrouwer.TextChanged
        lblRecord.Text = "Record " & _
        Me.BindingContext(DsBrouwers1, "Brouwers").Position + 1 & " van " & _
        Me.BindingContext(DsBrouwers1, "Brouwers").Count()
    End Sub
End Class
