No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

考勤明細表_編輯.vb 1.3KB

12345678910111213141516171819202122232425
  1. Public Class 考勤明細表_編輯
  2. Private Sub 考勤明細表_刪除_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3. 時間_dtp.Value = PA4
  4. 姓名_tb.Text = PA5
  5. ID_lb.Text = PA3
  6. ID1_lb.Text = PA7
  7. End Sub
  8. Private Sub 修改該筆資料_bt_Click(sender As Object, e As EventArgs) Handles 修改該筆資料_bt.Click
  9. If ID_lb.Text = "" Then
  10. MsgBox("該考勤位置沒有資料可以修改!!")
  11. Else
  12. PA4 = ID_lb.Text : PA3 = 時間_dtp.Text : SQL_時間修改() : MsgBox("修改成功!") : 考勤明細表.R_bt.PerformClick()
  13. End If
  14. End Sub
  15. Private Sub 刪除該筆資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除該筆資料_bt.Click
  16. If ID_lb.Text = "" Then
  17. MsgBox("該考勤位置沒有資料可以刪除!!")
  18. Else
  19. PA4 = ID_lb.Text : PA3 = 時間_dtp.Text : SQL_時間刪除() : MsgBox("刪除成功!") : 考勤明細表.R_bt.PerformClick()
  20. End If
  21. End Sub
  22. Private Sub 新增資料_bt_Click(sender As Object, e As EventArgs) Handles 新增資料_bt.Click
  23. PA4 = ID1_lb.Text : PA3 = 時間_dtp.Text : SQL_時間新增() : MsgBox("新增成功!") : 考勤明細表.R_bt.PerformClick()
  24. End Sub
  25. End Class