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