01.Imports System.Data.SqlClient
02.Public Class frm_return
03. Private Sub frm_return_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
04. txt_return.Text = frm_main.lbl_admin_name.Text
05. refresh_data_return()
06. End Sub
07. Private Sub get_auto_num_char()
08. sql = "select max(return_id) from tb_return"
09. Try
10. Dim numchar As String = "RET-" & (cmd_excuteScalar() + 1).ToString.PadLeft(6, "0")
11. txt_return_id.Text = numchar
12. Catch ex As Exception
13. txt_return_id.Text = "RET-000001"
14. End Try
15. End Sub
16. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
17. lbl_borrow_day.Text = DateTime.Today
18. End Sub
19.
20. Private Sub txt_return_borrow_id_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txt_return_borrow_id.KeyDown
21. If e.KeyData = Keys.Enter Then
22. sql = "select borrow_device_id,borrow_device_name,borrow_user_id,borrow_user_name,borrow_admin,borrow_date_checkout,borrow_date_checkin from tb_borrow where borrow_full_id_2 = '" & txt_return_borrow_id.Text & "'"
23. Dim dts As DataTable = cmd_excuteToDataTable()
24. If dts.Rows.Count <= 0 Then
25. error_message("ไม่พบรหัสอุปกรณ์")
26. Else
27. txt_return_device_id.Text = dts.Rows(0)("borrow_device_id")
28. txt_return_device_name.Text = dts.Rows(0)("borrow_device_name")
29. txt_return_user_id.Text = dts.Rows(0)("borrow_user_id")
30. txt_return_user_name.Text = dts.Rows(0)("borrow_user_name")
31. txt_return_admin_name.Text = dts.Rows(0)("borrow_admin")
32. txt_dayoff.Text = dts.Rows(0)("borrow_date_checkin")
33. txt_return.Select()
34. End If
35. End If
36. End Sub
37. Private Sub refresh_data_return()
38. sql = "select return_full_id,return_borrow_full_id,return_device_id,return_device_name,return_user_id,return_user_name,return_admin_recieve,return_dayoff,return_day,return_status from tb_return"
39. dtg_return.DataSource = cmd_excuteToDataTable()
40. get_auto_num_char()
41. chang_all_column()
42. End Sub
43. Private Sub chang_all_column()
44. Dim header() As String = {"รหัสการคืน", "รหัสการยืม", "รหัสอุปกรณ์", "ชื่ออุปกรณ์", "รหัสพนักงาน", "ชื่อพนักงาน", "ผู้รับคืนอุปกรณ์", "กำหนดวันคืน", "วันที่คืน", "สถานะ"}
45. chang_name_datagrid(dtg_return, header)
46. End Sub
47. Private Sub update_data_device()
48. sql = "update tb_device set device_amount = device_amount + 1 where device_id = '" & txt_return_device_id.Text & "'"
49. If cmd_excuteNonquery() = 0 Then
50. error_message("ทำรายการไม่สำเร็จ")
51. Else
52. ok_message("ทำรายการสำเร็จ")
53. End If
54. End Sub
55. Private Sub bt_return_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_return.Click
56. If confirm("คุณต้องการคืนอุปกรณ์") = vbNo Then Return
57. sql = String.Format("insert into tb_return values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}','{10}')",
58. txt_return_id.Text,
59. txt_return_borrow_id.Text,
60. txt_return_device_id.Text,
61. txt_return_device_name.Text,
62. txt_return_user_id.Text,
63. txt_return_user_name.Text,
64. txt_return.Text,
65. txt_dayoff.Text,
66. lbl_borrow_day.Text,
67. "คืน", "1")
68. If cmd_excuteNonquery() = 0 Then
69. error_message("ทำรายการไม่สำเร็จ")
70. Else
71. update_data_device()
72. refresh_data_return()
73. End If
74. End Sub
75.End Class
Load balance : Server 05
