frmSelectTable.vb

Imports MySql.Data.MySqlClient

Public Class frmSelectTable
    Dim btnTable As New Button

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
        Me.Dispose()
    End Sub
    Sub LoadTable()
        cn.Open()
        cm = New MySqlCommand("select * from tbltable", cn)
        dr = cm.ExecuteReader
        While dr.Read
            btnTable = New Button
            btnTable.Width = 95
            btnTable.Height = 35
            btnTable.Text = dr.Item("tableno").ToString
            btnTable.FlatStyle = FlatStyle.Flat
            btnTable.BackColor = Color.FromArgb(200, 100, 0)
            btnTable.ForeColor = Color.White
            btnTable.Cursor = Cursors.Hand
            btnTable.TextAlign = ContentAlignment.MiddleLeft
            TableFlowLayoutPanel.Controls.Add(btnTable)

            'add handler for table no
            AddHandler btnTable.Click, AddressOf GetTable_Click


            'Filtering
            'AddHandler btnTable.Click, AddressOf filter_click

        End While
        dr.Close()
        cn.Close()
    End Sub

    Sub GetTable_Click(sender As Object, e As EventArgs)
        Dim table As String = sender.text.ToString
        With frmPOS
            .lbltable.Text = table
        End With
        Me.Dispose()
    End Sub

    Private Sub TableFlowLayoutPanel_Paint(sender As Object, e As PaintEventArgs) Handles TableFlowLayoutPanel.Paint

    End Sub
End Class