商品銷售紀錄.vb 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. Public Class 商品銷售紀錄
  2. Private Sub 商品銷售紀錄_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3. 'TODO: 這行程式碼會將資料載入 '謎鹿DataSet.紀錄' 資料表。您可以視需要進行移動或移除。
  4. Me.紀錄TableAdapter.Fill(Me.謎鹿DataSet.紀錄)
  5. End Sub
  6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  7. 商品管理.Show()
  8. Me.Visible = False
  9. End Sub
  10. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  11. 訂單管理.Show()
  12. Me.Visible = False
  13. End Sub
  14. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  15. 會員管理.Show()
  16. Me.Visible = False
  17. End Sub
  18. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
  19. 會員購買紀錄.Show()
  20. Me.Visible = False
  21. End Sub
  22. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
  23. 管理者登入.Show()
  24. Me.Visible = False
  25. End Sub
  26. Private Sub 搜尋_Click(sender As Object, e As EventArgs) Handles 搜尋.Click
  27. Try
  28. Me.紀錄TableAdapter.FillByKeyword(Me.謎鹿DataSet.紀錄, Trim(ToolStripTextBox1.Text))
  29. Catch ex As Exception
  30. Me.紀錄TableAdapter.FillBysql(Me.謎鹿DataSet.紀錄, Trim(ToolStripTextBox1.Text))
  31. End Try
  32. End Sub
  33. Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
  34. Me.紀錄TableAdapter.Fill(Me.謎鹿DataSet.紀錄)
  35. End Sub
  36. End Class