01.Private Sub ToolStripMenuItemReciept_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemReciept.Click
02. conn.Open()
03. Dim sql As String = "select * from t_report_receive " &
04. "where report_number_receive = @report_number_receive"
05. Dim command As New SqlCommand(sql, conn)
06. Dim check_report_number As String = InputBox("กรุณากรอก IR Number!", "INPUT")
07. Dim da As New SqlDataAdapter(command)
08. Dim ds As New DataSet
09.
10.
11. command.Parameters.AddWithValue("report_number_receive", check_report_number)
12.
13.
14. Dim rd As SqlDataReader = command.ExecuteReader
15.
16. If rd.HasRows Then
17. MessageBox.Show("IR NUMBER ถูกต้อง!", "SUCCESS", MessageBoxButtons.OK, MessageBoxIcon.Information)
18. receive.Show()
19. receive.Label20.Text = check_report_number
20. rd.Close()
21. da.Fill(ds, "t_report_receive")
22.
23. If ds.Tables("t_report_receive").Rows(0)("nurse_cause") = "เห็นด้วย" Then
24. receive.RadioButton1.Checked = True
25. ElseIf ds.Tables("t_report_receive").Rows(0)("nurse_cause") = "ไม่เห็นด้วย" Then
26. receive.RadioButton2.Checked = True
27. ElseIf ds.Tables("t_report_receive").Rows(0)("nurse_cause") = "ข้อเสนอแนะเพิ่มเติม" Then
28. receive.RadioButton3.Checked = True
29. receive.TextBox4.Text = ds.Tables("t_report_receive").Rows(0)("nurse_cause2")
30. End If
31. receive.TextBox1.Text = ds.Tables("t_report_receive").Rows(0)("cause")
32. receive.TextBox2.Text = ds.Tables("t_report_receive").Rows(0)("correction")
33. receive.DateTimePicker1.Value = ds.Tables("t_report_receive").Rows(0)("correction_date")
34. Me.Hide()
35. Else
36. MessageBox.Show("IR NUMBER ไม่ถูกต้อง!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
37. Me.Show()
38. End If
39. conn.Close()
40. End Sub
