顯示SQLTABLE數據作爲形式

-2

按鈕我有餐廳管理VB.NET項目。我在數據庫中有一個存儲餐廳表數據的實體（忙或不忙等）。顯示SQLTABLE數據作爲形式

我可以顯示在DataGridView與此代碼數據，但這只是顯示爲一條線：

Dim conexao As MySqlConnection = connection 
Dim comando As MySqlCommand = New MySqlCommand("PCD_TABLE_SHOW", conexao) 
comando.CommandType = CommandType.StoredProcedure 
Dim dt As MySqlDataAdapter = New MySqlDataAdapter(comando) 
Dim tabela As DataTable = New DataTable 
Try 
    conexao.Open() 
    dt.Fill(tabela) 
    FormVenda.dgvVenda.DataSource = tabela 

Catch ex As Exception 
    MessageBoxEx.Show(ex.Message) 
Finally 
    conexao.Close() 
End Try

我的表的擠出或多或少這樣的：

Create table table_(Cod_table int autincrement,Name_table varchar (20),Bus_table bit,Desc_table varchar (50))

我只是想要將此表的name_table字段顯示爲表單上的按鈕。我想知道如何顯示在表單中的所有按鈕形表和改變顏色（如果它是忙或沒有），如下圖所示：

Click here to see example image

來源

2016-11-25 Joaquim Costa

你有任何代碼，你可以更新的問題？ – Bugs

我沒有任何代碼 –

好的，在這種情況下我們無法幫到你。 SO不是代碼寫入服務。當你有一個更具體的問題時，你將不得不自己做一些工作並回來。我將這個問題標記爲過於寬泛。 – Bugs

我已經發現解決方案：

Dim UserButtons As List(Of Button) = New List(Of Button) 
Private Sub Gettable() 

    Try 

     Dim conexao As MySqlConnection = connection 

     conexao.Open() 

     Dim cmdText As String = "PCD_SHOW_TABLE" 
     Dim cmd As MySqlCommand = New MySqlCommand(cmdText) 
     cmd.CommandType = CommandType.StoredProcedure 

     ' cmd.Parameters.AddWithValue("@d1") 

     Color.LightGreen.ToArgb() 
     cmd.Connection = conexao 

     Dim rdr As MySqlDataReader 
     rdr = cmd.ExecuteReader() 
     FlowLayoutPanel1.Controls.Clear() 

     Do While (rdr.Read()) 

      Dim btn As New Button 
      btn.Text = rdr.GetValue(1) 
      ' btn.TextAlign = ContentAlignment.MiddleCenter 
      'Dim btnColor As Color = Color.FromArgb(Val(rdr.GetValue(1))) 
      'btn.BackColor = btnColor 
      ' btn.FlatStyle = FlatStyle.Popup 
      btn.Width = 100 
      btn.Height = 80 
      btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, 
      System.Drawing.GraphicsUnit.Point, CType(0, Byte)) 
      UserButtons.Add(btn) 
      FlowLayoutPanel1.Controls.Add(btn) 

      AddHandler btn.Click, AddressOf Me.Button1_Click 
     Loop 

     conexao.Close() 

    Catch ex As Exception 
     MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 

    End Try 
End Sub

來源

2016-12-15 16:55:17

顯示SQLTABLE數據作爲形式

回答

相關問題