建立SQL敘述新增一筆資料表記錄

Public Class Form1

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
'showrecord(0)
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
showrecord(ListBox1.SelectedIndex)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 這行程式碼會將資料載入 'FunDataSet1.fun' 資料表。您可以視需要進行移動或移除。
Me.FunTableAdapter.Fill(Me.FunDataSet1.fun)
showrecord(0)
End Sub
Sub showrecord(ByVal pos As Integer)
Dim objrow As DataRow
If pos >= 0 Then
objrow = Me.FunDataSet1.fun.Rows(pos)
TextBox2.Text = objrow("modeino")
TextBox3.Text = objrow("name")
TextBox4.Text = objrow("storage")
TextBox5.Text = objrow("price")
TextBox6.Text = objrow("color")
TextBox1.Text = objrow("stockdate")
Button2.Enabled = True : Button3.Enabled = True
End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim strsql As String
strsql = "update fun set name='" & TextBox3.Text & "',"
strsql &= "storage='" & TextBox4.Text & "',"
strsql &= "price=" & TextBox5.Text & ","
strsql &= "color='" & TextBox6.Text & "',"
strsql &= "stockdate=#" & TextBox1.Text & "#"
strsql &= " where modeino='" & TextBox2.Text & "'"
aaa(strsql)
Me.FunTableAdapter.GetData()
Me.FunTableAdapter.Fill(Me.FunDataSet1.fun)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strsql As String
If MsgBox("確定刪除：" & TextBox2.Text, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
strsql = "delete from fun where modeino='"
strsql &= TextBox2.Text & "'"
aaa(strsql)
Me.FunTableAdapter.GetData()
Me.FunTableAdapter.Fill(Me.FunDataSet1.fun)
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
' 建立SQL敘述新增一筆資料表記錄
Dim strsql As String
strsql = "INSERT INTO fun (modeino, name" & _
",storage, price, color, stockdate) "
strsql &= "VALUES ('" & TextBox2.Text & "','"
strsql &= TextBox3.Text & "',"
strsql &= TextBox4.Text & ","
strsql &= TextBox5.Text & ",'"
strsql &= TextBox6.Text & "',"
strsql &= "#" & TextBox1.Text & "#)"
aaa(strsql) ' 執行SQL
TextBox2.ReadOnly = True ' 重設狀態
Button4.Enabled = False : Button5.Enabled = False
Me.FunTableAdapter.GetData()
Me.FunTableAdapter.Fill(Me.FunDataSet1.fun)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox2.ReadOnly = True ' 重設狀態
Button4.Enabled = False : Button5.Enabled = False
showrecord(ListBox1.SelectedIndex)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' 設定狀態
TextBox2.ReadOnly = False : Button2.Enabled = False
Button3.Enabled = False : Button4.Enabled = True
Button5.Enabled = True
TextBox2.Text = "" : TextBox3.Text = ""
TextBox4.Text = "" : TextBox5.Text = ""
TextBox6.Text = "" : TextBox1.Text = ""
End Sub
End Class