訂單管理.vb 1.1 KB

1234567891011121314151617181920212223242526272829303132
  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 Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  11. 會員管理.Show()
  12. Me.Visible = False
  13. End Sub
  14. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.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. End Class